25 #include "pips_config.h"
31 #include <sys/resource.h>
32 #include <xview/xview.h>
33 #include <xview/panel.h>
34 #include <xview/text.h>
40 #if (defined(TEXT_TYPE))
46 #include "constants.h"
60 #include "resources.h"
64 #include "wpips_transform_menu_layout.h"
89 if (!(
bool) xv_get(menu_item, MENU_TITLE)
90 && xv_get(menu_item, MENU_NOTIFY_PROC) != NULL)
91 function_to_apply_on_each_menu_item(menu_item);
128 strdup(transformation_name_to_apply);
141 char * label = (
char *) xv_get(menu_item, MENU_STRING);
146 if (modulename == NULL) {
155 current_transformation++)
177 xv_create(NULL, MENUITEM,
184 xv_create(XV_NULL, MENU_COMMAND_MENU,
185 MENU_GEN_PIN_WINDOW,
main_frame,
"Transform Menu",
186 MENU_TITLE_ITEM,
"Apply a program transformation to a module ",
192 current_transformation++) {
214 PANEL_LABEL_STRING,
"Transform/Edit",
string db_get_current_module_name(void)
Also used to check whether set...
void send_the_names_of_the_available_modules_to_emacs(void)
Tell Emacs about what are the modules available in the current workspace, if any:
const char * module_name(const char *s)
Return the module part of an entity name.
#define EDIT_VIEW
A special view that gives the .f source mainly for edition:
GtkWidget * main_frame
If we are in the Emacs mode, the log_frame is no longer really used:
void execute_main_loop_command(gpips_main_loop_command_type command)
To ask pipsmake to stop as soon as possible:
void edit_notify(GtkWidget *widget, gpointer data)
GtkWidget * edit_menu_item
void prompt_user(string a_printf_format,...)
void display_memory_usage()
#define pips_internal_error
bool safe_apply(const char *phase_n, const char *module_n)
#define WPIPS_MENU_SEPARATOR_ID
How it is specified in the layout .h:
#define WPIPS_MENU_SEPARATOR
Define the menu separator:
void enable_menu_item(Menu_item item)
void disable_menu_item(Menu_item item)