home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FILUTL / STRING.ZIP / STRNLEN.C < prev    next >
Encoding:
C/C++ Source or Header  |  1984-12-31  |  768 b   |  39 lines
  1. /*  File   : strnlen.c
  2.     Author : Richard A. O'Keefe.
  3.     Updated: 10 April 1984
  4.     Defines: strnlen()
  5.  
  6.     strnlen(src, len)
  7.     returns the number of characters up to the first NUL in src, or len,
  8.     whichever is smaller.  This is the same as strnend(src,len)-src.
  9.  
  10.     Beware: the VaxAsm version only works for 0 <= len < 65535.
  11. */
  12.  
  13. #include "strings.h"
  14.  
  15. #if    VaxAsm
  16.  
  17. int strnlen(src, len)
  18.     char *src;
  19.     int len;
  20.     {
  21.     asm("locc $0,8(ap),*4(ap)");
  22.     asm("subl3 4(ap),r1,r0");
  23.     }
  24.  
  25. #else  ~VaxAsm
  26.  
  27. int strnlen(s, n)
  28.     register char *s;
  29.     register int n;
  30.     {
  31.     register int L;
  32.     
  33.     for (L = 0; --n >= 0 && *s++; L++) ;
  34.     return L;
  35.     }
  36.  
  37. #endif    VaxAsm
  38.