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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [gas/] [itbl-lex.l] - Blame information for rev 38

Go to most recent revision | Details | Compare with Previous | View Log


/* itbl-lex.l
   Copyright 1997, 1998, 2001, 2002, 2005, 2006, 2007
   Free Software Foundation, Inc.
 
   This file is part of GAS, the GNU Assembler.
 
   GAS is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 3, or (at your option)
   any later version.
 
   GAS is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
 
   You should have received a copy of the GNU General Public License
   along with GAS; see the file COPYING.  If not, write to the Free
   Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
   02110-1301, USA.  */
 
%{
#include "as.h"
#include "itbl-lex.h"
#include 
 
#ifdef DEBUG
#define DBG(x) printf x
#define MDBG(x) printf x
#else
#define DBG(x)
#define MDBG(x)
#endif
 
int insntbl_line = 1;
%}
 
ALNUM   [A-Za-z0-9_]
DIGIT   [0-9]
ALPHA   [A-Za-z_]
HEX     [0-9A-Fa-f]
 
%%
 
"creg"|"CREG" {
    return CREG;
  }
"dreg"|"DREG" {
    return DREG;
  }
"greg"|"GREG" {
    return GREG;
  }
"immed"|"IMMED" {
    return IMMED;
  }
"addr"|"ADDR" {
    return ADDR;
  }
"insn"|"INSN" {
    return INSN;
  }
"p"{DIGIT} {
    yytext[yyleng] = 0;
    yylval.processor = strtoul (yytext+1, 0, 0);
    return PNUM;
  }
{DIGIT}+ {
    yytext[yyleng] = 0;
    yylval.num = strtoul (yytext, 0, 0);
    return NUM;
  }
"0x"{HEX}+ {
    yytext[yyleng] = 0;
    yylval.num = strtoul (yytext, 0, 0);
    return NUM;
  }
{ALPHA}{ALNUM}* {
    yytext[yyleng] = 0;
    yylval.str = strdup (yytext);
    return ID;
  }
";"|"#" {
    int c;
    while ((c = input ()) !=  EOF)
      {
        if (c ==  '\n')
        {
                unput (c);
                break;
        }
      }
  }
"\n"    {
    insntbl_line++;
    MDBG (("in lex, NL = %d (x%x)\n", NL, NL));
    return NL;
  }
" "|"\t" {
  }
. {
    MDBG (("char = %x, %d\n", yytext[0], yytext[0]));
    return yytext[0];
  }
%%
 
#ifndef yywrap
int
yywrap ()
  {
    return 1;
  }
#endif

Line No.	Rev	Author	Line
1	38	julius	`/* itbl-lex.l`
2			`Copyright 1997, 1998, 2001, 2002, 2005, 2006, 2007`
3			`Free Software Foundation, Inc.`
4
5			`This file is part of GAS, the GNU Assembler.`
6
7			`GAS is free software; you can redistribute it and/or modify`
8			`it under the terms of the GNU General Public License as published by`
9			`the Free Software Foundation; either version 3, or (at your option)`
10			`any later version.`
11
12			`GAS is distributed in the hope that it will be useful,`
13			`but WITHOUT ANY WARRANTY; without even the implied warranty of`
14			`MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the`
15			`GNU General Public License for more details.`
16
17			`You should have received a copy of the GNU General Public License`
18			`along with GAS; see the file COPYING. If not, write to the Free`
19			`Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA`
20			`02110-1301, USA. */`
21
22			`%{`
23			`#include "as.h"`
24			`#include "itbl-lex.h"`
25			`#include`
26
27			`#ifdef DEBUG`
28			`#define DBG(x) printf x`
29			`#define MDBG(x) printf x`
30			`#else`
31			`#define DBG(x)`
32			`#define MDBG(x)`
33			`#endif`
34
35			`int insntbl_line = 1;`
36			`%}`
37
38			`ALNUM [A-Za-z0-9_]`
39			`DIGIT [0-9]`
40			`ALPHA [A-Za-z_]`
41			`HEX [0-9A-Fa-f]`
42
43			`%%`
44
45			`"creg"\|"CREG" {`
46			`return CREG;`
47			`}`
48			`"dreg"\|"DREG" {`
49			`return DREG;`
50			`}`
51			`"greg"\|"GREG" {`
52			`return GREG;`
53			`}`
54			`"immed"\|"IMMED" {`
55			`return IMMED;`
56			`}`
57			`"addr"\|"ADDR" {`
58			`return ADDR;`
59			`}`
60			`"insn"\|"INSN" {`
61			`return INSN;`
62			`}`
63			`"p"{DIGIT} {`
64			`yytext[yyleng] = 0;`
65			`yylval.processor = strtoul (yytext+1, 0, 0);`
66			`return PNUM;`
67			`}`
68			`{DIGIT}+ {`
69			`yytext[yyleng] = 0;`
70			`yylval.num = strtoul (yytext, 0, 0);`
71			`return NUM;`
72			`}`
73			`"0x"{HEX}+ {`
74			`yytext[yyleng] = 0;`
75			`yylval.num = strtoul (yytext, 0, 0);`
76			`return NUM;`
77			`}`
78			`{ALPHA}{ALNUM}* {`
79			`yytext[yyleng] = 0;`
80			`yylval.str = strdup (yytext);`
81			`return ID;`
82			`}`
83			`";"\|"#" {`
84			`int c;`
85			`while ((c = input ()) != EOF)`
86			`{`
87			`if (c == '\n')`
88			`{`
89			`unput (c);`
90			`break;`
91			`}`
92			`}`
93			`}`
94			`"\n" {`
95			`insntbl_line++;`
96			`MDBG (("in lex, NL = %d (x%x)\n", NL, NL));`
97			`return NL;`
98			`}`
99			`" "\|"\t" {`
100			`}`
101			`. {`
102			`MDBG (("char = %x, %d\n", yytext[0], yytext[0]));`
103			`return yytext[0];`
104			`}`
105			`%%`
106
107			`#ifndef yywrap`
108			`int`
109			`yywrap ()`
110			`{`
111			`return 1;`
112			`}`
113			`#endif`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [gas/] [itbl-lex.l] - Blame information for rev 38