home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AAEMA95A.ZIP / CC.CC < prev    next >
Encoding:
C/C++ Source or Header  |  1995-10-06  |  42.2 KB  |  851 lines
  1. /* This file is CC.CC */
  2. #include "em.h"
  3. //#include <stdio.h>
  4. //FILE*debug;
  5. //#define DB 4
  6. /*-----*/
  7. #ifdef DB
  8. static int depth(){long j,i;for(i=long(&i+2),j=0;i;i=*((long*)i),j++);return j;}
  9. static void In(){int i=depth(),j; for(j=1;j<i;j++) putc(' ',debug);}
  10. #endif
  11. /*----- move M forwards 1, but skip certain char sequences; stop at whoa */
  12. int rightC(mark&M,mark whoa){enum{endcomment=1,instring,incomment};
  13. line*R=M.r; char*S=R->s; int C=M.c,z=0, n=R==whoa.r?(whoa.c<?R->n):R->n;
  14. char A=C<n?S[C]:LF, B=C<n-1?S[C+1]:LF;
  15. if(A=='/') if(B=='*') {C+=2; z=incomment; /* skip / * */
  16. Z:  if(C<n-1) if(S[C]=='*') if(S[C+1]=='/') {C+=2; z=0; goto E;}
  17.     if(C>=n) {if(R==whoa.r) goto E; /* skip * / */
  18.         C=0; if(!(R=R->next)) goto E; S=R->s; n=R==whoa.r?whoa.c:R->n;}
  19.     else ++C; goto Z;}
  20. /* if(A=='/') if(B=='/') {C=n; goto E;} */ /* C++ // comment, skip to eol */
  21. if(A=='\'') {if(++C>=n) goto E; /* character value */
  22.     if(S[C++]=='\\') {if(C>=n) goto E; /* \ found */
  23.         if(!((S[C]-'0')&~7)) { /* \nnn */
  24.             if(++C<n) if(!((S[C]-'0')&~7)) if(++C<n) if(!((S[C]-'0')&~7)) C++;}
  25.         else if(C<n) C++;}
  26.     if(C<n) if(S[C]=='\'') C++; goto E;}
  27. if(A=='"') {C++; z=instring;
  28. X:  if((A=C<n?S[C]:LF)=='"') {C++; z=0; goto E;} /* string */
  29.     if(C>=n) {if(R==whoa.r) goto E; /* M.r=0 if runs off file */
  30.         C=0; if(!(R=R->next)) goto E; S=R->s; n=R==whoa.r?whoa.c:R->n;}
  31.     else C+=(A=='\\')?2:1; goto X;} /* in string, skip \ and char */
  32. if(A=='*') if(B=='/') {C+=2; z=endcomment; goto E;} /* skip * / */
  33. if(C<n) C++; else {if(R==whoa.r) goto E;
  34.     C=0; if(!(R=R->next)) goto E; /* S=R->s; */ n=R==whoa.r?whoa.c:R->n;}
  35. E: M.c=C<?n; M.r=R; return z;} /* = whether now in string or comment */
  36. /*----- move mark 1 char *//* if runs off file, leaves this->r==0 */
  37. /* void mark::operator++(){if(++c>r->n) {c=0; r=r->next;}} */
  38. /* void mark::operator--(){if(--c<0) if(r=r->prev) c=r->n; else c=0;} */
  39. /*----- check C bracket matching in region R */
  40. val bracketsC(const region&R){enum{endcomment=1,instring,incomment};
  41. mark Q; static char *w,c,b[64],*X="([{}])"; int i,j=0,k=0,n=0;
  42. for(Q=R.beg;!Q.r?0:Q!=R.end;j=rightC(Q,R.end)) {
  43.     if(!k) if(j==endcomment) {k=2; b[0]='*'; b[1]='/'; n=2;}
  44.     c=*Q; n<?=63;
  45.     if(w=index(X,c)) if(i=w-X,!n?0:i<3?0:b[n-1]+i==5) n--; else b[n++]=i;}
  46. for(i=k;i<n;i++) b[i]=X[b[i]];
  47. if(n>63?0:j==instring) b[n++]='"';
  48. else if(n>62?0:j==incomment) {b[n++]='/'; b[n++]='*';}
  49. b[n]=0; return val(b,n);}
  50. /*-----*/
  51. KF(cbrackets) {val b=bracketsC(B->Mark(N.i)-B->dot);
  52. (B->Mark(N.i)-B->dot).color(White,Magenta);
  53. if(!b.n) {Display="all brackets in region match"; return;}
  54. pr(CW,"unpaired brackets in region: %s",b.s); Display=CW;}
  55. /*-----*//* START OF DIRECTORY READER */
  56. /* format of a directory entry returned by int21 ah=0x4e & ah=4f */
  57. class FCBtime{public: uns short x;
  58.     void strcat(char*B){short hr=(x>>11)&31,min=(x>>5)&63,twosec=x&31;
  59.     pa(B,"%2d.%02d.%02d",hr,min,twosec*2);};};
  60. class FCBdate{public: uns short x;
  61.     void strcat(char*B){static char*Month[]={"@","Jan","Feb","Mar","Apr","May",
  62.     "Jun","Jul","Aug","Sep","Oct","Nov","Dec",".",",",":"};
  63.     short year=(x>>9)&127,month=(x>>5)&15,day=x&31;
  64.     pa(B,"%4d %3s %2d",year+1980,Month[month],day);};};
  65. class dirbuf{public:byte Reservebuf[21],attrib; FCBtime time; FCBdate date;
  66.     uns long size; char name[13];
  67.     void setDTA(){_ax=0x1a00; _dx=(uns int)this; int21();};/* DTA -> user var */
  68.     /*----- read first directory entry into DTA *//* 1 if file found, else 0 */
  69.     byte GetFirst(char*dirname, uns int attrib=0){
  70.     _ax=0x4e00; _cx=attrib; _dx=(uns int)dirname; int21(); return !_carry;};
  71.     /*----- read next directory entry into DTA *//* 1 if file found, else 0 */
  72.     byte GetNext(){_ax=0x4f00; int21(); return !_carry;}
  73.     int get(char*name){setDTA(); return GetFirst(name,~0);};};
  74. dirbuf fileinfo;
  75. unsigned long filesize(char*name){return fileinfo.get(name)?fileinfo.size:-1;}
  76. class direntry{public:
  77.     byte attrib; FCBtime time; FCBdate date; uns long size; char name[13];
  78.     direntry*next;
  79.     direntry(dirbuf&d,direntry*n){reg char*s,*t,*u; attrib=d.attrib;size=d.size;
  80.         for(s=name,t=d.name,u=s+12;s<u;s++,t++) *s=to__lower[byte(*t)];
  81.         name[12]=0; date.x=d.date.x; time.x=d.time.x; next=n;};
  82.     /*----- information about an entry */
  83.     void print(char*B){pr(B,"%-15s%8u ",name,size);
  84.     date.strcat(B); strcat(B," "); time.strcat(B); if(attrib&31) strcat(B," (");
  85.     if(attrib&1)  strcat(B,"readonly,"); if(attrib&2) strcat(B,"hidden,");
  86.     if(attrib&4)  strcat(B,"system,");   if(attrib&8) strcat(B,"volname,");
  87.     if(attrib&16) strcat(B,"dir,");      if(attrib&31) B[strlen(B)-1]=')';};};
  88. class directory{public:direntry**entry; int n; char*name;
  89.     directory(char*Name);
  90.     ~directory(){int i;
  91.         for(i=0;i<n;i++) delete entry[i]; delete entry; delete name;};
  92.     Text copy();};
  93. /*------*/
  94. Text directory::copy(){int i,s;line*L[n+2]; for(i=n+1;i>=0;i--) L[i]=new line();
  95. for(i=0;i<=n;i++) *L[i]-*L[i+1]; for(s=i=0;i<n;i++) s+=entry[i]->size;
  96. pr(CW,"directory %s, has %1d entries, %1d bytes",name,n,s); *L[0]=val(CW);
  97. for(i=0;i<n;i++) {entry[i]->print(CW); *L[i+1]=val(CW);}
  98. return Text(L[0],L[n+1]);}
  99. /*-----*/
  100. KF(copydir){T1.getifn(Fn,"directory to list?"); setrek(T1,T1.copy());
  101. directory D(T1.s); B->dot.yank(D.copy(),0);}
  102. /*-----*/
  103. /* int compare(void*S,void*T,int n){register uns char*s=S,*t=T,*u=s+n;
  104.     while(s<u) if(*s++-*t++) return s[-1]-t[-1]; return 0;} */
  105. /*-----*/
  106. enum {s_dont=0,s_name=1,s_size=2,s_date=3}; static char dirsorttype=s_name;
  107. int ifswop(direntry*a,direntry*b){int i; switch(dirsorttype){
  108. case s_dont: return 0;
  109. case s_name: default: return strcmp(a->name,b->name)>0;
  110. case s_size: return a->size>b->size;
  111. case s_date: i=a->date.x-b->date.x; return i?i>0:(a->time.x>b->time.x);}}
  112. /*----- read a directory */
  113. directory::directory(char*N){name=new char[strlen(N)+1]; strcpy(name,N);
  114. int attrib=~0; int i,k; reg int j; direntry*ch=0; n=0;
  115. dirbuf db; db.setDTA(); if(!db.GetFirst(N,attrib)) {entry=0; return;}
  116. do if(db.name[0]!='.') {n++; ch=new direntry(db,ch);} while(db.GetNext());
  117. reg direntry**e=new direntry*[n];
  118. {reg direntry*dc; for(j=0,dc=ch;dc;j++,dc=dc->next) e[j]=dc;}
  119. for(k=1,i=n-1;k;i--) for(k=j=0;j<i;j++) {reg direntry*a,**b=e+j; /* sort */
  120.     if(ifswop(b[0],b[1])) {a=b[0]; b[0]=b[1]; b[1]=a; k=1;}}
  121. entry=e;}
  122. /*-----*/
  123. int samefile(reg char*s,reg char*t){reg int S=strlen(s),T=strlen(t);
  124. return S>T ?0: strcmp(s,t+T-S) ?0: S==T ?1: t[T-S-1]=='\\';}
  125. /*-----*/
  126. struct {char x; int n; char*s;} dmh[17]={
  127. {0, CR,         " go to marked file or dir"},
  128. {1, -ins,       " new buffer in this dir"},
  129. {1, -ctrl_insert," new subdir in this dir"},
  130. {0, -pageup,    " up a page"},
  131. {0, -pagedown,  " down a page"},
  132. {0, -del_,      " delete marked file or dir"},
  133. {1, -home,      " go to parent dir"},
  134. {1, -alt_K,     " copy this dir list into a kill"},
  135. {0, 'K'-64,     " copy file's full path to a kill"},
  136. {0, -alt_del,   " drop marked file's buffer"},
  137. {0, -alt_R,     " rename marked file"},
  138. {1, 'N'-64,     " sort by name"},
  139. {1, 'S'-64,     " sort by size"},
  140. {1, 'D'-64,     " sort by date"},
  141. {1, 'X'-64,     " don't sort"},
  142. {1, -2,         " exit from this submenu"},
  143. {1, -alt_end,   " abort this subr call"}}; enum{dmhn=17,exitoption=15};
  144. /*-----*/
  145. void filefromdirmenu(val&Dir,char*prompt,char*at/*=0*/){directory*D=0;
  146. char*kk,d[256],fn[13]; extern char*dirmenuhelp[]; val T; buffer*Z;
  147. mousestate ms,MS; int c,Q,i,I,j,k,n,s,v=gp_Rows-1,w=v-2,X=0,x=0,Y; line*L;
  148. B->dotcc=-1; strcpy(d,Dir.s); c=strlen(d); if(c) if(d[c-1]=='\\') d[--c]=0;
  149. if(at?strlen(at)>c:0) strncpy(fn,at+c+1,13); else fn[0]=0; j=0; ms=Jerry;
  150. READDIC: strcpy(d+c,"\\*.*"); delete D; D=new directory(d); x=X; X=0;
  151. YY: if(n=D->n) j%=n; else j=0; for(s=i=0;i<n;i++) s+=D->entry[i]->size;
  152. Jerry.range(D->n?:1,4); Jerry.move(0,0);
  153. if(fn[0]) if(!x?1:j<0) {j=0;
  154.     for(i=0;i<n;i++) if(samefile(D->entry[i]->name,fn)) break; if(i<n) j=i;}
  155. j<?=n-1; d[c]=0; k=w/2; k=n<w?0:((j-w/4)/k)*k; k<?=n-w; k>?=0;
  156. Y: pr(CW,"directory %s, %1d entries, %1d bytes (I was asking \"%s\")",
  157.   D->name,n,s,prompt); display(CW,0,0,Cyan); d[c]='\\';
  158. for(i=k;i<n;i++) {if(i-k>=w) break; CW[1]=' '; D->entry[i]->print(CW+2);
  159.     strcpy(d+c+1,D->entry[i]->name);
  160.     CW[0]=!(Z=buf_named(d))?' ':Z->changed?'*':'o';
  161.     CW[gp_Cols]=0; display(CW,i-k+1,0,Orange);} d[c]=0;
  162. display(n<2? "(ctrl-_ full help, home \032 parent directory, altend aborts)":
  163.   "(\030\031 select, ctrl-_ full help, home \032 parent dir, altend aborts, \
  164. return chooses)",  (i-k+1)>?1,0,Orange);
  165. AA: i=k; k=w/2; k=n<w?0:((j-w/4)/k)*k; k<?=n-w; k>?=0;
  166. if(i!=k) goto Y; Y=j-k+1; if(x!=-mousemove) Jerry.move(j,1);
  167. if(n) scr(Y,1)=sch(2,White); Jerry.mc=1;
  168. switch(x=getkey()){default: goto AA;
  169. case -ins: strcat(d,"\\"); T.n=0; T.s=0; T.getifn(Fn,prompt,_buffer,d);
  170.     findbuf(T)->go_to(); setrek(T1,T.copy()); delete D; Jerry=ms; return;
  171. case -ctrl_insert: strcat(d,"\\"); T.n=0; T.getifn(Fn,"new directory?",0,d);
  172.     display(" ",v,0); _ax=0x3900; _dx=(int)T.s; int21(); if(_carry) beep();
  173.     /** setrek(T1,T.copy()); */ X=1; goto READDIC;
  174. case -alt_end: Jerry=ms; MOAN("aborted");
  175. case -downarrow: if(n) j=(j+1  )%n; break;
  176. case -uparrow:   if(n) j=(j-1+n)%n; break;
  177. case -pagedown:  if(n) j=(j+w)<?(n-1); break;
  178. case -pageup:    if(n) j=(j-w)>?0; break;
  179. case -mousemove: if(n) j=Jerry.y; break;
  180. case -lbutton: case CR: Jerry.mc=0; if(!n) goto AA;
  181.     d[c++]='\\'; strcpy(d+c,D->entry[j]->name);
  182.     if(D->entry[j]->attrib&16) {
  183.         c=strlen(d); strcpy(d+c,"\\*.*"); directory*E=new directory(d);
  184.         delete D; D=E; refreshscreen(); fn[0]=0; j=0; goto YY;}
  185.     delete D; strcpy(Dir.s,d); Dir.n=strlen(d); Jerry=ms; return;
  186. case -del_: if(!n) goto AA; i=D->entry[j]->attrib&0x18;
  187.     if(i&0x16) goto DD; if(i) goto AA; /* volume name */
  188.     beep(); if(!yesno("do you really want to delete this PC file?")) goto AA;
  189.     beep(); i=yesno("do you REALLY want to delete this PC file?");
  190.     display(" ",v,0);if(!i) goto AA; d[c++]='\\'; strcpy(d+c,D->entry[j]->name);
  191.     _ax=0x4100; _dx=(int)d; int21(); d[--c]=0; X=1; goto READDIC;
  192. DD: beep(); i=yesno("do you really want to delete this directory?");
  193.     display(" ",v,0);if(!i) goto AA; d[c]='\\'; strcpy(d+c+1,D->entry[j]->name);
  194.     _ax=0x3a00;_dx=(int)d; int21(); if(_carry)beep(); d[c]=0; X=1; goto READDIC;
  195. case -home: delete D;
  196.     c=k=strlen(d); for(i=0;i<k;i++) if(d[i]=='\\') c=i; d[c]=0; refreshscreen();
  197.     if(c<k-1) strncpy(fn,d+c+1,13); else fn[0]=0; j=0; goto READDIC;
  198. case -alt_K: setref(f,©dir); strcpy(d,!D?"D_isnull":D->name?:"(null)");
  199.     setrek(T1,copyof(d));
  200.     if(D) {nkill++; killring[nkill&=15].clear(); killring[nkill]=D->copy();}
  201.     j=0; goto READDIC;
  202. case 'K'-64: if(!n) goto AA; d[i=c]='\\'; strcpy(d+i+1,D->entry[j]->name);
  203.     if(D->entry[j]->attrib&16) strcat(d,"\\"); L=new line(copyof(d)); d[c]=0;
  204.     killring[(++nkill)&=15].clear(); killring[nkill]=Text(L,L); goto AA;
  205. case -alt_del: d[c]='\\'; strcpy(d+c+1,D->entry[j]->name); X=1;
  206.     Z=buf_named(d); d[c]=0; if(Z) if(deletebuffer(Z))goto READDIC; X=0; goto AA;
  207. case -alt_R: d[c]='\\'; d[c+1]=T.n=0; T.s=0;
  208.     T.getifn(Fn,"rename this file as:",0,d); strcpy(d+c+1,D->entry[j]->name);
  209.     _ax=0x5600; _dx=(int)d; _di=(int)T.s; int21(); if(_carry) beep(); d[c]=0;
  210.     display(" ",v,0); X=1; goto READDIC;
  211. case '_'-64: for(i=0;kk=dirmenuhelp[i];i++) display(kk,i+1,0,Cyan); X=1;
  212.     display("(type any char to continue)",i+1,0,Cyan); getkey(); goto READDIC;
  213. case 'N'-64: dirsorttype=s_name; goto READDIC;
  214. case 'S'-64: dirsorttype=s_size; goto READDIC;
  215. case 'D'-64: dirsorttype=s_date; goto READDIC;
  216. case 'X'-64: dirsorttype=s_dont; goto READDIC;
  217. case -f1: case -rbutton: case -mbutton: Q=0;
  218.     for(i=0;i<dmhn;i++) display((n?:dmh[i].x)?dmh[i].s:" ",i+1,47,Cyan);
  219.     MS=Jerry; Jerry.move(0,0); Jerry.range(dmhn,4); i=0; scr(1,47)=1+256*White;
  220.     MENU: I=i; scr(i+1,47)=1+256*White; if(Q!=-mousemove) Jerry.move(i,0);
  221.     switch(Q=getkey()) {
  222.     case -uparrow: i=(i+dmhn-1)%dmhn; break;
  223.     case -downarrow: i=(i+1)%dmhn; break;
  224.     case -mousemove: i=Jerry.y; break;
  225.     case -mbutton: case -rbutton: i=exitoption;
  226.     case CR: case -lbutton: if(n?:dmh[i].x) inject(dmh[i].n); else break;
  227.         Jerry=MS; for(i=0;i<dmhn;i++) display(" ",i+1,47,White); goto Y;}
  228.     if(I!=i) scr(I+1,47)=' '+256*White; goto MENU;}
  229. if(n) scr(Y,1)=sch(' ',White); goto AA;}
  230. /*-----*/
  231. KF(gotodir){char*s; strcpy(s=Fn.s,B->name); int i,j=-1,n=Fn.n=strlen(Fn.s);
  232. for(i=0;i<n;i++) if(s[i]=='\\') j=i;
  233. if(j<1) MOAN("this buffer has no file name and thus no directory"); s[j]=0;
  234. Fn.n=j; filefromdirmenu(Fn,"file?",B->name); findbuf(Fn)->go_to();}
  235. /*-----*/
  236. void bitpack(char*s,char*t,int n){int i; reg char*u;
  237. for(i=0;i<n-7;i+=8) {u=t+i; *s++=
  238.     (u[0]<<7)+(u[1]<<6)+(u[2]<<5)+(u[3]<<4)+(u[4]<<3)+(u[5]<<2)+(u[6]<<1)+u[7];}
  239. if(i==n) return; *s=0; for(;i<n;i++) *s=(*s<<1)|t[i];}
  240. /*-----*/
  241. void bitexp(reg char*t,reg char*s,int n) {reg char *a=t+n,c;
  242. if(s) while(t<a) {c=*s++; *t++=c&1; *t++=(c&2)>>1; *t++=(c&4)>>2; *t++=(c&8)>>3;
  243.     *t++=(c&16)>>4; *t++=(c&32)>>5; *t++=(c&64)>>6; *t++=(c&128)>>7;}
  244. else while(t<a) *t++=0;}
  245. /*-----*/
  246. void bitcopy(reg char*t,reg char*s,int n) {reg char *a=t+((n+7)>>3);
  247. if(t) if(s) while(t<a) *t++=*s++; else while(t<a) *t++=0;}
  248. /*-----*//* MY OWN FORMATTED PRINT */
  249. /**** These print functions rely on C function arg values being stored at */
  250. /* (sizeof(each arg's value) rounded up to a multiple of 4) byte intervals ****/
  251. char*pr(char*B,char*F0,...) { return pr_(B,             F0,(int*)(&F0)+1);}
  252. char*pa(char*B,char*F0,...) { return pr_(B+strlen(B),   F0,(int*)(&F0)+1);}
  253. void pf(int f,char*F0,...) {if(f>=0) pr_((char*)f,      F0,(int*)(&F0)+1);}
  254. void pb(char*F0,...) {               pr_((char*)_buffer,F0,(int*)(&F0)+1);}
  255. void ps(char*F0,...) {               pr_(0,             F0,(int*)(&F0)+1);}
  256. void p_r(char*B,char*F0,...) {       pr_(B,             F0,(int*)(&F0)+1);}
  257. /* pr=string B, pa=string B append, pf=file f, pb=current buffer, ps=screen */
  258. /*-----*/
  259. char*pr_(char*S,char*F0,int*args){
  260. static char d[]="0123456789abcdef"; val*v; char *F=F0,*t,*u,*bb,*b,W[1024],s;
  261. int c,m,n,p,q,r,rs,i,j,w,*P=args; uns long X,V; bb=b=(int)S>=4096?S:W;
  262. /* Gnu C subr args are at 4*n-byte intervals */
  263. while(c=*F++) {if(c!='%') {*b++=c; continue;} rs=s=w=0; p=1;
  264. Z: switch (c=*F++) { /* w=wanted width, m=actual width, p=min width zerofill */
  265.     case 0: goto END;
  266.     case 'k': s=1;
  267.     case 'K': ((val*)(*P++))->expandkeyseq(b,s); b+=strlen(b); break;
  268.     case ' ': if(!s) s=' '; goto Z;
  269.     case '-': rs=1; goto Z;
  270.     case '+': s='+'; goto Z;
  271.     case '.': p=0; while(isdigit(c=*F++)) p=10*p+c-'0'; F--; goto Z;
  272.     case '0': p=-1; goto Z;
  273.     case'1':case'2':case'3':case'4':case'5':case'6':case'7':case'8':case'9':
  274.         w=c-'0'; while(isdigit(c=*F++)) w=10*w+c-'0'; F--; goto Z;
  275.     case 'c': t=(char*)(P++); n=1; goto STR; /****works as PC is little-endian*/
  276.     case 's': if(!(t=(char*)*P++)) t="(null)"; n=strlen(t); goto STR;
  277.     case 'S': if(!(t=(char*)*P++)) t="(null)"; n=strlen(t); goto TT;
  278.     case 't': n=strlen(t=keysort[-(int)*P++]); goto STR;
  279.     case 'T': u=b; b=(b+1)>?(bb+((int)*P++)); while(u<b) *u++=' '; break;
  280.     case 'v': v=(val*)*P++; t=v->s; n=t?v->n:0; if(v->magic()) goto MAGIC;
  281. TT:     *b++='"';
  282.         for(i=0;i<n;i++) {w=strlen(u=chname(t[i])); for(j=0;j<w;j++) *b++=u[j];}
  283.         *b++='"'; break;
  284. MAGIC:  n&=0x00ffffff; *b++='"';
  285.         for(i=0;i<n;i++) {if(bit(t+n+1,i)) *b++='`';
  286.             w=strlen(u=chname(t[i])); for(j=0;j<w;j++) *b++=u[j];}
  287.         *b++='"'; break;
  288.     case 'd': X=*P++; if((long)X<0) {X=-X; s='-';} r=10; goto NUM;
  289.     case 'o': X=*P++; r=8;  goto NUM;
  290.     case 'u': X=*P++; r=10; goto NUM;
  291.     case 'x': X=*P++; r=16; goto NUM;
  292.     default: *b++=c;}; goto Y;
  293. NUM: if(p<0) p=s?w-1:w; V=X;
  294.     m=0; if(V?:p) do m++; while(V/=r); m>?=p; /* m=#digits */ n=m+(s?1:0);
  295.     if(!rs) for(q=n;q<w;q++) *b++=' '; if(s) *b++=s;
  296.     for(c=m-1;c>=0;c--) {b[c]=d[X%r]; X/=r;} b+=m; goto J;
  297. STR: if(!rs) for(q=n;q<w;q++) *b++=' '; u=t+n; while(t<u) *b++=*t++;
  298. J:  if(rs) for(q=n;q<w;q++) *b++=' '; Y:;}
  299. END: *b=0;
  300. if((int)S==_buffer) *B+=W; /* insert into current buffer */
  301. else if(!S) wr(W); /* write to screen */
  302. else if((int)S<4096) write((int)S,W,b-W); /* write on a file */ return b;}
  303. /*-----*/
  304. char**readtext(char*file){char*s; int F; if((F=open(file,0x8001))<0) return 0;
  305. dirbuf d; if(!d.get(file)) return 0; int i,j,n=d.size; char*text=new char[n+1];
  306. n=read(F,text,n); close(F); if(!n?:text[n-1]!=LF) text[n++]=LF;
  307. for(i=j=0;i<n;i++) if(text[i]==LF) j++; char**lin=new char*[j+1]; lin[0]=text;
  308. for(i=0,j=1;i<n;i++) if(text[i]==LF) {text[i]=0; lin[j++]=&text[i+1];}
  309. for(s=lin[0]-2,i=1;i<j;i++) if(s[2]) if(*(s=lin[i]-2)==CR) *s=0; lin[j-1]=0;
  310. return lin;}
  311. /*-----*//* START OF SPELLING CHECKER */
  312. typedef unsigned char byte; /* V=vowel, C=consonant, E=anything but 'e' */
  313. static char*Buf,*P,*Be;
  314. static int Wn=0,sn,D,pradd,alteredfrom,pfstart,RV;
  315. #define upb(array) (sizeof(array)/sizeof((array)[0]))
  316. #define forways(m,w) for(m##e=(m=w.way)+w.wayn;m<m##e;m++)
  317. enum{MAXDICT=200000,NWORDS=20000};
  318. enum{noGem=0,Gem=1,GemUK=2};
  319. enum{e_normal=0,e_keep=1,e_soften=2};
  320. enum{supine=0,conjA=1,conjI=2,notlatin=3};
  321. class Decl{public: uns int gem:2,cap:1,conj:2,e:2,bad:1;};
  322. class Word{public: char*s; byte n; Decl decl;
  323.     inline char*suf(){return s+n+1;};
  324.     inline void operator=(val&v){s=v.s; n=v.n;};};
  325. class Way {public: char*del,*add; byte deln,addn;};
  326. class Suf {public: Way*way; byte wayn;};
  327. static val*pre; static int npre; static Word word[NWORDS]; /******/
  328. static Suf suf[256],desuf[32];
  329. static int findword(val w);
  330. static byte _CV[32]=
  331.   {0,0,1,1,1,0,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,0,0,0,0,0};
  332. inline int  cons(char c){return   _CV[c&31];}
  333. inline int vowel(char c){return 1-_CV[c&31];}
  334. #define forwords(w) for(w=sn;w<Wn;w++)
  335. #define forall(w) for(w=1;w<Wn;w++)
  336. #define forsuffs(s,w) for(s=w.suf();*s;s++)
  337. /*-----*/
  338. class wordlist{public: char**s; int n;
  339. wordlist(int i=1){s=new char*[16]; s[0]=""; n=1;}; /* word 0 is dummy */
  340. int place(char*w){int i,j,k,m; if(n<2) return -1; int wl=strlen(w);
  341.     for(j=0x8000,m=0;j>=1;j>>=1) if((k=m+j)<n) {
  342.         i=strncmp(w,s[k]+1,wl+1); if(!i) return k; if(i>0) m=k;}
  343.     return -m-1;};
  344. inline int contains(char*w){return place(w)>0;};
  345. int operator+(char*w){char**t; int i,k; int wl=strlen(w);
  346.     if((k=place(w))>0) return k; k=-k; t=s;
  347.     if(!(n&15)) {s=(char**)myalloc((n+16)*sizeof(char*));
  348.         for(i=0;i<k;i++) s[i]=t[i];}
  349.     for(i=n;i>k;i--) s[i]=t[i-1];
  350.     s[k]=(char*)myalloc(wl+2); memcpy(s[k]+1,w,wl+1);
  351.     s[k][0]=0; if(s!=t) delete t; n++; return k;};
  352. void empty(){int i; for(i=1;i<n;i++) delete s[i]; delete s; s=new char*[16];
  353.     s[0]=""; n=1;};
  354. Text copy(int min){int i,j,m=0; for(i=1;i<n;i++) if(s[i][0]>=min) m++;
  355.     line*L[m+1]; for(i=0;i<=m;i++) L[i]=new line();
  356.     if(min>=0) {for(i=1,j=0;i<n;i++) if(s[i][0]>=min) {
  357.         *L[j]-*L[j+1]; *L[j++]=val(s[i]+1);}}
  358.     else for(i=1;i<n;i++) {*L[i-1]-*L[i]; strcpy(CW,s[i]+1); j=strlen(CW);
  359.         CW[j++]='/';CW[j++]='#'; CW[j++]='0'+s[i][0]; CW[j]=0; *L[i-1]=val(CW);}
  360.     return Text(L[0],L[m]);};};
  361. wordlist appendix(1); int&appendixsize=appendix.n;
  362. /*----- ONE-LINERS */
  363. static void skipsp(){while(*P==' ') P++;}
  364. static void findeol(){while(*P!='\n') P++; P++;}
  365. static int nextis(char c){reg int j; skipsp(); if(j=*P==c) P++; return j;}
  366. //static int getn(){reg int n=0; while(isdigit(*P))n=n*10+*P++-'0'; return n;}
  367. static void X(char*moan) {Wn=0;
  368.     pr(CW,"bad data at %dth byte of dictionary: %s",P-Buf,moan); MOAN(CW);}
  369. /*-----*/
  370. static char*getwword(byte&N){reg char c,*s=P,*t; reg int n=0; skipsp();
  371. while(isalnum(c=*P)?1:c=='!'?:c=='+') {P++; n++;}
  372. if(!(N=n)) return 0; t=new char[n+1]; memcpy(t,s,n); t[n]=0; return t;}
  373. /*-----*/
  374. static val getheadword(){reg char *s; reg int n=0; skipsp(); s=P;
  375. if(*P=='-'?:*P=='<') {n++; P++;} while(isalnum(*P)?:*P=='\'') {n++; P++;}
  376. if(!n) return val(0,0); return val(s,n);}
  377. /*-----*/
  378. static void readways(Suf&S){Way way[32],*m; bzero(m=way,32*sizeof(Way));
  379. do {if(m-way>=32) X("this suffix has > 32 methods");
  380.     m->del=getwword(m->deln)?:"";
  381.     if(nextis(':')) m->add=getwword(m->addn)?:"";
  382.     else {m->add=m->del; m->del=""; m->addn=m->deln; m->deln=0;}
  383.     m++;} while(nextis(','));
  384. S.way=new Way[S.wayn=m-way]; memcpy(S.way,way,S.wayn*sizeof(Way));}
  385. /*-----*/
  386. static void setup(){static Way nullway={"","",0,0};
  387. int i,j,k,l,n; char *p,*q,*Q[256+1]; byte sf[256];
  388. bzero(word,sizeof(word)); Buf=new char[MAXDICT]; val DF(0,0),v;
  389. suf[0].wayn=1; suf[0].way=&nullway; suf[1]=suf[0]; i=1;
  390. strcpy(T2t.s,dictname); T2t.n=strlen(T2t.s);
  391. DF.getifn(T2t,"dictionary file name?");
  392. D=open(T2t.s,0x4001); /*read text*/ Display="reading dictionary"; showmoan();
  393. Be=Buf+(n=read(D,Buf,MAXDICT)); if(n<=0) MOAN("I can't read the dictionary");
  394. if(n==MAXDICT) MOAN("dictionary too big for buffer");
  395. if(Be[-1]!='\n') *Be++='\n'; pradd=0;
  396. for(P=Buf;strncmp(P,"--------",8);findeol()) if(P>=Be) X("bad dictionary");
  397. findeol(); for(i=0;i<32;i++) {desuf[i].way=0; desuf[i].wayn=0;}
  398. while(nextis('^')) {if(!isalpha(*P)) X("bad char after '^'"); i=(*P)&31; P+=2;
  399.     readways(desuf[i]); findeol();}
  400. for(i=0,sn=1;;sn++) {findeol(); v=getheadword(); if(!v.n) X("bad headword");
  401.     Q[sn]=P; word[sn]=v; if(v.s[0]=='<') i++; else if(v.s[0]!='-') break;
  402.     if(sn>=256-1) X("too many suffixes");}
  403. Wn=sn; pre=new val[npre=i]; RV=findword(val("-RV",3));
  404. for(j=0,i=1;i<sn;i++) {reg Suf&S=suf[i]; P=Q[i]; S.wayn=0; S.way=0;
  405.     if(nextis('=')) readways(S); Q[i]=P;
  406.     if(word[i].s[0]=='<') pre[j++]=val(word[i].s+1,word[i].n-1);}
  407. for(j=1;findeol(),P<Be;j++) {reg Word&W=word[j]; char*s;
  408.     if(j>=NWORDS) X("too many entries");
  409.     if(j<=sn) P=Q[j]; else {v=getheadword(); if(!v.n) X("bad headword"); W=v;}
  410.     k=W.n;
  411.     if(j>1) if(strncmp(word[j-1].s,W.s,W.n+1)>=0) X("entry out of ascii order");
  412.     if(k>1)if(W.s[k-1]=='e')if(W.s[k-2]=='c'?1:W.s[k-2]=='g') W.decl.e=e_soften;
  413.     for(i=0;i<sn;i++) sf[i]=0;
  414.     while(nextis('/')) {skipsp(); /* stop at / \\ \n space */
  415.         for(s=P;*P=='/'?0:*P=='\\'?0:*P=='\n'?0:*P!=' ';P++);
  416.         i=(n=P-s)==1 ? *s : n==2 ? *s+256*s[1] : 0;
  417.              if(i=='2')         W.decl.gem=Gem; /* doubles last letter */
  418.         else if(i=='3')         W.decl.gem=GemUK; /* ditto, optional */
  419.         else if(i=='X')         W.decl.bad=1; /* illegal word */
  420.         else if(*s=='#')        ; /* start of marker used by putappendix */
  421.         else if(i=='!'+256*'a') W.decl.conj=conjA;
  422.         else if(i=='!'+256*'i') W.decl.conj=conjI;
  423.         else if(i=='!'+256*'n') W.decl.conj=notlatin;
  424.         else if(i=='K'+256*'E') W.decl.e=e_keep;  /* -e stays before vowel */
  425.         else if(i=='P'+256*'N') W.decl.cap=1;
  426.         else if(i=='N'+256*'S') sf[0]=255; /* not self */
  427.         else if((*s=='-'?:*s=='<')?n>1:0) {k=1; if(s[n-1]=='*') {k=255; n--;}
  428.             if(!(l=findword(val(s,n)))) X("not a known suffix"); sf[l]=k;}
  429.         else X("rubbish after '/'");}
  430.     skipsp(); if(*P!='\n') X("rubbish after entry");
  431.     for(i=l=0;i<sn;i++) l+=(sf[i]<?2);
  432.     p=new char[W.n+1+l+1]; memcpy(p,W.s,W.n); p[W.n]=0; q=p+W.n+1;
  433.     if(k=sf[0]) *q++=k; for(i=1;i<sn;i++) if(k=sf[i]) {*q++=i; if(k-1) *q++=k;}
  434.     *q=0; W.s=p;}
  435. close(D); delete Buf; Wn=j;
  436. for(pfstart=1;pfstart<sn;pfstart++) if(word[pfstart].s[0]=='<') break;
  437. pr(CW,"dictionary read: %d words",Wn); Display=CW; showmoan();}
  438. /*-----*/
  439. static int addsuffix(val w,Decl decl,Way&m,char*saveend){
  440. /* try a form of a suffix. Return 0 if this suffix won't work this way */
  441. reg char dn=m.deln,*s,*t; if(w.n-(w.s[0]=='-'?0:1)<dn) return 0;
  442. #ifdef DB
  443. debug=fopen("t$debug","a"); In();
  444.     fprintf(debug,"addsuffix(%s - %s + %s)\n",w.s,m.del,m.add); fclose(debug);
  445. #endif
  446. if(!dn) {saveend[0]=0; s=w.s+w.n;}
  447. else {if(m.del[0]=='e') switch(decl.e) {
  448.         default: break;
  449.         case e_keep: return 0;
  450.         case e_soften: if(!index("iey",m.add[0])) return 0;}
  451.     for(s=w.s+w.n-dn,t=m.del;*t;t++,s++){
  452.         if(*t=='V') if(vowel(*s)) continue;
  453.         if(*t=='C') if(cons(*s))  continue;
  454.         if(*t!=*s) return 0;}
  455.     if(dn) memcpy(saveend,s=w.s+w.n-dn,dn); saveend[dn]=0;}
  456. if(t=m.add) if(*t) {
  457.     if(!dn) if(vowel(*t)?:*t=='y') if(decl.gem) {*s=s[-1]; s++;}
  458.     while(*t) if(*t=='!') switch(t++,decl.conj){
  459.     case conjA: *s++='a'; *s++='t'; break;
  460.     case conjI: *s++='i'; *s++='t'; default:;}
  461.     else if(*t=='+') {s++; t++;} else *s++=*t++;} *s=0;
  462. alteredfrom=w.n-dn; return s-w.s;} /* return length of suffixed word */
  463. /*-----*/
  464. static int findword(val w){int i,j,k,n; if(!w.s) return 0;
  465. for(j=0x8000,n=0;j>=1;j>>=1) if((k=n+j)<Wn) {/* word 0 in dictionary is dummy */
  466.     i=strncmp(w.s,word[k].s,w.n); if(!i) if(w.n<word[k].n) i=-1;
  467.     if(!i) return k; if(i>0) n=k;} return 0;}
  468. /*-----*/
  469. int checkderivs(val w,val u,Word&U,Decl decl){char*sf=U.suf(),rv; Word*Q;
  470. #ifdef DB
  471. debug=fopen("t$debug","a"); In();
  472. fprintf(debug,"checkderivs(%s,%s as %s)",w.s,u.s,U.s);
  473. int I; for(I=0;I<16;I++) fprintf(debug," %02x",byte(sf[I])); putc('\n',debug);
  474. fclose(debug);
  475. #endif
  476. if(Breakin()) return 0; if(u.n>w.n+1) return 0; /* word has got too long */
  477. int i,k,newun; Way*m,*me; byte s; if(!sf) return 0; if(byte(*sf)==255) sf++;
  478. for(;s=*sf;sf++) {Word&W=word[s]; Suf&S=suf[s]; if(rv=(byte(sf[1])==255)) sf++;
  479. #ifdef DB
  480.     debug=fopen("t$debug","a"); In();
  481.     fprintf(debug,"checkderivs(%s,%s as %s: %s)\n",w.s,u.s,U.s,W.s);
  482.     In(); fprintf(debug,"S.wayn=%1d\n",S.wayn);
  483.     fclose(debug);
  484. #endif
  485.     if(W.s[0]=='<') {Way&P=S.way[0]; i=P.addn+u.n; char T[i+1],*s; val v(T,i);
  486.         memcpy(T,P.add,P.addn); memcpy(T+P.addn,u.s,u.n+1);
  487.         if(!strncmp(w.s,T,v.n+1)) return 1; s=W.suf();
  488.         if(byte(s[0])==255?!s[1]:0) {Word V; V.decl=U.decl; V.n=U.n; char*t;
  489.             char Y[512]; memcpy(V.s=Y,U.s,i=U.n+1); t=Y+i; s=U.s+i;
  490.             while(*s) /* if(byte(*s)>=pfstart) break; else */ *t++=*s++; *t=0;
  491.             Q=&V;}
  492.         else Q=&W;
  493.         if(checkderivs(w,v,*Q,decl)) return 1;}
  494.     else  if(!S.wayn) {if(checkderivs(w,u,W,decl)) return 1;}
  495.     else for(me=(m=S.way)+S.wayn;m<me;m++) {char T[16];
  496.         if(newun=addsuffix(u,decl,*m,T)) {
  497.             if(!strncmp(w.s,u.s,newun+1)) k=byte(*W.suf())!=255;
  498.             else k=checkderivs(w,val(u.s,newun),W,W.decl) ?: !rv?0:
  499.                 checkderivs(w,val(u.s,newun),word[RV],W.decl);
  500.             strcpy(u.s+u.n-m->deln,T); if(k) return k; break;}}}
  501. return 0; /* fault: no way to make the suffix wanted */}
  502. /*-----*/
  503. val Stak[64];
  504. /*-----*/
  505. static int checkwd(val w,val u,int D=0){if(D>=63?:Breakin()) return 0;
  506. #ifdef DB
  507. debug=fopen("t$debug","a"); In();
  508.     fprintf(debug,"checkwd(%s,%s)\n",w.s,u.s); fclose(debug);
  509. #endif
  510. int i,j,k,n; char T[512]; Way*m,*me; byte s; Suf*S; val*pr;
  511. for(i=0;i<D;i++) if(!strncmp(u.s,Stak[i].s,u.n+1)) return 0; Stak[D]=u;
  512. //for(j=i=0;i<D;i++) if(!strncmp(u.s,Stak[i].s,u.n+1)) j=i;
  513. // if(j) {debug=fopen("t$debug","a"); In();
  514. //  fprintf(debug,"same as Stak[%d]\n",j); fclose(debug); return 0;}
  515. //Stak[D]=u;
  516. /* to stop a loop that developed e.g. ble -> blee -> ble -> etc */
  517. for(j=0x8000,n=0;j>=1;j>>=1) if((k=n+j)<Wn) {Word&W=word[k];
  518.     i=strncmp(u.s,W.s,u.n+1); if(!i) if(u.n<W.n) i=-1;
  519.     if(!i) {if(W.decl.bad) return 0; /* word u found exactly */
  520.         if(!strncmp(w.s,u.s,u.n+1)) return (s=*W.suf())==255?0:k;
  521.         memcpy(T,W.s,u.n+1); /* find if u can be extended to w */
  522.         if(checkderivs(w,val(T,u.n),W,W.decl)) return 1;
  523.         if(W.decl.gem==GemUK){Decl d=W.decl; d.gem=noGem; /* UK/USA variation */
  524.             if(checkderivs(w,val(T,u.n),W,d)) return 1;}
  525.         break;}
  526.     if(i>0) n=k;}
  527. for(pr=pre+npre-1;pr>=pre;pr--) if(*u.s==*pr->s) if(!strncmp(u.s,pr->s,j=pr->n))
  528.   if(k=checkwd(w,val(u.s+j,u.n-j),D+1)) return k; /*try removing prefix from u*/
  529. for(S=desuf+(u.s[u.n-1]&31),me=(m=S->way)+S->wayn;m<me;m++) {
  530.     if(u.n>m->deln) if(!strncmp(u.s+u.n-m->deln,m->del,m->deln)) {
  531.         if(u.n-m->deln+m->addn>511) break;
  532.         memcpy(T,u.s,u.n+1); /* try removing suffix from u */
  533.         memcpy(T+u.n-m->deln,m->add,m->addn+1); j=strlen(T);
  534.         if(m->addn>m->deln) if(j>2) if(T[j-1]==T[j-2]) if(T[j-2]==T[j-3]) break;
  535. /* to stop a loop that developed: ble -> blee -> bleee -> etc */
  536.         if(k=checkwd(w,val(T,j),D+1)) return k;}}
  537. if(u.n>2) if(cons(i=u.s[u.n-1])) if(i==u.s[u.n-2]) { /* doubled consonant */
  538.         memcpy(T,u.s,u.n-1); T[j=u.n-1]=0;
  539.     k=checkwd(w,val(T,j),D+1); u.s[u.n++]=i; return k;}
  540. return 0;}
  541. /*-----*/
  542. KF(checkspelling){char*eor="end of region"; int z=N.i?0:N.n; if(!N.n) N.i=0;
  543. int i,j,k; mark X,Y=B->dot,Z=B->eof(); char *S,T[512]; B->dotcc=B->dotcc2=-1;
  544. if(N.i) {Z=B->Mark(N.i); if(Z<Y) {X=Z; Z=Y; Y=X; setmark(N); B->dot=Y;}}
  545. LOOP: X=Y; if(Breakin()) {B->dot=Y; Moan="user breakin"; return;}
  546. if(X.is_alnum()) X.skip_alnum(1); else X.find_alnum(0,0);
  547. if(X.eol()) {if(X.r==Z.r) {Display=eor; return;} ++X;
  548.     if(!X.r) {Moan="hit eof"; return;} Y=X; goto LOOP;}
  549. Y=X; SW: Y.skipword(1); if(Y.r==Z.r) if(Y.c>Z.c) {Display=eor; return;}
  550. B->dot=Y; B->display(); (X-Y).color(White,Magenta);
  551. if(X.r!=Y.r) MOAN("bad craziness: end-of-line in word!");
  552. if(X.c>=Y.c) MOAN("no word found"); if(Y.c-X.c>500) MOAN("word too long");
  553. S=X.r->s+X.c; T[j=(Y.c-X.c)<?511]=0;
  554. for(k=0,i=j;k<j;k++) if(isdigit(T[k]=to_lower(S[k]))) i--;
  555. if(!Wn) setup(); i=!i ?: checkwd(val(T,j),val(T,j)) ?: appendix.contains(T);
  556. if(!i) if(Y.c<Y.r->n-1) if(*Y=='\'') if(++Y,Y.is_alnum()) goto SW; else --Y;
  557. if(i) if(!N.i) {Display="spelt correctly"; return;} else goto LOOP;
  558. if(T1.n) {i=appendix+T; appendix.s[i][0]=1; goto LOOP;}
  559. B->display(); B->dotcc=B->dotcc2=-1;
  560. k=!N.i?1:yesno("misspelt or unknown word: shall I stop and let you change it?");
  561. if(!k?:z) {
  562.     j=yesno("misspelt or unknown word: shall I list it as vocabulary?");
  563.     i=appendix+T; appendix.s[i][0]=j?1:0;}  if(!k) goto LOOP;
  564. (X-Y).color(White,Magenta); Moan="misspelt or unknown word";}
  565. /*-----*/
  566. KF(getappendix){checkspelling(N.n?N:val(1),val("y",1),val(0,0));}
  567. /*-----*/
  568. KF(putappendix){Text A=appendix.copy(N.i<?1); B->changed=1;
  569. *(B->dot.r->prev?:&B->text)-*A.beg; *A.end-*B->dot.r; B->text.next->prev=0;
  570. if(yesno("shall I also empty the dictionary's appendix?")) appendix.empty();}
  571. /*-----*/
  572. KF(emptyappendix){appendix.empty();}
  573. /*-----*/
  574. int bottommenu(
  575.   char*prompt,int nrb,char*codes,char**names,int L/*=8*/,int defolt/*=0*/){
  576. mousestate ms; ms=Jerry; int c,j,k,m,n=strlen(codes),N=n*L,p; char*s,MN[L*n+1];
  577. Jerry.range(4,n*L); Jerry.move(0,(k=defolt)*L); Jerry.mc=1; c=Jerry.bd=0;
  578. for(c=0;c<L*n;c++) MN[c]=' '; p=strlen(prompt);
  579. short ls[gp_Cols]; c_short_addr q=scr(gp_Rows-1,0).adr(); c_get(ls,q,gp_Cols);
  580. for(c=0;c<n;c++) for(j=strlen(s=names[c])-1;j>=0;j--) MN[L*c+j]=s[j]; MN[N]=0;
  581. display(prompt,gp_Rows-1,0,Magenta); displayn(MN,gp_Rows-1,p,White+8,Blue);
  582. M1: if(c!=-mousemove) Jerry.move(0,k); counterchange(scr(gp_Rows-1,k+p));
  583. c=getkey(); if(c>='a') if(c<='z') c-=32; counterchange(scr(gp_Rows-1,k+p));
  584. if(Jerry.buttons) {c=-mousemove; goto M1;} switch(c){
  585. case -lbutton: case CR: m=k/L; goto RET;
  586. case -mousemove: k=Jerry.x; goto M1;
  587. case -leftarrow: k=(k-1)%N; goto M1;
  588. case -rightarrow: k=(k+1)%N; goto M1;
  589. case -mbutton: case -rbutton: m=nrb; goto RET;
  590.  default: for(m=0;m<n;m++) if(c==codes[m]) goto RET;} goto M1;
  591. RET: Jerry=ms; c_put(q,ls,gp_Cols); return m;}
  592. /*-----*/
  593. KF(char_from_menu) {int c; if((c=charfrommenu())<0) {basemi.rec=0; return;}
  594. Insert(N.i,c); setref(f,&insert); setrek(T1,(char)c);}
  595. /*-----*/
  596. Subr*subrmenu(char*prompt,int fromKF){
  597. int i,j,k,n,u,v; char*s,**z; c_short_addr p,q,r; subr*sb; mark MK;
  598. short scrsave[gp_Cols*gp_Rows]; int ss=gp_Cols*gp_Rows;
  599. typedef struct{char submenu; subr*sub; char*text;} menuline;
  600. static menuline _bindmenu[]={{6,0,0},
  601. {0,&bindkeybuf,"bind key to current buffer"},
  602. {0,&bindkeymacro,"bind key to current macro"},
  603. {0,&bindkeysubr,"bind key to subroutine"},
  604. {0,&prbindings,"insert list of key bindings"},
  605. {0,&prkeys,"insert list of keys & key bindings"},
  606. {0,&unbindkey,"unbind key"}};
  607. static menuline*bindmenu=_bindmenu;
  608. static menuline _buf[]={{14,0,0},
  609. {0,&buffermenu,"go to buffer by menu of buffers"},
  610. {0,&gotodir,"go to file by menu of DOS directory"},
  611. {0,&gotonbuf,"go to next buffer in chain"},
  612. {0,©dir,"insert copy of DOS directory"},
  613. {0,&delbuf,"remove current buffer (not its file)"},
  614. {0,&insertfile,"insert text of a file"},
  615. {0,&mergefile,"merge a file into region in ascii order."},
  616. {0,&openfile,"go to file"},
  617. {0,&prbuffers,"list buffers with bindings, in form obeyable by readmacros"},
  618. {0,&renamebuffer,"change filename of buffer"},
  619. {0,&restorebuf,"re-read buffer from its file"},
  620. {0,&showinfo,"show information about buffer"},
  621. {0,&writebuffer,"copy buffer to a file"},
  622. {0,&savebuffer,"copy buffer to its file"}};
  623. static menuline*buf=_buf;
  624. static menuline _c[]={{3,0,0},
  625. {0,&cbrackets,"check region for C bracket matching"},
  626. {0,&cchrstr,"convert \\sequence to literal char"},
  627. {0,&cstrchr,"convert char to \\sequence if needed in C string"}};
  628. static menuline*c=_c;
  629. static menuline _Case[]={{5,0,0},
  630. {0,&capitalize,"capitalize word"},
  631. {0,&lwcasewords,"lowercase word"},
  632. {0,&upcasewords,"uppercase word"},
  633. {0,&lwcaseregion,"lowercase region"},
  634. {0,&upcaseregion,"uppercase region"}};
  635. static menuline*Case=_Case;
  636. static menuline _crlf[]={{3,0,0},
  637. {0,&finalcr,"add CR marker in all lines in region"},
  638. {0,&nofinalcr,"remove CR marker in all lines in region"},
  639. {0,&linefeed,"insert LF without CR"}};
  640. static menuline*crlf=_crlf;
  641. static menuline _del[]={{13,0,0},
  642. {0,&backspace,"delete char \033"},
  643. {0,&delet,"delete char \032"},
  644. {0,&killwordb,"kill word \033"},
  645. {0,&killwordf,"kill word \032"},
  646. {0,&killsent,"kill sentence \032"},
  647. {0,&kill_to_eol,"kill (to) EOL"},
  648. {0,&killregion,"kill region"},
  649. {0,©kill,"copy region to kill ring"},
  650. {0,&delblanklines,"delete blank lines round cursor"},
  651. {0,&deletewhite,"delete all spaces & tabs round cursor"},
  652. {0,&leaveonewhite,"delete blanks, leave 1 space"},
  653. {0,&replyank,"replace yank by previous kill"},
  654. {0,&yank,"yank last kill"}};
  655. static menuline*del=_del;
  656. static menuline _insert[]={{6,0,0},
  657. {0,&insertspaces,"insert space"},
  658. {0,&literalchar,"insert any char literally"},
  659. {0,&newline,"insert EOL"},
  660. {0,&openline,"insert EOL after cursor"},
  661. {0,&insert,"insert text"},
  662. {0,&overlay,"overlay text"}};
  663. static menuline*Insert=_insert;
  664. static menuline _Macro[]={{8,0,0},
  665. {0,&beginmacro,"start recording macro"},
  666. {0,&endmacro,"stop recording macro"},
  667. {0,&namemacro,"give macro a name"},
  668. {0,&obey,"obey current macro"},
  669. {0,¯omenu,"menu of current macros"},
  670. {0,&prmacro,"insert copy of current macro"},
  671. {0,&prmacros,"insert copy of all macros"},
  672. {0,&readmacros,"read macros & obey buffer bindings from a buffer"}};
  673. static menuline*macro=_Macro;
  674. static menuline _mark[]={{7,0,0},
  675. {0,&popmark,"popmark"},
  676. {0,&pushmark,"pushmark"},
  677. {0,&remmark,"remove top mark from stack"},
  678. {0,&setmark,"set mark"},
  679. {0,&swopmark,"swop mark with cursor"},
  680. {0,&markbof,"set mark to start of buffer"},
  681. {0,&markeof,"set mark to end of buffer"}};
  682. static menuline*mark=_mark;
  683. static menuline _misc[]={{20,0,0},
  684. {0,&refresh_display,"cursor line becomes Nth/middle of screen"},
  685. {0,&prkeynames,"insert list of names of all alt and special keys"},
  686. {0,&prsubrnames,"insert list of all subroutine names"},
  687. {0,&accentedletters,"stop/start treating PC accented letters as alphanumeric"},
  688. {0,&calldos,"call DOS command"},
  689. {0,&cccmode,"whether or not to counterchange at cursor"},
  690. {0,&checkhelp,"insert report re any bound keys not listed in file HELP"},
  691. {0,&dis_play,"display text on the mode line in cyan"},
  692. {0,&displayhex,"display from cursor as hexadecimal"},
  693. {0,&movetext,"move (text between mark N and mark N+1) to cursor"},
  694. {0,©text,"copy (text between mark N and mark N+1) to cursor"},
  695. {0,&repeat,"obey last instruction again"},
  696. {0,&setrightmargin,"find/set right margin for auto eol"},
  697. {0,&setsortcol,"find/set left margin for sortlines"},
  698. {0,&showregion,"show region, or from mark 1 to mark 2"},
  699. {0,&sortlines,"sort lines in region into alphabetical order"},
  700. {0,×4,"multiply current N by 4"},
  701. {0,&version,"display date of this version of AAEMACS"},
  702. {0,&whoa,"discard arg typed"},
  703. {0,&menu,"this subroutine (menu of subroutine descriptions)"}};
  704. static menuline*misc=_misc;
  705. static menuline _move[]={{20,0,0},
  706. {0,&goleft,"\033 a char"},
  707. {0,&goright,"\032 a char"},
  708. {0,&gotocol,"go to Nth char in line"},
  709. {0,&gouppart,"\030 a line-fold"},
  710. {0,&godownpart,"\031 a line-fold"},
  711. {0,&goup,"\030 a line"},
  712. {0,&godown,"\031 a line"},
  713. {0,&gotobol,"go to start of line"},
  714. {0,&gotoeol,"go to end of line"},
  715. {0,&gotoline,"go to line N"},
  716. {0,&skipwordb,"\033 a word"},
  717. {0,&skipwordf,"\032 a word"},
  718. {0,&skipsentb,"\033 a sentence"},
  719. {0,&skipsentf,"\032 a sentence"},
  720. {0,&skipparab,"\030 a paragraph"},
  721. {0,&skipparaf,"\031 a paragraph"},
  722. {0,&page_down,"\031 a screenful"},
  723. {0,&page_up,"\030 a screenful"},
  724. {0,&gotobof,"go to top of buffer"},
  725. {0,&gotoeof,"go to end of buffer"}};
  726. static menuline*move=_move;
  727. static menuline _reformat[]={{3,0,0},
  728. {0,&formatpara,"reformat paragraph"},
  729. {0,&formatregion,"reformat region"},
  730. {0,&formatinsetregion,"reformat region and keep its left inset chars"}};
  731. static menuline*reformat=_reformat;
  732. static menuline _Repl[]={{4,0,0},
  733. {0,&repl,"replace"},
  734. {0,&replask,"replace, asking"},
  735. {0,&replword,"replace, whole words only"},
  736. {0,&replwordask,"replace, whole words only, asking"}};
  737. static menuline*Repl=_Repl;
  738. static menuline _Search[]={{6,0,0},
  739. {0,&findb,"search \033"},
  740. {0,&findf,"search \032"},
  741. {0,&findwordb,"search \033, whole word only"},
  742. {0,&findwordf,"search \032, whole word only"},
  743. {0,&incrfindb,"incremental search \033"},
  744. {0,&incrfindf,"incremental search \032"}};
  745. static menuline*Search=_Search;
  746. static menuline _spelling[]={{4,0,0},
  747. {0,&checkspelling,"check spelling of next word or all region"},
  748. {0,&emptyappendix,"empty the dictionary's appendix"},
  749. {0,&getappendix,"load dictionary's appendix from region"},
  750. {0,&putappendix,"copy dictionary's appendix into a buffer"}};
  751. static menuline*spelling=_spelling;
  752. static menuline _tab[]={{3,0,0},
  753. {0,&expandtabs,"expand all tabs to spaces in region"},
  754. {0,&maketabs,"convert spaces to tabs in region"},
  755. {0,&tabulate,"insert or overlay tab char"}};
  756. static menuline*tab=_tab;
  757. static menuline _Twiddle[]={{3,0,0},
  758. {0,&twiddle,"twiddle: move this char \032"},
  759. {0,&twiddlewords,"twiddle: move this word \032"},
  760. {0,&twiddlelines,"twiddle: move this line \031"}};
  761. static menuline*Twiddle=_Twiddle;
  762. static menuline _windows[]={{4,0,0},
  763. {0,&splitwindow,"split this window"},
  764. {0,&onewindow,"back to one-window mode"},
  765. {0,&nextwindow,"go to next window in ring of windows"},
  766. {0,&prevwindow,"go to previous window in ring of windows"}};
  767. static menuline*windows=_windows;
  768. static menuline _topmenu[]={{23,0,0},
  769. {1,(subr*)bindmenu,"KEY BINDINGS"},
  770. {1,(subr*)buf,"FILES AND BUFFERS"},
  771. {1,(subr*)c,"C LANGUAGE FEATURES"},
  772. {0,&callsubr,"call subr or macro"},
  773. {1,(subr*)Case,"CASE OF LETTERS"},
  774. {0,&char_from_menu,"character from menu"},
  775. {1,(subr*)crlf,"CR AND LF"},
  776. {1,(subr*)del,"DELETING"},
  777. {0,&help,"get help"},
  778. {1,(subr*)Insert,"INSERTING"},
  779. {1,(subr*)macro,"MACROS"},
  780. {1,(subr*)mark,"MARKS"},
  781. {1,(subr*)misc,"MISCELLANEOUS"},
  782. {0,&modemenu,"find & reset buffer's modes by a menu"},
  783. {1,(subr*)move,"MOVE CURSOR"},
  784. {1,(subr*)Twiddle,"MOVING A CHAR/WORD/LINE"},
  785. {1,(subr*)reformat,"REFORMAT TEXT"},
  786. {1,(subr*)Repl,"REPLACING"},
  787. {1,(subr*)Search,"SEARCHING"},
  788. {1,(subr*)spelling,"SPELLING CHECKER"},
  789. {1,(subr*)tab,"TABULATING"},
  790. {1,(subr*)windows,"SPLIT SCREEN MODE"},
  791. {0,&finish,"exit from AAEMACS"}};
  792. static menuline*topmenu=_topmenu,*M[4];
  793. if(fromKF==2)if(Jerry.mc) {char*MN[]={"Move","Copy","Delete","Exit","mainmenU"};
  794.     MK=B->Mark(1); (MK-B->Mark(2)).color(White,Magenta); B->display();
  795.     B->dotcc=B->dotcc2=-1; /* stop dotty() from playing with the cursor */
  796.     switch(bottommenu("",4,"MCDEU",MN,8)) {
  797.     case 0: movetext(); return 0;
  798.     case 1: copytext(); return 0;
  799.     case 2: (B->Mark(1)-B->Mark(2)).kill(); return 0;
  800.     case 3: return 0;
  801.     case 4:;}}
  802. char mp[4]; mp[0]=0; M[0]=&topmenu[0]; int Z=0,m=0; val A(1,0); mousestate MS;
  803. MS=Jerry; c_get(scrsave,screen,ss); thisstep.f=kf(_idle);
  804. if(prompt) display(prompt,gp_Rows-2,0,Cyan);
  805. display("\030\031\033\032 to move pointer, RET to choose, END to back out,\
  806.  ctrl_ for help",gp_Rows-1,0,Cyan); Jerry.bd=0;
  807. MENU: Jerry.mc=1; n=M[m][0].submenu; Jerry.range(n,80); Jerry.move(k=mp[m],0);
  808. for(i=n*gp_Cols-1;i>=0;i--) screen[i]=256*White; j=1;
  809. for(i=0;i<n;i++) c_put_color(screen+(i*gp_Cols+1),M[m][i+1].text,-1,Green);
  810. screen[k*gp_Cols]+=2;
  811. CHAR: j=k; if(Z!=-mousemove) Jerry.move(k,0); switch(Z=getkey()){
  812. case -mousemove: k=Jerry.y; break;
  813. case -uparrow: k--; break; case -downarrow: k++; break;
  814. case -rightarrow: k+=5; break; case -leftarrow: k-=5; break;
  815. case CR: goto CHOSEN;
  816. case -end_: case -mbutton: case -rbutton: Jerry.mc=0; goto BACKOUT;
  817. case -lbutton: if(M[m][k+1].submenu?:!(keysdown()&k_ctrl)) goto CHOSEN;
  818. case '_'-64: case -clickboth: if(M[m][k+1].submenu) {beep(); goto CHAR;}
  819.     s=kf(M[m][k+1].sub).Subrname(); if(!(z=Subrhelp(s))) {beep(); goto CHAR;}
  820.     j=0; display(*z++,j++,0,Orange);
  821.     while(*z?**z!='{':0) display(*z++,j++,0,Orange); getkey(); goto MENU;
  822. default: goto CHAR;}
  823. while(k<0) k+=n; while(k>=n) k-=n; mp[m]=k;
  824. if(j!=k) {screen[j*gp_Cols].Char()=' '; screen[k*gp_Cols].Char()=2;} goto CHAR;
  825. BACKOUT: c_put(screen,scrsave,ss); if(m--) goto MENU; Jerry=MS; return 0;
  826. CHOSEN: sb=M[m][k+1].sub;
  827. if(M[m][k+1].submenu) if(m>=3) {MOAN("BUG: menus too deep");}
  828. else{mp[m]=k;M[++m]=(menuline*)sb; c_put(screen,scrsave,ss); mp[m]=0;goto MENU;}
  829. if(fromKF) {
  830.     for(i=0;i<gp_Cols;i++) CW[i]=' ';
  831.     strcpy(CW,kf(sb).Subrname()); strcat(CW,": numerical argument?");
  832.     i=strlen(CW); r=screen+(gp_Rows-1)*gp_Cols;
  833.     Jerry.mc=0; c_put_color(r,CW,gp_Cols,Orange); p=r+i; q=p+1; u=1; v=0;
  834.     Z: switch(i=getkey()) {
  835.     case -pagedown: case -lbutton: if(p+1<q) A=val(u*v); break;
  836.     case '0'...'9': if(q<p+30){v=v*10+i-'0';q.push(i+256*Cyan);} else beep();
  837.     goto Z;
  838.     case '+': u=1; *p=256*Cyan; goto Z;
  839.     case '-': u=-1; *p='-'+256*Cyan; goto Z;
  840.     case 8: if(p+1<q) {*q=256*Cyan; q+=(-1); v/=10;} goto Z;
  841.     case -alt_end: case -end_: case -mbutton: case -rbutton:
  842.     c_put(screen,scrsave,ss); goto MENU;
  843.     default: beep(); goto Z;}}
  844. c_put(screen,scrsave,ss);
  845. if(fromKF) {thisstep.f=kf(sb); thisstep.N=A; sb(A,val(0,0),val(0,0));}
  846. Jerry=MS; return kf(sb).Subrinfo();}
  847. /*-----*/
  848. KF(menu){subrmenu(T1.s,1);}
  849. /*-----*/
  850. KF(menu2){subrmenu(T1.s,2);}
  851.