usr.bin/msgc/msgscan.l

   1 /*      $NetBSD: msgscan.l,v 1.7 2012/03/06 16:26:01 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 message compiler. */
  37
  38 #include <sys/cdefs.h>
  39
  40 #if defined(__RCSID) && !defined(lint)
  41 __RCSID("$NetBSD: msgscan.l,v 1.7 2012/03/06 16:26:01 mbalmer Exp $");
  42 #endif
  43
  44
  45 #include <stdio.h>
  46 #include <string.h>
  47 #include "defs.h"
  48 #include "msgparse.h"
  49
  50 static int level;       /* For nested comments. */
  51
  52 %}
  53
  54 %x COMMENT
  55 %x BRACE
  56
  57 %option noinput
  58
  59 %%
  60
  61 [ \t]+  { /* ignore spaces and tabs */ }
  62
  63 [\n]    { line_no++; }
  64
  65 ";"     { return (int)yytext[0]; }
  66
  67 message { return MESSAGE; }
  68
  69 [a-zA-Z][a-zA-Z0-9_]* {
  70           yylval.s_value = strdup(yytext);
  71           return(NAME);
  72         }
  73
  74 "/*"  { level = 1; BEGIN COMMENT;  }
  75
  76 <COMMENT>"/*" { level++; }
  77
  78 <COMMENT>"*/" { if (level-- == 1) BEGIN 0; }
  79
  80 <COMMENT>"\n" { line_no++; }
  81
  82 <COMMENT><<EOF>> { yyerror ("EOF inside a comment."); exit (1); }
  83
  84 <COMMENT>.  {/* eat character */}
  85
  86 "{"     { level = 1; BEGIN BRACE; }
  87
  88 <BRACE>"\\{"    { buff_add_ch('{'); }
  89
  90 <BRACE>"\\}"    { buff_add_ch('}'); }
  91
  92 <BRACE>"{"      { buff_add_ch(yytext[0]); level++; }
  93
  94 <BRACE>"}"      { if (level-- == 1)  {
  95                         BEGIN 0;
  96                         yylval.s_value = buff_copy();
  97                         return VALUE;
  98                   } else
  99                         buff_add_ch (yytext[0]);
 100                 }
 101
 102 <BRACE>"\n"     { buff_add_ch (yytext[0]); line_no++; }
 103
 104 <BRACE>.        { buff_add_ch (yytext[0]); }
 105
 106 .       {
 107           if (yytext[0] < ' ')
 108             yyerror ("illegal character: ^%c",yytext[0] + '@');
 109           else
 110             if (yytext[0] > '~')
 111               yyerror ("illegal character: \\%3d", (int) yytext[0]);
 112             else
 113               yyerror ("illegal character: %s",yytext);
 114
 115           /* To quiet the compiler */
 116           if (0) unput(0);
 117         }
 118 %%
 119
 120 #ifdef SCAN
 121 YYSTYPE yylval;
 122
 123 main()
 124 {
 125   int val;
 126
 127   line_no = 1;
 128   while ( (val = yylex()) != 0 )
 129     printf ("val = %d\n yytext = %s\n", val, yytext);
 130 }
 131 #endif