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

Updates for editor. Dummies for hugs.

Browse Source
This commit is contained in:
aarne
2003-10-07 15:17:55 +00:00
parent 0988010e33
commit 889e5a92e4
8 changed files with 25 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/Shell/CommandL.hs
View File

@@ -78,9 +78,9 @@ pCommand = pCommandWords . words where
"c" : s : _ -> CTermCommand s
"a" : _ -> CRefineRandom --- *a*leatoire
"m" : _ -> CMenu
---- "ml" : s : _ -> changeMenuLanguage s
---- "ms" : s : _ -> changeMenuSize s
---- "mt" : s : _ -> changeMenuTyped s
"ml" : s : _ -> changeMenuLanguage s
"ms" : s : _ -> changeMenuSize s
"mt" : s : _ -> changeMenuTyped s
"v" : _ -> CView
"q" : _ -> CQuit
"h" : _ -> CHelp initEditMsg

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

@@ -3,9 +3,8 @@ module Commands where
import Operations
import Zipper
import qualified Grammar as G ---- Cat
import qualified Grammar as G ---- Cat, Fun
import GFC
import qualified AbsGFC ---- Atom
import CMacros
import LookAbs
import Values (loc2treeFocus)----
@@ -19,7 +18,6 @@ import qualified Ident as I
import qualified PShell
import qualified Macros as M
import PrGrammar
import TypeCheck ---- tree2exp
import PGrammar
import IOGrammar
import UseIO
@@ -400,7 +398,6 @@ displaySStateJavaX env state = unlines $ tagXML "gfedit" $ concat [
lin (n,gr) = (n, map uni $ linearizeState noWrap opts gr zipper) where
uni = optEncodeUTF8 n gr . mkUnicode
exp = prprTree $ loc2tree zipper
--- xml = prExpXML gr $ tree2exp $ loc2tree zipper --- better: dir. from zipper
zipper = stateSState state
linAll = map lin lgrs
gr = firstStateGrammar env