directory_menu.c File Reference

#include <xview/xview.h>
#include <xview/panel.h>
#include <sys/param.h>
#include <sys/stat.h>
#include "genC.h"
#include "misc.h"
#include "database.h"
#include "linear.h"
#include "ri.h"
#include "ri-util.h"
#include "pipsdbm.h"
#include "wpips.h"

Include dependency graph for directory_menu.c:

Go to the source code of this file.

Macros
#define	MAXNAMELEN   MAXNAMLEN
	Generate a menu from the current directory to serve as a directory chooser. More...

Enumerations
enum	{ MENU_PATH_DATA_HANDLER = 54829 , WPIPS_MAX_DIRECTORY_MENU_SIZE = 80 }

Functions
static bool	accept_all_file_names (char *file_name __attribute__((unused)))
	Note the pedantic way to avoid the warning about unused file_name. More...
static Menu	directory_gen_pullright (Menu_item menu_item, Menu_generate op)
static void	generate_a_directory_menu_notify (Menu menu, Menu_item menu_item)
Menu	generate_a_directory_menu (char *directory)

Macro Definition Documentation

MAXNAMELEN

#define MAXNAMELEN   MAXNAMLEN

Generate a menu from the current directory to serve as a directory chooser.

To have SunOS 5.5 happy about MAXNAMELEN (in SunOS 4, it is already defined in sys/dirent.h): To have SunOS4 still working:

Definition at line 43 of file directory_menu.c.

Enumeration Type Documentation

anonymous enum

anonymous enum

Enumerator
MENU_PATH_DATA_HANDLER
WPIPS_MAX_DIRECTORY_MENU_SIZE	Maximum size of the directory menu of the main frame:

Definition at line 56 of file directory_menu.c.

     {MENU_PATH_DATA_HANDLER = 54829,
/* Maximum size of the directory menu of the main frame: */
         WPIPS_MAX_DIRECTORY_MENU_SIZE = 80
};

Function Documentation

accept_all_file_names()

static bool accept_all_file_names ( char *file_name   __attribute__(unused) )

static

Note the pedantic way to avoid the warning about unused file_name.

:-)

Definition at line 64 of file directory_menu.c.

{
   return TRUE;
}

directory_gen_pullright()

static Menu directory_gen_pullright ( Menu_item  menu_item, Menu_generate  op  )

static

First get the parent directory name that is the title:

Build the new directory name:

Well, there is already a menu... we've been already here. Free it first:

Free the associated directory name:

Then initialize it with a new directory menu:

A Menu-Generating procedure has to return the menu in any case:

Definition at line 71 of file directory_menu.c.

{
   Menu menu;
   
   if (op == MENU_DISPLAY) {
      char directory[MAXNAMELEN + 1];
      char * parent_directory;
      Menu parent = xv_get(menu_item, MENU_PARENT);
 
      debug(2, "directory_gen_pullright", "menu_item = %#x (%s), parent = %#x\n",
            menu_item, (char *) xv_get(menu_item, MENU_STRING), parent);
      
      /* First get the parent directory name that is the title: */
      parent_directory = (char *) xv_get(parent,
                                         XV_KEY_DATA, MENU_PATH_DATA_HANDLER);
      debug(2, "directory_gen_pullright", " parent_directory = %s\n",
            parent_directory);
      
      /* Build the new directory name: */
      (void) sprintf(directory, "%s/%s",
                     parent_directory,
                     (char *) xv_get(menu_item, MENU_STRING));
      
      if ((char *)(menu = (Menu) xv_get(menu_item, MENU_PULLRIGHT)) != NULL) {
         /* Well, there is already a menu... we've been already here.
            Free it first: */
         /* Free the associated directory name: */
         free((char *) xv_get(menu, XV_KEY_DATA, MENU_PATH_DATA_HANDLER));
         xv_destroy(menu);
      }
      
      /* Then initialize it with a new directory menu: */
      menu = generate_a_directory_menu(directory);
   }
   else
      /* A Menu-Generating procedure has to return the menu in any case: */
      menu = (Menu)xv_get(menu_item, MENU_PULLRIGHT);
 
   return menu;
}

References debug(), free(), generate_a_directory_menu(), MAXNAMELEN, and MENU_PATH_DATA_HANDLER.

Referenced by generate_a_directory_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

generate_a_directory_menu()

Menu generate_a_directory_menu

(

char *

directory

)

The string is not copied in MENU_TITLE_ITEM:

and furthermore MENU_TITLE_ITEM is write only, so add the info somewhere else:

Add its own notifying procedure:

Get all the files in the directory:

Generate a corresponding entry for each file:

Skip the "." directory:

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

Since a menu item cannot be selected as an item, add an plain item with the same name. Not beautiful hack... :-(

Now recreate another item that will be the submenu:

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

Put a right menu on each directory entry:

And disable non-subdirectory entry:

Definition at line 129 of file directory_menu.c.

{
    gen_array_t file_list;
    int file_list_length;
    int return_code;
    int i;
    Menu menu;
   
    menu = (Menu) xv_create(
        (int) NULL, MENU,
        /* The string is *not* copied in MENU_TITLE_ITEM: */
        MENU_TITLE_ITEM, strdup(directory),
        /* and furthermore MENU_TITLE_ITEM is write
           only, so add the info somewhere else: */
        XV_KEY_DATA, MENU_PATH_DATA_HANDLER, strdup(directory),
        /* Add its own notifying procedure: */
        MENU_NOTIFY_PROC, generate_a_directory_menu_notify,
        NULL);
    pips_debug(2, "menu = %p (%s)\n", (void *) menu, directory);
 
   if (db_get_current_workspace_name()) {
       xv_set(menu, MENU_APPEND_ITEM,
              xv_create(XV_NULL, MENUITEM,
                        MENU_STRING,
                        "* Close the current workspace before "
                        "changing directory *",
                        MENU_RELEASE,
                        MENU_INACTIVE, TRUE,
                        NULL),
             NULL);
       pips_user_warning("Close the current workspace before changing "
                         "directory.\n");
   }
   else 
   {
      /* Get all the files in the directory: */
       file_list = gen_array_make(0);
       return_code = safe_list_files_in_directory(file_list, 
                                                  directory,
                                                  ".*", directory_exists_p);
       file_list_length = gen_array_nitems(file_list);
 
      if (return_code == -1 || file_list_length == 0)
         xv_set(menu, MENU_APPEND_ITEM,
                xv_create(XV_NULL, MENUITEM,
                          MENU_STRING,
                          "* No file in this directory or cannot be open *",
                          MENU_RELEASE,
                          MENU_INACTIVE, TRUE,
                          NULL),
                NULL);
      else if (file_list_length > WPIPS_MAX_DIRECTORY_MENU_SIZE) {
         xv_set(menu, MENU_APPEND_ITEM,
                xv_create(XV_NULL, MENUITEM,
                          MENU_STRING,
                          "* Too many files. Type directly in the Directory "
                          "line of the main panel *",
                          MENU_RELEASE,
                          MENU_INACTIVE, TRUE,
                          NULL),
                NULL);
         user_warning("generate_a_directory_menu",
                      "Too many files in the \"%s\" directory.\n", directory);
      }
      else
         /* Generate a corresponding entry for each file: */
          for(i = 0; i < file_list_length; i++) 
          {
              string file_name = gen_array_item(file_list, i);
            /* Skip the "." directory: */
              if (strcmp(file_name, ".") != 0) {
                  struct stat buf;
                  char complete_file_name[MAXNAMELEN + 1];
                  
                  Menu_item menu_item =
                      xv_create(XV_NULL, MENUITEM,
                                MENU_STRING, strdup(file_name),
                                MENU_RELEASE,
                                /* The strdup'ed string will also be
                                   freed when the menu is discarded: */
                                MENU_RELEASE_IMAGE,
                                NULL);
 
                  (void) sprintf(complete_file_name, "%s/%s", 
                                 directory, file_name);
               if (((stat(complete_file_name, &buf) == 0) 
                    && (buf.st_mode & S_IFDIR))) {
                  /* Since a menu item cannot be selected as an item, add an
                     plain item with the same name. Not beautiful
                     hack... :-( */
                  xv_set(menu,
                         MENU_APPEND_ITEM, menu_item,
                         NULL);
                  /* Now recreate another item that will be the submenu: */
                  menu_item =
                     xv_create(XV_NULL, MENUITEM,
                               MENU_STRING, strdup(file_name),
                               MENU_RELEASE,
                               /* The strdup'ed string will also be
                                  freed when the menu is discarded: */
                               MENU_RELEASE_IMAGE,
                               /* Put a right menu on each directory
                                  entry: */
                               MENU_GEN_PULLRIGHT, directory_gen_pullright,
                               NULL);
                  pips_debug(2, " menu_item = %p (%s)\n",
                             (void *) menu_item, file_name);
               }
               else
                  /* And disable non-subdirectory entry: */
                  xv_set(menu_item, MENU_INACTIVE, TRUE, NULL);
         
               xv_set(menu, MENU_APPEND_ITEM, menu_item, NULL);    
              }
          }
      gen_array_full_free(file_list);
   }
   return menu;
}

References buf, db_get_current_workspace_name(), directory_exists_p(), directory_gen_pullright(), file_name, gen_array_full_free(), gen_array_item(), gen_array_make(), gen_array_nitems(), generate_a_directory_menu_notify(), MAXNAMELEN, MENU_PATH_DATA_HANDLER, pips_debug, pips_user_warning, safe_list_files_in_directory(), strdup(), user_warning, and WPIPS_MAX_DIRECTORY_MENU_SIZE.

Here is the call graph for this function:

generate_a_directory_menu_notify()

static void generate_a_directory_menu_notify ( Menu  menu, Menu_item  menu_item  )

static

Definition at line 115 of file directory_menu.c.

{
   char full_directory_name[MAXNAMELEN + 1];
   char * directory_name = (char *) xv_get(menu_item, MENU_STRING);
   char * parent_path_name =
      (char *) xv_get(menu, XV_KEY_DATA, MENU_PATH_DATA_HANDLER);
   
   (void) sprintf(full_directory_name, "%s/%s",
                  parent_path_name, directory_name);
   (void) end_directory_notify(full_directory_name);
}

References end_directory_notify(), MAXNAMELEN, and MENU_PATH_DATA_HANDLER.

Referenced by generate_a_directory_menu().

Here is the call graph for this function:

Here is the caller graph for this function: