GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 16:22:52 -06:00
Code Issues Packages Projects Releases Wiki Activity

Added list patterns. Added som simple prelude functions.

Browse Source
This commit is contained in:
bringert
2005-12-01 17:27:06 +00:00
parent e1d8b9c535
commit a7af7bc384
12 changed files with 890 additions and 705 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
src/Transfer/Syntax/Par.y
View File

@@ -20,8 +20,12 @@ import Transfer.ErrM
'}' { PT _ (TS "}") }
'=' { PT _ (TS "=") }
'||' { PT _ (TS "||") }
'::' { PT _ (TS "::") }
'(' { PT _ (TS "(") }
')' { PT _ (TS ")") }
'[' { PT _ (TS "[") }
']' { PT _ (TS "]") }
',' { PT _ (TS ",") }
'_' { PT _ (TS "_") }
'->' { PT _ (TS "->") }
'<-' { PT _ (TS "<-") }
@@ -35,17 +39,13 @@ import Transfer.ErrM
'<=' { PT _ (TS "<=") }
'>' { PT _ (TS ">") }
'>=' { PT _ (TS ">=") }
'::' { PT _ (TS "::") }
'+' { PT _ (TS "+") }
'-' { PT _ (TS "-") }
'*' { PT _ (TS "*") }
'/' { PT _ (TS "/") }
'%' { PT _ (TS "%") }
'.' { PT _ (TS ".") }
'[' { PT _ (TS "[") }
']' { PT _ (TS "]") }
'?' { PT _ (TS "?") }
',' { PT _ (TS ",") }
'Type' { PT _ (TS "Type") }
'case' { PT _ (TS "case") }
'data' { PT _ (TS "data") }
@@ -119,12 +119,18 @@ Pattern : Pattern1 '||' Pattern { POr $1 $3 }
Pattern1 :: { Pattern }
Pattern1 : Ident Pattern2 ListPattern { PConsTop $1 $2 (reverse $3) }
Pattern1 : Pattern2 '::' Pattern1 { PListCons $1 $3 }
| Pattern2 { $1 }
Pattern2 :: { Pattern }
Pattern2 : 'rec' '{' ListFieldPattern '}' { PRec $3 }
Pattern2 : Ident Pattern3 ListPattern { PConsTop $1 $2 (reverse $3) }
| Pattern3 { $1 }
Pattern3 :: { Pattern }
Pattern3 : 'rec' '{' ListFieldPattern '}' { PRec $3 }
| '[' ListPListElem ']' { PList $2 }
| 'Type' { PType }
| String { PStr $1 }
| Integer { PInt $1 }
@@ -133,9 +139,19 @@ Pattern2 : 'rec' '{' ListFieldPattern '}' { PRec $3 }
| '(' Pattern ')' { $2 }
PListElem :: { PListElem }
PListElem : Pattern { PListElem $1 }
ListPListElem :: { [PListElem] }
ListPListElem : {- empty -} { [] }
| PListElem { (:[]) $1 }
| PListElem ',' ListPListElem { (:) $1 $3 }
ListPattern :: { [Pattern] }
ListPattern : {- empty -} { [] }
| ListPattern Pattern2 { flip (:) $1 $2 }
| ListPattern Pattern3 { flip (:) $1 $2 }
FieldPattern :: { FieldPattern }