xv_edit2.c File Reference

#include <stdlib.h>
#include <stdio.h>
#include <sys/param.h>
#include <sys/time.h>
#include <sys/resource.h>
#include <xview/xview.h>
#include <xview/panel.h>
#include <xview/text.h>
#include "genC.h"
#include "linear.h"
#include "ri.h"
#include "ri-util.h"
#include "database.h"
#include "misc.h"
#include "pipsdbm.h"
#include "resources.h"
#include "constants.h"
#include "top-level.h"
#include "wpips.h"
#include "wpips-labels.h"
#include "wpips_view_menu_layout.h"

Include dependency graph for xv_edit2.c:

Go to the source code of this file.

Macros
#define	DONT_TOUCH_WINDOW_ADDRESS   0

Functions
void	edit_notify (Menu menu, Menu_item menu_item)
void	current_selection_notify (Menu menu, Menu_item menu_item)
void	dont_touch_window_notify (Panel_item item, int value, Event *event)
char *	compute_title_string (int window_number)
int	alloc_first_initialized_window (bool the_same_as_previous)
	Find the first free window if any. More...
bool	wpips_view_marked_busy (char *title_module_name, char *title_label, char *icon_name, char *icon_title)
	Mark a wpips or epips window as busy: More...
void	wpips_file_view (char *file_name, char *title_module_name, char *title_label, char *icon_name, char *icon_title)
	Display a file in a wpips or epips window: More...
void	wpips_display_graph_file_display (wpips_view_menu_layout_line *menu_line)
	Use daVinci to display a graph information: More...
void	wpips_display_plain_file (wpips_view_menu_layout_line *menu_line)
	Use some text viewer to display the resource: More...
void	wpips_display_WP65_file (wpips_view_menu_layout_line *menu_line)
	Mainly a hack to display 2 files in only one method for WP65... More...
void	execute_wpips_execute_and_display_something_outside_the_notifyer ()
	To execute something and display some Pips output with wpips or epips, called outside the notifyer: More...
void	wpips_execute_and_display_something_outside_the_notifyer (wpips_view_menu_layout_line *menu_line)
void	wpips_execute_and_display_something (char *resource_name)
	To execute something and display some Pips output with wpips or epips: More...
void	wpips_execute_and_display_something_from_alias (char *alias_name)
	To execute something and display some Pips output with wpips or epips by knowing its alias: More...
void	view_notify (Menu menu, Menu_item menu_item)
void	edit_close_notify (Menu menu, Menu_item menu_item)
void	disable_menu_item (Menu_item item)
void	enable_menu_item (Menu_item item)
void	apply_on_each_view_item (void(*function_to_apply_on_each_menu_item)(Menu_item), void(*function_to_apply_on_each_panel_item)(Panel_item))
void	disable_view_selection ()
void	enable_view_selection ()
void	create_edit_window ()
void	create_edit_menu ()

Variables
static wpips_view_menu_layout_line	wpips_view_menu_layout []
	Include the label names: More...
static Textsw	edit_textsw [MAX_NUMBER_OF_WPIPS_WINDOWS]
static Panel_item	check_box [MAX_NUMBER_OF_WPIPS_WINDOWS]
static bool	dont_touch_window [MAX_NUMBER_OF_WPIPS_WINDOWS]
int	number_of_wpips_windows = INITIAL_NUMBER_OF_WPIPS_WINDOWS
static Menu_item	current_selection_mi
static Menu_item	close_menu_item
static Menu_item	sequential_view_menu_item
Menu_item	edit_menu_item
Menu	view_menu
	The menu "View" on the main panel: More...
static wpips_view_menu_layout_line *	execute_wpips_execute_and_display_something_outside_the_notifyer_menu_line = NULL
	To pass the view name to execute_wpips_execute_and_display_something_outside_the_notifyer(): More...

Macro Definition Documentation

DONT_TOUCH_WINDOW_ADDRESS

#define DONT_TOUCH_WINDOW_ADDRESS   0

Definition at line 186 of file xv_edit2.c.

Function Documentation

alloc_first_initialized_window()

int alloc_first_initialized_window

(

bool

the_same_as_previous

)

Find the first free window if any.

If called with TRUE, giive the same as the previous choosen one.

Skip windows with modified text inside :

Skip windows with a retain attribute :

Definition at line 211 of file xv_edit2.c.

{
   static int next = 0;
   static int candidate = 0;
   int i;
 
   if (the_same_as_previous)
      return candidate;
   
   for(i = next; i < next + number_of_wpips_windows; i++) {
      candidate = i % number_of_wpips_windows;
      /* Skip windows with modified text inside : */
      if ((bool)xv_get(edit_textsw[candidate], TEXTSW_MODIFIED))
         continue;
      /* Skip windows with a retain attribute : */
      if ((bool)xv_get(check_box[candidate], PANEL_VALUE))
         continue;
    
      next = candidate + 1;
      return candidate;
   }
   candidate = NO_TEXTSW_AVAILABLE;
   
   return candidate;
}    

References check_box, edit_textsw, NO_TEXTSW_AVAILABLE, and number_of_wpips_windows.

Referenced by edit_notify(), wpips_file_view(), and wpips_view_marked_busy().

Here is the caller graph for this function:

apply_on_each_view_item()

void apply_on_each_view_item	(	void(*)(Menu_item)	function_to_apply_on_each_menu_item,
		void(*)(Panel_item)	function_to_apply_on_each_panel_item
	)

Skip the "current_selection_mi" and "close" Menu_items:

Skip the title item:

Now walk through the options panel:

Only on the PANEL_CHOICE_STACK:

Definition at line 572 of file xv_edit2.c.

{
   int i;
 
   /* Skip the "current_selection_mi" and "close" Menu_items: */
   for(i = (int) xv_get(view_menu, MENU_NITEMS); i > 0; i--) {
      Menu_item menu_item = (Menu_item) xv_get(view_menu, MENU_NTH_ITEM, i);
      /* Skip the title item: */
      if (!(bool) xv_get(menu_item, MENU_TITLE)
          && menu_item != current_selection_mi
          && menu_item != close_menu_item
          && xv_get(menu_item, MENU_NOTIFY_PROC) != NULL)
         function_to_apply_on_each_menu_item(menu_item);
   }
 
  /* Now walk through the options panel: */
   {
      Panel_item panel_item;
 
      PANEL_EACH_ITEM(options_panel, panel_item)
         /* Only on the PANEL_CHOICE_STACK: */
         if ((Panel_item_type) xv_get(panel_item, PANEL_ITEM_CLASS) ==
             PANEL_BUTTON_ITEM)
            function_to_apply_on_each_panel_item(panel_item);
      PANEL_END_EACH
         }
}

References close_menu_item, current_selection_mi, options_panel, and view_menu.

Referenced by disable_view_selection(), and enable_view_selection().

Here is the caller graph for this function:

compute_title_string()

char* compute_title_string

(

int

window_number

)

xv_set will copy the string.

Definition at line 197 of file xv_edit2.c.

{
  char title_string_beginning[] = "Xview Pips Display Facility # ";
  static char title_string[sizeof(title_string_beginning) + 4];
 
  (void) sprintf(title_string, "%s%d",
                 title_string_beginning, window_number + 1);
  /* xv_set will copy the string. */
  return title_string;
}

References window_number.

Referenced by wpips_file_view(), and wpips_view_marked_busy().

Here is the caller graph for this function:

create_edit_menu()

void create_edit_menu

(

)

Make sense only if we have XView edit windows:

Now add all the view entries:

Just a separator:

Make sense only if we have XView edit windows:

Just a separator:

Definition at line 649 of file xv_edit2.c.

{
    wpips_view_menu_layout_line * current_view;
 
   current_selection_mi = 
      xv_create(NULL, MENUITEM, 
                MENU_STRING, "No Selection",
                MENU_NOTIFY_PROC, current_selection_notify,
                MENU_INACTIVE, TRUE,
                MENU_RELEASE,
                NULL);
 
   close_menu_item = 
      xv_create(NULL, MENUITEM, 
                MENU_STRING, "Close",
                MENU_NOTIFY_PROC, edit_close_notify,
                MENU_INACTIVE, TRUE,
                MENU_RELEASE,
                NULL);
 
   sequential_view_menu_item =
          xv_create(NULL, MENUITEM, 
                MENU_STRING, SEQUENTIAL_VIEW,
                MENU_NOTIFY_PROC, view_notify,
                NULL);
 
   view_menu = 
       xv_create(XV_NULL, MENU_COMMAND_MENU, 
                 MENU_GEN_PIN_WINDOW, main_frame, "View & Edit Menu",
                 MENU_TITLE_ITEM, "Viewing or editing a module ",
                 NULL);
   
   if (! wpips_emacs_mode) {
       /* Make sense only if we have XView edit windows: */
       xv_set(view_menu, MENU_APPEND_ITEM, current_selection_mi,
              NULL);
   }
   /* Now add all the view entries: */
   for (current_view = &wpips_view_menu_layout[0];
        current_view->menu_entry_string != NULL;
        current_view++) {
      if (strcmp(current_view->menu_entry_string,
                 WPIPS_MENU_SEPARATOR_ID) == 0)
         xv_set(view_menu,
                                /* Just a separator: */
                WPIPS_MENU_SEPARATOR,
                NULL);
      else
         xv_set(view_menu,
                MENU_ACTION_ITEM, current_view->menu_entry_string,
                view_notify,
                NULL);
   }
   if (! wpips_emacs_mode) {
       /* Make sense only if we have XView edit windows: */
       xv_set(view_menu,          /* Just a separator: */
              WPIPS_MENU_SEPARATOR,
              MENU_APPEND_ITEM, close_menu_item,
              NULL);
   }
 
   (void) xv_create(main_panel, PANEL_BUTTON,
                    PANEL_LABEL_STRING, "View",
                    PANEL_ITEM_MENU, view_menu,
                    NULL);
 
}

References close_menu_item, current_selection_mi, current_selection_notify(), edit_close_notify(), main_frame, main_panel, wpips_view_menu_layout_line_s::menu_entry_string, SEQUENTIAL_VIEW, sequential_view_menu_item, view_menu, view_notify(), wpips_emacs_mode, WPIPS_MENU_SEPARATOR, WPIPS_MENU_SEPARATOR_ID, and wpips_view_menu_layout.

Here is the call graph for this function:

create_edit_window()

void create_edit_window

(

)

Xv_Window window;

Definition at line 616 of file xv_edit2.c.

{
  /* Xv_Window window; */
  int i;
  
  for(i = 0; i < MAX_NUMBER_OF_WPIPS_WINDOWS; i++) {
    Panel panel;
    
    edit_textsw[i] = xv_create(edit_frame[i], TEXTSW, 
                               TEXTSW_DISABLE_CD, TRUE,
                               TEXTSW_DISABLE_LOAD, TRUE,
                               0);
    window_fit(edit_textsw[i]);
    panel = xv_create(edit_frame[i], PANEL,
                      WIN_ROW_GAP, 1,
                      WIN_COLUMN_GAP, 1,
                      NULL);
    dont_touch_window[i] = FALSE;
    check_box[i] = xv_create(panel, PANEL_CHECK_BOX,
                             PANEL_CHOICE_STRINGS, "Retain this window", NULL,
                             PANEL_VALUE, dont_touch_window[i],
                             PANEL_ITEM_X_GAP, 1,
                             PANEL_ITEM_Y_GAP, 1,
                             PANEL_NOTIFY_PROC, dont_touch_window_notify,
                             XV_KEY_DATA, DONT_TOUCH_WINDOW_ADDRESS, &dont_touch_window[i],
                             NULL);
    window_fit_height(panel);
    window_fit(edit_frame[i]);
  }
}

References check_box, dont_touch_window, DONT_TOUCH_WINDOW_ADDRESS, dont_touch_window_notify(), edit_frame, edit_textsw, and MAX_NUMBER_OF_WPIPS_WINDOWS.

Here is the call graph for this function:

current_selection_notify()

void current_selection_notify	(	Menu	menu,
		Menu_item	menu_item
	)

Definition at line 175 of file xv_edit2.c.

{
  int i;
  
  for(i = 0; i < number_of_wpips_windows; i++)
    unhide_window(edit_frame[i]);
}

References edit_frame, number_of_wpips_windows, and unhide_window().

Referenced by create_edit_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

disable_menu_item()

void disable_menu_item

(

Menu_item

item

)

Definition at line 558 of file xv_edit2.c.

{
   xv_set(item, MENU_INACTIVE, TRUE, 0);
}

Referenced by disable_compile_selection(), disable_option_selection(), disable_transform_selection(), and disable_view_selection().

Here is the caller graph for this function:

disable_view_selection()

void disable_view_selection

(

)

Definition at line 603 of file xv_edit2.c.

{
   apply_on_each_view_item(disable_menu_item, disable_panel_item);
}

References apply_on_each_view_item(), disable_menu_item(), and disable_panel_item().

Here is the call graph for this function:

dont_touch_window_notify()

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

Definition at line 188 of file xv_edit2.c.

{
  bool *dont_touch_window = (bool *) xv_get(item, XV_KEY_DATA,
                                            DONT_TOUCH_WINDOW_ADDRESS);
  *dont_touch_window = (bool) xv_get(item, PANEL_VALUE);
}

References dont_touch_window, and DONT_TOUCH_WINDOW_ADDRESS.

Referenced by create_edit_window().

Here is the caller graph for this function:

edit_close_notify()

void edit_close_notify	(	Menu	menu,
		Menu_item	menu_item
	)

Definition at line 527 of file xv_edit2.c.

{
   int i;
 
   if (! wpips_emacs_mode) {
      for(i = 0; i < MAX_NUMBER_OF_WPIPS_WINDOWS; i++)
         if (! (bool)xv_get(edit_textsw[i], TEXTSW_MODIFIED))
            hide_window(edit_frame[i]);
 
      for(i = 0; i < MAX_NUMBER_OF_WPIPS_WINDOWS; i++)
         if ((bool)xv_get(edit_textsw[i], TEXTSW_MODIFIED)) {
            unhide_window(edit_frame[i]);
            prompt_user("File not saved in editor");
            return;
         }
  
      for(i = 0; i < MAX_NUMBER_OF_WPIPS_WINDOWS; i++)
         hide_window(edit_frame[i]);
   
      xv_set(current_selection_mi, 
             MENU_STRING, "No Selection",
             MENU_INACTIVE, TRUE, NULL);
 
      xv_set(close_menu_item, MENU_INACTIVE, TRUE, NULL);
   }
   display_memory_usage();
}

References close_menu_item, current_selection_mi, display_memory_usage(), edit_frame, edit_textsw, hide_window(), MAX_NUMBER_OF_WPIPS_WINDOWS, prompt_user(), unhide_window(), and wpips_emacs_mode.

Referenced by create_edit_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

edit_notify()

void edit_notify	(	Menu	menu,
		Menu_item	menu_item
	)

Rely on the standard EPips viewer:

Translate the menu string in a resource name:

Is there an available edit_textsw ?

Display the file name and the module name. RK, 2/06/1993 :

Definition at line 94 of file xv_edit2.c.

{
    char string_filename[SMALL_BUFFER_LENGTH],
    string_modulename[SMALL_BUFFER_LENGTH];
    char file_name_in_database[MAXPATHLEN*2];
    char * modulename = db_get_current_module_name();
    char * file_name;
    int win_nb;
    char * alternate_wpips_editor;
 
    if (modulename == NULL) {
        prompt_user("No module selected");
        return;
    }
 
    if (wpips_emacs_mode) {
        /* Rely on the standard EPips viewer: */
        wpips_view_menu_layout_line * current_view;
        char * label = (char *) xv_get(menu_item, MENU_STRING);
        /* Translate the menu string in a resource name: */
        for (current_view = &wpips_view_menu_layout[0];
             current_view->menu_entry_string != NULL;
             current_view++)
            if (strcmp(label, current_view->menu_entry_string) == 0)
                break;
 
        pips_assert("Resource related to the menu entry not found",
                    current_view->menu_entry_string != NULL);
    
        wpips_execute_and_display_something_outside_the_notifyer(current_view);
    }
    else {
        file_name = db_get_file_resource(DBR_SOURCE_FILE, modulename, TRUE);
        sprintf(file_name_in_database, "%s/%s",
                build_pgmwd(db_get_current_workspace_name()),
                file_name);
 
        if ((alternate_wpips_editor = getenv("PIPS_WPIPS_EDITOR")) != NULL) {
            char editor_command[MAXPATHLEN*2];
            sprintf(editor_command, "%s %s &",
                    alternate_wpips_editor,
                    file_name_in_database);
            system(editor_command);
        }
        else {
            /* Is there an available edit_textsw ? */
            if ( (win_nb=alloc_first_initialized_window(FALSE)) == NO_TEXTSW_AVAILABLE ) {
                prompt_user("None of the text-windows is available");
                return;
            }
 
            sprintf(string_filename, "File: %s", file_name);
            sprintf(string_modulename, "Module: %s", modulename);
 
            /* Display the file name and the module name. RK, 2/06/1993 : */
            xv_set(edit_frame[win_nb], FRAME_LABEL, "Pips Edit Facility",
                   FRAME_SHOW_FOOTER, TRUE,
                   FRAME_LEFT_FOOTER, string_filename,
                   FRAME_RIGHT_FOOTER, string_modulename,
                   NULL);
 
            xv_set(edit_textsw[win_nb], 
                   TEXTSW_FILE, file_name_in_database,
                   TEXTSW_BROWSING, FALSE,
                   TEXTSW_FIRST, 0,
                   NULL);
 
            unhide_window(edit_frame[win_nb]);
   
            xv_set(current_selection_mi, 
                   MENU_STRING, "Lasts",
                   MENU_INACTIVE, FALSE,
                   NULL);
 
            xv_set(close_menu_item, MENU_INACTIVE, FALSE, NULL);
        }
    }
}

References alloc_first_initialized_window(), build_pgmwd, close_menu_item, current_selection_mi, db_get_current_module_name(), db_get_current_workspace_name(), db_get_file_resource, edit_frame, edit_textsw, file_name, MAXPATHLEN, wpips_view_menu_layout_line_s::menu_entry_string, NO_TEXTSW_AVAILABLE, pips_assert, prompt_user(), SMALL_BUFFER_LENGTH, unhide_window(), wpips_emacs_mode, wpips_execute_and_display_something_outside_the_notifyer(), and wpips_view_menu_layout.

Here is the call graph for this function:

enable_menu_item()

void enable_menu_item

(

Menu_item

item

)

Definition at line 565 of file xv_edit2.c.

{
   xv_set(item, MENU_INACTIVE, FALSE, 0);
}

Referenced by enable_compile_selection(), enable_option_selection(), enable_transform_selection(), and enable_view_selection().

Here is the caller graph for this function:

enable_view_selection()

void enable_view_selection

(

)

Definition at line 610 of file xv_edit2.c.

{
   apply_on_each_view_item(enable_menu_item, enable_panel_item);
}

References apply_on_each_view_item(), enable_menu_item(), and enable_panel_item().

Here is the call graph for this function:

execute_wpips_execute_and_display_something_outside_the_notifyer()

void execute_wpips_execute_and_display_something_outside_the_notifyer

(

)

To execute something and display some Pips output with wpips or epips, called outside the notifyer:

Execute the needed method:

The module list may have changed (well not very likely to happen, but...):

Definition at line 438 of file xv_edit2.c.

{
   wpips_view_menu_layout_line * menu_line = execute_wpips_execute_and_display_something_outside_the_notifyer_menu_line;
 
   /* Execute the needed method: */
   menu_line->method_function_to_use(menu_line);
   
   /* The module list may have changed (well not very likely to
      happen, but...): */
   send_the_names_of_the_available_modules_to_emacs();
   display_memory_usage();
}

References display_memory_usage(), execute_wpips_execute_and_display_something_outside_the_notifyer_menu_line, wpips_view_menu_layout_line_s::method_function_to_use, and send_the_names_of_the_available_modules_to_emacs().

Referenced by wpips_main_loop().

Here is the call graph for this function:

Here is the caller graph for this function:

view_notify()

void view_notify	(	Menu	menu,
		Menu_item	menu_item
	)

Translate the menu string in a resource name:

Definition at line 517 of file xv_edit2.c.

{
    /* Translate the menu string in a resource name: */
    char * label = (char *) xv_get(menu_item, MENU_STRING);
    wpips_execute_and_display_something_from_alias(label);
}

References wpips_execute_and_display_something_from_alias().

Referenced by create_edit_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

wpips_display_graph_file_display()

void wpips_display_graph_file_display

(

wpips_view_menu_layout_line *

menu_line

)

Use daVinci to display a graph information:

Exploit some parallelism between daVinci/Emacs and PIPS itself:

Preprocess the graph to be understandable by daVinci :

Since Emacs may be with another current directory, use the full path name:

Definition at line 338 of file xv_edit2.c.

{
    char * file_name;
    char a_buffer[SMALL_BUFFER_LENGTH];
    /* Exploit some parallelism between daVinci/Emacs and PIPS
       itself: */
    if (wpips_emacs_mode)
        ask_emacs_to_open_a_new_daVinci_context();
 
    file_name = build_view_file(menu_line->resource_name_to_view);
 
    user_log("Displaying in a \"daVinci\" window...\n");
 
    /* Preprocess the graph to be understandable by daVinci : */
    if (wpips_emacs_mode) {
        sprintf(a_buffer, "pips_graph2daVinci %s", file_name);
        system(a_buffer);
        /* Since Emacs may be with another current directory, use the
           full path name: */
        ask_emacs_to_display_a_graph(concatenate(get_cwd(),
                                                 "/", file_name, NULL));
    }
    else {
        (void) sprintf(a_buffer, "pips_graph2daVinci -launch_daVinci %s", 
                       file_name);
        system(a_buffer);
    }
 
    free(file_name);
}

References ask_emacs_to_display_a_graph(), ask_emacs_to_open_a_new_daVinci_context(), build_view_file(), concatenate(), file_name, free(), get_cwd(), wpips_view_menu_layout_line_s::resource_name_to_view, SMALL_BUFFER_LENGTH, user_log(), and wpips_emacs_mode.

Here is the call graph for this function:

wpips_display_plain_file()

void wpips_display_plain_file

(

wpips_view_menu_layout_line *

menu_line

)

Use some text viewer to display the resource:

Definition at line 372 of file xv_edit2.c.

{
    char title_module_name[SMALL_BUFFER_LENGTH];
 
    char * print_type = menu_line->resource_name_to_view;
    char * icon_name = menu_line->icon_name;
    char * label = menu_line->menu_entry_string;
    
    (void) sprintf(title_module_name, "Module: %s",
                   db_get_current_module_name());
    if (wpips_view_marked_busy(title_module_name, label, icon_name, 
                               db_get_current_module_name())) {
        char * file_name = build_view_file(print_type);
 
        wpips_file_view(file_name, title_module_name, label, icon_name, 
                        db_get_current_module_name());
 
        free(file_name);
    }
}

References build_view_file(), db_get_current_module_name(), file_name, free(), wpips_view_menu_layout_line_s::icon_name, wpips_view_menu_layout_line_s::menu_entry_string, print_type(), wpips_view_menu_layout_line_s::resource_name_to_view, SMALL_BUFFER_LENGTH, wpips_file_view(), and wpips_view_marked_busy().

Here is the call graph for this function:

wpips_display_WP65_file()

void wpips_display_WP65_file

(

wpips_view_menu_layout_line *

menu_line

)

Mainly a hack to display 2 files in only one method for WP65...

Now display the other file:

Assume the previous build_view_file built the both resources:

Definition at line 396 of file xv_edit2.c.

{
    char title_module_name[SMALL_BUFFER_LENGTH];
 
    char * print_type = menu_line->resource_name_to_view;
    char * icon_name = menu_line->icon_name;
    char * label = menu_line->menu_entry_string;
 
    (void) sprintf(title_module_name, "Module: %s", 
                   db_get_current_module_name());
    if (wpips_view_marked_busy(title_module_name, label, icon_name, 
                               db_get_current_module_name())) 
    {
        char bank_view_name[SMALL_BUFFER_LENGTH];
        
        char * file_name = build_view_file(print_type);
        wpips_file_view(file_name, title_module_name, label, icon_name,  
                        db_get_current_module_name());
        free(file_name);
 
        /* Now display the other file: */
        (void) sprintf(bank_view_name, "%s (bank view)", label);
        if (wpips_view_marked_busy(title_module_name, bank_view_name, 
                                   "WP65_bank", db_get_current_module_name()))
        {
            /* Assume the previous build_view_file built the both
               resources: */
            file_name = get_dont_build_view_file(DBR_WP65_BANK_FILE);
      
            wpips_file_view(file_name, title_module_name, 
                            bank_view_name, "WP65_bank", 
                            db_get_current_module_name());
 
            free(file_name);
        }
    }
}

References build_view_file(), db_get_current_module_name(), file_name, free(), get_dont_build_view_file(), wpips_view_menu_layout_line_s::icon_name, wpips_view_menu_layout_line_s::menu_entry_string, print_type(), wpips_view_menu_layout_line_s::resource_name_to_view, SMALL_BUFFER_LENGTH, wpips_file_view(), and wpips_view_marked_busy().

Here is the call graph for this function:

wpips_execute_and_display_something()

void wpips_execute_and_display_something

(

char *

resource_name

)

To execute something and display some Pips output with wpips or epips:

Translate the resource name in a menu entry descriptor:

Definition at line 466 of file xv_edit2.c.

{
    char * module_name = db_get_current_module_name();
    wpips_view_menu_layout_line * current_view;
 
    if (module_name == NULL) {
        prompt_user("No module selected");
        return;
    }
 
    /* Translate the resource name in a menu entry descriptor: */
    for (current_view = &wpips_view_menu_layout[0];
         current_view->menu_entry_string != NULL;
         current_view++)
        if (strcmp(resource_name, current_view->resource_name_to_view) == 0)
            break;
 
    pips_assert("Resource related to the menu entry not found",
                current_view->menu_entry_string != NULL);
    
    wpips_execute_and_display_something_outside_the_notifyer(current_view);
}

References db_get_current_module_name(), wpips_view_menu_layout_line_s::menu_entry_string, module_name(), pips_assert, prompt_user(), resource_name, wpips_view_menu_layout_line_s::resource_name_to_view, wpips_execute_and_display_something_outside_the_notifyer(), and wpips_view_menu_layout.

Here is the call graph for this function:

wpips_execute_and_display_something_from_alias()

void wpips_execute_and_display_something_from_alias

(

char *

alias_name

)

To execute something and display some Pips output with wpips or epips by knowing its alias:

Definition at line 493 of file xv_edit2.c.

{
    char * module_name = db_get_current_module_name();
    wpips_view_menu_layout_line * current_view;
 
    if (module_name == NULL) {
        prompt_user("No module selected");
        return;
    }
 
    for (current_view = &wpips_view_menu_layout[0];
         current_view->menu_entry_string != NULL;
         current_view++)
        if (strcmp(alias_name, current_view->menu_entry_string) == 0)
            break;
 
    pips_assert("Resource related to the menu entry not found",
                current_view->menu_entry_string != NULL);
    
    wpips_execute_and_display_something_outside_the_notifyer(current_view);
}

References db_get_current_module_name(), wpips_view_menu_layout_line_s::menu_entry_string, module_name(), pips_assert, prompt_user(), wpips_execute_and_display_something_outside_the_notifyer(), and wpips_view_menu_layout.

Referenced by epips_execute_and_display_something(), options_panel_to_view_menu_gateway(), and view_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

wpips_execute_and_display_something_outside_the_notifyer()

void wpips_execute_and_display_something_outside_the_notifyer

(

wpips_view_menu_layout_line *

menu_line

)

Ask to execute the execute_wpips_execute_and_display_something_outside_the_notifyer():

I guess the function above does not return...

Definition at line 453 of file xv_edit2.c.

{
   execute_wpips_execute_and_display_something_outside_the_notifyer_menu_line = menu_line;
   /* Ask to execute the
      execute_wpips_execute_and_display_something_outside_the_notifyer(): */
   execute_main_loop_command(WPIPS_EXECUTE_AND_DISPLAY);
   /* I guess the function above does not return... */
}

References execute_main_loop_command(), execute_wpips_execute_and_display_something_outside_the_notifyer_menu_line, and WPIPS_EXECUTE_AND_DISPLAY.

Referenced by edit_notify(), wpips_execute_and_display_something(), and wpips_execute_and_display_something_from_alias().

Here is the call graph for this function:

Here is the caller graph for this function:

wpips_file_view()

void wpips_file_view	(	char *	file_name,
		char *	title_module_name,
		char *	title_label,
		char *	icon_name,
		char *	icon_title
	)

Display a file in a wpips or epips window:

Well, something got wrong...

Is there an available edit_textsw ? Ask for the same one allocated for wpips_view_marked_busy()

Display the file name and the module name. RK, 2/06/1993 :

The Emacs mode equivalent:

send_icon_name_to_emacs(icon_number);

Parameters

title_label	The module name for example
icon_name	"Sequential View" for exemple

Definition at line 277 of file xv_edit2.c.

{
   if (file_name == NULL) {
      /* Well, something got wrong... */
      prompt_user("Nothing available to display...");
      return;
   }
   
   if (! wpips_emacs_mode) {
      int window_number;
      
      /* Is there an available edit_textsw ? Ask for the same one
         allocated for wpips_view_marked_busy() */
      if ((window_number = alloc_first_initialized_window(TRUE))
          == NO_TEXTSW_AVAILABLE) {
         prompt_user("None of the text-windows is available");
         return;
      }
      /* Display the file name and the module name. RK, 2/06/1993 : */
      xv_set(edit_frame[window_number],
             FRAME_LABEL, compute_title_string(window_number),
             FRAME_SHOW_FOOTER, TRUE,
             FRAME_RIGHT_FOOTER, title_module_name,
             NULL);
 
      set_pips_icon(edit_frame[window_number], icon_name, icon_title);
 
      xv_set(edit_textsw[window_number], 
             TEXTSW_FILE, file_name,
             TEXTSW_BROWSING, TRUE,
             TEXTSW_FIRST, 0,
             NULL);
 
      xv_set(edit_frame[window_number],
             FRAME_LEFT_FOOTER, title_label,
             FRAME_BUSY, FALSE,
             NULL);
      
      unhide_window(edit_frame[window_number]);
   
      xv_set(current_selection_mi, 
             MENU_STRING, "Lasts",
             MENU_INACTIVE, FALSE, NULL);
      xv_set(close_menu_item, MENU_INACTIVE, FALSE, NULL);
   }
   else {
      /* The Emacs mode equivalent: */
      send_module_name_to_emacs(db_get_current_module_name());
      /* send_icon_name_to_emacs(icon_number); */
      send_view_to_emacs(title_label, file_name);
   }
   display_memory_usage();
}

References alloc_first_initialized_window(), close_menu_item, compute_title_string(), current_selection_mi, db_get_current_module_name(), display_memory_usage(), edit_frame, edit_textsw, file_name, NO_TEXTSW_AVAILABLE, prompt_user(), send_module_name_to_emacs(), send_view_to_emacs(), set_pips_icon(), unhide_window(), window_number, and wpips_emacs_mode.

Referenced by notify_hpfc_file_view(), wpips_display_plain_file(), and wpips_display_WP65_file().

Here is the call graph for this function:

Here is the caller graph for this function:

wpips_view_marked_busy()

bool wpips_view_marked_busy	(	char *	title_module_name,
		char *	title_label,
		char *	icon_name,
		char *	icon_title
	)

Mark a wpips or epips window as busy:

Is there an available edit_textsw ?

Display the file name and the module name. RK, 2/06/1993 :

Parameters

title_label	The module name for example
icon_name	"Sequential View" for exemple

Definition at line 240 of file xv_edit2.c.

{
   char busy_label[SMALL_BUFFER_LENGTH];
   
   if (! wpips_emacs_mode) {
      int window_number;
      /* Is there an available edit_textsw ? */
      if ((window_number = alloc_first_initialized_window(FALSE))
          == NO_TEXTSW_AVAILABLE) {
         prompt_user("None of the text-windows is available");
         return FALSE;
      }
      (void) sprintf(busy_label, "*Computing %s * ...", title_label);
      /* Display the file name and the module name. RK, 2/06/1993 : */
      xv_set(edit_frame[window_number],
             FRAME_LABEL, compute_title_string(window_number),
             FRAME_SHOW_FOOTER, TRUE,
             FRAME_LEFT_FOOTER, busy_label,
             FRAME_RIGHT_FOOTER, title_module_name,
             FRAME_BUSY, TRUE,
             NULL);
 
      set_pips_icon(edit_frame[window_number], icon_name, icon_title);
 
      unhide_window(edit_frame[window_number]);
   }
   display_memory_usage();
 
   return TRUE;
}

References alloc_first_initialized_window(), compute_title_string(), display_memory_usage(), edit_frame, NO_TEXTSW_AVAILABLE, prompt_user(), set_pips_icon(), SMALL_BUFFER_LENGTH, unhide_window(), window_number, and wpips_emacs_mode.

Referenced by wpips_display_plain_file(), and wpips_display_WP65_file().

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

check_box

Panel_item check_box[MAX_NUMBER_OF_WPIPS_WINDOWS]

static

Definition at line 75 of file xv_edit2.c.

Referenced by alloc_first_initialized_window(), and create_edit_window().

close_menu_item

Menu_item close_menu_item

static

Definition at line 80 of file xv_edit2.c.

Referenced by apply_on_each_view_item(), create_edit_menu(), edit_close_notify(), edit_notify(), and wpips_file_view().

current_selection_mi

Menu_item current_selection_mi

static

Definition at line 79 of file xv_edit2.c.

Referenced by apply_on_each_view_item(), create_edit_menu(), edit_close_notify(), edit_notify(), and wpips_file_view().

dont_touch_window

bool dont_touch_window[MAX_NUMBER_OF_WPIPS_WINDOWS]

static

Definition at line 76 of file xv_edit2.c.

Referenced by create_edit_window(), and dont_touch_window_notify().

edit_menu_item

Menu_item edit_menu_item

Definition at line 82 of file xv_edit2.c.

edit_textsw

Textsw edit_textsw[MAX_NUMBER_OF_WPIPS_WINDOWS]

static

Definition at line 74 of file xv_edit2.c.

Referenced by alloc_first_initialized_window(), create_edit_window(), edit_close_notify(), edit_notify(), and wpips_file_view().

execute_wpips_execute_and_display_something_outside_the_notifyer_menu_line

wpips_view_menu_layout_line* execute_wpips_execute_and_display_something_outside_the_notifyer_menu_line = NULL

static

To pass the view name to execute_wpips_execute_and_display_something_outside_the_notifyer():

Definition at line 90 of file xv_edit2.c.

Referenced by execute_wpips_execute_and_display_something_outside_the_notifyer(), and wpips_execute_and_display_something_outside_the_notifyer().

number_of_wpips_windows

int number_of_wpips_windows = INITIAL_NUMBER_OF_WPIPS_WINDOWS

Definition at line 77 of file xv_edit2.c.

Referenced by alloc_first_initialized_window(), create_status_subwindow(), current_selection_notify(), quit_notify(), and window_number_notify().

sequential_view_menu_item

Menu_item sequential_view_menu_item

static

Definition at line 81 of file xv_edit2.c.

Referenced by create_edit_menu().

view_menu

Menu view_menu

The menu "View" on the main panel:

Definition at line 85 of file xv_edit2.c.

Referenced by apply_on_each_view_item(), and create_edit_menu().

wpips_view_menu_layout

wpips_view_menu_layout_line wpips_view_menu_layout[]

static

Initial value:

= {
 
   
   {
      NULL, NULL, NULL
   }
}

Include the label names:

Definition at line 64 of file xv_edit2.c.

Referenced by create_edit_menu(), edit_notify(), wpips_execute_and_display_something(), and wpips_execute_and_display_something_from_alias().