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