Return to 4.form.c CVS log

Up to [Research Unix] / researchv10no / cmd / struct

Annotation of researchv10no/cmd/struct/4.form.c, revision 1.1

1.1     ! root        1: #include <stdio.h>
        !             2: #
        !             3: #include "def.h"
        !             4: #include "4.def.h"
        !             5: extern int linechars;
        !             6: extern int rdfree(), comfree(), labfree(), contfree();
        !             7: extern int rdstand(), comstand(), labstand(), contstand();
        !             8: extern int (*rline[])();
        !             9: extern int (*comment[])();
        !            10: extern int (*getlabel[])();
        !            11: extern int (*chkcont[])();
        !            12: null(c)
        !            13: char c;
        !            14:        {return;}
        !            15: 
        !            16: 
        !            17: 
        !            18: comprint()
        !            19:        {
        !            20:        int c, blank, first,count;
        !            21:        blank = 1;
        !            22:        first = 1;
        !            23:        count = 0;
        !            24:        while ((c = (*comment[inputform])(0) ) || blankline() )
        !            25:                {
        !            26:                ++count;
        !            27:                if (c)
        !            28:                        {
        !            29:                        (*comment[inputform])(1);               /* move head past comment signifier */
        !            30:                        blank = blankline();
        !            31:                        /* if (first && !blank)
        !            32:                                OUTSTR("#\n");*/
        !            33:                        prline("#");
        !            34:                        first = 0;
        !            35:                        }
        !            36:                else
        !            37:                        (*rline[inputform])(null);
        !            38:                }
        !            39:        /* if (!blank) 
        !            40:                OUTSTR("#\n"); */
        !            41:        return(count);
        !            42:        }
        !            43: 
        !            44: 
        !            45: 
        !            46: prcode(linecount,tab)
        !            47: int linecount, tab;
        !            48:        {
        !            49:        int someout;
        !            50:        someout = FALSE;
        !            51:        while (linecount)
        !            52:                {
        !            53:                if ( (*comment[inputform])(0) )
        !            54:                        {
        !            55:                        linecount -= comprint();
        !            56:                        someout = TRUE;
        !            57:                        continue;
        !            58:                        }
        !            59:                else if (blankline() )
        !            60:                        (*rline[inputform])(null);
        !            61:                else if ((*chkcont[inputform])() )
        !            62:                        {
        !            63:                        TABOVER(tab);
        !            64:                        prline("&");
        !            65:                        someout  = TRUE;
        !            66:                        }
        !            67:                else 
        !            68:                        {if (someout) TABOVER(tab);
        !            69:                        (*getlabel[inputform])(null);
        !            70:                        prline("");
        !            71:                        someout=TRUE;
        !            72:                        }
        !            73:                --linecount;
        !            74:                }
        !            75:        }
        !            76: 
        !            77: 
        !            78: charout(c)
        !            79: char c;
        !            80:        {
        !            81:        putc(c,outfd);
        !            82:        }
        !            83: 
        !            84: 
        !            85: 
        !            86: prline(str)
        !            87: char *str;
        !            88:        {
        !            89:        fprintf(outfd,"%s",str);
        !            90:        (*rline[inputform]) (charout);
        !            91:        putc('\n',outfd);
        !            92:        }
        !            93: 
        !            94: 
        !            95: input2()
        !            96:        {
        !            97:        static int c;
        !            98:        c = inchar();
        !            99:        if (c == '\n')
        !           100:                linechars = 0;
        !           101:        else
        !           102:                ++linechars;
        !           103:        return(c);
        !           104:        }
        !           105: 
        !           106: 
        !           107: unput2(c)
        !           108: int c;
        !           109:        {
        !           110:        unchar(c);
        !           111:        --linechars;
        !           112:        return(c);
        !           113:        }

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