libcpu/i386_lex.l

   1 %{
   2 /* Copyright (C) 2004, 2005, 2007, 2008 Red Hat, Inc.
   3    Written by Ulrich Drepper <drepper@redhat.com>, 2004.
   4
   5    This file is free software; you can redistribute it and/or modify
   6    it under the terms of either
   7
   8      * the GNU Lesser General Public License as published by the Free
   9        Software Foundation; either version 3 of the License, or (at
  10        your option) any later version
  11
  12    or
  13
  14      * the GNU General Public License as published by the Free
  15        Software Foundation; either version 2 of the License, or (at
  16        your option) any later version
  17
  18    or both in parallel, as here.
  19
  20    elfutils is distributed in the hope that it will be useful, but
  21    WITHOUT ANY WARRANTY; without even the implied warranty of
  22    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  23    General Public License for more details.
  24
  25    You should have received copies of the GNU General Public License and
  26    the GNU Lesser General Public License along with this program.  If
  27    not, see <http://www.gnu.org/licenses/>.  */
  28
  29 #ifdef HAVE_CONFIG_H
  30 # include <config.h>
  31 #endif
  32
  33 #include <ctype.h>
  34 #include <error.h>
  35 #include <libintl.h>
  36
  37 #include <system.h>
  38 #include "i386_parse.h"
  39
  40
  41 static void eat_to_eol (void);
  42 static void invalid_char (int ch);
  43 %}
  44
  45 ID              [a-zA-Z_][a-zA-Z0-9_/]*
  46 ID2             [a-zA-Z0-9_:/]*
  47 NUMBER          [0-9]+
  48 WHITE           [[:space:]]+
  49
  50 %option yylineno
  51 %option never-interactive
  52 %option noyywrap
  53
  54
  55 %x MAIN
  56
  57 %%
  58
  59 "%mask"                         { return kMASK; }
  60
  61 "%prefix"                       { return kPREFIX; }
  62 "%suffix"                       { return kSUFFIX; }
  63
  64 "%synonym"                      { return kSYNONYM; }
  65
  66 {NUMBER}                        { i386_lval.num = strtoul (yytext, NULL, 10);
  67                                   return kNUMBER; }
  68
  69 "%%"                            { BEGIN (MAIN); return kPERCPERC; }
  70
  71
  72 <MAIN>"0"                       { return '0'; }
  73 <MAIN>"1"                       { return '1'; }
  74
  75 <INITIAL,MAIN>"{"{ID2}"}"       { i386_lval.str = xstrndup (yytext + 1,
  76                                                             yyleng - 2);
  77                                   return kBITFIELD; }
  78
  79 <MAIN>"INVALID"                 { i386_lval.str = (void *) -1l;
  80                                   return kID; }
  81
  82 <MAIN>{ID}                      { i386_lval.str = xstrndup (yytext, yyleng);
  83                                   return kID; }
  84
  85 <MAIN>","                       { return ','; }
  86
  87 <MAIN>":"                       { return ':'; }
  88
  89 <INITIAL,MAIN>^"\n"             { /* IGNORE */ }
  90
  91 <INITIAL,MAIN>"\n"              { return '\n'; }
  92
  93 <INITIAL,MAIN>^"#"              { eat_to_eol (); }
  94
  95 {WHITE}                         { /* IGNORE */ }
  96
  97 <MAIN>{WHITE}                   { return kSPACE; }
  98
  99 <MAIN>.                         { i386_lval.ch = *yytext; return kCHAR; }
 100
 101 .                               { invalid_char (*yytext); }
 102
 103
 104 %%
 105
 106 static void
 107 eat_to_eol (void)
 108 {
 109   while (1)
 110     {
 111       int c = input ();
 112
 113       if (c == EOF || c == '\n')
 114         break;
 115     }
 116 }
 117
 118 static void
 119 invalid_char (int ch)
 120 {
 121   error (0, 0, (isascii (ch)
 122                 ? gettext ("invalid character '%c' at line %d; ignored")
 123                 : gettext ("invalid character '\\%o' at line %d; ignored")),
 124          ch, yylineno);
 125 }
 126
 127 // Local Variables:
 128 // mode: C
 129 // End: