binutils/arlex.l

   1 %option noinput nounput noyywrap
   2
   3 %{
   4 /* arlex.l - Strange script language lexer */
   5
   6 /* Copyright (C) 1992-2024 Free Software Foundation, Inc.
   7
   8    This file is part of GNU Binutils.
   9
  10    This program is free software; you can redistribute it and/or modify
  11    it under the terms of the GNU General Public License as published by
  12    the Free Software Foundation; either version 3 of the License, or
  13    (at your option) any later version.
  14
  15    This program is distributed in the hope that it will be useful,
  16    but WITHOUT ANY WARRANTY; without even the implied warranty of
  17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18    GNU General Public License for more details.
  19
  20    You should have received a copy of the GNU General Public License
  21    along with this program; if not, write to the Free Software
  22    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  23    MA 02110-1301, USA.  */
  24
  25
  26 /* Contributed by Steve Chamberlain <sac@cygnus.com>.  */
  27
  28 #define DONTDECLARE_MALLOC
  29 #include "ansidecl.h"
  30 #include "libiberty.h"
  31 #include "arparse.h"
  32
  33 #ifndef YY_NO_UNPUT
  34 #define YY_NO_UNPUT
  35 #endif
  36
  37 extern int yylex (void);
  38
  39 int linenumber;
  40 %}
  41
  42 %a 10000
  43 %o 25000
  44
  45 %%
  46
  47 "ADDLIB"        { return ADDLIB; }
  48 "ADDMOD"        { return ADDMOD; }
  49 "CLEAR"         { return CLEAR; }
  50 "CREATE"        { return CREATE; }
  51 "DELETE"        { return DELETE; }
  52 "DIRECTORY"     { return DIRECTORY; }
  53 "END"           { return END; }
  54 "EXTRACT"       { return EXTRACT; }
  55 "FULLDIR"       { return FULLDIR; }
  56 "HELP"          { return HELP; }
  57 "LIST"          { return LIST; }
  58 "OPEN"          { return OPEN; }
  59 "REPLACE"       { return REPLACE; }
  60 "VERBOSE"       { return VERBOSE; }
  61 "SAVE"          { return SAVE; }
  62 "addlib"        { return ADDLIB; }
  63 "addmod"        { return ADDMOD; }
  64 "clear"         { return CLEAR; }
  65 "create"        { return CREATE; }
  66 "delete"        { return DELETE; }
  67 "directory"     { return DIRECTORY; }
  68 "end"           { return END; }
  69 "extract"       { return EXTRACT; }
  70 "fulldir"       { return FULLDIR; }
  71 "help"          { return HELP; }
  72 "list"          { return LIST; }
  73 "open"          { return OPEN; }
  74 "replace"       { return REPLACE; }
  75 "verbose"       { return VERBOSE; }
  76 "save"          { return SAVE; }
  77 "+\n"           { linenumber ++; }
  78 "("             { return '('; }
  79 ")"             { return ')'; }
  80 ","             { return ','; }
  81 [A-Za-z0-9/\\$:.\-\_\+]+  {
  82                 yylval.name =  xstrdup (yytext);
  83                 return FILENAME;
  84                 }
  85 "*".*           { }
  86 ";".*           { }
  87 " "             { }
  88 "\n"             { linenumber ++; return NEWLINE; }
  89
  90 %%