GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

Added tuple expressions and patterns.

Browse Source
This commit is contained in:
bringert
2005-12-05 16:44:56 +00:00
parent 066d5bb0a9
commit 747271941a
9 changed files with 407 additions and 322 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/Transfer/Syntax/Syntax.cf
View File

@@ -41,9 +41,16 @@ internal PCons. Pattern3 ::= "(" Ident [Pattern] ")" ;
PRec. Pattern3 ::= "rec" "{" [FieldPattern] "}";
-- List patterns
PList. Pattern3 ::= "[" [PListElem] "]" ;
PListElem. PListElem ::= Pattern ;
separator PListElem "," ;
PEmptyList. Pattern3 ::= "[" "]" ;
PList. Pattern3 ::= "[" [CommaPattern] "]" ;
-- Tuple patterns
PTuple. Pattern3 ::= "(" CommaPattern "," [CommaPattern] ")" ;
-- hack to allow a different [Pattern] from the one defined
-- for constructor patterns
CommaPattern. CommaPattern ::= Pattern ;
separator nonempty CommaPattern "," ;
-- The pattern matching the Type constant
PType. Pattern3 ::= "Type" ;
@@ -121,8 +128,12 @@ ERec. Exp13 ::= "rec" "{" [FieldValue] "}" ;
FieldValue.FieldValue ::= Ident "=" Exp ;
separator FieldValue ";" ;
EEmptyList.Exp13 ::= "[" "]" ;
EList. Exp13 ::= "[" [Exp] "]" ;
-- n-tuple, where n>=2
ETuple. Exp13 ::= "(" Exp "," [Exp] ")" ;
EVar. Exp13 ::= Ident ;
EType. Exp13 ::= "Type" ;
EStr. Exp13 ::= String ;
@@ -132,4 +143,4 @@ EMeta. Exp13 ::= "?" ;
coercions Exp 13 ;
separator Exp "," ;
separator nonempty Exp "," ;