Return to textutil.c CVS log

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

Annotation of 43BSDTahoe/new/X/libapollo/textutil.c, revision 1.1

1.1     ! root        1: #ifndef lint
        !             2: static char *rcsid_textutil_c = "$Header: textutil.c,v 10.1 86/11/29 13:53:04 jg Rel $";
        !             3: #endif lint
        !             4:     /*
        !             5: 
        !             6:     Copyright 1986 by the University of Utah
        !             7: 
        !             8:     Permission to use, copy, modify, and distribute this
        !             9:     software and its documentation for any purpose and without
        !            10:     fee is hereby granted, provided that the above copyright
        !            11:     notice appear in all copies and that both that copyright
        !            12:     notice and this permission notice appear in supporting
        !            13:     documentation, and that the name of the University of Utah
        !            14:     not be used in advertising or publicity pertaining to 
        !            15:     distribution of the software without specific, written 
        !            16:     prior permission. The University of Utah makes no
        !            17:     representations about the suitability of this software for
        !            18:     any purpose.  It is provided "as is" without express or
        !            19:     implied warranty.
        !            20: 
        !            21:     */
        !            22: 
        !            23: /* textutil.c  text related utility routines.
        !            24:  *
        !            25:  *     CopyText        Copy text to bitmap
        !            26:  *     TextWidth       Returns width of a piece of text in a font
        !            27:  *     CharWidth       Returns width of a character in a font
        !            28:  *
        !            29:  */
        !            30: 
        !            31: #include "Xapollo.h"
        !            32: 
        !            33: status_$t status;
        !            34: 
        !            35: CopyText (string, strlen, font, bm)
        !            36:        char *string;
        !            37:        int strlen;
        !            38:        FONT *font;
        !            39:        BITMAP *bm;
        !            40: {
        !            41:     FontPriv   * fp;
        !            42: 
        !            43:     fp = (FontPriv *)font->data;
        !            44:     gpr_$set_text_font( (short)fp->ap_font_id, status);
        !            45:     gpr_$set_bitmap( bm->data, status);
        !            46:     gpr_$text(*string, (short)strlen, status);
        !            47:     gpr_$set_bitmap(Screen.bm);
        !            48: }
        !            49: 
        !            50: /* Returns the width of a string in a font
        !            51:  * Works only for Apollo-type fonts
        !            52:  */
        !            53: int TextWidth (string, strlen, spacepad, font)
        !            54:        register char *string;
        !            55:        register int strlen;
        !            56:        int spacepad;
        !            57:        register FONT *font;
        !            58: {
        !            59:        register int width = 0;
        !            60: 
        !            61:        if (font->fixed) {
        !            62:            width = strlen * font->avg_width;
        !            63:            if (spacepad) {
        !            64:                while (--strlen >= 0)
        !            65:                    if (*string++ == font->space)
        !            66:                        width += spacepad;
        !            67:              }
        !            68:          } else {
        !            69:            FontPriv    * fp;
        !            70:            gpr_$offset_t size;
        !            71: 
        !            72:            fp = (FontPriv *)font->data;
        !            73:            gpr_$set_text_font( (short)fp->ap_font_id, status);
        !            74:            gpr_$inq_text_extent(*string, (short)strlen, size, status);
        !            75:            width = size.x_size;
        !            76:          }
        !            77:        
        !            78:        return (width);
        !            79: }
        !            80: 
        !            81: /* Returns width of a character in a font.
        !            82:  * Works only for Apollo-type fonts
        !            83:  */
        !            84: int 
        !            85: CharWidth(c, font)
        !            86:        register unsigned int c;
        !            87:        register FONT *font;
        !            88: { 
        !            89:     FontPriv   * fp;
        !            90:     int width;
        !            91: 
        !            92:     if (c < font->first || c > font->last)
        !            93:         return (0);
        !            94:     fp = (FontPriv *)font->data;
        !            95:     gpr_$inq_character_width( (short)fp->ap_font_id, c, (short)width, status);
        !            96:     return(width);
        !            97: }

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