Return to x_font.clu CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / X / CLUlib / vax

Annotation of 43BSD/contrib/X/CLUlib/vax/x_font.clu, revision 1.1.1.1

1.1       root        1: % Copyright    Barbara Liskov    1985
                      2: 
                      3: x_font = cluster is create, destroy, query, widths, width, all_widths,
                      4:                    get_id, equal, similar, copy
                      5: 
                      6: rep = int
                      7: 
                      8: create = proc (name: string) returns (cvt) signals (error(string))
                      9:     or: oreq, er: ereq := x_buf$get()
                     10:     er.code := x_getfont
                     11:     er.s0 := string$size(name)
                     12:     x_buf$send_data(s2b(name), 1, string$size(name))
                     13:     x_buf$receive()
                     14:        resignal error
                     15:     return(x_buf$get_lp0())
                     16:     end create
                     17: 
                     18: destroy = proc (font: cvt)
                     19:     or: oreq, er: ereq := x_buf$get()
                     20:     er.code := x_freefont
                     21:     lr(er).l0 := font
                     22:     end destroy
                     23: 
                     24: % returns (avg_width, height, first_char, last_char, baseline, fixedwidth)
                     25: 
                     26: query = proc (font: cvt) returns (int, int, char, char, int, bool)
                     27:          signals (error(string))
                     28:     or: oreq, er: ereq := x_buf$get()
                     29:     er.code := x_queryfont
                     30:     lr(er).l0 := font
                     31:     x_buf$receive()
                     32:        resignal error
                     33:     return(x_buf$get_sp1(), x_buf$get_sp0(),
                     34:           char$i2c(x_buf$get_sp2()), char$i2c(x_buf$get_sp3()),
                     35:           x_buf$get_sp4(), x_buf$get_sp5() ~= 0)
                     36:     end query
                     37: 
                     38: widths = iter (font: cvt, s: string) yields (char, int) signals (error(string))
                     39:     or: oreq, er: ereq := x_buf$get()
                     40:     er.code := x_charwidths
                     41:     lr(er).l0 := font
                     42:     er.s2 := string$size(s)
                     43:     x_buf$send_data(s2b(s), 1, string$size(s))
                     44:     x_buf$receive()
                     45:        resignal error
                     46:     b: _bytevec := _bytevec$create(x_buf$get_lp0())
                     47:     x_buf$receive_data(b)
                     48:     i: int := 1
                     49:     for c: char in string$chars(s) do
                     50:        yield(c, _wordvec$wfetch(b2w(b), i))
                     51:        i := i + 2
                     52:        end
                     53:     end widths
                     54: 
                     55: width = proc (font: cvt, s: string) returns (int) signals (error(string))
                     56:     or: oreq, er: ereq := x_buf$get()
                     57:     er.code := x_stringwidth
                     58:     lr(er).l0 := font
                     59:     er.s2 := string$size(s)
                     60:     x_buf$send_data(s2b(s), 1, string$size(s))
                     61:     x_buf$receive()
                     62:        resignal error
                     63:     return(x_buf$get_sp0())
                     64:     end width
                     65: 
                     66: all_widths = proc (font: cvt) returns (_wordvec) signals (error(string))
                     67:     or: oreq, er: ereq := x_buf$get()
                     68:     er.code := x_fontwidths
                     69:     lr(er).l0 := font
                     70:     x_buf$receive()
                     71:        resignal error
                     72:     b: _bytevec := _bytevec$create(x_buf$get_lp0())
                     73:     x_buf$receive_data(b)
                     74:     return(b2w(b))
                     75:     end all_widths
                     76: 
                     77: get_id = proc (font: cvt) returns (int)
                     78:     return(font)
                     79:     end get_id
                     80: 
                     81: equal = proc (font1, font2: cvt) returns (bool)
                     82:     return(font1 = font2)
                     83:     end equal
                     84: 
                     85: similar = proc (font1, font2: cvt) returns (bool)
                     86:     return(font1 = font2)
                     87:     end similar
                     88: 
                     89: copy = proc (font: cvt) returns (cvt)
                     90:     return(font)
                     91:     end copy
                     92: 
                     93: end x_font

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