OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [binutils-2.20.1/] [binutils/] [arlex.l] - Blame information for rev 818

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 205 julius
%{
2
/* arlex.l - Strange script language lexer */
3
 
4
/* Copyright 1992, 1997, 2000, 2001, 2002, 2003, 2004, 2005, 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 .  */
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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.