source: buchla-68k/orig/CLIBRARY/STRLEN.C@ 0170798

Last change on this file since 0170798 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Imported original source code.

  • Property mode set to 100755
File size: 479 bytes
Line 
1/*
2 =============================================================================
3 strlen.c -- string length function ala' Unix(tm)
4 Version 1 -- 1987-02-11 -- D.N. Lynx Crowe
5
6 Returns the number of non-NULL bytes in string argument.
7 =============================================================================
8*/
9
10
11int
12strlen(s)
13register char *s;
14{
15 register int n = 0;
16
17 while (*s++ != '\0')
18 ++n;
19
20 return (n);
21}
Note: See TracBrowser for help on using the repository browser.