| 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 6361 times since Sat Apr 17 21:58:42 1999 GMT |