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

format .gfm for multiple modules in the same file; includes lines with ;-separated words

Browse Source
This commit is contained in:
aarne
2010-11-30 14:50:24 +00:00
parent 667e7e67d3
commit 752a7b8030
6 changed files with 59 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/compiler/GF/Command/Importing.hs
View File

@@ -4,6 +4,7 @@ import PGF
import PGF.Data
import GF.Compile
import GF.Compile.Multi (readMulti)
import GF.Grammar (identC, SourceGrammar) -- for cc command
import GF.Grammar.CF
import GF.Grammar.EBNF
@@ -20,8 +21,12 @@ importGrammar :: PGF -> Options -> [FilePath] -> IO PGF
importGrammar pgf0 _ [] = return pgf0
importGrammar pgf0 opts files =
case takeExtensions (last files) of
".cf" -> importCF opts files getCF
".cf" -> importCF opts files getCF
".ebnf" -> importCF opts files getEBNF
".gfm" -> do
ascss <- mapM readMulti files
let cs = concatMap snd ascss
importGrammar pgf0 opts cs
s | elem s [".gf",".gfo"] -> do
res <- appIOE $ compileToPGF opts files
case res of