This is skipto.c in view mode; [Download] [Up]
/* * Copyright (c) 1990 Carnegie Mellon University * All Rights Reserved. * * Permission to use, copy, modify and distribute this software and its * documentation is hereby granted, provided that both the copyright * notice and this permission notice appear in all copies of the * software, derivative works or modified versions, and any portions * thereof, and that both notices appear in supporting documentation. * * THE SOFTWARE IS PROVIDED "AS IS" AND CARNEGIE MELLON UNIVERSITY * DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT * SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE FOR ANY SPECIAL, DIRECT, * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER * RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF * CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. * * Users of this software agree to return to Carnegie Mellon any * improvements or extensions that they make and grant Carnegie the * rights to redistribute these changes. * * Export of this software is permitted only after complying with the * regulations of the U.S. Deptartment of Commerce relating to the * Export of Technical Data. */ /************************************************************************ * skipover and skipto -- skip over characters in string * * Usage: p = skipto (string,charset); * p = skipover (string,charset); * * char *p,*charset,*string; * * Skipto returns a pointer to the first character in string which * is in the string charset; it "skips until" a character in charset. * Skipover returns a pointer to the first character in string which * is not in the string charset; it "skips over" characters in charset. ************************************************************************ * HISTORY * $Log: skipto.c,v $ * Revision 1.2 90/12/11 17:59:10 mja * Add copyright/disclaimer for distribution. * * 26-Jun-81 David Smith (drs) at Carnegie-Mellon University * Skipover, skipto rewritten to avoid inner loop at expense of space. * * 20-Nov-79 Steven Shafer (sas) at Carnegie-Mellon University * Skipover, skipto adapted for VAX from skip() and skipx() on the PDP-11 * (from Ken Greer). The names are more mnemonic. * * Sindex adapted for VAX from indexs() on the PDP-11 (thanx to Ralph * Guggenheim). The name has changed to be more like the index() * and rindex() functions from Bell Labs; the return value (pointer * rather than integer) has changed partly for the same reason, * and partly due to popular usage of this function. */ static unsigned char tab[256] = { 0}; char *skipto (string,charset) unsigned char *string, *charset; { register unsigned char *setp,*strp; tab[0] = 1; /* Stop on a null, too. */ for (setp=charset; *setp; setp++) tab[*setp]=1; for (strp=string; tab[*strp]==0; strp++) ; for (setp=charset; *setp; setp++) tab[*setp]=0; return ((char *)strp); } char *skipover (string,charset) unsigned char *string, *charset; { register unsigned char *setp,*strp; tab[0] = 0; /* Do not skip over nulls. */ for (setp=charset; *setp; setp++) tab[*setp]=1; for (strp=string; tab[*strp]; strp++) ; for (setp=charset; *setp; setp++) tab[*setp]=0; return ((char *)strp); }
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.