Return to output.clu CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / new / X / xted

Annotation of 43BSDTahoe/new/X/xted/output.clu, revision 1.1.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.