usr.bin/menuc/scan.l

   1 /*      $NetBSD: scan.l,v 1.16 2012/03/06 16:55:18 mbalmer Exp $        */
   2
   3 /*
   4  * Copyright 1997 Piermont Information Systems Inc.
   5  * All rights reserved.
   6  *
   7  * Written by Philip A. Nelson for Piermont Information Systems Inc.
   8  *
   9  * Redistribution and use in source and binary forms, with or without
  10  * modification, are permitted provided that the following conditions
  11  * are met:
  12  * 1. Redistributions of source code must retain the above copyright
  13  *    notice, this list of conditions and the following disclaimer.
  14  * 2. Redistributions in binary form must reproduce the above copyright
  15  *    notice, this list of conditions and the following disclaimer in the
  16  *    documentation and/or other materials provided with the distribution.
  17  * 3. The name of Piermont Information Systems Inc. may not be used to endorse
  18  *    or promote products derived from this software without specific prior
  19  *    written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY PIERMONT INFORMATION SYSTEMS INC. ``AS IS''
  22  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED. IN NO EVENT SHALL PIERMONT INFORMATION SYSTEMS INC. BE
  25  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  26  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  27  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  28  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  29  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  30  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
  31  * THE POSSIBILITY OF SUCH DAMAGE.
  32  *
  33  */
  34
  35 %{
  36 /* scan.l: scanner description for menu compiler. */
  37
  38 #include <stdio.h>
  39 #include <string.h>
  40 #include "defs.h"
  41 #include "parse.h"
  42
  43 static int level;       /* For nested comments. */
  44 static int comstart;    /* line number of comment start. */
  45
  46 %}
  47
  48 %x COMMENT
  49 %x BRACE
  50
  51 %option noinput
  52
  53 %%
  54
  55 [ \t]+  { /* ignore spaces and tabs */ }
  56
  57 [\n]    { line_no++; }
  58
  59 "="|";"|","|"("|")"     { return (int)yytext[0]; }
  60
  61 x       { return X; }
  62
  63 y       { return Y; }
  64
  65 w       { return W; }
  66
  67 h       { return H; }
  68
  69 no      { return NO; }
  70
  71 box     { return BOX; }
  72
  73 sub     { return SUB; }
  74
  75 help    { return HELP; }
  76
  77 menu    { return MENU; }
  78
  79 menus   { return MENUS; }
  80
  81 next    { return NEXT; }
  82
  83 exit    { return  EXIT; }
  84
  85 exitstring { return  EXITSTRING; }
  86
  87 title   { return TITLE; }
  88
  89 action  { return ACTION; }
  90
  91 endwin  { return ENDWIN; }
  92
  93 option  { return OPTION; }
  94
  95 default { return DEFAULT; }
  96
  97 display { return DISPLAY; }
  98
  99 error { return ERROR; }
 100
 101 allow { return ALLOW; }
 102
 103 dynamic { return DYNAMIC; }
 104
 105 messages { return MESSAGES; }
 106
 107 scrollable { return SCROLLABLE; }
 108
 109 shortcut { return SHORTCUT; }
 110
 111 clear { return CLEAR; }
 112
 113 always { return ALWAYS; }
 114
 115 scroll { return SCROLL; }
 116
 117 \"([^\"\n]*(\\\")?)*\"  {
 118           yylval.s_value = strdup (yytext);
 119           max_strlen = max_strlen > strlen(yytext)
 120                        ? max_strlen : strlen(yytext) + 1;
 121           return STRING;
 122         }
 123
 124 [a-zA-Z][a-zA-Z0-9_]* {
 125           yylval.s_value = strdup(yytext);
 126           return(NAME);
 127         }
 128
 129 0|[-1-9][0-9]* {
 130           yylval.s_value = strdup(yytext);
 131           return(INT_CONST);
 132         }
 133
 134 "'"[^'\\]|(\\[athrn])|(\\[0-9][0-9]?[0-9]?)"'" {
 135           yylval.s_value = strdup(yytext);
 136           return(CHAR_CONST);
 137         }
 138
 139 "/*"  { level = 1; comstart = line_no; BEGIN COMMENT; }
 140
 141 <COMMENT>"/*" { level++; }
 142
 143 <COMMENT>"*/" { if (level-- == 1) BEGIN 0; }
 144
 145 <COMMENT>"\n" { line_no++; }
 146
 147 <COMMENT><<EOF>> {
 148                 yyerror ("EOF inside a comment that started at line %d",
 149                          comstart);
 150                 exit (1);
 151         }
 152
 153 <COMMENT>.  {/* eat character */}
 154
 155 "{"     { level = 1; BEGIN BRACE; }
 156
 157 <BRACE>"{"      { buff_add_ch(yytext[0]); level++; }
 158
 159 <BRACE>"}"      { if (level-- == 1)  {
 160                         BEGIN 0;
 161                         yylval.s_value = buff_copy();
 162                         return CODE;
 163                   } else
 164                         buff_add_ch (yytext[0]);
 165                 }
 166
 167 <BRACE>"\n"     { buff_add_ch (yytext[0]); line_no++; }
 168
 169 <BRACE>.        { buff_add_ch (yytext[0]); }
 170
 171 .       {
 172           if (yytext[0] < ' ')
 173             yyerror ("illegal character: ^%c",yytext[0] + '@');
 174           else
 175             if (yytext[0] > '~')
 176               yyerror ("illegal character: \\%3d", (int) yytext[0]);
 177             else
 178               yyerror ("illegal character: %s",yytext);
 179
 180           /* To quiet the compiler */
 181           if (0) unput(0);
 182         }
 183 %%
 184
 185 #ifdef SCAN
 186 YYSTYPE yylval;
 187
 188 main()
 189 {
 190   int val;
 191
 192   line_no = 1;
 193   while ( (val = yylex()) != 0 )
 194     printf ("val = %d\n yytext = %s\n", val, yytext);
 195 }
 196 #endif