void sbbs_t::readmail(uint usernumber, int which)
{
char str[256],str2[256],str3[256],done=0,domsg=1
,*p,*tp,*sp,ch;
char tmp[512];
int i,j;
int error;
int mismatches=0,act;
long length,l,lm_mode;
ulong last;
bool replied;
file_t fd;
mail_t *mail;
smbmsg_t msg;
if(which==MAIL_SENT && useron.rest&FLAG('K')) {
bputs(text[R_ReadSentMail]);
return;
}
msg.total_hfields=0; /* init to NULL, cause not allocated yet */
fd.dir=cfg.total_dirs+1; /* temp dir for file attachments */
if((i=smb_stack(&smb,SMB_STACK_PUSH))!=0) {
errormsg(WHERE,ERR_OPEN,"MAIL",i);
return; }
sprintf(smb.file,"%smail",cfg.data_dir);
smb.retry_time=cfg.smb_retry_time;
smb.subnum=INVALID_SUB;
if((i=smb_open(&smb))!=0) {
smb_stack(&smb,SMB_STACK_POP);
errormsg(WHERE,ERR_OPEN,smb.file,i,smb.last_error);
return; }
if(cfg.sys_misc&SM_SYSVDELM && (SYSOP || cfg.sys_misc&SM_USRVDELM))
lm_mode=LM_INCDEL;
else
lm_mode=0;
mail=loadmail(&smb,&smb.msgs,usernumber,which,lm_mode);
if(!smb.msgs) {
if(which==MAIL_SENT)
bputs(text[NoMailSent]);
else if(which==MAIL_ALL)
bputs(text[NoMailOnSystem]);
else
bputs(text[NoMailWaiting]);
smb_close(&smb);
smb_stack(&smb,SMB_STACK_POP);
return; }
last=smb.status.last_msg;
if(which==MAIL_SENT)
act=NODE_RSML;
else if(which==MAIL_ALL)
act=NODE_SYSP;
else
act=NODE_RMAL;
action=act;
if(smb.msgs>1 && which!=MAIL_ALL) {
if(which==MAIL_SENT)
bputs(text[MailSentLstHdr]);
else
bputs(text[MailWaitingLstHdr]);
for(smb.curmsg=0;smb.curmsg<smb.msgs && !msgabort();smb.curmsg++) {
if(msg.total_hfields)
smb_freemsgmem(&msg);
msg.total_hfields=0;
msg.idx.offset=mail[smb.curmsg].offset;
if(!loadmsg(&msg,mail[smb.curmsg].number))
continue;
smb_unlockmsghdr(&smb,&msg);
bprintf(text[MailWaitingLstFmt],smb.curmsg+1
,which==MAIL_SENT ? msg.to
: (msg.hdr.attr&MSG_ANONYMOUS) && !SYSOP ? text[Anonymous]
: msg.from
,msg.hdr.attr&MSG_DELETE ? '-' : msg.hdr.attr&MSG_REPLIED ? 'R'
: msg.hdr.attr&MSG_READ ? ' '
: msg.from_net.type || msg.to_net.type ? 'N':'*'
,msg.subj);
smb_freemsgmem(&msg);
msg.total_hfields=0; }
ASYNC;
if(!(sys_status&SS_ABORT)) {
bprintf(text[StartWithN],1L);
if((long)(smb.curmsg=getnum(smb.msgs))>0)
smb.curmsg--;
else if((long)smb.curmsg==-1) {
free(mail);
smb_close(&smb);
smb_stack(&smb,SMB_STACK_POP);
return; } }
sys_status&=~SS_ABORT; }
else {
smb.curmsg=0;
if(which==MAIL_ALL)
domsg=0; }
if(which==MAIL_SENT) {
sprintf(str,"%s read sent mail",useron.alias);
logline("E",str);
} else if(which==MAIL_ALL) {
sprintf(str,"%s read all mail",useron.alias);
logline("S+",str);
} else {
sprintf(str,"%s read mail",useron.alias);
logline("E",str);
}
if(useron.misc&RIP) {
strcpy(str,which==MAIL_YOUR ? "mailread" : which==MAIL_ALL ?
"allmail" : "sentmail");
menu(str); }
while(online && !done) {
action=act;
if(msg.total_hfields)
smb_freemsgmem(&msg);
msg.total_hfields=0;
msg.idx.offset=mail[smb.curmsg].offset;
msg.idx.number=mail[smb.curmsg].number;
msg.idx.to=mail[smb.curmsg].to;
msg.idx.from=mail[smb.curmsg].from;
msg.idx.subj=mail[smb.curmsg].subj;
if((i=smb_locksmbhdr(&smb))!=0) {
errormsg(WHERE,ERR_LOCK,smb.file,i);
break; }
if((i=smb_getstatus(&smb))!=0) {
smb_unlocksmbhdr(&smb);
errormsg(WHERE,ERR_READ,smb.file,i);
break; }
smb_unlocksmbhdr(&smb);
if(smb.status.last_msg!=last) { /* New messages */
last=smb.status.last_msg;
free(mail);
mail=loadmail(&smb,&smb.msgs,usernumber,which,lm_mode); /* So re-load */
if(!smb.msgs)
break;
for(smb.curmsg=0;smb.curmsg<smb.msgs;smb.curmsg++)
if(mail[smb.curmsg].number==msg.idx.number)
break;
if(smb.curmsg>=smb.msgs)
smb.curmsg=(smb.msgs-1);
continue; }
if(!loadmsg(&msg,mail[smb.curmsg].number)) { /* Message header gone */
if(mismatches>5) { /* We can't do this too many times in a row */
errormsg(WHERE,ERR_CHK,"message number",mail[smb.curmsg].number);
break; }
free(mail);
mail=loadmail(&smb,&smb.msgs,usernumber,which,lm_mode);
if(!smb.msgs)
break;
if(smb.curmsg>(smb.msgs-1))
smb.curmsg=(smb.msgs-1);
mismatches++;
continue; }
smb_unlockmsghdr(&smb,&msg);
msg.idx.attr=msg.hdr.attr;
mismatches=0;
if(domsg && !(sys_status&SS_ABORT)) {
show_msg(&msg
,msg.from_ext && msg.idx.from==1 && !msg.from_net.type
? 0:P_NOATCODES);
if(msg.hdr.auxattr&MSG_FILEATTACH) { /* Attached file */
smb_getmsgidx(&smb,&msg);
strcpy(str,msg.subj); /* filenames in title */
// strupr(str);
tp=str;
while(online) {
p=strchr(tp,' ');
if(p) *p=0;
sp=strrchr(tp,'/'); /* sp is slash pointer */
if(!sp) sp=strrchr(tp,'\\');
if(sp) tp=sp+1;
padfname(tp,fd.name);
sprintf(str2,"%sfile/%04u.in/%s" /* str2 is path/fname */
,cfg.data_dir,msg.idx.to,tp);
length=flength(str2);
if(length<1)
bputs(text[FileNotFound]);
else if(!(useron.exempt&FLAG('T')) && cur_cps && !SYSOP
&& length/(long)cur_cps>(time_t)timeleft)
bputs(text[NotEnoughTimeToDl]);
else {
sprintf(str3,text[DownloadAttachedFileQ]
,tp,ultoac(length,tmp));
if(length>0L && yesno(str3)) {
#if 0 /* no such thing as local logon */
if(online==ON_LOCAL) {
bputs(text[EnterPath]);
if(getstr(str3,60,K_LINE)) {
backslashcolon(str3);
sprintf(tmp,"%s%s",str3,tp);
if(!mv(str2,tmp,which!=MAIL_YOUR)) {
logon_dlb+=length;
logon_dls++;
useron.dls=(ushort)adjustuserrec(&cfg,useron.number
,U_DLS,5,1);
useron.dlb=adjustuserrec(&cfg,useron.number
,U_DLB,10,length);
bprintf(text[FileNBytesSent]
,fd.name,ultoac(length,tmp)); } } }
else
#endif
{ /* Remote User */
xfer_prot_menu(XFER_DOWNLOAD);
mnemonics(text[ProtocolOrQuit]);
strcpy(str3,"Q");
for(i=0;i<cfg.total_prots;i++)
if(cfg.prot[i]->dlcmd[0]
&& chk_ar(cfg.prot[i]->ar,&useron)) {
sprintf(tmp,"%c",cfg.prot[i]->mnemonic);
strcat(str3,tmp); }
ch=(char)getkeys(str3,0);
for(i=0;i<cfg.total_prots;i++)
if(cfg.prot[i]->dlcmd[0] && ch==cfg.prot[i]->mnemonic
&& chk_ar(cfg.prot[i]->ar,&useron))
break;
if(i<cfg.total_prots) {
error=protocol(cfg.prot[i],XFER_DOWNLOAD,str2,nulstr,false);
if(checkprotresult(cfg.prot[i],error,&fd)) {
if(which==MAIL_YOUR)
remove(str2);
logon_dlb+=length; /* Update stats */
logon_dls++;
useron.dls=(ushort)adjustuserrec(&cfg,useron.number
,U_DLS,5,1);
useron.dlb=adjustuserrec(&cfg,useron.number
,U_DLB,10,length);
bprintf(text[FileNBytesSent]
,fd.name,ultoac(length,tmp));
sprintf(str3
,"%s downloaded attached file: %s"
,useron.alias
,fd.name);
logline("D-",str3);
}
autohangup();
}
}
}
}
if(!p)
break;
tp=p+1;
while(*tp==' ') tp++;
}
sprintf(str,"%sfile/%04u.in",cfg.data_dir,usernumber);
rmdir(str); }
if(which==MAIL_YOUR && !(msg.hdr.attr&MSG_READ)) {
mail[smb.curmsg].attr|=MSG_READ;
if(thisnode.status==NODE_INUSE)
telluser(&msg);
if(msg.total_hfields)
smb_freemsgmem(&msg);
msg.total_hfields=0;
msg.idx.offset=0; /* Search by number */
if(smb_locksmbhdr(&smb)==SMB_SUCCESS) { /* Lock the entire base */
if(loadmsg(&msg,msg.idx.number)) {
msg.hdr.attr|=MSG_READ;
msg.idx.attr=msg.hdr.attr;
if((i=smb_putmsg(&smb,&msg))!=0)
errormsg(WHERE,ERR_WRITE,smb.file,i);
smb_unlockmsghdr(&smb,&msg); }
smb_unlocksmbhdr(&smb); }
if(!msg.total_hfields) { /* unsuccessful reload */
domsg=0;
continue; } }
}
else domsg=1;
if(useron.misc&WIP) {
strcpy(str,which==MAIL_YOUR ? "mailread" : which==MAIL_ALL ?
"allmail" : "sentmail");
menu(str); }
ASYNC;
if(which==MAIL_SENT)
bprintf(text[ReadingSentMail],smb.curmsg+1,smb.msgs);
else if(which==MAIL_ALL)
bprintf(text[ReadingAllMail],smb.curmsg+1,smb.msgs);
else
bprintf(text[ReadingMail],smb.curmsg+1,smb.msgs);
sprintf(str,"ADFLNQRT?<>[]{}-+");
if(SYSOP)
strcat(str,"CUSPH");
if(which!=MAIL_YOUR)
strcat(str,"E");
l=getkeys(str,smb.msgs);
if(l&0x80000000L) {
if(l==-1) /* ctrl-c */
break;
smb.curmsg=(l&~0x80000000L)-1;
continue; }
switch(l) {
case 'A': /* Auto-reply to last piece */
case 'R':
if(l==(cfg.sys_misc&SM_RA_EMU ? 'A' : 'R')) /* re-read last message */
break;
if(which==MAIL_SENT)
break;
if((msg.hdr.attr&MSG_ANONYMOUS) && !SYSOP) {
bputs(text[CantReplyToAnonMsg]);
break; }
quotemsg(&msg,1);
if(msg.from_net.addr==NULL)
SAFECOPY(str,msg.from);
else if(msg.from_net.type==NET_FIDO) /* FidoNet type */
SAFEPRINTF2(str,"%s@%s",msg.from
,smb_faddrtoa((faddr_t *)msg.from_net.addr,tmp));
else if(msg.from_net.type==NET_INTERNET) {
if(msg.replyto_net.type==NET_INTERNET)
SAFECOPY(str,(char *)msg.replyto_net.addr);
else
SAFECOPY(str,(char *)msg.from_net.addr);
} else
SAFEPRINTF2(str,"%s@%s",msg.from,(char*)msg.from_net.addr);
SAFECOPY(str2,str);
bputs(text[Email]);
if(!getstr(str,64,K_EDIT|K_AUTODEL))
break;
msg.hdr.number=msg.idx.number;
smb_getmsgidx(&smb,&msg);
if(!stricmp(str2,str)) /* Reply to sender */
sprintf(str2,text[Regarding],msg.subj);
else /* Reply to other */
sprintf(str2,text[RegardingByOn],msg.subj,msg.from
,timestr((time_t *)&msg.hdr.when_written.time));
p=strrchr(str,'@');
if(p) { /* name @addr */
replied=netmail(str,msg.subj,WM_QUOTE);
sprintf(str2,text[DeleteMailQ],msg.from); }
else {
if(!msg.from_net.type && !stricmp(str,msg.from))
replied=email(msg.idx.from,str2,msg.subj,WM_EMAIL|WM_QUOTE);
else if(!stricmp(str,"SYSOP"))
replied=email(1,str2,msg.subj,WM_EMAIL|WM_QUOTE);
else if((i=finduser(str))!=0)
replied=email(i,str2,msg.subj,WM_EMAIL|WM_QUOTE);
else
replied=false;
sprintf(str2,text[DeleteMailQ],msg.from); }
if(replied==true && !(msg.hdr.attr&MSG_REPLIED)) {
if(msg.total_hfields)
smb_freemsgmem(&msg);
msg.total_hfields=0;
msg.idx.offset=0;
if(smb_locksmbhdr(&smb)==SMB_SUCCESS) { /* Lock the entire base */
if(loadmsg(&msg,msg.idx.number)) {
msg.hdr.attr|=MSG_REPLIED;
msg.idx.attr=msg.hdr.attr;
if((i=smb_putmsg(&smb,&msg))!=0)
errormsg(WHERE,ERR_WRITE,smb.file,i);
smb_unlockmsghdr(&smb,&msg);
}
smb_unlocksmbhdr(&smb);
}
}
if(msg.hdr.attr&MSG_DELETE || !yesno(str2)) {
if(smb.curmsg<smb.msgs-1) smb.curmsg++;
else done=1;
break; }
/* Case 'D': must follow! */
case 'D': /* Delete last piece (toggle) */
if(msg.hdr.attr&MSG_PERMANENT) {
bputs("\r\nPermanent message.\r\n");
domsg=0;
break; }
if(msg.total_hfields)
smb_freemsgmem(&msg);
msg.total_hfields=0;
msg.idx.offset=0;
if(smb_locksmbhdr(&smb)==SMB_SUCCESS) { /* Lock the entire base */
if(loadmsg(&msg,msg.idx.number)) {
msg.hdr.attr^=MSG_DELETE;
msg.idx.attr=msg.hdr.attr;
// mail[smb.curmsg].attr=msg.hdr.attr;
if((i=smb_putmsg(&smb,&msg))!=0)
errormsg(WHERE,ERR_WRITE,smb.file,i);
smb_unlockmsghdr(&smb,&msg);
}
smb_unlocksmbhdr(&smb);
}
if(smb.curmsg<smb.msgs-1) smb.curmsg++;
else done=1;
break;
case 'F': /* Forward last piece */
domsg=0;
bputs(text[ForwardMailTo]);
if(!getstr(str,LEN_ALIAS,cfg.uq&UQ_NOUPRLWR ? K_NONE:K_UPRLWR))
break;
i=finduser(str);
if(!i)
break;
domsg=1;
if(smb.curmsg<smb.msgs-1) smb.curmsg++;
else done=1;
smb_getmsgidx(&smb,&msg);
forwardmail(&msg,i);
if(msg.hdr.attr&MSG_PERMANENT)
break;
sprintf(str2,text[DeleteMailQ],msg.from);
if(!yesno(str2))
break;
if(msg.total_hfields)
smb_freemsgmem(&msg);
msg.total_hfields=0;
msg.idx.offset=0;
if(smb_locksmbhdr(&smb)==SMB_SUCCESS) { /* Lock the entire base */
if(loadmsg(&msg,msg.idx.number)) {
msg.hdr.attr|=MSG_DELETE;
msg.idx.attr=msg.hdr.attr;
// mail[smb.curmsg].attr=msg.hdr.attr;
if((i=smb_putmsg(&smb,&msg))!=0)
errormsg(WHERE,ERR_WRITE,smb.file,i);
smb_unlockmsghdr(&smb,&msg);
}
smb_unlocksmbhdr(&smb);
}
break;
case 'H':
domsg=0;
msghdr(&msg);
break;
case 'L': /* List mail */
domsg=0;
bprintf(text[StartWithN],(long)smb.curmsg+1);
if((i=getnum(smb.msgs))>0)
i--;
else if(i==-1)
break;
else
i=smb.curmsg;
if(which==MAIL_SENT)
bputs(text[MailSentLstHdr]);
else if(which==MAIL_ALL)
bputs(text[MailOnSystemLstHdr]);
else
bputs(text[MailWaitingLstHdr]);
for(;i<smb.msgs && !msgabort();i++) {
if(msg.total_hfields)
smb_freemsgmem(&msg);
msg.total_hfields=0;
msg.idx.offset=mail[i].offset;
if(!loadmsg(&msg,mail[i].number))
continue;
smb_unlockmsghdr(&smb,&msg);
if(which==MAIL_ALL)
bprintf(text[MailOnSystemLstFmt]
,i+1,msg.from,msg.to
,msg.hdr.attr&MSG_DELETE ? '-' : msg.hdr.attr&MSG_REPLIED ? 'R'
: msg.hdr.attr&MSG_READ ? ' '
: msg.from_net.type || msg.to_net.type ? 'N':'*'
,msg.subj);
else
bprintf(text[MailWaitingLstFmt],i+1
,which==MAIL_SENT ? msg.to
: (msg.hdr.attr&MSG_ANONYMOUS) && !SYSOP
? text[Anonymous] : msg.from
,msg.hdr.attr&MSG_DELETE ? '-' : msg.hdr.attr&MSG_REPLIED ? 'R'
: msg.hdr.attr&MSG_READ ? ' '
: msg.from_net.type || msg.to_net.type ? 'N':'*'
,msg.subj);
smb_freemsgmem(&msg);
msg.total_hfields=0; }
break;
case 'Q':
done=1;
break;
case 'C': /* Change attributes of last piece */
i=chmsgattr(msg.hdr.attr);
if(msg.hdr.attr==i)
break;
if(msg.total_hfields)
smb_freemsgmem(&msg);
msg.total_hfields=0;
msg.idx.offset=0;
if(smb_locksmbhdr(&smb)==SMB_SUCCESS) { /* Lock the entire base */
if(loadmsg(&msg,msg.idx.number)) {
msg.hdr.attr=msg.idx.attr=(ushort)i;
if((i=smb_putmsg(&smb,&msg))!=0)
errormsg(WHERE,ERR_WRITE,smb.file,i);
smb_unlockmsghdr(&smb,&msg);
}
smb_unlocksmbhdr(&smb);
}
break;
case '>':
for(i=smb.curmsg+1;i<smb.msgs;i++)
if(mail[i].subj==msg.idx.subj)
break;
if(i<smb.msgs)
smb.curmsg=i;
else
domsg=0;
break;
case '<': /* Search Title backward */
for(i=smb.curmsg-1;i>-1;i--)
if(mail[i].subj==msg.idx.subj)
break;
if(i>-1)
smb.curmsg=i;
else
domsg=0;
break;
case '}': /* Search Author forward */
strcpy(str,msg.from);
for(i=smb.curmsg+1;i<smb.msgs;i++)
if(mail[i].from==msg.idx.from)
break;
if(i<smb.msgs)
smb.curmsg=i;
else
domsg=0;
break;
case 'N': /* Got to next un-read message */
for(i=smb.curmsg+1;i<smb.msgs;i++)
if(!(mail[i].attr&MSG_READ))
break;
if(i<smb.msgs)
smb.curmsg=i;
else
domsg=0;
break;
case '{': /* Search Author backward */
strcpy(str,msg.from);
for(i=smb.curmsg-1;i>-1;i--)
if(mail[i].from==msg.idx.from)
break;
if(i>-1)
smb.curmsg=i;
else
domsg=0;
break;
case ']': /* Search To User forward */
strcpy(str,msg.to);
for(i=smb.curmsg+1;i<smb.msgs;i++)
if(mail[i].to==msg.idx.to)
break;
if(i<smb.msgs)
smb.curmsg=i;
else
domsg=0;
break;
case '[': /* Search To User backward */
strcpy(str,msg.to);
for(i=smb.curmsg-1;i>-1;i--)
if(mail[i].to==msg.idx.to)
break;
if(i>-1)
smb.curmsg=i;
else
domsg=0;
break;
case 0:
case '+':
if(smb.curmsg<smb.msgs-1) smb.curmsg++;
else done=1;
break;
case '-':
if(smb.curmsg>0) smb.curmsg--;
break;
case 'S':
domsg=0;
/*
if(!yesno(text[SaveMsgToFile]))
break;
*/
bputs(text[FileToWriteTo]);
if(getstr(str,40,K_LINE))
msgtotxt(&msg,str,1,1);
break;
case 'E':
editmsg(&msg,INVALID_SUB);
break;
case 'T':
domsg=0;
i=smb.curmsg;
if(i) i++;
j=i+10;
if(j>smb.msgs)
j=smb.msgs;
if(which==MAIL_SENT)
bputs(text[MailSentLstHdr]);
else if(which==MAIL_ALL)
bputs(text[MailOnSystemLstHdr]);
else
bputs(text[MailWaitingLstHdr]);
for(;i<j;i++) {
if(msg.total_hfields)
smb_freemsgmem(&msg);
msg.total_hfields=0;
msg.idx.offset=mail[i].offset;
if(!loadmsg(&msg,mail[i].number))
continue;
smb_unlockmsghdr(&smb,&msg);
if(which==MAIL_ALL)
bprintf(text[MailOnSystemLstFmt]
,i+1,msg.from,msg.to
,msg.hdr.attr&MSG_DELETE ? '-' : msg.hdr.attr&MSG_REPLIED ? 'R'
: msg.hdr.attr&MSG_READ ? ' '
: msg.from_net.type || msg.to_net.type ? 'N':'*'
,msg.subj);
else
bprintf(text[MailWaitingLstFmt],i+1
,which==MAIL_SENT ? msg.to
: (msg.hdr.attr&MSG_ANONYMOUS) && !SYSOP
? text[Anonymous] : msg.from
,msg.hdr.attr&MSG_DELETE ? '-' : msg.hdr.attr&MSG_REPLIED ? 'R'
: msg.hdr.attr&MSG_READ ? ' '
: msg.from_net.type || msg.to_net.type ? 'N':'*'
,msg.subj);
smb_freemsgmem(&msg);
msg.total_hfields=0; }
smb.curmsg=(i-1);
break;
case 'U': /* user edit */
msg.hdr.number=msg.idx.number;
smb_getmsgidx(&smb,&msg);
useredit(which==MAIL_SENT ? msg.idx.to : msg.idx.from);
break;
case 'P': /* Purge author and all mail to/from */
if(noyes(text[AreYouSureQ]))
break;
msg.hdr.number=msg.idx.number;
smb_getmsgidx(&smb,&msg);
purgeuser(msg.idx.from);
if(smb.curmsg<smb.msgs-1) smb.curmsg++;
break;
case '?':
strcpy(str,which==MAIL_YOUR ? "mailread" : which==MAIL_ALL
? "allmail" : "sentmail");
menu(str);
if(SYSOP && which==MAIL_SENT)
menu("syssmail");
else if(SYSOP && which==MAIL_YOUR)
menu("sysmailr"); /* Sysop Mail Read */
domsg=0;
break;
} }
if(msg.total_hfields)
smb_freemsgmem(&msg);
if(smb.msgs)
free(mail);
/***************************************/
/* Delete messages marked for deletion */
/***************************************/
if(cfg.sys_misc&SM_DELEMAIL) {
if((i=smb_locksmbhdr(&smb))!=0) /* Lock the base, so nobody */
errormsg(WHERE,ERR_LOCK,smb.file,i); /* messes with the index */
else
delmail(usernumber,which); }
smb_close(&smb);
smb_stack(&smb,SMB_STACK_POP);
}
/*
* mainloop() -
* основной цикл работы редактора
*/
mainloop()
{
int i,m,first=1;
register int j;
int clsave,ccsave;
int k;
/* Хитрости с экономией памяти */
register int *lre1= &lread1;
#define lread1 (*lre1)
int thiscol, thisrow;
char ich[8], *cp;
/* Для команд с тремя вариантами аргументов */
int (*lnfun)(),(*spfun)();
int openlines(), openspaces(), closelines(),closespaces(),picklines(),
pickspaces();
/* === */
extern int templ[4];
struct viewport *oport;
/*
* Обработка одного символа или команды
* ====================================
*/
if (cursorline== 0) oldcline = 1;
if (cursorcol == 0) oldccol = 1;
#ifndef lint
goto funcdone;
#endif
FOREVER
{
csrsw = clrsw = 0;
read1();
if (errsw)
{
errsw = 0;
clrsw = 1;
goto errclear;
}
/*
* Редактирование в строке
*/
if ((! CTRLCHAR) || lread1 == CCCTRLQUOTE || lread1 == CCBACKSPACE || lread1 == CCDELCH)
{
/* Отмена в 1 колонке */
if (lread1 == CCBACKSPACE && cursorcol == 0)
{
lread1 = -1;
goto contin;
}
if (openwrite[curfile] == 0) goto nowriterr;
/* Строки у нас нет? Дай! */
if (clineno != (i = curwksp->ulhclno+cursorline))
getlin(i);
/* исключение символа */
if (lread1==CCDELCH || (imodesw && lread1==CCBACKSPACE) )
{
thiscol = cursorcol + curwksp->ulhccno;
thisrow = cursorline;
if (lread1 == CCBACKSPACE) thiscol--;
if (ncline < thiscol + 2)
{
if (lread1 == CCBACKSPACE) movecursor(LT);
lread1 = -1;
goto contin;
}
for (i=thiscol;i<ncline-2;i++) cline[i] = cline[i+1];
ncline--;
thiscol -= curwksp->ulhccno;
putup(-(1+thiscol),cursorline);
poscursor(thiscol,thisrow);
fcline = 1;
lread1 = -1;
goto contin;
}
/* Проверка на границу окна */
if (cursorcol > curport->rtext)
{
if (fcline) {
putline(0);
movep(defrport);
goto contin;
}
else goto margerr;
}
fcline = 1;
if (j = (lread1 == CCBACKSPACE))
{
movecursor(LT);
lread1 = ' ';
}
if ((i = cursorcol + curwksp->ulhccno) >=
(lcline - 2)) excline(i+2);
if (i >= ncline-1)
{
for (k=ncline-1; k<=i; k++) cline[k] = ' ';
cline[i+1] = NEWLINE;
ncline = i+2;
}
else if (imodesw)
{
thiscol = cursorcol + curwksp->ulhccno;
thisrow = cursorline;
if (ncline >= lcline) excline(ncline+1);
for (i=ncline;i>thiscol;i--) cline[i] = cline[i-1];
ncline++;
thiscol -= curwksp->ulhccno;
putup(-(1+thiscol),cursorline);
poscursor(thiscol,thisrow);
}
/* Выставим границу */
if (cursorcol >= curport->rtext)
curport->redit = curport->rtext + 1;
/* Замена символа */
if(lread1==CCCTRLQUOTE) lread1 = esc0;
if (cursorcol == curport->rtext - 10) putcha(COBELL);
cline[i] = lread1;
putch(lread1,1);
/* Если переехали границу */
curport->redit = curport->rtext;
if (j) movecursor(LT);
lread1 = -1;
goto contin;
}
/* Сдвиг вниз, если последняя строка */
if (lread1 == CCRETURN )
{
putline(0);
if ( cursorline == curport->btext)
movew(defplline);
if((i=curwksp->ulhccno) !=0) movep(-i);
movecursor(lread1);
lread1= -1;
goto errclear;
}
/*
* Если команда перемещения
*/
if (lread1<=BT) {
movecursor(lread1);
if (lread1 <= VMOTCODE ) {
putline(0);
if(curspos) goto newnumber;
}
lread1 = -1;
goto contin;
}
/* Если граница поля */
if (cursorcol > curport->rtext) poscursor(curport->rtext,cursorline);
putline(0);
if (lread1 == CCQUIT)
{
if (endit() == 0) goto funcdone;
gosw = 0;
return;
}
switch (lread1)
{
case CCENTER:
goto gotarg;
case CCLPORT:
movep(- deflport);
goto funcdone;
case CCSETFILE:
switchfile();
goto funcdone;
case CCCHPORT:
chgport(-1);
goto funcdone;
case CCOPEN:
if (openwrite[curfile]==0) goto nowriterr;
openlines(curwksp->ulhclno + cursorline,definsert);
goto funcdone;
case CCMISRCH:
search(-1);
goto funcdone;
case CCCLOSE:
if (openwrite[curfile]==0)
goto nowriterr;
closelines(curwksp->ulhclno + cursorline, defdelete);
goto funcdone;
case CCPUT:
if (openwrite[curfile]==0)
goto nowriterr;
if (pickbuf->nrows == 0) goto nopickerr;
put(pickbuf,curwksp->ulhclno+cursorline,
curwksp->ulhccno+cursorcol);
goto funcdone;
case CCPICK:
picklines(curwksp->ulhclno + cursorline, defpick);
goto funcdone;
case CCINSMODE:
imodesw = 1 - imodesw; /* change it */
goto funcdone;
case CCGOTO:
gtfcn(0);
goto funcdone;
case CCMIPAGE:
movew(- defmipage * (1+curport->btext));
goto funcdone;
case CCPLSRCH:
search(1);
goto funcdone;
case CCRPORT:
movep(defrport);
goto funcdone;
case CCPLLINE:
movew(defplline);
goto funcdone;
case CCDELCH:
goto notimperr;
case CCSAVEFILE:
savefile(NULL,curfile);
goto funcdone;
case CCMILINE:
movew(-defmiline);
goto funcdone;
case CCDOCMD:
goto notstrerr;
case CCPLPAGE:
movew(defplpage * (1+curport->btext));
goto funcdone;
case CCMAKEPORT:
makeport(deffile);
goto funcdone;
case CCTABS:
settab(curwksp->ulhccno + cursorcol);
goto funcdone;
/* case CCMOVELEFT: */
/* case CCTAB: */
/* case CCMOVEDOWN: */
/* case CCHOME: */
/* case CCRETURN: */
/* case CCMOVEUP: */
default:
goto badkeyerr;
}
/* Повтор ввода аргумента */
reparg:
read1();
if(CTRLCHAR) goto yesarg;
else goto noargerr;
/*
* Дай аргумент!
*/
gotarg:
param(0);
yesarg:
if (lread1 == CCQUIT )
{
if (paraml>0 && (dechars(paramv,paraml),*paramv) == 'a')
{
gosw = 0;
if (*(paramv+1) != 'd') return;
cleanup();
inputfile = -1; /* to force a dump */
fatal("ABORTED");
}
if (endit() == 0) goto funcdone;
gosw = 1;
return;
}
switch (lread1)
{
case CCENTER:
goto funcdone;
case CCLPORT:
if (paramtype <= 0) goto notstrerr;
if (s2i(paramv,&i)) goto notinterr;
movep(-i);
goto funcdone;
case CCSETFILE:
if (paramtype <= 0) goto notstrerr;
if (paramv == 0) goto noargerr;
if ( use0flg || !inputfile)
dechars(paramv,paraml);
use0flg=1;
editfile(paramv,0,0,1,1);
goto funcdone;
case CCCHPORT:
if (paramtype <= 0) goto notstrerr;
if (s2i(paramv,&i)) goto notinterr;
if (i <= 0) goto notposerr;
chgport(i-1);
goto funcdone;
case CCOPEN:
if (openwrite[curfile]==0) goto nowriterr;
if (paramtype == 0) {
splitline(curwksp->ulhclno + paramr0,
paramc0 + curwksp->ulhccno);
goto funcdone;
}
else {
lnfun = openlines;
spfun = openspaces;
goto spdir;
};
case CCMISRCH:
case CCPLSRCH:
if (paramtype <= 0) goto notstrerr;
if (paramv == 0) goto noargerr;
if (searchkey) free(searchkey);
searchkey = paramv;
paraml = 0;
search(lread1==CCPLSRCH?1:-1);
goto funcdone;
case CCCLOSE:
if (openwrite[curfile]==0) goto nowriterr;
if (paramtype == 0) combineline(curwksp->ulhclno + paramr0,
paramc0 + curwksp->ulhccno);
else {
if(paramtype > 0 && paramv && paramv[0]=='>')
{
msrbuf(deletebuf,paramv+1,0);
goto funcdone;
}
lnfun = closelines;
spfun = closespaces;
goto spdir;
}
goto funcdone;
case CCPUT:
if (paramtype > 0 && paramv && paramv[0]=='$' )
{
if (msrbuf(pickbuf,paramv+1,1))goto errclear;
goto funcdone;
}
if (paramtype != 0) goto notstrerr;
if (openwrite[curfile]==0)
goto nowriterr;
if (deletebuf->nrows == 0) goto nodelerr;
put(deletebuf,curwksp->ulhclno+cursorline,
curwksp->ulhccno+cursorcol);
goto funcdone;
case CCMOVELEFT:
case CCTAB:
case CCMOVEDOWN:
case CCHOME:
case CCMOVEUP:
case CCMOVERIGHT:
case CCBACKTAB:
if (s2i(paramv,&i)) goto notinterr;
if (i <= 0) goto notposerr;
m = ((lread1<=BT) ? lread1:0);
while (--i >= 0) movecursor(m);
goto funcdone;
case CCRETURN:
if(paramtype <=0|| !paramv) goto notimperr;
dechars(paramv,paraml);
switch (paramv[0])
{
case '>':
msvtag(paramv+1);
goto funcdone;
case '$':
if(mdeftag(paramv+1)){
lread1= -1;
goto reparg;
}
else goto funcdone;
case 'w':
if(paramv[1]==' ' && paramv[2]=='+')
openwrite[curwksp->wfile]=1;
else openwrite[curwksp->wfile]=0;
goto funcdone;
case 'k':
defkey();
goto funcdone;
case 'r':
rescreen(-1);
goto funcdone; /* Восттановить экран */
case 'd':
if(paramv[1]==' ') defmac(¶mv[2]);
goto funcdone;
case 'q':
lread1=CCQUIT;
if(paramv[1]=='a') {
gosw=0;
return;
}
goto contin;
default:
goto noargerr;
}
case CCPICK:
if (paramtype == 0) goto notimperr;
if (paramtype > 0 && paramv && paramv[0]=='>')
{
msrbuf(pickbuf,paramv+1,0);
goto funcdone;
}
lnfun = picklines;
spfun = pickspaces;
goto spdir;
case CCINSMODE:
imodesw = 1 - imodesw; /* Щелкнем!! */
goto funcdone;
case CCGOTO:
if (paramtype == 0) gtfcn(nlines[curfile]);
else if (paramtype > 0)
{
if(paramv && paramv[0]=='$') {
mgotag(paramv+1);
goto funcdone;
}
if (s2i(paramv,&i)) goto notinterr;
gtfcn(i-1);
}
else goto noargerr;
goto funcdone;
case CCMIPAGE:
if (paramtype <= 0) goto notstrerr;
if (s2i(paramv,&i)) goto notinterr;
movew(- i * (1 + curport->btext));
goto funcdone;
case CCRPORT:
if (paramtype <= 0) goto notstrerr;
if (s2i(paramv,&i)) goto notinterr;
movep(i);
goto funcdone;
case CCPLLINE:
if (paramtype < 0) goto notstrerr;
else if (paramtype == 0) movew(cursorline);
else if (paramtype > 0)
{
if (s2i(paramv,&i)) goto notinterr;
movew(i);
}
goto funcdone;
case CCDELCH:
goto notimperr;
case CCSAVEFILE:
if (paramtype <= 0) goto notstrerr;
if (paramv == 0) goto noargerr;
dechars(paramv,paraml);
savefile(paramv,curfile);
goto funcdone;
case CCMILINE:
if (paramtype < 0) goto notstrerr;
else if (paramtype == 0) movew(cursorline - curport->btext);
else if (paramtype > 0)
{
if (s2i(paramv,&i)) goto notinterr;
movew(-i);
}
goto funcdone;
case CCDOCMD:
if(paramtype<=0) goto notstrerr;
dechars(paramv,paraml);
if (openwrite[curfile] == 0) goto nowriterr;
callexec();
goto funcdone;
case CCPLPAGE:
if (paramtype <= 0) goto notstrerr;
if (s2i(paramv,&i)) goto notinterr;
movew(i * (1 + curport->btext));
goto funcdone;
case CCMAKEPORT:
if (paramtype == 0) removeport();
else if (paramtype < 0) goto notstrerr;
else {
dechars(paramv,paraml);
makeport(paramv);
}
goto funcdone;
case CCTABS:
clrtab(curwksp->ulhccno + cursorcol);
goto funcdone;
default:
goto badkeyerr;
}
spdir:
if (paramtype > 0)
{
if(paramv[0] == '$')
{
if(mdeftag(paramv+1)) goto spdir;
else goto funcdone;
}
if (s2i(paramv,&i)) goto notinterr;
if (i <= 0) goto notposerr;
(*lnfun)(curwksp->ulhclno + cursorline, i);
}
else
{
if (paramc1 == paramc0)
{
(*lnfun)(curwksp->ulhclno+paramr0,
(paramr1-paramr0)+1);
}
else (*spfun)(curwksp->ulhclno + paramr0,
curwksp->ulhccno + paramc0,
(paramc1-paramc0),
(paramr1-paramr0) + 1);
}
goto funcdone;
badkeyerr:
error(DIAG("Illegal key or unnown macro","Неизвестная клавиша или макро"));
goto funcdone;
notstrerr:
error(DIAG("Argument must be a string.","Аргумент должен быть строкой"));
goto funcdone;
noargerr:
error(DIAG("Invalid argument.","Плохой аргумент"));
goto funcdone;
notinterr:
error(DIAG("Argument must be numerik.","Аргумент должен быть числом"));
goto funcdone;
notposerr:
error(DIAG("Argument must be positive.","Аргумент должен быть положительным"));
goto funcdone;
nopickerr:
error(DIAG("Nothing in the pick buffer.","Буфер вставок пуст"));
goto funcdone;
nodelerr:
error (DIAG("Nothing in the close buffer.","Буфер убранных строк пуст"));
goto funcdone;
notimperr:
error(DIAG("Feature not implemented yet.","Еще не определено."));
goto funcdone;
margerr:
error("Margin stusk; move cursor to free.");
goto funcdone;
nowriterr:
error(DIAG("You cannot modify this file!","Вы не можете изменить этот файл."));
goto funcdone;
funcdone:
clrsw = 1;
newnumber:
lread1 = -1; /* signify char read was used */
errclear:
oport = curport;
k = cursorline;
j = cursorcol;
switchport(¶mport);
paramport.redit = PARAMRINFO;
if (clrsw)
{
if (!errsw && !first)
{
poscursor(0,0);
info(blanks,PARAMRINFO);
}
poscursor(PARAMREDIT+2,0);
if (oport->wksp->wfile)
{
info(DIAG("file ","файл "),PARAMRINFO);
info(openfnames[oport->wksp->wfile],PARAMRINFO);
}
info(DIAG(" line "," строка: "),PARAMRINFO);
clsave = cursorline;
first=0;
ccsave = cursorcol;
}
poscursor(ccsave,clsave);
i = oport->wksp->ulhclno + k + 1; /* Рисуем номер строки */
cp = ich + 8;
*--cp = '\0';
do
(*--cp = '0' + (i % 10));
while (i = i/10);
info(cp,PARAMRINFO);
*cp = '\0';
while (cp != ich) *--cp = ' ';
info(ich,PARAMRINFO);
switchport(oport);
paramport.redit = PARAMREDIT;
poscursor(j,k);
if (csrsw)
{
putch(COCURS,1);
poscursor(j,k);
dumpcbuf();
sleep(1);
putup(k,k);
poscursor(j,k);
}
if (imodesw && clrsw && !errsw)
telluser(DIAG(" ***** i n s e r t m o d e *****"," * * * * режим вставки * * * * "),0);
contin:
;
}
#undef lread1
}
