msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Implicit arguments in GF. Works only in PGF for now.

Browse Source
This commit is contained in:
krasimir
2009-10-02 13:25:12 +00:00
parent 40373704ff
commit 2732a7a22e
9 changed files with 168 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/GF/Grammar/Parser.y
View File

@@ -414,7 +414,8 @@ Exp3
Exp4 :: { Term }
Exp4
: Exp4 Exp5 { App $1 $2 }
: Exp4 Exp5 { App $1 $2 }
| Exp4 '{' Exp '}' { App $1 (ImplArg $3) }
| 'case' Exp 'of' '{' ListCase '}' { let annot = case $2 of
Typed _ t -> TTyped t
_ -> TRaw
@@ -488,7 +489,6 @@ Patt2
| '#' Ident '.' Ident { PM $2 $4 }
| '_' { PW }
| Ident { PV $1 }
| '{' Ident '}' { PC $2 [] }
| Ident '.' Ident { PP $1 $3 [] }
| Integer { PInt $1 }
| Double { PFloat $1 }
@@ -522,8 +522,12 @@ ListPattAss
ListPatt :: { [Patt] }
ListPatt
: Patt2 { [$1] }
| Patt2 ListPatt { $1 : $2 }
: PattArg { [$1] }
| PattArg ListPatt { $1 : $2 }
PattArg :: { Patt }
: Patt2 { $1 }
| '{' Patt2 '}' { PImplArg $2 }
Arg :: { [(BindType,Ident)] }
Arg