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

preparing resource api for multilingual documentation

Browse Source
This commit is contained in:
aarne
2010-12-10 08:48:26 +00:00
parent 8bb09fd64a
commit 96433c2914
3 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/compiler/GF/Command/Commands.hs
View File

@@ -216,6 +216,7 @@ allCommands env@(pgf, mos) = Map.fromList [
], ],
options = [ options = [
("all","pick all strings (forms and variants) from records and tables"), ("all","pick all strings (forms and variants) from records and tables"),
("one","pick the first strings, if there is any, from records and tables"),
("table","show all strings labelled by parameters"), ("table","show all strings labelled by parameters"),
("unqual","hide qualifying module names") ("unqual","hide qualifying module names")
], ],

2
src/compiler/GF/Grammar/ShowTerm.hs
View File

@@ -13,6 +13,7 @@ showTerm gr style q t = render $
case style of case style of
TermPrintTable -> vcat [p <+> s | (p,s) <- ppTermTabular gr q t] TermPrintTable -> vcat [p <+> s | (p,s) <- ppTermTabular gr q t]
TermPrintAll -> vcat [ s | (p,s) <- ppTermTabular gr q t] TermPrintAll -> vcat [ s | (p,s) <- ppTermTabular gr q t]
TermPrintOne -> vcat [ s | (p,s) <- take 1 (ppTermTabular gr q t)]
TermPrintDefault -> ppTerm q 0 t TermPrintDefault -> ppTerm q 0 t
ppTermTabular :: SourceGrammar -> TermPrintQual -> Term -> [(Doc,Doc)] ppTermTabular :: SourceGrammar -> TermPrintQual -> Term -> [(Doc,Doc)]
@@ -37,4 +38,5 @@ ppTermTabular gr q = pr where
data TermPrintStyle data TermPrintStyle
= TermPrintTable = TermPrintTable
| TermPrintAll | TermPrintAll
| TermPrintOne
| TermPrintDefault | TermPrintDefault

1
src/compiler/GFI.hs
View File

@@ -111,6 +111,7 @@ loop opts gfenv0 = do
let let
pOpts style q ("-table" :ws) = pOpts TermPrintTable q ws pOpts style q ("-table" :ws) = pOpts TermPrintTable q ws
pOpts style q ("-all" :ws) = pOpts TermPrintAll q ws pOpts style q ("-all" :ws) = pOpts TermPrintAll q ws
pOpts style q ("-one" :ws) = pOpts TermPrintOne q ws
pOpts style q ("-default":ws) = pOpts TermPrintDefault q ws pOpts style q ("-default":ws) = pOpts TermPrintDefault q ws
pOpts style q ("-unqual" :ws) = pOpts style Unqualified ws pOpts style q ("-unqual" :ws) = pOpts style Unqualified ws
pOpts style q ("-qual" :ws) = pOpts style Qualified ws pOpts style q ("-qual" :ws) = pOpts style Qualified ws