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

Trying to fix Sequence

Browse source
This commit is contained in:
Nicolas PENELOUX 2023-10-24 21:22:02 +02:00
parent f8d9068012
commit 0c79e84739
1 changed files with 47 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

50
flap/src/hopix/hopixParser.mly
View file

@ -44,6 +44,7 @@
%left PLUS MINUS
%left SLASH STAR
%left ref1
%left fun1
%left app1
@ -174,7 +175,6 @@ simple_pattern:
match l with | [alone] -> Position.value alone | _ -> PTuple(l)
}
/* Annotation de type */
| p=located(simple_pattern) COLON ty=located(ty) {
PTypeAnnotation(p, ty)
@ -288,10 +288,16 @@ simple_expression:
| i=located(var_identifier) tl=option(type_list) {
Variable(i, tl)
}
| LPAREN e=located(expression) COLON t=located(ty) RPAREN {
TypeAnnotation(e, t)
}
/* Tagged Value - Construction d'une donnée */
/*
| const=located(constructor) tl=option(type_list) el=optionlist(expr_list) {
Tagged(const, tl, el)
}
*/
/* Tuple n = 0 - Construction d'un 0-uplet */
| LPAREN RPAREN {
Tuple([])
@ -324,19 +330,49 @@ expr_list:
el
}
expression:
mid_expression:
|e=simple_expression{
e
}
/* Parenthésage */
| LPAREN e=expression RPAREN {
e
}
/* Field record */
| e=located(mid_expression) DOT l=located(label_identifier) tl=option(type_list) {
Field(e, l, tl)
}
/* Application */
| e1=located(mid_expression) e2=located(mid_expression) %prec app1 {
Apply(e1, e2)
}
| const=located(constructor) tl=option(type_list) el=optionlist(expr_list) {
Tagged(const, tl, el)
}
expression:
| e=mid_expression {
e
}
/* Field - Projection d’un champ */
/*
| e=located(expression) DOT l=located(label_identifier) tl=option(type_list) {
Field(e, l, tl)
}
/* Sequence - Séquencement *
* Pas sûr, voir s'il ne faut pas une troisième couche d'expression */
| e=located(simple_expression)
SEMICOLON e_list=separated_nonempty_list(SEMICOLON, located(simple_expression)) {
/*
| e=located(mid_expression)
SEMICOLON e_list=separated_nonempty_list(SEMICOLON, located(mid_expression)) {
Sequence(e :: e_list)
}*/
| e=located(expression) SEMICOLON e2=located(expression){
Sequence([e;e2])
}
/* | e1=located(expression) SEMICOLON e2=located(expression) {
Sequence([e1; e2])
@ -350,6 +386,7 @@ expression:
Fun(FunctionDefinition(p, e))
}
/* Application */
/*
| e1=located(expression) e2=located(expression) %prec app1 {
Apply(e1, e2)
}
@ -430,11 +467,14 @@ expression:
}
/* Parenthésage
* Pas sûr mais je vois pas sinon */
/*
| LPAREN e=expression RPAREN {
e
}
}*/
/* Annotation de type
* (e : ty) */
/*
| LPAREN e=located(expression) COLON t=located(ty) RPAREN {
TypeAnnotation(e, t)
}