xv_select.c File Reference

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

Include dependency graph for xv_select.c:

Go to the source code of this file.

Enumerations
enum	{ WPIPS_MAX_MODULE_MENU_SIZE = 50 }
	Maximum size of the module menu of the main frame: More...

Functions
void	select_a_module_by_default ()
	Try to select a main module (that is the PROGRAM in the Fortran stuff) if no one is selected: More...
success	end_directory_notify (char *dir)
void	end_directory_text_notify (Panel_item text_item, Event *event)
void	direct_change_directory ()
	FC: uses an external wish script I do not know how to activate this function safely... More...
Menu	generate_directory_menu ()
void	prompt_user_not_allowed_to_change_directory (Panel_item text_item, Event *event)
void	start_directory_notify (Menu menu, Menu_item menu_item)
void	enable_change_directory ()
void	disable_change_directory ()
static void	restore_enable_change_directory_state ()
void	disable_workspace_create_or_open ()
void	enable_workspace_create_or_open ()
void	disable_workspace_delete_or_open ()
void	enable_workspace_delete_or_open ()
void	disable_workspace_close ()
void	enable_workspace_close ()
void	restore_enable_workspace_close_state ()
void	disable_module_selection ()
void	enable_module_selection ()
void	end_delete_workspace_notify (char *name)
void	cancel_delete_workspace_notify ()
void	start_delete_workspace_notify (Menu menu, Menu_item menu_item)
void	start_create_workspace_notify (Menu menu, Menu_item menu_item)
void	cancel_create_workspace_notify (Panel_item item, Event *event)
success	continue_create_workspace_notify (char *name)
void	user_prompt_not_a_valid_workspace_name (char *workspace_name)
void	end_create_workspace_notify (gen_array_t files)
void	end_open_workspace_notify (string name)
void	cancel_open_workspace_notify ()
void	open_workspace_notify (Menu menu, Menu_item menu_item)
success	close_workspace_notify (Menu menu, Menu_item menu_item)
void	open_or_create_workspace (char *workspace_name_original)
	To be used with schoose_create_abbrev_menu_with_text from the main panel: More...
Menu	generate_workspace_menu ()
	To use with schoose_create_abbrev_menu_with_text: More...
void	end_select_module_notify (string name)
void	cancel_select_module_notify ()
void	select_module_notify (Menu menu, Menu_item menu_item)
Menu	generate_module_menu ()
	To use with schoose_create_abbrev_menu_with_text: More...
void	create_select_menu ()

Variables
Menu_item	directory_menu_item
static char *	workspace_name_to_create
bool	wpips_close_workspace_menu_inactive
	To enable or disable the menu items generated by generate_module_menu(): More...
bool	wpips_close_workspace_menu_inactive_old
bool	wpips_create_workspace_menu_inactive
bool	wpips_open_workspace_menu_inactive
bool	wpips_delete_workspace_menu_inactive
bool	wpips_change_directory_inactive
bool	wpips_change_directory_inactive_old
static Menu_item	create_pgm
static Menu_item	open_pgm
static Menu_item	close_pgm
static Menu_item	module_item

Enumeration Type Documentation

anonymous enum

anonymous enum

Maximum size of the module menu of the main frame:

Enumerator
WPIPS_MAX_MODULE_MENU_SIZE

Definition at line 63 of file xv_select.c.

     {
   WPIPS_MAX_MODULE_MENU_SIZE = 50
};

Function Documentation

cancel_create_workspace_notify()

void cancel_create_workspace_notify	(	Panel_item	item,
		Event *	event
	)

Re'tablit le droit d'ouvrir ou de cre'er un autre worspace :

Definition at line 477 of file xv_select.c.

{
   /* Re'tablit le droit d'ouvrir ou de cre'er un autre worspace : */
   enable_workspace_create_or_open();
   enable_workspace_delete_or_open();
   enable_change_directory();
   cancel_query_notify(item, event);
   show_workspace();
}

References cancel_query_notify(), enable_change_directory(), enable_workspace_create_or_open(), enable_workspace_delete_or_open(), and show_workspace().

Referenced by continue_create_workspace_notify(), and start_create_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

cancel_delete_workspace_notify()

void cancel_delete_workspace_notify

(

)

Nothing to do.

Definition at line 408 of file xv_select.c.

{
   /* Nothing to do. */
   enable_workspace_delete_or_open();
   enable_workspace_create_or_open();
   restore_enable_workspace_close_state();
   restore_enable_change_directory_state();
}

References enable_workspace_create_or_open(), enable_workspace_delete_or_open(), restore_enable_change_directory_state(), and restore_enable_workspace_close_state().

Referenced by start_delete_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

cancel_open_workspace_notify()

void cancel_open_workspace_notify

(

)

Definition at line 656 of file xv_select.c.

{
   enable_workspace_create_or_open();
   enable_change_directory();
   show_workspace();
}

References enable_change_directory(), enable_workspace_create_or_open(), and show_workspace().

Referenced by open_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

cancel_select_module_notify()

void cancel_select_module_notify

(

void

)

Definition at line 915 of file xv_select.c.

{
}

Referenced by select_module_notify().

Here is the caller graph for this function:

close_workspace_notify()

success close_workspace_notify	(	Menu	menu,
		Menu_item	menu_item
	)

The close has been successful:

close_log_file();

It is the only place to enable a directory change, after a close workspace:

Tell Emacs the new module list, that is nothing in fact:

Definition at line 702 of file xv_select.c.

{
   success return_value;
   
   return_value = close_workspace(FALSE);
   debug(1, "close_workspace_notify", "return_value = %d\n", return_value);
 
   if (return_value ) {
      /* The close has been successful: */
       /* close_log_file(); */
      initialize_wpips_hpfc_hack_for_fabien_and_from_fabien();
 
      edit_close_notify(menu, menu_item);
 
      enable_workspace_create_or_open();
      disable_workspace_close();
   
      /* It is the only place to enable a directory change, after a close
         workspace: */
      enable_change_directory();
 
      disable_module_selection();
      /* Tell Emacs the new module list, that is nothing in fact: */
      send_the_names_of_the_available_modules_to_emacs();
   }
  
   hide_window(schoose_frame);
   show_workspace();
   show_module();
   display_memory_usage();
 
   return return_value;
}

References close_workspace(), debug(), disable_module_selection(), disable_workspace_close(), display_memory_usage(), edit_close_notify(), enable_change_directory(), enable_workspace_create_or_open(), hide_window(), initialize_wpips_hpfc_hack_for_fabien_and_from_fabien(), schoose_frame, send_the_names_of_the_available_modules_to_emacs(), show_module(), and show_workspace().

Referenced by create_select_menu(), end_delete_workspace_notify(), generate_workspace_menu(), open_or_create_workspace(), and start_create_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

continue_create_workspace_notify()

success continue_create_workspace_notify

(

char *

name

)

Is the name a valid workspace name?

Code added to confirm for a database destruction before opening a database with the same name. RK 18/05/1993.

Send to emacs if we are in the emacs mode:

To avoid passing the name through mchoose():

Only one Fortran program: use it without user confirmation.

Memory leak if mchoose exit...

If it failed, cancel the creation:

Definition at line 490 of file xv_select.c.

{
   gen_array_t fortran_list;
   int fortran_list_length = 0;
 
   /* Is the name a valid workspace name? */
   if (! workspace_name_p(name)) {
      user_prompt_not_a_valid_workspace_name(name);
   }
   else 
   {
       fortran_list = gen_array_make(0);
       pips_get_fortran_list(fortran_list);
       fortran_list_length = gen_array_nitems(fortran_list);
 
      if (fortran_list_length == 0) {
         prompt_user("No Fortran files in this directory");
      }
      else {
         /* Code added to confirm for a database destruction before
            opening a database with the same name.
            RK 18/05/1993. */
         if (workspace_exists_p(name))
         {
            int result;
            /* Send to emacs if we are in the emacs mode: */
            if (wpips_emacs_mode) 
               send_notice_prompt_to_emacs("The database",
                                           name,
                                           "already exists!",
                                           "Do you really want to remove it?",
                                           NULL);
            result = notice_prompt(xv_find(main_frame, WINDOW, 0),
                                   NULL,
                                   NOTICE_MESSAGE_STRINGS,
                                   "The database", name, "already exists!",
                                   "Do you really want to remove it?",
                                   NULL,
                                   NOTICE_BUTTON_YES,  
                                   "Yes, remove the database",
                                   NOTICE_BUTTON_NO,   "No, cancel",
                                   NULL);
            if (result == NOTICE_NO)
               goto continue_create_workspace_notify_failed;
         }
 
         disable_workspace_create_or_open();
 
         /* To avoid passing the name through mchoose(): */
         workspace_name_to_create = name;
         
         if (fortran_list_length == 1) {
            /* Only one Fortran program: use it without user
               confirmation. */
      user_log("There is only one Fortran program in the current directory.\n"
               "\tCreating the workspace \"%s\" from the file \"%s\"...\n",
                     name, 
                     gen_array_item(fortran_list, 0));
            end_create_workspace_notify(fortran_list);
         }
         else {
            mchoose("Create Workspace", 
                    fortran_list, 
                    end_create_workspace_notify,
                    (void (*)(void)) cancel_create_workspace_notify);
         }
         /* Memory leak if mchoose exit... */
         gen_array_full_free(fortran_list);
         
         return(TRUE);
      }
   }
 
   /* If it failed, cancel the creation: */
  continue_create_workspace_notify_failed:
   cancel_create_workspace_notify((Panel_item)NULL, (Event*)NULL);
   
   return FALSE;
}

References cancel_create_workspace_notify(), disable_workspace_create_or_open(), end_create_workspace_notify(), gen_array_full_free(), gen_array_item(), gen_array_make(), gen_array_nitems(), main_frame, mchoose(), pips_get_fortran_list(), prompt_user(), send_notice_prompt_to_emacs(), user_log(), user_prompt_not_a_valid_workspace_name(), workspace_exists_p(), workspace_name_p(), workspace_name_to_create, and wpips_emacs_mode.

Referenced by open_or_create_workspace(), and start_create_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

create_select_menu()

void create_select_menu

(

)

Exchange of the order of create_pgm & open_pgm on the screen for ergonomic reasons. :-) RK, 19/02/1993.

Exchange of the order of start_directory_notify & module_item on the screen for ergonomic reasons. :-) RK, 19/02/1993.

Now all the functionality of the select menu are on the status panel but I could reinstall the select menu later. Since I do not want do change the code, put the select menu in a dummy spare frame:

Definition at line 1016 of file xv_select.c.

{
   Menu menu, pmenu;
 
   create_pgm = xv_create(XV_NULL, MENUITEM, 
                          MENU_STRING, "Create",
                          MENU_NOTIFY_PROC, start_create_workspace_notify,
                          MENU_RELEASE,
                          NULL);
 
   open_pgm = xv_create(XV_NULL, MENUITEM, 
                        MENU_STRING, "Open",
                        MENU_NOTIFY_PROC, open_workspace_notify,
                        MENU_RELEASE,
                        NULL);
 
   close_pgm = xv_create(XV_NULL, MENUITEM, 
                         MENU_STRING, "Close",
                         MENU_NOTIFY_PROC, close_workspace_notify,
                         MENU_INACTIVE, TRUE,
                         MENU_RELEASE,
                         NULL);
 
   module_item = xv_create(XV_NULL, MENUITEM, 
                           MENU_STRING, "Module",
                           MENU_NOTIFY_PROC, select_module_notify,
                           MENU_INACTIVE, TRUE,
                           MENU_RELEASE,
                           NULL);
 
   /* Exchange of the order of create_pgm & open_pgm on the screen
      for ergonomic reasons. :-) RK, 19/02/1993. */
   pmenu = 
      xv_create(XV_NULL, MENU_COMMAND_MENU, 
                MENU_TITLE_ITEM, "Deal with workspaces ",
                MENU_GEN_PIN_WINDOW, main_frame, "Workspace Menu",
                MENU_APPEND_ITEM, open_pgm,
                MENU_APPEND_ITEM, create_pgm,
                MENU_APPEND_ITEM, close_pgm,
                NULL);
 
   /* Exchange of the order of start_directory_notify &
      module_item on the screen for ergonomic reasons.
      :-) RK, 19/02/1993. */
   directory_menu_item = xv_create(XV_NULL, MENUITEM,
                                   MENU_ACTION_ITEM,
                                   "Directory",
                                   start_directory_notify,
                                   NULL);
   
   menu = 
      xv_create(XV_NULL, MENU_COMMAND_MENU, 
                MENU_TITLE_ITEM, "Selecting workspace & Fortran module ",
                MENU_GEN_PIN_WINDOW, main_frame, "Selection Menu",
                MENU_APPEND_ITEM, module_item,
                MENU_PULLRIGHT_ITEM, "Workspace", pmenu,
                MENU_APPEND_ITEM, directory_menu_item,
                NULL);
 
   /* Now all the functionality of the select menu are on the status
      panel but I could reinstall the select menu later. Since I do
      not want do change the code, put the select menu in a dummy
      spare frame: */
   /*
      (void) xv_create(main_panel, PANEL_BUTTON,
                    PANEL_LABEL_STRING, "Select",
                    PANEL_ITEM_MENU, menu,
                    NULL);
                    */
   {
      Frame select_button_frame;
      Panel select_button_panel;
      
      select_button_frame = xv_create(main_frame, FRAME, 
                                      XV_SHOW, FALSE,
                                      NULL);
      select_button_panel = xv_create(select_button_frame, PANEL,
                                      NULL);
      
      (void) xv_create(select_button_panel, PANEL_BUTTON,
                       PANEL_LABEL_STRING, "Select",
                       PANEL_ITEM_MENU, menu,
                       NULL);
   }
}

References close_pgm, close_workspace_notify(), create_pgm, directory_menu_item, main_frame, module_item, open_pgm, open_workspace_notify(), select_module_notify(), start_create_workspace_notify(), and start_directory_notify().

Here is the call graph for this function:

direct_change_directory()

void direct_change_directory

(

)

FC: uses an external wish script I do not know how to activate this function safely...

no cd in this state!

last was

generate_workspace_menu();

Definition at line 139 of file xv_select.c.

{
    char newdir[MAXPATHLEN];
    char * tmp = strdup("/tmp/wpips.dir.XXXXXX");
    int i=0, c;
    FILE * tmph;
 
    (void) mkstemp(tmp);
 
    if (wpips_change_directory_inactive)
        return; /* no cd in this state! */
 
    safe_system(concatenate("wpips-changedir -- ", get_cwd(), " > ", tmp, NULL));
 
    tmph = safe_fopen(tmp, "r");
    while ((c=getc(tmph))!=EOF && i<MAXPATHLEN)
        newdir[i++]=c;
    newdir[i-1]='\0'; /* last was \n */
    safe_fclose(tmph, tmp);
 
    end_directory_notify(newdir);
 
    unlink(tmp); free(tmp);
 
    return /* generate_workspace_menu(); */ ;
}

References concatenate(), end_directory_notify(), free(), get_cwd(), MAXPATHLEN, safe_fclose(), safe_fopen(), safe_system(), strdup(), and wpips_change_directory_inactive.

Here is the call graph for this function:

disable_change_directory()

void disable_change_directory

(

)

In order to warn the user as soon as possible that (s)he can't change the directory, notify for whatever character:

Definition at line 218 of file xv_select.c.

{
   xv_set(directory_menu_item, MENU_INACTIVE, TRUE, NULL);
 
   /* In order to warn the user as soon as possible that (s)he can't
      change the directory, notify for whatever character: */
   xv_set(directory_name_panel_item,
          PANEL_NOTIFY_LEVEL, PANEL_ALL,
          PANEL_NOTIFY_PROC, prompt_user_not_allowed_to_change_directory,
          PANEL_INACTIVE, TRUE,
          NULL);
   wpips_change_directory_inactive_old = wpips_change_directory_inactive;
   wpips_change_directory_inactive = TRUE;
}

References directory_menu_item, directory_name_panel_item, prompt_user_not_allowed_to_change_directory(), wpips_change_directory_inactive, and wpips_change_directory_inactive_old.

Referenced by end_create_workspace_notify(), end_open_workspace_notify(), open_or_create_workspace(), restore_enable_change_directory_state(), start_create_workspace_notify(), and start_delete_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

disable_module_selection()

void disable_module_selection

(

)

Definition at line 330 of file xv_select.c.

{
   xv_set(module_item, MENU_INACTIVE, TRUE, NULL);
   xv_set(module_name_panel_item, PANEL_INACTIVE, TRUE, NULL);
   disable_view_selection();
   disable_transform_selection();
   disable_compile_selection();
   disable_option_selection();
}

References disable_compile_selection(), disable_option_selection(), disable_transform_selection(), disable_view_selection(), module_item, and module_name_panel_item.

Referenced by close_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

disable_workspace_close()

void disable_workspace_close

(

)

For generate_module_menu():

Definition at line 304 of file xv_select.c.

{
   xv_set(close_pgm, MENU_INACTIVE, TRUE, NULL);
   wpips_close_workspace_menu_inactive_old = wpips_close_workspace_menu_inactive;
   /* For generate_module_menu(): */
   wpips_close_workspace_menu_inactive = TRUE;
}

References close_pgm, wpips_close_workspace_menu_inactive, and wpips_close_workspace_menu_inactive_old.

Referenced by close_workspace_notify(), start_delete_workspace_notify(), and user_prompt_not_a_valid_workspace_name().

Here is the caller graph for this function:

disable_workspace_create_or_open()

void disable_workspace_create_or_open

(

)

Definition at line 248 of file xv_select.c.

{
   xv_set(create_pgm,
          MENU_INACTIVE, TRUE,
          NULL);
   wpips_create_workspace_menu_inactive = TRUE;
   xv_set(open_pgm,
          MENU_INACTIVE, TRUE,
          NULL);
   xv_set(workspace_name_panel_item,
          PANEL_INACTIVE, TRUE,
          NULL);
}

References create_pgm, open_pgm, workspace_name_panel_item, and wpips_create_workspace_menu_inactive.

Referenced by continue_create_workspace_notify(), open_workspace_notify(), start_create_workspace_notify(), and start_delete_workspace_notify().

Here is the caller graph for this function:

disable_workspace_delete_or_open()

void disable_workspace_delete_or_open

(

)

Avoid also to delete a workspace during a creation in case the name of the workspace is the same...

Definition at line 280 of file xv_select.c.

{
   /* Avoid also to delete a workspace during a creation in case the
      name of the workspace is the same... */
   wpips_delete_workspace_menu_inactive = TRUE;
   wpips_open_workspace_menu_inactive = TRUE;
   xv_set(workspace_name_panel_item,
          PANEL_INACTIVE, TRUE,
          NULL);
}

References workspace_name_panel_item, wpips_delete_workspace_menu_inactive, and wpips_open_workspace_menu_inactive.

Referenced by start_create_workspace_notify(), and start_delete_workspace_notify().

Here is the caller graph for this function:

enable_change_directory()

void enable_change_directory

(

)

Enable the normal notify mode: notify when return and so is typed:

Definition at line 201 of file xv_select.c.

{
   xv_set(directory_menu_item, MENU_INACTIVE, FALSE, NULL);
 
   /* Enable the normal notify mode: notify when return and so is
      typed: */
   xv_set(directory_name_panel_item,
          PANEL_NOTIFY_LEVEL, PANEL_SPECIFIED,
          PANEL_NOTIFY_PROC, end_directory_text_notify,
          PANEL_INACTIVE, FALSE,
          NULL);
   wpips_change_directory_inactive_old = wpips_change_directory_inactive;
   wpips_change_directory_inactive = FALSE;
}

References directory_menu_item, directory_name_panel_item, end_directory_text_notify(), wpips_change_directory_inactive, and wpips_change_directory_inactive_old.

Referenced by cancel_create_workspace_notify(), cancel_open_workspace_notify(), close_workspace_notify(), end_create_workspace_notify(), restore_enable_change_directory_state(), and user_prompt_not_a_valid_workspace_name().

Here is the call graph for this function:

Here is the caller graph for this function:

enable_module_selection()

void enable_module_selection

(

)

Well, after a workspace creation without automatic module selection successful, there is no module selected and thus the following menus are not very interestiong, except for the option part of the option selection. Anyway, there is a guard in each of these menu, so, just do nothing... :-)

Definition at line 342 of file xv_select.c.

{
   xv_set(module_item, MENU_INACTIVE, FALSE, NULL);
   xv_set(module_name_panel_item, PANEL_INACTIVE, FALSE, NULL);
   /* Well, after a workspace creation without automatic module
      selection successful, there is no module selected and thus the
      following menus are not very interestiong, except for the option
      part of the option selection. Anyway, there is a guard in each
      of these menu, so, just do nothing... :-) */
   enable_view_selection();
   enable_transform_selection();
   enable_compile_selection();
   enable_option_selection();
}

References enable_compile_selection(), enable_option_selection(), enable_transform_selection(), enable_view_selection(), module_item, and module_name_panel_item.

Referenced by end_create_workspace_notify(), and end_open_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

enable_workspace_close()

void enable_workspace_close

(

)

For generate_module_menu():

Definition at line 314 of file xv_select.c.

{
   xv_set(close_pgm, MENU_INACTIVE, FALSE, NULL);
   /* For generate_module_menu(): */
   wpips_close_workspace_menu_inactive = FALSE;
}

References close_pgm, and wpips_close_workspace_menu_inactive.

Referenced by end_create_workspace_notify(), and end_open_workspace_notify().

Here is the caller graph for this function:

enable_workspace_create_or_open()

void enable_workspace_create_or_open

(

)

Definition at line 264 of file xv_select.c.

{
   xv_set(create_pgm,
          MENU_INACTIVE, FALSE,
          NULL);
   wpips_create_workspace_menu_inactive = FALSE;
   xv_set(open_pgm,
          MENU_INACTIVE, FALSE,
          NULL);
   xv_set(workspace_name_panel_item,
          PANEL_INACTIVE, FALSE,
          NULL);
}

References create_pgm, open_pgm, workspace_name_panel_item, and wpips_create_workspace_menu_inactive.

Referenced by cancel_create_workspace_notify(), cancel_delete_workspace_notify(), cancel_open_workspace_notify(), close_workspace_notify(), end_create_workspace_notify(), end_delete_workspace_notify(), end_open_workspace_notify(), and user_prompt_not_a_valid_workspace_name().

Here is the caller graph for this function:

enable_workspace_delete_or_open()

void enable_workspace_delete_or_open

(

)

Definition at line 293 of file xv_select.c.

{
   wpips_delete_workspace_menu_inactive = FALSE;
   wpips_open_workspace_menu_inactive = FALSE;
   xv_set(workspace_name_panel_item,
          PANEL_INACTIVE, FALSE,
          NULL);
}

References workspace_name_panel_item, wpips_delete_workspace_menu_inactive, and wpips_open_workspace_menu_inactive.

Referenced by cancel_create_workspace_notify(), cancel_delete_workspace_notify(), end_create_workspace_notify(), and end_delete_workspace_notify().

Here is the caller graph for this function:

end_create_workspace_notify()

void end_create_workspace_notify

(

gen_array_t

files

)

If the user click quickly on OK, be sure end_create_workspace_notify() is not reentrant by verifying something as not been opened already:

Is the name a valid workspace name?

The create workspace has been successful:

open_log_file();

The processing of user files has been successful:

Tell Emacs the new module list:

close_log_file();

The creation failed:

Definition at line 583 of file xv_select.c.

{
    /* If the user click quickly on OK, be sure
       end_create_workspace_notify() is not reentrant by verifying
       something as not been opened already: */
    if (db_get_current_workspace_name() == NULL) {
        /* Is the name a valid workspace name? */
        if (workspace_name_p(workspace_name_to_create)) {
            if (db_create_workspace(workspace_name_to_create)) {
                /* The create workspace has been successful: */
                /* open_log_file(); */
                display_memory_usage();
         
                if (create_workspace(files)) {
                    /* The processing of user files has been successful: */
                    enable_workspace_close();
 
                    show_workspace();
                    select_a_module_by_default();
                    enable_module_selection();
                    disable_change_directory();
            
                    enable_workspace_create_or_open();
                    enable_workspace_delete_or_open();
 
                    /* Tell Emacs the new module list: */
                    send_the_names_of_the_available_modules_to_emacs();
 
                    display_memory_usage();
         
                    return;
                }
                else
                    /* close_log_file(); */
                    ;
            }
        }
        else
            user_prompt_not_a_valid_workspace_name(workspace_name_to_create);
 
        /* The creation failed: */
        enable_change_directory();
        enable_workspace_create_or_open();
        enable_workspace_delete_or_open();
   
        display_memory_usage();
    }
}

References create_workspace(), db_create_workspace(), db_get_current_workspace_name(), disable_change_directory(), display_memory_usage(), enable_change_directory(), enable_module_selection(), enable_workspace_close(), enable_workspace_create_or_open(), enable_workspace_delete_or_open(), select_a_module_by_default(), send_the_names_of_the_available_modules_to_emacs(), show_workspace(), user_prompt_not_a_valid_workspace_name(), workspace_name_p(), and workspace_name_to_create.

Referenced by continue_create_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

end_delete_workspace_notify()

void end_delete_workspace_notify

(

char *

name

)

Send to emacs if we are in the emacs mode:

First close the workspace:

Hmm... This may put WPips in a strange state if close fails...

Definition at line 359 of file xv_select.c.

{
   schoose_close();
 
   if (db_get_current_workspace_name() != NULL
       && strcmp(db_get_current_workspace_name(), name) == 0)
   {
      int result;
      /* Send to emacs if we are in the emacs mode: */
      if (wpips_emacs_mode) 
         send_notice_prompt_to_emacs("The workspace",
                                     name,
                                     "is currently opened!",
                                     "Do you really want to close and remove it ?",
                                     NULL);
      result = notice_prompt(xv_find(main_frame, WINDOW, 0),
                             NULL,
                             NOTICE_MESSAGE_STRINGS,
                             "The workspace",
                             name,
                             "is currently opened!",
                             "Do you really want to close and remove it ?",
                             NULL,
                             NOTICE_BUTTON_YES,  "Yes, remove the database",
                             NOTICE_BUTTON_NO,   "No, cancel",
                             NULL);
      if (result == NOTICE_NO)
         goto do_not_delete_the_workspace;
      
      /* First close the workspace: */
      if (!close_workspace_notify((Menu)NULL, (Menu_item)NULL))
         /* Hmm... This may put WPips in a strange state if close
            fails... */
         goto do_not_delete_the_workspace;
   }
 
   (void) delete_workspace(name);
 
  do_not_delete_the_workspace:
   enable_workspace_delete_or_open();
   enable_workspace_create_or_open();
   restore_enable_workspace_close_state();
   restore_enable_change_directory_state();
   
   display_memory_usage();
}

References close_workspace_notify(), db_get_current_workspace_name(), delete_workspace(), display_memory_usage(), enable_workspace_create_or_open(), enable_workspace_delete_or_open(), main_frame, restore_enable_change_directory_state(), restore_enable_workspace_close_state(), schoose_close(), send_notice_prompt_to_emacs(), and wpips_emacs_mode.

Referenced by start_delete_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

end_directory_notify()

success end_directory_notify

(

char *

dir

)

if (dir != NULL) {

Definition at line 109 of file xv_select.c.

{
   char *s;
 
/*   if (dir != NULL) {*/
   if ((s = pips_change_directory(dir)) == NULL) {
      user_log("Directory \"%s\" does not exist\n", dir);
      prompt_user("Directory \"%s\" does not exist\n", dir);
      show_directory();
      return FALSE;
   }
   else {
      user_log("Directory \"%s\" selected\n", dir);
      show_directory();
      return TRUE;
   }
}

References pips_change_directory(), prompt_user(), show_directory(), and user_log().

Referenced by direct_change_directory(), end_directory_text_notify(), and start_directory_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

end_directory_text_notify()

void end_directory_text_notify	(	Panel_item	text_item,
		Event *	event
	)

Definition at line 129 of file xv_select.c.

{
   (void) end_directory_notify((char *) xv_get(text_item, PANEL_VALUE));
}

References end_directory_notify().

Referenced by enable_change_directory().

Here is the call graph for this function:

Here is the caller graph for this function:

end_open_workspace_notify()

void end_open_workspace_notify

(

string

name

)

open_log_file();

Tell Emacs the new module list:

Definition at line 634 of file xv_select.c.

{
   schoose_close();
 
   if ( open_workspace(name) ) {
       /* open_log_file(); */
      enable_workspace_close();
      show_workspace();
      select_a_module_by_default();
      enable_module_selection();
      disable_change_directory();
      /* Tell Emacs the new module list: */
      send_the_names_of_the_available_modules_to_emacs();
   }
 
   enable_workspace_create_or_open();
 
   display_memory_usage();
}

References disable_change_directory(), display_memory_usage(), enable_module_selection(), enable_workspace_close(), enable_workspace_create_or_open(), open_workspace(), schoose_close(), select_a_module_by_default(), send_the_names_of_the_available_modules_to_emacs(), and show_workspace().

Referenced by open_or_create_workspace(), and open_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

end_select_module_notify()

void end_select_module_notify

(

string

name

)

Definition at line 882 of file xv_select.c.

{
   gen_array_t module_list = db_get_module_list();
   int module_list_length = gen_array_nitems(module_list);
 
   if (module_list_length == 0)
   {
      prompt_user("No module available in this workspace.");
   }
   else 
   {
      bool module_found = FALSE;
      int i;
      
      for(i = 0; i < module_list_length; i++) {
          string mn = gen_array_item(module_list, i);
         if (strcmp(name, mn) == 0) {
            module_found = TRUE;
            break;
         }
      }
      if (module_found)
         lazy_open_module(name);
      else
         prompt_user("The module \"%s\" does not exist in this workspace.",
                     name);
   }
   
   show_module();
   display_memory_usage();
   gen_array_full_free(module_list);
}

References db_get_module_list(), display_memory_usage(), gen_array_full_free(), gen_array_item(), gen_array_nitems(), lazy_open_module(), prompt_user(), and show_module().

Referenced by create_status_subwindow(), epips_select_module(), execute_workspace_creation_and_so_on_given_with_options(), select_a_module_by_default(), and select_module_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

generate_directory_menu()

Menu generate_directory_menu

(

)

Definition at line 167 of file xv_select.c.

{
    return generate_a_directory_menu(get_cwd());
}

References generate_a_directory_menu(), and get_cwd().

Here is the call graph for this function:

generate_module_menu()

Menu generate_module_menu

(

)

To use with schoose_create_abbrev_menu_with_text:

The strdup'ed string will also be freed when the menu is discarded:

Definition at line 947 of file xv_select.c.

{
   Menu menu;
   int i;
   menu = xv_create(XV_NULL, MENU,
                    MENU_TITLE_ITEM, " Select in the module list: ",
                    NULL);
 
   if (db_get_current_workspace_name() == NULL) {
      xv_set(menu, MENU_APPEND_ITEM,
             xv_create(XV_NULL, MENUITEM,
                       MENU_STRING, "* No workspace yet! *",
                       MENU_RELEASE,
                       MENU_INACTIVE, TRUE,
                       NULL),
             NULL);
   }
   else {
       gen_array_t module_list = db_get_module_list();
       int  module_list_length = gen_array_nitems(module_list);
       
       if (module_list_length == 0) {
           xv_set(menu, MENU_APPEND_ITEM,
                  xv_create(XV_NULL, MENUITEM,
                            MENU_STRING,
                          "* No module available in this workspace *",
                            MENU_RELEASE,
                            MENU_INACTIVE, TRUE,
                            NULL),
                NULL);
       }
       else if (module_list_length > WPIPS_MAX_MODULE_MENU_SIZE) {
           xv_set(menu,
                  MENU_TITLE_ITEM,
                  " Too many modules. Click on the Module Chooser: ",
                  NULL);
           xv_set(menu, MENU_APPEND_ITEM,
                  xv_create(XV_NULL, MENUITEM,
                            MENU_STRING, "Module Chooser",
                            MENU_NOTIFY_PROC, select_module_notify,
                            MENU_RELEASE,
                            NULL),
                  NULL);
           user_warning("generate_a_directory_menu",
                        "Too many modules in this workspace. "
                        "Click on the Module Chooser\n");
       }
       else {
           for(i = 0; i < module_list_length; i++) {
               string mn = gen_array_item(module_list, i);
               xv_set(menu, MENU_APPEND_ITEM,
                      xv_create(XV_NULL, MENUITEM,
                                MENU_STRING, strdup(mn),
                                MENU_RELEASE,
                                /* The strdup'ed string will also be
                                   freed when the menu is discarded: */
                                MENU_RELEASE_IMAGE,
                                NULL),
                      NULL);
           }
       }
       gen_array_full_free(module_list);
   }
   
   return menu;
}

References db_get_current_workspace_name(), db_get_module_list(), gen_array_full_free(), gen_array_item(), gen_array_nitems(), select_module_notify(), strdup(), user_warning, and WPIPS_MAX_MODULE_MENU_SIZE.

Here is the call graph for this function:

generate_workspace_menu()

Menu generate_workspace_menu

(

)

To use with schoose_create_abbrev_menu_with_text:

Replace the Select Workspace menu from the status window with the following items:

Always active since start_create_workspace_notify() does the close if necessary:

On can close only if there is something open:

Now complete with the list of the workspaces:

Well, since there is no workspace, there is nothing to delete...

The strdup'ed string will also be freed when the menu is discarded:

Definition at line 790 of file xv_select.c.

{
   Menu menu;
   Menu_item delete_menu_item;
   int i;
   gen_array_t workspace_list;
   int  workspace_list_length = 0;
 
   workspace_list = gen_array_make(0);
   pips_get_workspace_list(workspace_list);
   workspace_list_length = gen_array_nitems(workspace_list);
 
   menu = xv_create(XV_NULL, MENU,
                    MENU_TITLE_ITEM, " Select in the workspace list: ",
                    NULL);
 
   /* Replace the Select Workspace menu from the status window with
      the following items: */
   xv_set(menu, MENU_APPEND_ITEM,
          xv_create(XV_NULL, MENUITEM,
                    MENU_STRING,
                    "   Create Workspace...",
                    MENU_NOTIFY_PROC, start_create_workspace_notify,
                    MENU_RELEASE,
                    /* Always active since
                       start_create_workspace_notify() does the close
                       if necessary: */
                    MENU_INACTIVE, wpips_create_workspace_menu_inactive,
                    NULL),
          NULL);
   xv_set(menu, MENU_APPEND_ITEM,
          xv_create(XV_NULL, MENUITEM,
                    MENU_STRING,
                    "   Close Workspace",
                    MENU_NOTIFY_PROC, close_workspace_notify,
                    MENU_RELEASE,
                    /* On can close only if there is something open: */
                    MENU_INACTIVE, wpips_close_workspace_menu_inactive,
                    NULL),
          NULL);
   delete_menu_item = xv_create(XV_NULL, MENUITEM,
                                MENU_STRING,
                                "   Delete Workspace...",
                                MENU_NOTIFY_PROC, start_delete_workspace_notify,
                                MENU_RELEASE,
                                MENU_INACTIVE, wpips_delete_workspace_menu_inactive,
                                NULL);
   
   xv_set(menu, MENU_APPEND_ITEM,
          delete_menu_item,
          NULL);
 
   /* Now complete with the list of the workspaces: */
   if (workspace_list_length == 0) {
      xv_set(menu, MENU_APPEND_ITEM,
             xv_create(XV_NULL, MENUITEM,
                       MENU_STRING,
                       "* No workspace available in this directory *",
                       MENU_RELEASE,
                       MENU_INACTIVE, TRUE,
                       NULL),
             NULL);
      /* Well, since there is no workspace, there is nothing to
         delete... */
      xv_set(delete_menu_item,
             MENU_INACTIVE, TRUE,
             NULL);
   }
   else {
       for(i = 0; i < workspace_list_length; i++) 
       {
           string name = gen_array_item(workspace_list, i);
           xv_set(menu, MENU_APPEND_ITEM,
                  xv_create(XV_NULL, MENUITEM,
                            MENU_STRING, strdup(name),
                            MENU_RELEASE,
                            /* The strdup'ed string will also be
                               freed when the menu is discarded: */
                            MENU_RELEASE_IMAGE,
                            MENU_INACTIVE, wpips_open_workspace_menu_inactive,
                            NULL),
                  NULL);
       }
   }
 
   gen_array_full_free(workspace_list);
   
   return menu;
}

References close_workspace_notify(), gen_array_full_free(), gen_array_item(), gen_array_make(), gen_array_nitems(), pips_get_workspace_list(), start_create_workspace_notify(), start_delete_workspace_notify(), strdup(), wpips_close_workspace_menu_inactive, wpips_create_workspace_menu_inactive, wpips_delete_workspace_menu_inactive, and wpips_open_workspace_menu_inactive.

Here is the call graph for this function:

open_or_create_workspace()

void open_or_create_workspace

(

char *

workspace_name_original

)

To be used with schoose_create_abbrev_menu_with_text from the main panel:

If close_workspace_notify() is called below, show_workspace() will set the name to "(* none *)" in the panel and workspace_name_original is directly a pointer to it !

Prompt the warning and restore the menu enable state:

There is an open workspace: close it first:

To choose between open or create, look for the an existing workspace with the same name:

OK, the workspace exists, open it:

The workspace does not exist, create it:

Definition at line 741 of file xv_select.c.

{
   int i;
   gen_array_t workspace_list;
   int workspace_list_length = 0;
   char workspace_name[SMALL_BUFFER_LENGTH];
 
   /* If close_workspace_notify() is called below, show_workspace() will
      set the name to "(* none *)" in the panel and
      workspace_name_original is directly a pointer to it ! */
   (void) strncpy(workspace_name,
                  workspace_name_original,
                  sizeof(workspace_name) - 1);
 
   if (! workspace_name_p(workspace_name)) {
      /* Prompt the warning and restore the menu enable state: */
      user_prompt_not_a_valid_workspace_name(workspace_name);
      show_workspace();
      return;
   }
      
   if (db_get_current_workspace_name() != NULL)
      /* There is an open workspace: close it first: */
      if (!close_workspace_notify((Menu) NULL, (Menu_item) NULL))
         return;
 
   /* To choose between open or create, look for the an existing
      workspace with the same name: */
   workspace_list = gen_array_make(0);
   pips_get_workspace_list(workspace_list);
   workspace_list_length = gen_array_nitems(workspace_list);
 
   for(i = 0; i < workspace_list_length; i++) {
       string name = gen_array_item(workspace_list, i);
       if (strcmp(workspace_name, name) == 0) {
           /* OK, the workspace exists, open it: */
           end_open_workspace_notify(workspace_name);
           return;
       }
   }
   /* The workspace does not exist, create it: */
   disable_change_directory();
   gen_array_full_free(workspace_list);
   (void) continue_create_workspace_notify(workspace_name);
}

References close_workspace_notify(), continue_create_workspace_notify(), db_get_current_workspace_name(), disable_change_directory(), end_open_workspace_notify(), gen_array_full_free(), gen_array_item(), gen_array_make(), gen_array_nitems(), pips_get_workspace_list(), show_workspace(), SMALL_BUFFER_LENGTH, user_prompt_not_a_valid_workspace_name(), and workspace_name_p().

Here is the call graph for this function:

open_workspace_notify()

void open_workspace_notify	(	Menu	menu,
		Menu_item	menu_item
	)

There is only workspace: open it without asking confirmation to the user:

Choix initial sur le workspace courant si possible :

Definition at line 665 of file xv_select.c.

{
    gen_array_t workspace_list;
    int  workspace_list_length = 0;
 
    workspace_list = gen_array_make(0);
    pips_get_workspace_list(workspace_list);
    workspace_list_length = gen_array_nitems(workspace_list);
    
    if (workspace_list_length == 0) {
        prompt_user("No workspace available in this directory.");
    }
    else if (workspace_list_length == 1) {
        /* There is only workspace: open it without asking confirmation
           to the user: */
        user_log("There is only one workspace in the current directory.\n"
                 "\tOpening the workspace \"%s\"...\n",
                 gen_array_item(workspace_list, 0)); 
        end_open_workspace_notify(gen_array_item(workspace_list, 0));
    }
    else {
        disable_workspace_create_or_open();
        
        schoose("Select Workspace", 
                workspace_list,
                /* Choix initial sur le workspace courant si
                   possible : */
                db_get_current_workspace_name(),
                end_open_workspace_notify,
                cancel_open_workspace_notify);
    }
    gen_array_full_free(workspace_list);
}

References cancel_open_workspace_notify(), db_get_current_workspace_name(), disable_workspace_create_or_open(), end_open_workspace_notify(), gen_array_full_free(), gen_array_item(), gen_array_make(), gen_array_nitems(), pips_get_workspace_list(), prompt_user(), schoose(), and user_log().

Referenced by create_select_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

prompt_user_not_allowed_to_change_directory()

void prompt_user_not_allowed_to_change_directory	(	Panel_item	text_item,
		Event *	event
	)

First untype whatever the user typed:

Definition at line 174 of file xv_select.c.

{
   /* First untype whatever the user typed: */
   show_directory();
   prompt_user("You have to close the current workspace"
               " before changing directory.");
}

References prompt_user(), and show_directory().

Referenced by disable_change_directory(), and start_directory_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

restore_enable_change_directory_state()

static void restore_enable_change_directory_state ( )

static

Definition at line 235 of file xv_select.c.

{
   if (wpips_change_directory_inactive_old)
      disable_change_directory();
   else
      enable_change_directory();
}

References disable_change_directory(), enable_change_directory(), and wpips_change_directory_inactive_old.

Referenced by cancel_delete_workspace_notify(), and end_delete_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

restore_enable_workspace_close_state()

void restore_enable_workspace_close_state

(

)

Definition at line 323 of file xv_select.c.

{
   wpips_close_workspace_menu_inactive = wpips_close_workspace_menu_inactive_old;
}

References wpips_close_workspace_menu_inactive, and wpips_close_workspace_menu_inactive_old.

Referenced by cancel_delete_workspace_notify(), and end_delete_workspace_notify().

Here is the caller graph for this function:

select_a_module_by_default()

void select_a_module_by_default

(

)

Try to select a main module (that is the PROGRAM in the Fortran stuff) if no one is selected:

Ok, no current module, then find a main module (PROGRAM):

Ok, we got it ! Now we select it:

GO: show_module() has already been called so return now

Refresh the module name on the status window:

Definition at line 85 of file xv_select.c.

{
    char *module_name = db_get_current_module_name();
 
    if (module_name == NULL) {
        /* Ok, no current module, then find a main module (PROGRAM): */
        string main_module_name = get_first_main_module();
      
        if (!string_undefined_p(main_module_name)) {
            /* Ok, we got it ! Now we select it: */
            module_name = main_module_name;
            user_log("Main module PROGRAM \"%s\" found.\n", module_name);
            end_select_module_notify(module_name);
            /* GO: show_module() has already been called so return now */
            return;
        }
    }
 
    /* Refresh the module name on the status window: */
    show_module();
}

References db_get_current_module_name(), end_select_module_notify(), get_first_main_module(), module_name(), show_module(), string_undefined_p, and user_log().

Referenced by end_create_workspace_notify(), and end_open_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

select_module_notify()

void select_module_notify	(	Menu	menu,
		Menu_item	menu_item
	)

If there is no module... RK, 23/1/1993.

Affiche comme choix courant le module courant (c'est utile si on ferme la fenêtre module entre temps) :

Definition at line 920 of file xv_select.c.

{
   gen_array_t module_list = db_get_module_list();
   int  module_list_length = gen_array_nitems(module_list);
 
   if (module_list_length == 0)
   {
      /* If there is no module... RK, 23/1/1993. */
      prompt_user("No module available in this workspace.");
   }
   else
      schoose("Select Module", 
              module_list,
              /* Affiche comme choix courant le module
                 courant (c'est utile si on ferme la fenêtre
                 module entre temps) : */
              db_get_current_module_name(),
              end_select_module_notify,
              cancel_select_module_notify);
 
   gen_array_full_free(module_list);
}

References cancel_select_module_notify(), db_get_current_module_name(), db_get_module_list(), end_select_module_notify(), gen_array_full_free(), gen_array_nitems(), prompt_user(), and schoose().

Referenced by create_select_menu(), and generate_module_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

start_create_workspace_notify()

void start_create_workspace_notify	(	Menu	menu,
		Menu_item	menu_item
	)

There is an open workspace: close it first:

If it fails:

Pas la peine de faire quelque chose si on appuie sur cancel :

Definition at line 451 of file xv_select.c.

{
   disable_workspace_delete_or_open();
   disable_workspace_create_or_open();
   disable_change_directory();
 
   if (db_get_current_workspace_name() != NULL)
      /* There is an open workspace: close it first: */
      if (!close_workspace_notify((Menu) NULL, (Menu_item) NULL)) {
         /* If it fails: */
         cancel_create_workspace_notify((Panel_item) NULL, (Event*)NULL);
         return;
      }
 
   start_query("Create Workspace", 
               "Enter workspace name: ", 
               "CreateWorkspace",
               continue_create_workspace_notify,
               /* Pas la peine de faire quelque chose si on appuie
                  sur cancel : */
               cancel_create_workspace_notify);
}

References cancel_create_workspace_notify(), close_workspace_notify(), continue_create_workspace_notify(), db_get_current_workspace_name(), disable_change_directory(), disable_workspace_create_or_open(), disable_workspace_delete_or_open(), and start_query().

Referenced by create_select_menu(), and generate_workspace_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

start_delete_workspace_notify()

void start_delete_workspace_notify	(	Menu	menu,
		Menu_item	menu_item
	)

Choix initial sur le workspace courant si possible :

Definition at line 419 of file xv_select.c.

{
    gen_array_t workspace_list;
    int  workspace_list_length = 0;
 
    workspace_list = gen_array_make(0);
    pips_get_workspace_list(workspace_list);
    workspace_list_length = gen_array_nitems(workspace_list);
 
    if (workspace_list_length == 0) {
        prompt_user("No workspace available in this directory.");
    }
    else {
        disable_workspace_delete_or_open();
        disable_workspace_create_or_open();
        disable_workspace_close();
        disable_change_directory();
        
        schoose("Select the Workspace to Delete", 
                workspace_list,
                /* Choix initial sur le workspace courant si
                   possible : */
                db_get_current_workspace_name(),
                end_delete_workspace_notify,
                cancel_delete_workspace_notify);
    }
    gen_array_full_free(workspace_list);
}

References cancel_delete_workspace_notify(), db_get_current_workspace_name(), disable_change_directory(), disable_workspace_close(), disable_workspace_create_or_open(), disable_workspace_delete_or_open(), end_delete_workspace_notify(), gen_array_full_free(), gen_array_make(), gen_array_nitems(), pips_get_workspace_list(), prompt_user(), and schoose().

Referenced by generate_workspace_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

start_directory_notify()

void start_directory_notify	(	Menu	menu,
		Menu_item	menu_item
	)

Definition at line 184 of file xv_select.c.

{
  if (db_get_current_workspace_name())
     prompt_user_not_allowed_to_change_directory(
         (Panel_item)NULL, (Event*)NULL);
  else
    start_query("Change Directory",
                "Enter directory path: ", 
                "ChangeDirectory",
                end_directory_notify,
                cancel_query_notify);
}

References cancel_query_notify(), db_get_current_workspace_name(), end_directory_notify(), prompt_user_not_allowed_to_change_directory(), and start_query().

Referenced by create_select_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

user_prompt_not_a_valid_workspace_name()

void user_prompt_not_a_valid_workspace_name

(

char *

workspace_name

)

Definition at line 572 of file xv_select.c.

{
   prompt_user("The name \"%s\" is not a valid workspace name!\n",
               workspace_name);
   enable_workspace_create_or_open();
   disable_workspace_close();      
   enable_change_directory();
}

References disable_workspace_close(), enable_change_directory(), enable_workspace_create_or_open(), and prompt_user().

Referenced by continue_create_workspace_notify(), end_create_workspace_notify(), and open_or_create_workspace().

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

close_pgm

Menu_item close_pgm

static

Definition at line 244 of file xv_select.c.

Referenced by create_select_menu(), disable_workspace_close(), and enable_workspace_close().

create_pgm

Menu_item create_pgm

static

Definition at line 244 of file xv_select.c.

Referenced by create_select_menu(), disable_workspace_create_or_open(), and enable_workspace_create_or_open().

directory_menu_item

Menu_item directory_menu_item

Definition at line 68 of file xv_select.c.

Referenced by create_select_menu(), disable_change_directory(), and enable_change_directory().

module_item

Menu_item module_item

static

Definition at line 244 of file xv_select.c.

Referenced by create_select_menu(), disable_module_selection(), and enable_module_selection().

open_pgm

Menu_item open_pgm

static

Definition at line 244 of file xv_select.c.

Referenced by create_select_menu(), disable_workspace_create_or_open(), and enable_workspace_create_or_open().

workspace_name_to_create

char* workspace_name_to_create

static

Definition at line 70 of file xv_select.c.

Referenced by continue_create_workspace_notify(), and end_create_workspace_notify().

wpips_change_directory_inactive

bool wpips_change_directory_inactive

Definition at line 78 of file xv_select.c.

Referenced by direct_change_directory(), disable_change_directory(), and enable_change_directory().

wpips_change_directory_inactive_old

bool wpips_change_directory_inactive_old

Definition at line 79 of file xv_select.c.

Referenced by disable_change_directory(), enable_change_directory(), and restore_enable_change_directory_state().

wpips_close_workspace_menu_inactive

bool wpips_close_workspace_menu_inactive

To enable or disable the menu items generated by generate_module_menu():

Definition at line 73 of file xv_select.c.

Referenced by disable_workspace_close(), enable_workspace_close(), generate_workspace_menu(), and restore_enable_workspace_close_state().

wpips_close_workspace_menu_inactive_old

bool wpips_close_workspace_menu_inactive_old

Definition at line 74 of file xv_select.c.

Referenced by disable_workspace_close(), and restore_enable_workspace_close_state().

wpips_create_workspace_menu_inactive

bool wpips_create_workspace_menu_inactive

Definition at line 75 of file xv_select.c.

Referenced by disable_workspace_create_or_open(), enable_workspace_create_or_open(), and generate_workspace_menu().

wpips_delete_workspace_menu_inactive

bool wpips_delete_workspace_menu_inactive

Definition at line 77 of file xv_select.c.

Referenced by disable_workspace_delete_or_open(), enable_workspace_delete_or_open(), and generate_workspace_menu().

wpips_open_workspace_menu_inactive

bool wpips_open_workspace_menu_inactive

Definition at line 76 of file xv_select.c.

Referenced by disable_workspace_delete_or_open(), enable_workspace_delete_or_open(), and generate_workspace_menu().