modules/src/string/strlen.c

   1 /* $Id: strlen.c,v 1.5 1994/06/24 11:23:02 ceriel Exp $ */
   2 /*
   3  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   4  * See the copyright notice in the ACK home directory, in the file "Copyright".
   5  */
   6 /* return length of s
   7 */
   8
   9 #include "ack_string.h"
  10
  11 _SIZET
  12 strlen(s)
  13         _CONST char *s;
  14 {
  15         register _CONST char *b = s;
  16
  17         while (*b++)
  18                 ;
  19         return b - s - 1;
  20 }