The Meta-Environment API
00001 #ifndef __RSCRIPT_EDITOR_ACTIONS__ 00002 #define __RSCRIPT_EDITOR_ACTIONS__ 00003 00004 #include <rscript-editor-utils.tb> 00005 00006 process EditorEditSyntaxAction(EditorId : session-id) is 00007 let 00008 ModuleId : module-id 00009 in 00010 GetModuleId(EditorId, ModuleId?) 00011 . EditSyntaxAction(ModuleId) 00012 endlet 00013 00014 process EditorRunRScriptAction(EditorId : session-id) is 00015 let 00016 ModuleId : module-id 00017 in 00018 GetModuleId(EditorId, ModuleId?) 00019 . RunRScript(ModuleId) 00020 endlet 00021 00022 process EditorTestRScriptAction(EditorId : session-id) is 00023 let 00024 ModuleId : module-id 00025 in 00026 GetModuleId(EditorId, ModuleId?) 00027 . TestRScript(ModuleId) 00028 endlet 00029 00030 process EditorRunRScriptWithRStoreAction(EditorId : session-id) is 00031 let 00032 ModuleId : module-id 00033 in 00034 GetModuleId(EditorId, ModuleId?) 00035 . RunRScriptWithRStore(ModuleId) 00036 endlet 00037 00038 process EditSyntaxAction(ModuleId : module-id) is 00039 let 00040 Pid: int, 00041 Sid: session-id 00042 in 00043 create(EditSyntax(ModuleId), Pid?) 00044 . rec-msg(syntax-editor-started(ModuleId, Sid?)) 00045 . TODO("And what if it didn't start? See term-editor-utils.tb") 00046 . create(CleanupEditTerm(Sid), Pid?) 00047 endlet 00048 00049 #endif /* __RSCRIPT_EDITOR_ACTIONS__ */