Return to suftabmake.c CVS log

Up to [Research Unix] / researchv10no / cmd / troff / ancient.nroff

Annotation of researchv10no/cmd/troff/ancient.nroff/suftabmake.c, revision 1.1

1.1     ! root        1: /*     suftabmake.c  -  make suftab data file for nroff        */
        !             2: 
        !             3: 
        !             4: #include "suftab.c"
        !             5: #include "stdio.h"
        !             6: #define yes 1
        !             7: #define no 0
        !             8: 
        !             9: 
        !            10: #define deftoc(table, exists)  if (exists) {suftoc[suflet++] = filepos; \
        !            11:                                             filepos += sizeof(table);  } \
        !            12:                                    else suftoc[suflet++] = 0;
        !            13: 
        !            14: #define puttab(table)  if (!fwrite(table,sizeof(table),1,fp)) \
        !            15:                                error("? error writting suftab\n");
        !            16: 
        !            17: 
        !            18: int suftoc[26];                /* table of contents for all letters */
        !            19: int filepos = 26*sizeof(int);  /* current position in suftab */
        !            20: int suflet = 0;                /* current letter offset */
        !            21: int nothing;
        !            22: 
        !            23: 
        !            24: main()
        !            25: {      FILE *fp;               /* file descriptor */
        !            26: 
        !            27:        deftoc(sufa, yes)
        !            28:        deftoc(nothing, no)     /* no b */
        !            29:        deftoc(sufc, yes)
        !            30:        deftoc(sufd, yes)
        !            31:        deftoc(sufe, yes)
        !            32:        deftoc(suff, yes)
        !            33:        deftoc(sufg, yes)
        !            34:        deftoc(sufh, yes)
        !            35:        deftoc(sufi, yes)
        !            36:        deftoc(nothing, no)     /* no j */
        !            37:        deftoc(sufk, yes)
        !            38:        deftoc(sufl, yes)
        !            39:        deftoc(sufm, yes)
        !            40:        deftoc(sufn, yes)
        !            41:        deftoc(sufo, yes)
        !            42:        deftoc(sufp, yes)
        !            43:        deftoc(nothing, no)     /* no q */
        !            44:        deftoc(sufr, yes)
        !            45:        deftoc(sufs, yes)
        !            46:        deftoc(suft, yes)
        !            47:        deftoc(nothing, no)     /* no u */
        !            48:        deftoc(nothing, no)     /* no v */
        !            49:        deftoc(nothing, no)     /* no w */
        !            50:        deftoc(nothing, no)     /* no x */
        !            51:        deftoc(sufy, yes)
        !            52:        deftoc(nothing, no)     /* no z */
        !            53: 
        !            54: 
        !            55: /* produce output file */
        !            56: 
        !            57: 
        !            58: #ifdef unix
        !            59:        if ((fp = fopen("suftab","w")) == NULL)
        !            60: #endif
        !            61: #ifdef ibm
        !            62:        if ((fp = fopen("suftab","w,BINARY")) == NULL)
        !            63: #endif
        !            64:                error("? can't create suftab\n");
        !            65: 
        !            66:        if (!fwrite(suftoc,sizeof(suftoc),1,fp))
        !            67:                error("? can't write suftab\n");
        !            68: 
        !            69:        puttab(sufa);
        !            70:        puttab(sufc);
        !            71:        puttab(sufd);
        !            72:        puttab(sufe);
        !            73:        puttab(suff);
        !            74:        puttab(sufg);
        !            75:        puttab(sufh);
        !            76:        puttab(sufi);
        !            77:        puttab(sufk);
        !            78:        puttab(sufl);
        !            79:        puttab(sufm);
        !            80:        puttab(sufn);
        !            81:        puttab(sufo);
        !            82:        puttab(sufp);
        !            83:        puttab(sufr);
        !            84:        puttab(sufs);
        !            85:        puttab(suft);
        !            86:        puttab(sufy);
        !            87: 
        !            88:        fclose(fp);
        !            89: }
        !            90: 
        !            91: error(spt)
        !            92: char *spt;
        !            93: {      register char *p;
        !            94:        for (p=spt; (*p && putc(*p,stderr)); p++) ;
        !            95:        exit(-1);
        !            96: }

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