libs-base/Source/stringsfile.l
Andrew McCallum 9150d93f9c New file.
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@1882 72102866-910b-0410-8b05-ffd578937521
1996-10-31 17:05:21 +00:00

148 lines
1.9 KiB
Text

%{
#include <Foundation/NSObject.h>
#include <Foundation/NSString.h>
#include "stringsfile.tab.h"
#ifdef sfwrap
#undef sfwrap
#endif
int sfwrap()
{
return 1;
}
%}
quote \"
semicolen \;
equals \=
label [a-zA-Z][a-zA-Z0-9_]*
quoted [^"]*\"
whitespace [ \t\n]
startComment \/\*
endComment \*\/
%x QUOTE COMMENT
%%
<COMMENT>{endComment} { BEGIN INITIAL; }
<COMMENT>. ;
<QUOTE>{quoted} {
if (sfleng == 1)
{
BEGIN INITIAL;
sflval.obj = [[[NSString alloc] init] autorelease];
return QUOTED;
}
if (sftext[sfleng - 2] == '\\')
yymore();
else
{
BEGIN INITIAL;
sflval.obj = [[[NSString alloc] initWithCString: sftext length: sfleng - 1] autorelease];
return QUOTED;
}
}
{quote} {BEGIN QUOTE;}
{startComment} {BEGIN COMMENT;}
{label} {
sflval.obj = [NSString stringWithCString: sftext];
return LABEL;
}
{semicolen} {return SEMICOLEN;}
{equals} {return EQUALS;}
{whitespace}+ ;
. { return ERROR; }
%%
%{
#include <Foundation/NSObject.h>
#include <Foundation/NSString.h>
#include "stringsfile.tab.h"
#ifdef sfwrap
#undef sfwrap
#endif
int sfwrap()
{
return 1;
}
%}
quote \"
semicolen \;
equals \=
label [a-zA-Z][a-zA-Z0-9_]*
quoted [^"]*\"
whitespace [ \t\n]
startComment \/\*
endComment \*\/
%x QUOTE COMMENT
%%
<COMMENT>{endComment} { BEGIN INITIAL; }
<COMMENT>. ;
<QUOTE>{quoted} {
if (sfleng == 1)
{
BEGIN INITIAL;
sflval.obj = [[[NSString alloc] init] autorelease];
return QUOTED;
}
if (sftext[sfleng - 2] == '\\')
yymore();
else
{
BEGIN INITIAL;
sflval.obj = [[[NSString alloc] initWithCString: sftext length: sfleng - 1] autorelease];
return QUOTED;
}
}
{quote} {BEGIN QUOTE;}
{startComment} {BEGIN COMMENT;}
{label} {
sflval.obj = [NSString stringWithCString: sftext];
return LABEL;
}
{semicolen} {return SEMICOLEN;}
{equals} {return EQUALS;}
{whitespace}+ ;
. { return ERROR; }
%%