Return to batchxtra.c CVS log

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

Annotation of 43BSD/ingres/source/iutil/batchxtra.c, revision 1.1.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 8.1     12/31/84)
                      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.