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

gt Term

Browse Source
This commit is contained in:
aarne
2004-05-02 08:21:25 +00:00
parent 487571a685
commit 54947d3e4c
11 changed files with 90 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -11,6 +11,7 @@ import qualified AbsGF as GF
import qualified MMacros as MM
import AbsCompute
import TypeCheck
import Generate
------import Compile
import ShellState
import Editing
@@ -203,6 +204,14 @@ customTermCommand =
(exp2termCommand gr (computeAbsTerm gr) t))
,(strCI "paraphrase", \g t -> let gr = grammar g in
exp2termlistCommand gr (mkParaphrases gr) t)
,(strCI "generate", \g t -> let gr = grammar g
cat = actCat $ tree2loc t --- not needed
in
tree2termlistCommand gr
(generateTrees gr cat 2
Nothing . Just) t)
,(strCI "typecheck", \g t -> let gr = grammar g in
err (const []) (return . const t)
(checkIfValidExp gr (tree2exp t)))
@@ -219,12 +228,13 @@ customEditCommand =
customData "Editor state transformers, selected by option -edit=x" $
[
(strCI "identity", const return) -- DEFAULT
,(strCI "transfer", const return) --- done ad hoc on top level
,(strCI "typecheck", \g -> reCheckState (grammar g))
,(strCI "solve", \g -> solveAll (grammar g))
,(strCI "context", \g -> contextRefinements (grammar g))
,(strCI "compute", \g -> computeSubTree (grammar g))
,(strCI "paraphrase", const return) --- done ad hoc on top level
,(strCI "generate", const return) --- done ad hoc on top level
,(strCI "transfer", const return) --- done ad hoc on top level
-- add your own edit commands here
]
++ moreCustomEditCommand