44 lines
1.5 KiB
OCaml
Executable file
44 lines
1.5 KiB
OCaml
Executable file
{
|
|
|
|
(* Partie recopiée dans le fichier CaML généré. *)
|
|
(* Ouverture de modules exploités dans les actions *)
|
|
(* Déclarations de types, de constantes, de fonctions, d'exceptions exploités dans les actions *)
|
|
|
|
open Tokens
|
|
exception Printf
|
|
|
|
}
|
|
|
|
(* Déclaration d'expressions régulières exploitées par la suite *)
|
|
let chiffre = ['0' - '9']
|
|
let minuscule = ['a' - 'z']
|
|
let majuscule = ['A' - 'Z']
|
|
let alphabet = minuscule | majuscule
|
|
let alphanum = alphabet | chiffre | '_'
|
|
let commentaire =
|
|
(* Commentaire fin de ligne *)
|
|
"#" [^'\n']*
|
|
|
|
rule scanner = parse
|
|
| ['\n' '\t' ' ']+ { (scanner lexbuf) }
|
|
| commentaire { (scanner lexbuf) }
|
|
| "machine" { UL_MACHINE::(scanner lexbuf) }
|
|
| "." { UL_PT::(scanner lexbuf) }
|
|
| "{" { UL_ACCOUV::(scanner lexbuf) }
|
|
| "}" { UL_ACCFER::(scanner lexbuf) }
|
|
| "to" { UL_TO::(scanner lexbuf) }
|
|
| "on" { UL_ON::(scanner lexbuf) }
|
|
| "event" { UL_EVENT::(scanner lexbuf) }
|
|
| "from" { UL_FROM::(scanner lexbuf) }
|
|
| "region" { UL_REGION::(scanner lexbuf) }
|
|
| "ends" { UL_ENDS::(scanner lexbuf) }
|
|
| "starts" { UL_STARTS::(scanner lexbuf) }
|
|
| "state" { UL_STATE::(scanner lexbuf) }
|
|
| eof { [UL_FIN] }
|
|
| alphabet+ as texte { (UL_IDENT texte)::(scanner lexbuf) }
|
|
| _ as texte { (print_string "Erreur lexicale : ");(print_char texte);(print_newline ()); (UL_ERREUR::(scanner lexbuf)) }
|
|
|
|
{
|
|
|
|
}
|