Return to refer4.c CVS log

Up to [Research Unix] / researchv10no / cmd / refer

Annotation of researchv10no/cmd/refer/refer4.c, revision 1.1.1.1

1.1       root        1: # include "refer..c"
                      2: static gate= 0;
                      3: static char buff[LLINE];
                      4: char *trimnl();
                      5: output (s)
                      6:        char *s;
                      7: {
                      8: if (gate)
                      9:        fputs(buff,ftemp);
                     10: else
                     11:        gate=1;
                     12: strcpy(buff,s);
                     13: if (strlen(buff)>LLINE)
                     14:        err("one buff too big (%d)!", LLINE);
                     15: }
                     16: append(s)
                     17:        char *s;
                     18: {
                     19: char *p, *r; int lch;
                     20: trimnl(buff);
                     21: for (p=buff; *p; p++)
                     22:        ;
                     23: lch = *--p;
                     24: switch (lch)
                     25:        {
                     26:        case '.': case ',':
                     27:                *p=0;
                     28:                r="\\*(<";
                     29:                while (*r) *p++= *r++;
                     30:                *p++ = lch;
                     31:                *p=0;
                     32:        }
                     33: strcat(buff,s);
                     34: switch(lch)
                     35:        {
                     36:        case '.': case ',':
                     37:                for(p=buff; *p; p++)
                     38:                        ;
                     39:                if (*--p=='\n')*p=0;
                     40:                r = "\\*(>";
                     41:                while (*r) *p++ = *r++;
                     42:                *p++ = lch;
                     43:                *p++ = '\n';
                     44:                *p=0;
                     45:        }
                     46: if (strlen(buff)>LLINE)
                     47:        err("output buff too long (%d)", LLINE);
                     48: }
                     49: 
                     50: flout()
                     51: {
                     52: if (gate)
                     53:        fputs(buff,ftemp);
                     54: gate=0;
                     55: }
                     56: 
                     57: char *
                     58: trimnl(ln)
                     59:        char *ln;
                     60: {
                     61: register char *p = ln;
                     62: while (*p) p++;
                     63: p--;
                     64: if (*p == '\n') *p=0;
                     65: return(ln);
                     66: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.