Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/unix/volume16/pcomm2/part03/d_revise.c

C/C++ Source or Header | 1988-09-14 | 3.9 KB | 193 lines

/*
 * The revise option of the dialing directory.  A return code of 1 means
 * that something was updated.  Prompts for saving changes to disk.
 */

#include <stdio.h>
#include <curses.h>
#include "config.h"
#include "dial_dir.h"
#include "misc.h"
#include "param.h"

int
revise()
{
    WINDOW *r_win, *newwin();
    int count, dir_flag, param_flag, num, x, y, save;
    char ans, buf[40], *ld, *ld_prompt(), *strdup();
    void free_ptr();

    r_win = newwin(7, 77, 7, 2);

    mvwaddstr(r_win, 3, 6, "Entry to revise?");
    mvwaddstr(r_win, 3, 35, "(Entry Number, +, -, @, #)");
    box(r_win, VERT, HORZ);
    wmove(r_win, 3, 23);
    wrefresh(r_win);

    dir_flag = 0;
    param_flag = 0;
    count = 0;

    /*
     * Can't use my home-grown get_str() and get_num() functions
     * here, because we are prompting for an entry number or a
     * long distance code.  This routine echoes numbers only.
     */
    while ((ans = wgetch(r_win)) != ESC) {
        if (ans >= '0' && ans <= '9') {
            if (count == 3) {
                beep();
                continue;
            }
            buf[count] = ans;
            waddch(r_win, (chtype) ans);
            wrefresh(r_win);
            count++;
            continue;
        }
                    /* terminating CR */
        if (ans == '\r') {
            if (!count) {
                beep();
                continue;
            }
            buf[count] = NULL;
            num = atoi(buf);
                    /* valid range of numbers? */
            if (num == 0 || num > NUM_DIR) {
                beep();
                mvwaddstr(r_win, 3, 23, "   ");
                wmove(r_win, 3, 23);
                wrefresh(r_win);
                count = 0;
                continue;
            }
                    /* prompt for that entry */
            if (prompt_lib(r_win, num)) {
                dir_flag++;
                break;
            }
            delwin(r_win);
            return(0);
        }
                    /* do our own backspace */
        if (ans == BS) {
            if (!count) {
                beep();
                continue;
            }
            count--;
            buf[count] = NULL;
            getyx(r_win, y, x);
            x--;
            wmove(r_win, y, x);
            waddch(r_win, (chtype) ' ');
            wmove(r_win, y, x);
            wrefresh(r_win);
            continue;
        }
                    /* non-number after number is error */
        if (count) {
            beep();
            continue;
        }
                    /* prompt for LD codes */
        switch (ans) {
            case '+':
                if ((ld = ld_prompt(r_win, param->ld_plus, ans)) != NULL) {
                    free_ptr(param->ld_plus);
                    param->ld_plus = strdup(ld);
                    param_flag++;
                }
                break;
            case '-':
                if ((ld = ld_prompt(r_win, param->ld_minus, ans)) != NULL) {
                    free_ptr(param->ld_minus);
                    param->ld_minus = strdup(ld);
                    param_flag++;
                }
                break;
            case '@':
                if ((ld = ld_prompt(r_win, param->ld_at, ans)) != NULL) {
                    free_ptr(param->ld_at);
                    param->ld_at = strdup(ld);
                    param_flag++;
                }
                break;
            case '#':
                if ((ld = ld_prompt(r_win, param->ld_pound, ans)) != NULL) {
                    free_ptr(param->ld_pound);
                    param->ld_pound = strdup(ld);
                    param_flag++;
                }
                break;
            default:
                beep();
                continue;
        }
        break;
    }
                    /* if nothing changed */
    if (!param_flag && !dir_flag) {
        delwin(r_win);
        return(0);
    }
                    /* save to disk? */
    clear_line(r_win, 4, 4, 1);
    if (dir_flag) {
        sprintf(buf, "Save entry %d to disk", num);
        save = yes_prompt(r_win, 4, 4, A_BOLD, buf);
    }
    else
        save = yes_prompt(r_win, 4, 4, A_BOLD, "Save to disk");

                    /* update the files */
    if (save && dir_flag) {
        if (up_dir(num)) {
            touchwin(r_win);
            wrefresh(r_win);
        }
    }
    if (save && param_flag) {
        if (up_param()) {
            touchwin(r_win);
            wrefresh(r_win);
        }
    }
    delwin(r_win);
    return(1);
}

/*
 * Prompt for long distance code changes.  If new string is a space,
 * change it to a null pointer.  Returns the new value or NULL on escape.
 */

static char *
ld_prompt(win, current_ld, name)
WINDOW *win;
char *current_ld, name;
{
    extern char *null_ptr;
    char *ans, *get_str();

    werase(win);
    mvwprintw(win, 2, 4, "%-20.20s", current_ld);
    mvwprintw(win, 4, 4, "New LD code for %c: ", name);
    box(win, VERT, HORZ);
    wrefresh(win);

    if ((ans = get_str(win, 20, "", "")) == NULL)
        return(NULL);
                    /* if space, change to NULL pointer */
    if (!strcmp(ans, " "))
        ans = null_ptr;
                    /* display new value */
    clear_line(win, 2, 4, 1);
    wattrstr(win, A_BOLD, ans);

    return(ans);
}