Home My Page Projects Code Snippets Project Openings 3D graphics for Standard ML
Summary Activity SCM

SCM Repository

[sml3d] View of /gen/gl-spec.lex
ViewVC logotype

View of /gen/gl-spec.lex

Parent Directory Parent Directory | Revision Log Revision Log


Revision 261 - (download) (annotate)
Thu Sep 25 09:42:19 2008 UTC (11 years, 2 months ago) by jhr
File size: 915 byte(s)
  Added support for <instance> tag.
%name GLSpecLex;

%defs (
  structure T = GLSpecTokens
  type lex_result = T.token
  fun eof () = T.EOF
);

%let ws = [ \t\n\v\f\r];
%let digit = [0-9];
%let alpha = [a-zA-Z];

{ws}+	=> (skip());

"constant"	=> (T.TAG_constant);
"constants"	=> (T.TAG_constants);
"extension"	=> (T.TAG_extension);
"extensions"	=> (T.TAG_extensions);
"function"	=> (T.TAG_function);
"functions"	=> (T.TAG_functions);
"instance"	=> (T.TAG_instance);
"param"		=> (T.TAG_param);
"name"		=> (T.ATR_name);
"value"		=> (T.ATR_value);
"returnType"	=> (T.ATR_returnType);
"type"		=> (T.ATR_type);

"gl"		=> (T.TAG_gl);
"wgl"		=> (T.TAG_wgl);
"glx"		=> (T.TAG_glx);
"agl"		=> (T.TAG_agl);

"<"		=> (T.LOPEN);
">"		=> (T.ROPEN);
"</"		=> (T.LCLOSE);
"/>"		=> (T.RCLOSE);
"="		=> (T.EQ);

"\""[^\"]*"\""	=> (T.STR(String.substring(yytext, 1, size yytext - 2)));

.		=> (
print(concat["ignoring #\"", String.toString yytext, "\"\n"]); skip());


root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0