xv_status.c File Reference

#include <stdlib.h>
#include <stdio.h>
#include <stdarg.h>
#include <sys/time.h>
#include <sys/resource.h>
#include <xview/xview.h>
#include <xview/panel.h>
#include <xview/text.h>
#include <xview/svrimage.h>
#include "genC.h"
#include "linear.h"
#include "ri.h"
#include "database.h"
#include "misc.h"
#include "ri-util.h"
#include "pipsdbm.h"
#include "wpips.h"

Include dependency graph for xv_status.c:

Go to the source code of this file.

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	window_number_notify (Panel_item item, int value, Event *event)
void	show_directory ()
void	show_workspace ()
void	show_module ()
void	wpips_interrupt_button_blink ()
void	wpips_interrupt_button_restore ()
void	show_message (string message_buffer)
void	create_status_subwindow ()

Variables
Panel_item	directory_name_panel_item
Panel_item	workspace_name_panel_item
Panel_item	memory_name
Panel_item	message
Panel_item	window_number
Panel_item	module_name_panel_item
Panel_item	cpu_usage_item
Server_image	status_window_pips_image
	etext
	Strange, "man end" says that end is a function! More...
	edata
	end

Enumeration Type Documentation

anonymous enum

anonymous enum

Enumerator
DECALAGE_STATUS

Definition at line 59 of file xv_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 63 of file xv_status.c.

     {CPU_USAGE_LENGTH = 8
};

Function Documentation

create_status_subwindow()

void create_status_subwindow

(

)

Maintenant on n'utilise plus qu'un seul panel pour la fene^tre principale. En effet, sinon il y a des proble`mes de retrac,age sur e'cran couleur. RK, 15/03/1994.

Ignore the return code of end_directory_notify:

ANEL_ITEM_X_GAP, DECALAGE_STATUS, PANEL_VALUE_Y, xv_rows(main_panel, 4),

Put the Pixmap above the Help button:

Definition at line 203 of file xv_status.c.

{
   /* Maintenant on n'utilise plus qu'un seul panel pour la fene^tre
      principale.  En effet, sinon il y a des proble`mes de retrac,age
      sur e'cran couleur. RK, 15/03/1994. */
   Server_image pips_icon_server_image;
   
   message = 
      xv_create(main_panel, PANEL_TEXT, 
                PANEL_VALUE_X, DECALAGE_STATUS,
                PANEL_VALUE_Y, xv_rows(main_panel, 1),
                PANEL_LABEL_STRING, "Message:",
                PANEL_READ_ONLY, TRUE,
                PANEL_VALUE_DISPLAY_LENGTH, 64,
                PANEL_VALUE_STORED_LENGTH, 1000,
                NULL);
/*
   directory_name_panel_item = 
      xv_create(main_panel, PANEL_TEXT, 
                PANEL_VALUE_X, DECALAGE_STATUS,
                PANEL_VALUE_Y, xv_rows(main_panel, 2),
                PANEL_LABEL_STRING, "Directory:",
                PANEL_READ_ONLY, FALSE,
                PANEL_NOTIFY_PROC, end_directory_text_notify,
                PANEL_VALUE_DISPLAY_LENGTH, 64,
                PANEL_VALUE_STORED_LENGTH, 256,
                NULL);
   */
   directory_name_panel_item =
      schoose_create_abbrev_menu_with_text(
          main_panel,
          "Directory:",
          61,
          DECALAGE_STATUS,
          xv_rows(main_panel, 2),
          generate_directory_menu,
          /* Ignore the return code of end_directory_notify: */
          (void (*)(char *)) end_directory_notify); 
 
   xv_set(directory_name_panel_item,
          PANEL_VALUE_STORED_LENGTH, 512,
          NULL);
   
   workspace_name_panel_item =
      schoose_create_abbrev_menu_with_text(main_panel,
                                           "Workspace:",
                                           20,
                                           DECALAGE_STATUS,
                                           xv_rows(main_panel, 3),
                                           generate_workspace_menu,
                                           open_or_create_workspace);
 
   module_name_panel_item =
      schoose_create_abbrev_menu_with_text(main_panel,
                                           "Module:",
                                           20,
                                           DECALAGE_STATUS,
                                           xv_rows(main_panel, 4),
                                           generate_module_menu,
                                           end_select_module_notify);
 
   memory_name = 
      xv_create(main_panel, PANEL_TEXT,
                PANEL_ITEM_X_GAP, DECALAGE_STATUS,
                PANEL_VALUE_X, xv_col(main_panel, 50),
                PANEL_VALUE_Y, xv_rows(main_panel, 3),
                PANEL_LABEL_STRING, "Memory (MB):",
                PANEL_VALUE_DISPLAY_LENGTH, 9,
                PANEL_READ_ONLY, TRUE,
                NULL);
 
   cpu_usage_item = xv_create(main_panel, PANEL_TEXT,
                             PANEL_LABEL_STRING, "CPU (s):", 
                              PANEL_VALUE_DISPLAY_LENGTH, CPU_USAGE_LENGTH,
                              PANEL_READ_ONLY, TRUE,
                              PANEL_VALUE_X, xv_col(main_panel, 68),
                              PANEL_VALUE_Y, xv_rows(main_panel, 3),
                              NULL);
   
   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_WPIPS_WINDOWS,
                PANEL_VALUE, number_of_wpips_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, wpips_interrupt_pipsmake,
                                /* Put the Pixmap above the Help button: */
                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);
   
   window_fit(main_panel);
   window_fit(main_frame);
 
   show_directory();
   show_workspace();
   show_module();
   display_memory_usage();
}

References cpu_usage_item, CPU_USAGE_LENGTH, create_status_window_pips_image(), DECALAGE_STATUS, directory_name_panel_item, display_memory_usage(), end_directory_notify(), end_select_module_notify(), generate_directory_menu(), generate_module_menu(), generate_workspace_menu(), main_frame, main_panel, MAX_NUMBER_OF_WPIPS_WINDOWS, memory_name, module_name_panel_item, number_of_wpips_windows, open_or_create_workspace(), pips_icon_server_image, quit_button, schoose_create_abbrev_menu_with_text(), show_directory(), show_module(), show_workspace(), status_window_pips_image, window_number, window_number_notify(), workspace_name_panel_item, and wpips_interrupt_pipsmake().

Here is the call graph for this function:

display_memory_usage()

void display_memory_usage

(

)

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

getrusage() failed:

Definition at line 79 of file xv_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", (sbrk(0) - (int) &etext)/(double)(1 << 20));
 
   xv_set(memory_name,
          PANEL_VALUE, memory_string,
          NULL);
 
   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, "?");
   
   xv_set(cpu_usage_item,
          PANEL_VALUE, cpu_string,
          NULL);
}

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

Referenced by create_status_subwindow(), show_directory(), show_message(), show_module(), show_workspace(), and window_number_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

show_directory()

void show_directory

(

)

Definition at line 126 of file xv_status.c.

{
   xv_set(directory_name_panel_item, PANEL_VALUE, get_cwd(), NULL);
   display_memory_usage();
}

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

Referenced by create_status_subwindow().

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 188 of file xv_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 149 of file xv_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_panel_item, PANEL_VALUE, module_name_content, 0);
   display_memory_usage();
}

References db_get_current_module_name(), display_memory_usage(), and module_name_panel_item.

Referenced by create_status_subwindow().

Here is the call graph for this function:

Here is the caller graph for this function:

show_workspace()

void show_workspace

(

)

Definition at line 135 of file xv_status.c.

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

References db_get_current_workspace_name(), display_memory_usage(), and workspace_name_panel_item.

Referenced by create_status_subwindow().

Here is the call graph for this function:

Here is the caller graph for this function:

window_number_notify()

void window_number_notify	(	Panel_item	item,
		int	value,
		Event *	event
	)

Definition at line 114 of file xv_status.c.

{
   number_of_wpips_windows = (int) xv_get(item, PANEL_VALUE);
   
   if (wpips_emacs_mode)
      send_window_number_to_emacs(number_of_wpips_windows);
   
   display_memory_usage();
}

References display_memory_usage(), int, number_of_wpips_windows, send_window_number_to_emacs(), and wpips_emacs_mode.

Referenced by create_status_subwindow().

Here is the call graph for this function:

Here is the caller graph for this function:

wpips_interrupt_button_blink()

void wpips_interrupt_button_blink

(

)

Definition at line 163 of file xv_status.c.

{
   if ((Server_image) xv_get(status_window_pips_image, PANEL_LABEL_IMAGE) ==
       wpips_negative_server_image)
      xv_set(status_window_pips_image,
             PANEL_LABEL_IMAGE, wpips_positive_server_image,
             NULL);
   else
      xv_set(status_window_pips_image,
             PANEL_LABEL_IMAGE, wpips_negative_server_image,
             NULL);
      
}

References status_window_pips_image, wpips_negative_server_image, and wpips_positive_server_image.

Referenced by deal_with_wpips_events_during_pipsmake().

Here is the caller graph for this function:

wpips_interrupt_button_restore()

void wpips_interrupt_button_restore

(

)

Definition at line 179 of file xv_status.c.

{
   xv_set(status_window_pips_image,
          PANEL_LABEL_IMAGE, wpips_positive_server_image,
          NULL);
}

References status_window_pips_image, and wpips_positive_server_image.

Referenced by wpips_main_loop().

Here is the caller graph for this function:

Variable Documentation

cpu_usage_item

Panel_item cpu_usage_item

Definition at line 71 of file xv_status.c.

Referenced by create_status_subwindow(), and display_memory_usage().

directory_name_panel_item

Panel_item directory_name_panel_item

Definition at line 67 of file xv_status.c.

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

edata

edata

Definition at line 76 of file xv_status.c.

Referenced by display_memory_usage().

end

end

Definition at line 76 of file xv_status.c.

Referenced by display_memory_usage().

etext

etext

extern

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

Referenced by display_memory_usage().

memory_name

Panel_item memory_name

Definition at line 69 of file xv_status.c.

Referenced by create_status_subwindow(), and display_memory_usage().

message

Panel_item message

Definition at line 69 of file xv_status.c.

module_name_panel_item

Panel_item module_name_panel_item

Definition at line 70 of file xv_status.c.

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

status_window_pips_image

Server_image status_window_pips_image

Definition at line 73 of file xv_status.c.

Referenced by create_status_subwindow(), wpips_interrupt_button_blink(), and wpips_interrupt_button_restore().

window_number

Panel_item window_number

Definition at line 69 of file xv_status.c.

Referenced by create_status_subwindow().

workspace_name_panel_item

Panel_item workspace_name_panel_item

Definition at line 68 of file xv_status.c.

Referenced by create_status_subwindow(), disable_workspace_create_or_open(), disable_workspace_delete_or_open(), enable_workspace_create_or_open(), enable_workspace_delete_or_open(), and show_workspace().