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

generation in jgf

Browse Source
This commit is contained in:
aarne
2004-05-02 12:36:19 +00:00
parent 54947d3e4c
commit de3ad4cbd7
3 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Shell/Commands.hs
View File

@@ -325,7 +325,7 @@ mkRefineMenuAll env sstate =
_ -> b _ -> b
ifShort = ifOpt sizeDisplay "short" ifShort = ifOpt sizeDisplay "short"
ifTyped t = ifOpt typeDisplay "typed" t "" ifTyped t = ifOpt typeDisplay "typed" t ""
prOrLinExp t = prt_ t ---- prOrLinExp t = err (const $ prt_ t) prOrLinTree $ annotateInState cgr t state
prOrLinRef t = case t of prOrLinRef t = case t of
G.Q m f -> printname env sstate (m,f) G.Q m f -> printname env sstate (m,f)
G.QC m f -> printname env sstate (m,f) G.QC m f -> printname env sstate (m,f)

5
src/GF/UseGrammar/Custom.hs
View File

@@ -208,9 +208,8 @@ customTermCommand =
,(strCI "generate", \g t -> let gr = grammar g ,(strCI "generate", \g t -> let gr = grammar g
cat = actCat $ tree2loc t --- not needed cat = actCat $ tree2loc t --- not needed
in in
tree2termlistCommand gr [tr | t <- generateTrees gr cat 2 Nothing (Just t),
(generateTrees gr cat 2 Ok tr <- [annotate gr $ MM.qualifTerm (absId g) t]])
Nothing . Just) t)
,(strCI "typecheck", \g t -> let gr = grammar g in ,(strCI "typecheck", \g t -> let gr = grammar g in
err (const []) (return . const t) err (const []) (return . const t)

2
src/Today.hs
View File

@@ -1 +1 @@
module Today where today = "Sun May 2 11:14:33 CEST 2004" module Today where today = "Sun May 2 15:21:39 CEST 2004"