Return to mincpp.spt CVS log

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

Annotation of researchv10no/cmd/spitbol/mincpp.spt, revision 1.1

1.1     ! root        1: -title mincpp: translate minimal conditional assembly stuff to cpp format
        !             2: *
        !             3: *      This program takes a MINIMAL program and translates all
        !             4: *      conditional assembly statements to a format acceptable to
        !             5: *      the C preprocessor (cpp).
        !             6: *
        !             7: *      MINIMAL                         CPP
        !             8: *
        !             9: *      .IF     sym                     #ifdef  sym
        !            10: *      .THEN                           {nothing}
        !            11: *      .ELSE                           #else
        !            12: *      .FI                             #endif
        !            13: *      .DEF    sym                     #define sym 1
        !            14: *      .UNDEF  sym                     #undef  sym
        !            15: *
        !            16: *      Luckily, all MINIMAL conditional assembly statements start
        !            17: *      with a "." in column 1.
        !            18: *
        !            19:        &stlimit = -1
        !            20:        &anchor  = 1
        !            21: *
        !            22: *      build translation table.
        !            23: *
        !            24:        castbl = table( 5 )
        !            25:        castbl['IF']       = '#ifdef'
        !            26:        castbl['ELSE']     = '#else'
        !            27:        castbl['FI']      = '#endif'
        !            28:        castbl['DEF']      = '#define'
        !            29:        castbl['UNDEF']   = '#undef'
        !            30: *
        !            31: *      obtain input and output files.
        !            32: *
        !            33:        terminal = 'enter minimal input file'
        !            34:        input(.in,0,terminal)
        !            35:        terminal = 'enter minimal/cpp output file'
        !            36:        output(.out,1,terminal)
        !            37: *
        !            38: *      read statements and do quick check.
        !            39: *
        !            40: main   line = in                               :f(done)
        !            41:        leq( substr(line,1,1),'.' )             :s(castmt)
        !            42:        out  = line                             :(main)
        !            43: *
        !            44: *      here to do real translation
        !            45: *
        !            46: castmt opcode = symbol =
        !            47:        line len(1) ( break( ' ' ) | rem ) . opcode
        !            48: +              ( span( ' ' ) | '' )
        !            49: +              ( ( len( 1 ) | '' ) rem . symbol )      :f(error)
        !            50:        opcode = castbl[opcode]
        !            51:        out    = differ( opcode ) opcode ' ' symbol 
        !            52: +               (ident( opcode,'#define' ) ' 1','' )   :(main)
        !            53: *
        !            54: *      on error, show offensive line to person at teminal
        !            55: *
        !            56: error  terminal = 'error: ' line               :(main)
        !            57: done
        !            58: end

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