diff options
| author | aarne <unknown> | 2003-10-07 15:17:55 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-10-07 15:17:55 +0000 |
| commit | 889e5a92e4e0c40ab249f9f86d0fa2647132d87a (patch) | |
| tree | d9dd9687ee2d8a735b65f9b617f3f1a607666615 /src/GF/Shell | |
| parent | 0988010e33fabc02090490b4a562a53fa9a08780 (diff) | |
Updates for editor. Dummies for hugs.
Diffstat (limited to 'src/GF/Shell')
| -rw-r--r-- | src/GF/Shell/CommandL.hs | 6 | ||||
| -rw-r--r-- | src/GF/Shell/Commands.hs | 5 |
2 files changed, 4 insertions, 7 deletions
diff --git a/src/GF/Shell/CommandL.hs b/src/GF/Shell/CommandL.hs index d1ba0f7ba..d470130ab 100644 --- a/src/GF/Shell/CommandL.hs +++ b/src/GF/Shell/CommandL.hs @@ -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 diff --git a/src/GF/Shell/Commands.hs b/src/GF/Shell/Commands.hs index 3ba783c3b..71ef3244b 100644 --- a/src/GF/Shell/Commands.hs +++ b/src/GF/Shell/Commands.hs @@ -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 |