finished parser for now

This commit is contained in:
Antoine Grimod 2022-12-09 17:01:04 +01:00
parent 428b0a75e2
commit 0c2341fa0b
2 changed files with 326 additions and 45 deletions

View File

@ -1,44 +1,62 @@
%{ %{
open Ast
exception MyParsingError of string exception MyParsingError of string
let current_location () = symbol_start_pos (), symbol_end_pos () let current_location () = symbol_start_pos (), symbol_end_pos ()
let defined_nodes : (Ast.ident, Ast.t_node) Hashtbl.t = Hashtbl.create 100 let defined_nodes : (ident, t_node) Hashtbl.t = Hashtbl.create 100
let defined_vars : (Ast.ident, Ast.t_var) Hashtbl.t = Hashtbl.create 100 let defined_vars : (ident, t_var) Hashtbl.t = Hashtbl.create 100
let fetch_node (n: Ast.ident) = let fetch_node (n: ident) =
match Hashtbl.find_opt defined_nodes n with match Hashtbl.find_opt defined_nodes n with
| None -> | None ->
raise (MyParsingError raise (MyParsingError
("The node "^n^" does not exist.")) ("The node "^n^" does not exist."))
| Some node -> node | Some node -> node
let fetch_var (n: Ast.ident) : Ast.t_var = let fetch_var (n: ident) : t_var =
match Hashtbl.find_opt defined_vars n with match Hashtbl.find_opt defined_vars n with
| None -> | None ->
raise (MyParsingError raise (MyParsingError
("The var "^n^" does not exist.")) ("The var "^n^" does not exist."))
| Some var -> var | Some var -> var
let type_var (v: t_var) =
match v with
| IVar _ -> FTBase TInt
| BVar _ -> FTBase TBool
| RVar _ -> FTBase TReal
let type_exp : t_expression -> full_ty = function
| EVar (full_ty , _) -> full_ty
| EMonOp (full_ty , _ , _) -> full_ty
| EBinOp (full_ty , _ , _ , _) -> full_ty
| ETriOp (full_ty , _ , _ , _ , _) -> full_ty
| EComp (full_ty , _ , _ , _) -> full_ty
| EWhen (full_ty , _ , _) -> full_ty
| EConst (full_ty , _) -> full_ty
| ETuple (full_ty , _) -> full_ty
| EApp (full_ty , _ , _) -> full_ty
let concat_varlist (t1, e1) (t2, e2) = let concat_varlist (t1, e1) (t2, e2) =
Ast.( (
match t1, t2 with match t1, t2 with
| FTList lt1, FTList lt2 -> (FTList (lt1 @ lt2), e1@e2) | FTList lt1, FTList lt2 -> (FTList (lt1 @ lt2), e1@e2)
| _ -> | _ ->
raise (MyParsingError "This exception should not have been raised.")) raise (MyParsingError "This exception should not have been raised."))
let make_ident (v : Ast.t_var) : Ast.t_varlist = let make_ident (v : t_var) : t_varlist =
match v with match v with
| IVar _ -> Ast.(FTList [FTBase TInt ], [v]) | IVar _ -> (FTList [FTBase TInt ], [v])
| BVar _ -> Ast.(FTList [FTBase TBool], [v]) | BVar _ -> (FTList [FTBase TBool], [v])
| RVar _ -> Ast.(FTList [FTBase TReal], [v]) | RVar _ -> (FTList [FTBase TReal], [v])
let add_ident (v : Ast.t_var) (l: Ast.t_varlist) : Ast.t_varlist = let add_ident (v : t_var) (l: t_varlist) : t_varlist =
match v, l with match v, l with
| IVar _, (FTList tl, l) -> Ast.(FTList (FTBase TInt :: tl), v :: l) | IVar _, (FTList tl, l) -> (FTList (FTBase TInt :: tl), v :: l)
| BVar _, (FTList tl, l) -> Ast.(FTList (FTBase TBool :: tl), v :: l) | BVar _, (FTList tl, l) -> (FTList (FTBase TBool :: tl), v :: l)
| RVar _, (FTList tl, l) -> Ast.(FTList (FTBase TReal :: tl), v :: l) | RVar _, (FTList tl, l) -> (FTList (FTBase TReal :: tl), v :: l)
| _ -> raise (MyParsingError "This exception should not have been raised.") | _ -> raise (MyParsingError "This exception should not have been raised.")
%} %}
@ -175,10 +193,8 @@ equation:
pattern: pattern:
| IDENT | IDENT
{ let v = fetch_var $1 in { let v = fetch_var $1 in
match v with Ast.(FTList [type_var v], [v])
| IVar _ -> Ast.(FTList [FTBase TInt ], [v]) }
| BVar _ -> Ast.(FTList [FTBase TBool], [v])
| RVar _ -> Ast.(FTList [FTBase TReal], [v]) }
| LPAREN ident_comma_list_patt RPAREN { $2 }; | LPAREN ident_comma_list_patt RPAREN { $2 };
ident_comma_list_patt: ident_comma_list_patt:
@ -188,44 +204,48 @@ ident_comma_list_patt:
expr: expr:
/* Note: EQUAL does not follow the nomenclature CMP_, ... */ /* Note: EQUAL does not follow the nomenclature CMP_, ... */
| LPAREN expr RPAREN { $2 } | LPAREN expr RPAREN { $2 }
| IDENT { EVar (fetch_var $1) } | IDENT { let v = fetch_var $1 in EVar (type_var v, v) }
/* Unary operators */ /* Unary operators */
| MO_not expr { EMonOp (MOp_not, $2) } | MO_not expr { EMonOp (type_exp $2, MOp_not, $2) }
| MO_pre expr { EMonOp (MOp_pre, $2) } | MO_pre expr { EMonOp (type_exp $2, MOp_pre, $2) }
| MINUS expr { EMonOp (MOp_minus, $2) } | MINUS expr { EMonOp (type_exp $2, MOp_minus, $2) }
| PLUS expr { $2 } | PLUS expr { $2 }
/* Binary operators */ /* Binary operators */
| expr PLUS expr { EBinOp (BOp_add, $1, $3) } | expr PLUS expr { EBinOp (type_exp $1, BOp_add, $1, $3) }
| expr MINUS expr { EBinOp (BOp_sub, $1, $3) } | expr MINUS expr { EBinOp (type_exp $1, BOp_sub, $1, $3) }
| expr BO_mul expr { EBinOp (BOp_mul, $1, $3) } | expr BO_mul expr { EBinOp (type_exp $1, BOp_mul, $1, $3) }
| expr BO_div expr { EBinOp (BOp_div, $1, $3) } | expr BO_div expr { EBinOp (type_exp $1, BOp_div, $1, $3) }
| expr BO_mod expr { EBinOp (BOp_mod, $1, $3) } | expr BO_mod expr { EBinOp (type_exp $1, BOp_mod, $1, $3) }
| expr BO_and expr { EBinOp (BOp_and, $1, $3) } | expr BO_and expr { EBinOp (type_exp $1, BOp_and, $1, $3) }
| expr BO_or expr { EBinOp (BOp_or, $1, $3) } | expr BO_or expr { EBinOp (type_exp $1, BOp_or, $1, $3) }
| expr BO_arrow expr { EBinOp (BOp_arrow, $1, $3) } | expr BO_arrow expr { EBinOp (type_exp $1, BOp_arrow, $1, $3) }
/* Comparison operators */ /* Comparison operators */
| expr EQUAL expr { EComp (COp_eq, $1, $3) } | expr EQUAL expr { EComp (Ast.FTBase Ast.TBool, COp_eq, $1, $3) }
| expr CMP_neq expr { EComp (COp_neq, $1, $3) } | expr CMP_neq expr { EComp (Ast.FTBase Ast.TBool, COp_neq, $1, $3) }
| expr CMP_le expr { EComp (COp_le, $1, $3) } | expr CMP_le expr { EComp (Ast.FTBase Ast.TBool, COp_le, $1, $3) }
| expr CMP_lt expr { EComp (COp_lt, $1, $3) } | expr CMP_lt expr { EComp (Ast.FTBase Ast.TBool, COp_lt, $1, $3) }
| expr CMP_ge expr { EComp (COp_ge, $1, $3) } | expr CMP_ge expr { EComp (Ast.FTBase Ast.TBool, COp_ge, $1, $3) }
| expr CMP_gt expr { EComp (COp_gt, $1, $3) } | expr CMP_gt expr { EComp (Ast.FTBase Ast.TBool, COp_gt, $1, $3) }
/* Tertiary operators */ /* Tertiary operators */
| IF expr THEN expr ELSE expr { ETriOp (TOp_if, $2, $4, $6) } | IF expr THEN expr ELSE expr { ETriOp (type_exp $4, TOp_if, $2, $4, $6) }
| TO_merge expr expr expr { ETriOp (TOp_merge, $2, $3, $4) } | TO_merge expr expr expr { ETriOp (type_exp $4, TOp_merge, $2, $3, $4) }
/* When is neither a binop (a * 'a -> 'a) or a comp ('a * 'a -> bool) */ /* When is neither a binop (a * 'a -> 'a) or a comp ('a * 'a -> bool) */
| WHEN expr expr { EWhen ($2, $3) } | expr WHEN expr { EWhen (type_exp $1, $1, $3) }
/* Constants */ /* Constants */
| CONST_INT { EConst (CInt $1) } | CONST_INT { EConst (Ast.FTBase Ast.TInt, CInt $1) }
| CONST_BOOL { EConst (CBool $1) } | CONST_BOOL { EConst (Ast.FTBase Ast.TBool, CBool $1) }
| CONST_REAL { EConst (CReal $1) } | CONST_REAL { EConst (Ast.FTBase Ast.TReal, CReal $1) }
/* Tuples */ /* Tuples */
| LPAREN expr_comma_list RPAREN { $2 } | LPAREN expr_comma_list RPAREN { $2 }
/* Applications */ /* Applications */
| IDENT LPAREN expr_comma_list RPAREN | IDENT LPAREN expr_comma_list RPAREN
{ let name = $1 in { let name = $1 in
let node = fetch_node name in
let args = $3 in let args = $3 in
EApp (fetch_node name, args) } match node.n_type with
| Ast.FTArr (_, t) -> EApp (t, fetch_node name, args)
| _ -> raise (MyParsingError "This exception should not have been raised from the dead.")
}
; ;
expr_comma_list: expr_comma_list:
@ -233,13 +253,13 @@ expr_comma_list:
{ let e = $1 in { let e = $1 in
match e with match e with
| ETuple _ -> e | ETuple _ -> e
| _ -> ETuple [e] } | _ -> ETuple (Ast.FTList [type_exp e], [e]) }
| expr COMMA expr_comma_list | expr COMMA expr_comma_list
{ let e = $1 in { let e = $1 in
let le = $3 in let le = $3 in
match e, le with match e, le with
| ETuple t, ETuple t' -> ETuple (t @ t') | ETuple (Ast.FTList l1, t), ETuple (Ast.FTList l2, t') -> ETuple (Ast.FTList (l1@l2), t @ t')
| _, ETuple t' -> ETuple (e :: t') | _, ETuple (Ast.FTList lt, t') -> ETuple (Ast.FTList ((type_exp e)::lt), e :: t')
| _, _ -> raise (MyParsingError "This exception should not have been \ | _, _ -> raise (MyParsingError "This exception should not have been \
raised.") } raised.") }
; ;

261
tags Normal file
View File

@ -0,0 +1,261 @@
!_TAG_FILE_FORMAT 2 /extended format; --format=1 will not append ;" to lines/
!_TAG_FILE_SORTED 1 /0=unsorted, 1=sorted, 2=foldcase/
!_TAG_OUTPUT_EXCMD mixed /number, pattern, mixed, or combineV2/
!_TAG_OUTPUT_FILESEP slash /slash or backslash/
!_TAG_OUTPUT_MODE u-ctags /u-ctags or e-ctags/
!_TAG_PATTERN_LENGTH_LIMIT 96 /0 for no limit/
!_TAG_PROC_CWD /home/sofamaniac/Nextcloud/cours/M2/synchronous_systems/project/ //
!_TAG_PROGRAM_AUTHOR Universal Ctags Team //
!_TAG_PROGRAM_NAME Universal Ctags /Derived from Exuberant Ctags/
!_TAG_PROGRAM_URL https://ctags.io/ /official site/
!_TAG_PROGRAM_VERSION 5.9.0 /p5.9.20220828.0/
ARROW src/_build/parser.ml /^ | ARROW$/;" C type:token
ARROW src/_build/parser.mli /^ | ARROW$/;" C type:token
Ast src/_build/ast.ml /^type ident = string$/;" M
Ast src/ast.ml /^exception MyTypeError of string$/;" M
BOOL src/_build/parser.ml /^ | BOOL$/;" C type:token
BOOL src/_build/parser.mli /^ | BOOL$/;" C type:token
BO_and src/_build/parser.ml /^ | BO_and$/;" C type:token
BO_and src/_build/parser.mli /^ | BO_and$/;" C type:token
BO_div src/_build/parser.ml /^ | BO_div$/;" C type:token
BO_div src/_build/parser.mli /^ | BO_div$/;" C type:token
BO_ge src/_build/parser.ml /^ | BO_ge$/;" C type:token
BO_ge src/_build/parser.mli /^ | BO_ge$/;" C type:token
BO_gt src/_build/parser.ml /^ | BO_gt$/;" C type:token
BO_gt src/_build/parser.mli /^ | BO_gt$/;" C type:token
BO_le src/_build/parser.ml /^ | BO_le$/;" C type:token
BO_le src/_build/parser.mli /^ | BO_le$/;" C type:token
BO_lt src/_build/parser.ml /^ | BO_lt$/;" C type:token
BO_lt src/_build/parser.mli /^ | BO_lt$/;" C type:token
BO_mod src/_build/parser.ml /^ | BO_mod$/;" C type:token
BO_mod src/_build/parser.mli /^ | BO_mod$/;" C type:token
BO_mul src/_build/parser.ml /^ | BO_mul$/;" C type:token
BO_mul src/_build/parser.mli /^ | BO_mul$/;" C type:token
BO_neq src/_build/parser.ml /^ | BO_neq$/;" C type:token
BO_neq src/_build/parser.mli /^ | BO_neq$/;" C type:token
BO_or src/_build/parser.ml /^ | BO_or$/;" C type:token
BO_or src/_build/parser.mli /^ | BO_or$/;" C type:token
BOp_add src/_build/ast.ml /^ | BOp_add | BOp_sub | BOp_mul | BOp_div | BOp_mod$/;" C type:binop
BOp_add src/ast.ml /^ | BOp_add | BOp_sub | BOp_mul | BOp_div | BOp_mod$/;" C type:binop
BOp_and src/_build/ast.ml /^ | BOp_and | BOp_or | BOp_eq | BOp_neq$/;" C type:binop
BOp_and src/ast.ml /^ | BOp_and | BOp_or | BOp_arrow$/;" C type:binop
BOp_arrow src/ast.ml /^ | BOp_and | BOp_or | BOp_arrow$/;" C type:binop
BOp_div src/_build/ast.ml /^ | BOp_add | BOp_sub | BOp_mul | BOp_div | BOp_mod$/;" C type:binop
BOp_div src/ast.ml /^ | BOp_add | BOp_sub | BOp_mul | BOp_div | BOp_mod$/;" C type:binop
BOp_eq src/_build/ast.ml /^ | BOp_and | BOp_or | BOp_eq | BOp_neq$/;" C type:binop
BOp_ge src/_build/ast.ml /^ | BOp_le | BOp_lt | BOp_ge | BOp_gt$/;" C type:binop
BOp_gt src/_build/ast.ml /^ | BOp_le | BOp_lt | BOp_ge | BOp_gt$/;" C type:binop
BOp_le src/_build/ast.ml /^ | BOp_le | BOp_lt | BOp_ge | BOp_gt$/;" C type:binop
BOp_lt src/_build/ast.ml /^ | BOp_le | BOp_lt | BOp_ge | BOp_gt$/;" C type:binop
BOp_mod src/_build/ast.ml /^ | BOp_add | BOp_sub | BOp_mul | BOp_div | BOp_mod$/;" C type:binop
BOp_mod src/ast.ml /^ | BOp_add | BOp_sub | BOp_mul | BOp_div | BOp_mod$/;" C type:binop
BOp_mul src/_build/ast.ml /^ | BOp_add | BOp_sub | BOp_mul | BOp_div | BOp_mod$/;" C type:binop
BOp_mul src/ast.ml /^ | BOp_add | BOp_sub | BOp_mul | BOp_div | BOp_mod$/;" C type:binop
BOp_neq src/_build/ast.ml /^ | BOp_and | BOp_or | BOp_eq | BOp_neq$/;" C type:binop
BOp_or src/_build/ast.ml /^ | BOp_and | BOp_or | BOp_eq | BOp_neq$/;" C type:binop
BOp_or src/ast.ml /^ | BOp_and | BOp_or | BOp_arrow$/;" C type:binop
BOp_sub src/_build/ast.ml /^ | BOp_add | BOp_sub | BOp_mul | BOp_div | BOp_mod$/;" C type:binop
BOp_sub src/ast.ml /^ | BOp_add | BOp_sub | BOp_mul | BOp_div | BOp_mod$/;" C type:binop
BVar src/ast.ml /^ | BVar of ident$/;" C type:t_var
CBool src/_build/ast.ml /^ | CBool of bool$/;" C type:const
CBool src/ast.ml /^ | CBool of bool$/;" C type:const
CInt src/_build/ast.ml /^ | CInt of int$/;" C type:const
CInt src/ast.ml /^ | CInt of int$/;" C type:const
COLON src/_build/parser.ml /^ | COLON$/;" C type:token
COLON src/_build/parser.mli /^ | COLON$/;" C type:token
COMMA src/_build/parser.ml /^ | COMMA$/;" C type:token
COMMA src/_build/parser.mli /^ | COMMA$/;" C type:token
CONST_BOOL src/_build/parser.ml /^ | CONST_BOOL of (bool)$/;" C type:token
CONST_BOOL src/_build/parser.mli /^ | CONST_BOOL of (bool)$/;" C type:token
CONST_INT src/_build/parser.ml /^ | CONST_INT of (int)$/;" C type:token
CONST_INT src/_build/parser.mli /^ | CONST_INT of (int)$/;" C type:token
COp_eq src/ast.ml /^ | COp_eq | COp_neq$/;" C type:compop
COp_ge src/ast.ml /^ | COp_le | COp_lt | COp_ge | COp_gt$/;" C type:compop
COp_gt src/ast.ml /^ | COp_le | COp_lt | COp_ge | COp_gt$/;" C type:compop
COp_le src/ast.ml /^ | COp_le | COp_lt | COp_ge | COp_gt$/;" C type:compop
COp_lt src/ast.ml /^ | COp_le | COp_lt | COp_ge | COp_gt$/;" C type:compop
COp_neq src/ast.ml /^ | COp_eq | COp_neq$/;" C type:compop
CReal src/ast.ml /^ | CReal of real$/;" C type:const
Calc src/_build/calc.ml /^open Ast$/;" M
EApp src/ast.ml /^ | EApp of full_ty * t_node * t_expression$/;" C type:t_expression
EBinOp src/ast.ml /^ | EBinOp of full_ty * binop * t_expression * t_expression$/;" C type:t_expression
EComp src/ast.ml /^ | EComp of full_ty * compop * t_expression * t_expression$/;" C type:t_expression
EConst src/ast.ml /^ | EConst of full_ty * const$/;" C type:t_expression
ELSE src/_build/parser.ml /^ | ELSE$/;" C type:token
ELSE src/_build/parser.mli /^ | ELSE$/;" C type:token
EMonOp src/ast.ml /^ | EMonOp of full_ty * monop * t_expression$/;" C type:t_expression
EOF src/_build/parser.ml /^ | EOF$/;" C type:token
EOF src/_build/parser.mli /^ | EOF$/;" C type:token
EQUAL src/_build/parser.ml /^ | EQUAL$/;" C type:token
EQUAL src/_build/parser.mli /^ | EQUAL$/;" C type:token
ETriOp src/ast.ml /^ | ETriOp of full_ty * triop * t_expression * t_expression * t_expression$/;" C type:t_expression
ETuple src/ast.ml /^ | ETuple of full_ty * (t_expression list)$/;" C type:t_expression
EVar src/ast.ml /^ | EVar of full_ty * t_var$/;" C type:t_expression
EWhen src/ast.ml /^ | EWhen of full_ty * t_expression * t_expression$/;" C type:t_expression
FTArr src/ast.ml /^ | FTArr of full_ty * full_ty$/;" C type:full_ty
FTBase src/ast.ml /^ | FTBase of base_ty$/;" C type:full_ty
FTList src/ast.ml /^ | FTList of full_ty list$/;" C type:full_ty
IDENT src/_build/parser.ml /^ | IDENT of (string)$/;" C type:token
IDENT src/_build/parser.mli /^ | IDENT of (string)$/;" C type:token
IF src/_build/parser.ml /^ | IF$/;" C type:token
IF src/_build/parser.mli /^ | IF$/;" C type:token
INT src/_build/parser.ml /^ | INT$/;" C type:token
INT src/_build/parser.mli /^ | INT$/;" C type:token
IVar src/ast.ml /^ | IVar of ident$/;" C type:t_var
LET src/_build/parser.ml /^ | LET$/;" C type:token
LET src/_build/parser.mli /^ | LET$/;" C type:token
LPAREN src/_build/parser.ml /^ | LPAREN$/;" C type:token
LPAREN src/_build/parser.mli /^ | LPAREN$/;" C type:token
Lexer src/_build/lexer.ml /^# 1 "lexer.mll"$/;" M
Lexing_error src/_build/lexer.ml /^ exception Lexing_error of string$/;" e
MINUS src/_build/parser.ml /^ | MINUS$/;" C type:token
MINUS src/_build/parser.mli /^ | MINUS$/;" C type:token
MO_not src/_build/parser.ml /^ | MO_not$/;" C type:token
MO_not src/_build/parser.mli /^ | MO_not$/;" C type:token
MOp_minus src/_build/ast.ml /^ | MOp_minus$/;" C type:monop
MOp_minus src/ast.ml /^ | MOp_not | MOp_minus | MOp_pre$/;" C type:monop
MOp_not src/_build/ast.ml /^ | MOp_not$/;" C type:monop
MOp_not src/ast.ml /^ | MOp_not | MOp_minus | MOp_pre$/;" C type:monop
MOp_pre src/ast.ml /^ | MOp_not | MOp_minus | MOp_pre$/;" C type:monop
Main src/main.ml /^open Ast$/;" M
MyTypeError src/ast.ml /^exception MyTypeError of string$/;" e
NODE src/_build/parser.ml /^ | NODE$/;" C type:token
NODE src/_build/parser.mli /^ | NODE$/;" C type:token
PE_BinOp src/_build/ast.ml /^ | PE_BinOp of binop * p_expression * p_expression$/;" C type:p_expression
PE_Const src/_build/ast.ml /^ | PE_Const of const$/;" C type:p_expression
PE_MonOp src/_build/ast.ml /^ | PE_MonOp of monop * p_expression$/;" C type:p_expression
PE_TriOp src/_build/ast.ml /^ | PE_TriOp of triop * p_expression * p_expression * p_expression$/;" C type:p_expression
PE_Var src/_build/ast.ml /^ | PE_Var of ident$/;" C type:p_expression
PE_app src/_build/ast.ml /^ | PE_app of ident * p_expression list$/;" C type:p_expression
PE_arrow src/_build/ast.ml /^ | PE_arrow of p_expression * p_expression$/;" C type:p_expression
PE_pre src/_build/ast.ml /^ | PE_pre of p_expression$/;" C type:p_expression
PE_tuple src/_build/ast.ml /^ | PE_tuple of p_expression list$/;" C type:p_expression
PLUS src/_build/parser.ml /^ | PLUS$/;" C type:token
PLUS src/_build/parser.mli /^ | PLUS$/;" C type:token
PP_tuple src/_build/ast.ml /^ | PP_tuple of ident list$/;" C type:p_pattern
PP_var src/_build/ast.ml /^ | PP_var of ident$/;" C type:p_pattern
PRE src/_build/parser.ml /^ | PRE$/;" C type:token
PRE src/_build/parser.mli /^ | PRE$/;" C type:token
Parser src/_build/parser.ml /^type token =$/;" M
Parser src/_build/parser.mli /^type token =$/;" M
Pp src/_build/pp.ml /^open Ast$/;" M
Pp src/pp.ml /^open Ast$/;" M
RETURNS src/_build/parser.ml /^ | RETURNS$/;" C type:token
RETURNS src/_build/parser.mli /^ | RETURNS$/;" C type:token
RPAREN src/_build/parser.ml /^ | RPAREN$/;" C type:token
RPAREN src/_build/parser.mli /^ | RPAREN$/;" C type:token
RVar src/ast.ml /^ | RVar of ident$/;" C type:t_var
SEMICOL src/_build/parser.ml /^ | SEMICOL$/;" C type:token
SEMICOL src/_build/parser.mli /^ | SEMICOL$/;" C type:token
TBool src/ast.ml /^ | TBool$/;" C type:base_ty
TEL src/_build/parser.ml /^ | TEL$/;" C type:token
TEL src/_build/parser.mli /^ | TEL$/;" C type:token
THEN src/_build/parser.ml /^ | THEN$/;" C type:token
THEN src/_build/parser.mli /^ | THEN$/;" C type:token
TInt src/ast.ml /^ | TInt$/;" C type:base_ty
TOp_if src/_build/ast.ml /^ | TOp_if$/;" C type:triop
TOp_if src/ast.ml /^ | TOp_if | TOp_merge$/;" C type:triop
TOp_merge src/ast.ml /^ | TOp_if | TOp_merge$/;" C type:triop
TReal src/ast.ml /^ | TReal$/;" C type:base_ty
Tbool src/_build/ast.ml /^ | Tbool$/;" C type:base_ty
Tint src/_build/ast.ml /^ | Tint$/;" C type:base_ty
Utils src/utils.ml /^let rec list_repeat n elt =$/;" M
VAR src/_build/parser.ml /^ | VAR$/;" C type:token
VAR src/_build/parser.mli /^ | VAR$/;" C type:token
_ src/_build/calc.ml /^let _ =$/;" f
_ src/_build/parser.ml /^let _ = parse_error;;$/;" f
_ src/main.ml /^let _ =$/;" f
__ocaml_lex_tables src/_build/lexer.ml /^let __ocaml_lex_tables = {$/;" f
__ocaml_lex_token_rec src/_build/lexer.ml /^and __ocaml_lex_token_rec lexbuf __ocaml_lex_state =$/;" f
all Makefile /^all:$/;" t
all src/Makefile /^all:$/;" t
base_ty src/_build/ast.ml /^type base_ty =$/;" t
base_ty src/ast.ml /^type base_ty =$/;" t
binop src/_build/ast.ml /^type binop =$/;" t
binop src/ast.ml /^type binop =$/;" t
check_dependencies src/main.ml /^let check_dependencies (a: t_nodelist) = Some a$/;" f
check_well_formedness src/main.ml /^let check_well_formedness (a: t_nodelist) = Some a$/;" f
clean Makefile /^clean:$/;" t
clean src/Makefile /^clean:$/;" t
compop src/ast.ml /^type compop =$/;" t
const src/_build/ast.ml /^type const =$/;" t
const src/ast.ml /^type const =$/;" t
current_location src/_build/parser.ml /^ let current_location () = symbol_start_pos (), symbol_end_pos ()$/;" f
exit_error src/main.ml /^let exit_error (s: string) : unit =$/;" f
full_ty src/ast.ml /^type full_ty =$/;" t
id_or_keywork src/_build/lexer.ml /^ let id_or_keywork =$/;" v
ident src/_build/ast.ml /^type ident = string$/;" t
ident src/ast.ml /^type ident = string$/;" t
list_repeat src/utils.ml /^let rec list_repeat n elt =$/;" f
location src/_build/ast.ml /^type location = Lexing.position * Lexing.position$/;" t
location src/ast.ml /^type location = Lexing.position * Lexing.position$/;" t
main src/_build/parser.ml /^let main (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) =$/;" f
main src/_build/parser.mli /^val main :$/;" p type:token
monop src/_build/ast.ml /^type monop =$/;" t
monop src/ast.ml /^type monop =$/;" t
n_equations src/ast.ml /^ n_equations: t_eqlist;$/;" r type:t_node
n_inputs src/ast.ml /^ n_inputs: t_varlist;$/;" r type:t_node
n_local_vars src/ast.ml /^ n_local_vars: t_varlist;$/;" r type:t_node
n_name src/ast.ml /^ n_name : ident;$/;" r type:t_node
n_outputs src/ast.ml /^ n_outputs: t_varlist;$/;" r type:t_node
n_type src/ast.ml /^ n_type : full_ty;$/;" r type:t_node
p_equation src/_build/ast.ml /^type p_equation =$/;" t
p_expression src/_build/ast.ml /^type p_expression =$/;" t
p_node src/_build/ast.ml /^type p_node =$/;" t
p_pattern src/_build/ast.ml /^type p_pattern =$/;" t
p_prog src/_build/ast.ml /^type p_prog = p_node list$/;" t
peq_expr src/_build/ast.ml /^ peq_expr: p_expression }$/;" r type:p_equation
peq_patt src/_build/ast.ml /^ { peq_patt: p_pattern;$/;" r type:p_equation
pn_equations src/_build/ast.ml /^ pn_equations: p_equation list;$/;" r type:p_node
pn_input src/_build/ast.ml /^ pn_input: (ident * base_ty) list;$/;" r type:p_node
pn_loc src/_build/ast.ml /^ pn_loc: location; }$/;" r type:p_node
pn_local_vars src/_build/ast.ml /^ pn_local_vars: (ident* base_ty) list;$/;" r type:p_node
pn_name src/_build/ast.ml /^ { pn_name: ident;$/;" r type:p_node
pn_output src/_build/ast.ml /^ pn_output: (ident * base_ty) list;$/;" r type:p_node
pp_ast src/pp.ml /^let pp_ast fmt prog =$/;" f
pp_equations src/_build/pp.ml /^let rec pp_equations fmt eqs =$/;" f
pp_equations src/pp.ml /^let rec pp_equations fmt: t_eqlist -> unit = function$/;" f
pp_expression src/_build/pp.ml /^let pp_expression =$/;" v
pp_expression src/pp.ml /^let pp_expression =$/;" v
pp_loc src/_build/pp.ml /^let pp_loc fmt (start, stop) =$/;" f
pp_loc src/pp.ml /^let pp_loc fmt (start, stop) =$/;" f
pp_node src/pp.ml /^let pp_node fmt node =$/;" f
pp_node_vars src/_build/pp.ml /^let rec pp_node_vars fmt vars =$/;" f
pp_nodes src/_build/pp.ml /^let rec pp_nodes fmt nodes =$/;" f
pp_nodes src/pp.ml /^let rec pp_nodes fmt nodes =$/;" f
pp_pattern src/_build/pp.ml /^let pp_pattern fmt pat =$/;" f
pp_prog src/_build/pp.ml /^let pp_prog fmt prog =$/;" f
pp_varlist src/pp.ml /^let rec pp_varlist fmt : t_varlist -> unit = function$/;" f
print_debug src/main.ml /^let print_debug d s =$/;" f
print_verbose src/main.ml /^let print_verbose v s =$/;" f
real src/ast.ml /^type real = float$/;" t
run src/main.ml /^let run verbose debug (passes: (t_nodelist -> t_nodelist option) list)$/;" f
simplify_prog src/main.ml /^let simplify_prog (a: t_nodelist) = Some a$/;" f
t_eqlist src/ast.ml /^and t_eqlist = t_equation list$/;" t
t_equation src/ast.ml /^and t_equation = t_varlist * t_expression$/;" t
t_expression src/ast.ml /^type t_expression =$/;" t
t_node src/ast.ml /^and t_node =$/;" t
t_nodelist src/ast.ml /^type t_nodelist = t_node list$/;" t
t_var src/ast.ml /^type t_var =$/;" t
t_varlist src/ast.ml /^and t_varlist = full_ty * (t_var list)$/;" t
token src/_build/lexer.ml /^let rec token lexbuf =$/;" f
token src/_build/parser.ml /^type token =$/;" t
token src/_build/parser.mli /^type token =$/;" t
triop src/_build/ast.ml /^type triop =$/;" t
triop src/ast.ml /^type triop =$/;" t
yyact src/_build/parser.ml /^let yyact = [|$/;" v
yycheck src/_build/parser.ml /^let yycheck = "\\046\\000\\$/;" v
yydefred src/_build/parser.ml /^let yydefred = "\\000\\000\\$/;" v
yydgoto src/_build/parser.ml /^let yydgoto = "\\002\\000\\$/;" v
yygindex src/_build/parser.ml /^let yygindex = "\\000\\000\\$/;" v
yylen src/_build/parser.ml /^let yylen = "\\002\\000\\$/;" v
yylhs src/_build/parser.ml /^let yylhs = "\\255\\255\\$/;" v
yynames_block src/_build/parser.ml /^let yynames_block = "\\$/;" v
yynames_const src/_build/parser.ml /^let yynames_const = "\\$/;" v
yyrindex src/_build/parser.ml /^let yyrindex = "\\000\\000\\$/;" v
yysindex src/_build/parser.ml /^let yysindex = "\\002\\000\\$/;" v
yytable src/_build/parser.ml /^let yytable = "\\058\\000\\$/;" v
yytables src/_build/parser.ml /^let yytables =$/;" v
yytablesize src/_build/parser.ml /^let yytablesize = 319$/;" v
yytransl_block src/_build/parser.ml /^let yytransl_block = [|$/;" v
yytransl_const src/_build/parser.ml /^let yytransl_const = [|$/;" v