/*- * Copyright (c) 1980, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the University of * California, Berkeley and its contributors. * 4. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #ifndef lint static char sccsid[] = "@(#)yyoptions.c 8.1 (Berkeley) 6/6/93"; #endif /* not lint */ #include "whoami.h" #include "0.h" #include "tree_ty.h" /* must be included for yy.h */ #include "yy.h" /* * Options processes the option * strings which can appear in * comments and returns the next character. */ options() { register c; #ifdef PI0 register ch; #endif register char *optp; c = readch(); if (c != '$') return (c); do { c = readch(); # ifdef PI0 ch = c; # endif switch (c) { case 'b': optp = &opt( 'b' ); c = readch(); if (!digit(c)) return (c); *optp = c - '0'; c = readch(); break; # ifdef PC case 'C': /* * C is a replacement for t, fake it. */ c = 't'; /* and fall through */ case 'g': # endif PC case 'k': case 'l': case 'n': case 'p': case 's': case 't': case 'u': case 'w': case 'z': optp = &opt( c ); c = readch(); if (c == '+') { *optp = 1; c = readch(); } else if (c == '-') { *optp = 0; c = readch(); } else { return (c); } break; default: return (c); } #ifdef PI0 send(ROSET, ch, *optp); #endif } while (c == ','); if ( opt( 'u' ) ) setuflg(); return (c); }