Return to look.c CVS log

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

Annotation of researchv10no/cmd/refer/update/look.c, revision 1.1

1.1     ! root        1: # include "stdio.h"
        !             2: # include "assert.h"
        !             3: # define mv(f,g) {close(g); dup(f); close(f);}
        !             4: /* send everything through chkbib & lhunt */
        !             5: char * indexes= "/usr/dict/papers/Ind";
        !             6: lookup (fin, fout)
        !             7:        FILE *fin, *fout;
        !             8: {
        !             9:        struct pipe {int fr, fw;};
        !            10:        struct pipe p1, p2, p3;
        !            11: pipe(&p1); pipe(&p2); pipe(&p3);
        !            12: if (fork()==0)
        !            13:        {
        !            14:        /* chkbib process; read p1.fr, write p2.fw */
        !            15:        close(p1.fw); close(p2.fr); close(p3.fr); close(p3.fw);
        !            16:        mv (p2.fw, 1);
        !            17:        mv (p1.fr, 0);
        !            18:        execl("/usr/lib/refer/mkey", "mkey", "-s", 0);
        !            19:        _assert(0);
        !            20:        }
        !            21: close(p1.fr);
        !            22: if (fork()==0)
        !            23:        {
        !            24:        /* lhunt reads p2, writes p3 */
        !            25:        close(p1.fw); close(p1.fr); close(p2.fw); close(p3.fr);
        !            26:        mv (p3.fw, 1);
        !            27:        mv (p2.fr, 0);
        !            28:        execl("/usr/lib/refer/hunt", "hunt", "-Ty", "-Fn",  /*"-C1",*/
        !            29:                indexes, 0);
        !            30:        _assert(0);
        !            31:        }
        !            32: close(p3.fw);
        !            33: close(p2.fr); close(p2.fw);
        !            34: /* now get some files */
        !            35: close (fin->_file); fin->_file = p1.fw;
        !            36: close(fout->_file); fout->_file=p3.fr;
        !            37: return;
        !            38: }

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