Return to lex.l CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / new / X / uwm

Annotation of 43BSDTahoe/new/X/uwm/lex.l, revision 1.1

1.1     ! root        1: %{
        !             2: 
        !             3: /*
        !             4:  *                     COPYRIGHT 1985, 1986
        !             5:  *                DIGITAL EQUIPMENT CORPORATION
        !             6:  *                    MAYNARD, MASSACHUSETTS
        !             7:  *                     ALL RIGHTS RESERVED.
        !             8:  *
        !             9:  * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND
        !            10:  * SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
        !            11:  * DIGITAL MAKES NO REPRESENTATIONS ABOUT THE SUITIBILITY OF THIS SOFTWARE FOR
        !            12:  * ANY PURPOSE.  IT IS SUPPLIED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
        !            13:  *
        !            14:  * IF THE SOFTWARE IS MODIFIED IN A MANNER CREATING DERIVATIVE COPYRIGHT RIGHTS,
        !            15:  * APPROPRIATE LEGENDS MAY BE PLACED ON THE DERIVATIVE WORK IN ADDITION TO THAT
        !            16:  * SET FORTH ABOVE.
        !            17:  *
        !            18:  *
        !            19:  * Permission to use, copy, modify, and distribute this software and its
        !            20:  * documentation for any purpose and without fee is hereby granted, provided
        !            21:  * that the above copyright notice appear in all copies and that both that
        !            22:  * copyright notice and this permission notice appear in supporting documentation,
        !            23:  * and that the name of Digital Equipment Corporation not be used in advertising
        !            24:  * or publicity pertaining to distribution of the software without specific, 
        !            25:  * written prior permission.
        !            26:  *
        !            27:  */
        !            28: 
        !            29: 
        !            30: 
        !            31: /*
        !            32:  * MODIFICATION HISTORY
        !            33:  *
        !            34:  * 000 -- M. Gancarz, DEC Ultrix Engineering Group
        !            35:  */
        !            36: 
        !            37: #ifndef lint
        !            38: static char *sccsid = "@(#)lex.l       3.8     1/24/86";
        !            39: #endif
        !            40: 
        !            41: #include "y.tab.h"
        !            42: #include "uwm.h"
        !            43: 
        !            44: char *dequote();
        !            45: char *stash();
        !            46: 
        !            47: %}
        !            48: W      [ \t]+
        !            49: %%
        !            50: 
        !            51: #.*\n                          { return(COMMENT); }    /* Comments. */
        !            52: {W}                            { ; }   /* Whitespace. */
        !            53: [^ \"\t\n#=\^\!\|\(\)\{\}:;]+  { yylval.sval=stash(yytext);return(STRING); }
        !            54: \"[^\"\n]*\"                   { yylval.sval=stash(dequote(yytext));
        !            55:                                  return(STRING); }
        !            56: \n                             { return(NL); }
        !            57: .                              { return(*yytext); }
        !            58: 
        !            59: %%
        !            60: 
        !            61: /*
        !            62:  * Remove the quotes enclosing a quoted string.
        !            63:  */
        !            64: char *
        !            65: dequote(s)
        !            66: char *s;
        !            67: {
        !            68:     char *p;
        !            69: 
        !            70:     ++s;
        !            71:     p = rindex(s, '"');
        !            72:     *p = '\0';
        !            73:     return(s);
        !            74: }
        !            75: 
        !            76: /*
        !            77:  * Save string away in memory and return a pointer to it.  If
        !            78:  * no space could be found, quit with a fatal error.
        !            79:  */
        !            80: char *stash(s)
        !            81: char *s;
        !            82: {
        !            83:     char *ptr;
        !            84:     char *malloc();
        !            85: 
        !            86:     ptr = malloc(strlen(s) + 1);
        !            87:     if (ptr == NULL) {
        !            88:         Error("out of space");
        !            89:     }
        !            90:     return(strcpy(ptr, s));
        !            91: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.