Return to setfmt.c CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.bin / f77 / src / f77pass1

Annotation of 43BSD/usr.bin/f77/src/f77pass1/setfmt.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * Copyright (c) 1980 Regents of the University of California.
        !             3:  * All rights reserved.  The Berkeley software License Agreement
        !             4:  * specifies the terms and conditions for redistribution.
        !             5:  */
        !             6: 
        !             7: #ifndef lint
        !             8: static char sccsid[] = "@(#)setfmt.c   5.1 (Berkeley) 6/7/85";
        !             9: #endif not lint
        !            10: 
        !            11: #include "defs.h"
        !            12: #include "format.h"
        !            13: 
        !            14: #define GLITCH '\2'
        !            15: 
        !            16: extern char *fmtptr, *s_init;
        !            17: extern int fmt_strings;
        !            18: 
        !            19: setfmt(lp)
        !            20: struct Labelblock *lp;
        !            21: {
        !            22: int fmt_len, frmt_str_lab;
        !            23: char *s, *lexline();
        !            24: 
        !            25: s = lexline(&fmt_len);
        !            26: preven(ALILONG);
        !            27: prlabel(asmfile, lp->labelno);
        !            28: if( pars_f(s) != 0) {
        !            29:        err_fmt(fmt_len);
        !            30: } else {
        !            31:        fprintf( asmfile, ".word %d\n", FMT_COMP ); /* precompiled format */
        !            32:        fprintf( asmfile, ".word %d\n", pc );
        !            33:        frmt_str_lab = newlabel();      /* to mark loc of format string */
        !            34:        prcona( asmfile, frmt_str_lab );
        !            35:        putshrts( syl, sizeof(struct syl)/SZSHORT*pc );
        !            36: }
        !            37: if( fmt_strings ) pruse( asmfile, USEINIT) ;
        !            38: prlabel(asmfile, frmt_str_lab );
        !            39: putstr(asmfile, s, fmt_len);
        !            40: if( fmt_strings ) pruse( asmfile, USECONST) ;
        !            41: flline();
        !            42: }
        !            43: 
        !            44: LOCAL
        !            45: putshrts( words, count )
        !            46: short *words;
        !            47: {
        !            48:     while ( count-- > 0 )
        !            49:        fprintf( asmfile, ".word %d\n", *words++ );
        !            50: }
        !            51: 
        !            52: static char *fmt_seg_ptr;
        !            53: 
        !            54: LOCAL
        !            55: err_fmt(fmt_len)
        !            56: {
        !            57:        int i;
        !            58:        char *ep, *end_ptr = s_init+fmt_len;
        !            59:        char fmt_seg[50];
        !            60: 
        !            61:        fmt_seg_ptr = fmt_seg;
        !            62:        i = fmtptr - s_init;
        !            63:        ep = fmtptr - (i<25?i:25);
        !            64:        i = i + 5;
        !            65:        while(i && *ep && ep<end_ptr)
        !            66:        {
        !            67:                if(ep==fmtptr) save_char('|',fmt_seg);
        !            68:                save_char(*ep);
        !            69:                ep++; i--;
        !            70:        }
        !            71:        *fmt_seg_ptr++ = '\0';
        !            72:        errstr("Error in format:  %s", fmt_seg);
        !            73: }
        !            74: 
        !            75: LOCAL
        !            76: save_char(c)
        !            77: int    c;
        !            78: {
        !            79:        c &= 0177;
        !            80:        if( c == GLITCH ) {
        !            81:                c = '"';
        !            82:        } else if (c < ' ' || c == 0177) {
        !            83:                *fmt_seg_ptr++ ='^';
        !            84:                c ^= 0100;
        !            85:        } 
        !            86:        *fmt_seg_ptr++ = c;
        !            87: }

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