[deliverable/binutils-gdb.git] / binutils / arlex.l

%option noinput nounput

%{
/* arlex.l - Strange script language lexer */

/* Copyright 1992, 1997, 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2011
   Free Software Foundation, Inc.

   This file is part of GNU Binutils.

   This program 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 of the License, or
   (at your option) any later version.

   This program 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 this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
   MA 02110-1301, USA.  */


/* Contributed by Steve Chamberlain <sac@cygnus.com>.  */

#define DONTDECLARE_MALLOC
#include "ansidecl.h"
#include "libiberty.h"
#include "arparse.h"

#ifndef YY_NO_UNPUT
#define YY_NO_UNPUT
#endif
 
extern int yylex (void);

int linenumber;
%}

%a 10000
%o 25000

%%

"ADDLIB"   	{ return ADDLIB; }
"ADDMOD"   	{ return ADDMOD; }
"CLEAR"   	{ return CLEAR; }
"CREATE"   	{ return CREATE; }
"DELETE"   	{ return DELETE; }
"DIRECTORY"   	{ return DIRECTORY; }
"END"   	{ return END; }
"EXTRACT"   	{ return EXTRACT; }
"FULLDIR"   	{ return FULLDIR; }
"HELP"   	{ return HELP; }
"LIST"		{ return LIST; }
"OPEN"   	{ return OPEN; }
"REPLACE"   	{ return REPLACE; }
"VERBOSE"   	{ return VERBOSE; }
"SAVE"   	{ return SAVE; }
"addlib"   	{ return ADDLIB; }
"addmod"   	{ return ADDMOD; }
"clear"   	{ return CLEAR; }
"create"   	{ return CREATE; }
"delete"   	{ return DELETE; }
"directory"   	{ return DIRECTORY; }
"end"   	{ return END; }
"extract"   	{ return EXTRACT; }
"fulldir"   	{ return FULLDIR; }
"help"   	{ return HELP; }
"list"		{ return LIST; }
"open"   	{ return OPEN; }
"replace"   	{ return REPLACE; }
"verbose"   	{ return VERBOSE; }
"save"   	{ return SAVE; }
"+\n"           { linenumber ++; }
"("             { return '('; }
")"             { return ')'; }
","             { return ','; }
[A-Za-z0-9/\\$:.\-\_]+  { 	
		yylval.name =  xstrdup (yytext);
		return FILENAME;
		}
"*".* 		{ }
";".* 		{ }
" "		{ }
"\n"	 	 { linenumber ++; return NEWLINE; }	

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