FreeCalypso > hg > fc-selenite
view src/libsys/strtok.c @ 106:5ba0bee90efa
build system: new configuration naming mechanism
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Mon, 23 Jul 2018 16:38:50 +0000 |
parents | 425ab6d987f3 |
children |
line wrap: on
line source
/* * Copyright (c) 1985 Regents of the University of California. * All rights reserved. * * Redistribution and use in source and binary forms are permitted * provided that the above copyright notice and this paragraph are * duplicated in all such forms and that any documentation, * advertising materials, and other materials related to such * distribution and use acknowledge that the software was developed * by the University of California, Berkeley. The name of the * University may not be used to endorse or promote products derived * from this software without specific prior written permission. * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. */ #if defined(LIBC_SCCS) && !defined(lint) static char sccsid[] = "@(#)strtok.c 5.4 (Berkeley) 6/27/88"; #endif /* LIBC_SCCS and not lint */ char * strtok(s, sep) register char *s, *sep; { register char *p; register c; static char *lasts; if (s == 0) s = lasts; if (s == 0) return (0); while (c = *s) { if (!index(sep, c)) break; s++; } if (c == '\0') { lasts = 0; return (0); } for (p = s; c = *++p; ) if (index(sep, c)) break; if (c == '\0') lasts = 0; else { *p++ = '\0'; lasts = p; } return (s); }