arbitrary lincat records; noparse pragmas

This commit is contained in:
aarne
2005-11-14 15:03:40 +00:00
parent 857094ae0e
commit fdc6eaa6ee
18 changed files with 345 additions and 57 deletions

View File

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/11/09 22:34:01 $
-- > CVS $Date: 2005/11/14 16:03:41 $
-- > CVS $Author: aarne $
-- > CVS $Revision: 1.1 $
-- > CVS $Revision: 1.2 $
--
-- Commands usable in grammar-writing IDE.
-----------------------------------------------------------------------------
@@ -57,6 +57,10 @@ execIDECommand c state = case c of
return $ emptyIDEState env
IDEAbstract a ->
return $ state {ideAbstract = Just a} ---- check a exists or import it
IDEConcrete a ->
return $ state {ideCurrentCnc = Just a} ---- check a exists or import it
IDELin a ->
return $ state {ideCurrentLin = Just a} ---- check a exists
IDEEdit s ->
execEdit s
IDEShell s ->