Return to x_font.clu CVS log

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

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

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

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