Return to output.clu CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / X / xted

Annotation of 43BSD/contrib/X/xted/output.clu, revision 1.1

1.1     ! root        1: output = cluster is outc,              % output a character
        !             2:                    outs,               % output a string
        !             3:                    bell,               % output a ding
        !             4:                    flush,              % flush buffered output
        !             5:                    speed,              % get output speed
        !             6:                    set_speed,          % set default output speed
        !             7:                    reset
        !             8: 
        !             9:     rep = null
        !            10: 
        !            11:     own lspeed: int
        !            12: 
        !            13:     outc = proc (c: char)
        !            14:        _chan$putc(_chan$primary_output(), c, false)
        !            15:        end outc
        !            16: 
        !            17:     outs = proc (s: string)
        !            18:        _chan$puts(_chan$primary_output(), s, false)
        !            19:        end outs
        !            20: 
        !            21:     bell = proc ()
        !            22:        screen$bell()
        !            23:        end bell
        !            24: 
        !            25:     flush = proc ()
        !            26:        end flush
        !            27: 
        !            28:     speed = proc () returns (int)
        !            29:        return(lspeed)
        !            30:        end speed
        !            31: 
        !            32:     set_speed = proc (i: int)
        !            33:        lspeed := i
        !            34:        end set_speed
        !            35: 
        !            36:     reset = proc ()
        !            37:        lspeed := 38400
        !            38:        end reset
        !            39: 
        !            40:     end output

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