Return to string.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / j

Annotation of researchv9/jerq/src/lib/j/string.c, revision 1.1.1.1

1.1       root        1: #include <jerq.h>
                      2: #include <font.h>
                      3: 
                      4: Point
                      5: string(f, s, b, p, fc)
                      6:        register Font *f;
                      7:        char *s;
                      8:        register Bitmap *b;
                      9:        Point p;
                     10:        Code fc;
                     11: {
                     12:        register c;
                     13:        int full = (fc == F_STORE);
                     14:        Rectangle r;
                     15:        register Fontchar *i;
                     16:        if (full) {
                     17:                r.origin.y = 0;
                     18:                r.corner.y = f->height;
                     19:        }
                     20:        for (; c = *s++; p.x += i->width) {
                     21:                i = f->info + c;
                     22:                if (!full) {
                     23:                        r.origin.y = i->top;
                     24:                        r.corner.y = i->bottom;
                     25:                }
                     26:                r.origin.x = i->x;
                     27:                r.corner.x = (i+1)->x;
                     28:                bitblt(f->bits,r,b,Pt(p.x+
                     29:                        ((i->left & 0x80) ? i->left | 0xffffff00 : i->left),
                     30:                        p.y+r.origin.y),fc);
                     31:        }
                     32:        return(p);
                     33: }

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