lang/cem/libcc.ansi/string/strlen.c

   1 /*
   2  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3  * See the copyright notice in the ACK home directory, in the file "Copyright".
   4  */
   5 /* $Id: strlen.c,v 1.5 1994/06/24 11:56:58 ceriel Exp $ */
   6
   7 #include        <string.h>
   8
   9 size_t
  10 strlen(const char *org)
  11 {
  12         register const char *s = org;
  13
  14         while (*s++)
  15                 /* EMPTY */ ;
  16
  17         return --s - org;
  18 }