home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AAEMA95A.ZIP / KEYF.CC < prev    next >
Encoding:
C/C++ Source or Header  |  1995-08-17  |  45.7 KB  |  963 lines
  1. /* This file is KEYF.CC */
  2. #include "em.h"
  3. extern char*offscreen;
  4. int compare(line*X,line*Y);
  5. /*-----*/
  6. int caseq(val a,val b){reg int i;if(a.n<0?:b.n<0?:a.n!=b.n?:!a.s?:!b.s)return 0;
  7. for(i=a.n-1;i>=0;i--)if(to_upper(a.s[i])!=to_upper(b.s[i])) return 0; return 1;}
  8. /*-----*/
  9. char Filename[strsize]={0}; val Fn(Filename,0);
  10. /*-----*/
  11. int fileexists(char*s){int F=open(s,1);
  12. if(F>=0) {close(F); return 1;} else return 0;}
  13. /*-----*/
  14. char*keyname(int c,int alt/*=0*/){
  15. int i; val s; static char cc[2]=" ",ct[6]="ctrl ";
  16. if(alt) return altnames[c&255]?:"(unidentified code)";
  17. for(i=0;s=keynames[i],s.s;i++) if(c==s.n) return s.s;
  18. if(c<32) {ct[4]=c+64; return ct;} cc[0]=c; return cc;}
  19. /*-----*/
  20. int yesno(char*pt){char*yn[]={"Yes","No"}; return 1-bottommenu(pt,1,"YN",yn,4);}
  21. /*----- bind key to needing another key typed after it */
  22. void keyarray::subarray(){a=0; n=0;}
  23. void val::subarray(){k=new keyarray; k->subarray(); n=_keyarray;}
  24. /*-----*/
  25. val key0; keyarray keys; /* head of lookup tree of key bindings */
  26. /*----- keyarray[int] : look up key */
  27. val&keyarray::operator[](int N){int i,j; val *Q; if(N<n) return a[N];
  28. j=(N+8)&~7; Q=new val[j]; /* if out of bounds, lengthen array */
  29. for(i=n-1;i>=0;i--) Q[i]=a[i]; for(i=n;i<j;i++) Q[i]=val();
  30. n=j; delete a; a=Q; return a[N]; }
  31. /*----- val[int]: ditto */
  32. val&val::operator[](int N){
  33. if(n!=_keyarray) MOAN("BUG: this is not a keyarray"); return (*k)[N];}
  34. /*----- obey a macstep bound to a char */
  35. void Insert(int N,byte c){int i; for(i=0;i<N;i++) *B+=c;}
  36. /*----- list key binding info in current buffer */
  37. void keyarray::print(int N/*=1*/,int i/*=1*/,int deep/*=1*/){
  38. val*k; int I,j,alt=i?0:1;
  39. for(I=0;I<n;I++) {k=&a[I]; keyseqc[deep]=I; keyseqc[0]=deep+1;
  40.     if(N) {if(!i) if(!altnames[I]) if(!k->n) if(!k->k) continue;
  41.     if(deep>alt) if(!k->k) continue;
  42.     for(j=0;j<deep;j++) *B+=(char)9; /* tab */
  43.     pb("%3d = '%s': %3d %8x ",I,keyname(I,alt),k->n,k->k);}
  44.     else {if(!N) if(!k->k) continue; pb("%k :: ",&keyseq);}
  45.     macstep(*k,1,0).print(); ::newline();
  46.     if(k->n==_char) k->m->print();
  47.     else if(k->n==_keyarray) k->k->print(N,I,deep+1);}}
  48. /*-----*/
  49. void keyarray::search(void(*fn)(val&ka)){val*k; int I;
  50. for(I=0;I<n;I++) if(k=&a[I], k->n==_keyarray) k->k->search(fn); else (*fn)(*k);}
  51. /*-----*/
  52. KF(newline) {reg int i; for(i=0;i<N.i;i++) B->dot/1;}
  53. /*-----*/
  54. KF(linefeed) {reg int i; for(i=0;i<N.i;i++) {B->dot/1; B->dot.r->no_cr(1);}}
  55. /*-----*/
  56. KF(copykill) {(B->Mark(N.i)-B->dot).copykill();}
  57. /*-----*/
  58. KF(page_down) {int i,j=(B->nrows-3)>?1,k=j*N.i; B->dotcc=B->dotcc2;
  59. /* if(!play) if(cursor.r!=255) k+=(B->row1+B->nrows/2-cursor.r); */
  60. if(B->longlines) {B->dispfold(k); return;}
  61. if(N.i>0) for(i=N.i*j;i>0;i--) {if(!(B->start.Down())) break;}
  62. else      for(i=N.i*j;i<0;i++) {if(!(B->start.Up  ())) break;}
  63. if(i>0) {B->dot=B->eof(); MOAN("hit end of buffer");}
  64. if(i<0) {B->dot=B->bof(); MOAN("hit start of buffer");}
  65. B->dot=B->start; for(i=B->nrows/2;i>0;i--) B->down();}
  66. /*-----*/
  67. KF(page_up) {page_down(-N);}
  68. /*-----*/
  69. KF(gotobof) {B->dot.r=B->text.next; B->dot.c=0; B->dotcc=B->dotcc2=-1;}
  70. /*-----*/
  71. KF(gotoeof) {line*L=B->dot.r=B->text.prev; B->dot.c=L->n;}
  72. /*----- remove final CR char and clear 'no CR' bit, if both found */
  73. void crcheck(line*L){if(L->no_cr()) if(L->n) if(L->s[L->n-1]==CR) {
  74.     *L=L->n-1; L->no_cr(0); /* L->la(1); B->changed=1; */ }}
  75. /*-----*/
  76. KF(finalcr) {region R=B->Mark(N.i)-B->dot; line*L; B->changed=1;
  77. for(L=R.beg.r;!L?0:L!=R.end.r;L=L->next) {L->no_cr(0); crcheck(L); L->la(1);}}
  78. /*-----*/
  79. KF(nofinalcr) {region R=B->Mark(N.i)-B->dot; line*L; B->changed=1;
  80. for(L=R.beg.r;!L?0:L!=R.end.r;L=L->next) {L->no_cr(1); crcheck(L); L->la(1);}}
  81. /*-----*/
  82. KF(delet) {int i;
  83. if(N.i>=0) for(i=0;i<N.i;i++) !B->dot; else for(i=0;i>N.i;i--) *B+=' ';}
  84. /*-----*/
  85. KF(insertspaces) {delet(-N);}
  86. /*-----*/
  87. KF(goright) {int i;
  88. if(N.i>=0) for(i=0;i<N.i;i++) B->right(); else for(i=0;i>N.i;i--) B->left();}
  89. /*-----*/
  90. KF(goleft) {goright(-N);}
  91. /*-----*/
  92. KF(godown) {int i; B->dotcc=B->dotcc2;
  93. if(N.i>=0) for(i=0;i<N.i;i++) B->down(); else for(i=0;i>N.i;i--) B->up();}
  94. /*-----*/
  95. KF(goup) {godown(-N);}
  96. /*-----*/
  97. KF(godownpart){int i=0,j,k,n=N.i,p; line*L;
  98. if(!B->longlines) {godown(N); return;} if(n<0) {gouppart(-N,T1); return;}
  99. j=linewhere(B->dot); if(!n) goto X; p=B->dot.r->nparts();
  100. LOOP: i++; j+=gp_Cols; if(k=(j<p*gp_Cols)) if(i<n) goto LOOP;
  101. if(!k) if(L=B->dot.r->next) {
  102.     B->dot.r=L; j%=gp_Cols; if(i<n) {p=L->nparts(); goto LOOP;}}
  103. X: if(T1.n==_int) j=(j/gp_Cols)*gp_Cols+(T1.i>?0);
  104. B->dot.c=B->dot.r->from_tabexp(j-2*(j/gp_Cols));}
  105. /*-----*/
  106. KF(gouppart){int i=0,j,n=N.i; line*L;
  107. if(!B->longlines) {goup(N); return;} if(n<0) {godownpart(-N,T1); return;}
  108. j=linewhere(B->dot); if(!n) goto X;
  109. LOOP: i++; j-=gp_Cols; if(j>=0) if(i<n) goto LOOP;
  110. if(j<0) if(L=B->dot.r->prev) {
  111.     B->dot.r=L; j+=L->nparts()*gp_Cols; if(i<n) goto LOOP;}
  112. X: if(T1.n==_int) j=(j/gp_Cols)*gp_Cols+(T1.i>?0);
  113. B->dot.c=B->dot.r->from_tabexp(j-2*(j/gp_Cols));}
  114. /*-----*/
  115. KF(gotobol) {B->dot.c=0; B->dotcc=B->dotcc2=-1;}
  116. /*-----*/
  117. KF(gotoeol) {B->dot.c=B->dot.r->n; B->dotcc=B->dotcc2=-1;}
  118. /*-----*/
  119. KF(gotocol) {if(N.i<=0 ?1: B->twod ?0: N.i>B->dot.r->n) MOAN("no such column");
  120. goright(N.i-B->dot.c-1,1); B->dotcc=B->dotcc2=-1;}
  121. /*-----*/
  122. KF(whoa) {beep(); MOAN("aborted");}
  123. /*-----*/
  124. KF(backspace) {int i; for(i=0;i<N.i;i++) B->dot.bs();}
  125. /*-----*/
  126. KF(tabulate) {int i; if(B->tabtype) Insert(N.i,9);
  127.     else for(i=N.i;i>0;i--) Insert(sptotab(B->dot.c)+1,' ');}
  128. /*-----*/
  129. KF(kill_to_eol) {int i,j; line*L; obtype=ob_kill; mark Q=B->dot;
  130. if(N.i>=0) {for(i=0;i<N.i;i++) if(Q.c<(j=Q.r->n)) Q.c=j;
  131.     else if(L=Q.r->next) {Q.r=L; Q.c=0;} else break;}
  132. else     {for(i=0;i>N.i;i--) if(Q.c>0) Q.c=0;
  133.     else if(L=Q.r->prev) Q.c=(Q.r=L)->n; else break;} (B->dot-Q).kill();}
  134. /*-----*/
  135. KF(refresh_display){line*L;
  136. if(!N.n){if(B->longlines) B->refresh=1; N.i=B->nrows/2;}
  137. if(N.i>=0) {for(L=B->dot.r;L->prev?N.i>1:0;N.i--,L=L->prev); B->start.r=L;}
  138. int i; if(!N.n?1:N.i<0) for(i=0;i<gp_Rows;i++) Sl[i].ok=0;}
  139. /*-----*/
  140. KF(openline) {int i; for(i=0;i<N.i;i++) B->dot/0;}
  141. /*-----*/
  142. int charfrommenu() {int i,j,K,k,m,n,z=0; mousestate ms; ms=Jerry; Jerry.mc=1;
  143. short ss[gp_Cols*gp_Rows]; c_get(ss,screen,gp_Cols*gp_Rows);
  144. for(i=0;i<=16;i++) gp_clear(i); /* menu */
  145. display("\030 \031 \033 \032 select which char, End aborts, Return chooses",
  146.   16,0,Cyan+8); Jerry.range(16,64);
  147. for(i=0;i<8;i++) for(j=0;j<32;j++) scr(i+i,j+j+j/8)=sch(i*32+j,Orange); K=k=112;
  148. A: k&=0xff; if(z!=-mousemove) Jerry.move(2*(k>>5),2*(k&31));
  149. m=(k/16)|1; n=2*(k&31)+(k&24)/8; scr(m,n)=sch('\030',Green+8); K=k;
  150. switch(z=getkey()) {
  151. case -leftarrow:  k--; break;
  152. case -rightarrow: k++; break;
  153. case -uparrow:    k-=32; break;
  154. case -downarrow:  k+=32; break;
  155. case -mousemove:  k=(Jerry.x/2)+32*(Jerry.y/2); break;
  156. case -end_: case -rbutton: case -mbutton: Jerry=ms; k=-1; goto OUT;
  157. case CR: case -lbutton: Jerry=ms; goto OUT;}
  158. if(K!=k) scr(m,n)=sch(' ',White); goto A;
  159. OUT: c_put(screen,ss,gp_Cols*gp_Rows); return k;}
  160. /*-----*/
  161. KF(literalchar) {int c,i; if(play) return; mousestate ms; ms=Jerry;
  162. display("literal character (alt-0 for ascii-zero, ctrl-tab for menu of chars)",
  163.   B->lastrow,0,Cyan); c=getkey(); B->redraw_info();
  164. Y: switch(c) {
  165. case -mousemove: case -lbuttond: case -mbuttond: case -rbuttond:
  166.     c=getkey(); goto Y;
  167. case LF:  for(i=0;i<N.i;i++) {B->dot/1; B->dot.r->prev->no_cr(1);}
  168.     setref(f,&linefeed); Jerry=ms; return;
  169. case -ctrl_tab: case -lbutton: case -mbutton: case -rbutton:
  170.     if((c=charfrommenu())<0) {basemi.rec=0; Jerry=ms; return;} goto X;
  171. case -alt_0: c=0; X:
  172. default: Jerry=ms;
  173.     if(c>=0) {setref(f,&insert); setrek(T1,(char)c); Insert(N.i,c); return;}
  174.     pr(CW,"%s is not an ASCII char",altnames[-c]?:"this"); MOAN(CW);}}
  175. /*-----*/
  176. KF(times4) {int j; if(play) return;
  177. j=B->lastrow; pr(CW,"numeric arg: %1d",N.i*4); display(CW,j,0,Cyan);
  178. Sl[j].ok=0; Obey(val(N.i*4,_int));}
  179. /*-----*/
  180. KF(killregion) {obtype=ob_kill; (B->Mark(N.i)-B->dot).kill();}
  181. /*----- convert char to as in C string */
  182. KF(cstrchr) {line*L=B->dot.r; int i,n=B->dot.c;
  183. if(n>=L->n) {*B+='\\'; *B+='n'; !B->dot;}
  184. else if(!iscntrl(i=L->s[n]&255)) {if(i=='"' ?1: i=='\\') *B+='\\'; B->right();}
  185. else {*B+='\\'; *B+='0'+i/64; i%=64; *B+='0'+i/8; *B+='0'+i%8; !B->dot;}}
  186. /*----- convert char from as in C string */
  187. KF(cchrstr) {int i,j,n; line*L; if((n=B->dot.c)>=(L=B->dot.r)->n) return;
  188. if(L->s[n]!='\\') {B->right(); return;} !B->dot; if(n>=L->n) return;
  189. switch(i=L->s[n]){
  190. case 'n': !B->dot; *B+=char(LF); break;
  191. case 't': !B->dot; *B+='\011'; break;
  192. case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7':
  193.     !B->dot; j=i-'0';
  194.     if(n<L->n) if(i=L->s[n]-'0',i>=0) if(i<8) {!B->dot; j=j*8+i;
  195.     if(n<L->n) if(i=L->s[n]-'0',i>=0) if(i<8) {!B->dot; j=j*8+i;}}
  196.     *B+=(char)j; break;
  197. default: !B->dot; B->right(); break;}}
  198. /*-----*/
  199. KF(showinfo) {line*L,*K=B->dot.r; int i=0,j=0,k=0,n,w; char*T;
  200. for(L=B->text.next;L;L=L->next) {i++; j+=(L->n+(L->no_cr()?1:2)); if(K==L) k=i;}
  201. j-=2; L=B->dot.r; T=L->s; n=B->dot.c; w=L->to_tabexp(L->n);
  202. pr(disp,"line %1d of %1d, char %1d of %1d(%1d), %1d bytes, at ",
  203.   k,B->text.prev->n?i:i-1,n+1,L->n,w,j);
  204. if(n<L->n) pa(disp,"`%c' = %1d",T[n]?:' ',(byte)T[n]);
  205. else pa(disp,k==i?"eof":"eol"); pa(disp,"; altM gives modes"); Display=disp;}
  206. /*-----*/
  207. KF(savebuffer) {B->write();}
  208. /*-----*/
  209. KF(writebuffer) {T1.getifn(Fn,"file to write to",_buffer); setrek(T1,T1.copy());
  210. if(fileexists(T1.s)) if(!yesno("file exists: OK to overwrite it?")) return;
  211. if(buf_named(T1)) MOAN("this file already has a buffer");
  212. buffer *BB=B; Text U; (new buffer(T1.s,0))->go_to();
  213. U=Text(BB->text.next,BB->text.prev).copy(); B->text.next->del();
  214. B->text.next=U.beg; B->text.prev=U.end; B->dot=mark(B->text.next,0);
  215. if(N.i>0) B->write(); BB->go_to();}
  216. /*-----*/
  217. static buffer *buffertolose=0;
  218. /*-----*/
  219. void losebuffer(val&k){if(k.n==_buffer) if(k.b==buffertolose) {k.b=0; k.n=0;}}
  220. /*-----*/
  221. int deletebuffer(buffer*C) {buffer*A,*BB; if(!C->nrows) goto Y;
  222. for(BB=B->next;BB;BB=BB->next) if(!BB->nrows) goto Y;
  223. for(BB=bhead;BB?BB!=B:0;BB=BB->next) if(!BB->nrows) goto Y; beep(); return 0;
  224. Y: if(C->changed) if(!yesno(
  225.   "This buffer changed since saved last: shall I still drop it?")) return 0;
  226. buffertolose=C; keys.search(&losebuffer);
  227. if(C->nrows) {A=B; B=C; BB->go_to(); if(A!=C) B=A;} delete C; return 1;}
  228. /*-----*/
  229. KF(delbuf) {deletebuffer(B);}
  230. /*-----*/
  231. KF(finish) {buffer *BB; char*q="%s changed: exit without saving it?";
  232. A: forallbufs(BB) if(BB->changed) break;
  233. if(BB) {pr(CW,q,BB->name); if(!yesno(CW)) return; BB->changed=0; goto A;}
  234. if(appendixsize>1) if(!yesno("exit without saving the dictionary's appendix?"))
  235.   return;
  236. clearscreen(); gp_cursor(gp_cur(0,0)); longjmp(Exit,1);}
  237. /*-----*/
  238. KF(setrightmargin) {
  239. if(N.n) B->rmargin=N.i<0?(N.i>-11?-gp_Cols:N.i):N.i>11?N.i:gp_Cols;
  240. if(B->rmargin>=0) pr(disp,"right margin = %1d",B->rmargin);
  241. else pr(disp,"right margin = %1d 'n'-widths proportional",-B->rmargin);
  242. Display=disp;}
  243. /*-----*/
  244. KF(pushmark) {if(B->nmarks()>16) MOAN("this buffer has too many marks");
  245. B->dot.push();}
  246. /*-----*/
  247. KF(swopmark) {if(N.i-1==B->nmarks()) B->dot.hsup();
  248. else {mark*M=&B->Mark(N.i),Q=B->dot; B->dot=*M; *M=Q;}}
  249. /*-----*/
  250. KF(setmark) {if(N.i-1==B->nmarks()) B->dot.hsup(); else B->Mark(N.i)=B->dot;}
  251. /*-----*/
  252. KF(markbof) {mark Q=B->bof();
  253.     if(N.i-1==B->nmarks()) Q.hsup(); else B->Mark(N.i)=Q;}
  254. /*-----*/
  255. KF(markeof) {mark Q=B->eof();
  256.     if(N.i-1==B->nmarks()) Q.hsup(); else B->Mark(N.i)=Q;}
  257. /*-----*/
  258. KF(popmark) {B->dot.pop();}
  259. /*-----*/
  260. KF(remmark) {int i; for(i=0;i<N.i;i++) B->rem1mark();}
  261. /*-----*/
  262. KF(showregion) {if(!N.i) (B->Mark(1)-B->Mark(2)).color(White,Magenta);
  263. else (B->Mark(N.i)-B->dot).color(White,Magenta);}
  264. /*-----*/
  265. KF(yank) {obtype=ob_yank;
  266. lastyank=B->dot.yank(killring[nkill]); lastyank.color(White,Magenta);
  267. if(N.n) if(N.i-1==B->nmarks()) lastyank.beg.hsup();
  268.    else B->Mark(N.i)=lastyank.beg;}
  269. /*-----*/
  270. KF(replyank) {if(prevobtype!=ob_yank) {yank(val(1,0),T1,T2); return;}
  271. obtype=ob_yank; nkill-=N.i; nkill&=15;
  272. lastyank=lastyank.repl(killring[nkill],1); lastyank.color(White,Magenta);}
  273. /*-----*//* still no way in Gnu C to tell if a drive is there/usable or not */
  274. int attrib(char*file){if(isalpha(file[0]))if(file[1]==':')if(!file[2])return 16;
  275. _ax=0x4300; _dx=(int)file; int21(); if(_carry) return 256*_ax; return _cx;}
  276. /*----- replace all T1 by T2 between dot and Nth mark */
  277. void Replace(val N,val T1,val T2,char *prompt,int ask,int word){
  278. T1.getifn(T1t,prompt,_magic); setrek(T1,T1.copy());
  279. T2.getifn(T2t,"by:");         setrek(T2,T2.copy());
  280. mark M=B->Mark(N.i); (M-B->dot).replace(T1,T2,ask,word);}
  281. /*-----*/
  282. KF(repl)        {Replace(N,T1,T2,"rep:"         ,0,0);}
  283. KF(replword)    {Replace(N,T1,T2,"rep word:"    ,0,1);}
  284. KF(replask)     {Replace(N,T1,T2,"rep ask:"     ,1,0);}
  285. KF(replwordask) {Replace(N,T1,T2,"rep word ask:",1,1);}
  286. /*----- move char by N.i positions */
  287. KF(twiddle) {int i,j,n; line*L=B->dot.r; char*T=L->s;
  288. if(N.i>0) for(i=0;i<N.i;i++) {L->la(1);
  289.     if((n=B->dot.c)+1>=L->n) MOAN("can't twiddle-chars across line end");
  290.     j=T[n]; T[n]=T[n+1]; T[n+1]=j; B->dot.c++; }
  291. else for(i=0;i>N.i;i--) {
  292.     if((n=B->dot.c)<=0) MOAN("can't twiddle-chars across line end");
  293.     j=T[n]; T[n]=T[n-1]; T[n-1]=j; B->dot.c--; L->la(1); }; B->changed=1;}
  294. /*----- look for T1 starting at dot. If N.i set, stop at Nth mark */
  295. void search(val N,val T1,char*prompt,int back=0,int word=0){int i,n;
  296. T1.getifn(T1t,prompt,_magic); setrek(T1,T1.copy());
  297. if((B->dot-(N.n?B->Mark(N.i):back?B->bof():B->eof())).hunt(T1,back,word)) {
  298.     B->dot=back?Found.beg:Found.end; Found.color(White,Magenta);}
  299. else {strcpy(CW,"not found '"); /* display /000 as space here */
  300.     for(n=(T1.n&0x00ffffff)<?(strsize-12),i=0;i<n;i++) CW[i+11]=T1.s[i]?:' ';
  301.     strcpy(CW+n+11,"'"); MOAN(CW);}}
  302. /*-----*/
  303. KF(findf)     {search(N,T1,"find:"          ,0,0);}
  304. KF(findb)     {search(N,T1,"find back:"     ,1,0);}
  305. KF(findwordf) {search(N,T1,"find word:"     ,0,1);}
  306. KF(findwordb) {search(N,T1,"find word back:",1,1);}
  307. /*----- incremental search starting at dot. If N.i set, stop at Nth mark */
  308. void incrsearch(val N,char*pt,int back=0){region where[64+1];
  309. int p=strlen(pt),sl=B->lastrow,at=gp_Attr,c; mark whoa,start,dot,M;
  310. where[0]=B->dot-B->dot; Found=where[0]; T1t.n=0; T1t.s=T1w;
  311. whoa=N.n?B->Mark(N.i):back?B->bof():B->eof(); start=B->start; dot=B->dot;
  312. GETCHAR: displayn(pt,sl,0,Magenta); display(T1t,sl,p,Cyan);
  313. cursor.r=sl; cursor.c=(p+T1t.n)<?(gp_Cols-1); gp_cursor(cursor);
  314. switch(c=getkey()) {
  315. case -ins: if(!T1t.n) goto GETCHAR; M=back?Found.beg:Found.end; goto HUNT;
  316. case -del_: if(!T1t.n) goto GETCHAR; Found=where[--T1t.n]; goto DISP;
  317. case -alt_end: Moan="user abort"; goto OUT;
  318. case -alt_ret: c=CR; goto C;
  319. case -pagedown: goto OUT; /* end input */
  320. default: if(c<=0) goto GETCHAR; if(c==CR) c=LF; /* so RET gives newline */
  321. C:  if(T1t.n>=64) {Moan="incremental search string too long"; goto OUT;}
  322.     if(back) {M=Found.end; ++M; if(!M.r) M=Found.end;} else M=Found.beg;
  323.     T1t.s[T1t.n++]=c;}
  324. HUNT: if(Moan==offscreen) Moan=0;
  325. if(!(M-whoa).hunt(T1t,back,0)) beep(); where[T1t.n]=Found;
  326. DISP: gp_Attr=at; B->dot=back?Found.beg:Found.end; Found.color(White,Magenta);
  327. B->dotcc=B->dotcc2=-1; Sl[B->lastrow].ok=1; B->display(); goto GETCHAR;
  328. OUT: gp_Attr=at; Sl[sl].ok=0; T1t.s[T1t.n]=0; B->start=start;
  329. B->dotcc=B->dotcc2=-1; if(Moan) {Found=where[0]; B->dot=dot; MOAN(Moan);}
  330. Sl[B->lastrow].ok=0; if(back) setref(f,&findb); else setref(f,&findf);
  331. setrec(T1,T1t.copy());}
  332. /*-----*/
  333. KF(incrfindf) {incrsearch(N,"incr find:"     ,0);}
  334. KF(incrfindb) {incrsearch(N,"incr find back:",1);}
  335. /*----- read esc-and-number */
  336. void readescno(short c){if(play) return; int i,j,N; short d=c;
  337. i=-1; B->display(); N=c=='-'?0:c-'0'; j=B->row1+B->nrows-1;
  338. CC: i++; pr(CW,"numeric arg: %c%1d",d=='-'?'-':' ',c=='-'?1:N);
  339. display(CW,j,0,Cyan); gp_cursor(cursor); c=getkey();
  340. if(c<'0'?0:c<='9') {N=10*N+c-'0'; goto CC;} else nextch=c;
  341. Sl[j].ok=0; if(d=='-') if(!i) N=-1; else N=-N; Obey(val(N,_int));}
  342. /*-----*/
  343. KF(esc0) {readescno('0');} KF(esc1) {readescno('1');} KF(esc2) {readescno('2');}
  344. KF(esc3) {readescno('3');} KF(esc4) {readescno('4');} KF(esc5) {readescno('5');}
  345. KF(esc6) {readescno('6');} KF(esc7) {readescno('7');} KF(esc8) {readescno('8');}
  346. KF(esc9) {readescno('9');} KF(escminus) {readescno('-');}
  347. /*----- read alt-number */
  348. void readaltno(short c){if(play) return; int i,j,N; short d=c;
  349. i=-1; B->display(); N=c=='-'?0:c-'0'; j=B->row1+B->nrows-1;
  350. C: i++; pr(CW,"numeric arg: %c%1d",d=='-'?'-':' ',c=='-'?1:N);
  351. display(CW,j,0,Cyan); gp_cursor(cursor); c=getkey();
  352. if(c==-alt_0) {N=10*N; goto C;}
  353. else if(-c>=alt_1?-c<=alt_9:0) {N=10*N-c+1-alt_1; goto C;} else nextch=c;
  354. Sl[j].ok=0; if(d=='-') if(!i) N=-1; else N=-N; Obey(val(N,_int));}
  355. /*-----*/
  356. KF(alt0) {readaltno('0');} KF(alt1) {readaltno('1');} KF(alt2) {readaltno('2');}
  357. KF(alt3) {readaltno('3');} KF(alt4) {readaltno('4');} KF(alt5) {readaltno('5');}
  358. KF(alt6) {readaltno('6');} KF(alt7) {readaltno('7');} KF(alt8) {readaltno('8');}
  359. KF(alt9) {readaltno('9');} KF(altminus) {readaltno('-');}
  360. /*----- modemenu recorded in macro as calls of these */
  361. KF(tabmode) {int i; B->tabtype=(N.i>?0)<?2; for(i=0;i<gp_Rows;i++) Sl[i].ok=0;}
  362. KF(twodmode) {B->twod=(N.i>?0)<?1;}
  363. KF(overlaymode) {B->overlay=(N.i>?0)<?2;}
  364. KF(wrapmode) {B->wrap=(N.i>?0)<?1;}
  365. KF(casemode) {B->Case=(N.i>?0)<?1;}
  366. KF(longlinesmode) {int i;
  367.     B->longlines=(N.i>?0)<?1; for(i=0;i<gp_Rows;i++) Sl[i].ok=0;}
  368. KF(skipafterwordmode) {B->skip_after_word=(N.i>?0)<?3;}
  369. KF(cccmode) {ccc=(N.i>?0)<?1;}
  370. /*----- ith mode */
  371. byte &bufmode(int i,buffer*BB/*=0*/){if(!BB) BB=B;
  372. switch(i<0?0:i%buffer_nmodes){
  373. case  0: return BB->tabtype;
  374. case  1: return BB->twod;
  375. case  2: return BB->overlay;
  376. case  3: return BB->wrap;
  377. case  4: return BB->Case;
  378. case  5: return BB->longlines;
  379. case  6: return BB->skip_after_word;} return BB->tabtype;}
  380. /*-----*/
  381. char**dispmode[]={
  382. (char*[]){" tab shown as one char",
  383.       " tab obeyed",
  384.       " tab shown and obeyed",0},
  385. (char*[]){" going off end of line goes to next line",
  386.       " going off end of line appends spaces to line",0},
  387. (char*[]){" typed char inserted",
  388.       " typed char overlays, cursor moves",
  389.       " typed char overlays, cursor stays still",0},
  390. (char*[]){" no auto newline on typing long text lines",
  391.       " auto newline on typing long text lines",0},
  392. (char*[]){" in search, ignore case of letters",
  393.       " in search, don't ignore case of letters",0},
  394. (char*[]){" horiz scroll to show cursor in long lines",
  395.       " display long lines folded",0},
  396. (char*[]){" don't skip nonword chars after skipping word",
  397.       " nonword chars belong to word to left",
  398.       " nonword chars belong to word to right",
  399.       " skip nonword chars after skipping word",0},0};
  400. /*-----*/
  401. KF(modemenu) {int c=0,i,j,n; byte *T; B->dotcc=B->dotcc2=-1; mousestate ms;
  402. if(play) MOAN("modemenu called by macro"); macstep step; basemi.rec=0;
  403. static subr *mf[]={&tabmode, &twodmode, &overlaymode, &wrapmode, &casemode,
  404.     &longlinesmode, &skipafterwordmode}; step=macstep();
  405. for(i=0;i<gp_Cols;i++) Sl[i].ok=0; j=0; n=buffer_nmodes; ms=Jerry; Jerry.mc=1;
  406. C: for(i=0;i<buffer_nmodes;i++) display(dispmode[i][bufmode(i)],i,0,Orange+8);
  407. display("(\030 and \031 move, ret changes mode, any other key exits)",
  408.   i,0,Green+8); Jerry.range(buffer_nmodes,4); Jerry.bd=0;
  409. display("(ctrl-B copies all the modes from some other buffer's modes)",i+1,0,
  410.   Green+8);
  411. A: if(step.f.n) if(record) {(*record)+=step.copy(); step.del(); step.clear();}
  412. if(c!=-mousemove) Jerry.move(j,0); scr(j,0)=sch(2,White);
  413. switch(c=getkey()) {
  414. case -mousemove: scr(j,0)=sch(' ',White); j=Jerry.y; goto A;
  415. case -downarrow: scr(j,0)=sch(' ',White); j=(j+1  )%n; goto A;
  416. case -uparrow:   scr(j,0)=sch(' ',White); j=(j-1+n)%n; goto A;
  417. case 'B'-64: Fn.s[0]=0; Fn.n=0; copybufmodes(val(1,0),Fn);
  418.     step.f=kf(©bufmodes); step.N=val(1,0); step.T1=val("",0); step.T2=val();
  419.     display(" ",B->lastrow,0,0); Fn.s=0; goto C;
  420. case CR: case -lbutton: T=&bufmode(j,B); (*T)++; if(!dispmode[j][*T]) *T=0;
  421.     display(dispmode[j][*T],j,0,Orange+8);
  422.     step.f=kf(mf[j]); step.N=val(*T,_int);step.T1=val();step.T2=val(); goto A;}
  423. Jerry=ms;}
  424. /*-----*/
  425. KF(copybufmodes){int i; buffer*C=get_file(T1,"copy modes from buffer:");
  426. if(!C) MOAN("copybufmodes can't find buffer");
  427. for(i=0;i<buffer_nmodes;i++) bufmode(i,B)=bufmode(i,C);
  428. setrek(T1,val(copyof(C->name)));}
  429. /*-----*/
  430. void insert_(int N,byte c){Insert(N,c);}
  431. /*-----*/
  432. void overlay_(int N,byte c){int i; for(i=0;i<N;i++) {B->dot=c; goright(1,1);}}
  433. /*-----*/
  434. void nomove_(int N,byte c){int i; for(i=0;i<N;i++) B->dot=c;}
  435. /*-----*/
  436. KF(insert) {int i,j,k; if(T1.n==_char) {insert_(N.i,val(T1).i); return;}
  437. T1.getifn(T1t,"text to insert:"); setrek(T1,T1.copy()); j=T1.n; char*s;
  438. for(k=0;k<N.i;k++) for(s=T1.s,i=0;i<j;i++) *B+=*s++;}
  439. /*-----*/
  440. KF(overlay) {int i,j,k; if(T1.n==_char) {overlay_(N.i,val(T1).i); return;}
  441. T1.getifn(T1t,"text to overlay:"); setrek(T1,T1.copy()); j=T1.n; char*s;
  442. for(k=0;k<N.i;k++) for(s=T1.s,i=0;i<j;i++) {B->dot=*s++; goright(1,1);}}
  443. /*-----*/
  444. KF(nomove) {int i,j,k; if(T1.n==_char) {nomove_(N.i,val(T1).i); return;}
  445. T1.getifn(T1t,"text to overlay_no_move:"); setrek(T1,T1.copy()); j=T1.n; char*s;
  446. for(k=0;k<N.i;k++) for(s=T1.s,i=0;i<j;i++) B->dot=*s++;}
  447. /*-----*/
  448. /* int Gets(char*s,int n,FILE*F){int i; fgets(s,n,F);
  449. if(i=strlen(s)) if(s[i-1]==LF) s[--i]=0; return i;} */
  450. /*-----*/
  451. char*helphelp[]={"which key to type now to get what help:-",
  452. "?   this information",
  453. "a   all 'one-line help' lines which contain a particular string",
  454. "d   help about use of special keys in directory menus",
  455. "i   help about use of special keys in incremental search",
  456. "L   explanation of symbols used in help information",
  457. "l   menu to call any one subroutine or get long help about it",
  458. "m   help about magic characters",
  459. "o   help about allowed operator uses in macros",
  460. "r   help about the replace commands",
  461. "s   help about use of alt- and special keys when inputting a string argument",
  462. "(Any other keysequence gets one-line help about that keysequence)",
  463. "(For the mouse, see section [MOUSE] in file README)",0};
  464. /*-----*/
  465. char*incrhelp[]={"effect of alt- and special keys in incremental search:-",
  466. "insert     look again for this same string",
  467. "delete     cancel effect of typing last displayed character",
  468. "altend     abort search",
  469. "pagedown   exit from search (NB. The search string can't be > 64 chars long)",
  470. "altret     look for CR stored as byte (not as bit) in AAEMACS's line image",
  471. "ret or ctrl-J or ctrl-M    look for end-of-line",
  472. 0};
  473. /*-----*/
  474. char*replhelp[]={"effect of replies to 'shall I replace here?' in replace:-",
  475. "space      yes and look for the next replacing   or left mouse button",
  476. "N  or  n   no  and look for the next replacing   or middle or right mouse \
  477. button",
  478. ".          yes and exit",
  479. "altend     no  and exit",
  480. "end        no  and exit and leave the cursor here",
  481. 0};
  482. /*-----*/
  483. char*dirmenuhelp[]={"effect of alt- and special keys in directory-menus:-",
  484. "\030 \031        move pointer in menu",
  485. "pageup     move pointer in menu",
  486. "pagedown   move pointer in menu",
  487. "insert     select new buffer (you will be asked for its name)",
  488. "ctrlinsert create new directory (you will be asked for its name)",
  489. "delete     delete this PC file or directory (if directory, must be empty)",
  490. "home       go to parent directory",
  491. "alt-K      copy this directory to kill ring (online & with ctrl-X ctrl-F)",
  492. "ctrl_K     copy this file's full pathname into a kill",
  493. "alt-R      rename file (not buffer)",
  494. "alt-del    drop this file's buffer, if it has one",
  495. "ctrl-N     sort by name",
  496. "ctrl-S     sort by size",
  497. "ctrl-D     sort by date",
  498. "ctrl-X     don't sort",
  499. "altend     abort",
  500. "return     choose this file                 or left mouse button",
  501. "F1         get submenu of these commands    or right mouse button",
  502. 0};
  503. /*-----*/
  504. char*magichelp[]={"effect of magic characters in searching:-",
  505. ".          any one character except LF",
  506. ",          any one letter or number or _",
  507. "space      one or more spaces and/or tabs   (Note how magic space is shown)",
  508. "\011 (tab)    one or more spaces and/or tabs and/or LF's",
  509. "|          separates alternatives",
  510. "[     ]    start & end of a set of alternatives",
  511. "#          any one character not a letter or number or '_'",
  512. "\\          beginning or end of file",
  513. "/          LF or beginning or end of file",
  514. "{     }    set start & end of 'string found' (default = all matched chars)",
  515. "lowercase letter       uppercase or lowercase of that letter",
  516. "=          the rest of the current line (not any LF at its end)",
  517. "Magic search is quicker if the first character in the search string is not \
  518. magic",
  519. 0};
  520. /*-----*/
  521. char**infohelp=0,**infobig=0;
  522. char**Subrhelp(char*name){int i,n=strlen(name); char*s;
  523. if(!infobig) {infobig=readtext(bighelpfile);
  524.     if(!infobig) {pr(CW,"I can't find %s",bighelpfile); Moan=CW; return 0;}}
  525. for(i=0;s=infobig[i];i++) if(s[0]=='{') if(!strncmp(s+1,name,n))
  526.   if(s[n+1]==','?1:s[n+1]=='}') return infobig+i;
  527. pr(CW,"no long help for subroutine %s",name); Moan=CW; return 0;}
  528. /*-----*/
  529. KF(help) {int i,j,k,kc,l,m,n,p; char *s,*T,cw[256],*y,**u;
  530. if(!play) basemi.rec=0;
  531. val f; Subr*sub; char*Z="type '?', or key sequence that help is wanted for:";
  532. if(T1.s) f=T1.keyseq(); else f=getkeyseq(Z); if(f.n==_bad) MOAN(f.s);
  533. LOOP: pr(cw,"%k :: ",&keyseq); n=strlen(cw); kc=keyseqc[keyseqc[0]-1];
  534. if(keyseqc[0]!=2 ?: kc<32) switch(f.n){ /* if not printable */
  535. default:cw[n-3]=0;pr(CW,"BUG: %sbound to a %s",cw,f.n>0?"string":keysort[-f.n]);
  536.     Display=CW; return;
  537. case 0: pr(CW,f.s?"BUG: %sbound to empty string":"%sis unbound",cw);
  538.     Display=CW; return;
  539. case _subr: if(!infohelp) {infohelp=readtext(helpfile);
  540.     if(!infohelp) {pr(CW,"I can't find %s",helpfile); Moan=CW; return;}}
  541.     for(i=0;s=infohelp[i];i++) if(!strncmp(s,cw,n)) {Display=s; return;}
  542.     Moan="no help for this key"; return;
  543. case _macro: pr(CW,"%sbound to a macro",cw); Display=CW; return;
  544. case _keyarray: Display="BUG: this key sequence is not complete"; return;
  545. case _buffer: pr(CW,"%sbound to buffer %s",cw,f.b->name); Display=CW; return;
  546. case _int: pr(CW,"BUG: %sbound to integer %1d",cw,f.i); Display=CW; return;}
  547. display(" ",B->lastrow,0,Orange);
  548. switch(kc){ /* if printable */
  549. default: pr(CW,"inserts or overlays '%c' according to mode of buffer",kc);
  550.     Display=CW; return;
  551. case '?': for(j=0;T=helphelp[j];j++) display(T,j,0,Green);
  552.     f=getkeyseq(Z); refreshscreen(); goto LOOP;
  553. case 'a': if(!infohelp) {infohelp=readtext(helpfile);
  554.     if(!infohelp) {pr(CW,"I can't find %s",helpfile); Moan=CW; return;}}
  555.     for(m=0;infohelp[m];m++); y=new char[m]; for(i=0;i<m;i++) y[i]=0; T1.n=0;
  556.     T1.s=0; T1.getifn(T1t,"apropos:"); for(p=j=i=0;s=infohelp[i];i++) {
  557.     for(k=strlen(s)-T1.n,l=0;l<=k;l++) if(caseq(T1,val(s+l,T1.n))) goto X;
  558.     continue; X: y[i]=1; p++;}
  559.     if(!p) {pr(CW,"Nothing found. For help, read file %s\\README",DIR); Moan=CW;
  560.     delete y; return;}
  561.     for(j=i=0;i<m;i++) if(y[i]) {
  562.     if(j==gp_Rows-1){display("(More)",j,0,Green); getkey(); j=0;}
  563.     display(infohelp[i],j++,0,Orange);}
  564.     delete y; break;
  565. case 'd': for(j=0;T=dirmenuhelp[j];j++) display(T,j,0,Orange); break;
  566. case 'i': for(j=0;T=incrhelp[j];j++) display(T,j,0,Orange); break;
  567. case 'l': sub=subrmenu("subroutine to get help for?"); if(!sub) goto LOOP;
  568.     B->display(); if(!(u=Subrhelp(sub->name))) return; j=0;
  569.     display(*u++,j++,0,Orange); while(*u?**u!='{':0) display(*u++,j++,0,Orange);
  570.     display("(type 'ctrl-_ L' to find about the symbols)",j++,0,Green); break;
  571. case 'L': if(!infobig) {infobig=readtext(bighelpfile);
  572.     if(!infobig) {pr(CW,"I can't find %s",bighelpfile); Moan=CW; return;}}
  573.     for(j=i=0;(s=infobig[i])?strncmp(s,"----",4):0;i++) display(s,j++,0,Orange);
  574.     break;
  575. case 'm': for(j=0;T=magichelp[j];j++) display(T,j,0,Orange); break;
  576. case 'o': j=display_op_uses(); break;
  577. case 'r': for(j=0;T=replhelp[j];j++) display(T,j,0,Orange); break;
  578. case 's': for(j=0;T=getstringhelp[j];j++) display(T,j,0,Orange); break;}
  579. display("(type ctrl-_ for more help, any other char to continue)",j,0,Green);
  580. if(getkey()=='_'-64) {f=getkeyseq(Z); refreshscreen(); goto LOOP;}}
  581. /*----- obey subr for all bound key entries */
  582. void forallkeys(void fn(val*),int L/*=1*/,keyarray&K/*=keys*/){int k; val*f;
  583. for(k=0;k<K.n;k++){keyseqc[0]=L+1; f=&K.a[(byte)(keyseqc[L]=k)];
  584.     if(f->n) if(f->n==_keyarray) forallkeys(fn,L+1,*f->k); else fn(f);}}
  585. /*-----*/
  586. void moan_if_no_help(val*f){char **info,*s,cw[128]; int i,j;
  587. pr(cw,"%k :: ",&keyseq); j=strlen(cw);
  588. info=readtext(helpfile); if(!info){pr(CW,"I can't find %s",helpfile); MOAN(CW);}
  589. for(i=0;s=info[i];i++) if(!strncmp(s,cw,j)) goto E;
  590. *B+=cw; *B+=" has no help\n"; E: delete info[0]; delete info;}
  591. /*-----*/
  592. void prbuffer(buffer*C){
  593. if(C->bound.n) pb("#buffer(%S,%K);\n",C->name,&C->bound);
  594. else pb("#buffer(%S);\n",C->name);}
  595. /*-----*/
  596. void print_subr(val*f){pb("%k :: ",&keyseq);macstep(*f,1,0).print(); newline();}
  597. /*-----*/
  598. KF(checkhelp) {forallkeys(moan_if_no_help);}
  599. /*-----*/
  600. KF(prbuffers) {buffer*C; forallbufs(C) prbuffer(C);}
  601. /*-----*/
  602. KF(prbindings) {forallkeys(print_subr);}
  603. /*-----*/
  604. Subr*namedsubr(val name){reg int i,j,n=name.n; reg Subr*T; reg char*s,*S=name.s;
  605. if(!n) return subrmenu("subr to call?");
  606. for(i=0;s=(T=&subrname[i])->name;i++) {if(T->n!=n) goto NO;
  607.     for(j=0;j<n;j++) if(s[j]!=S[j]) goto NO; return subrname+i; NO:;} return 0;}
  608. /*-----*/
  609. int keyseqeq(val a,val b){if(a.n==_keyseq) if(b.n==_keyseq)
  610.   if(a.s[0]==b.s[0]) if(byteq(a.s+1,b.s+1,a.s[0]-1)) return 1; return 0;}
  611. /*-----*/
  612. val*getk(val arg,char*prompt/*=0*/){val *f; byte i; AGAIN:
  613. if(arg.s) f=&arg.keyseq(); else f=&getkeyseq(prompt); if(f->n==_bad) MOAN(f->s);
  614. if(keyseqc[0]==2) if((byte)keyseqc[1]>=32) MOAN("can't bind a printable char");
  615. if(keyseqc[0]==3) if(!keyseqc[1])
  616.   if(i=keyseqc[2],i==lbuttond?:i==mbuttond?:i==rbuttond?:i==mousemove)
  617.   goto AGAIN; return f;}
  618. /*-----*/
  619. char*val::moanifbound(val K,int jump/*=1*/){char*x=0; if(n==_bad) x=s;
  620. else if(K.n==_char ? (K.i<32 ?0: K.i<256) : K.s[0]!=2 ?0: (byte)K.s[1]>=32)
  621.   x="can't bind a printable char";
  622. else if(n?:s!=0) pr(x=CW,"%k is already bound to a %t",&K,n);
  623. if(jump) if(x) MOAN(x); return x;}
  624. /*-----*/
  625. KF(bindkeymacro) {val*f; if(!Macro) MOAN("no macro to bind");
  626. if(Macro->bound.n) {
  627.     pr(CW,"this macro is already bound to %k",&Macro->bound); MOAN(CW);}
  628. f=getk(T1,"type key sequence to bind to current macro");
  629. setrek(T1,keyseq.copy()); f->moanifbound(keyseq);
  630. *f=*Macro; Macro->bound=keyseq.copy();}
  631. /*-----*/
  632. KF(bindkeysubr) {val*f,g;
  633. g=T1.getifn(T1t,"name of subroutine to bind to key:",_subr);
  634. f=getk(T2,"type key sequence to bind to subroutine");
  635. f->moanifbound(keyseq); if(!g.n) MOAN("no such subroutine");
  636. setrek(T1,T1.copy()); setrek(T2,keyseq.copy()); *f=kf(g.S->f);}
  637. /*-----*/
  638. void buffer::bind(val*f,val T1) {if(keyseqeq(T1,bound)) return;
  639. if(bound.n) {pr(CW,"this buffer is already bound to %k",&bound); MOAN(CW);}
  640. f->moanifbound(T1); *f=this; bound=T1.copy(); if(nrows) Sl[lastrow].ok=0;}
  641. /*-----*/
  642. KF(bindkeybuf){
  643. val*f=getk(T1,"type key sequence to bind to current buffer"); B->bind(f,keyseq);
  644. setrek(T1,keyseq.copy());}
  645. /*-----*/
  646. void val::unbind() {switch(n) {
  647. case _keyarray: MOAN("can't unbind a keyarray");
  648. case _buffer: delete b->bound.s; b->bound=val(); break;
  649. case _macro: if(m!=Macro) delete m;
  650.     else {delete m->bound.s; m->bound=val();} break;
  651. case 0: MOAN("this key is already unbound");};
  652. s=0; n=0;}
  653. /*-----*/
  654. KF(unbindkey) {val *f;
  655. if(T1.s) f=&T1.keyseq(); else f=&getkeyseq("type key sequence to unbind");
  656. if(f->n==_bad) MOAN(f->s); setrek(T1,keyseq.copy()); f->unbind();}
  657. /*----- buffer(char*) : find/get buffer with this filename */
  658. buffer::buffer(char*F,int rd/*=1*/){buffer *BB=B; B=this; initbuffer();
  659. ncols=gp_Cols; linkin();
  660. if(F?F[0]:0) {name=copyof(F); if(rd) read();} else name=copyof("(no file)");
  661. B=BB;}
  662. /*----- returns buffer with this name (0 if no buffer has this name) */
  663. buffer*buf_named(val name){buffer*C;
  664. forallbufs(C) if(C->name) if(!strcmp(C->name,name.s)) return C; return 0;}
  665. /*-----*/
  666. buffer*findbuf(val name){buffer*C;
  667. forallbufs(C) if(!strcmp(C->name,name.s)) return C; return new buffer(name.s);}
  668. /*-----*/
  669. KF(renamebuffer) {
  670. T1.getifn(Fn,"new filename for buffer?",_buffer); setrek(T1,T1.copy());
  671. if(buf_named(T1)) {pr(CW,"%s already has a buffer",Filename); MOAN(CW);}
  672. delete B->name; B->name=new char[strlen(T1.s)+1]; strcpy(B->name,T1.s);
  673. Sl[B->lastrow].ok=0;}
  674. /*-----*/
  675. KF(onewindow) {int i;
  676. for(i=0;i<nwindows;i++) window[i]->row1=window[i]->nrows=window[i]->lastrow=0;
  677. nwindows=1; window[0]=B; B->row1=0; B->nrows=gp_Rows; B->lastrow=gp_Rows-1;
  678. for(i=0;i<gp_Rows;i++) Sl[i].ok=0; currentwindow=0;}
  679. /*-----*/
  680. KF(splitwindow) {
  681. get_file(T1,"file for new window:")->split_window_with(N.n?N.i:B->nrows/2);}
  682. /*-----*/
  683. KF(nextwindow) {int i;
  684. if(N.i<0) for(i=0;i>N.i;i--) {if(--currentwindow<0) currentwindow=nwindows-1;}
  685. else for(i=0;i<N.i;i++) {if(++currentwindow>=nwindows) currentwindow=0;}
  686. B=window[currentwindow]; B->dotcc=B->dotcc2=-1;}
  687. /*-----*/
  688. KF(prevwindow) {nextwindow(-N.i,1);}
  689. /*-----*/
  690. buffer*get_file(val&T1,char*p) {buffer*C=T1.getifn(Fn,p,_buffer).b?:findbuf(T1);
  691. if(!thisstep.T1.n) setrek(T1,T1.copy()); return C;}
  692. /*-----*/
  693. void buffer::operator()(int N/*=0*/){
  694. if(N<0) split_window_with(N==-1?B->nrows/2:-N);
  695. else if(!N) B->dot+=this; else go_to();}
  696. /*-----*/
  697. KF(buffer_){buffer*C=T1.n==_buffer?T1.b:get_file(T1,"go to file:"); (*C)(N.i);
  698. if(T2.n==_keyseq) {
  699.     C->bind(getk(T2,"type key sequence to bind to current buffer"),T2);
  700.     setrek(T2,keyseq.copy());}}
  701. /*-----*/
  702. KF(openfile) {get_file(T1,"go to file:")->go_to();}
  703. /*-----*/
  704. KF(restorebuf) {int i; B->deltext(); B->read();
  705.     for(i=B->row1;i<=B->lastrow;i++) Sl[i].ok=0;}
  706. /*-----*/
  707. buffer*buffer_menu(char*prompt) {mousestate ms; ms=Jerry; Jerry.mc=1;
  708. int i,j=0,k,m,n,w=gp_Rows-1,Y=0; val F; buffer *D,**C; B->dotcc=-1;
  709. Z: for(n=0,D=bhead;D;D=D->next,n++); C=(buffer**)myalloc(n*sizeof(buffer*));
  710. for(i=0,D=bhead;D;D=D->next,i++) if(B==(C[i]=D)) j=i;
  711. Jerry.range(n,80); Jerry.move(j,0);
  712. E: k=w/2; k=j<w?0:((j-w/4)/k)*k;
  713. for(i=k;i<n;i++) {if(i-k>=w) break;
  714.     pr(CW," %c%2d %s",C[i]->changed?'*':' ',i,C[i]->name);
  715.     if(C[i]->bound.n) pa(CW," (%k)",&C[i]->bound);
  716.     CW[gp_Cols]=0; display(CW,i-k,0,Orange);}
  717. for(i=(w<?n)-1;i>=n-k;i--) display(" ",i,0,Orange);
  718. display("(\030\031 move, esc \032 file not listed, del removes buffer, \
  719. RET chooses)", w<?n,0,Orange);
  720. A: i=k; k=w/2; k=j<w?0:((j-w/4)/k)*k; if(i!=k) goto E;
  721. scr(j-k,0)=sch(2,White); m=j-k; switch(Y=getkey()) {
  722. case -mousemove: j=Jerry.y; break;
  723. case -downarrow: j=(j+1  )%n; break;
  724. case -uparrow:   j=(j-1+n)%n; break;
  725. case -del_: if(deletebuffer(C[j])) {j=0; free(C); goto Z;} goto A;
  726. case -rbutton: case -mbutton: case '['-64: scr(j-k,0)=sch(' ',White); F.n=0;
  727.     D=F.getifn(Fn,prompt,_buffer).b?:findbuf(F); goto Q;
  728. case -alt_end: D=B; goto Q;
  729. case CR: case -lbutton: D=C[j]; Q: free(C); Jerry=ms; return D;}
  730. scr(m,0)=sch(' ',White); if(Y!=mousemove) Jerry.move(j,0); goto A;}
  731. /*-----*/
  732. KF(buffermenu) {if(play) MOAN("BUG: obeyed buffermenu from macro");
  733. buffer*C=buffer_menu("file:"); setref(f,&openfile); setrec(N,val(1,0));
  734. setrek(T1,val(C->name).copy()); C->go_to();}
  735. /*----- insert copy of buffer at mark */
  736. void mark::operator+=(buffer*BB){
  737.     if(B==BB) MOAN("can't insert buffer into itself");
  738.     B->dot.yank(Text(BB->text.next,BB->text.prev),1);}
  739. /*-----*/
  740. KF(insertfile) {buffer *C,*Y=B; Text KK; /* don't create new buffer specially */
  741. C=T1.getifn(Fn,"insert file:",_buffer).b?:buf_named(T1.s); setrek(T1,T1.copy());
  742. B=Y; if(B==C) MOAN("can't insert buffer into itself");
  743. if(C) KK=Text(C->text.next,C->text.prev).copy(); else KK.read(T1.s);
  744. region Z=B->dot.yank(KK,0); B->changed=1; if(N.n) B->Mark(N.i)=Z.beg;}
  745. /*-----*/
  746. KF(mergefile) {buffer *C; Text K; line*U,*V,*W,*X,*Y,*Z; int c;
  747. C=T1.getifn(Fn,"merge into region file:",_buffer).b?:buf_named(T1.s);
  748. setrek(T1,T1.copy()); if(B==C) MOAN("can't merge buffer with itself");
  749. if(C) K=Text(C->text.next,C->text.prev).copy(); else K.read(T1.s);
  750. if(!K.end->n) if(K.beg==K.end) return; /* no lines to merge in */
  751.   else {K.end=(X=K.end)->prev; X->del();} /* final empty line */
  752. X=B->dot.r; Z=B->Mark(N.i).r?:X; if(c=Z<X) {W=Z; Z=X; X=W;} K.end->next=0;
  753. U=X=X->prev?:&B->text; Y=K.beg;
  754. L: if(Breakin()) goto END; if(X->next==Z) {*X-*Y; *K.end-*Z; goto END;}
  755. if(compare(X->next,Y)<0) {X=X->next; goto L;}
  756. W=Y; V=X->next; while(W->next?compare(V,W->next)>=0:0) W=W->next;
  757. *X-*Y; Y=W->next; *W-*V; X=V; if(Y) goto L;
  758. END: if(c) B->Mark(N.i)=mark(U->next,0); else B->dot=mark(U->next,0);
  759. B->text.prev->next=B->text.next->prev=0; B->changed=1;}
  760. /*-----*/
  761. KF(readmacros) {
  762. buffer*C=T1.getifn(Fn,"file to read macros from:",_buffer).b?:findbuf(Fn);
  763. val T=T1.copy(),U=T2.copy(); translate(C); setrek(T1,T); setrek(T2,U);}
  764. /*-----*/
  765. KF(accentedletters) {int i; static
  766. char accuc[39]="\200\232\220\203\216\205\217\200\210\211\212\213\214\215\216\
  767. \217\220\222\222\223\231\225\226\227\230\231\23200000\240\241\242\243\245\245";
  768. static
  769. char acclc[39]="\207\201\202\203\204\205\206\207\210\211\212\213\214\215\204\
  770. \206\202\221\221\223\224\225\226\227\230\224\20100000\240\241\242\243\244\244";
  771. for(i=128;i<256;i++) {chtype[i]&=~c_alnum; to__upper[i]=to__lower[i]=i;}
  772. if(N.i) {for(i=0;i<39;i++) if(accuc[i]) {chtype[i+128]|=c_alnum;
  773.     to__upper[i+128]=accuc[i]; to__lower[i+128]=acclc[i];}}}
  774. /*-----*/
  775. void mark::skipword(int N){int i;
  776. if(N>=0) {for(i=0;i<N;i++) {find_alnum(0,1); skip_alnum(0);}
  777.     if(B->skip_after_word&1) find_alnum(0,1);}
  778. else     {for(i=0;i>N;i--) {find_alnum(1,1); skip_alnum(1);}
  779.     if(B->skip_after_word&2) find_alnum(1,1);}}
  780. /*-----*/
  781. KF(skipwordf){B->dot.skipword(N.i);}
  782. KF(skipwordb){B->dot.skipword(-N.i);}
  783. KF(killwordf){obtype=ob_kill;mark Q=B->dot;Q.skipword( N.i); (B->dot-Q).kill();}
  784. KF(killwordb){obtype=ob_kill;mark Q=B->dot;Q.skipword(-N.i); (Q-B->dot).kill();}
  785. /*-----*/
  786. region thisword(int N/*=1*/){mark L,M=B->dot;
  787. if(N<0)   {if(M.is_alnum()) M.skip_alnum(0); else M.find_alnum(1,1);
  788.     if(!(B->skip_after_word&2)) M.find_alnum(0,1); L=M; L.skipword(N);}
  789. else {L=M; if(L.is_alnum()) L.skip_alnum(1); else L.find_alnum(0,1);
  790.     if(!(B->skip_after_word&1)) L.find_alnum(1,1); M=L; M.skipword(N);}
  791. return L-M;}
  792. /*-----*/
  793. region thispara(){line *K=B->dot.r,*L;
  794. while(!K->is_bop()) K=K->prev;
  795. if(L=K->next) while(!L->is_eop()) if(!(L=L->next)) break;
  796. if(!L) L=(*B->text.prev)/val("",0); return mark(K,0)-mark(L,0);}
  797. /*-----*/
  798. KF(twiddlewords) {region TW=thisword(N.i>=0?1:-1); mark Q=N.i>=0?TW.end:TW.beg;
  799. Q.skipword(N.i); TW.moveto(Q).color(White,Magenta); B->changed=1;}
  800. /*-----*/
  801. KF(twiddlelines) {int i; line *X,*Y,*Z,*U,*V; if(!N.i) return;
  802. Y=B->dot.r; X=Y->prev?:&B->text; Z=Y->next?:&B->text;
  803. if(N.i>0) {U=Y; for(i=0;i<N.i;i++) if(V=U->next) U=V; else break;
  804.     if(Y==U) MOAN("end of buffer");   V=U->next?:&B->text;}
  805. else    {V=Y; for(i=0;i>N.i;i--) if(U=V->prev) V=U; else break;
  806.     if(Y==V) MOAN("start of buffer"); U=V->prev?:&B->text;}
  807. *X-*Z; *U-*Y; *Y-*V; Y->la(1); B->text.prev->next=B->text.next->prev=0;
  808. (mark(Y,0)-mark(Y,Y->n)).color(White,Magenta); B->changed=1;}
  809. /*-----*/
  810. void casechange(int N,line*L,int b,int e){
  811. int i; char t,*s=L->s; byte*cs=N?to__upper:to__lower;
  812. for(i=b;i<e;i++) {t=s[i]; s[i]=cs[(byte)t]; if(t!=s[i]) L->la(1);}}
  813. /*-----*/
  814. void region::Case(int N){line *L; if(beg==end) return; B->changed=1;
  815. for(L=beg.r;L;L=L->next) {if(!L) return;
  816.     casechange(N,L,L==beg.r?beg.c:0,L==end.r?end.c:L->n);
  817.     if(L==end.r) break;}}
  818. /*-----*/
  819. void region::format(){line *K,*L; if(beg==end) return; B->changed=1;
  820. if(beg.c) {end.push(); L=beg/1; end.pop();} else L=beg.r;
  821. if(end.c) {end.push();   end/1; end.pop();}
  822. A: K=L->next; L->de_trailing_space(); L->split_if_long(); if(!K) return;
  823. if(K==end.r) return; L=K->prev; (*L)+=' '; --*L; goto A;}
  824. /*-----*/
  825. KF(formatregion) {(B->Mark(N.i)-B->dot).format();}
  826. KF(upcaseregion) {(B->Mark(N.i)-B->dot).Case(1);}
  827. KF(lwcaseregion) {(B->Mark(N.i)-B->dot).Case(0);}
  828. KF(upcasewords) {region TW=thisword(N.i);
  829.     TW.Case(1); B->dot=N.i<=0?TW.beg:TW.end;}
  830. KF(lwcasewords) {region TW=thisword(N.i);
  831.     TW.Case(0); B->dot=N.i<=0?TW.beg:TW.end;}
  832. KF(capitalize){region TW=thisword(); TW.Case(0); mark Q=TW.end; Q.skip_alnum(1);
  833. if(!Q.eol()) {char*T=&Q.r->s[Q.c]; *T=to_upper(*T); Q.r->la(1);}
  834. B->dot.skipword(1);}
  835. /*-----*//* reformat with left margin */
  836. KF(formatinsetregion) {char*D=Display; region F=Found; int i;
  837. region R(B->Mark(N.i),B->dot); if(R.beg==R.end) return; R.right_order();
  838. T1.getifn(T1t,"chars to prefix to each line:"); setrek(T1,T1.copy());
  839. T2.getifn(T2t,"chars prefixing each line now:",0,T1.s); setrek(T2,T2.copy());
  840. if(T2.n) {char s[T2.n+4]="/{"; val T(s,T2.n+2+0x80000000); s[T2.n+2]=0;
  841.     s[T2.n+3]=0xc0; /*magic*/ memcpy(s+2,T2.s,T2.n); R.replace(T,val("",0));}
  842. i=B->rmargin; B->rmargin=((i>0?i:-i)-T1.n)>?11; R.format(); B->rmargin=i;
  843. if(T1.n) (R.beg-mark(R.end.r->prev,0)).replace(val("/{\000\300",0x80000002),T1);
  844. Found=F; Display=D;}
  845. /*-----*/
  846. val eosentchars(".!?",3);
  847. /*-----*/
  848. void mark::skipsentence(int N){mark Q; int i=0xfff,j,k;
  849. if(N>0) for(k=0;k<N;k++) {A: Q=*this; ++*this; if(!r) {*this=Q; return;}
  850.     j=i; i=**this; if(eosentchars>>j) if(iswhite(i)) continue; goto A;}
  851. else    for(k=0;k>N;k--) {C: Q=*this; --*this; if(!r) {*this=Q; return;}
  852.     j=i; i=**this; if(eosentchars>>i) if(iswhite(j)) continue; goto C;}}
  853. /*-----*/
  854. KF(killsent) {
  855. obtype=ob_kill; mark Q=B->dot; Q.skipsentence(N.i); (B->dot-Q).kill();}
  856. /*-----*/
  857. int line::is_bop(){if(n) if(iswhite(s[0])) return 1;
  858. if(!prev) return 1; return prev->blank();}
  859. /*-----*/
  860. int line::is_eop(){if(!n) return 1; return iswhite(s[0]);}
  861. /*-----*/
  862. void mark::skippara(int N){line *K,*L; int i;
  863. if(N>0){for(i=0;i<N;i++) {for(L=r;K=L->next;L=K){if(L!=r)if(K->is_eop()) break;}
  864.     if(!K) K=*L/val("",0); r=K; c=0;}}
  865. else   {for(i=0;i>N;i--) {for(L=r;K=L->prev;L=K) if(L!=r) if(K->is_bop()) break;
  866.     r=K?:L; c=0;}}}
  867. /*-----*/
  868. KF(skipsentf) {B->dot.skipsentence(N.i);}
  869. KF(skipsentb) {B->dot.skipsentence(-N.i);}
  870. KF(skipparaf) {B->dot.skippara(N.i);}
  871. KF(skipparab) {B->dot.skippara(-N.i);}
  872. KF(formatpara) {thispara().format();}
  873. /*-----*/
  874. KF(callsubr) {val f=T1.getifn(T1t,"subr name:",_subr);
  875. if(!f.n) MOAN("no such subroutine or macro");
  876. if(f.n==_macro) {(*f.m)(N); setrec(f,f.m);}
  877. else {setref(f,f.S->f); f.S->f(N,val(),val());}}
  878. /*-----*/
  879. KF(gotoline) {int i; gotobof(); for(i=1;i<N.i;i++) godown();}
  880. /*-----*/
  881. KF(prkeys) {keys.print(N.i);}
  882. /*-----*/
  883. KF(prkeynames) {int i; char *s;
  884. for(i=0;i<256;i++) if(s=altnames[i]) {*B+=s; newline();}
  885. for(i=0;i<255;i++) if(s=keyname(i,0), strlen(s)>1) {*B+=s; newline();}
  886. *B+="(the other printable characters represent themselves)\n";}
  887. /*-----*/
  888. KF(prsubrnames) {int i; char *s;
  889. for(i=0;s=subrname[i].name;i++) {*B+=s; newline();}}
  890. /*-----*/
  891. KF(gotonbuf) {buffer*A;
  892. if(!N.n) {A=B; do{A=A->next?:bhead;} while(A->nrows?A!=B:0); A->go_to();}
  893. else {int i; A=bhead; for(i=0;i<N.i;i++) if(!(A=A->next)) break;
  894.    if(A) A->go_to();
  895.    else {pr(CW,"there are < %1d buffers",N.i); MOAN(CW);}}}
  896. /*-----*/
  897. KF(copytext){(B->Mark(N.i)-B->Mark(N.i+1)).copyto(B->dot).color(White,Magenta);}
  898. /*-----*/
  899. KF(movetext){(B->Mark(N.i)-B->Mark(N.i+1)).moveto(B->dot).color(White,Magenta);}
  900. /*-----*/
  901. KF(delblanklines) {line*K,*L,*Z; K=L=Z=B->dot.r; if(!K->blank()) return;
  902. while(L=K->prev,L?L->blank():0) K=L; while(Z->next?Z->blank():0) Z=Z->next;
  903. (mark(K,0)-mark(Z,0)).Delete(0); B->changed=1;}
  904. /*-----*/
  905. KF(deletewhite) {int i,j,k; line*L=B->dot.r; j=k=B->dot.c;
  906. while(!j     ?0:((i=L->s[j-1]),i==' '?1:i==9)) j--;
  907. while(k>=L->n?0:((i=L->s[k  ]),i==' '?1:i==9)) k++;
  908. (mark(L,j)-mark(L,k)).Delete(0); B->dot.r->la(1); B->changed=1;}
  909. /*-----*/
  910. KF(leaveonewhite) {deletewhite(N,T1,T2); B->dot+=' ';}
  911. /*-----*/
  912. KF(calldos) {T1.getifn(T1t,"DOS command:"); setrek(T1,T1.copy()); clearscreen();
  913. int i=system(T1.s); getkey(); if(i) Moan="DOS command error";}
  914. /*-----*/
  915. int compare(line*X,line*Y){reg int i; reg char *x=X->s,*y=Y->s;
  916. i=B->sortcol; if(i>=X->n) return i>=Y->n?0:-1; else if(i>=Y->n) return 1;
  917. x+=i; y+=i; reg char *z=x+(X->n<?Y->n);
  918. if(B->Case) {
  919.     for(;i=(byte)*x-(byte)*y,x<z;x++,y++) if(i) return i; return X->n-Y->n;}
  920. else {
  921.     for(;i=(byte)to__lower[(byte)*x]-(byte)to__lower[(byte)*y],x<z;x++,y++)
  922.       if(i) return i; return X->n-Y->n;}}
  923. /*-----*/
  924. KF(sortlines){int i,j,k; mark x=B->dot,y=B->Mark(N.i),z,*M;
  925. if(y<x) {z=x; x=y; y=z;} line*a=x.r,*b=y.r,*X,*Y,*e; if(a==b?:a->next==b)return;
  926. B->changed=1; z=B->dot; for(j=1,e=a;e?e!=b:0;e=e->next) j++;
  927. for(k=0,i=1;Breakin()?0:i?k<=j:0;k++) {reg int n; reg char*s;
  928.     if(a==b?:a->next==b) goto Z; e=a; i=0;
  929.     for(Y=(X=a)->next;Y!=b;X=Y,Y=Y->next) if(compare(X,Y)>0) {
  930.     e=Y; i=1; X->la(1); Y->la(1);
  931.     n=X->n; X->n=Y->n; Y->n=n; s=X->s; X->s=Y->s; Y->s=s;}
  932.     B->dot=mark(e,0); B->start.c<?=B->start.r->n;
  933.     forallmarks(M) M->c<?=M->r->n; B->display();
  934.     for(X=(Y=b->prev)->prev;;Y=X,X=X->prev) {if(compare(X,Y)>0) {
  935.     e=Y; i=1; X->la(1); Y->la(1);
  936.     n=X->n; X->n=Y->n; Y->n=n; s=X->s; X->s=Y->s; Y->s=s;} if(X==a) break;}
  937.     B->dot=mark(e,0); B->start.c<?=B->start.r->n; b=b->prev; if(a!=b) a=a->next;
  938.     Z: forallmarks(M) M->c<?=M->r->n; B->display();}
  939. z.c<?=z.r->n; B->dot=z;}
  940. /*-----*/
  941. KF(setsortcol) {if(N.n) B->sortcol=N.i>?0;
  942. pr(disp,"sortlines will ignore the first %1d chars in lines",B->sortcol);
  943. Display=disp;}
  944. /*-----*/
  945. KF(expandtabs) {(B->dot-B->Mark(N.i)).expandtabs();}
  946. /*-----*/
  947. KF(maketabs) {(B->dot-B->Mark(N.i)).maketabs();}
  948. /*-----*/
  949. KF(displayhex) {mark M=B->dot; int i=0,j; static char d[17]="0123456789abcdef";
  950. char*e=CW+512;
  951. A: if(M.c>=M.r->n) {if(!M.r->next) goto Z;
  952.     if(!M.r->no_cr()) {e[i]=CR; CW[i++]='0'; e[i]=' '; CW[i++]=d[CR];}
  953.     e[i]=LF; CW[i++]='0'; e[i]=' '; CW[i++]=d[LF];
  954.     M.r=M.r->next; M.c=0; goto A;}
  955. j=M.r->s[M.c++]; e[i]=j?:' '; CW[i++]=d[(j>>4)&15]; e[i]=' '; CW[i++]=d[j&15];
  956. if(i<256) goto A;
  957. Z: e[i]=0; CW[i]=0; Moan=e; Display=CW;}
  958. /*-----*/
  959. KF(version) {Display=VERSION;}
  960. /*-----*/
  961. KF(dis_play) {T1.getifn(T1t,"text to display?"); setrek(T1,T1.copy());
  962. display(T1.s,B->lastrow,0,Cyan);}
  963.