Paris7/compilation
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity

fmt

Browse source
This commit is contained in:
Mylloon 2023-12-05 19:45:57 +01:00
parent 0ec66864fb
commit 6bbb1f0996
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 28 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
flap/src/hopix/hopixTypechecker.ml
View file

@ -90,16 +90,17 @@ and synth_pattern
: HopixTypes.typing_environment -> HopixAST.pattern Position.located : HopixTypes.typing_environment -> HopixAST.pattern Position.located
-> HopixTypes.aty * HopixTypes.typing_environment -> HopixTypes.aty * HopixTypes.typing_environment
= =
fun env Position.{ value = p; position = pos } -> match p with fun env Position.{ value = p; position = pos } ->
| PWildcard -> failwith "PWildcard" match p with
| PLiteral l-> failwith "Pliteral" | PWildcard -> failwith "synth_pattern | PWildcard"
| PVariable pv -> failwith "PVariable" | PLiteral l -> failwith "synth_pattern | Pliteral"
| PTypeAnnotation(p,ty) -> failwith "PTypeAnnot" | PVariable pv -> failwith "synth_pattern | PVariable"
| PTuple(plist) -> failwith "PTuple" | PTypeAnnotation (p, ty) -> failwith "synth_pattern | PTypeAnnot"
| POr(plist) -> failwith "POr" | PTuple plist -> failwith "synth_pattern | PTuple"
| PAnd (plist) -> failwith "PAnd" | POr plist -> failwith "synth_pattern | POr"
| PTaggedValue(cons,tlist,plist) -> failwith "PTagged" | PAnd plist -> failwith "synth_pattern | PAnd"
| PRecord(plist,tlist) -> failwith "PRecord" | PTaggedValue (cons, tlist, plist) -> failwith "synth_pattern | PTagged"
| PRecord (plist, tlist) -> failwith "synth_pattern | PRecord"
and synth_variable and synth_variable
: HopixTypes.typing_environment -> identifier Position.located : HopixTypes.typing_environment -> identifier Position.located
@ -215,9 +216,9 @@ and synth_fun
-> expression Position.located -> HopixTypes.aty -> expression Position.located -> HopixTypes.aty
= =
fun tenv pat expr -> fun tenv pat expr ->
let pat_type, tenv = synth_pattern tenv pat in let pat_type, tenv = synth_pattern tenv pat in
let expr_type = synth_expression tenv expr in let expr_type = synth_expression tenv expr in
ATyArrow(pat_type,expr_type) ATyArrow (pat_type, expr_type)
and synth_tannot and synth_tannot
: HopixTypes.typing_environment -> expression Position.located -> ty Position.located : HopixTypes.typing_environment -> expression Position.located -> ty Position.located
@ -233,7 +234,10 @@ and synth_field
: HopixTypes.typing_environment -> expression Position.located : HopixTypes.typing_environment -> expression Position.located
-> label Position.located -> ty Position.located list option -> HopixTypes.aty -> label Position.located -> ty Position.located list option -> HopixTypes.aty
= =
fun tenv expr lbl tlist -> failwith "synth_field" (*let expr_type = synth_expression tenv expr in fun tenv expr lbl tlist ->
(* TODO *)
failwith "synth_field"
(*let expr_type = synth_expression tenv expr in
match expr_type with match expr_type with
| ATyCon(cons,atlist) -> | ATyCon(cons,atlist) ->
( (
@ -256,12 +260,13 @@ and synth_field
) )
| _ -> failwith "Ceci n'est pas un label" | _ -> failwith "Ceci n'est pas un label"
*) *)
and synth_tuple and synth_tuple
: HopixTypes.typing_environment -> expression Position.located list -> HopixTypes.aty : HopixTypes.typing_environment -> expression Position.located list -> HopixTypes.aty
= =
fun tenv elist -> let list_type = List.map( fun tenv elist ->
fun x -> synth_expression tenv x let list_type = List.map (fun x -> synth_expression tenv x) elist in
) elist in HopixTypes.ATyTuple(list_type) HopixTypes.ATyTuple list_type
and synth_sequence and synth_sequence
: HopixTypes.typing_environment -> expression Position.located list -> HopixTypes.aty : HopixTypes.typing_environment -> expression Position.located list -> HopixTypes.aty