开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 操作系统开发 > 查看源码
STRINGS.C
资源名称：840.rar　[点击查看]
上传用户：dcs7469208
上传日期：2010-01-02
资源大小：443k
文件大小：4k
源码类别：

操作系统开发

开发平台：

DOS

STRINGS.C：源码内容
  2. /****************************************************************/
  3. /* */
  4. /*     strings.c */
  5. /* */
  6. /*   Global String Handling Functions */
  7. /* */
  8. /* Copyright (c) 1995 */
  9. /*   Pasquale J. Villani */
  10. /* All Rights Reserved */
  11. /* */
  12. /* This file is part of DOS-C. */
  13. /* */
  14. /* DOS-C is free software; you can redistribute it and/or */
  15. /* modify it under the terms of the GNU General Public License */
  16. /* as published by the Free Software Foundation; either version */
  17. /* 2, or (at your option) any later version. */
  18. /* */
  19. /* DOS-C is distributed in the hope that it will be useful, but */
  20. /* WITHOUT ANY WARRANTY; without even the implied warranty of */
  21. /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See */
  22. /* the GNU General Public License for more details. */
  23. /* */
  24. /* You should have received a copy of the GNU General Public */
  25. /* License along with DOS-C; see the file COPYING.  If not, */
  26. /* write to the Free Software Foundation, 675 Mass Ave, */
  27. /* Cambridge, MA 02139, USA. */
  28. /****************************************************************/
  31. #include "../../hdr/portab.h"
  33. /* $Logfile:   C:/dos-c/src/kernel/strings.c_v  $ */
  34. #ifdef VERSION_STRINGS
  35. static BYTE *stringsRcsId = "$Header:   C:/dos-c/src/kernel/strings.c_v   1.6   04 Jan 1998 23:15:16   patv  $";
  36. #endif
  38. /* $Log:   C:/dos-c/src/kernel/strings.c_v  $
  39.  * 
  40.  *    Rev 1.6   04 Jan 1998 23:15:16   patv
  41.  * Changed Log for strip utility
  42.  * 
  43.  *    Rev 1.5   31 Dec 1997  3:59:30   patv
  44.  * Added new far string functions.
  45.  * 
  46.  *    Rev 1.4   29 May 1996 21:03:30   patv
  47.  * bug fixes for v0.91a
  48.  * 
  49.  *    Rev 1.3   19 Feb 1996  3:21:36   patv
  50.  * Added NLS, int2f and config.sys processing
  51.  * 
  52.  *    Rev 1.2   01 Sep 1995 17:54:22   patv
  53.  * First GPL release.
  54.  * 
  55.  *    Rev 1.1   30 Jul 1995 20:51:58   patv
  56.  * Eliminated version strings in ipl
  57.  * 
  58.  *    Rev 1.0   02 Jul 1995  8:33:46   patv
  59.  * Initial revision.
  60.  */
  61. /* $EndLog$ */
  63. #ifdef PROTO
  64. VOID strcpy(REG BYTE *, REG BYTE *);
  65. #endif
  68. COUNT 
  69. strlen (REG BYTE *s)
  70. {
  71. REG WORD cnt = 0;
  73. while(*s++ != 0)
  74. ++cnt;
  75. return cnt;
  76. }
  79. COUNT 
  80. fstrlen (REG BYTE FAR *s)
  81. {
  82. REG WORD cnt = 0;
  84. while(*s++ != 0)
  85. ++cnt;
  86. return cnt;
  87. }
  90. VOID
  91. strcpy (REG BYTE *d, REG BYTE *s)
  92. {
  93. while(*s != 0)
  94. *d++ = *s++;
  95. *d = 0;
  96. }
  98. VOID
  99. _fstrcpy (REG BYTE FAR *d, REG BYTE FAR *s)
  100. {
  101. while(*s != 0)
  102. *d++ = *s++;
  103. *d = 0;
  104. }
  106. VOID
  107. strncpy (REG BYTE *d, REG BYTE *s, COUNT l)
  108. {
  109. COUNT idx = 1;
  110. while(*s != 0 && idx++ <= l)
  111. *d++ = *s++;
  112. *d = 0;
  113. }
  116. VOID 
  117. strcat (REG BYTE *d, REG BYTE *s)
  118. {
  119. while(*d != 0)
  120. ++d;
  121. strcpy(d, s);
  122. }
  125. COUNT 
  126. strcmp (REG BYTE *d, REG BYTE *s)
  127. {
  128. while(*s != '' && *d != '')
  129. {
  130. if(*d == *s)
  131. ++s, ++d;
  132. else
  133. return *d - *s;
  134. }
  135. return *d - *s;
  136. }
  138. COUNT 
  139. fstrcmp (REG BYTE FAR *d, REG BYTE FAR *s)
  140. {
  141. while(*s != '' && *d != '')
  142. {
  143. if(*d == *s)
  144. ++s, ++d;
  145. else
  146. return *d - *s;
  147. }
  148. return *d - *s;
  149. }
  151. COUNT 
  152. strncmp (REG BYTE *d, REG BYTE *s, COUNT l)
  153. {
  154. COUNT index = 1;
  155. while(*s != '' && *d != '' && index++ <= l)
  156. {
  157. if(*d == *s)
  158. ++s, ++d;
  159. else
  160. return *d - *s;
  161. }
  162. return *d - *s;
  163. }
  166. COUNT 
  167. fstrncmp (REG BYTE FAR *d, REG BYTE FAR *s, COUNT l)
  168. {
  169. COUNT index = 1;
  170. while(*s != '' && *d != '' && index++ <= l)
  171. {
  172. if(*d == *s)
  173. ++s, ++d;
  174. else
  175. return *d - *s;
  176. }
  177. return *d - *s;
  178. }
  181. VOID
  182. fstrncpy(REG BYTE FAR *d, REG BYTE FAR *s, COUNT l)
  183. {
  184. COUNT idx = 1;
  185. while(*s != 0 && idx++ <= l)
  186. *d++ = *s++;
  187. *d = 0;
  188. }
  191. /* Yet another change for true portability (WDL) */
  192. COUNT 
  193. tolower (COUNT c)
  194. {
  195. if(c >= 'A' && c <= 'Z')
  196. return (c + ('a' - 'A'));
  197. else
  198. return c;
  199. }
  202. /* Yet another change for true portability (PJV) */
  203. COUNT 
  204. toupper (COUNT c)
  205. {
  206. if(c >= 'a' && c <= 'z')
  207. return (c - ('a' - 'A'));
  208. else
  209. return c;
  210. }