usr.bin/msgc/msgscan.l

   1 /*      $NetBSD: msgscan.l,v 1.4 2003/07/17 08:33:05 lukem 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. All advertising materials mentioning features or use of this software
  18  *    must display the following acknowledgement:
  19  *      This product includes software develooped for the NetBSD Project by
  20  *      Piermont Information Systems Inc.
  21  * 4. The name of Piermont Information Systems Inc. may not be used to endorse
  22  *    or promote products derived from this software without specific prior
  23  *    written permission.
  24  *
  25  * THIS SOFTWARE IS PROVIDED BY PIERMONT INFORMATION SYSTEMS INC. ``AS IS''
  26  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  27  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  28  * ARE DISCLAIMED. IN NO EVENT SHALL PIERMONT INFORMATION SYSTEMS INC. BE
  29  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  30  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  31  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  32  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  33  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  34  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
  35  * THE POSSIBILITY OF SUCH DAMAGE.
  36  *
  37  */
  38
  39 %{
  40 /* scan.l: scanner description for message compiler. */
  41
  42 #include <sys/cdefs.h>
  43
  44 #if defined(__RCSID) && !defined(lint)
  45 __RCSID("$NetBSD: msgscan.l,v 1.4 2003/07/17 08:33:05 lukem Exp $");
  46 #endif
  47
  48
  49 #include <stdio.h>
  50 #include <string.h>
  51 #include "defs.h"
  52 #include "msgparse.h"
  53
  54 static int level;       /* For nested comments. */
  55
  56 %}
  57
  58 %x COMMENT
  59 %x BRACE
  60
  61 %option noinput
  62
  63 %%
  64
  65 [ \t]+  { /* ignore spaces and tabs */ }
  66
  67 [\n]    { line_no++; }
  68
  69 ";"     { return (int)yytext[0]; }
  70
  71 message { return MESSAGE; }
  72
  73 [a-zA-Z][a-zA-Z0-9_]* {
  74           yylval.s_value = strdup(yytext);
  75           return(NAME);
  76         }
  77
  78 "/*"  { level = 1; BEGIN COMMENT;  }
  79
  80 <COMMENT>"/*" { level++; }
  81
  82 <COMMENT>"*/" { if (level-- == 1) BEGIN 0; }
  83
  84 <COMMENT>"\n" { line_no++; }
  85
  86 <COMMENT><<EOF>> { yyerror ("EOF inside a comment."); exit (1); }
  87
  88 <COMMENT>.  {/* eat character */}
  89
  90 "{"     { level = 1; BEGIN BRACE; }
  91
  92 <BRACE>"\\{"    { buff_add_ch('{'); }
  93
  94 <BRACE>"\\}"    { buff_add_ch('}'); }
  95
  96 <BRACE>"{"      { buff_add_ch(yytext[0]); level++; }
  97
  98 <BRACE>"}"      { if (level-- == 1)  {
  99                         BEGIN 0;
 100                         yylval.s_value = buff_copy();
 101                         return VALUE;
 102                   } else
 103                         buff_add_ch (yytext[0]);
 104                 }
 105
 106 <BRACE>"\n"     { buff_add_ch (yytext[0]); line_no++; }
 107
 108 <BRACE>.        { buff_add_ch (yytext[0]); }
 109
 110 .       {
 111           if (yytext[0] < ' ')
 112             yyerror ("illegal character: ^%c",yytext[0] + '@');
 113           else
 114             if (yytext[0] > '~')
 115               yyerror ("illegal character: \\%3d", (int) yytext[0]);
 116             else
 117               yyerror ("illegal character: %s",yytext);
 118
 119           /* To quiet the compiler */
 120           if (0) unput(0);
 121         }
 122 %%
 123
 124 #ifdef SCAN
 125 YYSTYPE yylval;
 126
 127 main()
 128 {
 129   int val;
 130
 131   line_no = 1;
 132   while ( (val = yylex()) != 0 )
 133     printf ("val = %d\n yytext = %s\n", val, yytext);
 134 }
 135 #endif