pico/main.c

   1 #if     !defined(lint) && !defined(DOS)
   2 static char rcsid[] = "$Id: main.c 1184 2008-12-16 23:52:15Z hubert@u.washington.edu $";
   3 #endif
   4
   5 /*
   6  * ========================================================================
   7  * Copyright 2006-2008 University of Washington
   8  * Copyright 2013-2014 Eduardo Chappa
   9  *
  10  * Licensed under the Apache License, Version 2.0 (the "License");
  11  * you may not use this file except in compliance with the License.
  12  * You may obtain a copy of the License at
  13  *
  14  *     http://www.apache.org/licenses/LICENSE-2.0
  15  *
  16  * ========================================================================
  17  */
  18
  19 /*
  20  * Program:     Main stand-alone Pine Composer routines
  21  *
  22  *
  23  * WEEMACS/PICO NOTES:
  24  *
  25  * 08 Jan 92 - removed PINE defines to simplify compiling
  26  *
  27  * 08 Apr 92 - removed PINE stub calls
  28  *
  29  */
  30
  31 #include        "headers.h"
  32 #include        "../c-client/mail.h"
  33 #include        "../c-client/rfc822.h"
  34 #include        "../pith/osdep/collate.h"
  35 #include        "../pith/charconv/filesys.h"
  36 #include        "../pith/charconv/utf8.h"
  37 #include        "../pith/conf.h"
  38
  39
  40 /*
  41  * Useful internal prototypes
  42  */
  43 #ifdef  _WINDOWS
  44 int     pico_file_drop(int, int, char *);
  45 #endif
  46
  47 /*
  48  * this isn't defined in the library, because it's a pine global
  49  * which we use for GetKey's timeout
  50  */
  51 int     timeoutset = 0;
  52
  53
  54 int      my_timer_period = (300 * 1000);
  55
  56 /*
  57  * function key mappings
  58  */
  59 static UCS fkm[12][2] = {
  60     { F1,  (CTRL|'G')},
  61     { F2,  (CTRL|'X')},
  62     { F3,  (CTRL|'O')},
  63     { F4,  (CTRL|'J')},
  64     { F5,  (CTRL|'R')},
  65     { F6,  (CTRL|'W')},
  66     { F7,  (CTRL|'Y')},
  67     { F8,  (CTRL|'V')},
  68     { F9,  (CTRL|'K')},
  69     { F10, (CTRL|'U')},
  70     { F11, (CTRL|'C')},
  71 #ifdef  SPELLER
  72     { F12, (CTRL|'T')}
  73 #else
  74     { F12, (CTRL|'D')}
  75 #endif
  76 };
  77
  78 char *pico_args(int, char **, int *, int *, int *);
  79 void  pico_args_help(void);
  80 void  pico_vers_help(void);
  81 void  pico_display_args_err(char *, char **, int);
  82
  83 /* TRANSLATORS: An error message about an unknown flag (option)
  84    on the command line */
  85 char  args_pico_missing_flag[]  = N_("unknown flag \"%c\"");
  86 /* TRANSLATORS: error message about command line */
  87 char  args_pico_missing_arg[]   = N_("missing or empty argument to \"%c\" flag");
  88 char  args_pico_missing_num[]   = N_("non numeric argument for \"%c\" flag");
  89 char  args_pico_missing_color[] = N_("missing color for \"%s\" flag");
  90 char  args_pico_missing_charset[] = N_("missing character set for \"%s\" flag");
  91 char  args_pico_input_charset[] = N_("input character set \"%s\" is unsupported");
  92 char  args_pico_output_charset[] = N_("output character set \"%s\" is unsupported");
  93
  94 char *args_pico_args[] = {
  95 /* TRANSLATORS: little help printed out when incorrect arguments
  96    are given to pico program. */
  97 N_("Possible Starting Arguments for Pico editor:"),
  98 "",
  99 N_("\tArgument\t\tMeaning"),
 100 N_("\t -e \t\tComplete - allow file name completion"),
 101 N_("\t -k \t\tCut - let ^K cut from cursor position to end of line"),
 102 N_("\t -a \t\tShowDot - show dot files in file browser"),
 103 N_("\t -j \t\tGoto - allow 'Goto' command in file browser"),
 104 N_("\t -g \t\tShow - show cursor in file browser"),
 105 N_("\t -m \t\tMouse - turn on mouse support"),
 106 N_("\t -x \t\tNoKeyhelp - suppress keyhelp"),
 107 N_("\t -p \t\tPreserveStartStop - preserve \"start\"(^Q) and \"stop\"(^S) characters"),
 108 N_("\t -q \t\tTermdefWins - termcap or terminfo takes precedence over defaults"),
 109 N_("\t -Q <quotestr> \tSet quote string (eg. \"> \") esp. for composing email"),
 110 N_("\t -d \t\tRebind - let delete key delete current character"),
 111 N_("\t -f \t\tKeys - force use of function keys"),
 112 N_("\t -b \t\tReplace - allow search and replace"),
 113 N_("\t -h \t\tHelp - give this list of options"),
 114 N_("\t -r[#cols] \tFill - set fill column to #cols columns, default=72"),
 115 N_("\t -n[#s] \tMail - notify about new mail every #s seconds, default=180"),
 116 N_("\t -s <speller> \tSpeller - specify alternative speller"),
 117 N_("\t -t \t\tShutdown - enable special shutdown mode"),
 118 N_("\t -o <dir>\tOperation - specify the operating directory"),
 119 N_("\t -z \t\tSuspend - allow use of ^Z suspension"),
 120 N_("\t -w \t\tNoWrap - turn off word wrap"),
 121 N_("\t -W <wordseps> \tSet word separators other than whitespace"),
 122 #ifndef _WINDOWS
 123 N_("\t -dcs <display_character_set> \tdefault uses LANG or LC_CTYPE from environment"),
 124 N_("\t -kcs <keyboard_character_set> \tdefaults to display_character_set"),
 125 N_("\t -syscs\t\tuse system-supplied translation routines"),
 126 #endif  /* ! _WINDOWS */
 127 #ifdef  _WINDOWS
 128 N_("\t -cnf color \tforeground color"),
 129 N_("\t -cnb color \tbackground color"),
 130 N_("\t -crf color \treverse foreground color"),
 131 N_("\t -crb color \treverse background color"),
 132 #endif  /* _WINDOWS */
 133 N_("\t +[line#] \tLine - start on line# line, default=1"),
 134 N_("\t -v \t\tView - view file"),
 135 N_("\t -no_setlocale_collate\tdo not do setlocale(LC_COLLATE)"),
 136 N_("\t -version\tPico version number"),
 137 "",
 138 N_("\t All arguments may be followed by a file name to display."),
 139 "",
 140 NULL
 141 };
 142
 143
 144 /*
 145  * main standalone pico routine
 146  */
 147 #ifdef _WINDOWS
 148 int
 149 app_main (int argc, char *argv[])
 150 #else
 151 int
 152 main(int argc, char *argv[])
 153 #endif
 154 {
 155     UCS      c;
 156     register int    f;
 157     register int    n;
 158     register BUFFER *bp;
 159     int      viewflag = FALSE;          /* are we starting in view mode?*/
 160     int      starton = 0;               /* where's dot to begin with?   */
 161     int      setlocale_collate = 1;
 162     char     bname[NBUFN];              /* buffer name of file to read  */
 163     char    *file_to_edit = NULL;
 164     char    *display_charmap = NULL, *dc;
 165     char    *keyboard_charmap = NULL;
 166     int      use_system = 0;
 167     char    *err = NULL;
 168
 169     set_input_timeout(600);
 170     Pmaster = NULL;                     /* turn OFF composer functionality */
 171     km_popped = 0;
 172
 173     /*
 174      * Read command line flags before initializing, otherwise, we never
 175      * know to init for f_keys...
 176      */
 177     file_to_edit = pico_args(argc, argv, &starton, &viewflag, &setlocale_collate);
 178
 179     set_collation(setlocale_collate, 1);
 180
 181 #define cpstr(s) strcpy((char *)fs_get(1+strlen(s)), s)
 182
 183 #ifdef  _WINDOWS
 184     init_utf8_display(1, NULL);
 185 #else   /* UNIX */
 186
 187
 188     if(display_character_set)
 189       display_charmap = cpstr(display_character_set);
 190 #if   HAVE_LANGINFO_H && defined(CODESET)
 191     else if((dc = nl_langinfo_codeset_wrapper()) != NULL)
 192       display_charmap = cpstr(dc);
 193 #endif
 194
 195     if(!display_charmap)
 196       display_charmap = cpstr("US-ASCII");
 197
 198     if(keyboard_character_set)
 199       keyboard_charmap = cpstr(keyboard_character_set);
 200     else
 201       keyboard_charmap = cpstr(display_charmap);
 202
 203
 204     if(use_system_translation){
 205 #if     PREREQ_FOR_SYS_TRANSLATION
 206         use_system++;
 207         /* This modifies its arguments */
 208         if(setup_for_input_output(use_system, &display_charmap, &keyboard_charmap,
 209                                   &input_cs, &err) == -1){
 210             fprintf(stderr, "%s\n", err ? err : "trouble with character set");
 211             exit(1);
 212         }
 213         else if(err){
 214             fprintf(stderr, "%s\n", err);
 215             fs_give((void **) &err);
 216         }
 217 #endif
 218     }
 219
 220     if(!use_system){
 221         if(setup_for_input_output(use_system, &display_charmap, &keyboard_charmap,
 222                                   &input_cs, &err) == -1){
 223             fprintf(stderr, "%s\n", err ? err : "trouble with character set");
 224             exit(1);
 225         }
 226         else if(err){
 227             fprintf(stderr, "%s\n", err);
 228             fs_give((void **) &err);
 229         }
 230     }
 231
 232     if(keyboard_charmap){
 233         set_locale_charmap(keyboard_charmap);
 234         free((void *) keyboard_charmap);
 235     }
 236
 237     if(display_charmap)
 238       free((void *) display_charmap);
 239
 240 #endif  /* UNIX */
 241
 242     /*
 243      * There are a couple arguments that we need to be sure
 244      * are converted for internal use.
 245      */
 246     if(alt_speller)
 247       alt_speller = cpstr(fname_to_utf8(alt_speller));
 248
 249     if(opertree && opertree[0]){
 250         strncpy(opertree, fname_to_utf8(opertree), sizeof(opertree));
 251         opertree[sizeof(opertree)-1] = '\0';
 252     }
 253
 254     if(glo_quote_str_orig)
 255       glo_quote_str = utf8_to_ucs4_cpystr(fname_to_utf8(glo_quote_str_orig));
 256
 257     if(glo_wordseps_orig)
 258       glo_wordseps = utf8_to_ucs4_cpystr(fname_to_utf8(glo_wordseps_orig));
 259
 260     if(file_to_edit)
 261       file_to_edit = cpstr(fname_to_utf8(file_to_edit));
 262
 263 #undef cpstr
 264
 265 #if     defined(DOS) || defined(OS2)
 266     if(file_to_edit){                   /* strip quotes? */
 267         int   l;
 268
 269         if(strchr("'\"", file_to_edit[0])
 270            && (l = strlen(file_to_edit)) > 1
 271            && file_to_edit[l-1] == file_to_edit[0]){
 272             file_to_edit[l-1] = '\0';   /* blat trailing quote */
 273             file_to_edit++;             /* advance past leading quote */
 274         }
 275     }
 276 #endif
 277
 278     if(!vtinit())                       /* Displays.            */
 279         exit(1);
 280
 281     strncpy(bname, "main", sizeof(bname));              /* default buffer name */
 282     bname[sizeof(bname)-1] = '\0';
 283     edinit(bname);                      /* Buffers, windows.   */
 284
 285     update();                           /* let the user know we are here */
 286
 287 #ifdef  _WINDOWS
 288     mswin_setwindow(NULL, NULL, NULL, NULL, NULL, NULL);
 289     mswin_showwindow();
 290     mswin_showcaret(1);                 /* turn on for main window */
 291     mswin_allowpaste(MSWIN_PASTE_FULL);
 292     mswin_setclosetext("Use the ^X command to exit Pico.");
 293     mswin_setscrollcallback (pico_scroll_callback);
 294 #endif
 295
 296 #if     defined(USE_TERMCAP) || defined(USE_TERMINFO) || defined(VMS)
 297     if(kbesc == NULL){                  /* will arrow keys work ? */
 298         (*term.t_putchar)('\007');
 299         emlwrite("Warning: keypad keys may be non-functional", NULL);
 300     }
 301 #endif  /* USE_TERMCAP/USE_TERMINFO/VMS */
 302
 303     if(file_to_edit){                   /* Any file to edit? */
 304
 305         makename(bname, file_to_edit);  /* set up a buffer for this file */
 306
 307         bp = curbp;                     /* read in first file */
 308         makename(bname, file_to_edit);
 309         strncpy(bp->b_bname, bname, sizeof(bp->b_bname));
 310         bp->b_bname[sizeof(bp->b_bname)-1] = '\0';
 311
 312         if(strlen(file_to_edit) >= NFILEN){
 313             char buf[128];
 314
 315             snprintf(buf, sizeof(buf), "Filename \"%.10s...\" too long", file_to_edit);
 316             emlwrite(buf, NULL);
 317             file_to_edit = NULL;
 318         }
 319         else{
 320             strncpy(bp->b_fname, file_to_edit, sizeof(bp->b_fname));
 321             bp->b_fname[sizeof(bp->b_fname)-1] = '\0';
 322             if (((gmode&MDTREE) && !in_oper_tree(file_to_edit)) ||
 323                 readin(file_to_edit, (viewflag==FALSE), TRUE) == ABORT) {
 324                 if ((gmode&MDTREE) && !in_oper_tree(file_to_edit)){
 325                     EML eml;
 326                     eml.s = opertree;
 327                     emlwrite(_("Can't read file from outside of %s"), &eml);
 328                 }
 329
 330                 file_to_edit = NULL;
 331             }
 332         }
 333
 334         if(!file_to_edit){
 335             strncpy(bp->b_bname, "main", sizeof(bp->b_bname));
 336             bp->b_bname[sizeof(bp->b_bname)-1] = '\0';
 337             strncpy(bp->b_fname, "", sizeof(bp->b_fname));
 338             bp->b_fname[sizeof(bp->b_fname)-1] = '\0';
 339         }
 340
 341         bp->b_dotp = bp->b_linep;
 342         bp->b_doto = 0;
 343
 344         if (viewflag)                   /* set the view mode */
 345           bp->b_mode |= MDVIEW;
 346     }
 347
 348     /* setup to process commands */
 349     lastflag = 0;                       /* Fake last flags.     */
 350     curbp->b_mode |= gmode;             /* and set default modes*/
 351
 352     curwp->w_flag |= WFMODE;            /* and force an update  */
 353
 354     if(timeoutset){
 355         EML eml;
 356
 357         eml.s = comatose(get_input_timeout());
 358         emlwrite(_("Checking for new mail every %s seconds"), &eml);
 359     }
 360
 361
 362     forwline(0, starton - 1);           /* move dot to specified line */
 363
 364     while(1){
 365
 366         if(km_popped){
 367             km_popped--;
 368             if(km_popped == 0) /* cause bottom three lines to be repainted */
 369               curwp->w_flag |= WFHARD;
 370         }
 371
 372         if(km_popped){  /* temporarily change to cause menu to be painted */
 373             term.t_mrow = 2;
 374             curwp->w_ntrows -= 2;
 375             curwp->w_flag |= WFMODE;
 376             movecursor(term.t_nrow-2, 0); /* clear status line, too */
 377             peeol();
 378         }
 379
 380         update();                       /* Fix up the screen    */
 381         if(km_popped){
 382             term.t_mrow = 0;
 383             curwp->w_ntrows += 2;
 384         }
 385
 386 #ifdef  MOUSE
 387 #ifdef  EX_MOUSE
 388         /* New mouse function for real mouse text seletion. */
 389         register_mfunc(mouse_in_pico, 2, 0, term.t_nrow - (term.t_mrow + 1),
 390                        term.t_ncol);
 391 #else
 392         mouse_in_content(KEY_MOUSE, -1, -1, 0, 0);
 393         register_mfunc(mouse_in_content, 2, 0, term.t_nrow - (term.t_mrow + 1),
 394                        term.t_ncol);
 395 #endif
 396 #endif
 397 #ifdef  _WINDOWS
 398         mswin_setdndcallback (pico_file_drop);
 399         mswin_mousetrackcallback(pico_cursor);
 400 #endif
 401         c = GetKey();
 402 #ifdef  MOUSE
 403 #ifdef  EX_MOUSE
 404         clear_mfunc(mouse_in_pico);
 405 #else
 406         clear_mfunc(mouse_in_content);
 407 #endif
 408 #endif
 409 #ifdef  _WINDOWS
 410         mswin_cleardndcallback ();
 411         mswin_mousetrackcallback(NULL);
 412 #endif
 413
 414         if(timeoutset && (c == NODATA || time_to_check())){
 415             if(pico_new_mail())
 416               emlwrite(_("You may possibly have new mail."), NULL);
 417         }
 418
 419         if(km_popped)
 420           switch(c){
 421             case NODATA:
 422             case (CTRL|'L'):
 423               km_popped++;
 424               break;
 425
 426             default:
 427               /* clear bottom three lines */
 428               mlerase();
 429               break;
 430           }
 431
 432         if(c == NODATA)
 433           continue;
 434
 435         if(mpresf){                     /* erase message line? */
 436             if(mpresf++ > MESSDELAY)
 437               mlerase();
 438         }
 439
 440         f = FALSE;
 441         n = 1;
 442
 443 #ifdef  MOUSE
 444         clear_mfunc(mouse_in_content);
 445 #endif
 446                                         /* Do it.               */
 447         execute(normalize_cmd(c, fkm, 1), f, n);
 448     }
 449 }
 450
 451
 452 /*
 453  *  Parse the command line args.
 454  *
 455  * Args      ac
 456  *           av
 457  *      starton -- place to return starton value
 458  *     viewflag -- place to return viewflag value
 459  *
 460  * Result: command arguments parsed
 461  *       possible printing of help for command line
 462  *       various global flags set
 463  *       returns the name of any file to open, else NULL
 464  */
 465 char *
 466 pico_args(int ac, char **av, int *starton, int *viewflag, int *setlocale_collate)
 467 {
 468     int   c, usage = 0;
 469     char *str;
 470     char  tmp_1k_buf[1000];     /* tmp buf to contain err msgs  */
 471
 472 Loop:
 473     /* while more arguments with leading - or + */
 474     while(--ac > 0 && (**++av == '-' || **av == '+')){
 475       if(**av == '+'){
 476         if(*++*av)
 477           str = *av;
 478         else if(--ac)
 479           str = *++av;
 480         else{
 481           snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_arg), '+');
 482           pico_display_args_err(tmp_1k_buf, NULL, 1);
 483           usage++;
 484           goto Loop;
 485         }
 486
 487         if(!isdigit((unsigned char)str[0])){
 488           snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_num), '+');
 489           pico_display_args_err(tmp_1k_buf, NULL, 1);
 490           usage++;
 491         }
 492
 493         if(starton)
 494           *starton = atoi(str);
 495
 496         goto Loop;
 497       }
 498
 499       /* while more chars in this argument */
 500       else while(*++*av){
 501
 502         if(strcmp(*av, "version") == 0){
 503             pico_vers_help();
 504         }
 505         else if(strcmp(*av, "no_setlocale_collate") == 0){
 506             *setlocale_collate = 0;
 507             goto Loop;
 508         }
 509 #ifndef _WINDOWS
 510         else if(strcmp(*av, "syscs") == 0){
 511             use_system_translation = !use_system_translation;
 512             goto Loop;
 513         }
 514 #endif  /* ! _WINDOWS */
 515 #ifdef  _WINDOWS
 516         else if(strcmp(*av, "cnf") == 0
 517            || strcmp(*av, "cnb") == 0
 518            || strcmp(*av, "crf") == 0
 519            || strcmp(*av, "crb") == 0){
 520
 521             char *cmd = *av; /* save it to use below */
 522
 523             if(--ac){
 524                 str = *++av;
 525                 if(cmd[1] == 'n'){
 526                     if(cmd[2] == 'f')
 527                       pico_nfcolor(str);
 528                     else if(cmd[2] == 'b')
 529                       pico_nbcolor(str);
 530                 }
 531                 else if(cmd[1] == 'r'){
 532                     if(cmd[2] == 'f')
 533                       pico_rfcolor(str);
 534                     else if(cmd[2] == 'b')
 535                       pico_rbcolor(str);
 536                 }
 537             }
 538             else{
 539                 snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_color), cmd);
 540                 pico_display_args_err(tmp_1k_buf, NULL, 1);
 541                 usage++;
 542             }
 543
 544             goto Loop;
 545         }
 546 #endif  /* _WINDOWS */
 547 #ifndef _WINDOWS
 548         else if(strcmp(*av, "dcs") == 0 || strcmp(*av, "kcs") == 0){
 549             char *cmd = *av;
 550
 551             if(--ac){
 552                 if(strcmp(*av, "dcs") == 0){
 553                     display_character_set = *++av;
 554                     if(!output_charset_is_supported(display_character_set)){
 555                         snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_output_charset), display_character_set);
 556                         pico_display_args_err(tmp_1k_buf, NULL, 1);
 557                         usage++;
 558                     }
 559                 }
 560                 else{
 561                     keyboard_character_set = *++av;
 562                     if(!input_charset_is_supported(keyboard_character_set)){
 563                         snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_input_charset), keyboard_character_set);
 564                         pico_display_args_err(tmp_1k_buf, NULL, 1);
 565                         usage++;
 566                     }
 567                 }
 568             }
 569             else{
 570                 snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_charset), cmd);
 571                 pico_display_args_err(tmp_1k_buf, NULL, 1);
 572                 usage++;
 573             }
 574
 575             goto Loop;
 576         }
 577 #endif  /* ! _WINDOWS */
 578
 579         /*
 580          * Single char options.
 581          */
 582         switch(c = **av){
 583           /*
 584            * These don't take arguments.
 585            */
 586           case 'a':
 587             gmode ^= MDDOTSOK;          /* show dot files */
 588             break;
 589           case 'b':
 590 #ifdef notdef
 591     /*
 592      * Make MDREPLACE always on instead
 593      * Don't leave this to allow turning off of MDREPLACE because the
 594      * polarity of -b will have changed. Don't think anybody wants to
 595      * turn it off.
 596      */
 597             gmode ^= MDREPLACE;  /* -b for replace string in where is command */
 598 #endif
 599             break;
 600           case 'd':                     /* -d for rebind delete key */
 601             bindtokey(0x7f, forwdel);
 602             break;
 603           case 'e':                     /* file name completion */
 604             gmode ^= MDCMPLT;
 605             break;
 606           case 'f':                     /* -f for function key use */
 607             gmode ^= MDFKEY;
 608             break;
 609           case 'g':                     /* show-cursor in file browser */
 610             gmode ^= MDSHOCUR;
 611             break;
 612           case 'h':
 613             usage++;
 614             break;
 615           case 'j':                     /* allow "Goto" in file browser */
 616             gmode ^= MDGOTO;
 617             break;
 618           case 'k':                     /* kill from dot */
 619             gmode ^= MDDTKILL;
 620             break;
 621           case 'm':                     /* turn on mouse support */
 622             gmode ^= MDMOUSE;
 623             break;
 624           case 'p':
 625             preserve_start_stop = 1;
 626             break;
 627           case 'q':                     /* -q for termcap takes precedence */
 628             gmode ^= MDTCAPWINS;
 629             break;
 630           case 't':                     /* special shutdown mode */
 631             gmode ^= MDTOOL;
 632             rebindfunc(wquit, quickexit);
 633             break;
 634           case 'v':                     /* -v for View File */
 635           case 'V':
 636             *viewflag = !*viewflag;
 637             break;                      /* break back to inner-while */
 638           case 'w':                     /* -w turn off word wrap */
 639             gmode ^= MDWRAP;
 640             break;
 641           case 'x':                     /* suppress keyhelp */
 642             sup_keyhelp = !sup_keyhelp;
 643             break;
 644           case 'z':                     /* -z to suspend */
 645             gmode ^= MDSSPD;
 646             break;
 647
 648           /*
 649            * These do take arguments.
 650            */
 651           case 'r':                     /* set fill column */
 652           case 'n':                     /* -n for new mail notification */
 653           case 's' :                    /* speller */
 654           case 'o' :                    /* operating tree */
 655           case 'Q' :                    /* Quote string */
 656           case 'W' :                    /* Word separators */
 657             if(*++*av)
 658               str = *av;
 659             else if(--ac)
 660               str = *++av;
 661             else{
 662               if(c == 'r')
 663                 str= "72";
 664               else if(c == 'n')
 665                 str = "180";
 666               else{
 667                   snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_arg), c);
 668                   pico_display_args_err(tmp_1k_buf, NULL, 1);
 669                   usage++;
 670                   goto Loop;
 671               }
 672             }
 673
 674             switch(c){
 675               case 's':
 676                 alt_speller = str;
 677                 break;
 678               case 'o':
 679                 strncpy(opertree, str, NLINE);
 680                 gmode ^= MDTREE;
 681                 break;
 682               case 'Q':
 683                 glo_quote_str_orig = str;
 684                 break;
 685               case 'W':
 686                 glo_wordseps_orig = str;
 687                 break;
 688
 689         /* numeric args */
 690               case 'r':
 691               case 'n':
 692                 if(!isdigit((unsigned char)str[0])){
 693                   snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_num), c);
 694                   pico_display_args_err(tmp_1k_buf, NULL, 1);
 695                   usage++;
 696                 }
 697
 698                 if(c == 'r'){
 699                     if((userfillcol = atoi(str)) < 1)
 700                       userfillcol = 72;
 701                 }
 702                 else{
 703                     timeoutset = 1;
 704                     set_input_timeout(180);
 705                     if(set_input_timeout(atoi(str)) < 30)
 706                       set_input_timeout(180);
 707                 }
 708
 709                 break;
 710             }
 711
 712             goto Loop;
 713
 714           default:                      /* huh? */
 715             snprintf(tmp_1k_buf, sizeof(tmp_1k_buf), _(args_pico_missing_flag), c);
 716             pico_display_args_err(tmp_1k_buf, NULL, 1);
 717             usage++;
 718             break;
 719         }
 720       }
 721     }
 722
 723     if(usage)
 724       pico_args_help();
 725
 726     /* return the first filename for editing */
 727     if(ac > 0)
 728       return(*av);
 729     else
 730       return(NULL);
 731 }
 732
 733
 734 #ifdef  _WINDOWS
 735 /*
 736  *
 737  */
 738 int
 739 pico_file_drop(int x, int y, char *filename)
 740 {
 741     /*
 742      * if current buffer is unchanged
 743      * *or* "new buffer" and no current text
 744      */
 745     if(((curwp->w_bufp->b_flag & BFCHG) == 0)
 746        || (curwp->w_bufp->b_fname[0] == '\0'
 747            && curwp->w_bufp->b_linep == lforw(curwp->w_bufp->b_linep)
 748            && curwp->w_doto == 0)){
 749         register BUFFER *bp = curwp->w_bufp;
 750         char     bname[NBUFN];
 751
 752         makename(bname, filename);
 753         strncpy(bp->b_bname, bname, sizeof(bp->b_bname));
 754         bp->b_bname[sizeof(bp->b_bname)-1] = '\0';
 755         strncpy(bp->b_fname, filename, sizeof(bp->b_fname));
 756         bp->b_fname[sizeof(bp->b_fname)-1] = '\0';
 757         bp->b_flag &= ~BFCHG;   /* turn off change bit */
 758         if (readin(filename, 1, 1) == ABORT) {
 759             strncpy(bp->b_bname, "", sizeof(bp->b_bname));
 760             bp->b_bname[sizeof(bp->b_bname)-1] = '\0';
 761             strncpy(bp->b_fname, "", sizeof(bp->b_fname));
 762             bp->b_fname[sizeof(bp->b_fname)-1] = '\0';
 763         }
 764
 765         bp->b_dotp = bp->b_linep;
 766         bp->b_doto = 0;
 767     }
 768     else{
 769         EML eml;
 770
 771         ifile(filename);
 772         curwp->w_flag |= WFHARD;
 773         update();
 774         eml.s = filename;
 775         emlwrite("Inserted dropped file \"%s\"", &eml);
 776     }
 777
 778     curwp->w_flag |= WFHARD;
 779     update();                   /* restore cursor */
 780     return(1);
 781 }
 782 #endif
 783
 784
 785 /*----------------------------------------------------------------------
 786     print a few lines of help for command line arguments
 787
 788   Args:  none
 789
 790  Result: prints help messages
 791   ----------------------------------------------------------------------*/
 792 void
 793 pico_args_help(void)
 794 {
 795     char **a;
 796     char *pp[2];
 797
 798     pp[1] = NULL;
 799
 800     /**  print out possible starting arguments... **/
 801
 802     for(a=args_pico_args; a && *a; a++){
 803         pp[0] = _(*a);
 804         pico_display_args_err(NULL, pp, 0);
 805     }
 806
 807     exit(1);
 808 }
 809
 810
 811 void
 812 pico_vers_help(void)
 813 {
 814     char v0[100];
 815     char *v[2];
 816
 817     snprintf(v0, sizeof(v0), "Pico %.50s", version);
 818     v[0] = v0;
 819     v[1] = NULL;
 820
 821     pico_display_args_err(NULL, v, 0);
 822     exit(1);
 823 }
 824
 825
 826 /*----------------------------------------------------------------------
 827    write argument error to the display...
 828
 829   Args:  none
 830
 831  Result: prints help messages
 832   ----------------------------------------------------------------------*/
 833 void
 834 pico_display_args_err(char *s, char **a, int err)
 835 {
 836     char  errstr[256], *errp;
 837     FILE *fp = err ? stderr : stdout;
 838 #ifdef _WINDOWS
 839     char         tmp_20k_buf[SIZEOF_20KBUF];
 840 #endif
 841
 842
 843     if(err && s)
 844       snprintf(errp = errstr, sizeof(errstr), _("Argument Error: %.200s"), s);
 845     else
 846       errp = s;
 847
 848 #ifdef  _WINDOWS
 849     if(errp)
 850       mswin_messagebox(errp, err);
 851
 852     if(a && *a){
 853         strncpy(tmp_20k_buf, *a++, SIZEOF_20KBUF);
 854         tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
 855         while(a && *a){
 856             strncat(tmp_20k_buf, "\n", SIZEOF_20KBUF-strlen(tmp_20k_buf)-1);
 857             tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
 858             strncat(tmp_20k_buf, *a++, SIZEOF_20KBUF-strlen(tmp_20k_buf)-1);
 859             tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
 860         }
 861
 862         mswin_messagebox(tmp_20k_buf, err);
 863     }
 864 #else
 865     if(errp)
 866       fprintf(fp, "%s\n", errp);
 867
 868     while(a && *a)
 869       fprintf(fp, "%s\n", *a++);
 870 #endif
 871 }