/* getstr.cpp */
/* Synchronet string input routines */
/* $Id$ */
/****************************************************************************
* @format.tab-size 4 (Plain Text/Source Code File Header) *
* @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
* *
* Copyright 2014 Rob Swindell - http://www.synchro.net/copyright.html *
* *
* This program is free software; you can redistribute it and/or *
* modify it under the terms of the GNU General Public License *
* as published by the Free Software Foundation; either version 2 *
* of the License, or (at your option) any later version. *
* See the GNU General Public License for more details: gpl.txt or *
* http://www.fsf.org/copyleft/gpl.html *
* *
* Anonymous FTP access to the most recent released source is available at *
* ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
* *
* Anonymous CVS access to the development source and modification history *
* is available at cvs.synchro.net:/cvsroot/sbbs, example: *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
* (just hit return, no password is necessary) *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src *
* *
* For Synchronet coding style and modification guidelines, see *
* http://www.synchro.net/source.html *
* *
* You are encouraged to submit any modifications (preferably in Unix diff *
* format) via e-mail to mods@synchro.net *
* *
* Note: If this box doesn't appear square, then you need to fix your tabs. *
****************************************************************************/
#include "sbbs.h"
/****************************************************************************/
/* Waits for remote or local user to input a CR terminated string. 'length' */
/* is the maximum number of characters that getstr will allow the user to */
/* input into the string. 'mode' specifies upper case characters are echoed */
/* or wordwrap or if in message input (^A sequences allowed). ^W backspaces */
/* a word, ^X backspaces a line, ^Gs, BSs, TABs are processed, LFs ignored. */
/* ^N non-destructive BS, ^V center line. Valid keys are echoed. */
/****************************************************************************/
size_t sbbs_t::getstr(char *strout, size_t maxlen, long mode)
{
size_t i,l,x,z; /* i=current position, l=length, j=printed chars */
/* x&z=misc */
char str1[256],str2[256],undo[256];
uchar ch;
uchar atr;
console&=~(CON_UPARROW|CON_DOWNARROW|CON_LEFTARROW|CON_BACKSPACE|CON_DELETELINE);
if(!(mode&K_WRAP))
console&=~CON_INSERT;
sys_status&=~SS_ABORT;
if(mode&K_LINE && term_supports(ANSI) && !(mode&K_NOECHO)) {
if(column + (long)maxlen >= cols) /* Don't cause the terminal to line-wrap, just shorten the max input string length instead */
maxlen = cols-column-1;
attr(cfg.color[clr_inputline]);
for(i=0;i<maxlen;i++)
outchar(' ');
cursor_left(maxlen);
}
if(wordwrap[0]) {
SAFECOPY(str1,wordwrap);
wordwrap[0]=0;
}
else str1[0]=0;
if(mode&K_EDIT)
strcat(str1,strout);
else
strout[0]=0;
if(strlen(str1)>maxlen)
str1[maxlen]=0;
atr=curatr;
if(!(mode&K_NOECHO)) {
if(mode&K_AUTODEL && str1[0]) {
i=(cfg.color[clr_inputline]&0x77)<<4;
i|=(cfg.color[clr_inputline]&0x77)>>4;
attr(i);
}
column+=rputs(str1);
if(mode&K_EDIT && !(mode&(K_LINE|K_AUTODEL)))
cleartoeol(); /* destroy to eol */
}
SAFECOPY(undo,str1);
i=l=strlen(str1);
if(mode&K_AUTODEL && str1[0] && !(mode&K_NOECHO)) {
ch=getkey(mode|K_GETSTR);
attr(atr);
if(isprint(ch) || ch==DEL) {
for(i=0;i<l;i++)
backspace();
i=l=0;
}
else {
for(i=0;i<l;i++)
outchar(BS);
column+=rputs(str1);
i=l;
}
if(ch!=' ' && ch!=TAB)
ungetkey(ch);
}
if(mode&K_USEOFFSET) {
i=getstr_offset;
if(i>l)
i=l;
if(l-i) {
cursor_left(l-i);
}
}
if(console&CON_INSERT && term_supports(ANSI) && !(mode&K_NOECHO))
insert_indicator();
while(!(sys_status&SS_ABORT) && online && input_thread_running) {
if(mode&K_LEFTEXIT
&& console&(CON_LEFTARROW|CON_BACKSPACE|CON_DELETELINE))
break;
if(console&CON_UPARROW)
break;
if((ch=getkey(mode|K_GETSTR))==CR)
break;
if(sys_status&SS_ABORT || !online)
break;
if(ch==LF && mode&K_MSG) { /* Down-arrow same as CR */
console|=CON_DOWNARROW;
break;
}
if(ch==TAB && (mode&K_TAB || !(mode&K_WRAP))) /* TAB same as CR */
break;
if(!i && mode&K_UPRLWR && (ch==' ' || ch==TAB))
continue; /* ignore beginning white space if upper/lower */
if(mode&K_E71DETECT && (uchar)ch==(CR|0x80) && l>1) {
if(strstr(str1,"��")) {
bputs("\r\n\r\nYou must set your terminal to NO PARITY, "
"8 DATA BITS, and 1 STOP BIT (N-8-1).\7\r\n");
return(0);
}
}
getstr_offset=i;
switch(ch) {
case CTRL_A: /* Ctrl-A for ANSI */
if(!(mode&K_MSG) || useron.rest&FLAG('A') || i>maxlen-3)
break;
if(console&CON_INSERT) {
if(l<maxlen)
l++;
for(x=l;x>i;x--)
str1[x]=str1[x-1];
column+=rprintf("%.*s",l-i,str1+i);
cursor_left(l-i);
#if 0
if(i==maxlen-1)
console&=~CON_INSERT;
#endif
}
outchar(str1[i++]=1);
break;
case CTRL_B: /* Ctrl-B Beginning of Line */
if(i && !(mode&K_NOECHO)) {
cursor_left(i);
i=0;
}
break;
case CTRL_D: /* Ctrl-D Delete word right */
if(i<l) {
x=i;
while(x<l && str1[x]!=' ') {
outchar(' ');
x++;
}
while(x<l && str1[x]==' ') {
outchar(' ');
x++;
}
cursor_left(x-i); /* move cursor back */
z=i;
while(z<l-(x-i)) { /* move chars in string */
outchar(str1[z]=str1[z+(x-i)]);
z++;
}
while(z<l) { /* write over extra chars */
outchar(' ');
z++;
}
cursor_left(z-i);
l-=x-i; /* l=new length */
}
break;
case CTRL_E: /* Ctrl-E End of line */
if(term_supports(ANSI) && i<l) {
cursor_right(l-i); /* move cursor to eol */
i=l;
}
break;
case CTRL_F: /* Ctrl-F move cursor forewards */
if(i<l && term_supports(ANSI)) {
cursor_right(); /* move cursor right one */
i++;
}
break;
case CTRL_G: /* Bell */
if(!(mode&K_MSG))
break;
if(useron.rest&FLAG('B')) {
if (i+6<maxlen) {
if(console&CON_INSERT) {
for(x=l+6;x>i;x--)
str1[x]=str1[x-6];
if(l+5<maxlen)
l+=6;
#if 0
if(i==maxlen-1)
console&=~CON_INSERT;
#endif
}
str1[i++]='(';
str1[i++]='b';
str1[i++]='e';
str1[i++]='e';
str1[i++]='p';
str1[i++]=')';
if(!(mode&K_NOECHO))
bputs("(beep)");
}
if(console&CON_INSERT)
redrwstr(str1,i,l,0);
break;
}
if(console&CON_INSERT) {
if(l<maxlen)
l++;
for(x=l;x>i;x--)
str1[x]=str1[x-1];
#if 0
if(i==maxlen-1)
console&=~CON_INSERT;
#endif
}
if(i<maxlen) {
str1[i++]=BEL;
if(!(mode&K_NOECHO))
outchar(BEL);
}
break;
case CTRL_H: /* Ctrl-H/Backspace */
if(i==0) {
console|=CON_BACKSPACE;
break;
}
i--;
l--;
if(i!=l) { /* Deleting char in middle of line */
outchar(BS);
z=i;
while(z<l) { /* move the characters in the line */
outchar(str1[z]=str1[z+1]);
z++;
}
outchar(' '); /* write over the last char */
cursor_left((l-i)+1);
}
else if(!(mode&K_NOECHO))
backspace();
break;
case CTRL_I: /* Ctrl-I/TAB */
if(!(i%EDIT_TABSIZE)) {
if(console&CON_INSERT) {
if(l<maxlen)
l++;
for(x=l;x>i;x--)
str1[x]=str1[x-1];
#if 0
if(i==maxlen-1)
console&=~CON_INSERT;
#endif
}
str1[i++]=' ';
if(!(mode&K_NOECHO))
outchar(' ');
}
while(i<maxlen && i%EDIT_TABSIZE) {
if(console&CON_INSERT) {
if(l<maxlen)
l++;
for(x=l;x>i;x--)
str1[x]=str1[x-1];
#if 0
if(i==maxlen-1)
console&=~CON_INSERT;
#endif
}
str1[i++]=' ';
if(!(mode&K_NOECHO))
outchar(' ');
}
if(console&CON_INSERT && !(mode&K_NOECHO))
redrwstr(str1,i,l,0);
break;
case CTRL_L: /* Ctrl-L Center line (used to be Ctrl-V) */
str1[l]=0;
l=bstrlen(str1);
if(!l) break;
for(x=0;x<(maxlen-l)/2;x++)
str2[x]=' ';
str2[x]=0;
strcat(str2,str1);
strcpy(strout,str2);
l=strlen(strout);
if(mode&K_NOECHO)
return(l);
if(mode&K_MSG)
redrwstr(strout,i,l,K_MSG);
else {
while(i--)
bputs("\b");
bputs(strout);
if(mode&K_LINE)
attr(LIGHTGRAY);
}
if(!(mode&K_NOCRLF))
CRLF;
return(l);
case CTRL_N: /* Ctrl-N Next word */
if(i<l && term_supports(ANSI)) {
x=i;
while(str1[i]!=' ' && i<l)
i++;
while(str1[i]==' ' && i<l)
i++;
cursor_right(i-x);
}
break;
case CTRL_R: /* Ctrl-R Redraw Line */
if(!(mode&K_NOECHO))
redrwstr(str1,i,l,0);
break;
case CTRL_V: /* Ctrl-V Toggles Insert/Overwrite */
if(mode&K_NOECHO)
break;
console^=CON_INSERT;
insert_indicator();
break;
case CTRL_W: /* Ctrl-W Delete word left */
if(i<l) {
x=i; /* x=original offset */
while(i && str1[i-1]==' ') {
outchar(BS);
i--;
}
while(i && str1[i-1]!=' ') {
outchar(BS);
i--;
}
z=i; /* i=z=new offset */
while(z<l-(x-i)) { /* move chars in string */
outchar(str1[z]=str1[z+(x-i)]);
z++;
}
while(z<l) { /* write over extra chars */
outchar(' ');
z++;
}
cursor_left(z-i); /* back to new x corridnant */
l-=x-i; /* l=new length */
} else {
while(i && str1[i-1]==' ') {
i--;
l--;
if(!(mode&K_NOECHO))
backspace();
}
while(i && str1[i-1]!=' ') {
i--;
l--;
if(!(mode&K_NOECHO))
backspace();
}
}
break;
case CTRL_Y: /* Ctrl-Y Delete to end of line */
if(i!=l) { /* if not at EOL */
if(!(mode&K_NOECHO))
cleartoeol();
l=i;
break;
}
/* fall-through */
case CTRL_X: /* Ctrl-X Delete entire line */
if(mode&K_NOECHO)
l=0;
else {
cursor_left(i);
cleartoeol();
l=0;
}
i=0;
console|=CON_DELETELINE;
break;
case CTRL_Z: /* Undo */
if(!(mode&K_NOECHO)) {
while(i--)
backspace();
}
SAFECOPY(str1,undo);
i=l=strlen(str1);
rputs(str1);
cleartoeol();
break;
case 28: /* Ctrl-\ Previous word */
if(i && !(mode&K_NOECHO)) {
x=i;
while(str1[i-1]==' ' && i)
i--;
while(str1[i-1]!=' ' && i)
i--;
cursor_left(x-i);
}
break;
case 29: /* Ctrl-]/Left Arrow Reverse Cursor Movement */
if(i==0) {
if(mode&K_LEFTEXIT)
console|=CON_LEFTARROW;
break;
}
if(!(mode&K_NOECHO)) {
cursor_left(); /* move cursor left one */
i--;
}
break;
case 30: /* Ctrl-^/Up Arrow */
if(!(mode&K_EDIT))
break;
#if 1
if(i>l)
l=i;
str1[l]=0;
strcpy(strout,str1);
if((strip_invalid_attr(strout) || console&CON_INSERT) && !(mode&K_NOECHO))
redrwstr(strout,i,l,K_MSG);
if(mode&K_LINE && !(mode&K_NOECHO))
attr(LIGHTGRAY);
console|=CON_UPARROW;
return(l);
#else
console|=CON_UPARROW;
break;
#endif
case DEL: /* Ctrl-BkSpc (DEL) Delete current char */
if(i==l) { /* Backspace if end of line */
if(i) {
i--;
l--;
if(!(mode&K_NOECHO))
backspace();
}
break;
}
l--;
z=i;
while(z<l) { /* move the characters in the line */
outchar(str1[z]=str1[z+1]);
z++;
}
outchar(' '); /* write over the last char */
cursor_left((l-i)+1);
break;
default:
if(mode&K_WRAP && i==maxlen && ch>=' ' && !(console&CON_INSERT)) {
str1[i]=0;
if(ch==' ' && !(mode&K_CHAT)) { /* don't wrap a space */
strcpy(strout,str1); /* as last char */
if(strip_invalid_attr(strout) && !(mode&K_NOECHO))
redrwstr(strout,i,l,K_MSG);
if(!(mode&(K_NOECHO|K_NOCRLF)))
CRLF;
return(i);
}
x=i-1;
z=1;
wordwrap[0]=ch;
while(str1[x]!=' ' && x)
wordwrap[z++]=str1[x--];
if(x<(maxlen/2)) {
wordwrap[1]=0; /* only wrap one character */
strcpy(strout,str1);
if(strip_invalid_attr(strout) && !(mode&K_NOECHO))
redrwstr(strout,i,l,K_MSG);
if(!(mode&(K_NOECHO|K_NOCRLF)))
CRLF;
return(i);
}
wordwrap[z]=0;
if(!(mode&K_NOECHO))
while(z--) {
backspace();
i--;
}
strrev(wordwrap);
str1[x]=0;
strcpy(strout,str1);
if(strip_invalid_attr(strout) && !(mode&K_NOECHO))
redrwstr(strout,i,x,mode);
if(!(mode&(K_NOECHO|K_NOCRLF)))
CRLF;
return(x);
}
if(i<maxlen && ch>=' ') {
if(mode&K_UPRLWR)
if(!i || (i && (str1[i-1]==' ' || str1[i-1]=='-'
|| str1[i-1]=='.' || str1[i-1]=='_')))
ch=toupper(ch);
else
ch=tolower(ch);
if(console&CON_INSERT && i!=l) {
if(l<maxlen) /* l<maxlen */
l++;
for(x=l;x>i;x--)
str1[x]=str1[x-1];
column+=rprintf("%.*s",l-i,str1+i);
cursor_left(l-i);
#if 0
if(i==maxlen-1) {
bputs(" \b\b");
console&=~CON_INSERT;
}
#endif
}
str1[i++]=ch;
if(!(mode&K_NOECHO))
outchar(ch);
} else
outchar(BEL); /* Added at Angus McLeod's request */
}
if(i>l)
l=i;
if(mode&K_CHAT && !l)
return(0);
}
getstr_offset=i;
if(!online)
return(0);
if(i>l)
l=i;
str1[l]=0;
if(!(sys_status&SS_ABORT)) {
strcpy(strout,str1);
if((strip_invalid_attr(strout) || console&CON_INSERT) && !(mode&K_NOECHO))
redrwstr(strout,i,l,K_MSG);
}
else
l=0;
if(mode&K_LINE && !(mode&K_NOECHO)) attr(LIGHTGRAY);
if(!(mode&(K_NOCRLF|K_NOECHO))) {
outchar(CR);
if(!(mode&K_MSG && sys_status&SS_ABORT))
outchar(LF);
lncntr=0;
}
return(l);
}
/****************************************************************************/
/* Hot keyed number input routine. */
/* Returns a valid number between 1 and max, 0 if no number entered, or -1 */
/* if the user hit 'Q' or ctrl-c */
/****************************************************************************/
long sbbs_t::getnum(ulong max, ulong dflt)
{
uchar ch,n=0;
long i=0;
while(online) {
ch=getkey(K_UPPER);
if(ch>0x7f)
continue;
if(ch=='Q') {
outchar('Q');
if(useron.misc&COLDKEYS)
ch=getkey(K_UPPER);
if(ch==BS || ch==DEL) {
backspace();
continue;
}
CRLF;
lncntr=0;
return(-1);
}
else if(sys_status&SS_ABORT) {
CRLF;
lncntr=0;
return(-1);
}
else if(ch==CR) {
CRLF;
lncntr=0;
if(!n)
return(dflt);
return(i);
}
else if((ch==BS || ch==DEL) && n) {
backspace();
i/=10;
n--;
}
else if(isdigit(ch) && (i*10UL)+(ch&0xf)<=max && (dflt || ch!='0' || n)) {
i*=10L;
n++;
i+=ch&0xf;
outchar(ch);
if(i*10UL>max && !(useron.misc&COLDKEYS)) {
CRLF;
lncntr=0;
return(i);
}
}
}
return(0);
}
void sbbs_t::insert_indicator(void)
{
if(term_supports(ANSI)) {
ansi_save();
ansi_gotoxy(cols,1);
uchar z=curatr; /* and go to EOL */
if(console&CON_INSERT) {
attr(BLINK|BLACK|(LIGHTGRAY<<4));
outchar('I');
} else {
attr(LIGHTGRAY);
outchar(' ');
}
attr(z);
ansi_restore();
}
}