http://server.ccl.net/cca/software/SOURCES/C/kinetics2/lsoda-dir/mytok.shtml |
CCL mytok | ||||
|
char *mytok(s1, s2) register unsigned char *s1; register unsigned char *s2; { static unsigned char *cp1; if (s1 != NULL) cp1 = s1; s1 = cp1 + strspn(cp1, s2); if (*s1 == '\0') return(NULL); cp1 = s1 + strcspn(s1, s2); *cp1++ = '\0'; return(s1); } |
[ CCL Home Page ]
[ lsoda-dir ]
[ Raw Version of this page ]
Modified: Tue May 7 16:00:00 1991 GMT |
Page accessed 5938 times since Sat Apr 17 21:58:42 1999 GMT |