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

editor command pc n ; resource/finnish

Browse Source
This commit is contained in:
aarne
2005-06-10 14:59:58 +00:00
parent 536dd517f2
commit 3b4eaf5017
9 changed files with 2328 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/06/03 22:44:36 $
-- > CVS $Date: 2005/06/10 15:59:58 $
-- > CVS $Author: aarne $
-- > CVS $Revision: 1.17 $
-- > CVS $Revision: 1.18 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
@@ -122,6 +122,7 @@ pCommandMsg s = (m,pCommandWords $ words c) where
"u" : _ -> CUndo
"d" : _ -> CDelete
"ac" : _ -> CAddClip
"pc": i : _ -> CRemoveClip (readIntArg i)
"c" : s : _ -> CTermCommand s
"a" : _ -> CRefineRandom --- *a*leatoire
"m" : _ -> CMenu

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

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/04/21 16:23:19 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.37 $
-- > CVS $Date: 2005/06/10 15:59:58 $
-- > CVS $Author: aarne $
-- > CVS $Revision: 1.38 $
--
-- temporary hacks for GF 2.0
--
@@ -91,6 +91,7 @@ data Command =
| CRemoveOption Option
| CDelete
| CAddClip
| CRemoveClip Int
| CUndo
| CView
| CMenu
@@ -284,6 +285,7 @@ execECommand env c = case c of
CRemoveOption o -> changeStOptions (removeOption o)
CDelete -> action2commandNext $ deleteSubTree cgr
CAddClip -> \s -> (addtoClip (actTree (stateSState s))) s
CRemoveClip n -> \s -> (removeClip n) s
CUndo -> undoCommand
CMenu -> \s -> changeMsg (menuState env s) s
CView -> changeView