home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / m6 / m63.c < prev    next >
Encoding:
C/C++ Source or Header  |  1975-07-17  |  1.1 KB  |  86 lines
  1. #
  2.  
  3. #include "m6.h"
  4.  
  5. char *
  6. finddef(n) {
  7.     char *p;
  8.     if((p = lookup(arg(n)))==0)
  9.         if((p = lookup(""))==0) diag("Software error");
  10.     return(p); 
  11. }
  12.  
  13. char *
  14. lookup(s) {
  15.     char *dt;
  16.     dt = df;
  17.     while(dt>d0) {
  18.         if(dt->dswitch>=0 && comp(s,&dt->dident)) return(dt);
  19.         dt =+ dt->prev; 
  20.     }
  21.     return(0); 
  22. }
  23.  
  24. comp(s,t) 
  25. char *s, *t; 
  26. {
  27.     for(;*s++ == *t;t++)
  28.         if(*t==0) return(1);
  29.     return(0); 
  30. }
  31.  
  32. remove(n) {
  33.     char *p;
  34.     if(p = lookup(arg(n))) if(p>d0+2) {
  35.         trashflag++;
  36.         p->dswitch = -1; 
  37.     } 
  38. }
  39.  
  40. trash() {
  41.     char *p,*q,*r;
  42.     if(lg>0) return;
  43.     while(df->dswitch<0) {
  44.         de = df;
  45.         df =+ df->prev;
  46.         trashflag--; 
  47.     }
  48.     if(trashflag<=0) return;
  49.     de = (de+1)&0177776;
  50.     revptr(de,df,&p,&q);
  51.     q = p;
  52.     for(;p->word!=0;p=+r->word) {
  53.         r = p;
  54.         if(p->dswitch>=0) {
  55.             r = q;
  56.             q = move(p,q,p->word); 
  57.         } 
  58.     }
  59.     q->word = 0;
  60.     revptr(d0,d0+2,&df,&de); 
  61. }
  62.  
  63.  
  64. revptr(p,q,np,nq) 
  65. char *p, *q, **np, **nq;
  66. {
  67.     int t;
  68.     p->word = 0;
  69.     while((t = q->word)!=0) {
  70.         q->word = p-q; 
  71.         p = q; 
  72.         q =+ t;
  73.         if(q<d0 || q>dmax) diag("Software error"); 
  74.     }
  75.     *np = p;
  76.     *nq = q; 
  77. }
  78.  
  79. char *
  80. move(from,to,count) 
  81. char *from, *to;
  82. {
  83.     while(count-->0) *to++ = *from++;
  84.     return(to); 
  85. }
  86.