home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / fd2inline-1.0-bin.lha / include / inline / strsup.h < prev    next >
Encoding:
C/C++ Source or Header  |  1996-10-12  |  3.0 KB  |  199 lines
  1. #if !defined(_STRSUP_H) && defined(__OPTIMIZE__)
  2.  
  3. #define _STRSUP_H
  4.  
  5. #include <sys/types.h>
  6.  
  7. static __inline__ void _CopyMem(void *source,void *dest,size_t size)
  8. {
  9.   register char *a6 __asm("a6") = *(char **)4;
  10.   register void *a0 __asm("a0") = source;
  11.   register void *a1 __asm("a1") = dest;
  12.   register size_t d0 __asm("d0") = size;
  13.   __asm __volatile ("jsr a6@(-0x270)"
  14.   : /* no output */
  15.   : "r" (a6), "r" (a0), "r" (a1), "r" (d0)
  16.   : "a0","a1","d0","d1", "memory");
  17. }
  18.  
  19. extern __inline__ void *memcpy(void *s1,const void *s2,size_t n)
  20. {
  21.   _CopyMem((void *)s2,(void *)s1,n); return s1;
  22. }
  23.  
  24. extern __inline__ void *memmove(void *s1,const void *s2,size_t n)
  25. { 
  26.   bcopy(s2,s1,n); return s1;
  27. }
  28.  
  29. extern __inline__ void *memset(void *s,int c,size_t n)
  30. { 
  31.   if (n != 0)
  32.   {
  33.     unsigned char *p=s;
  34.     do
  35.     {
  36.       *p++=c;
  37.     }while(--n != 0);
  38.   }
  39.   return s;
  40. }
  41.  
  42. extern __inline__ void *memchr(const void *s,int c,size_t n)
  43. {
  44.   if (n != 0)
  45.   {
  46.     unsigned char *p=(unsigned char *)s;
  47.     do
  48.     {
  49.       if (*p++==(unsigned char)c)
  50.         return --p;
  51.     }while(--n != 0);
  52.   }
  53.   return (void *)n;
  54. }
  55.  
  56. extern __inline__ size_t strlen_plus_one(const char *string)
  57. {
  58.   const char *s=string;
  59.  
  60.   while(*s++)
  61.     ;
  62.   return (s-string);
  63. }
  64.  
  65. extern __inline__ size_t strlen(const char *string)
  66. {
  67.   const char *s=string;
  68.  
  69.   while(*s++)
  70.     ;
  71.   return ~(string-s);
  72. }
  73.  
  74. extern __inline__ char *strcpy(char *s1,const char *s2)
  75. { char *s=s1;
  76.   do
  77.     *s++=*s2;
  78.   while(*s2++!='\0');
  79.   return s1;
  80. }
  81.  
  82. extern __inline__ char *strncpy(char *s1,const char *s2,size_t n)
  83. {
  84.   if (n != 0)
  85.   {
  86.     char *s=s1;
  87.  
  88.     while ((*s++=*s2++) && (--n != 0))
  89.       ;
  90.     if (n != 0)
  91.     {
  92.       do
  93.         *s++=0;
  94.       while (--n != 0);
  95.     }
  96.   }
  97.   return s1;
  98. }
  99.  
  100. extern __inline__ char *strcat(char *s1,const char *s2)
  101. { 
  102.   char *s=s1;
  103.  
  104.   while(*s++)
  105.     ;
  106.   --s;
  107.   while((*s++=*s2++))
  108.     ;
  109.   return s1;
  110. }
  111.  
  112. extern __inline__ char *strncat(char *s1,const char *s2,size_t n)
  113. {
  114.   if (n != 0)
  115.   {
  116.     char *s=s1;
  117.  
  118.     while(*s++)
  119.       ;
  120.  
  121.     --s;
  122.  
  123.     for(;;)
  124.     {
  125.       if(!(*s++=*s2++))
  126.         return s1;
  127.       if(!--n)
  128.       { *s=0;
  129.         return s1; }
  130.     }
  131.   }
  132.   return s1;
  133. } 
  134.  
  135. extern __inline__ int strcmp(const char *s1,const char *s2)
  136. { 
  137.   int r;
  138.   
  139.   while (!(r=*s1++-*s2) && *s2++)
  140.     ;
  141.  
  142.   return r;
  143. }
  144.  
  145. extern __inline__ int strncmp(const char *s1,const char *s2,size_t n)
  146. { 
  147.   int r=0;
  148.  
  149.   if (n != 0)
  150.     while (!(r=*s1++-*s2) && *s2++ && (--n != 0))
  151.       ;
  152.  
  153.   return r;
  154. }
  155. #if 0
  156. extern __inline__ char *strchr(const char *s,int c)
  157. {
  158.   while (*s!=(char)c)
  159.     if (!(*s++))
  160.     {
  161.       s=NULL; break;
  162.     }
  163.   return (char *)s;
  164. }
  165. #endif
  166. extern __inline__ char *strupr(char *s)
  167. {
  168.   unsigned char *s1;
  169.  
  170.   s1=(unsigned char *)s;
  171.   while(*s1)
  172.   {
  173.     if ((*s1>('a'-1)) && (*s1<('z'+1)))
  174.       *s1-='a'-'A';
  175.     s1++;
  176.   }
  177.   return s;
  178. }
  179.  
  180. extern __inline__ char *strlwr(char *s)
  181. {
  182.   unsigned char *s1;
  183.  
  184.   s1=(unsigned char *)s;
  185.   while(*s1)
  186.   {
  187.     if ((*s1>('A'-1)) && (*s1<('Z'+1)))
  188.       *s1+='a'-'A';
  189.     s1++;
  190.   }
  191.   return s;
  192. }
  193.  
  194. #elif !defined(__OPTIMIZE__)
  195.  
  196. #define strlen_plus_one(s) strlen(s)+1L
  197.  
  198. #endif /* _STRSUP_H */
  199.