usr/src/local/ditroff/ditroff.okeeffe/tbl/textblocks.c

#ifndef lint
static char sccsid[] = "@(#)textblocks.c        1.2 (CWI) 85/10/02";
#endif lint

#include "defs.h"
#include "ext.h"

/*
 * Get a section of text
 *
 * Note that this doen't work after MAXLIN lines (see over200.c)
 *
 */

/*
 * This returns an int with the name of the diversion,
 * in maktab we test later in wide() whether the table entry is a
 * pointer to a string, or a character.
 * If it is a character, we now it is a diversion, and know it its width
 * to be in <diversionname>-
 *
 * Very ugly, (looks like we need unions in declaration of structure colstr ?)
 */

gettext(sp, ilin, icol, fn, sz)
char *sp, *fn, *sz;
{
        char line[BUFSIZ];
        char *vs;
        int oname;

        dprint(".\\\" -- gettext\n");
        if(texname == 0)
                error("Too many text block diversions");
        if(textflg == 0){
                printf(".nr %d \\n(.lu\n", SL);
                /*
                 * remember old line length
                 */
                textflg = 1;
        }
        printf(".eo\n");
        printf(".am %2s\n", reg(icol, CRIGHT));
        printf(".br\n");
        printf(".di %c+\n", texname);
        rstofill();
        if(fn && *fn)
                printf(".nr %d \\n(.f\n.ft %s\n", S1, fn);
        /*
         * protect font
         */
        printf(".ft \\n(.f\n");
        vs = vsize[stynum[ilin]][icol];
        if((sz && *sz) || (vs && *vs)){
                printf(".nr %d \\n(.v\n", S2);
                if(vs == 0 || *vs == 0)
                        vs = "\\n(.s+2";
                if(sz && *sz)
                        printf(".ps %s\n", sz);
                printf(".vs %s\n", vs);
                printf(".if \\n(%du>\\n(.vu .sp \\n(%du-\\n(.vu\n",
                                                                        S2, S2);
        }
        if(cll[icol][0])
                printf(".ll %sn\n", cll[icol]);
        else
                printf(".ll \\n(%du*%du/%du\n", SL, ctspan(ilin, icol),
                                                                ncol + 1);
        printf(".if \\n(.l<\\n(%2s .ll \\n(%2su\n", reg(icol, CRIGHT),
                                                        reg(icol, CRIGHT));
        if(ctype(ilin, icol) == 'a')
                printf(".ll -2n\n");
        printf(".in 0\n");
        while(gets1(line)){
                if(line[0] == 'T' && line[1] == '}' && line[2] == tab)
                        break;
                if(strcmp("T}", line) == 0)
                        break;
                printf("%s\n", line);
        }
        if(fn && *fn)
                printf(".ft \\n(%d\n", S1);
        if(sz && *sz)
                printf(".br\n.ps\n.vs\n");
        printf(".br\n");
        printf(".di\n");
        /*
         * Height of last complete diversion in register <diversionname>|
         */
        printf(".nr %c| \\n(dn\n", texname);
        /*
         * width of last complete diversion in register <diversionname>-
         */
        printf(".nr %c- \\n(dl\n", texname);
        printf("..\n");
        printf(".ec \\\n");
        /*
         * copy remainder of line
         */
        if(line[2])
                strcpy(sp, line + 3);
        else
                *sp = 0;
        oname = texname;
        texname = texstr[++texct];
        return(oname);
}

untext(){
        rstofill();
        printf(".nf\n");
        printf(".ll \\n(%du\n", SL);
}