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