home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / misc / amigem.lha / amigem / utility / string.c
Encoding:
C/C++ Source or Header  |  1994-12-27  |  627 b   |  36 lines
  1. #define TOUPPER(a) (a<'a'||a>'z'?a:a-'a'+'A')
  2. #define TOLOWER(a) (a<'A'||a>'Z'?a:a-'A'+'a')
  3.  
  4. FD1(29,UBYTE,ToUpper,UBYTE char,D0)
  5. {
  6.   return TOUPPER(char);
  7. }
  8.  
  9. FD1(30,UBYTE,ToLower,UBYTE char,D0)
  10. {
  11.   return TOLOWER(char);
  12. }
  13.  
  14. FD2(27,LONG,Stricmp,STRPTR string1,A0,STRPTR string2,A1)
  15. {
  16.   LONG r;
  17.   do
  18.   {
  19.     r=TOUPPER(*string1)-TOUPPER(*string2);
  20.     string1++;
  21.   }while(!r&&*string2++);
  22.   return r;
  23. }
  24.  
  25. FD3(28,LONG,Strnicmp,STRPTR string1,A0,STRPTR string2,A1,LONG length,D0)
  26. {
  27.   LONG r=0;
  28.   if(length)
  29.     do
  30.     {
  31.       r=TOUPPER(*string1)-TOUPPER(*string2);
  32.       string1++;
  33.     }while(!r&&*string2++&&--length);
  34.   return r;
  35. }
  36.