00001 /* #define TODO(m) printf("%s:%d - TODO: %s\n", __FILE__, __LINE__, m) */
00002 process TODO(Msg : str) is printf("TODO: %s\n", Msg)
00003 
00004 /* meta-kernel */
00005 #include <meta.tb>
00006 #include <meta-namespace.h>
00007 
00008 /* sdf-meta */
00009 #include <sdf-meta.tb>
00010 
00011 /* asf-sdf-meta */
00012 #include <asfsdf-meta.tb>
00013 #include <asf-initialize.tb>
00014 
00015 /* visualizations */
00016 #include <start-vis.tb> 
00017 #include <vis-plugin-generic.tb>
00018 #include <vis-plugin-charts.tb>
00019 #include <vis-plugin-graph.tb>
00020 #include <rstore-actions.tb>
00021 /* #include <vis-plugin-treemap.tb> */
00022 
00023 /**
00024  * This process is used to configure which plugins to load
00025  * The vis-plugins are loaded by their starter function
00026  * and initiated, afterward they connect back to the VPCP(rec-connect)
00027  * and represent themselves.
00028  *
00029  * @name Visualization Plugin Connection Process Starter
00030  * @author Arjen van Schie
00031  */
00032 process StartVisPlugin is
00033    StartVisGenericPlugins()
00034  . StartVisPluginCharts()
00035  . StartVisPluginGraph()
00036 /* . StartVisTreeMapPlugins() */
00037 
00038 toolbus(StartVisPlugin)
00039 
00040 process InitializeASFSDFMetaEnvironment is
00041 let
00042   Event: attribute-changed-event,
00043   MenuEventList: list,
00044   ModuleId: module-id
00045 in
00046   snd-msg(set-title("ASF+SDF Meta-Environment"))
00047   . snd-msg(cm-get-events(studio-menubar))
00048   . rec-msg(cm-events(MenuEventList?))
00049   . snd-msg(gui-add-menu-events(MenuEventList))
00050   . StartConsole()
00051   . StartNavigator()
00052   . StartDialogTool()
00053   . StartGraphPanel()
00054   . StartProgressPanel()
00055   . StartModuledetailsPanel()
00056   . StartSVG()
00057   .
00058   if not-equal(MODULENAME, "") then
00059     snd-msg(tm-request-transaction(module-manager))
00060     . OpenModule(MODULENAME, ModuleId?)
00061     . MM-Subscribe-Attribute-Changed(ModuleId,META_NAMESPACE,"idle",<term>,yes)
00062     . rec-note(mm-attribute-changed(Event?))
00063     . snd-msg(tm-end-transaction(module-manager))
00064   else
00065     tau
00066   fi 
00067 endlet
00068 
00069 toolbus(InitializeASFSDFMetaEnvironment)
start-meta-studio.tb
