1 files changed, 242 insertions, 0 deletions

diff --git a/gnu/lib/libdialog/fselect.c b/gnu/lib/libdialog/fselect.c
new file mode 100644
index 000000000000..bf73b291da4e
--- /dev/null
+++ b/gnu/lib/libdialog/fselect.c
@@ -0,0 +1,242 @@
+/*
+ * program:	fselect.c
+ * author:	Marc van Kempen (wmbfmk@urc.tue.nl)
+ * Desc:	File selection routine 
+ *
+ * Copyright (c) 1995, Marc van Kempen
+ *
+ * All rights reserved.
+ *
+ * This software may be used, modified, copied, distributed, and
+ * sold, in both source and binary form provided that the above
+ * copyright and these terms are retained, verbatim, as the first
+ * lines of this file.  Under no circumstances is the author
+ * responsible for the proper functioning of this software, nor does
+ * the author assume any responsibility for damages incurred with
+ * its use.
+ * 
+ */
+
+#include <stdlib.h>
+#include <unistd.h>
+#include <sys/param.h>
+#include <dialog.h>
+#include "ui_objects.h"
+#include "dir.h"
+#include "dialog.priv.h"
+
+void
+get_directories(DirList *d, int n, char ***names, int *nd)
+/*
+ * Desc: return the directorienames in <dir> as an array in
+ *	 <names>, the # of entries in <nd>, memory allocated
+ *       to *names should be freed when done with it.
+ */
+{
+    int i;
+
+    /* count the directories, which are in front */
+    *nd = 0;
+    while ((*nd < n) && (S_ISDIR(d[*nd].filestatus.st_mode))) (*nd)++;
+    *names = (char **) malloc( *nd * sizeof(char *) );
+    for (i=0; i<*nd; i++) {
+	(*names)[i] = (char *) malloc( strlen(d[i].filename) + 1);
+	strcpy((*names)[i], d[i].filename);
+    }
+
+    return;
+} /* get_directories() */
+
+void
+get_filenames(DirList *d, int n, char ***names, int *nf)
+/*
+ * Desc: return the filenames in <dir> as an arry in 
+ *  	 <names>, the # of entries in <nf>, memory allocated
+ *	 to *names should be freed when done.
+ */
+{
+    int nd, i;
+
+    /* the # of regular files is the total # of files - # of directories */
+    /* count the # of directories */
+    nd = 0;
+    while ((nd < n) && (S_ISDIR(d[nd].filestatus.st_mode))) nd++;
+
+    *names = (char **) malloc( (n-nd) * sizeof(char *) );
+    *nf = n - nd;
+    for (i=0; i<*nf; i++) {
+	(*names)[i] = (char *) malloc( strlen(d[i+nd].filename) + 1);
+	strcpy((*names)[i], d[i+nd].filename);
+    }
+	
+    return;
+} /* get_filenames() */
+
+void
+FreeNames(char **names, int n)
+/*
+ * Desc: free the space occupied by names
+ */
+{
+    int i;
+
+     /* free the space occupied by names */
+    for (i=0; i<n; i++) {
+	free(names[i]);
+    }
+    free(names);
+
+    return;
+} /* FreeNames() */
+
+char *
+dialog_fselect(char *dir, char *fmask)
+/*
+ * Desc: choose a file from the directory <dir>, which
+ *	 initially display files with the mask <filemask> 
+ * pre:  <dir> is the initial directory
+ *	 only files corresponding to the mask <fmask> are displayed
+ * post: returns NULL if no file was selected
+ *       else returns pointer to filename, space is allocated, should
+ *       be freed after use.
+ */
+{
+    DirList 		*d = NULL;
+    char		msg[512];
+    char		**names, *ret_name;
+    WINDOW		*fs_win;
+    int			n, nd, nf, ret;
+    StringObj		*fm_obj, *dir_obj, *sel_obj;
+    char		o_fm[255], o_dir[MAXPATHLEN], o_sel[MAXPATHLEN];
+    char		old_fmask[255], old_dir[MAXPATHLEN];
+    ListObj		*dirs_obj,   *files_obj;
+    struct ComposeObj	*obj = NULL, *o;
+    int 		quit, cancel;
+    ButtonObj		*okbut_obj, *canbut_obj;
+    int			ok_button, cancel_button;
+
+    if (chdir(dir)) {
+	sprintf(msg, "Could not move into specified directory: %s", dir);
+	dialog_notify(msg);
+	return(NULL);
+    }
+    getcwd(o_dir, MAXPATHLEN);
+
+    /* setup the fileselect-window and initialize its components */
+    fs_win = newwin(LINES-2, COLS-20, 1, 10);
+    if (fs_win == NULL) {
+	endwin();
+	fprintf(stderr, "\nnewwin(%d,%d,%d,%d) failed, maybe wrong dims\n", 
+		LINES-2, COLS-20, 2, 10);
+	exit(1);
+    }
+    draw_box(fs_win, 0, 0, LINES-2, COLS-20, dialog_attr, border_attr);
+    wattrset(fs_win, dialog_attr);
+    mvwaddstr(fs_win, 0, (COLS-20)/2 - 7, " File Select ");
+    draw_shadow(stdscr, 1, 10, LINES-2, COLS-20);
+
+    /* Filemask entry */
+    strcpy(o_fm, fmask);
+    fm_obj = NewStringObj(fs_win, "Filemask:", o_fm, 1, 2, 19, 255);
+    AddObj(&obj, STRINGOBJ, (void *) fm_obj);
+
+    /* Directory entry */
+    dir_obj = NewStringObj(fs_win, "Directory:", o_dir, 1, 22, COLS-44, 255);
+    AddObj(&obj, STRINGOBJ, (void *) dir_obj);
+
+    /* Directory list */
+    get_dir(".", fmask, &d, &n);	/* read the entire directory */
+    get_directories(d, n, &names, &nd); /* extract the dir-entries */
+    dirs_obj = NewListObj(fs_win, "Directories:", names, o_dir, 5, 2, 
+			  LINES-16, (COLS-20)/2-2, nd);
+    AddObj(&obj, LISTOBJ, (void *) dirs_obj);
+
+    /* Filenames list */
+    get_filenames(d, n, &names, &nf);		/* extract the filenames */
+    files_obj = NewListObj(fs_win, "Files:", names, o_sel, 5, (COLS-20)/2+1,
+			   LINES-16, (COLS-20)/2-3, nf);
+    AddObj(&obj, LISTOBJ, (void *) files_obj);
+
+    /* Selection entry */
+    o_sel[0] = '\0';
+    sel_obj = NewStringObj(fs_win, "Selection:", o_sel, LINES-10, 2, COLS-24, 255);
+    AddObj(&obj, STRINGOBJ, (void *) sel_obj);
+
+    /* Ok button */
+    ok_button = FALSE;
+    okbut_obj = NewButtonObj(fs_win, "Ok", &ok_button, LINES-6, 20);
+    AddObj(&obj, BUTTONOBJ, (void *) okbut_obj);
+
+    /* Cancel button */
+    cancel_button = FALSE;
+    canbut_obj = NewButtonObj(fs_win, "Cancel", &cancel_button, LINES-6, 30);
+    AddObj(&obj, BUTTONOBJ, (void *) canbut_obj);
+
+    /* Make sure all objects on the window are drawn */
+    wrefresh(fs_win);
+    keypad(fs_win, TRUE);
+
+    /* Start the reading */
+    o = obj;
+    strcpy(old_fmask, o_fm);
+    strcpy(old_dir, o_dir);
+    quit = FALSE;
+    cancel = FALSE;
+    while (!quit) {
+	ret = PollObj(&o);
+	switch(ret) {
+	case SEL_CR:
+	    if (strcmp(old_fmask, o_fm) || strcmp(old_dir, o_dir)) {
+		/* reread directory and update the listobjects */		
+		if (strcmp(old_dir, o_dir)) { /* dir entry was changed */
+		    if (chdir(o_dir)) {
+			dialog_notify("Could not change into directory");
+		    } else {
+			getcwd(o_dir, MAXPATHLEN);
+			strcpy(old_dir, o_dir);
+			RefreshStringObj(dir_obj);
+		    }
+		} else {		      /* fmask entry was changed */
+		    strcpy(old_fmask, o_fm);
+		}
+		get_dir(".", o_fm, &d, &n);
+		get_directories(d, n, &names, &nd);
+		UpdateListObj(dirs_obj, names, nd);
+		get_filenames(d, n, &names, &nf);
+		UpdateListObj(files_obj, names, nf);
+		if (((o->prev)->obj == (void *) dirs_obj)) {
+		    o=o->prev;
+		}
+	    }
+	    break;
+	case SEL_BUTTON:
+	    /* check which button was pressed */
+	    if (ok_button) {
+		quit = TRUE;
+	    }
+	    if (cancel_button) {
+		quit = TRUE;
+		cancel = TRUE;
+	    }
+	    break;
+	case SEL_ESC:
+	    quit = TRUE;
+	    cancel = TRUE;
+	    break;
+	case KEY_F(1):
+	case '?':
+	    display_helpfile();
+	    break;
+	}
+    }
+    DelObj(obj);
+
+    if (cancel || (strlen(o_sel) == 0)) {
+	return(NULL);
+    } else {
+	ret_name = (char *) malloc( strlen(o_sel) + 1 );
+	strcpy(ret_name, o_sel);
+	return(ret_name);
+    }
+} /* dialog_fselect() */
+