UNIX 6th Ed. - /usr/source/m6/m63.c

   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: }

Defined functions