source: MondoRescue/branches/3.2/mondo/src/common/newt-specific.c @ 3208

/* newt-specific.c
   $Id: newt-specific.c 3208 2013-12-10 07:50:00Z bruno $

  subroutines which do display-type things
  and use the newt library to do them
*/


/**
 * @file
 * Functions for doing display-type things with the Newt library.
 */

#define MAX_NEWT_COMMENT_LEN 200

#if __cplusplus
extern "C" {
#endif

#include "my-stuff.h"
#include "mr_mem.h"
#include "mr_str.h"
#include "mondostructures.h"
#include "newt-specific.h"
#include "libmondo-string-EXT.h"
#include "libmondo-files-EXT.h"
#include "libmondo-devices-EXT.h"
#include "libmondo-tools-EXT.h"
#include "libmondo-fork-EXT.h"
#include "libmondo-gui-EXT.h"
#include "lib-common-externs.h"

extern char *MONDO_LOGFILE;

extern struct s_bkpinfo *bkpinfo;

/*@unused@*/
//static char cvsid[] = "$Id: newt-specific.c 3208 2013-12-10 07:50:00Z bruno $";

    extern pid_t g_mastermind_pid;
    /*
    extern char *g_tmpfs_mountpt;
    */
    extern char *g_boot_mountpt;
    extern char *ps_options;
    extern char *ps_proc_id;

    extern void set_signals(int);

/**
 * @addtogroup globalGroup
 * @{
 */
/**
 * Whether we are currently in a nested call of fatal_error().
 */
    bool g_exiting = FALSE;

// Decide whether we should continue to ask questions or exit (cron use case)
extern bool g_fail_immediately;

/**
 * Padding below the Newt components, to overcome bugs in Newt.
 */
    char g_haharrrrr[500];


    newtComponent g_timeline = NULL,    ///< The line of the progress form that shows the time elapsed/remaining
        g_percentline = NULL,   ///< The line of the progress form that shows the percent completed/remaining
        g_scale = NULL,         ///< The progress bar component in the progress form
        g_progressForm = NULL,  ///< The progress form component itself
        g_blurb1 = NULL,        ///< The component for line 1 of the blurb in the progress form
        g_blurb2 = NULL,        ///< The component for line 2 of the blurb in the progress form
        g_blurb3 = NULL,        ///< The component for line 3 (updated continuously) of the blurb in the progress form
        g_label = NULL;         ///< ????? @bug ?????

/**
 * Padding above the Newt components, to overcome bugs in Newt.
 */
    char g_jim_lad_yarr[500];
    char **err_log_lines = NULL,    ///< The list of log lines to show on the screen.
        g_blurb_str_1[MAX_NEWT_COMMENT_LEN] = "",   ///< The string for line 1 of the blurb in the progress form
        g_blurb_str_2[MAX_NEWT_COMMENT_LEN] = "",   ///< The string for line 2 of the blurb in the progress form
        g_blurb_str_3[MAX_NEWT_COMMENT_LEN] = "";   ///< The string for line 3 (updated continuously) of the blurb in the progress form
    newtComponent g_isoform_main = NULL,    ///< The evalcall form component itself
        g_isoform_header = NULL,    ///< The component for the evalcall form title
        g_isoform_scale = NULL, ///< The progress bar component in the evalcall form
        g_isoform_timeline = NULL,  ///< The line of the evalcall form that shows the time elapsed/remaining
        g_isoform_pcline = NULL;    ///< The line of the evalcall form that shows the percent completed/remaining
    long g_isoform_starttime;   ///< The time (in seconds since the epoch) that the evalcall form was opened.
    int g_isoform_old_progress = -1;    ///< The most recent progress update of the evalcall form (percent).
    char g_isoform_header_str[MAX_STR_LEN] = "                                                                                                               "; ///< The string for the evalcall form title.
    int g_mysterious_dot_counter;   ///< The counter for the twirling baton (/ | \\ - ...) on percentage less than 3
    int g_noof_log_lines = 6;   ///< The number of lines to show in the log at the bottom of the screen.
    int g_noof_rows = 25;       ///< The number of rows on the screen.

    int g_currentY = 3;         ///< The row to write background progress messages to. Incremented each time a message is written.
    extern int g_current_media_number;
    pid_t g_main_pid = 0;       ///< The PID of the main Mondo process.
    long g_maximum_progress = 999L; ///< The maximum amount of progress (100%) for the currently opened progress form.
    long g_current_progress = -999; ///< The current amount of progress (filelist #, etc.) for the currently opened progress form.
    long g_start_time = 0L;     ///< The time (in seconds since the epoch) that the progress form was opened.
    bool g_text_mode = TRUE;    ///< If FALSE, use a newt interface; if TRUE, use an ugly (but more compatible) dumb terminal interface.
    char *g_selfmounted_isodir; ///< Holds the NETFS mountpoint if mounted via mondoarchive.

/* @} - end of globalGroup */

    void popup_and_OK(char *);


/**
 * @addtogroup guiGroup
 * @{
 */
/**
 * Ask the user a yes/no question.
 * @param prompt The question to ask the user.
 * @return TRUE for yes; FALSE for no.
 */
     bool ask_me_yes_or_no(char *prompt) {

        /*@ buffers ********************************************************** */
        int i = 0;
        char *tmp = NULL;

        assert_string_is_neither_NULL_nor_zerolength(prompt);

        if (g_fail_immediately) {
            // We consider the user aborted by using the -F option
            log_msg(3, "Exiting at first interaction request due to -F");
            finish(1);
        }
        if (g_text_mode) {
            while (1) {
                sync();
                printf("---promptdialogYN---1--- %s\n---promptdialogYN---Q--- [yes] [no] ---\n--> ", prompt);
                mr_getline(tmp, stdin);
                if (tmp[strlen(tmp) - 1] == '\n')
                    tmp[strlen(tmp) - 1] = '\0';

                i = (int) strlen(tmp);
                if (i > 0 && tmp[i - 1] < 32) {
                    tmp[i - 1] = '\0';
                }
                if (strstr("yesYES", tmp)) {
                    mr_free(tmp);
                    return (TRUE);
                } else if (strstr("NOno", tmp)) {
                    mr_free(tmp);
                    return (FALSE);
                } else {
                    sync();
                    printf("Please enter either YES or NO (or yes or no, or y or n, or...)\n");
                }
            }
        } else {
            return (popup_with_buttons(prompt, "Yes", "No"));
        }
    }


/**
 * Give the user the opportunity to continue the current operation (OK)
 * or cancel it (Cancel).
 * @param prompt The string to be displayed.
 * @return TRUE for OK, FALSE for Cancel.
 */
    bool ask_me_OK_or_cancel(char *prompt) {

        /*@ buffer *********************************************************** */
        char *tmp = NULL;
        int i;

        assert_string_is_neither_NULL_nor_zerolength(prompt);
        if (g_fail_immediately) {
            // We consider the user aborted by using the -F option
            log_msg(3, "Exiting at first interaction request due to -F");
            finish(1);
        }

        if (g_text_mode) {
            sync();
            printf("---promptdialogOKC---1--- %s\n---promptdialogOKC---Q--- [OK] [Cancel] ---\n--> ", prompt);
            mr_getline(tmp, stdin);
            if (tmp[strlen(tmp) - 1] == '\n')
                tmp[strlen(tmp) - 1] = '\0';

            i = (int) strlen(tmp);
            if (i > 0 && tmp[i - 1] < 32) {
                tmp[i - 1] = '\0';
            }
            if (strstr("okOKOkYESyes", tmp)) {
                mr_free(tmp);
                return (TRUE);
            } else {
                mr_free(tmp);
                return (FALSE);
            }
        } else {
            return (popup_with_buttons(prompt, " Okay ", "Cancel"));
        }
    }



/**
 * Close the currently opened evalcall form.
 */
    void
     close_evalcall_form(void) {
        if (g_text_mode) {
            return;
        }
        if (g_isoform_main == NULL) {
            return;
        }
        update_evalcall_form(100);
        usleep(500000);
        if (g_text_mode) {
            log_msg(2, "Closing evalcall form");
            return;
        }
        newtPopHelpLine();
        newtFormDestroy(g_isoform_main);
        newtPopWindow();

        /* Reset globals */
        g_isoform_main = NULL;
        g_isoform_old_progress = -1;
        g_isoform_header = NULL;
        g_isoform_scale = NULL;
        g_isoform_timeline = NULL;
        g_isoform_pcline = NULL;
}

/**
 * Close the currently opened progress form.
 */
    void
     close_progress_form() {
        if (g_text_mode) {
            return;
        }
        if (g_current_progress == -999) {
            log_msg(2, "Trying to close the progress form when it ain't open!");
            return;
        }
        g_current_progress = g_maximum_progress;
        update_progress_form("Complete");
        sleep(1);
        if (g_text_mode) {
            log_msg(2, "Closing progress form");
            return;
        }
        newtPopHelpLine();
        newtFormDestroy(g_progressForm);
        newtPopWindow();

        /* Reset globals */
        g_progressForm = NULL;
        g_current_progress = -999;
        g_timeline = NULL;
        g_percentline = NULL;
        g_scale = NULL;

    }

/**
 * Kill any process containing the string @p str surrounded by spaces in its commandline.
 */
void kill_anything_like_this(char *str) {

char *tmp = NULL;
char *tmp1 = NULL;

    mr_asprintf(tmp,"ps %s | grep \" %s \" | grep -v \"grep\" | awk '{print %s;}'", ps_options, str , ps_proc_id);
    run_program_and_log_output(tmp, TRUE);
    if (strlen(tmp) > 0) {
        mr_asprintf(tmp1,"kill `%s`", tmp);
        run_program_and_log_output(tmp1, TRUE);
        mr_free(tmp1);
    }
    mr_free(tmp);
}


/**
 * Exit Mondo with a fatal error.
 * @param error_string The error message to present to the user before exiting.
 * @note This function never returns.
 */
void fatal_error(char *error_string) {

        /*@ buffers ***************************************************** */
        char *command = NULL;
        static bool already_exiting = FALSE;

        /*@ end vars **************************************************** */

        set_signals(FALSE);     // link to external func
        g_exiting = TRUE;
        log_msg(1, "Fatal error received - '%s'", error_string);
        printf("Fatal error... %s\n", error_string);
        if (getpid() == g_mastermind_pid) {
            log_msg(2, "mastermind %d is exiting", (int) getpid());
            kill(g_main_pid, SIGTERM);
            finish(1);
        }

        if (getpid() != g_main_pid) {
            if (g_mastermind_pid != 0 && getpid() != g_mastermind_pid) {
                log_msg(2, "non-m/m %d is exiting", (int) getpid());
                kill(g_main_pid, SIGTERM);
                finish(1);
            }
        }

        log_msg(3, "OK, I think I'm the main PID.");
        if (already_exiting) {
            log_msg(3, "...I'm already exiting. Give me time, Julian!");
            finish(1);
        }

        already_exiting = TRUE;
        log_msg(2, "I'm going to do some cleaning up now.");
        paranoid_system("killall mindi 2> /dev/null");
        kill_anything_like_this("/mondo/do-not");
        kill_anything_like_this("mondo.tmp");
        kill_anything_like_this("ntfsclone");
        sync();

        if (chdir("/")) {
            // FIXME
        }
        if (g_selfmounted_isodir) {
            mr_asprintf(command, "umount -d %s", g_selfmounted_isodir);
            run_program_and_log_output(command, 5);
            mr_free(command);
            mr_asprintf(command, "rmdir %s", g_selfmounted_isodir);
            run_program_and_log_output(command, 5);
            mr_free(command);
        }

        if (!g_text_mode) {
            log_msg(0, "-------FATAL ERROR---------");
            log_msg(0, error_string);
        }

        printf("---FATALERROR--- %s\n", error_string);
        printf("If you require technical support, please contact the mailing list.\n");
        printf("See http://www.mondorescue.org for details.\n");
        printf("The list's members can help you, if you attach that file to your e-mail.\n");
        printf("Log file: %s\n", MONDO_LOGFILE);
        printf("Mondo has aborted.\n");
        if (!g_main_pid) {
            log_msg(3, "FYI - g_main_pid is blank");
        }
        finish(254);
    }

/* Free memory allocated for newt */
void free_newt_stuff() {

int i;

for (i = 0; i < g_noof_log_lines; i++) {
    mr_free(err_log_lines[i]);
}
mr_free(err_log_lines);
}



/**
 * Exit Mondo normally.
 * @param signal The exit code (0 indicates a successful backup; 1 for Mondo means the
 * user aborted; 254 means a fatal error occured).
 * @note This function never returns.
 */
void finish(int signal) {

        char *command = NULL;

        /*  Before removing dir, make sure we're out of them */
        if (chdir("/tmp")) {
            // FIXME
        }
        run_program_and_log_output("umount -d " MNT_CDROM, FALSE);
        if (g_selfmounted_isodir) {
            mr_asprintf(command, "umount -d %s", g_selfmounted_isodir);
            run_program_and_log_output(command, 1);
            mr_free(command);

            mr_asprintf(command, "rmdir %s", g_selfmounted_isodir);
            run_program_and_log_output(command, 1);
            mr_free(command);
        }
        if (bkpinfo->tmpdir) {
            log_msg(8,"tempdir is %s",bkpinfo->tmpdir);
            if (strstr(bkpinfo->tmpdir ,"mondo.tmp.") != NULL) {
                log_msg(8,"erasing tempdir %s",bkpinfo->tmpdir);
                mr_asprintf(command, "rm -Rf %s", bkpinfo->tmpdir);
                paranoid_system(command);
                mr_free(command);
            }
        }
        if (bkpinfo->scratchdir) {
            log_msg(8,"scratchdir is %s", bkpinfo->scratchdir);
            if (strstr(bkpinfo->scratchdir ,"mondo.scratch.") != NULL) {
                log_msg(8,"erasing scratchdir %s",bkpinfo->scratchdir);
                mr_asprintf(command, "rm -Rf %s", bkpinfo->scratchdir);
                paranoid_system(command);
                mr_free(command);
            }
        }
        /* Free all allocated strings in bkpinfo */
        mr_free(bkpinfo->netfs_user);
        mr_free(bkpinfo->netfs_proto);
        mr_free(bkpinfo->netfs_remote_dir);
        mr_free(bkpinfo->exclude_devs);
        mr_free(bkpinfo->exclude_paths);
        mr_free(bkpinfo->subdir);
        /* Then free the structure */
        paranoid_free(bkpinfo);

        free_libmondo_global_strings();
        free_newt_stuff();
        if (!g_text_mode) {
            if (does_file_exist("/THIS-IS-A-RAMDISK")) {
                log_msg(1, "Calling newtFinished()");
                newtFinished();
            } else {
                log_msg(1, "Calling newtSuspend()");
                newtSuspend();
            }
        }
        printf("Execution run ended; result=%d\n", signal);
        printf("Type 'less %s' to see the output log\n", MONDO_LOGFILE);
        exit(signal);
    }


/**
 * Log the last @p g_noof_log_lines lines of @p filename that match @p
 * grep_for_me to the screen.
 * @param filename The file to give the end of.
 * @param grep_for_me If not "", then only give lines in @p filename that match this regular expression.
 */
void log_file_end_to_screen(char *filename, char *grep_for_me) {

        /*@ buffers ********************************************************** */
        char *command = NULL;
        char *tmp = NULL;
        char *p = NULL;

        /*@ pointers ********************************************************* */
        FILE *fin;

        /*@ int ************************************************************** */
        int i = 0;

        assert_string_is_neither_NULL_nor_zerolength(filename);
        assert(grep_for_me != NULL);

        if (!does_file_exist(filename)) {
            return;
        }
        if (grep_for_me[0] != '\0') {
            mr_asprintf(command, "grep '%s' %s | tail -n%d", grep_for_me, filename, g_noof_log_lines);
        } else {
            mr_asprintf(command, "tail -n%d %s", g_noof_log_lines, filename);
        }
        fin = popen(command, "r");
        if (!fin) {
            log_OS_error(command);
        } else {
            for (i = 0; i < g_noof_log_lines; i++) {
                for (err_log_lines[i][0] = '\0';
                     strlen(err_log_lines[i]) < 2 && !feof(fin);) {
                    p = fgets(err_log_lines[i], MAX_NEWT_COMMENT_LEN, fin);
                    if (!p) {
                        // FIXME
                    }
                    /* Commented to make valgrind happy and avoid crash
                    strip_spaces(err_log_lines[i]);
                    */
                    if (!strncmp(err_log_lines[i], "root:", 5)) {
                        mr_asprintf(tmp, "%s", err_log_lines[i] + 6);
                        strncpy(err_log_lines[i], tmp, (size_t)MAX_NEWT_COMMENT_LEN);
                        mr_free(tmp);
                    }
                    if (feof(fin)) {
                        break;
                    }
                }
            }
            paranoid_pclose(fin);
        }
        mr_free(command);
        refresh_log_screen();
    }


/**
 * Log a message to the screen.
 * @param fmt A printf-style format string to write. The following parameters are its arguments.
 * @note The message is also written to the logfile.
 */
void log_to_screen(const char *fmt, ...) {

        /*@ int ************************************************************** */
        int i = 0;
        int j = 0;
        va_list args;

        /*@ buffers ********************************************************** */
        char *output;

        malloc_string(output);

        va_start(args, fmt);
        vsnprintf(output, MAX_STR_LEN-1, fmt, args);
        log_msg(0, output);
        output[80] = '\0';
        va_end(args);
        i = (int) strlen(output);
        if (i > 0 && output[i - 1] < 32) {
            output[i - 1] = '\0';
        }

        if (err_log_lines) {
            for (i = 1; i < g_noof_log_lines; i++) {
                strcpy(err_log_lines[i - 1],
                       "                                                                                ");
                strcpy(err_log_lines[i - 1], err_log_lines[i]);
            }
        }
        while (strlen(output) > 0 && output[strlen(output) - 1] < 32) {
            output[strlen(output) - 1] = '\0';
        }
        for (j = 0; j < (int) strlen(output); j++) {
            if (output[j] < 32) {
                output[j] = ' ';
            }
        }
        if (err_log_lines)
            strcpy(err_log_lines[g_noof_log_lines - 1], output);
        if (g_text_mode) {
            printf("%s\n", output);
        } else {
            refresh_log_screen();
        }
        paranoid_free(output);
    }




/**
 * Write a string to the root window at (@p x, @p y) and also to the logfile.
 * @param y The row to write the string to.
 * @param x The column to write the string to.
 * @param output The string to write.
 */
void mvaddstr_and_log_it(int y, int x, char *output) {

        assert_string_is_neither_NULL_nor_zerolength(output);
        log_msg(0, output);
        if (g_text_mode) {
            printf("%s\n", output);
        } else {
            newtDrawRootText(x, y, output);
            newtRefresh();
        }
    }




/**
 * Open an evalcall form with title @p ttl.
 * @param ttl The title to use for the evalcall form.
 */
void open_evalcall_form(char *ttl) {

        /*@ buffers ********************************************************* */
        char *tmp = NULL;

        /*@ initialize ****************************************************** */
        g_isoform_old_progress = -1;
        g_mysterious_dot_counter = 0;

        assert(ttl != NULL);
        malloc_string(tmp);
        strcpy(g_isoform_header_str, ttl);
        if (g_text_mode) {
            log_msg(0, ttl);
        } else {
            strcpy(tmp, ttl);
            center_string(tmp, 80);
            newtPushHelpLine(tmp);
        }
        center_string(g_isoform_header_str, 36);
        g_isoform_starttime = get_time();
        if (g_text_mode) {
            log_msg(0, g_isoform_header_str);
        } else {
            g_isoform_header = newtLabel(1, 1, g_isoform_header_str);
            g_isoform_scale = newtScale(3, 3, 34, 100);
            newtCenteredWindow(40, 7, ttl);
            g_isoform_main = newtForm(NULL, NULL, 0);
            g_isoform_timeline = newtLabel(1, 5, "                    ");
            g_isoform_pcline = newtLabel(1, 6, "                  ");
            newtFormAddComponents(g_isoform_main, g_isoform_timeline,
                                  g_isoform_pcline, g_isoform_header,
                                  g_isoform_scale, NULL);
            newtDrawForm(g_isoform_main);
            newtRefresh();
        }
        update_evalcall_form(0);
        paranoid_free(tmp);
    }



/**
 * Open a progress form with title @p title.
 * @param title The title to use for the progress form (will be put in the title bar on Newt).
 * @param b1 The first line of the blurb; generally static.
 * @param b2 The second line of the blurb; generally static.
 * @param b3 The third line of the blurb; generally dynamic (it is passed
 * to update_evalcall_form() every time).
 * @param max_val The maximum amount of progress (number of filesets, etc.)
 */
void open_progress_form(char *title, char *b1, char *b2, char *b3, long max_val) {

        /*@ buffers ********************************************************* */
        char *b1c;
        char *blurb1 = NULL;
        char *blurb2 = NULL;
        char *blurb3 = NULL;

        /*@ initialize ****************************************************** */
        g_mysterious_dot_counter = 0;

        malloc_string(b1c);

        assert(title != NULL);
        assert(b1 != NULL);
        assert(b2 != NULL);
        assert(b3 != NULL);

        mr_asprintf(blurb1, "%s", b1);
        mr_asprintf(blurb2, "%s", b2);
        mr_asprintf(blurb3, "%s", b3);

        strcpy(b1c, b1);
        center_string(b1c, 80);
        if (max_val <= 0) {
            max_val = 1;
        }

        g_start_time = get_time();
        g_maximum_progress = max_val;
        g_current_progress = 0;
        strcpy(g_blurb_str_1, blurb1);
        strcpy(g_blurb_str_2, blurb3);
        strcpy(g_blurb_str_3, blurb2);
        if (g_text_mode) {
            log_msg(0, blurb1);
            log_msg(0, blurb2);
            log_msg(0, blurb3);
        } else {
            g_blurb1 = newtLabel(2, 1, blurb1);
            g_blurb2 = newtLabel(2, 2, blurb3);
            g_blurb3 = newtLabel(2, 4, blurb2);
            newtCenteredWindow(60, 11, title);
            g_scale = newtScale(3, 6, 54, (long long)g_maximum_progress);
            g_progressForm = newtForm(NULL, NULL, 0);
            g_percentline = newtLabel(10, 9, "                       ");
            g_timeline = newtLabel(10, 8, "                    ");
            newtFormAddComponents(g_progressForm, g_percentline, g_timeline, g_scale, g_blurb1, g_blurb3, g_blurb2, NULL);
            newtPushHelpLine(b1c);
            newtDrawForm(g_progressForm);
            newtRefresh();
        }
        update_progress_form_full(blurb1, blurb2, blurb3);
        paranoid_free(b1c);
        mr_free(blurb1);
        mr_free(blurb2);
        mr_free(blurb3);
    }

/**
 * Give a message to the user in the form of a dialog box (under Newt).
 * @param prompt The message.
 */
void popup_and_OK(char *prompt) {

        char ch;

        assert_string_is_neither_NULL_nor_zerolength(prompt);

        log_msg(0, prompt);
        if (g_text_mode) {
            printf("---promptpopup---1--- %s\n---promptpopup---Q--- [OK] ---\n--> ", prompt);
            while (((ch = getchar()) != '\n') && (ch != EOF));
        } else {
            (void) popup_with_buttons(prompt, " OK ", "");
        }
    }

/**
 * Ask the user to enter a value.
 * @param title The title of the dialog box.
 * @param b The blurb (e.g. what you want the user to enter).
 * @param output The string to put the user's answer in.
 * @param maxsize The size in bytes allocated to @p output.
 * @return TRUE if the user pressed OK, FALSE if they pressed Cancel.
 */
    bool popup_and_get_string(char *title, char *b, char *output, int maxsize) {

        /*@ newt ************************************************************ */
        newtComponent myForm;
        newtComponent b_1;
        newtComponent b_2;
        newtComponent b_res;
        newtComponent text;
        newtComponent type_here;

        /*@ pointers ********************************************************* */
        char *entry_value;

        /*@ buffers ********************************************************** */
        char *blurb = NULL;
        char *p;
        char *original_contents = NULL;

        assert_string_is_neither_NULL_nor_zerolength(title);
        assert(b != NULL);
        assert(output != NULL);

        if (g_text_mode) {
            printf("---promptstring---1--- %s\n---promptstring---2--- %s\n---promptstring---Q---\n-->  ", title, b);
            p = fgets(output, maxsize, stdin);
            if (!p) {
                // FIXME
            }
            if (output[strlen(output) - 1] == '\n')
                output[strlen(output) - 1] = '\0';
            return (TRUE);
        }
        
        blurb = malloc(MAX_NEWT_COMMENT_LEN);
        strcpy(blurb, b);
        text = newtTextboxReflowed(2, 1, blurb, 48, 5, 5, 0);
        mr_asprintf(original_contents, "%s", output);
        output[0] = '\0';
        type_here = newtEntry(2, newtTextboxGetNumLines(text) + 2, original_contents, 50,
#ifdef __cplusplus
                      0, NEWT_FLAG_RETURNEXIT
#else
                      (void *) &entry_value, NEWT_FLAG_RETURNEXIT
#endif
            );
        b_1 = newtButton(6, newtTextboxGetNumLines(text) + 4, "  OK  ");
        b_2 = newtButton(18, newtTextboxGetNumLines(text) + 4, "Cancel");
        newtCenteredWindow(54, newtTextboxGetNumLines(text) + 9, title);
        myForm = newtForm(NULL, NULL, 0);
        newtFormAddComponents(myForm, text, type_here, b_1, b_2, NULL);
        center_string(blurb, 80);
        newtPushHelpLine(blurb);
        b_res = newtRunForm(myForm);
        strcpy(output, entry_value);
        newtPopHelpLine();
        newtFormDestroy(myForm);
        newtPopWindow();
        paranoid_free(blurb);

        if (b_res == b_2) {
            strcpy(output, original_contents);
            mr_free(original_contents);
            return (FALSE);
        } else {
            mr_free(original_contents);
            return (TRUE);
        }
    }


/**
 * Pop up a dialog box with user-defined buttons.
 * @param p The text to put in the dialog box.
 * @param button1 The label on the first button.
 * @param button2 The label on the second button, or "" if you only want one button.
 * @return TRUE if @p button1 was pushed, FALSE otherwise.
 */
bool popup_with_buttons(char *p, char *button1, char *button2) {

        /*@ buffers *********************************************************** */
        char *prompt = NULL;

        /*@ newt ************************************************************** */
        newtComponent myForm;
        newtComponent b_1;
        newtComponent b_2;
        newtComponent b_res;
        newtComponent text;

        assert_string_is_neither_NULL_nor_zerolength(p);
        assert(button1 != NULL);
        assert(button2 != NULL);
        if (g_text_mode) {
            if (strlen(button2) == 0) {
                printf("%s (%s) --> ", p, button1);
            } else {
                printf("%s (%s or %s) --> ", p, button1, button2);
            }
            mr_getline(prompt, stdin);
            while (strcmp(prompt, button1) && (strlen(button2) == 0 || strcmp(prompt, button2))) {
                printf("--> ");
                mr_free(prompt);
                mr_getline(prompt, stdin);
            }
            if (!strcmp(prompt, button1)) {
                mr_free(prompt);
                return (TRUE);
            } else {
                mr_free(prompt);
                return (FALSE);
            }
        }

        prompt = malloc(MAX_NEWT_COMMENT_LEN);
        strncpy(prompt, p, MAX_NEWT_COMMENT_LEN - 1);
        prompt[MAX_NEWT_COMMENT_LEN - 1] = '\0';
        text = newtTextboxReflowed(1, 1, prompt, 40, 5, 5, 0);
        b_1 = newtButton(20 - ((button2[0] != '\0') ? strlen(button1) + 2 : strlen(button1) / 2), newtTextboxGetNumLines(text) + 3, button1);
        if (button2[0] != '\0') {
            b_2 = newtButton(24, newtTextboxGetNumLines(text) + 3, button2);
        } else {
            b_2 = NULL;
        }
        newtCenteredWindow(46, newtTextboxGetNumLines(text) + 7, "Alert");
        myForm = newtForm(NULL, NULL, 0);
        newtFormAddComponents(myForm, text, b_1, b_2, NULL);
        center_string(prompt, 80);
        newtPushHelpLine(prompt);
        b_res = newtRunForm(myForm);
        newtPopHelpLine();
        newtFormDestroy(myForm);
        newtPopWindow();
        if (b_res == b_1) {
            paranoid_free(prompt);
            return (TRUE);
        } else {
            paranoid_free(prompt);
            return (FALSE);
        }
    }




/**
 * Synchronize the log messages stored in @p err_log_lines with those shown
 * on the screen.
 */
void refresh_log_screen() {

        /*@ int *********************************************************** */
        int i = 0;


        if (g_text_mode || !err_log_lines) {
            return;
        }
        for (i = g_noof_log_lines - 1; i >= 0; i--) {
            newtDrawRootText(0, i + g_noof_rows - 1 - g_noof_log_lines,
                             "                                                                                ");
        }
        newtRefresh();
        for (i = g_noof_log_lines - 1; i >= 0; i--) {
            err_log_lines[i][79] = '\0';
            newtDrawRootText(0, i + g_noof_rows - 1 - g_noof_log_lines,
                             err_log_lines[i]);
        }
        newtRefresh();
    }


/**
 * Set up the Newt graphical environment. If @p g_text_mode is TRUE, then
 * only allocate some memory.
 */
void setup_newt_stuff() {

        /*@ int *********************************************************** */
        int i = 0;
        int cols;

        if (!g_text_mode) {
            newtInit();
            newtCls();
            newtPushHelpLine("Welcome to Mondo Rescue, by Dev Team and the Internet. All rights reversed.");
            newtDrawRootText(18, 0, WELCOME_STRING);
            newtRefresh();
            newtGetScreenSize(&cols, &g_noof_rows);
            g_noof_log_lines = (g_noof_rows / 5) + 1;
        }

        err_log_lines = (char **) mr_malloc(sizeof(char *) * g_noof_log_lines);

        for (i = 0; i < g_noof_log_lines; i++) {
            err_log_lines[i] = (char *) mr_malloc(MAX_NEWT_COMMENT_LEN);
        }

        for (i = 0; i < g_noof_log_lines; i++) {
            err_log_lines[i][0] = '\0';
        }
    }


/**
 * Update the evalcall form to show (<tt>num</tt>/<tt>denom</tt>)*100 %.
 * @param num The numerator of the ratio.
 * @param denom The denomenator of the ratio.
 */
void update_evalcall_form_ratio(int num, int denom) {

        /*@ long ************************************************************ */
        long current_time = 0L;
        long time_taken = 0L;
        long time_total_est = 0L;
        long time_remaining = 0L;

        /*@ buffers ********************************************************** */
        char *timeline_str = NULL;
        char *pcline_str = NULL;
        char *taskprogress = NULL;

        /*@ int ************************************************************** */
        int percentage = 0;
        int i = 0;
        int j = 0;

        if (num * 100 < denom) {
            percentage = 1;
        } else {
            percentage = (num * 100 + denom / 2) / denom;
        }

        current_time = get_time();
        time_taken = current_time - g_isoform_starttime;
        if (num) {
            time_total_est = time_taken * denom / num;
            time_remaining = time_total_est - time_taken;
        } else {
            time_remaining = 0L;
        }
        if (!g_text_mode) {
            if (g_isoform_header) {
                newtLabelSetText(g_isoform_header, g_isoform_header_str);
            }
        }
        g_mysterious_dot_counter = (g_mysterious_dot_counter + 1) % 27;
        if ((percentage < 3 && g_isoform_old_progress < 3) || percentage > g_isoform_old_progress) {
            g_isoform_old_progress = percentage;
            mr_asprintf(timeline_str, "%2ld:%02ld taken            %2ld:%02ld remaining", (long) time_taken / 60, (long) time_taken % 60, (long) time_remaining / 60, (long) time_remaining % 60);
            if (percentage < 3) {
                mr_asprintf(pcline_str, " Working");
                for (j = 0; j < g_mysterious_dot_counter; j++) {
                    mr_strcat(pcline_str, ".");
                }
                for (; j < 27; j++) {
                    mr_strcat(pcline_str, " ");
                }
                mr_strcat(pcline_str, " %c", special_dot_char(g_mysterious_dot_counter));
            } else {
                mr_asprintf(pcline_str, " %3d%% done              %3d%% to go", percentage, 100 - percentage);
            }
            if (g_text_mode) {
                mr_asprintf(taskprogress, "TASK:  [");
                for (i = 0; i < percentage; i += 5) {
                    mr_strcat(taskprogress, "*");
                }
                for (; i < 100; i += 5) {
                    mr_strcat(taskprogress, ".");
                }
                if (percentage >= 3) {
                    mr_strcat(taskprogress, "] %3d%% done; %2ld:%02ld to go", percentage, (long) time_remaining / 60, (long) time_remaining % 60);
                    printf("---evalcall---1--- %s\n", g_isoform_header_str);
                    printf("---evalcall---2--- %s\n", taskprogress);
                    printf("---evalcall---E---\n");
                }
                mr_free(taskprogress);
            } else {
                newtScaleSet(g_isoform_scale, (unsigned long long) percentage);
                if (g_isoform_pcline) {
                    newtLabelSetText(g_isoform_pcline, pcline_str);
                }
                if ((percentage >= 3) && (g_isoform_timeline)) {
                    newtLabelSetText(g_isoform_timeline, timeline_str);
                }
            }
            mr_free(pcline_str);
            mr_free(timeline_str);
        }
        if (!g_text_mode) {
            newtDrawForm(g_isoform_main);
            newtRefresh();
        }
    }



/**
 * Update the evalcall form to show @p curr %.
 * @param curr The current amount of progress (percentage) in the evalcall form.
 */
void update_evalcall_form(int curr) {

        update_evalcall_form_ratio(curr, 100);
}



/**
 * Update the progress form to show @p blurb3 and the current value of
 * @p g_maximum_progress.
 * @param blurb3 The new third line of the blurb; use @p g_blurb_str_2 (no, that's not a typo) to keep it the same.
 */
void update_progress_form(char *blurb3) {

        if (g_current_progress == -999) {
            return;
        }
        strcpy(g_blurb_str_2, blurb3);
        update_progress_form_full(g_blurb_str_1, g_blurb_str_2, g_blurb_str_3);
}


/**
 * Update the progress form's complete blurb and show @p g_current_progress.
 * @param blurb1 The first line of the blurb. Use @p g_blurb_str_1 to keep it unchanged.
 * @param blurb2 The second line of the blurb. Use @p g_blurb_str_3 (no, that's not a typo) to keep it the same.
 * @param blurb3 The third line of the blurb. Use @p g_blurb_str_2 (no, that's not a typo either) to keep it the same.
 */
void update_progress_form_full(char *blurb1, char *blurb2, char *blurb3) {

        /*@ long ***************************************************** */
        long current_time = 0L;
        long time_taken = 0L;
        long time_remaining = 0L;
        long time_total_est = 0L;

        /*@ int ******************************************************* */
        int percentage = 0;
        int i = 0;

        /*@ buffers *************************************************** */
        char *percentline_str = NULL;
        char *timeline_str = NULL;
        char *taskprogress = NULL;

        if (!g_text_mode) {
            assert(blurb1 != NULL);
            assert(blurb2 != NULL);
            assert(blurb3 != NULL);
            assert(g_timeline != NULL);
        }

        current_time = get_time();
        time_taken = current_time - g_start_time;
        if (g_maximum_progress == 0) {
            percentage = 0;
        } else {
            if (g_current_progress > g_maximum_progress) {
                log_msg(0, "update_progress_form_full(%s,%s,%s) --- g_current_progress=%ld; g_maximum_progress=%ld", blurb1, blurb2, blurb3, g_current_progress, g_maximum_progress);
                g_current_progress = g_maximum_progress;
            }
            percentage = (int) ((g_current_progress * 100L) / g_maximum_progress);
        }
        if (percentage < 1) {
            percentage = 1;
        }
        if (percentage > 100) {
            percentage = 100;
        }
        if (g_current_progress) {
            time_total_est = time_taken * (long) g_maximum_progress / (long) g_current_progress;
            time_remaining = time_total_est - time_taken;
        } else {
            time_remaining = 0L;
        }
        g_mysterious_dot_counter = (g_mysterious_dot_counter + 1) % 27;
        if (g_text_mode) {
            printf("---progress-form---1--- %s\n", blurb1);
            printf("---progress-form---2--- %s\n", blurb2);
            printf("---progress-form---3--- %s\n", blurb3);
            printf("---progress-form---E---\n");
            mr_asprintf(taskprogress, "TASK:  [");
            for (i = 0; i < percentage; i += 5) {
                mr_strcat(taskprogress, "*");
            }
            for (; i < 100; i += 5) {
                mr_strcat(taskprogress, ".");
            }
            if (percentage > 100) {
                log_msg(2, "percentage = %d", percentage);
            }
            mr_strcat(taskprogress, "] %3d%% done; %2ld:%02ld to go", percentage, (long) time_remaining / 60, (long) time_remaining % 60);
            printf("---progress-form---4--- %s\n", taskprogress);
            paranoid_free(taskprogress);
        } else {
            mr_asprintf(timeline_str, "%2ld:%02ld taken               %2ld:%02ld remaining  ", (long) time_taken / 60, (long) time_taken % 60, (long) time_remaining / 60, (long) time_remaining % 60);
            mr_asprintf(percentline_str, " %3d%% done                 %3d%% to go", percentage, 100 - percentage);

            center_string(blurb1, 54);
            center_string(blurb2, 54);
            center_string(blurb3, 54);
            if (g_blurb1) {
                newtLabelSetText(g_blurb1, blurb1);
            }
            if (g_blurb2) {
                newtLabelSetText(g_blurb2, blurb3);
            }
            if (g_blurb3) {
                newtLabelSetText(g_blurb3, blurb2);
            }
            newtScaleSet(g_scale, (unsigned long long) g_current_progress);
            if ((percentage >= 2) && (g_timeline)) {
                newtLabelSetText(g_timeline, timeline_str);
            }
            mr_free(timeline_str);

            if (g_percentline) {
                newtLabelSetText(g_percentline, percentline_str);
            }
            mr_free(percentline_str);

            newtDrawForm(g_progressForm);
            newtRefresh();
        }
    }


/**
 * Ask the user which backup media type they would like to use.
 * The choices are @p none (exit to shell), @c cdr, @c cdrw, @c dvd,
 * @c tape, @c cdstream, @c udev (only when @p g_text_mode is TRUE), @c netfs,
 * and @c iso.
 * @param restoring TRUE if we're restoring, FALSE if we're backing up.
 * @return The backup type chosen, or @c none if the user chose "Exit to shell".
 */
t_bkptype which_backup_media_type(bool restoring) {

        /*@ char ************************************************************ */
        t_bkptype output;


        /*@ newt ************************************************************ */
        char *title_sz = NULL;
        char *minimsg_sz = NULL;
        static t_bkptype possible_bkptypes[] = { none, cdr, cdrw, dvd, tape, cdstream, udev, netfs, iso };
        static char *possible_responses[] = { "none", "cdr", "cdrw", "dvd", "tape", "cdstream", "udev", "netfs", "iso", NULL };
        char *outstr = NULL;
        t_bkptype backup_type;
        int i;

        newtComponent b1;
        newtComponent b2;
        newtComponent b3;
        newtComponent b4;
        newtComponent b5;
        newtComponent b6;
        newtComponent b7;
        newtComponent b8;
        newtComponent b_res;
        newtComponent myForm;

        if (g_text_mode) {
            for (backup_type = none; backup_type == none;) {
                printf("Backup type (");
                for (i = 0; possible_responses[i]; i++) {
                    printf("%c%s", (i == 0) ? '\0' : ' ',
                           possible_responses[i]);
                }
                printf(")\n--> ");
                mr_getline(outstr, stdin);
                mr_strip_spaces(outstr);
                for (i = 0; possible_responses[i]; i++) {
                    if (!strcmp(possible_responses[i], outstr)) {
                        backup_type = possible_bkptypes[i];
                    }
                }
                mr_free(outstr);
            }
            return (backup_type);
        }
        newtDrawRootText(18, 0, WELCOME_STRING);
        if (restoring) {
            mr_asprintf(title_sz, "Please choose the backup media from which you want to read data.");
            mr_asprintf(minimsg_sz, "Read from:");
        } else {
            mr_asprintf(title_sz, "Please choose the backup media to which you want to archive data.");
            mr_asprintf(minimsg_sz, "Backup to:");
        }
        newtPushHelpLine(title_sz);
        newtCenteredWindow(34, 17, minimsg_sz);
        b1 = newtButton(1, 1, "CD-R disks ");
        b2 = newtButton(17, 1, "CD-RW disks");
        b3 = newtButton(1, 9, "Tape drive ");
        b4 = newtButton(17, 5, "USB Key/Disk");
        b5 = newtButton(1, 5, " DVD disks ");
        b6 = newtButton(17, 9, " Net mount ");
        b7 = newtButton(1, 13, " Hard disk ");
        b8 = newtButton(17, 13, "    Exit   ");
        myForm = newtForm(NULL, NULL, 0);
        newtFormAddComponents(myForm, b1, b5, b3, b7, b2, b4, b6, b8,
                              NULL);
        b_res = newtRunForm(myForm);
        newtFormDestroy(myForm);
        newtPopWindow();
        if (b_res == b1) {
            output = cdr;
        } else if (b_res == b2) {
            output = cdrw;
        } else if (b_res == b3) {
            output = tape;
        } else if (b_res == b4) {
            output = usb;
        } else if (b_res == b5) {
            output = dvd;
        } else if (b_res == b6) {
            output = netfs;
        } else if (b_res == b7) {
            output = iso;
        } else {
            output = none;
        }
        newtPopHelpLine();
        mr_free(title_sz);
        mr_free(minimsg_sz);
        return (output);
    }




/**
 * Ask the user which compression type they would like to use.
 * The choices are "bzip2", "gzip", "lzo", "lzma". NULL for exit
 */
    char *which_compression_type() {

        /*@ char ************************************************************ */
        char *output = NULL;


        /*@ newt ************************************************************ */

        newtComponent b1;
        newtComponent b2;
        newtComponent b3;
        newtComponent b4;
        newtComponent b5;
        newtComponent b_res;
        newtComponent myForm;

        newtDrawRootText(18, 0, WELCOME_STRING);
        newtPushHelpLine
            ("   Please specify the type of compression that you want.");
        newtCenteredWindow(34, 13, "Type of compression?");
        b1 = newtButton(4, 1, "bzip2");
        b2 = newtButton(18, 1, "gzip");
        b3 = newtButton(4, 5, "lzo");
        b4 = newtButton(18, 5, "lzma");
        b5 = newtButton(4, 9, "         Exit        ");
        myForm = newtForm(NULL, NULL, 0);
        newtFormAddComponents(myForm, b1, b3, b2, b4, b5, NULL);
        b_res = newtRunForm(myForm);
        newtFormDestroy(myForm);
        newtPopWindow();
        if (b_res == b1) {
            mr_asprintf(output, "%s", "bzip2");
        } else if (b_res == b2) {
            mr_asprintf(output, "%s", "gzip");
        } else if (b_res == b3) {
            mr_asprintf(output, "%s", "lzo");
        } else if (b_res == b4) {
            mr_asprintf(output, "%s", "lzma");
        }
        newtPopHelpLine();
        return(output);
    }


/**
 * Ask the user how much compression they would like to use.
 * The choices are "None" (0), "Minimum" (1), "Average" (4), and "Maximum" (9).
 * @return The compression level (0-9) chosen, or -1 for "Exit".
 */
int which_compression_level() {

        /*@ char ************************************************************ */
        int output = none;


        /*@ newt ************************************************************ */

        newtComponent b1;
        newtComponent b2;
        newtComponent b3;
        newtComponent b4;
        newtComponent b5;
        newtComponent b_res;
        newtComponent myForm;

        newtDrawRootText(18, 0, WELCOME_STRING);
        newtPushHelpLine("   Please specify the level of compression that you want.");
        newtCenteredWindow(34, 13, "How much compression?");
        b1 = newtButton(4, 1, "Maximum (9)");
        b2 = newtButton(18, 1, "Average (4)");
        b3 = newtButton(4, 5, "Minimum (1)");
        b4 = newtButton(18, 5, " None (0) ");
        b5 = newtButton(4, 9, "         Exit        ");
        myForm = newtForm(NULL, NULL, 0);
        newtFormAddComponents(myForm, b1, b3, b2, b4, b5, NULL);
        b_res = newtRunForm(myForm);
        newtFormDestroy(myForm);
        newtPopWindow();
        if (b_res == b1) {
            output = 9;
        } else if (b_res == b2) {
            output = 4;
        } else if (b_res == b3) {
            output = 1;
        } else if (b_res == b4) {
            output = 0;
        } else if (b_res == b5) {
            output = -1;
        }
        newtPopHelpLine();
        return (output);
    }





/**
 * Load @p source_file (a list of files) into @p filelist. There can be no more than
 * @p ARBITRARY_MAXIMUM entries.
 * @param filelist The filelist structure to load @p source_file into.
 * @param source_file The file containing a list of filenames to load into @p filelist.
 */
int load_filelist_into_array(struct s_filelist *filelist, char *source_file) {

        int i;
        int j = 0;
        bool done;
        char *tmp = NULL;
        char *tmp1 = NULL;
        FILE *fin, *fout;
        struct s_filelist_entry dummy_fle;

        assert(filelist != NULL);
        assert_string_is_neither_NULL_nor_zerolength(source_file);

        log_it("entering");
        if (!(fin = fopen(source_file, "r"))) {
            log_OS_error(source_file);
            log_msg(2, "Can't open %s; therefore, cannot popup list",
                    source_file);
            return (1);
        }

        mr_asprintf(tmp1,"%s/icantfindthesefiles.txt",bkpinfo->tmpdir);
        if (!(fout = fopen(tmp1, "a"))) {
            log_msg(2, "Can't write to %s", tmp1);
            mr_free(tmp1);
            return(1);
            }

        log_msg(2, "Loading %s", source_file);
        for (filelist->entries = 0; filelist->entries <= ARBITRARY_MAXIMUM; ) {
            mr_free(tmp);
            if (feof(fin)) {
                break;
            }
            mr_getline(tmp, fin);
            i = (int) strlen(tmp);
            if (i < 2) {
                continue;
            }
            if (tmp[i - 1] < 32) {
                tmp[--i] = '\0';
            }
            if (i < 2) {
                continue;
            }
            if (!does_file_exist(tmp) && !feof(fin)) {
                j++;
                fprintf(fout, "%s\n", tmp);
                continue;
            }
            filelist->el[filelist->entries].severity = severity_of_difference(tmp, NULL);
            strcpy(filelist->el[filelist->entries].filename, tmp);
            if (feof(fin)) {
                break;
            }
            filelist->entries++;
        }
        mr_free(tmp);
        paranoid_fclose(fin);
        paranoid_fclose(fout);
        if (j > 0) {
            log_to_screen("%d files listed in %s/changed.files have been deleted since backup was made\nand are referenced in %s", j, bkpinfo->tmpdir,tmp1);
        }
        mr_free(tmp1);
        if (filelist->entries >= ARBITRARY_MAXIMUM) {
            log_to_screen("Arbitrary limits suck, man!");
            return (1);
        }
        for (done = FALSE; !done;) {
            done = TRUE;
            for (i = 0; i < filelist->entries - 1; i++) {
//          if (strcmp(filelist->el[i].filename, filelist->el[i+1].filename) > 0)
                if (filelist->el[i].severity < filelist->el[i + 1].severity
                    || (filelist->el[i].severity ==
                        filelist->el[i + 1].severity
                        && strcmp(filelist->el[i].filename,
                                  filelist->el[i + 1].filename) > 0)) {
                    memcpy((void *) &dummy_fle,
                           (void *) &(filelist->el[i]),
                           sizeof(struct s_filelist_entry));
                    memcpy((void *) &(filelist->el[i]),
                           (void *) &(filelist->el[i + 1]),
                           sizeof(struct s_filelist_entry));
                    memcpy((void *) &(filelist->el[i + 1]),
                           (void *) &dummy_fle,
                           sizeof(struct s_filelist_entry));
                    log_msg(2, "Swapping %s and %s",
                            filelist->el[i].filename,
                            filelist->el[i + 1].filename);
                    done = FALSE;
                }
            }
        }
        log_it("leaving");
        return (0);
    }


/**
 * Generate a pretty string based on @p flentry.
 * @param flentry The filelist entry to stringify.
 * @return The string form of @p flentry.
 * @note The returned value points to static storage that will be overwritten with each call.
 */
char *filelist_entry_to_string(struct s_filelist_entry *flentry) {
        static char comment[100];
        char *tmp = NULL;

        log_msg(8, "entering");
        assert(flentry != NULL);
        if (flentry->severity == 0) {
            mr_asprintf(tmp, "0   ");
        } else if (flentry->severity == 1) {
            mr_asprintf(tmp, "low ");
        } else if (flentry->severity == 2) {
            mr_asprintf(tmp, "med ");
        } else {
            mr_asprintf(tmp, "high");
        }
        mr_strcat(tmp, "  ");
        mr_strcat(tmp, flentry->filename);
        strncpy(comment, tmp, 99);
        mr_free(tmp);

        log_it("leaving");
        return (comment);
    }


/**
 * Pop up a list containing the filenames in @p source_file and the severity if they have changed since the
 * last backup. There can be no more than @p ARBITRARY_MAXIMUM files in @p source_file.
 * @param source_file The file containing a list of changed files.
 */
void popup_changelist_from_file(char *source_file) {

        char *reason = NULL;
        newtComponent myForm;
        newtComponent bClose;
        newtComponent bSelect;
        newtComponent b_res;
        newtComponent fileListbox;
        newtComponent headerMsg;

        /*@ ???? ************************************************************ */
        void *curr_choice;
        void *keylist[ARBITRARY_MAXIMUM];

        /*@ int ************************************************************* */
        int currline = 0;
        int finished = FALSE;

        /*@ long ************************************************************ */
        long i = 0;
        long lng = 0;

        /*@ buffers ********************************************************* */
        char *tmp = NULL;
        char *differ_sz = NULL;

        struct s_filelist *filelist;
        assert_string_is_neither_NULL_nor_zerolength(source_file);
        if (g_text_mode) {
            log_msg(2, "Text mode. Therefore, no popup list.");
            return;
        }
        log_msg(2, "Examining file %s", source_file);

        lng = count_lines_in_file(source_file);
        if (lng < 1) {
            log_msg(2, "No lines in file. Therefore, no popup list.");
            return;
        } else if (lng >= ARBITRARY_MAXIMUM) {
            log_msg(2, "Too many files differ for me to list.");
            return;
        }

        filelist = (struct s_filelist *) malloc(sizeof(struct s_filelist));
        fileListbox =
            newtListbox(2, 2, 12, NEWT_FLAG_SCROLL | NEWT_FLAG_RETURNEXIT);
        newtListboxClear(fileListbox);

        if (load_filelist_into_array(filelist, source_file)) {
            log_msg(2, "Can't open %s; therefore, cannot popup list", source_file);
            return;
        }
        log_msg(2, "%d files loaded into filelist array", filelist->entries);
        for (i = 0; i < filelist->entries; i++) {
            keylist[i] = (void *) i;
            newtListboxAppendEntry(fileListbox,
                                   filelist_entry_to_string(&
                                                            (filelist->
                                                             el[i])),
                                   keylist[i]);
        }
        mr_asprintf(differ_sz, "  %ld files differ. Hit 'Select' to pick a file. Hit 'Close' to quit the list.", i);
        newtPushHelpLine(differ_sz);
        mr_free(differ_sz);

        bClose = newtCompactButton(10, 15, " Close  ");
        bSelect = newtCompactButton(30, 15, " Select ");
        mr_asprintf(tmp, "%-10s               %-20s", "Priority", "Filename");
        headerMsg = newtLabel(2, 1, tmp);
        mr_free(tmp);

        newtOpenWindow(5, 4, 70, 16, "Non-matching files");
        myForm = newtForm(NULL, NULL, 0);
        newtFormAddComponents(myForm, headerMsg, fileListbox, bClose, bSelect, NULL);

        while (!finished) {
            b_res = newtRunForm(myForm);
            if (b_res == bClose) {
                finished = TRUE;
            } else {
                curr_choice = newtListboxGetCurrent(fileListbox);
                for (i = 0;
                     i < filelist->entries && keylist[i] != curr_choice;
                     i++);
                if (i == filelist->entries && filelist->entries > 0) {
                    log_to_screen("I don't know what that button does!");
                } else {
                    currline = i;
                    if (filelist->entries > 0) {
                        malloc_string(reason);
                        severity_of_difference(filelist->el[currline].filename, &reason);
                        mr_asprintf(tmp, "%s --- %s", filelist->el[currline].filename, reason);

                        popup_and_OK(tmp);
                        mr_free(tmp);
                        paranoid_free(reason);
                    }
                }
            }
        }
        newtFormDestroy(myForm);
        newtPopWindow();
        newtPopHelpLine();
        return;
    }

/* @} - end of guiGroup */


#if __cplusplus
}                               /* extern "C" */
#endif