Page MenuHomeHEPForge
Files F8310419

model_lexer.mll
No OneTemporary
Actions

model_lexer.mll
View Options

(* $Id: model_lexer.mll 791 2009-06-12 21:33:53Z kilian $
Copyright (C) 1999-2009 by
Wolfgang Kilian <kilian@hep.physik.uni-siegen.de>
Thorsten Ohl <ohl@physik.uni-wuerzburg.de>
Juergen Reuter <juergen.reuter@physik.uni-freiburg.de>
WHIZARD 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 2, or (at your option)
any later version.
WHIZARD 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., 675 Mass Ave, Cambridge, MA 02139, USA. *)
{
open Model_parser
let unquote s =
String.sub s 1 (String.length s - 2)
}
let digit = ['0'-'9']
let upper = ['A'-'Z']
let lower = ['a'-'z']
let char = upper | lower
let white = [' ' '\t' '\n']
(* We use a very liberal definition of strings in order to avoid
the need for quotes in the declaration section. *)
rule token = parse
white { token lexbuf } (* skip blanks *)
| '%' [^'\n']* '\n'
{ token lexbuf } (* skip comments *)
| "particle" { PARTICLE }
| "coupling" { COUPLING }
| "vertex" { VERTEX }
| "author" { AUTHOR }
| "version" { VERSION }
| "created" { CREATED }
| "revised" { REVISED }
| ',' { COMMA }
| '=' { EQUAL }
| ':' { COLON }
| [^ ' ' '\t' '\n' ',' '=' ':' '{' '}']+
{ STRING (Lexing.lexeme lexbuf) }
| '"' [^ '"']* '"'
{ STRING (unquote (Lexing.lexeme lexbuf)) }
| '{' [^ '}']* '}'
{ EXPR (unquote (Lexing.lexeme lexbuf)) }
| '}' { failwith "unexpected `}' outside of expression" }
| eof { END }

File Metadata

Mime Type
text/plain
Expires
Sat, Dec 21, 6:26 PM (8 h, 36 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
4016153
Default Alt Text
model_lexer.mll (1 KB)

Event Timeline