/*
* 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);
}
/*
* pico - the main routine for Pine's composer.
*
*/
int
pico(PICO *pm)
{
UCS c;
register int f;
register int n;
char bname[NBUFN]; /* buffer name of file to read */
extern struct on_display ods;
int checkpointcnt = 0, input = 0;
int ret;
char chkptfile[NLINE];
#ifdef _WINDOWS
int cursor_shown;
#endif
Pmaster = pm;
gmode = MDWRAP;
gmode |= pm->pine_flags; /* high 4 bits rsv'd for pine */
alt_speller = pm->alt_spell;
pico_all_done = 0;
km_popped = 0;
if(!vtinit()) /* Init Displays. */
return(COMP_CANCEL);
strncpy(bname, "main", sizeof(bname)); /* default buffer name */
bname[sizeof(bname)-1] = '\0';
edinit(bname); /* Buffers, windows. */
if(InitMailHeader(pm)) /* init mail header structure */
gmode &= ~(P_BODY | P_HEADEND); /* flip off special header stuff */
/* setup to process commands */
lastflag = 0; /* Fake last flags. */
curbp->b_mode |= gmode; /* and set default modes*/
if(Pmaster->pine_anchor)
pico_anchor = utf8_to_ucs4_cpystr(Pmaster->pine_anchor);
else
pico_anchor = NULL;
if(Pmaster->quote_str)
glo_quote_str = utf8_to_ucs4_cpystr(Pmaster->quote_str);
else
glo_quote_str = NULL;
if(Pmaster->wordseps)
glo_wordseps = ucs4_cpystr(Pmaster->wordseps);
else
glo_wordseps = NULL;
bindtokey(DEL, (gmode & P_DELRUBS) ? forwdel : backdel);
if(pm->msgtext)
breplace(pm->msgtext);
#ifdef _WINDOWS
cursor_shown = mswin_showcaret(1); /* turn on for main window */
mswin_allowpaste(MSWIN_PASTE_FULL);
mswin_setscrollcallback (pico_scroll_callback);
#endif
/* prepare for checkpointing */
chkptfile[0] = '\0';
chkptinit((*Pmaster->ckptdir)(chkptfile, sizeof(chkptfile)), sizeof(chkptfile));
if(gmode & P_CHKPTNOW)
writeout(chkptfile, TRUE);
pico_all_done = setjmp(finstate); /* jump out of HUP handler ? */
if(gmode & MDALTNOW){
while(!pico_all_done){
if(((gmode & P_BODY) || !Pmaster->headents)
&& alt_editor(0, 1) < 0)
break; /* if problem, drop into pico */
if(Pmaster->headents){
update(); /* paint screen, n' start editing... */
HeaderEditor((gmode & (P_HEADEND | P_BODY)) ? 2 : 0, 0);
gmode |= P_BODY; /* make sure we enter alt ed next */
}
else
pico_all_done = COMP_EXIT;
}
}
else if(!pico_all_done){
if(gmode & P_BODY){ /* begin editing the header? */
ArrangeHeader(); /* line up pointers */
/*
* Move to the offset pine asked us to move to.
* Perhaps we should be checking to see if this is
* a reasonable number before moving.
*/
if(Pmaster && Pmaster->edit_offset)
forwchar(FALSE, Pmaster->edit_offset);
}
else{
update(); /* paint screen, */
HeaderEditor((gmode & P_HEADEND) ? 2 : 0, 0);
}
}
while(1){
if(pico_all_done){
#ifdef _WINDOWS
if(!cursor_shown)
mswin_showcaret(0);
mswin_allowpaste(MSWIN_PASTE_DISABLE);
mswin_setscrollcallback (NULL);
#endif
ret = anycb() ? BUF_CHANGED : 0;
switch(pico_all_done){ /* prepare for/handle final events */
case COMP_EXIT : /* already confirmed */
packheader();
if(Pmaster
&& (Pmaster->strip_ws_before_send
|| Pmaster->allow_flowed_text))
cleanwhitespace();
ret |= COMP_EXIT;
break;
case COMP_CANCEL : /* also already confirmed */
packheader();
ret = COMP_CANCEL;
break;
case COMP_GOTHUP:
/*
* pack up and let caller know that we've received a SIGHUP
*/
if(ComposerEditing) /* expand addr if needed */
call_builder(&headents[ods.cur_e], NULL, NULL);
packheader();
ret |= COMP_GOTHUP;
break;
case COMP_SUSPEND :
default: /* safest if internal error */
/*
* If we're in the headers mark the current header line
* with start_here bit so caller knows where to reset.
* Also set the edit_offset, which is either the offset
* into this header line or the offset into the body.
* Packheader will adjust edit_offset for multi-line
* headers.
*/
if(ComposerEditing){ /* in the headers */
headents[ods.cur_e].start_here = 1;
Pmaster->edit_offset = ods.p_ind;
}
else{
register LINE *clp;
register long offset;
for(clp = lforw(curbp->b_linep), offset = 0L;
clp != curwp->w_dotp;
clp = lforw(clp))
offset += (llength(clp) + 1);
Pmaster->edit_offset = offset + curwp->w_doto;
}
packheader();
ret |= COMP_SUSPEND;
break;
}
if(pico_anchor)
fs_give((void **) &pico_anchor);
if(glo_quote_str)
fs_give((void **) &glo_quote_str);
if(glo_wordseps)
fs_give((void **) &glo_wordseps);
vttidy(); /* clean up tty modes */
zotdisplay(); /* blast display buffers */
zotedit();
our_unlink(chkptfile);
Pmaster = NULL; /* blat global */
return(ret);
}
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, -1, 0);
register_mfunc(mouse_in_content, 2, 0, term.t_nrow - (term.t_mrow + 1),
term.t_ncol);
#endif
#endif
#ifdef _WINDOWS
mswin_setdndcallback (composer_file_drop);
mswin_mousetrackcallback(pico_cursor);
#endif
c = GetKey();
if (term.t_nrow < 6 && c != NODATA){
(*term.t_beep)();
emlwrite(_("Please make the screen bigger."), NULL);
continue;
}
#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(c == NODATA || time_to_check()){ /* new mail ? */
if((*Pmaster->newmail)(c == NODATA ? 0 : 2, 1) >= 0){
int rv;
if(km_popped){
term.t_mrow = 2;
curwp->w_ntrows -= 2;
curwp->w_flag |= WFHARD;
km_popped = 0;
}
clearcursor();
mlerase();
rv = (*Pmaster->showmsg)(c);
ttresize();
picosigs(); /* restore altered handlers */
if(rv) /* Did showmsg corrupt the display? */
PaintBody(0); /* Yes, repaint */
mpresf = 1;
input = 0;
}
clearcursor();
movecursor(0, 0);
}
if(km_popped)
switch(c){
case NODATA:
case (CTRL|'L'):
km_popped++;
break;
default:
mlerase();
break;
}
if(c == NODATA) /* no op, getkey timed out */
continue;
else if(!input++)
(*Pmaster->keybinput)();
if (mpresf != FALSE) { /* message stay around only */
if (mpresf++ > NMMESSDELAY) /* so long! */
mlerase();
}
f = FALSE; /* vestigial */
n = 1;
/* Do it. */
execute(normalize_cmd(c, pfkm, 2), f, n);
if(++checkpointcnt >= CHKPTDELAY){
checkpointcnt = 0;
writeout(chkptfile, TRUE);
}
}
}
