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" } ->
new boolean_input table n
| Tid(name) ->
begin try
let ty = find_type name in
begin match ty with
| Tenum(clist) -> new enum_input name.qual clist table n
| _ -> new entry_input "" table n
end
with Not_found ->
new entry_input "" table n
end
let rec input name =
let _ = check_type name in
begin try
let ty = find_type name in
begin
match ty with
| Tenum(clist) -> new enum_input name.qual clist table n
| Talias(Tid name) -> input name
| _ -> 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")
let create_output v_name _v_ty n (table:GPack.table) =