op public repos

Blame

Date:: Mon Aug 30 23:40:49 2021 UTC
Message:: libdraw: Fix GUI programs on AIX (#398)
Actions:: History | Blob | Raw File
  1 76193d7c 2003-09-30 devnull #include <u.h>
  2 76193d7c 2003-09-30 devnull #include <libc.h>
  3 76193d7c 2003-09-30 devnull #include <draw.h>
  4 76193d7c 2003-09-30 devnull 
  5 76193d7c 2003-09-30 devnull enum
  6 76193d7c 2003-09-30 devnull {
  7 76193d7c 2003-09-30 devnull 	Max = 100
  8 76193d7c 2003-09-30 devnull };
  9 76193d7c 2003-09-30 devnull 
 10 76193d7c 2003-09-30 devnull Point
 11 76193d7c 2003-09-30 devnull string(Image *dst, Point pt, Image *src, Point sp, Font *f, char *s)
 12 76193d7c 2003-09-30 devnull {
 13 76193d7c 2003-09-30 devnull 	return _string(dst, pt, src, sp, f, s, nil, 1<<24, dst->clipr, nil, ZP, SoverD);
 14 76193d7c 2003-09-30 devnull }
 15 76193d7c 2003-09-30 devnull 
 16 76193d7c 2003-09-30 devnull Point
 17 76193d7c 2003-09-30 devnull stringop(Image *dst, Point pt, Image *src, Point sp, Font *f, char *s, Drawop op)
 18 76193d7c 2003-09-30 devnull {
 19 76193d7c 2003-09-30 devnull 	return _string(dst, pt, src, sp, f, s, nil, 1<<24, dst->clipr, nil, ZP, op);
 20 76193d7c 2003-09-30 devnull }
 21 76193d7c 2003-09-30 devnull 
 22 76193d7c 2003-09-30 devnull Point
 23 76193d7c 2003-09-30 devnull stringn(Image *dst, Point pt, Image *src, Point sp, Font *f, char *s, int len)
 24 76193d7c 2003-09-30 devnull {
 25 76193d7c 2003-09-30 devnull 	return _string(dst, pt, src, sp, f, s, nil, len, dst->clipr, nil, ZP, SoverD);
 26 76193d7c 2003-09-30 devnull }
 27 76193d7c 2003-09-30 devnull 
 28 76193d7c 2003-09-30 devnull Point
 29 76193d7c 2003-09-30 devnull stringnop(Image *dst, Point pt, Image *src, Point sp, Font *f, char *s, int len, Drawop op)
 30 76193d7c 2003-09-30 devnull {
 31 76193d7c 2003-09-30 devnull 	return _string(dst, pt, src, sp, f, s, nil, len, dst->clipr, nil, ZP, op);
 32 76193d7c 2003-09-30 devnull }
 33 76193d7c 2003-09-30 devnull 
 34 76193d7c 2003-09-30 devnull Point
 35 76193d7c 2003-09-30 devnull runestring(Image *dst, Point pt, Image *src, Point sp, Font *f, Rune *r)
 36 76193d7c 2003-09-30 devnull {
 37 76193d7c 2003-09-30 devnull 	return _string(dst, pt, src, sp, f, nil, r, 1<<24, dst->clipr, nil, ZP, SoverD);
 38 76193d7c 2003-09-30 devnull }
 39 76193d7c 2003-09-30 devnull 
 40 76193d7c 2003-09-30 devnull Point
 41 76193d7c 2003-09-30 devnull runestringop(Image *dst, Point pt, Image *src, Point sp, Font *f, Rune *r, Drawop op)
 42 76193d7c 2003-09-30 devnull {
 43 76193d7c 2003-09-30 devnull 	return _string(dst, pt, src, sp, f, nil, r, 1<<24, dst->clipr, nil, ZP, op);
 44 76193d7c 2003-09-30 devnull }
 45 76193d7c 2003-09-30 devnull 
 46 76193d7c 2003-09-30 devnull Point
 47 76193d7c 2003-09-30 devnull runestringn(Image *dst, Point pt, Image *src, Point sp, Font *f, Rune *r, int len)
 48 76193d7c 2003-09-30 devnull {
 49 76193d7c 2003-09-30 devnull 	return _string(dst, pt, src, sp, f, nil, r, len, dst->clipr, nil, ZP, SoverD);
 50 76193d7c 2003-09-30 devnull }
 51 76193d7c 2003-09-30 devnull 
 52 76193d7c 2003-09-30 devnull Point
 53 76193d7c 2003-09-30 devnull runestringnop(Image *dst, Point pt, Image *src, Point sp, Font *f, Rune *r, int len, Drawop op)
 54 76193d7c 2003-09-30 devnull {
 55 76193d7c 2003-09-30 devnull 	return _string(dst, pt, src, sp, f, nil, r, len, dst->clipr, nil, ZP, op);
 56 76193d7c 2003-09-30 devnull }
 57 76193d7c 2003-09-30 devnull 
 58 76193d7c 2003-09-30 devnull Point
 59 76193d7c 2003-09-30 devnull _string(Image *dst, Point pt, Image *src, Point sp, Font *f, char *s, Rune *r, int len, Rectangle clipr, Image *bg, Point bgp, Drawop op)
 60 76193d7c 2003-09-30 devnull {
 61 76193d7c 2003-09-30 devnull 	int m, n, wid, max;
 62 76193d7c 2003-09-30 devnull 	ushort cbuf[Max], *c, *ec;
 63 76193d7c 2003-09-30 devnull 	uchar *b;
 64 76193d7c 2003-09-30 devnull 	char *subfontname;
 65 76193d7c 2003-09-30 devnull 	char **sptr;
 66 76193d7c 2003-09-30 devnull 	Rune **rptr;
 67 76193d7c 2003-09-30 devnull 	Font *def;
 68 b2f9ee0d 2005-07-13 devnull 	Subfont *sf;
 69 76193d7c 2003-09-30 devnull 
 70 fff818fe 2014-12-02 rsc 	if(len < 0)
 71 fff818fe 2014-12-02 rsc 		sysfatal("libdraw: _string len=%d", len);
 72 fff818fe 2014-12-02 rsc 
 73 76193d7c 2003-09-30 devnull 	if(s == nil){
 74 76193d7c 2003-09-30 devnull 		s = "";
 75 76193d7c 2003-09-30 devnull 		sptr = nil;
 76 76193d7c 2003-09-30 devnull 	}else
 77 76193d7c 2003-09-30 devnull 		sptr = &s;
 78 76193d7c 2003-09-30 devnull 	if(r == nil){
 79 76193d7c 2003-09-30 devnull 		r = (Rune*) L"";
 80 76193d7c 2003-09-30 devnull 		rptr = nil;
 81 76193d7c 2003-09-30 devnull 	}else
 82 76193d7c 2003-09-30 devnull 		rptr = &r;
 83 b2f9ee0d 2005-07-13 devnull 	sf = nil;
 84 e9d8c451 2021-08-30 crossd #if defined(__AIX__)
 85 e9d8c451 2021-08-30 crossd 	while((*s || *rptr) && len){
 86 e9d8c451 2021-08-30 crossd #else
 87 76193d7c 2003-09-30 devnull 	while((*s || *r) && len){
 88 e9d8c451 2021-08-30 crossd #endif
 89 76193d7c 2003-09-30 devnull 		max = Max;
 90 76193d7c 2003-09-30 devnull 		if(len < max)
 91 76193d7c 2003-09-30 devnull 			max = len;
 92 76193d7c 2003-09-30 devnull 		n = cachechars(f, sptr, rptr, cbuf, max, &wid, &subfontname);
 93 76193d7c 2003-09-30 devnull 		if(n > 0){
 94 76193d7c 2003-09-30 devnull 			_setdrawop(dst->display, op);
 95 76193d7c 2003-09-30 devnull 
 96 76193d7c 2003-09-30 devnull 			m = 47+2*n;
 97 76193d7c 2003-09-30 devnull 			if(bg)
 98 76193d7c 2003-09-30 devnull 				m += 4+2*4;
 99 76193d7c 2003-09-30 devnull 			b = bufimage(dst->display, m);
100 76193d7c 2003-09-30 devnull 			if(b == 0){
101 76193d7c 2003-09-30 devnull 				fprint(2, "string: %r\n");
102 76193d7c 2003-09-30 devnull 				break;
103 76193d7c 2003-09-30 devnull 			}
104 76193d7c 2003-09-30 devnull 			if(bg)
105 76193d7c 2003-09-30 devnull 				b[0] = 'x';
106 76193d7c 2003-09-30 devnull 			else
107 76193d7c 2003-09-30 devnull 				b[0] = 's';
108 76193d7c 2003-09-30 devnull 			BPLONG(b+1, dst->id);
109 76193d7c 2003-09-30 devnull 			BPLONG(b+5, src->id);
110 76193d7c 2003-09-30 devnull 			BPLONG(b+9, f->cacheimage->id);
111 76193d7c 2003-09-30 devnull 			BPLONG(b+13, pt.x);
112 76193d7c 2003-09-30 devnull 			BPLONG(b+17, pt.y+f->ascent);
113 76193d7c 2003-09-30 devnull 			BPLONG(b+21, clipr.min.x);
114 76193d7c 2003-09-30 devnull 			BPLONG(b+25, clipr.min.y);
115 76193d7c 2003-09-30 devnull 			BPLONG(b+29, clipr.max.x);
116 76193d7c 2003-09-30 devnull 			BPLONG(b+33, clipr.max.y);
117 76193d7c 2003-09-30 devnull 			BPLONG(b+37, sp.x);
118 76193d7c 2003-09-30 devnull 			BPLONG(b+41, sp.y);
119 76193d7c 2003-09-30 devnull 			BPSHORT(b+45, n);
120 76193d7c 2003-09-30 devnull 			b += 47;
121 76193d7c 2003-09-30 devnull 			if(bg){
122 76193d7c 2003-09-30 devnull 				BPLONG(b, bg->id);
123 76193d7c 2003-09-30 devnull 				BPLONG(b+4, bgp.x);
124 76193d7c 2003-09-30 devnull 				BPLONG(b+8, bgp.y);
125 76193d7c 2003-09-30 devnull 				b += 12;
126 76193d7c 2003-09-30 devnull 			}
127 76193d7c 2003-09-30 devnull 			ec = &cbuf[n];
128 76193d7c 2003-09-30 devnull 			for(c=cbuf; c<ec; c++, b+=2)
129 76193d7c 2003-09-30 devnull 				BPSHORT(b, *c);
130 76193d7c 2003-09-30 devnull 			pt.x += wid;
131 76193d7c 2003-09-30 devnull 			bgp.x += wid;
132 76193d7c 2003-09-30 devnull 			agefont(f);
133 76193d7c 2003-09-30 devnull 			len -= n;
134 76193d7c 2003-09-30 devnull 		}
135 76193d7c 2003-09-30 devnull 		if(subfontname){
136 b2f9ee0d 2005-07-13 devnull 			freesubfont(sf);
137 213fc4f6 2015-02-17 rsc 			if((sf=_getsubfont(f->display, subfontname)) == 0){
138 b2f9ee0d 2005-07-13 devnull 				def = f->display ? f->display->defaultfont : nil;
139 76193d7c 2003-09-30 devnull 				if(def && f!=def)
140 76193d7c 2003-09-30 devnull 					f = def;
141 76193d7c 2003-09-30 devnull 				else
142 76193d7c 2003-09-30 devnull 					break;
143 76193d7c 2003-09-30 devnull 			}
144 fa325e9b 2020-01-10 cross 			/*
145 b2f9ee0d 2005-07-13 devnull 			 * must not free sf until cachechars has found it in the cache
146 b2f9ee0d 2005-07-13 devnull 			 * and picked up its own reference.
147 b2f9ee0d 2005-07-13 devnull 			 */
148 76193d7c 2003-09-30 devnull 		}
149 76193d7c 2003-09-30 devnull 	}
150 76193d7c 2003-09-30 devnull 	return pt;
151 76193d7c 2003-09-30 devnull }