* Update configure script to remove the search for a linking tcl

[alpine.git] / pico / main.c

#if     !defined(lint) && !defined(DOS)
static char rcsid[] = "$Id: main.c 1184 2008-12-16 23:52:15Z hubert@u.washington.edu $";
#endif

/*
 * ========================================================================
 * Copyright 2006-2008 University of Washington
 * Copyright 2013-2018 Eduardo Chappa
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * ========================================================================
 */

/*
 * Program:     Main stand-alone Pine Composer routines
 *
 *
 * WEEMACS/PICO NOTES:
 *
 * 08 Jan 92 - removed PINE defines to simplify compiling
 *
 * 08 Apr 92 - removed PINE stub calls
 *
 */

#include        "headers.h"
#include        "../c-client/mail.h"
#include        "../c-client/rfc822.h"
#include        "../c-client/utf8.h"
#include        "../pith/osdep/collate.h"
#include        "../pith/charconv/filesys.h"
#include        "../pith/charconv/utf8.h"
#include        "../pith/conf.h"

/*
 * Useful internal prototypes
 */
#ifdef  _WINDOWS
int     pico_file_drop(int, int, char *);
#endif

/*
 * this isn't defined in the library, because it's a pine global
 * which we use for GetKey's timeout
 */
int     timeoutset = 0;


int      my_timer_period = (300 * 1000);

/*
 * function key mappings
 */
static UCS fkm[12][2] = {
    { F1,  (CTRL|'G')},
    { F2,  (CTRL|'X')},
    { F3,  (CTRL|'O')},
    { F4,  (CTRL|'J')},
    { F5,  (CTRL|'R')},
    { F6,  (CTRL|'W')},
    { F7,  (CTRL|'Y')},
    { F8,  (CTRL|'V')},
    { F9,  (CTRL|'K')},
    { F10, (CTRL|'U')},
    { F11, (CTRL|'C')},
#ifdef  SPELLER
    { F12, (CTRL|'T')}
#else
    { F12, (CTRL|'D')}
#endif
};

char *pico_args(int, char **, int *, int *, int *);
void  pico_args_help(void);
void  pico_vers_help(void);
void  pico_display_args_err(char *, char **, int);
#ifndef _WINDOWS
PCOLORS *pico_set_global_colors(int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int, int);
void  display_color_codes(void);
#endif /* ! _WINDOWS */

/* TRANSLATORS: An error message about an unknown flag (option)
   on the command line */
char  args_pico_missing_flag[]  = N_("unknown flag \"%c\"");
/* TRANSLATORS: error message about command line */
char  args_pico_missing_arg[]   = N_("missing or empty argument to \"%c\" flag");
char  args_pico_missing_arg_s[] = N_("missing or empty argument to \"%s\" flag");
char  args_pico_missing_num[]   = N_("non numeric argument for \"%c\" flag");
char  args_pico_missing_color[] = N_("missing color for \"%s\" flag");
char  args_pico_missing_charset[] = N_("missing character set for \"%s\" flag");
char  args_pico_input_charset[] = N_("input character set \"%s\" is unsupported");
char  args_pico_output_charset[] = N_("output character set \"%s\" is unsupported");

char *args_pico_args[] = {
/* TRANSLATORS: little help printed out when incorrect arguments
   are given to pico program. */
N_("Possible Starting Arguments for Pico editor:"),
"",
N_("\tArgument\t\tMeaning"),
N_("\t -e \t\tComplete - allow file name completion"),
N_("\t -k \t\tCut - let ^K cut from cursor position to end of line"),
N_("\t -a \t\tShowDot - show dot files in file browser"),
N_("\t -j \t\tGoto - allow 'Goto' command in file browser"),
N_("\t -g \t\tShow - show cursor in file browser"),
N_("\t -m \t\tMouse - turn on mouse support"),
N_("\t -x \t\tNoKeyhelp - suppress keyhelp"),
N_("\t -p \t\tPreserveStartStop - preserve \"start\"(^Q) and \"stop\"(^S) characters"),
N_("\t -q \t\tTermdefWins - termcap or terminfo takes precedence over defaults"),
N_("\t -Q <quotestr> \tSet quote string (eg. \"> \") esp. for composing email"),
N_("\t -d \t\tRebind - let delete key delete current character"),
N_("\t -f \t\tKeys - force use of function keys"),
N_("\t -b \t\tReplace - allow search and replace"),
N_("\t -h \t\tHelp - give this list of options"),
N_("\t -r[#cols] \tFill - set fill column to #cols columns, default=72"),
N_("\t -n[#s] \tMail - notify about new mail every #s seconds, default=180"),
N_("\t -s <speller> \tSpeller - specify alternative speller"),
N_("\t -t \t\tShutdown - enable special shutdown mode"),
N_("\t -o <dir>\tOperation - specify the operating directory"),
N_("\t -z \t\tSuspend - allow use of ^Z suspension"),
N_("\t -w \t\tNoWrap - turn off word wrap"),
N_("\t -W <wordseps> \tSet word separators other than whitespace"),
#ifndef _WINDOWS
N_("\t -dcs <display_character_set> \tdefault uses LANG or LC_CTYPE from environment"),
N_("\t -kcs <keyboard_character_set> \tdefaults to display_character_set"),
N_("\t -syscs\t\tuse system-supplied translation routines"),
#endif  /* ! _WINDOWS */
#ifdef  _WINDOWS
N_("\t -dict \"dict1,dict2\" a comma separated list of dictionaries, e.g. en_US, de_DE, es_ES, etc."),
N_("\t -cnf color \tforeground color"),
N_("\t -cnb color \tbackground color"),
N_("\t -crf color \treverse foreground color"),
N_("\t -crb color \treverse background color"),
#endif  /* _WINDOWS */
#ifndef _WINDOWS
N_("\t -color_code  \tdisplay number codes for different colors"),
N_("\t -ncolors number \tnumber of colors for screen (8, 16, or 256)"),
N_("\t -ntfc number \tnumber of color of foreground text"),
N_("\t -ntbc number \tnumber of color of the background"),
N_("\t -rtfc number \tnumber of color of reverse text"),
N_("\t -rtbc number \tnumber of color of reverse background"),
N_("\t -tbfc number \tnumber of color of foreground (text) of the title bar"),
N_("\t -tbbc number \tnumber of color of background of the title bar"),
N_("\t -klfc number \tnumber of color of foreground (text) of the key label"),
N_("\t -klbc number \tnumber of color of background of the key label"),
N_("\t -knfc number \tnumber of color of foreground (text) of the key name"),
N_("\t -knbc number \tnumber of color of background of the key name"),
N_("\t -stfc number \tnumber of color of foreground (text) of the status line"),
N_("\t -stbc number \tnumber of color of background of the status line"),
N_("\t -prfc number \tnumber of color of foreground (text) of a prompt"),
N_("\t -prbc number \tnumber of color of background of a prompt"),
N_("\t -q1fc number \tnumber of color of foreground (text) of level one of quoted text"),
N_("\t -q1bc number \tnumber of color of background of level one of quoted text"),
N_("\t -q2fc number \tnumber of color of foreground (text) of level two of quoted text"),
N_("\t -q2bc number \tnumber of color of background of level two of quoted text"),
N_("\t -q3fc number \tnumber of color of foreground (text) of level three of quoted text"),
N_("\t -q3bc number \tnumber of color of background of level three of quoted text"),
N_("\t -sbfc number \tnumber of color of foreground of signature block text"),
N_("\t -sbbc number \tnumber of color of background of signature block text"),
#endif /* !_WINDOWS */
N_("\t +[line#] \tLine - start on line# line, default=1"),
N_("\t -v \t\tView - view file"),
N_("\t -no_setlocale_collate\tdo not do setlocale(LC_COLLATE)"),
N_("\t -version\tPico version number"),
"", 
N_("\t All arguments may be followed by a file name to display."),
"",
NULL
};


/*
 * main standalone pico routine
 */
#ifdef _WINDOWS
int
app_main (int argc, char *argv[])
#else
int
main(int argc, char *argv[])
#endif
{
    UCS      c;
    register int    f;
    register int    n;
    register BUFFER *bp;
    int      viewflag = FALSE;          /* are we starting in view mode?*/
    int      starton = 0;               /* where's dot to begin with?   */
    int      setlocale_collate = 1;
    char     bname[NBUFN];              /* buffer name of file to read  */
    char    *file_to_edit = NULL;
    char    *display_charmap = NULL, *dc;
    char    *keyboard_charmap = NULL;
    int      use_system = 0;
    char    *err = NULL;

#ifndef _WINDOWS
    utf8_parameters(SET_UCS4WIDTH, (void *) pith_ucs4width);
#else  /* _WINDOWS */
    chosen_dict = -1;                   /* do not commit any dictionary when starting */
#endif /* _WINDOWS */

    set_input_timeout(600);
    Pmaster = NULL;                     /* turn OFF composer functionality */
    km_popped = 0;

    /*
     * Read command line flags before initializing, otherwise, we never
     * know to init for f_keys...
     */
    file_to_edit = pico_args(argc, argv, &starton, &viewflag, &setlocale_collate);

    set_collation(setlocale_collate, 1);

#define cpstr(s) strcpy((char *)fs_get(1+strlen(s)), s)

#ifdef  _WINDOWS        
    init_utf8_display(1, NULL);
#else   /* UNIX */


    if(display_character_set)
      display_charmap = cpstr(display_character_set);
#if   HAVE_LANGINFO_H && defined(CODESET)
    else if((dc = nl_langinfo_codeset_wrapper()) != NULL)
      display_charmap = cpstr(dc);
#endif

    if(!display_charmap)
      display_charmap = cpstr("US-ASCII");

    if(keyboard_character_set)
      keyboard_charmap = cpstr(keyboard_character_set);
    else
      keyboard_charmap = cpstr(display_charmap);


    if(use_system_translation){
#if     PREREQ_FOR_SYS_TRANSLATION
        use_system++;
        /* This modifies its arguments */
        if(setup_for_input_output(use_system, &display_charmap, &keyboard_charmap,
                                  &input_cs, &err) == -1){
            fprintf(stderr, "%s\n", err ? err : "trouble with character set");
            exit(1);
        }
        else if(err){
            fprintf(stderr, "%s\n", err);
            fs_give((void **) &err);
        }
#endif
    }

    if(!use_system){
        if(setup_for_input_output(use_system, &display_charmap, &keyboard_charmap,
                                  &input_cs, &err) == -1){
            fprintf(stderr, "%s\n", err ? err : "trouble with character set");
            exit(1);
        }
        else if(err){
            fprintf(stderr, "%s\n", err);
            fs_give((void **) &err);
        }
    }

    if(keyboard_charmap){
        set_locale_charmap(keyboard_charmap);
        free((void *) keyboard_charmap);
    }

    if(display_charmap)
      free((void *) display_charmap);

#endif  /* UNIX */

    /*
     * There are a couple arguments that we need to be sure
     * are converted for internal use.
     */
    if(alt_speller)
      alt_speller = cpstr(fname_to_utf8(alt_speller));

    if(opertree && opertree[0]){
        strncpy(opertree, fname_to_utf8(opertree), sizeof(opertree));
        opertree[sizeof(opertree)-1] = '\0';
    }

    if(glo_quote_str_orig)
      glo_quote_str = utf8_to_ucs4_cpystr(fname_to_utf8(glo_quote_str_orig));

    if(glo_wordseps_orig)
      glo_wordseps = utf8_to_ucs4_cpystr(fname_to_utf8(glo_wordseps_orig));

    if(file_to_edit)
      file_to_edit = cpstr(fname_to_utf8(file_to_edit));

#undef cpstr

#if     defined(DOS) || defined(OS2)
    if(file_to_edit){                   /* strip quotes? */
        int   l;

        if(strchr("'\"", file_to_edit[0])
           && (l = strlen(file_to_edit)) > 1
           && file_to_edit[l-1] == file_to_edit[0]){
            file_to_edit[l-1] = '\0';   /* blat trailing quote */
            file_to_edit++;             /* advance past leading quote */
        }
    }
#endif

    if(!vtinit())                       /* Displays.            */
        exit(1);

    strncpy(bname, "main", sizeof(bname));              /* default buffer name */
    bname[sizeof(bname)-1] = '\0';
    edinit(bname);                      /* Buffers, windows.   */

    update();                           /* let the user know we are here */
    sgarbf = TRUE;                      /* next update, repaint all */

#ifdef  _WINDOWS
    mswin_setwindow(NULL, NULL, NULL, NULL, NULL, NULL);
    mswin_showwindow();
    mswin_showcaret(1);                 /* turn on for main window */
    mswin_allowpaste(MSWIN_PASTE_FULL);
    mswin_setclosetext("Use the ^X command to exit Pico.");
    mswin_setscrollcallback (pico_scroll_callback);
#endif

#if     defined(USE_TERMCAP) || defined(USE_TERMINFO) || defined(VMS)
    if(kbesc == NULL){                  /* will arrow keys work ? */
        (*term.t_putchar)('\007');
        emlwrite("Warning: keypad keys may be non-functional", NULL);
    }
#endif  /* USE_TERMCAP/USE_TERMINFO/VMS */

    if(file_to_edit){                   /* Any file to edit? */

        makename(bname, file_to_edit);  /* set up a buffer for this file */

        bp = curbp;                     /* read in first file */
        makename(bname, file_to_edit);
        strncpy(bp->b_bname, bname, sizeof(bp->b_bname));
        bp->b_bname[sizeof(bp->b_bname)-1] = '\0';

        if(strlen(file_to_edit) >= NFILEN){
            char buf[128];

            snprintf(buf, sizeof(buf), "Filename \"%.10s...\" too long", file_to_edit);
            emlwrite(buf, NULL);
            file_to_edit = NULL;
        }
        else{
            strncpy(bp->b_fname, file_to_edit, sizeof(bp->b_fname));
            bp->b_fname[sizeof(bp->b_fname)-1] = '\0';
            if (((gmode&MDTREE) && !in_oper_tree(file_to_edit)) ||
                readin(file_to_edit, (viewflag==FALSE), TRUE) == ABORT) {
                if ((gmode&MDTREE) && !in_oper_tree(file_to_edit)){
                    EML eml;
                    eml.s = opertree;
                    emlwrite(_("Can't read file from outside of %s"), &eml);
                }

                file_to_edit = NULL;
            }
        }

        if(!file_to_edit){
            strncpy(bp->b_bname, "main", sizeof(bp->b_bname));
            bp->b_bname[sizeof(bp->b_bname)-1] = '\0';
            strncpy(bp->b_fname, "", sizeof(bp->b_fname));
            bp->b_fname[sizeof(bp->b_fname)-1] = '\0';
        }

        bp->b_dotp = bp->b_linep;
        bp->b_doto = 0;

        if (viewflag)                   /* set the view mode */
          bp->b_mode |= MDVIEW;
    }

    /* setup to process commands */
    lastflag = 0;                       /* Fake last flags.     */
    curbp->b_mode |= gmode;             /* and set default modes*/

    curwp->w_flag |= WFMODE;            /* and force an update  */

    if(timeoutset){
        EML eml;

        eml.s = comatose(get_input_timeout());
        emlwrite(_("Checking for new mail every %s seconds"), &eml);
    }


    forwline(0, starton - 1);           /* move dot to specified line */

    while(1){

        if(Pcolors)
           pico_set_colorp(Pcolors->ntcp, PSC_NONE);

        if(km_popped){
            km_popped--;
            if(km_popped == 0) /* cause bottom three lines to be repainted */
              curwp->w_flag |= WFHARD;
        }

        if(km_popped){  /* temporarily change to cause menu to be painted */
            term.t_mrow = 2;
            curwp->w_ntrows -= 2;
            curwp->w_flag |= WFMODE;
            movecursor(term.t_nrow-2, 0); /* clear status line, too */
            peeol();
        }

        update();                       /* Fix up the screen    */
        if(km_popped){
            term.t_mrow = 0;
            curwp->w_ntrows += 2;
        }

#ifdef  MOUSE
#ifdef  EX_MOUSE
        /* New mouse function for real mouse text seletion. */
        register_mfunc(mouse_in_pico, 2, 0, term.t_nrow - (term.t_mrow + 1),
                       term.t_ncol);
#else
        mouse_in_content(KEY_MOUSE, -1, -1, 0, 0);
        register_mfunc(mouse_in_content, 2, 0, term.t_nrow - (term.t_mrow + 1),
                       term.t_ncol);
#endif
#endif
#ifdef  _WINDOWS
        mswin_setdndcallback (pico_file_drop);
        mswin_mousetrackcallback(pico_cursor);
#endif
        c = GetKey();
#ifdef  MOUSE
#ifdef  EX_MOUSE
        clear_mfunc(mouse_in_pico);
#else
        clear_mfunc(mouse_in_content);
#endif
#endif
#ifdef  _WINDOWS
        mswin_cleardndcallback ();
        mswin_mousetrackcallback(NULL);
#endif

        if(timeoutset && (c == NODATA || time_to_check())){
            if(pico_new_mail())
              emlwrite(_("You may possibly have new mail."), NULL);
        }

        if(km_popped)
          switch(c){
            case NODATA:
            case (CTRL|'L'):
              km_popped++;
              break;
            
            default:
              /* clear bottom three lines */
              mlerase();
              break;
          }

        if(c == NODATA)
          continue;

        if(mpresf){                     /* erase message line? */
            if(mpresf++ > MESSDELAY)
              mlerase();
        }

        f = FALSE;
        n = 1;

#ifdef  MOUSE
        clear_mfunc(mouse_in_content);
#endif
                                        /* Do it.               */
        execute(normalize_cmd(c, fkm, 1), f, n);
    }
}

#ifndef _WINDOWS
void
display_color_codes(void)
{
#define SPACES "   "
  int i, j, k, l, a, len, len_entry, row;
  int ncolors;
  COLOR_PAIR *lastc = NULL, *newcp;
  char *fg;

  /* this is the format "SPACE COLORED_SPACES = CODE SPACE" */
  vtterminalinfo(gmode & MDTCAPWINS);
  (*term.t_open)();
  (*term.t_rev)(FALSE);

  pico_toggle_color(1);
  if((ncolors = pico_count_in_color_table()) <= 0){
    fprintf(stderr, "%s", "Your screen does not support colors\r\n");
    exit(1);
  }


  if(term.t_ncol < 62 || term.t_nrow < 23){
    fprintf(stderr, "%s", "Screen must have at least 24 rows and 63 columns\r\n");
    exit(1);
  }


  fprintf(stdout, "%s", "The code of a color is the number in the same row plus\r\n");
  fprintf(stdout, "%s", "the number in the same column as that color.\r\n\r\n");

  lastc = pico_get_cur_color();
  switch(ncolors){
      case   8: pico_set_color_options(COLOR_ANSI8_OPT|COLOR_TRANS_OPT); break;
      case  16: pico_set_color_options(COLOR_ANSI16_OPT|COLOR_TRANS_OPT); break;
      case 256: pico_set_color_options(COLOR_ANSI256_OPT|COLOR_TRANS_OPT); break;
      default : fprintf(stderr, "Unknown number of colors %d\n", ncolors); 
                exit(1);
                break;
    }

    if(ncolors != 256){
      for(k = -1; 16*k < ncolors; k++){
        for(l = -1; l < ncolors; l++){
           if(k == -1){
                if(ncolors == 8){
                   if(l == -1)
                      fprintf(stdout, "%s", "    ");
                   else 
                      fprintf(stdout, "%3d", l);
                }
           }
           else{
                if(l == -1){
                    pico_toggle_color(1);
                    fprintf(stdout, "%3d ", k);
                }
                else{
                    if(ncolors || l < 8){
                      i = 16*k + l;
                      newcp = new_color_pair(colorx(0), colorx(i));
                      pico_set_colorp(newcp, PSC_NONE);
                      fprintf(stdout, "%s", SPACES);
                      pico_set_colorp(lastc, PSC_NONE);
                    }
                }
           }
        }
        pico_toggle_color(0);
        if(k == 0)
          fprintf(stdout, " (%d colors)", ncolors);
        if(k != -1 || ncolors == 8)
          fprintf(stdout, "%s", "\r\n");
      }
    } else {
      fprintf(stdout, "%s", "Codes for terminal with 256 colors:\r\n");
      a = 16;
      for(k = -1; 36*k < ncolors; k++){
        for(l = -1; l < ncolors && l < 16; l++){
           if(k == -1){
                if(l == -1)
                    fprintf(stdout, "%s", "    ");
                else 
                    fprintf(stdout, "%3d", l);
           }
           else{
                if(l == -1){
                    pico_toggle_color(1);
                    fprintf(stdout, "%3d ", 36*k);
                }
                else{
                    i = 36*k + l;
                    newcp = new_color_pair(colorx(0), colorx(i));
                    pico_set_colorp(newcp, PSC_NONE);
                    fprintf(stdout, "%s", SPACES);
                    pico_set_colorp(lastc, PSC_NONE);
                }
           }
        }
        pico_toggle_color(0);
        fprintf(stdout, "%s", "\r\n");
      }
      a = 20;
      for(k = -1; 16 + 36*k < ncolors; k++){
        for(l = -1; l < ncolors && l < a; l++){
           if(k == -1){
                if(l == -1)
                    fprintf(stdout, "%s", "    ");
                else 
                    fprintf(stdout, "%3d", l);
           }
           else{
                if(l == -1){
                    pico_toggle_color(1);
                    fprintf(stdout, "%3d ", 16 + 36*k);
                }
                else{
                    i = 16 + 36*k + l;
                    newcp = new_color_pair(colorx(0), colorx(i));
                    pico_set_colorp(newcp, PSC_NONE);
                    fprintf(stdout, "%s", SPACES);
                    pico_set_colorp(lastc, PSC_NONE);
                }
           }
        }
        pico_toggle_color(0);
        fprintf(stdout, "%s", "\r\n");
      }
    }
    pico_set_colorp(lastc, PSC_NONE);
}
#endif /* ! _WINDOWS */


/*
 *  Parse the command line args.
 *
 * Args      ac
 *           av
 *      starton -- place to return starton value
 *     viewflag -- place to return viewflag value
 *
 * Result: command arguments parsed
 *       possible printing of help for command line
 *       various global flags set
 *       returns the name of any file to open, else NULL
 */
char *
pico_args(int ac, char **av, int *starton, int *viewflag, int *setlocale_collate)
{
    int   c, usage = 0;
    char *str;
    char  tmp_1k_buf[1000];     /* tmp buf to contain err msgs  */ 
#ifndef _WINDOWS
    int ncolors, ntfc, ntbc, rtfc, rtbc;
    int tbfc, tbbc, klfc, klbc, knfc, knbc, stfc, stbc, prfc, prbc;
    int q1fc, q1bc, q2fc, q2bc, q3fc, q3bc, sbfc, sbbc;

    ncolors = 0;
    ntfc = ntbc = rtfc = rtbc = tbfc = tbbc = klfc = klbc = knfc = 
    knbc = stfc = stbc = prfc = prbc = q1fc = q1bc = q2fc = q2bc = 
    q3fc = q3bc = sbfc = sbbc = -1;
#endif /* ! _WINDOWS */

Loop:
    /* while more arguments with leading - or + */
    while(--ac > 0 && (**++av == '-' || **av == '+')){
      if(**av == '+'){
        if(*++*av)
          str = *av;
        else if(--ac)
          str = *++av;
        else{
          snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_arg), '+');
          pico_display_args_err(tmp_1k_buf, NULL, 1);
          usage++;
          goto Loop;
        }

        if(!isdigit((unsigned char)str[0])){
          snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_num), '+');
          pico_display_args_err(tmp_1k_buf, NULL, 1);
          usage++;
        }

        if(starton)
          *starton = atoi(str);

        goto Loop;
      }
      
      /* while more chars in this argument */
      else while(*++*av){

        if(strcmp(*av, "version") == 0){
            pico_vers_help();
        }
#ifndef _WINDOWS     /* color configuration disabled in Windows  at this time */
        else if(strcmp(*av, "ntfc") == 0
                || strcmp(*av, "ntbc") == 0
                || strcmp(*av, "rtfc") == 0
                || strcmp(*av, "rtbc") == 0
                || strcmp(*av, "tbfc") == 0
                || strcmp(*av, "tbbc") == 0
                || strcmp(*av, "klfc") == 0
                || strcmp(*av, "klbc") == 0
                || strcmp(*av, "knfc") == 0
                || strcmp(*av, "knbc") == 0
                || strcmp(*av, "stfc") == 0
                || strcmp(*av, "stbc") == 0
                || strcmp(*av, "prfc") == 0
                || strcmp(*av, "prbc") == 0
                || strcmp(*av, "q1fc") == 0
                || strcmp(*av, "q1bc") == 0
                || strcmp(*av, "q2fc") == 0
                || strcmp(*av, "q2bc") == 0
                || strcmp(*av, "q3fc") == 0
                || strcmp(*av, "q3bc") == 0
                || strcmp(*av, "sbfc") == 0
                || strcmp(*av, "sbbc") == 0
                || strcmp(*av, "ncolors") == 0){
          str = *av;
          if(--ac)
            ++av;
          else{
            snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_arg), '-');
            pico_display_args_err(tmp_1k_buf, NULL, 1);
            usage++;
            goto Loop;
          }

          if(!isdigit((unsigned char)**av)){
            snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_num), '-');
            pico_display_args_err(tmp_1k_buf, NULL, 1);
            usage++;
          }
          if(strcmp(str, "ntfc") == 0) ntfc = atoi(*av);
          else if (strcmp(str, "ntbc") == 0) ntbc = atoi(*av);
          else if (strcmp(str, "rtfc") == 0) rtfc = atoi(*av);
          else if (strcmp(str, "rtbc") == 0) rtbc = atoi(*av);
          else if (strcmp(str, "tbfc") == 0) tbfc = atoi(*av);
          else if (strcmp(str, "tbbc") == 0) tbbc = atoi(*av);
          else if (strcmp(str, "klfc") == 0) klfc = atoi(*av);
          else if (strcmp(str, "klbc") == 0) klbc = atoi(*av);
          else if (strcmp(str, "knfc") == 0) knfc = atoi(*av);
          else if (strcmp(str, "knbc") == 0) knbc = atoi(*av);
          else if (strcmp(str, "stfc") == 0) stfc = atoi(*av);
          else if (strcmp(str, "stbc") == 0) stbc = atoi(*av);
          else if (strcmp(str, "prfc") == 0) prfc = atoi(*av);
          else if (strcmp(str, "prbc") == 0) prbc = atoi(*av);
          else if (strcmp(str, "q1fc") == 0) q1fc = atoi(*av);
          else if (strcmp(str, "q1bc") == 0) q1bc = atoi(*av);
          else if (strcmp(str, "q2fc") == 0) q2fc = atoi(*av);
          else if (strcmp(str, "q2bc") == 0) q2bc = atoi(*av);
          else if (strcmp(str, "q3fc") == 0) q3fc = atoi(*av);
          else if (strcmp(str, "q3bc") == 0) q3bc = atoi(*av);
          else if (strcmp(str, "sbfc") == 0) sbfc = atoi(*av);
          else if (strcmp(str, "sbbc") == 0) sbbc = atoi(*av);
          else if (strcmp(str, "ncolors") == 0) ncolors = atoi(*av);
          if(!strcmp(str, "ncolors")){
             switch(ncolors){
                case   8: pico_set_color_options(COLOR_ANSI8_OPT|COLOR_TRANS_OPT); break;
                case  16: pico_set_color_options(COLOR_ANSI16_OPT|COLOR_TRANS_OPT); break;
                case 256: pico_set_color_options(COLOR_ANSI256_OPT|COLOR_TRANS_OPT); break;
                default : snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _("Unsupported number of colors: %d"), ncolors);
                          pico_display_args_err(tmp_1k_buf, NULL, 1);
                          exit(1);
                          break;
             }
          }
          goto Loop;
        }
        else if(strcmp(*av, "color_codes") == 0){
           display_color_codes();
           exit(0);
        }
#endif /* ! _WINDOWS */
        else if(strcmp(*av, "no_setlocale_collate") == 0){
            *setlocale_collate = 0;
            goto Loop;
        }
#ifndef _WINDOWS
        else if(strcmp(*av, "syscs") == 0){
            use_system_translation = !use_system_translation;
            goto Loop;
        }
#endif  /* ! _WINDOWS */
#ifdef  _WINDOWS
        else if(strcmp(*av, "dict") == 0){
           char *cmd = *av; /* save it to use below */
           str = *++av;
           if(--ac){
             int i = 0;
             char *s;
#define MAX_DICTIONARY  10
             while(str && *str){
                if(dictionary == NULL){
                   dictionary = fs_get((MAX_DICTIONARY + 1)*sizeof(char *));
                   memset((void *) dictionary, 0, (MAX_DICTIONARY+1)*sizeof(char *));
                   if(dictionary == NULL)
                     goto Loop;         /* get out of here */
                }
                if((s = strpbrk(str, " ,")) != NULL)
                   *s++ = '\0';
                dictionary[i] = fs_get(strlen(str) + 1);
                strcpy(dictionary[i++], str);
                if(s != NULL)
                   for(; *s && (*s == ' ' || *s == ','); s++);
                else
                   goto Loop;
                if(i == MAX_DICTIONARY + 1)
                  goto Loop;
                else
                  str = s;
             }
           }
           else{
                snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_arg_s), cmd);
                pico_display_args_err(tmp_1k_buf, NULL, 1);
                usage++;
           }

           goto Loop;
        }
        else if(strcmp(*av, "cnf") == 0
           || strcmp(*av, "cnb") == 0
           || strcmp(*av, "crf") == 0
           || strcmp(*av, "crb") == 0){

            char *cmd = *av; /* save it to use below */

            if(--ac){
                str = *++av;
                if(cmd[1] == 'n'){
                    if(cmd[2] == 'f')
                      pico_nfcolor(str);
                    else if(cmd[2] == 'b')
                      pico_nbcolor(str);
                }
                else if(cmd[1] == 'r'){
                    if(cmd[2] == 'f')
                      pico_rfcolor(str);
                    else if(cmd[2] == 'b')
                      pico_rbcolor(str);
                }
            }
            else{
                snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_color), cmd);
                pico_display_args_err(tmp_1k_buf, NULL, 1);
                usage++;
            }

            goto Loop;
        }
#endif  /* _WINDOWS */
#ifndef _WINDOWS
        else if(strcmp(*av, "dcs") == 0 || strcmp(*av, "kcs") == 0){
            char *cmd = *av;

            if(--ac){
                if(strcmp(*av, "dcs") == 0){
                    display_character_set = *++av;
                    if(!output_charset_is_supported(display_character_set)){
                        snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_output_charset), display_character_set);
                        pico_display_args_err(tmp_1k_buf, NULL, 1);
                        usage++;
                    }
                }
                else{
                    keyboard_character_set = *++av;
                    if(!input_charset_is_supported(keyboard_character_set)){
                        snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_input_charset), keyboard_character_set);
                        pico_display_args_err(tmp_1k_buf, NULL, 1);
                        usage++;
                    }
                }
            }
            else{
                snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_charset), cmd);
                pico_display_args_err(tmp_1k_buf, NULL, 1);
                usage++;
            }

            goto Loop;
        }
#endif  /* ! _WINDOWS */

        /*
         * Single char options.
         */
        switch(c = **av){
          /*
           * These don't take arguments.
           */
          case 'a':
            gmode ^= MDDOTSOK;          /* show dot files */
            break;
          case 'b':
#ifdef notdef
    /*
     * Make MDREPLACE always on instead
     * Don't leave this to allow turning off of MDREPLACE because the
     * polarity of -b will have changed. Don't think anybody wants to
     * turn it off.
     */
            gmode ^= MDREPLACE;  /* -b for replace string in where is command */
#endif
            break;
          case 'd':                     /* -d for rebind delete key */
            bindtokey(0x7f, forwdel);
            break;
          case 'e':                     /* file name completion */
            gmode ^= MDCMPLT;
            break;
          case 'f':                     /* -f for function key use */
            gmode ^= MDFKEY;
            break;
          case 'g':                     /* show-cursor in file browser */
            gmode ^= MDSHOCUR;
            break;
          case 'h':
            usage++;
            break;
          case 'j':                     /* allow "Goto" in file browser */
            gmode ^= MDGOTO;
            break;
          case 'k':                     /* kill from dot */
            gmode ^= MDDTKILL;
            break;
          case 'm':                     /* turn on mouse support */
            gmode ^= MDMOUSE;
            break;
          case 'p':
            preserve_start_stop = 1;
            break;
          case 'q':                     /* -q for termcap takes precedence */
            gmode ^= MDTCAPWINS;
            break;
          case 't':                     /* special shutdown mode */
            gmode ^= MDTOOL;
            rebindfunc(wquit, quickexit);
            break;
          case 'v':                     /* -v for View File */
          case 'V':
            *viewflag = !*viewflag;
            break;                      /* break back to inner-while */
          case 'w':                     /* -w turn off word wrap */
            gmode ^= MDWRAP;
            break;
          case 'x':                     /* suppress keyhelp */
            sup_keyhelp = !sup_keyhelp;
            break;
          case 'z':                     /* -z to suspend */
            gmode ^= MDSSPD;
            break;

          /*
           * These do take arguments.
           */
          case 'r':                     /* set fill column */
          case 'n':                     /* -n for new mail notification */
          case 's' :                    /* speller */
          case 'o' :                    /* operating tree */
          case 'Q' :                    /* Quote string */
          case 'W' :                    /* Word separators */
            if(*++*av)
              str = *av;
            else if(--ac)
              str = *++av;
            else{
              if(c == 'r')
                str= "72";
              else if(c == 'n')
                str = "180";
              else{
                  snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_arg), c);
                  pico_display_args_err(tmp_1k_buf, NULL, 1);
                  usage++;
                  goto Loop;
              }
            }

            switch(c){
              case 's':
                alt_speller = str;
                break;
              case 'o':
                strncpy(opertree, str, NLINE);
                gmode ^= MDTREE;
                break;
              case 'Q':
                glo_quote_str_orig = str;
                break;
              case 'W':
                glo_wordseps_orig = str;
                break;

        /* numeric args */
              case 'r':
              case 'n':
                if(!isdigit((unsigned char)str[0])){
                  snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_num), c);
                  pico_display_args_err(tmp_1k_buf, NULL, 1);
                  usage++;
                }

                if(c == 'r'){
                    if((userfillcol = atoi(str)) < 1)
                      userfillcol = 72;
                }
                else{
                    timeoutset = 1;
                    set_input_timeout(180);
                    if(set_input_timeout(atoi(str)) < 30)
                      set_input_timeout(180);
                }
                
                break;
            }

            goto Loop;

          default:                      /* huh? */
            snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_flag), c);
            pico_display_args_err(tmp_1k_buf, NULL, 1);
            usage++;
            break;
        }
      }
    }

    if(usage)
      pico_args_help();

#ifndef _WINDOWS
    Pcolors = pico_set_global_colors(ncolors, ntfc, ntbc, rtfc, rtbc,
                tbfc, tbbc, klfc, klbc, knfc, knbc, stfc, stbc, prfc, prbc,
                q1fc, q1bc, q2fc, q2bc, q3fc, q3bc, sbfc, sbbc);

    if(Pcolors)
       pico_toggle_color(1);
#endif /* ! _WINDOWS */

    /* return the first filename for editing */
    if(ac > 0)
      return(*av);
    else
      return(NULL);
}


#ifndef _WINDOWS
PCOLORS *
pico_set_global_colors(int nc, int ntfg, int ntbg, int rtfg, int rtbg,
        int tbfg, int tbbg, int klfg, int klbg,
        int knfg, int knbg, int stfg, int stbg, int prfg, int prbg,
        int q1fg, int q1bg, int q2fg, int q2bg, int q3fg, int q3bg,
        int sbfg, int sbbg)
{
  PCOLORS *pcolors = NULL;
  char *fg, *bg;

  if(nc != 0 && nc != 8 && nc != 16 && nc != 256){
    fprintf(stderr, "number of colors must be either 8, 16 or 256\n");
    exit(1);
  }

  if(nc == 0){
     if(ntfg != -1 || ntbg != -1 || tbfg != -1 || tbbg != -1 || 
        klfg != -1 || klbg != -1 || knfg != -1 || knbg != -1 || 
        stfg != -1 || stbg != -1 || prfg != -1 || prbg != -1 ||
        q1fg != -1 || q1bg != -1 || q2fg != -1 || q1bg != -1 ||
        q3fg != -1 || q3bg != -1 || sbfg != -1 || sbbg != -1 ||
        rtfg != -1 || rtbg != -1){
        fprintf(stderr, "can not specify color numbers without specifying number of colors\n");
        exit(1);
     }
     else
        return pcolors;         /* no colors used */
  }

  if(ntfg >= nc || ntbg >= nc || tbfg >= nc || tbbg >= nc 
        || klfg >= nc || klbg >= nc || knfg >= nc || knbg >= nc 
        || stfg >= nc || stbg >= nc || prfg >= nc || prbg >= nc 
        || q1fg >= nc || q1bg >= nc || q2fg >= nc || q2bg >= nc 
        || q3fg >= nc || q3bg >= nc || sbfg >= nc || sbbg >= nc
        || rtfg >= nc || rtbg >= nc){
        fprintf(stderr, "Error: specified a color bigger than number of colors\n");
        exit(1);
  }

  /* Finally, we set up colors */
  pico_toggle_color(0);
  switch(nc){
    case   8: pico_set_color_options(COLOR_ANSI8_OPT|COLOR_TRANS_OPT); break;
    case  16: pico_set_color_options(COLOR_ANSI16_OPT|COLOR_TRANS_OPT); break;
    case 256: pico_set_color_options(COLOR_ANSI256_OPT|COLOR_TRANS_OPT); break;
    default : break;    /* impossible case */
  }
  pico_toggle_color(1);

  pcolors = (PCOLORS *) malloc(sizeof(PCOLORS));
  memset((void *)pcolors, 0, sizeof(PCOLORS));
  /* ignore bad pair settings, also we set tbcp backwards because it will
   * be reversed later in the modeline function, so tbcp->fg is actually 
   * tbcp->bg and viceversa.
   */
  if(ntfg >= 0 && ntbg >= 0){   /* set normal text color */
        fg = colorx(ntfg); bg = colorx(ntbg);
        pcolors->ntcp = new_color_pair(fg, bg);
        pico_nfcolor(fg);
        pico_nbcolor(bg);
  }
  /* reverse means reverse of normal text */
  if((rtfg < 0 || rtbg < 0) && (ntfg >= 0 && ntbg >= 0)){
        rtfg = ntbg;
        rtbg = ntfg;
  }
  if(rtfg >= 0 && rtbg >= 0){   /* set reverse text color */
        fg = colorx(rtfg); bg = colorx(rtbg);
        pcolors->rtcp = new_color_pair(fg, bg);
        pico_rfcolor(fg);
        pico_rbcolor(bg);
  }
  /* If the user does not specify this, we will set up all 
   * backgrounds for text to the normal text background
   */
  if(ntbg >= 0){
    if(knbg < 0) knbg = ntbg;
    if(q1bg < 0) q1bg = ntbg;
    if(q2bg < 0) q2bg = ntbg;
    if(q3bg < 0) q3bg = ntbg;
    if(sbbg < 0) sbbg = ntbg;
  }
  if(rtfg >= 0 && rtbg >= 0){   /* set default reverse */
    if(tbfg < 0 || tbbg < 0){   /* set titlebar colors to reverse color if any missing*/
        tbfg = rtfg; tbbg = rtbg;
    }
    if(klfg < 0 || klbg < 0){   /* set key label colors */
        klfg = rtfg; klbg = rtbg;
    }
    if(stfg < 0 || stbg < 0){   /* set status colors */
        stfg = rtfg; stbg = rtbg;
    }
    if(prfg >= 0 && prbg >= 0){ /* set prompt colors */
        prfg = rtfg; prbg = rtbg;
    }
  }
  if(tbfg >= 0 && tbbg >= 0)    /* set titlebar colors */
     pcolors->tbcp = new_color_pair(colorx(tbbg), colorx(tbfg));
  if(klfg >= 0 && klbg >= 0)    /* set key label colors */
     pcolors->klcp = new_color_pair(colorx(klfg), colorx(klbg));
  if(knfg >= 0 && knbg >= 0)    /* set key name colors */
     pcolors->kncp = new_color_pair(colorx(knfg), colorx(knbg));
  if(stfg >= 0 && stbg >= 0)    /* set status colors */
     pcolors->stcp = new_color_pair(colorx(stfg), colorx(stbg));
  if(prfg >= 0 && prbg >= 0)    /* set prompt colors */
     pcolors->prcp = new_color_pair(colorx(prfg), colorx(prbg));
  if(q1fg >= 0 && q1bg >= 0)    /* set quote level 1 colors */
     pcolors->qlcp = new_color_pair(colorx(q1fg), colorx(q1bg));
  if(q2fg >= 0 && q2bg >= 0)    /* set quote level 2 colors */
     pcolors->qllcp = new_color_pair(colorx(q2fg), colorx(q2bg));
  if(q3fg >= 0 && q3bg >= 0)    /* set quote level 3 colors */
     pcolors->qlllcp = new_color_pair(colorx(q3fg), colorx(q3bg));
  if(sbfg >= 0 && sbbg >= 0)    /* set signature block colors */
     pcolors->sbcp = new_color_pair(colorx(sbfg), colorx(sbbg));

  if(pico_usingcolor()) 
     pico_set_normal_color();

  return pcolors;
}
#endif /* ! _WINDOWS */

#ifdef  _WINDOWS
/*
 *
 */
int
pico_file_drop(int x, int y, char *filename)
{
    /*
     * if current buffer is unchanged
     * *or* "new buffer" and no current text
     */
    if(((curwp->w_bufp->b_flag & BFCHG) == 0)
       || (curwp->w_bufp->b_fname[0] == '\0'
           && curwp->w_bufp->b_linep == lforw(curwp->w_bufp->b_linep)
           && curwp->w_doto == 0)){
        register BUFFER *bp = curwp->w_bufp;
        char     bname[NBUFN];

        makename(bname, filename);
        strncpy(bp->b_bname, bname, sizeof(bp->b_bname));
        bp->b_bname[sizeof(bp->b_bname)-1] = '\0';
        strncpy(bp->b_fname, filename, sizeof(bp->b_fname));
        bp->b_fname[sizeof(bp->b_fname)-1] = '\0';
        bp->b_flag &= ~BFCHG;   /* turn off change bit */
        if (readin(filename, 1, 1) == ABORT) {
            strncpy(bp->b_bname, "", sizeof(bp->b_bname));
            bp->b_bname[sizeof(bp->b_bname)-1] = '\0';
            strncpy(bp->b_fname, "", sizeof(bp->b_fname));
            bp->b_fname[sizeof(bp->b_fname)-1] = '\0';
        }

        bp->b_dotp = bp->b_linep;
        bp->b_doto = 0;
    }
    else{
        EML eml;

        ifile(filename);
        curwp->w_flag |= WFHARD;
        update();
        eml.s = filename;
        emlwrite("Inserted dropped file \"%s\"", &eml);
    }

    curwp->w_flag |= WFHARD;
    update();                   /* restore cursor */
    return(1);
}
#endif


/*----------------------------------------------------------------------
    print a few lines of help for command line arguments

  Args:  none

 Result: prints help messages
  ----------------------------------------------------------------------*/
void
pico_args_help(void)
{
    char **a;
    char *pp[2];

    pp[1] = NULL;

    /**  print out possible starting arguments... **/

    for(a=args_pico_args; a && *a; a++){
        pp[0] = _(*a);
        pico_display_args_err(NULL, pp, 0);
    }

    exit(1);
}


void
pico_vers_help(void)
{
    char v0[100];
    char *v[2];

    snprintf(v0, sizeof(v0), "Pico %.50s", version);
    v[0] = v0;
    v[1] = NULL;

    pico_display_args_err(NULL, v, 0);
    exit(1);
}


/*----------------------------------------------------------------------
   write argument error to the display...

  Args:  none

 Result: prints help messages
  ----------------------------------------------------------------------*/
void
pico_display_args_err(char *s, char **a, int err)
{
    char  errstr[256], *errp;
    FILE *fp = err ? stderr : stdout;
#ifdef _WINDOWS
    char         tmp_20k_buf[SIZEOF_20KBUF];
#endif


    if(err && s)
      snprintf(errp = errstr, sizeof(errstr), _("Argument Error: %.200s"), s);
    else
      errp = s;

#ifdef  _WINDOWS
    if(errp)
      mswin_messagebox(errp, err);

    if(a && *a){
        strncpy(tmp_20k_buf, *a++, SIZEOF_20KBUF);
        tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
        while(a && *a){
            strncat(tmp_20k_buf, "\n", SIZEOF_20KBUF-strlen(tmp_20k_buf)-1);
            tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
            strncat(tmp_20k_buf, *a++, SIZEOF_20KBUF-strlen(tmp_20k_buf)-1);
            tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
        }

        mswin_messagebox(tmp_20k_buf, err);
    }
#else
    if(errp)
      fprintf(fp, "%s\n", errp);

    while(a && *a)
      fprintf(fp, "%s\n", *a++);
#endif
}