source: buchla-68k/orig/CLIBRARY/INDEX.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: 418 bytes
Line 
1/*
2 ============================================================================
3 index.c -- BSD style index function
4 Version 1 -- 1987-02-11 -- D.N. Lynx Crowe
5 ============================================================================
6*/
7
8char *
9index(str, c)
10register char *str;
11register char c;
12{
13 while (*str) {
14
15 if (*str == c)
16 return(str);
17
18 ++str;
19 }
20
21 return((char *)0);
22}
23
Note: See TracBrowser for help on using the repository browser.