wpips.c File Reference

#include <stdio.h>
#include <stdlib.h>
#include <sys/time.h>
#include <sys/resource.h>
#include <xview/xview.h>
#include <xview/panel.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 "constants.h"
#include "resources.h"
#include "pipsmake.h"
#include "top-level.h"
#include "wpips.h"
#include "xv_sizes.h"
#include "pips.icon"

Include dependency graph for wpips.c:

Go to the source code of this file.

Enumerations
enum	{ WPIPS_NUMBER_OF_EVENT_TO_DEAL_DURING_PIPSMAKE_INTERPHASE = 10 }
	How much to call the notifyer between each pipsmake phase: More...

Functions
static void	create_menus ()
void	main_event_proc (Xv_Window window, Event *event)
void	create_main_window ()
void	create_icon ()
static void	wpips_parse_arguments (int argc, char *argv[])
	Try to parse the WPips arguments. More...
static void	execute_workspace_creation_and_so_on_given_with_options (void)
	Execute some actions asked as option after XView initialization: More...
static bool	deal_with_wpips_events_during_pipsmake ()
	Since XView is not called while pipsmake is running, explicitly run a hook from pipsmake to run the notifyer such as to stop pipsmake: More...
void	wpips_interrupt_pipsmake (Panel_item item, Event *event)
	To ask pipsmake to stop as soon as possible: More...
static int	wpips_xview_error (Xv_object object, Attr_avlist avlist)
	Try to inform the user about an XView error. More...
void	execute_main_loop_command (wpips_main_loop_command_type command)
	Exit the notify loop to execute a WPips command: More...
static void	wpips_main_loop (Frame frame_to_map_first)
	The main loop that deals with command outside the XView notifyer: More...
int	wpips_main (int argc, char *argv[])

Variables
Frame	main_frame
	If we are in the Emacs mode, the log_frame is no longer really used: More...
Frame	schoose_frame
Frame	mchoose_frame
Frame	log_frame
Frame	edit_frame [MAX_NUMBER_OF_WPIPS_WINDOWS]
Frame	help_frame
Frame	query_frame
Frame	options_frame
Panel	main_panel
Panel	status_panel
Panel	query_panel
Panel	mchoose_panel
Panel	schoose_panel
Panel	help_panel
static wpips_main_loop_command_type	wpips_main_loop_command = WPIPS_EXIT
	The variables to pass information between inside and outside the XView notifyer: More...
static string	workspace_name_given_to_wpips = NULL
	To deal with argument parsing: More...
static string	module_name_given_to_wpips = NULL
static gen_array_t	files_given_to_wpips = NULL
static int	first_mapping = TRUE
static unsigned short	pips_bits []

Enumeration Type Documentation

anonymous enum

anonymous enum

How much to call the notifyer between each pipsmake phase:

Enumerator
WPIPS_NUMBER_OF_EVENT_TO_DEAL_DURING_PIPSMAKE_INTERPHASE

Definition at line 272 of file wpips.c.

     {
   WPIPS_NUMBER_OF_EVENT_TO_DEAL_DURING_PIPSMAKE_INTERPHASE = 10
};

Function Documentation

create_icon()

void create_icon

(

)

Definition at line 157 of file wpips.c.

{
    Server_image pips_image;
    Icon icon;
    Rect rect;
 
    pips_image = (Server_image)xv_create(NULL, SERVER_IMAGE, 
                                         XV_WIDTH, 64,
                                         XV_HEIGHT, 64,
                                         SERVER_IMAGE_BITS, pips_bits, 
                                         NULL);
    icon = (Icon)xv_create(XV_NULL, ICON, 
                           ICON_IMAGE, pips_image,
                           NULL);
    rect.r_width= (int)xv_get(icon, XV_WIDTH);
    rect.r_height= (int)xv_get(icon, XV_HEIGHT);
    rect.r_left= 0;
    rect.r_top= 0;
 
    xv_set(main_frame, FRAME_ICON, icon, 
           FRAME_CLOSED_RECT, &rect,
           NULL);
}

References int, main_frame, and pips_bits.

create_main_window()

void create_main_window

(

)

Xv_window main_window;

The following mask is necessary to avoid that key events occure twice.

main_window = (Xv_Window) xv_find(main_frame, WINDOW, 0); xv_set(main_window, WIN_IGNORE_EVENT, WIN_UP_ASCII_EVENTS, NULL);

commented out as we shifted to xview.3, 92.04

xv_set(canvas_paint_window(main_panel), WIN_IGNORE_EVENT, WIN_UP_ASCII_EVENTS, WIN_CONSUME_EVENT, 32526, WIN_EVENT_PROC, main_event_proc, NULL);

Definition at line 129 of file wpips.c.

{
    /* Xv_window main_window; */
 
    main_panel = xv_create(main_frame, PANEL,
                           NULL);
 
    /* The following mask is necessary to avoid that key events occure twice.
     */
    /*    main_window = (Xv_Window) xv_find(main_frame, WINDOW, 0);
          xv_set(main_window,
          WIN_IGNORE_EVENT, WIN_UP_ASCII_EVENTS, 
          NULL);
          */
    /* commented out as we shifted to xview.3, 92.04 */
/*    xv_set(canvas_paint_window(main_panel),
           WIN_IGNORE_EVENT, WIN_UP_ASCII_EVENTS,
           WIN_CONSUME_EVENT, 32526, 
           WIN_EVENT_PROC, main_event_proc,
           NULL);
*/
}

References main_frame, and main_panel.

Referenced by wpips_main().

Here is the caller graph for this function:

create_menus()

static void create_menus ( )

static

create_analyze_menu();

The option panel use the definition of the edit menu and so needs to be create after it:

Gone in create_menus_end(): ...No !

In the Emacs mode, no XView log window:

In fact, create it but disabled to keep the same frame layout:

Definition at line 85 of file wpips.c.

{
   create_select_menu();
   create_edit_menu();
/*    create_analyze_menu();*/
   create_transform_menu();
   create_compile_menu();
   /* The option panel use the definition of the edit menu and so
      needs to be create after it: */
   create_options_menu_and_window();
   /* Gone in create_menus_end(): ...No ! */
   create_help_menu(); 
   /* In the Emacs mode, no XView log window: */
   /* In fact, create it but disabled to keep the same frame layout: */
   create_log_menu();
   create_quit_button();
}

References create_compile_menu(), create_edit_menu(), create_help_menu(), create_log_menu(), create_options_menu_and_window(), create_quit_button(), create_select_menu(), and create_transform_menu().

Referenced by wpips_main().

Here is the call graph for this function:

Here is the caller graph for this function:

deal_with_wpips_events_during_pipsmake()

static bool deal_with_wpips_events_during_pipsmake ( )

static

Since XView is not called while pipsmake is running, explicitly run a hook from pipsmake to run the notifyer such as to stop pipsmake:

First, try to show we are working :-)

Ask the XView notifyer to deal with one event.

Refresh the main frame:

pipsmake not interrupted by default:

Definition at line 279 of file wpips.c.

{
   int i;
 
   /* First, try to show we are working :-) */
   wpips_interrupt_button_blink();
 
   for (i = 0; i < WPIPS_NUMBER_OF_EVENT_TO_DEAL_DURING_PIPSMAKE_INTERPHASE; i++)
      /* Ask the XView notifyer to deal with one event. */
      notify_dispatch();
 
   /* Refresh the main frame: */
   XFlush((Display *) xv_get(main_frame, XV_DISPLAY));
   /* pipsmake not interrupted by default: */
   return TRUE;
}

References main_frame, wpips_interrupt_button_blink(), and WPIPS_NUMBER_OF_EVENT_TO_DEAL_DURING_PIPSMAKE_INTERPHASE.

Referenced by wpips_main().

Here is the call graph for this function:

Here is the caller graph for this function:

execute_main_loop_command()

void execute_main_loop_command

(

wpips_main_loop_command_type

command

)

Exit the notify loop to execute a WPips command:

I guess the function above does not return...

Definition at line 333 of file wpips.c.

{
   wpips_main_loop_command = command;
   notify_stop();
   /* I guess the function above does not return... */
}

References wpips_main_loop_command.

execute_workspace_creation_and_so_on_given_with_options()

static void execute_workspace_creation_and_so_on_given_with_options ( void  )

static

Execute some actions asked as option after XView initialization:

It fails, Go on with the normal WPips behaviour...

It fails, Go on with the normal WPips behaviour...

It fails, Go on with the normal WPips behaviour...

Definition at line 236 of file wpips.c.

{
   if (workspace_name_given_to_wpips != NULL) 
   {
      if (files_given_to_wpips != NULL) 
      {
         if (! db_create_workspace(workspace_name_given_to_wpips))
            /* It fails, Go on with the normal WPips behaviour... */
            return;
         
         if (! create_workspace(files_given_to_wpips))
            /* It fails, Go on with the normal WPips behaviour... */
            return;
         
         gen_array_free(files_given_to_wpips), files_given_to_wpips = NULL;
      } else {
         if (! open_workspace(workspace_name_given_to_wpips))
            /* It fails, Go on with the normal WPips behaviour... */
            return;
      }
 
      if (module_name_given_to_wpips != NULL) {
         end_select_module_notify(module_name_given_to_wpips);
      }
      enable_workspace_close();
      show_workspace();
      enable_module_selection();
      disable_change_directory();
      enable_workspace_create_or_open();
      display_memory_usage();
      show_module();
   }
}

References create_workspace(), db_create_workspace(), disable_change_directory(), display_memory_usage(), enable_module_selection(), enable_workspace_close(), enable_workspace_create_or_open(), end_select_module_notify(), files_given_to_wpips, gen_array_free(), module_name_given_to_wpips, open_workspace(), show_module(), show_workspace(), and workspace_name_given_to_wpips.

Referenced by wpips_main().

Here is the call graph for this function:

Here is the caller graph for this function:

main_event_proc()

void main_event_proc	(	Xv_Window	window,
		Event *	event
	)

we place all frames

Definition at line 115 of file wpips.c.

{
    if (first_mapping == TRUE && event_id(event)==32526) {
                first_mapping = FALSE;
 
                /* we place all frames */
                place_frames();
    };
}

References first_mapping, and place_frames().

Here is the call graph for this function:

wpips_interrupt_pipsmake()

void wpips_interrupt_pipsmake	(	Panel_item	item,
		Event *	event
	)

To ask pipsmake to stop as soon as possible:

Definition at line 299 of file wpips.c.

{
   interrupt_pipsmake_asap();
   user_log("PIPS interruption requested...\n");
}

References interrupt_pipsmake_asap(), and user_log().

Referenced by create_status_subwindow().

Here is the call graph for this function:

Here is the caller graph for this function:

wpips_main()

int wpips_main	(	int	argc,
		char *	argv[]
	)

we parse command line arguments

XV_ERROR_PROC unset as we shifted to xview.3, Apr. 92

we parse remaining command line arguments

we create all frames

Create the edit/view windows only if we are not in the Emacs mode:

In the Emacs mode, no XView log window but we need it to compute the size of some other frames...

create_menus_end();

create_icon();

Call added. RK, 9/06/1993.

If we are in the emacs mode, initialize some things:

Definition at line 378 of file wpips.c.

{
  pips_checks();
  set_pips_meta_informations(soft_revisions, soft_date, cc_version);
 
  pips_warning_handler = wpips_user_warning;
  pips_error_handler = wpips_user_error;
  pips_log_handler = wpips_user_log;
  pips_update_props_handler = update_options;
  pips_request_handler = wpips_user_request;
 
  initialize_newgen();
  initialize_sc((char*(*)(Variable))entity_local_name);
  set_exception_callbacks(push_pips_context, pop_pips_context);
 
  debug_on("WPIPS_DEBUG_LEVEL");
 
  /* we parse command line arguments */
  /* XV_ERROR_PROC unset as we shifted to xview.3, Apr. 92 */
  xv_init(XV_INIT_ARGC_PTR_ARGV, &argc, argv, 
          XV_ERROR_PROC, wpips_xview_error,
          0);
 
  /* we parse remaining command line arguments */
  wpips_parse_arguments(argc, argv);
 
  /* we create all frames */
  create_frames();
 
  create_main_window();
 
  create_help_window();
 
  create_schoose_window();
 
  create_mchoose_window();
 
  create_query_window();
 
  if (! wpips_emacs_mode)
    /* Create the edit/view windows only if we are not in the Emacs
       mode: */
    create_edit_window();
 
  /* In the Emacs mode, no XView log window but we need it to compute
     the size of some other frames... */
  create_log_window();
 
  create_menus();
 
  create_status_subwindow();
 
  /* create_menus_end(); */
 
  create_icons();
  /*    create_icon();*/
 
  /* Call added. RK, 9/06/1993. */
  place_frames();
 
  /* If we are in the emacs mode, initialize some things: */
  initialize_emacs_mode();
 
  display_memory_usage();
 
  enable_workspace_create_or_open();
  enable_change_directory();
  disable_workspace_close();
  disable_module_selection();
  disable_view_selection();
  disable_transform_selection();
  disable_compile_selection();
  disable_option_selection();
 
  set_pipsmake_callback(deal_with_wpips_events_during_pipsmake);
 
  execute_workspace_creation_and_so_on_given_with_options();
 
  wpips_main_loop(main_frame);
 
  reset_pipsmake_callback();
 
  close_log_file();
 
  debug_off();
 
  exit(0);
}

References cc_version, close_log_file(), create_edit_window(), create_frames(), create_help_window(), create_icons(), create_log_window(), create_main_window(), create_mchoose_window(), create_menus(), create_query_window(), create_schoose_window(), create_status_subwindow(), deal_with_wpips_events_during_pipsmake(), debug_off, debug_on, disable_compile_selection(), disable_module_selection(), disable_option_selection(), disable_transform_selection(), disable_view_selection(), disable_workspace_close(), display_memory_usage(), enable_change_directory(), enable_workspace_create_or_open(), entity_local_name(), execute_workspace_creation_and_so_on_given_with_options(), exit, initialize_emacs_mode(), initialize_newgen(), initialize_sc(), main_frame, pips_checks(), pips_error_handler, pips_log_handler, pips_request_handler, pips_update_props_handler, pips_warning_handler, place_frames(), pop_pips_context(), push_pips_context(), reset_pipsmake_callback(), set_exception_callbacks(), set_pips_meta_informations(), set_pipsmake_callback(), soft_date, soft_revisions, update_options(), wpips_emacs_mode, wpips_main_loop(), wpips_parse_arguments(), wpips_user_error(), wpips_user_log(), wpips_user_request(), wpips_user_warning(), and wpips_xview_error().

Here is the call graph for this function:

wpips_main_loop()

static void wpips_main_loop ( Frame  frame_to_map_first )

static

The main loop that deals with command outside the XView notifyer:

The loop to execute commands:

If the notifyer happen to exit without a specifyed command, just exit:

Restore the initial state of the blinking pips icon:

Wait again for something from X11 and emacs:

Definition at line 343 of file wpips.c.

{
   xv_main_loop(frame_to_map_first);
 
   /* The loop to execute commands: */
   while (wpips_main_loop_command != WPIPS_EXIT) {
      debug(1, "wpips_main_loop", "wpips_main_loop_command = %d\n", wpips_main_loop_command);
   
      switch((int) wpips_main_loop_command) {
        case WPIPS_SAFE_APPLY:
         execute_safe_apply_outside_the_notifyer();
         break;
 
        case WPIPS_EXECUTE_AND_DISPLAY:
         execute_wpips_execute_and_display_something_outside_the_notifyer();
         break;
         
        default:
         pips_assert("wpips_main_loop does not understand the wpips_main_loop_command", 0);
      }
      
      /* If the notifyer happen to exit without a specifyed command,
         just exit: */
      wpips_main_loop_command = WPIPS_EXIT;
 
      /* Restore the initial state of the blinking pips icon: */
      wpips_interrupt_button_restore();
 
      /* Wait again for something from X11 and emacs: */
      notify_start();
   }
}

References debug(), execute_safe_apply_outside_the_notifyer(), execute_wpips_execute_and_display_something_outside_the_notifyer(), pips_assert, WPIPS_EXECUTE_AND_DISPLAY, WPIPS_EXIT, wpips_interrupt_button_restore(), wpips_main_loop_command, and WPIPS_SAFE_APPLY.

Referenced by wpips_main().

Here is the call graph for this function:

Here is the caller graph for this function:

wpips_parse_arguments()

static void wpips_parse_arguments ( int  argc, char *  argv[]  )

static

Try to parse the WPips arguments.

The problem is that the -emacs option need to be known early but the workspace and other typical PIPS options need to be evaluate later...

Should add a help and version option.

the one of getopt (3)

Wpips is called from emacs. RK.

lazy init

Definition at line 192 of file wpips.c.

{
   extern int optind; /* the one of getopt (3) */
   int iarg = optind;
 
   while (iarg < argc) {
      if (same_string_p(argv[iarg], "-emacs")) {
         argv[iarg] = NULL;
         /* Wpips is called from emacs. RK. */
         wpips_emacs_mode = 1;
      }
      else if (same_string_p(argv[iarg], "-workspace")) {
         argv[iarg] = NULL;
         workspace_name_given_to_wpips = argv[++iarg];
      }
      else if (same_string_p(argv[iarg], "-module")) {
         argv[iarg] = NULL;
         module_name_given_to_wpips = argv[++iarg];
      }
      else if (same_string_p(argv[iarg], "-files")) {
         argv[iarg] = NULL;
         
         if (!files_given_to_wpips) /* lazy init */
             files_given_to_wpips = gen_array_make(0);
         gen_array_append(files_given_to_wpips, argv[++iarg]);
      }
      else {
         if (argv[iarg][0] == '-') {
            fprintf(stderr, "Usage: %s ", argv[0]);
            fprintf(stderr, "[ X-Window options ] [ -emacs ]");
            fprintf(stderr, "[ -workspace name [ -module name ] ");
            fprintf(stderr, "[ -files file1.f file2.f ... ] ]\n");
            exit(1);
         }
      }
 
      iarg += 1;
   }
}

References exit, files_given_to_wpips, fprintf(), gen_array_append(), gen_array_make(), module_name_given_to_wpips, optind, same_string_p, workspace_name_given_to_wpips, and wpips_emacs_mode.

Referenced by wpips_main().

Here is the call graph for this function:

Here is the caller graph for this function:

wpips_xview_error()

static int wpips_xview_error ( Xv_object  object, Attr_avlist  avlist  )

static

Try to inform the user about an XView error.

For debug, use the WPIPS_DEBUG_LEVEL to have an abort on this kind of error.

Cannot use pips_assert since it uses XView, neither get_bool_property for the same reason:

Definition at line 311 of file wpips.c.

{
   debug_on("WPIPS_DEBUG_LEVEL");
 
   fprintf(stderr, "wpips_xview_error caught an error:\n%s\n",
           xv_error_format(object, avlist));
   /* Cannot use pips_assert since it uses XView, neither
      get_bool_property for the same reason: */
   if (get_debug_level() > 0) {
      fprintf(stderr, "wpips_xview_error is aborting as requested since WPIPS_DEBUG_LEVEL > 0...\n");
      abort();
   }
   
   debug_off();
   
   return XV_OK;
}

References abort, debug_off, debug_on, fprintf(), and get_debug_level().

Referenced by wpips_main().

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

edit_frame

Frame edit_frame[MAX_NUMBER_OF_WPIPS_WINDOWS]

Definition at line 58 of file wpips.c.

files_given_to_wpips

gen_array_t files_given_to_wpips = NULL

static

Definition at line 80 of file wpips.c.

Referenced by execute_workspace_creation_and_so_on_given_with_options(), and wpips_parse_arguments().

first_mapping

int first_mapping = TRUE

static

Definition at line 113 of file wpips.c.

Referenced by main_event_proc().

help_frame

Frame help_frame

Definition at line 59 of file wpips.c.

help_panel

Panel help_panel

Definition at line 68 of file wpips.c.

log_frame

Frame log_frame

Definition at line 57 of file wpips.c.

main_frame

Frame main_frame

If we are in the Emacs mode, the log_frame is no longer really used:

Definition at line 54 of file wpips.c.

Referenced by continue_create_workspace_notify(), create_compile_menu(), create_edit_menu(), create_frames(), create_help_menu(), create_icon(), create_icons(), create_main_window(), create_options_menu_and_window(), create_schoose_window(), create_select_menu(), create_status_subwindow(), create_transform_menu(), deal_with_wpips_events_during_pipsmake(), end_delete_workspace_notify(), insert_something_in_the_wpips_log_window(), place_frames(), pointer_in_center_of_frame(), prompt_user(), quit_notify(), and wpips_main().

main_panel

Panel main_panel

Definition at line 63 of file wpips.c.

Referenced by create_analyze_menu(), create_compile_menu(), create_edit_menu(), create_help_menu(), create_log_menu(), create_main_window(), create_options_menu_and_window(), create_quit_button(), create_status_subwindow(), create_transform_menu(), and schoose_create_abbrev_menu_with_text().

mchoose_frame

Frame mchoose_frame

Definition at line 56 of file wpips.c.

mchoose_panel

Panel mchoose_panel

Definition at line 66 of file wpips.c.

module_name_given_to_wpips

string module_name_given_to_wpips = NULL

static

Definition at line 79 of file wpips.c.

Referenced by execute_workspace_creation_and_so_on_given_with_options(), and wpips_parse_arguments().

options_frame

Frame options_frame

Definition at line 61 of file wpips.c.

pips_bits

unsigned short pips_bits[]

static

Initial value:

= {
}

Definition at line 153 of file wpips.c.

Referenced by create_icon().

query_frame

Frame query_frame

Definition at line 60 of file wpips.c.

query_panel

Panel query_panel

Definition at line 65 of file wpips.c.

schoose_frame

Frame schoose_frame

Definition at line 55 of file wpips.c.

schoose_panel

Panel schoose_panel

Definition at line 67 of file wpips.c.

status_panel

Panel status_panel

Definition at line 64 of file wpips.c.

workspace_name_given_to_wpips

string workspace_name_given_to_wpips = NULL

static

To deal with argument parsing:

Definition at line 78 of file wpips.c.

Referenced by execute_workspace_creation_and_so_on_given_with_options(), and wpips_parse_arguments().

wpips_main_loop_command

wpips_main_loop_command_type wpips_main_loop_command = WPIPS_EXIT

static

The variables to pass information between inside and outside the XView notifyer:

By default, exiting the notifyer is to exit wpips:

Definition at line 75 of file wpips.c.

Referenced by execute_main_loop_command(), and wpips_main_loop().