Return to sort.c CVS log

Up to [CSRG BSD Unix] / 43BSD / ingres / source / iutil

Annotation of 43BSD/ingres/source/iutil/sort.c, revision 1.1

1.1     ! root        1: # include      <stdio.h>
        !             2: # include      <ingres.h>
        !             3: # include      <batch.h>
        !             4: # include      <opsys.h>
        !             5: # include      <version.h>
        !             6: # include      <pv.h>
        !             7: # include      <symbol.h>
        !             8: # include      <sccs.h>
        !             9: 
        !            10: SCCSID(@(#)sort.c      8.1     12/31/84)
        !            11: 
        !            12: sortfile(infile, d, del)
        !            13: char *infile;
        !            14: register DESC *d;
        !            15: int del;
        !            16: {
        !            17:        char            out[MAXNAME + 4];
        !            18:        register int    j, i;
        !            19:        char            buf[50];
        !            20:        char            *temp;
        !            21:        int             len;
        !            22: 
        !            23:        if (del)
        !            24:        {
        !            25:                concat(DEL_OUT, Fileset, out);
        !            26:                if ((Del_outfp = fopen(out, "w")) == NULL)
        !            27:                        syserr("can't open %s", out);
        !            28:                fclose(Del_outfp);
        !            29:        }
        !            30:        else
        !            31:        {
        !            32:                concat(REPL_OUT, Fileset, out);
        !            33:                if ((Repl_outfp = fopen(out, "w")) == NULL)
        !            34:                        syserr("can't open %s", out);
        !            35:                fclose(Repl_outfp);
        !            36:        }
        !            37: 
        !            38:        flush_rel(d, TRUE);
        !            39:        resetacc(NULL);
        !            40: 
        !            41:        len = length(Fileset) + 1;
        !            42:        /*
        !            43:        temp = (char *) need(Qbuf, len);
        !            44:        */
        !            45:        temp = (char *) calloc(1,len);
        !            46:        bmove(Fileset, temp, len);
        !            47: 
        !            48:        initp();
        !            49:        setp(PV_STR, temp);
        !            50:        setp(PV_STR, infile);
        !            51:        setp(PV_STR, out);
        !            52: 
        !            53:        setp(PV_STR, d->reldum.relid);
        !            54:        setp(PV_STR, d->reldum.relowner);
        !            55:        setp(PV_INT, d->reldum.relspec);
        !            56:        setp(PV_INT, d->reldum.relindxd);
        !            57:        setp(PV_INT, d->reldum.relstat2);
        !            58:        setp(PV_INT, d->reldum.relstat);
        !            59:        setp(PV_INT, d->reldum.relsave);
        !            60:        setp(PV_INT, d->reldum.reltups);
        !            61:        setp(PV_INT, d->reldum.relatts);
        !            62:        setp(PV_INT, d->reldum.relwid);
        !            63:        setp(PV_INT, d->reldum.relprim);
        !            64:        setp(PV_INT, d->reldum.relfree);
        !            65:        setp(PV_INT, d->reldum.relstamp);
        !            66:        /* whether or not relation is ordered is irrelevant */
        !            67:        setp(PV_INT, 0);
        !            68: 
        !            69:        setp(PV_STR, d->relvname);
        !            70:        setp(PV_INT, d->relfp);
        !            71:        setp(PV_INT, d->relopn);
        !            72:        setp(PV_INT, d->reladds);
        !            73:        setp(PV_INT, d->reltid.ltid);
        !            74:        for (i = 0; i <= d->reldum.relatts; ++i)
        !            75:        {
        !            76:                setp(PV_INT, d->reloff[i]);
        !            77:                setp(PV_INT, d->relfrmt[i]);
        !            78:                setp(PV_INT, d->relfrml[i]);
        !            79:                setp(PV_INT, d->relxtra[i]);
        !            80:                setp(PV_INT, d->relgiven[i]);
        !            81:        }
        !            82: 
        !            83:        call(mdKSORT, NULL);
        !            84: 
        !            85:        flush_rel(d, TRUE);
        !            86:        resetacc(NULL);
        !            87: 
        !            88:        if (del)
        !            89:                fclose(Del_outfp);
        !            90:        else
        !            91:                fclose(Repl_outfp);
        !            92:        cfree(temp);
        !            93: }

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