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

Added --sisr option for including SISR tags in generated SRGs.

Browse Source
This commit is contained in:
bjorn
2008-06-16 16:12:17 +00:00
parent 10d5895369
commit 5c7c010f80
5 changed files with 29 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src-3.0/GF/Command/Commands.hs
View File

@@ -17,6 +17,7 @@ import PGF.Data ----
import PGF.Morphology
import PGF.Quiz
import GF.Compile.Export
import GF.Infra.Option (noOptions)
import GF.Infra.UseIO
import GF.Data.ErrM ----
import PGF.ExprSyntax (readExp)
@@ -446,7 +447,7 @@ allCommands pgf = Map.fromList [
unlines $ [unwords (la:":": map prCId cs) |
la <- optLangs opts, let cs = missingLins pgf (mkCId la)]
_ -> case valIdOpts "printer" "pgf" opts of
v -> prPGF (read v) pgf (prCId (absname pgf))
v -> prPGF noOptions (read v) pgf (prCId (absname pgf))
morphos opts s =
[lookupMorpho (buildMorpho pgf (mkCId la)) s | la <- optLangs opts]