Return to batchxtra.c CVS log

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

Annotation of 42BSD/ingres/source/iutil/batchxtra.c, revision 1.1

1.1     ! root        1: # include      <ingres.h>
        !             2: # include      <aux.h>
        !             3: # include      <symbol.h>
        !             4: # include      <access.h>
        !             5: # include      <batch.h>
        !             6: # include      <sccs.h>
        !             7: 
        !             8: SCCSID(@(#)batchxtra.c 7.1     2/5/81)
        !             9: 
        !            10: rmbatch()
        !            11: {
        !            12:        char            *batchname();
        !            13:        register char   *p;
        !            14:        register int    i;
        !            15: 
        !            16:        p = batchname();
        !            17:        if (i = close(Batch_fp))
        !            18:                syserr("rmbatch:can't close %s %d", p, i);
        !            19:        if (i = unlink(p))
        !            20:                syserr("rmbatch:can't unlink %s %d", p, i);
        !            21:        Batchhd.mode_up = 0;
        !            22:        return (0);
        !            23: }
        !            24: /*
        !            25: **  BATCHNAME -- create batch file name
        !            26: */
        !            27: 
        !            28: char *
        !            29: batchname()
        !            30: {
        !            31:        extern char     *Fileset;
        !            32:        extern char     *ztack();
        !            33: 
        !            34:        return(ztack("_SYSbatch", Fileset));
        !            35: }

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