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

initial support for BNFC syntax in context-free grammars for GF. Not all features are supported yet. Based on contribution from Gleb Lobanov

Browse Source
This commit is contained in:
krasimir
2016-03-21 13:27:44 +00:00
parent da10bb33c7
commit c8ebe09315
6 changed files with 47 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
src/compiler/GF/Grammar/Parser.y
View File

@@ -7,7 +7,7 @@ module GF.Grammar.Parser
, pModHeader
, pExp
, pTopDef
, pCFRules
, pBNFCRules
, pEBNFRules
) where
@@ -16,7 +16,7 @@ import GF.Infra.Option
import GF.Data.Operations
import GF.Grammar.Predef
import GF.Grammar.Grammar
import GF.Grammar.CFG
import GF.Grammar.BNFC
import GF.Grammar.EBNF
import GF.Grammar.Macros
import GF.Grammar.Lexer
@@ -31,7 +31,7 @@ import PGF(mkCId)
%name pTopDef TopDef
%partial pModHeader ModHeader
%name pExp Exp
%name pCFRules ListCFRule
%name pBNFCRules ListCFRule
%name pEBNFRules ListEBNFRule
-- no lexer declaration
@@ -108,6 +108,10 @@ import PGF(mkCId)
'variants' { T_variants }
'where' { T_where }
'with' { T_with }
'coercions' { T_coercions }
'terminator' { T_terminator }
'separator' { T_separator }
'nonempty' { T_nonempty }
Integer { (T_Integer $$) }
Double { (T_Double $$) }
@@ -611,14 +615,14 @@ ListDDecl
: {- empty -} { [] }
| DDecl ListDDecl { $1 ++ $2 }
ListCFRule :: { [CFRule] }
ListCFRule :: { [BNFCRule] }
ListCFRule
: CFRule { $1 }
| CFRule ListCFRule { $1 ++ $2 }
CFRule :: { [CFRule] }
CFRule :: { [BNFCRule] }
CFRule
: Ident '.' Ident '::=' ListCFSymbol ';' { [CFRule (showIdent $3) $5 (CFObj (mkCId (showIdent $1)) [])]
: Ident '.' Ident '::=' ListCFSymbol ';' { [BNFCRule (showIdent $3) $5 (CFObj (mkCId (showIdent $1)) [])]
}
| Ident '::=' ListCFRHS ';' { let { cat = showIdent $1;
mkFun cat its =
@@ -628,25 +632,34 @@ CFRule
};
clean sym =
case sym of {
Terminal c -> filter isAlphaNum c;
NonTerminal t -> t
Terminal c -> filter isAlphaNum c;
NonTerminal (t,_) -> t
}
} in map (\rhs -> CFRule cat rhs (CFObj (mkCId (mkFun cat rhs)) [])) $3
} in map (\rhs -> BNFCRule cat rhs (CFObj (mkCId (mkFun cat rhs)) [])) $3
}
| 'coercions' Ident Integer ';' { [BNFCCoercions (showIdent $2) $3]}
| 'terminator' NonEmpty Ident String ';' { [BNFCTerminator $2 (showIdent $3) $4] }
| 'separator' NonEmpty Ident String ';' { [BNFCSeparator $2 (showIdent $3) $4] }
ListCFRHS :: { [[CFSymbol]] }
ListCFRHS :: { [[BNFCSymbol]] }
ListCFRHS
: ListCFSymbol { [$1] }
| ListCFSymbol '|' ListCFRHS { $1 : $3 }
ListCFSymbol :: { [CFSymbol] }
ListCFSymbol :: { [BNFCSymbol] }
ListCFSymbol
: {- empty -} { [] }
| CFSymbol ListCFSymbol { $1 : $2 }
CFSymbol :: { CFSymbol }
CFSymbol :: { BNFCSymbol }
: String { Terminal $1 }
| Ident { NonTerminal (showIdent $1) }
| Ident { NonTerminal (showIdent $1, False) }
| '[' Ident ']' { NonTerminal (showIdent $2, True) }
NonEmpty :: { Bool }
NonEmpty : 'nonempty' { True }
| {-empty-} { False }
ListEBNFRule :: { [ERule] }
ListEBNFRule