jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

hepts: enum types & alias

Browse source 
The graphical simulator hepts now support type aliasing.
This commit is contained in:
Gwenaël Delaval 2016-01-18 17:24:51 +01:00
parent 2aed0f6537
commit e9540a2159
1 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
compiler/main/hepts.ml
View file

@ -269,15 +269,20 @@ let create_input v_name v_ty n (table:GPack.table) =
| Tid{ qual = Pervasives; name = "bool" } -> | Tid{ qual = Pervasives; name = "bool" } ->
new boolean_input table n new boolean_input table n
| Tid(name) -> | Tid(name) ->
begin try let rec input name =
let ty = find_type name in let _ = check_type name in
begin match ty with begin try
| Tenum(clist) -> new enum_input name.qual clist table n let ty = find_type name in
| _ -> new entry_input "" table n begin
end match ty with
with Not_found -> | Tenum(clist) -> new enum_input name.qual clist table n
new entry_input "" table n | Talias(Tid name) -> input name
end | _ -> new entry_input "" table n
end
with Not_found ->
new entry_input "" table n
end in
input name
| _ -> failwith("Arrays and tuples not yet implemented") | _ -> failwith("Arrays and tuples not yet implemented")
let create_output v_name _v_ty n (table:GPack.table) = let create_output v_name _v_ty n (table:GPack.table) =