msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Make LPGF testsuite work (but still fails)

Browse Source 
stack test :lpgf
This commit is contained in:
John J. Camilleri
2021-01-25 13:41:33 +01:00
parent f24c50339b
commit 32b0860925
4 changed files with 162 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/compiler/GF/Compile.hs
View File

@@ -1,4 +1,4 @@
module GF.Compile (compileToPGF, link, linkl, batchCompile, srcAbsName) where
module GF.Compile (compileToPGF, compileToLPGF, link, linkl, batchCompile, srcAbsName) where
import GF.Compile.GrammarToPGF(mkCanon2pgf)
import GF.Compile.GrammarToLPGF(mkCanon2lpgf)
@@ -32,6 +32,9 @@ import LPGF(LPGF)
compileToPGF :: Options -> [FilePath] -> IOE PGF
compileToPGF opts fs = link opts . snd =<< batchCompile opts fs
compileToLPGF :: Options -> [FilePath] -> IOE LPGF
compileToLPGF opts fs = linkl opts . snd =<< batchCompile opts fs
-- | Link a grammar into a 'PGF' that can be used to 'PGF.linearize' and
-- 'PGF.parse' with the "PGF" run-time system.
link :: Options -> (ModuleName,Grammar) -> IOE PGF

2
src/compiler/GF/Compiler.hs
View File

@@ -1,4 +1,4 @@
module GF.Compiler (mainGFC, linkGrammars, writePGF, writeOutputs) where
module GF.Compiler (mainGFC, linkGrammars, writePGF, writeLPGF, writeOutputs) where
import PGF
import PGF.Internal(concretes,optimizePGF,unionPGF)