gtk_status.c File Reference

#include <stdlib.h>
#include <stdio.h>
#include <stdarg.h>
#include <unistd.h>
#include <sys/time.h>
#include <sys/resource.h>
#include <gtk/gtk.h>
#include "genC.h"
#include "linear.h"
#include "ri.h"
#include "database.h"
#include "misc.h"
#include "ri-util.h"
#include "pipsdbm.h"
#include "gpips.h"

Include dependency graph for gtk_status.c:

Go to the source code of this file.

Data Structures
struct	LabelEntryAndButton

Enumerations
enum	{ DECALAGE_STATUS = 100 }
enum	{ CPU_USAGE_LENGTH = 8 }
	Max number of digits displayed in the status panel: More...

Functions
void	display_memory_usage ()
void	show_directory ()
void	show_workspace ()
void	show_module ()
void	gpips_interrupt_button_blink ()
void	gpips_interrupt_button_restore ()
void	show_message (string message_buffer)
static void	end_directory_notify_callback (GtkWidget *w, gpointer data __attribute__((unused)))
static void	choose_dir_callback (GtkWidget *w __attribute__((unused)), gpointer data)
void	open_or_create_workspace_callback (GtkWidget *w, gpointer data __attribute__((unused)))
static GtkWidget *	create_dir_choose_entry (GtkWidget *vbox)
static gboolean	regenerate_workspace_menu_callback (GtkWidget *w, GdkEventButton *ev, gpointer data)
static gboolean	regenerate_module_menu_callback (GtkWidget *w, GdkEventButton *ev, gpointer data)
static GtkWidget *	create_workspace_entry (GtkWidget *vbox)
static GtkWidget *	create_module_entry (GtkWidget *vbox)
void	create_status_subwindow ()

Variables
GtkWidget *	directory_name_entry
GtkWidget *	directory_name_entry_button
GtkWidget *	workspace_name_entry
GtkWidget *	memory_name
GtkWidget *	gmessage
GtkWidget *	window_number
GtkWidget *	module_name_entry
GtkWidget *	cpu_usage_item
char	etext
	Strange, "man end" says that end is a function! More...
char	edata
char	end

Enumeration Type Documentation

anonymous enum

anonymous enum

Enumerator
DECALAGE_STATUS

Definition at line 59 of file gtk_status.c.

     {
        DECALAGE_STATUS = 100
};

anonymous enum

anonymous enum

Max number of digits displayed in the status panel:

Enumerator
CPU_USAGE_LENGTH

Definition at line 64 of file gtk_status.c.

     {
        CPU_USAGE_LENGTH = 8
};

Function Documentation

choose_dir_callback()

static void choose_dir_callback ( GtkWidget *w   __attribute__(unused), gpointer  data  )

static

Definition at line 178 of file gtk_status.c.

                                                                                      {
        GtkWidget * file_chooser_dialog;
 
        file_chooser_dialog = gtk_file_chooser_dialog_new("Choose Directory",
                        GTK_WINDOW(main_window), GTK_FILE_CHOOSER_ACTION_SELECT_FOLDER,
                        GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL, GTK_STOCK_OPEN,
                        GTK_RESPONSE_ACCEPT, NULL);
 
        if (gtk_dialog_run(GTK_DIALOG(file_chooser_dialog)) == GTK_RESPONSE_ACCEPT) {
                char * dirname = gtk_file_chooser_get_filename(GTK_FILE_CHOOSER(
                                file_chooser_dialog));
                gtk_entry_set_text(GTK_ENTRY(directory_name_entry), dirname);
                g_free(dirname);
        }
        g_signal_emit_by_name(data, "activate");
        //end_directory_notify_callback((GtkWidget *) data, NULL);
 
        gtk_widget_destroy(file_chooser_dialog);
}

References directory_name_entry, and main_window.

Referenced by create_dir_choose_entry().

Here is the caller graph for this function:

create_dir_choose_entry()

static GtkWidget* create_dir_choose_entry ( GtkWidget *  vbox )

static

Definition at line 206 of file gtk_status.c.

                                                             {
        GtkWidget * hbox = gtk_hbox_new(FALSE, 0);
 
        GtkWidget * label;
        GtkWidget * entry;
        GtkWidget * cd_button;
 
        label = gtk_label_new("Directory: ");
        gtk_box_pack_start(GTK_BOX(hbox), label, FALSE, FALSE, 5);
 
        entry = gtk_entry_new();
        gtk_box_pack_start(GTK_BOX(hbox), entry, TRUE, TRUE, 5);
        g_signal_connect(GTK_OBJECT(entry), "activate",
                        G_CALLBACK(end_directory_notify_callback), NULL);
        gtk_widget_set_sensitive(entry, FALSE);
 
        cd_button = gtk_button_new_with_label("CD");
        gtk_box_pack_start(GTK_BOX(hbox), cd_button, FALSE, FALSE, 5);
        g_signal_connect(GTK_OBJECT(cd_button), "clicked", G_CALLBACK(choose_dir_callback),
                        entry);
 
        gtk_widget_show_all(hbox);
        gtk_box_pack_start(GTK_BOX(vbox), hbox, TRUE, FALSE, 5);
        return entry;
}

References choose_dir_callback(), and end_directory_notify_callback().

Referenced by create_status_subwindow().

Here is the call graph for this function:

Here is the caller graph for this function:

create_module_entry()

static GtkWidget* create_module_entry ( GtkWidget *  vbox )

static

Definition at line 297 of file gtk_status.c.

                                                         {
        GtkWidget * hbox = gtk_hbox_new(FALSE, 0);
 
        GtkWidget * label;
        GtkWidget * entry;
        GtkWidget * menu;
        GtkWidget * menu_item;
        GtkWidget * menu_bar;
 
        label = gtk_label_new("Module: ");
        gtk_box_pack_start(GTK_BOX(hbox), label, FALSE, FALSE, 5);
 
        entry = gtk_entry_new();
        gtk_box_pack_start(GTK_BOX(hbox), entry, TRUE, TRUE, 5);
        g_signal_connect(GTK_OBJECT(entry), "activate",
                        G_CALLBACK(end_select_module_callback), NULL);
 
        menu_item = gtk_menu_item_new_with_label("Select module");
        // regenerating the menu every time we try to access it
        menu = NULL; // (necessary initialization for the callback)
        g_signal_connect(G_OBJECT(menu_item), "button-press-event",
                        G_CALLBACK(regenerate_module_menu_callback), menu);
        gtk_widget_show(menu_item);
 
        menu_bar = gtk_menu_bar_new();
        gtk_box_pack_start(GTK_BOX(hbox), menu_bar, FALSE, FALSE, 0);
        gtk_menu_bar_append(GTK_MENU_BAR(menu_bar), menu_item);
        gtk_widget_show(menu_bar);
 
        gtk_widget_show_all(hbox);
        gtk_box_pack_start(GTK_BOX(vbox), hbox, TRUE, FALSE, 5);
        return entry;
}

References end_select_module_callback(), and regenerate_module_menu_callback().

Referenced by create_status_subwindow().

Here is the call graph for this function:

Here is the caller graph for this function:

create_status_subwindow()

void create_status_subwindow

(

)

Definition at line 331 of file gtk_status.c.

                               {
        //Server_image pips_icon_server_image;
        status_frame = gtk_frame_new(NULL);
        gtk_box_pack_start(GTK_BOX(main_window_vbox), status_frame, FALSE, FALSE, 5);
 
        GtkWidget * status_frame_vbox = gtk_vbox_new(FALSE, 0);
        gtk_container_add(GTK_CONTAINER(status_frame), status_frame_vbox);
 
        gmessage = gtk_label_new("Message:");
        gtk_box_pack_start(GTK_BOX(status_frame_vbox), gmessage, FALSE, FALSE, 5);
 
        directory_name_entry = create_dir_choose_entry(status_frame_vbox);
 
        workspace_name_entry = create_workspace_entry(status_frame_vbox);
 
        module_name_entry = create_module_entry(status_frame_vbox);
 
        GtkWidget * data_hbox = gtk_hbox_new(FALSE, 0);
        gtk_box_pack_start(GTK_BOX(status_frame_vbox), data_hbox, FALSE, FALSE, 5);
        gtk_box_pack_start(GTK_BOX(data_hbox), gtk_label_new("Memory (MB):"),
                        FALSE, FALSE, 5);
        memory_name = gtk_label_new("");
        gtk_box_pack_start(GTK_BOX(data_hbox), memory_name, FALSE, FALSE, 5);
        gtk_box_pack_start(GTK_BOX(data_hbox), gtk_label_new("CPU (s):"), FALSE,
                        FALSE, 5);
        cpu_usage_item = gtk_label_new("");
        gtk_box_pack_start(GTK_BOX(data_hbox), cpu_usage_item, FALSE, FALSE, 5);
        gtk_widget_show_all(data_hbox);
 
        //      window_number = xv_create(main_panel, PANEL_NUMERIC_TEXT,
        //      /*PANEL_ITEM_X_GAP, DECALAGE_STATUS,
        //       PANEL_VALUE_Y, xv_rows(main_panel, 4),*/
        //      PANEL_VALUE_X, xv_col(main_panel, 50), PANEL_VALUE_Y,
        //                      xv_rows(main_panel, 4), PANEL_LABEL_STRING, "# windows:",
        //                      PANEL_MIN_VALUE, 1, PANEL_MAX_VALUE, MAX_NUMBER_OF_GPIPS_WINDOWS,
        //                      PANEL_VALUE, number_of_gpips_windows, PANEL_VALUE_DISPLAY_LENGTH,
        //                      2, PANEL_NOTIFY_PROC, window_number_notify, NULL);
 
        //      pips_icon_server_image = create_status_window_pips_image();
 
        //      status_window_pips_image = xv_create(main_panel, PANEL_BUTTON,
        //                      PANEL_LABEL_IMAGE, pips_icon_server_image, PANEL_NOTIFY_PROC,
        //                      gpips_interrupt_pipsmake,
        //                      /* Put the Pixmap above the Help button: */
        //                      // quit_button a été remplacé par quit_menu_item
        //                      XV_X, xv_get(quit_button, XV_X) + (xv_get(quit_button, XV_WIDTH)
        //                                      - xv_get(pips_icon_server_image, XV_WIDTH)) / 2, XV_Y,
        //                      xv_rows(main_panel, 3) + 20, NULL);
 
        show_directory();
        show_workspace();
        show_module();
        display_memory_usage();
 
        gtk_widget_show_all(status_frame);
}

References cpu_usage_item, create_dir_choose_entry(), create_module_entry(), create_workspace_entry(), directory_name_entry, display_memory_usage(), gmessage, main_window_vbox, memory_name, module_name_entry, show_directory(), show_module(), show_workspace(), status_frame, and workspace_name_entry.

Referenced by gpips_main(), and wpips_main().

Here is the call graph for this function:

Here is the caller graph for this function:

create_workspace_entry()

static GtkWidget* create_workspace_entry ( GtkWidget *  vbox )

static

Definition at line 263 of file gtk_status.c.

                                                            {
        GtkWidget * hbox = gtk_hbox_new(FALSE, 0);
 
        GtkWidget * label;
        GtkWidget * entry;
        GtkWidget * menu;
        GtkWidget * menu_item;
        GtkWidget * menu_bar;
 
        label = gtk_label_new("Workspace: ");
        gtk_box_pack_start(GTK_BOX(hbox), label, FALSE, FALSE, 5);
 
        entry = gtk_entry_new();
        gtk_box_pack_start(GTK_BOX(hbox), entry, TRUE, TRUE, 5);
        g_signal_connect(GTK_OBJECT(entry), "activate",
                        G_CALLBACK(open_or_create_workspace_callback), NULL);
 
        menu_item = gtk_menu_item_new_with_label("Workspace list");
        // regenerating the menu every time we try to access it
        menu = NULL; // (necessary initialization for the callback)
        g_signal_connect(G_OBJECT(menu_item), "button-press-event",
                        G_CALLBACK(regenerate_workspace_menu_callback), menu);
        gtk_widget_show(menu_item);
 
        menu_bar = gtk_menu_bar_new();
        gtk_box_pack_start(GTK_BOX(hbox), menu_bar, FALSE, FALSE, 0);
        gtk_menu_bar_append(GTK_MENU_BAR(menu_bar), menu_item);
        gtk_widget_show(menu_bar);
 
        gtk_widget_show_all(hbox);
        gtk_box_pack_start(GTK_BOX(vbox), hbox, TRUE, FALSE, 5);
        return entry;
}

References open_or_create_workspace_callback(), and regenerate_workspace_menu_callback().

Referenced by create_status_subwindow().

Here is the call graph for this function:

Here is the caller graph for this function:

display_memory_usage()

void display_memory_usage

(

)

etext, edata and end are only address symbols...

getrusage() failed:

Definition at line 84 of file gtk_status.c.

                            {
        char memory_string[17];
        char cpu_string[CPU_USAGE_LENGTH + 1];
        struct rusage an_rusage;
 
        /* etext, edata and end are only address symbols... */
        debug(6, "display_memory_usage",
                        "_text %#x, _data %#x, _end %#x, _brk %#x\n", &etext, &edata, &end,
                        sbrk(0));
 
        sprintf(memory_string, "%10.3f", ((intptr_t) sbrk(0) - (intptr_t) &etext)
                        / (double) (1 << 20));
 
        gtk_label_set_text(GTK_LABEL(memory_name), memory_string);
 
        if (getrusage(RUSAGE_SELF, &an_rusage) == 0) {
                double the_cpu_time = an_rusage.ru_utime.tv_sec
                                + an_rusage.ru_stime.tv_sec + (an_rusage.ru_utime.tv_usec
                                + an_rusage.ru_stime.tv_usec) * 1e-6;
                sprintf(cpu_string, "%*.*g", CPU_USAGE_LENGTH, CPU_USAGE_LENGTH - 2,
                                the_cpu_time);
        } else
                /* getrusage() failed: */
                sprintf(cpu_string, "%*s", CPU_USAGE_LENGTH, "?");
 
        gtk_label_set_text(GTK_LABEL(cpu_usage_item), cpu_string);
}

References cpu_usage_item, CPU_USAGE_LENGTH, debug(), edata, end, etext, intptr_t, and memory_name.

Referenced by close_workspace_notify(), create_status_subwindow(), edit_close_notify(), end_create_workspace_notify(), end_delete_workspace_notify(), end_open_workspace_notify(), end_select_module_callback(), end_select_module_notify(), execute_gpips_execute_and_display_something_outside_the_notifier(), execute_safe_apply_outside_the_notifier(), execute_safe_apply_outside_the_notifyer(), execute_workspace_creation_and_so_on_given_with_options(), execute_wpips_execute_and_display_something_outside_the_notifyer(), gpips_file_view(), gpips_main(), gpips_view_marked_busy(), show_directory(), show_message(), show_module(), show_workspace(), transform_notify(), update_options(), wpips_file_view(), wpips_main(), and wpips_view_marked_busy().

Here is the call graph for this function:

Here is the caller graph for this function:

end_directory_notify_callback()

static void end_directory_notify_callback ( GtkWidget *  w, gpointer data   __attribute__(unused)  )

static

Definition at line 173 of file gtk_status.c.

                                                                                                {
        if (GTK_IS_ENTRY(w))
                end_directory_notify(gtk_entry_get_text(GTK_ENTRY(w)));
}

References end_directory_notify().

Referenced by create_dir_choose_entry().

Here is the call graph for this function:

Here is the caller graph for this function:

gpips_interrupt_button_blink()

void gpips_interrupt_button_blink

(

)

Definition at line 145 of file gtk_status.c.

                                    {
        //      if ((Server_image) xv_get(status_window_pips_image, PANEL_LABEL_IMAGE)
        //                      == gpips_negative_server_image)
        //              xv_set(status_window_pips_image, PANEL_LABEL_IMAGE,
        //                              gpips_positive_server_image, NULL);
        //      else
        //              xv_set(status_window_pips_image, PANEL_LABEL_IMAGE,
        //                              gpips_negative_server_image, NULL);
 
}

Referenced by deal_with_gpips_events_during_pipsmake().

Here is the caller graph for this function:

gpips_interrupt_button_restore()

void gpips_interrupt_button_restore

(

)

Definition at line 156 of file gtk_status.c.

                                      {
        //      xv_set(status_window_pips_image, PANEL_LABEL_IMAGE,
        //                      gpips_positive_server_image, NULL);
}

Referenced by gpips_main_loop().

Here is the caller graph for this function:

open_or_create_workspace_callback()

void open_or_create_workspace_callback	(	GtkWidget *	w,
		gpointer data	__attribute__(unused)
	)

Definition at line 198 of file gtk_status.c.

                                                                                             {
        //gtk_entry_set_text(GTK_ENTRY(workspace_name_entry), gtk_entry_get_text(query_entry)); TODO: FIX ICI pour transferer le workspace name du query_entry au workspace_enamer_entry
        open_or_create_workspace(gtk_entry_get_text(GTK_ENTRY(w)));
        return;
}

References open_or_create_workspace().

Referenced by create_workspace_entry().

Here is the call graph for this function:

Here is the caller graph for this function:

regenerate_module_menu_callback()

static gboolean regenerate_module_menu_callback ( GtkWidget *  w, GdkEventButton *  ev, gpointer  data  )

static

Definition at line 246 of file gtk_status.c.

                                                    {
        //GtkWidget * new_menu;
        GtkWidget * menu = (GtkWidget *) data;
 
        if (menu != NULL)
                gtk_menu_item_remove_submenu(GTK_MENU_ITEM(w));
 
        menu = generate_module_menu();
        gtk_menu_item_set_submenu(GTK_MENU_ITEM(w), menu);
 
        return FALSE;
}

References generate_module_menu().

Referenced by create_module_entry().

Here is the call graph for this function:

Here is the caller graph for this function:

regenerate_workspace_menu_callback()

static gboolean regenerate_workspace_menu_callback ( GtkWidget *  w, GdkEventButton *  ev, gpointer  data  )

static

Definition at line 232 of file gtk_status.c.

                                                    {
        //GtkWidget * new_menu;
        GtkWidget * menu = (GtkWidget *) data;
 
        if (menu != NULL)
                gtk_menu_item_remove_submenu(GTK_MENU_ITEM(w));
 
        menu = generate_workspace_menu();
        gtk_menu_item_set_submenu(GTK_MENU_ITEM(w), menu);
 
        return FALSE;
}

References generate_workspace_menu().

Referenced by create_workspace_entry().

Here is the call graph for this function:

Here is the caller graph for this function:

show_directory()

void show_directory

(

)

Definition at line 118 of file gtk_status.c.

                      {
        gtk_entry_set_text(GTK_ENTRY(directory_name_entry), get_cwd());
        display_memory_usage();
}

References directory_name_entry, display_memory_usage(), and get_cwd().

Referenced by create_status_subwindow(), end_directory_notify(), and prompt_user_not_allowed_to_change_directory().

Here is the call graph for this function:

Here is the caller graph for this function:

show_message()

void show_message

(

string

message_buffer

)

va_list some_arguments; static char message_buffer[SMALL_BUFFER_LENGTH];

va_start(some_arguments, a_printf_format);

(void) vsprintf(message_buffer, a_printf_format, some_arguments);

Parameters

message_buffer

...

Definition at line 161 of file gtk_status.c.

                                           {
        /* va_list some_arguments;
         static char message_buffer[SMALL_BUFFER_LENGTH]; */
 
        /* va_start(some_arguments, a_printf_format); */
 
        /* (void) vsprintf(message_buffer, a_printf_format, some_arguments);*/
 
        //      xv_set(message, PANEL_VALUE, message_buffer, 0);
        display_memory_usage();
}

References display_memory_usage().

Here is the call graph for this function:

show_module()

void show_module

(

)

Definition at line 134 of file gtk_status.c.

                   {
        static char *none = "(* none *)";
        char *module_name_content = db_get_current_module_name();
 
        if (module_name_content == NULL)
                module_name_content = none;
        //
        //      xv_set(module_name_entry, PANEL_VALUE, module_name_content, 0);
        display_memory_usage();
}

References db_get_current_module_name(), and display_memory_usage().

Referenced by close_workspace_notify(), create_status_subwindow(), end_select_module_callback(), end_select_module_notify(), execute_workspace_creation_and_so_on_given_with_options(), and select_a_module_by_default().

Here is the call graph for this function:

Here is the caller graph for this function:

show_workspace()

void show_workspace

(

)

Definition at line 123 of file gtk_status.c.

                      {
        static char *none = "(* none *)";
        char *name = db_get_current_workspace_name();
 
        if (name == NULL)
                name = none;
        //
        //      xv_set(workspace_name_entry, PANEL_VALUE, name, 0);
        display_memory_usage();
}

References db_get_current_workspace_name(), and display_memory_usage().

Referenced by cancel_create_workspace_notify(), cancel_open_workspace_notify(), close_workspace_notify(), create_status_subwindow(), end_create_workspace_notify(), end_open_workspace_notify(), execute_workspace_creation_and_so_on_given_with_options(), and open_or_create_workspace().

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

cpu_usage_item

GtkWidget* cpu_usage_item

Definition at line 77 of file gtk_status.c.

Referenced by create_status_subwindow(), and display_memory_usage().

directory_name_entry

GtkWidget* directory_name_entry

Definition at line 74 of file gtk_status.c.

Referenced by choose_dir_callback(), create_status_subwindow(), disable_change_directory(), enable_change_directory(), and show_directory().

directory_name_entry_button

GtkWidget * directory_name_entry_button

Definition at line 74 of file gtk_status.c.

edata

char edata

Definition at line 82 of file gtk_status.c.

Referenced by display_memory_usage().

end

char end

Definition at line 82 of file gtk_status.c.

Referenced by attach_to_sentence_list(), C_comment_p(), clear_log_subwindow(), discard_a_control_sequence_without_its_statements(), display_memory_usage(), fun_completion(), generate_a_statement_list_from_a_control_sequence(), gfc2pips_array_ref2indices(), hash_table_clear(), last_word_of_sentence(), local_strnlen(), main(), module_entity_to_compilation_unit_entity(), outliner_patch_parameters(), output_an_attachment(), partition_successor_p(), printf_time_delta(), printf_usage_delta(), save_edited_file(), seq_rwt(), str_sub(), strnlen(), two_addresses_code_generator(), VASNPRINTF(), and write_string().

etext

char etext

extern

Strange, "man end" says that end is a function!

Referenced by display_memory_usage().

gmessage

GtkWidget * gmessage

Definition at line 75 of file gtk_status.c.

Referenced by create_status_subwindow().

memory_name

GtkWidget * memory_name

Definition at line 75 of file gtk_status.c.

Referenced by create_status_subwindow(), and display_memory_usage().

module_name_entry

GtkWidget* module_name_entry

Definition at line 76 of file gtk_status.c.

Referenced by create_status_subwindow(), disable_module_selection(), enable_module_selection(), and select_module_from_status_menu_callback().

window_number

GtkWidget * window_number

Definition at line 75 of file gtk_status.c.

Referenced by compute_title_string(), gpips_file_view(), gpips_view_marked_busy(), wpips_file_view(), and wpips_view_marked_busy().

workspace_name_entry

GtkWidget* workspace_name_entry

Definition at line 75 of file gtk_status.c.

Referenced by continue_create_workspace_notify(), create_status_subwindow(), disable_workspace_create_or_open(), disable_workspace_delete_or_open(), enable_workspace_create_or_open(), enable_workspace_delete_or_open(), end_create_workspace_notify(), and select_workspace_notify().