Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/misc/volume38/menushell/part03/functions1.c

C/C++ Source or Header | 1993-07-30 | 4.8 KB | 226 lines

#include "mshell.h"

extern char     G_homevar      [];
extern char     G_uservar      [];
extern char     G_termvar      [];
extern char     G_mailfile     [WORDLEN];
extern char     G_mail_message [WORDLEN];
extern int      G_mailsize;
extern struct   stat G_st;

helpfile_display (filename)
char * filename;

{
    FILE * fp;
    char record [DESCLEN];
    if (( fp = fopen (filename, "r")) == NULL ) {
        printf ("\tNo such helpfile as %s\!\!\n", filename);
        return;
    }

    while ( fgets (record, sizeof(record), fp) )
        fputs (record, stdout);
    printf ("\n");
    fclose (fp);
}

/* ================================ */
char *
prompt(p)
/* ================================ */
char *p;
{
    static char ans[WORDLEN];
    extern int G_limited;

    printf ("%s : ", ufix(p));
    if (!G_limited) {
        read_input_line (ans);
        replace_string (ans, HOME_CHAR, getenv(&G_homevar[1])) ;
    }
    else {
        strcpy(ans, "XXX");
        printf("(no input for unvalidated users)");
    }
    printf ("\n");
    return(ans);
}

/* ================================================ */
extract_action_word ( str, sub_str, dest_str, flag)
/* ================================================ */
char *str, *sub_str, *dest_str;
int  flag;

{
    char *position, *target;
    int startpos = 0, string_length = 0, i = 0;
    unsigned  no_of_chars = 0;

    strcpy (dest_str, NULLSTR);        /* initialize dest_str */

    startpos = strsearch (str, sub_str);
                        /* find position of sub-string
                           in main string             */

    if ( startpos != -1 )                /* if it exists */
        target = &str[startpos] + strlen (sub_str);
                            /* assign target */
    else
        return;                /* no such string found */

    for (position = target;         /* actual value of parameter */
        (*position != BLANK) && (*position != EOS);
         ++position, ++no_of_chars);

    strncpy (dest_str, target, no_of_chars);  /* copy the required value */
    dest_str[no_of_chars] = EOS;

    string_length = strlen(sub_str) + no_of_chars;

    if ( *position != EOS )
        ++string_length ;

    remove_string (str, startpos, string_length) ;

    if ( flag )
        for (i = 0; dest_str[i] != EOS ; ++i)
            if ( dest_str[i] == VISIBLE_SPACE )
                dest_str[i] = BLANK;
}

/* ===================== */
display_menu (menu_name, menu_array, menu_flag, idx)
/* ===================== */
char * menu_name;
char * menu_array [];
int  * menu_flag;
int  * idx;

{
    FILE * fp;
    char junk[COLUMNS] , keyword[DESCLEN], description[DESCLEN],
        action_description[DESCLEN], *strsave(), *fgets(), *index();
    register int i;
    int delay;

    if (!moreinput())
        clear_screen();

    check_for_new_mail (G_mail_message);

    if ( *menu_flag == FALSE ) {
        *menu_flag = TRUE;
        if (index(menu_name, '/'))
            strcpy(junk, menu_name);
        else
            sprintf(junk, "%s/%s%s", MENUDIR, menu_name, SUFFIX);
        if (( fp = fopen (junk, "r")) == NULL ) {
            printf ("\tNo such menu as %s!!\n", junk);
            return(0);
        }

        for (
              i = *idx = 0;
              i < LINES &&
            (menu_array[i] = strsave(fgets(junk, COLUMNS, fp)));
              i++
            )
            if ( strcmp (menu_array[i], DELIM_LINE) == 0 )
                *idx = i;

        fclose (fp);

        for ( ; i < LINES; i++)
            menu_array[i] = strsave("");
    }

    if (strcmp(G_mail_message, "") != 0) {
        junk[0] = EOS;
        sscanf(menu_array[0], "%[^\n]", junk);
        printf("%s%s\n", junk, G_mail_message);
        i = 1;
    }
    else
        i = 0;

    if (!moreinput())
        for (; i < *idx; i++)
            fputs(menu_array[i], stdout);

    printf ("\n");
    return(1);
}

/* find the home directory of the person invoking M_Shell */
/* ====================================================== */

find_user_details (home_dir, user_name)
char * home_dir;
char * user_name;
{
    struct passwd *pw, *getpwuid();

    pw = getpwuid (getuid ());

     strcpy (home_dir, pw->pw_dir);
    strcpy (user_name, pw->pw_name);
}

/* ====================================================== */
search_menu_array (menu_array, ind, option, string, invalid)
/* ====================================================== */
char * menu_array [];
int    ind;
char * option, * string;
int  * invalid;

{
    int i;
    char keyword [WORDLEN];
    char action_description[DESCLEN], junk[DESCLEN];
    char opt1[OPTLEN], opt2[OPTLEN];

    for ( i = ++ind; i < LINES ; ++i ) {
        sscanf (menu_array[i], "%s    %[^\n]", keyword, action_description);
        if ( index (option, BLANK) != NULL )
            sscanf (option, "%s %[^\n]", opt1, opt2);
        else
            strcpy (opt1, option);

        if ( strcmp (opt1, keyword) == 0 ) {
            strcpy (string, action_description);
            *invalid = FALSE;
            return;
        }
    }

    if ( all_blanks(option)            || strcmp(option, QUIT) == 0 ||
             strncmp(option, HELP, 4) == 0 || strcmp(option, BYE)  == 0 ||
         strcmp(option, "T") == 0      || strcmp(option, "top") == 0)
        *invalid = FALSE;
    else
        *invalid = TRUE;

    strcpy (string, NULLSTR);
}

wait_for_user ()
{
    printf("\nHit ENTER to continue ... ");
    read_input_line (NULL);
}

clear_screen()
{
    static int doneinit = 0;

    if (!doneinit) {
        initscr();
        doneinit++;
    }
    clear();
    refresh();
}