Return to unstr.c CVS log

Up to [CSRG BSD Unix] / 40BSD / games / fortune

Annotation of 40BSD/games/fortune/unstr.c, revision 1.1

1.1     ! root        1: # include      <stdio.h>
        !             2: # include      "strfile.h"
        !             3: 
        !             4: /*
        !             5:  *     This program un-does what "strfile" makes, thereby obtaining the
        !             6:  * original file again.  This can be invoked with the name of the output
        !             7:  * file, the input file, or both. If invoked with only a single argument
        !             8:  * ending in ".dat", it is pressumed to be the input file and the output
        !             9:  * file will be the same stripped of the ".dat".  If the single argument
        !            10:  * doesn't end in ".dat", then it is presumed to be the output file, and
        !            11:  * the input file is that name prepended by a ".dat".  If both are given
        !            12:  * they are treated literally as the input and output files.
        !            13:  *
        !            14:  *     Ken Arnold              Aug 13, 1978
        !            15:  */
        !            16: 
        !            17: # define       reg     register
        !            18: 
        !            19: # define       DELIM_CH        '-'
        !            20: 
        !            21: char   infile[50],                     /* name of input file           */
        !            22:        outfile[50],                    /* name of output file          */
        !            23:        *rindex();
        !            24: 
        !            25: long   *calloc();
        !            26: 
        !            27: main(ac, av)
        !            28: int    ac;
        !            29: char   *av[]; {
        !            30: 
        !            31:        reg char        c;
        !            32:        reg FILE        *inf, *outf;
        !            33:        int             nstr, delim;
        !            34:        long            *seekpts;
        !            35:        STRFILE         tbl;            /* description table            */
        !            36: 
        !            37:        getargs(ac, av);
        !            38:        if ((inf = fopen(infile, "r")) == NULL) {
        !            39:                perror(infile);
        !            40:                exit(-1);
        !            41:        }
        !            42:        fread(&tbl,sizeof tbl,1,inf);
        !            43:        nstr = tbl.str_numstr;
        !            44:        if ((seekpts = calloc(sizeof *seekpts, nstr)) == NULL) {
        !            45:                perror("calloc");
        !            46:                exit(-1);
        !            47:        }
        !            48:        fread(seekpts, (sizeof seekpts[0]), nstr, inf);
        !            49:        if ((outf = fopen(outfile, "w")) == NULL) {
        !            50:                perror(outfile);
        !            51:                exit(-1);
        !            52:        }
        !            53:        delim = 0;
        !            54:        while ((c = getc(inf)) != EOF)
        !            55:                if (c != '\0')
        !            56:                        putc(c, outf);
        !            57:                else if (--nstr)
        !            58:                        if (ftell(inf) == tbl.str_delims[delim]) {
        !            59:                                fputs("%-\n", outf);
        !            60:                                delim++;
        !            61:                        }
        !            62:                        else
        !            63:                                fputs("%%\n", outf);
        !            64: }
        !            65: getargs(ac, av)
        !            66: reg int                ac;
        !            67: reg char       **av; {
        !            68: 
        !            69:        reg char        *sp;
        !            70: 
        !            71:        if (ac < 2) {
        !            72:                printf("usage: %s datafile[.dat] [ outfile ]\n",av[0]);
        !            73:                exit(-1);
        !            74:        }
        !            75:        strcpy(infile,av[1]);
        !            76:        if (ac < 3) {
        !            77:                strcpy(outfile,infile);
        !            78:                if ((sp = rindex(av[1])) && strcmp(sp, ".dat") == 0)
        !            79:                        outfile[strlen(outfile) - 4] = '\0';
        !            80:                else
        !            81:                        strcat(infile, ".dat");
        !            82:        }
        !            83:        else
        !            84:                strcpy(outfile, av[2]);
        !            85: }

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