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

test for new GF source format

Browse Source
This commit is contained in:
aarne
2007-12-04 11:07:39 +00:00
parent a7b6887050
commit 7051331c20
7 changed files with 71 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/GF/Devel/Grammar/Modules.hs
View File

@@ -27,13 +27,13 @@ data Module = Module {
mextends :: [(Ident,MInclude)],
mopens :: [(Ident,Ident)], -- used name, original name
mflags :: Map Ident String,
mjments :: Map Ident (Either Judgement Ident) -- def or indirection
mjments :: Map Ident (Either Judgement Indirection) -- def or indirection
}
emptyModule :: Ident -> Module
emptyModule m = Module MTGrammar [] [] [] [] empty empty
listJudgements :: Module -> [(Ident,Either Judgement Ident)]
listJudgements :: Module -> [(Ident,Either Judgement Indirection)]
listJudgements = assocs . mjments
data ModuleType =
@@ -46,4 +46,5 @@ data MInclude =
| MIExcept [Ident]
| MIOnly [Ident]
type Indirection = (Ident,Bool) -- module of origin, whether canonical