cmd/refer/hunt6.c

	hunt6.c revision 11a8fa6cb17403e630122ac19b39a323c6e64142
/*
 * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*  Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/*    All Rights Reserved   */

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved. The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#pragma ident   "%Z%%M% %I% %E% SMI"

#include <stdio.h>
#include <assert.h>
#include <string.h>
#define TXTLEN 1000

char *outbuf = 0;
extern char *soutput;
extern int soutlen, iflong;
extern long indexdate;
union ptr {
    unsigned *a;
    long *b;
};

extern int corout();
extern int fgrep();
extern long findline();

static int auxil(char *, char *);

int
baddrop(unsigned *mptr, int nf, FILE *fc, int nitem,
        char *qitem[], char *rprog, int full)
{
    /* checks list of drops for real bad drops; finds items with "deliv" */
    int i, g, j, need, got, na, len;
    long lp;
    char res[100], *ar[50], output[TXTLEN], *mput;
    union ptr master;
    extern int colevel, reached;

    if (iflong) {
        master.b = (long *)mptr;
    } else {
        master.a = mptr;
    }

#if D1
    if (iflong)
        fprintf(stderr, "in baddrop, nf %d master %ld %ld %ld\n",
            nf, master.b[0], master.b[1], master.b[2]);
    else
        fprintf(stderr, "in baddrop, nf %d master %d %d %d\n",
            nf, master.a[0], master.a[1], master.a[2]);
#endif
    for (i = g = 0; i < nf; i++) {
        lp = iflong ? master.b[i] : master.a[i];
#if D1
        if (iflong)
            fprintf(stderr, "i %d master %lo lp %lo\n",
                i, master.b[i], lp);
        else
            fprintf(stderr, "i %d master %o lp %lo\n",
                i, master.a[i], lp);
#endif
        fseek(fc, lp, 0);
        fgets(res, 100, fc);
#if D1
        fprintf(stderr, "tag %s", res);
#endif
        if (!auxil(res, output)) {
            char *s;
            int c;
#if D1
            fprintf(stderr, "not auxil try rprog %c\n",
                rprog ? 'y': 'n');
#endif
            for (s = res; c = *s; s++)
                if (c == ';' || c == '\n') {
                    *s = 0;
                    break;
                }

            if (rprog)
                len = corout(res, output, rprog, "", TXTLEN);
            else {
                len = findline(res, &mput, TXTLEN, indexdate);
                if (len > 0) {  /* copy and free */
                    strncpy(output, mput, TXTLEN);
                    free(mput);
                } else /* insufficient memory or other... */
                    len = 0;
            }
        }
#if D1
        assert(len < TXTLEN);
        fprintf(stderr, "item %d of %d, tag %s len %d output\n%s\n..\n",
            i, nf, res, len, output);
#endif
        if (len == 0)
            continue;
        need = colevel ? reached : nitem;
        na = 0;
        ar[na++] = "fgrep";
        ar[na++] = "-r";
        ar[na++] = "-n";
        ar[na++] = (char *)need;
        ar[na++] = "-i";
        ar[na++] = output;
        ar[na++] = (char *)len;
        for (j = 0; j < nitem; j++)
            ar[na++] = qitem[j];
#ifdef D1
        fprintf(stderr, "calling fgrep len %d ar[4] %s %o %d \n",
            len, ar[4], ar[5], ar[6]);
#endif
        if (fgrep(na, ar) == 0) {
#ifdef D1
            fprintf(stderr, "fgrep found it\n");
#endif
            if (iflong)
                master.b[g++] = master.b[i];
            else
                master.a[g++] = master.a[i];
            if (full >= g)
                if (soutput == 0)
                    fputs(output, stdout);
                else
                    strcpy(soutput, output);
        }
#ifdef D1
        fprintf(stderr, "after fgrep\n");
#endif
    }
    return (g);
}

static int
auxil(char *res, char *output)
{
    extern FILE *fd;
    long lp, c;
    int len;
    if (fd == 0)
        return (0);
    while (c = *res++) {
        if (c == ';') {
            sscanf(res, "%ld,%d", &lp, &len);
            fseek(fd, lp, 0);
            fgets(output, len, fd);
            return (1);
        }
    }
    return (0);
}