Return to lex.l CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / X / uwm

Annotation of 43BSD/contrib/X/uwm/lex.l, revision 1.1

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

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