summaryrefslogtreecommitdiff
path: root/pico/main.c
diff options
context:
space:
mode:
Diffstat (limited to 'pico/main.c')
-rw-r--r--pico/main.c871
1 files changed, 871 insertions, 0 deletions
diff --git a/pico/main.c b/pico/main.c
new file mode 100644
index 00000000..ac5bc388
--- /dev/null
+++ b/pico/main.c
@@ -0,0 +1,871 @@
+#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 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 "../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);
+
+/* 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_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 -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 */
+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;
+
+ 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 */
+
+#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(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);
+ }
+}
+
+
+/*
+ * 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 */
+
+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();
+ }
+ 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, "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();
+
+ /* return the first filename for editing */
+ if(ac > 0)
+ return(*av);
+ else
+ return(NULL);
+}
+
+
+#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
+}
generated by cgit v1.2.3-54-g00ecf (git 2.44.0) at 2024-06-25 06:44:39 +0000