source: buchla-68k/libsm/strcspn.c@ 6ee14ba

Last change on this file since 6ee14ba was b28a12e, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Zero redundant declarations.

  • Property mode set to 100644
File size: 655 bytes
Line 
1/*
2 ============================================================================
3 strcspn.c -- character scan function ala' Unix(tm)
4 Version 1 -- 1987-02-11 -- D.N. Lynx Crowe
5
6 Return the number of characters in the maximum leading segment
7 of string which consists solely of characters NOT from charset.
8 ============================================================================
9*/
10
11#include "ram.h"
12
13int16_t strcspn(int8_t *string, int8_t *charset)
14{
15 register int8_t *p, *q;
16 register int16_t n = 0;
17
18 for(q = string; *q != '\0'; ++q , ++n) {
19
20 for(p = charset; *p != '\0' && *p != *q; ++p)
21 ;
22
23 if(*p != '\0')
24 break;
25 }
26
27 return(n);
28}
Note: See TracBrowser for help on using the repository browser.