src/common/xtwind.c

/*
 *  xtwind.c - routines for X text windows.
 */

/* ====================================================================
 * The Radiance Software License, Version 1.0
 *
 * Copyright (c) 1990 - 2002 The Regents of the University of California,
 * through Lawrence Berkeley National Laboratory.   All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *         notice, this list of conditions and the following disclaimer.
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *       notice, this list of conditions and the following disclaimer in
 *       the documentation and/or other materials provided with the
 *       distribution.
 *
 * 3. The end-user documentation included with the redistribution,
 *           if any, must include the following acknowledgment:
 *             "This product includes Radiance software
 *                 (http://radsite.lbl.gov/)
 *                 developed by the Lawrence Berkeley National Laboratory
 *               (http://www.lbl.gov/)."
 *       Alternately, this acknowledgment may appear in the software itself,
 *       if and wherever such third-party acknowledgments normally appear.
 *
 * 4. The names "Radiance," "Lawrence Berkeley National Laboratory"
 *       and "The Regents of the University of California" must
 *       not be used to endorse or promote products derived from this
 *       software without prior written permission. For written
 *       permission, please contact [email protected].
 *
 * 5. Products derived from this software may not be called "Radiance",
 *       nor may "Radiance" appear in their name, without prior written
 *       permission of Lawrence Berkeley National Laboratory.
 *
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * DISCLAIMED.   IN NO EVENT SHALL Lawrence Berkeley National Laboratory OR
 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
 * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
 * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals on behalf of Lawrence Berkeley National Laboratory.   For more
 * information on Lawrence Berkeley National Laboratory, please see
 * <http://www.lbl.gov/>.
 */

#include  <stdio.h>

#include  <X/Xlib.h>

#include  "xtwind.h"

#ifndef  BSD
#define  bzero(d,n)             (void)memset(d,0,n)
extern char  *memset();
#endif

#define checkcurs(t)            if ((t)->cursor) togglecurs(t)

#define restorecurs             checkcurs

#define togglecurs(t)           XPixFill((t)->w, (t)->c*(t)->f.width+LEFTMAR, \
                                (t)->r*(t)->f.height, (t)->f.width, \
                                (t)->f.height, 0, 0, GXinvert, 1)

extern char  *calloc(), *malloc();


TEXTWIND *
xt_open(parent, x, y, width, height, border, fontname)
Window  parent;
int  x, y;
int  width, height;
int  border;
char  *fontname;
{
        register int  i;
        register TEXTWIND  *t;

        if ((t = (TEXTWIND *)malloc(sizeof(TEXTWIND))) == NULL)
                return(NULL);
        t->w = XCreateWindow(parent, x, y, width, height,
                        border, BlackPixmap, WhitePixmap);
        if (t->w == 0)
                return(NULL);
        XMapWindow(t->w);
        if ((i = XGetFont(fontname)) == 0)
                return(NULL);
        if (XQueryFont(i, &t->f) == 0)
                return(NULL);
        if (!t->f.fixedwidth)
                return(NULL);
        t->nc = (width - LEFTMAR) / t->f.width;
        t->nr = height / t->f.height;
        if (t->nc < 1 || t->nr < 1)
                return(NULL);
        if ((t->lp = (char **)calloc(t->nr+1, sizeof(char *))) == NULL)
                return(NULL);
        for (i = 0; i < t->nr; i++)
                if ((t->lp[i] = calloc(t->nc+1, 1)) == NULL)
                        return(NULL);
        t->r = t->c = 0;
        t->cursor = TNOCURS;
        return(t);
}


xt_puts(s, t)                           /* output a string */
register char  *s;
TEXTWIND  *t;
{
        int  oldcurs = xt_cursor(t, TNOCURS);

        while (*s)
                xt_putc(*s++, t);
        xt_cursor(t, oldcurs);
}


xt_putc(c, t)                           /* output a character */
char  c;
register TEXTWIND  *t;
{
        int  oldcurs = xt_cursor(t, TNOCURS);

        switch (c) {
        case '\n':
                if (t->r >= t->nr - 1)
                        xt_delete(t, 0);        /* scroll up 1 line */
                else
                        t->r++;
        /* fall through */
        case '\r':
                t->c = 0;
                break;
        case '\b':
                while (t->c < 1 && t->r > 0)
                        t->c = strlen(t->lp[--t->r]);
                if (t->c > 0)
                        t->c--;
                break;
        default:
                if (t->c >= t->nc)
                        xt_putc('\n', t);
                XText(t->w, LEFTMAR + t->c*t->f.width, t->r*t->f.height,
                                &c, 1, t->f.id, BlackPixel, WhitePixel);
                t->lp[t->r][t->c++] = c;
                break;
        }
        xt_cursor(t, oldcurs);
}


xt_delete(t, r)                         /* delete a line */
register TEXTWIND  *t;
int  r;
{
        char  *cp;
        register int  i;

        if (r < 0 || r >= t->nr)
                return;
        checkcurs(t);
                                        /* move lines */
        XMoveArea(t->w, LEFTMAR, (r+1)*t->f.height, LEFTMAR, r*t->f.height,
                        t->nc*t->f.width, (t->nr-1-r)*t->f.height);
        cp = t->lp[r];
        for (i = r; i < t->nr-1; i++)
                t->lp[i] = t->lp[i+1];
        t->lp[t->nr-1] = cp;
                                        /* clear bottom */
        XPixSet(t->w, LEFTMAR, (t->nr-1)*t->f.height,
                        t->nc*t->f.width, t->f.height, WhitePixel);
        bzero(cp, t->nc);
        restorecurs(t);                 /* should we reposition cursor? */
}


xt_insert(t, r)                         /* insert a line */
register TEXTWIND  *t;
int  r;
{
        char  *cp;
        register int  i;

        if (r < 0 || r >= t->nr)
                return;
        checkcurs(t);
                                        /* move lines */
        XMoveArea(t->w, LEFTMAR, r*t->f.height, LEFTMAR, (r+1)*t->f.height,
                        t->nc*t->f.width, (t->nr-1-r)*t->f.height);
        cp = t->lp[t->nr-1];
        for (i = t->nr-1; i > r; i--)
                t->lp[i] = t->lp[i-1];
        t->lp[r] = cp;
                                        /* clear new line */
        XPixSet(t->w, LEFTMAR, r*t->f.height,
                        t->nc*t->f.width, t->f.height, WhitePixel);
        bzero(cp, t->nc);
        restorecurs(t);                 /* should we reposition cursor? */
}


xt_redraw(t)                            /* redraw text window */
register TEXTWIND  *t;
{
        register int  i;

        checkcurs(t);
        XClear(t->w);
        for (i = 0; i < t->nr; i++)
                XText(t->w, LEFTMAR, i*t->f.height, t->lp[i], strlen(t->lp[i]),
                                t->f.id, BlackPixel, WhitePixel);
        restorecurs(t);
}


xt_clear(t)                             /* clear text window */
register TEXTWIND  *t;
{
        register int  i;

        checkcurs(t);
        XClear(t->w);
        for (i = 0; i < t->nr; i++)
                bzero(t->lp[i], t->nc);
        t->r = t->c = 0;
        restorecurs(t);
}


xt_move(t, r, c)                        /* move to new position */
register TEXTWIND  *t;
int  r, c;
{
        if (r < 0 || c < 0 || r >= t->nr || c >= t->nc)
                return;
        checkcurs(t);
        t->r = r;
        t->c = c;
        restorecurs(t);
}


int
xt_cursor(t, curs)                      /* change cursor */
register TEXTWIND  *t;
register int  curs;
{
        register int    oldcurs;

        if (curs != TNOCURS && curs != TBLKCURS)
                return(-1);
        oldcurs = t->cursor;
        if (curs != oldcurs)
                togglecurs(t);
        t->cursor = curs;
        return(oldcurs);
}


xt_close(t)                             /* close text window */
register TEXTWIND  *t;
{
        register int  i;

        XFreeFont(t->f.id);
        XDestroyWindow(t->w);
        for (i = 0; i < t->nr; i++)
                free(t->lp[i]);
        free((void *)t->lp);
        free((void *)t);
}
Revision:	2.3
Committed:	Sat Feb 22 02:07:23 2003 UTC (21 years, 3 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 2.2:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	1.1	/*
2			* xtwind.c - routines for X text windows.
3	greg	2.2	*/
4
5			/* ====================================================================
6			* The Radiance Software License, Version 1.0
7			*
8			* Copyright (c) 1990 - 2002 The Regents of the University of California,
9			* through Lawrence Berkeley National Laboratory. All rights reserved.
10			*
11			* Redistribution and use in source and binary forms, with or without
12			* modification, are permitted provided that the following conditions
13			* are met:
14			*
15			* 1. Redistributions of source code must retain the above copyright
16			* notice, this list of conditions and the following disclaimer.
17			*
18			* 2. Redistributions in binary form must reproduce the above copyright
19			* notice, this list of conditions and the following disclaimer in
20			* the documentation and/or other materials provided with the
21			* distribution.
22			*
23			* 3. The end-user documentation included with the redistribution,
24			* if any, must include the following acknowledgment:
25			* "This product includes Radiance software
26			* (http://radsite.lbl.gov/)
27			* developed by the Lawrence Berkeley National Laboratory
28			* (http://www.lbl.gov/)."
29			* Alternately, this acknowledgment may appear in the software itself,
30			* if and wherever such third-party acknowledgments normally appear.
31			*
32			* 4. The names "Radiance," "Lawrence Berkeley National Laboratory"
33			* and "The Regents of the University of California" must
34			* not be used to endorse or promote products derived from this
35			* software without prior written permission. For written
36			* permission, please contact [email protected].
37			*
38			* 5. Products derived from this software may not be called "Radiance",
39			* nor may "Radiance" appear in their name, without prior written
40			* permission of Lawrence Berkeley National Laboratory.
41			*
42			* THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
43			* WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
44			* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
45			* DISCLAIMED. IN NO EVENT SHALL Lawrence Berkeley National Laboratory OR
46			* ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
47			* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
48			* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
49			* USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
50			* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
51			* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
52			* OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
53			* SUCH DAMAGE.
54			* ====================================================================
55	greg	1.1	*
56	greg	2.2	* This software consists of voluntary contributions made by many
57			* individuals on behalf of Lawrence Berkeley National Laboratory. For more
58			* information on Lawrence Berkeley National Laboratory, please see
59			* <http://www.lbl.gov/>.
60	greg	1.1	*/
61
62			#include <stdio.h>
63
64			#include <X/Xlib.h>
65
66			#include "xtwind.h"
67
68	greg	1.3	#ifndef BSD
69			#define bzero(d,n) (void)memset(d,0,n)
70			extern char *memset();
71			#endif
72
73	greg	1.1	#define checkcurs(t) if ((t)->cursor) togglecurs(t)
74
75			#define restorecurs checkcurs
76
77			#define togglecurs(t) XPixFill((t)->w, (t)->c*(t)->f.width+LEFTMAR, \
78			(t)->r*(t)->f.height, (t)->f.width, \
79			(t)->f.height, 0, 0, GXinvert, 1)
80
81			extern char calloc(), malloc();
82
83
84			TEXTWIND *
85			xt_open(parent, x, y, width, height, border, fontname)
86			Window parent;
87			int x, y;
88			int width, height;
89			int border;
90			char *fontname;
91			{
92			register int i;
93			register TEXTWIND *t;
94
95			if ((t = (TEXTWIND *)malloc(sizeof(TEXTWIND))) == NULL)
96			return(NULL);
97			t->w = XCreateWindow(parent, x, y, width, height,
98			border, BlackPixmap, WhitePixmap);
99			if (t->w == 0)
100			return(NULL);
101			XMapWindow(t->w);
102			if ((i = XGetFont(fontname)) == 0)
103			return(NULL);
104			if (XQueryFont(i, &t->f) == 0)
105			return(NULL);
106			if (!t->f.fixedwidth)
107			return(NULL);
108			t->nc = (width - LEFTMAR) / t->f.width;
109			t->nr = height / t->f.height;
110			if (t->nc < 1 \|\| t->nr < 1)
111			return(NULL);
112			if ((t->lp = (char *)calloc(t->nr+1, sizeof(char ))) == NULL)
113			return(NULL);
114			for (i = 0; i < t->nr; i++)
115			if ((t->lp[i] = calloc(t->nc+1, 1)) == NULL)
116			return(NULL);
117			t->r = t->c = 0;
118			t->cursor = TNOCURS;
119			return(t);
120			}
121
122
123			xt_puts(s, t) /* output a string */
124			register char *s;
125			TEXTWIND *t;
126			{
127			int oldcurs = xt_cursor(t, TNOCURS);
128
129			while (*s)
130			xt_putc(*s++, t);
131			xt_cursor(t, oldcurs);
132			}
133
134
135			xt_putc(c, t) /* output a character */
136			char c;
137			register TEXTWIND *t;
138			{
139			int oldcurs = xt_cursor(t, TNOCURS);
140
141			switch (c) {
142			case '\n':
143			if (t->r >= t->nr - 1)
144			xt_delete(t, 0); /* scroll up 1 line */
145	greg	1.2	else
146	greg	1.1	t->r++;
147			/* fall through */
148			case '\r':
149			t->c = 0;
150			break;
151			case '\b':
152			while (t->c < 1 && t->r > 0)
153			t->c = strlen(t->lp[--t->r]);
154			if (t->c > 0)
155			t->c--;
156			break;
157			default:
158			if (t->c >= t->nc)
159			xt_putc('\n', t);
160			XText(t->w, LEFTMAR + t->ct->f.width, t->rt->f.height,
161			&c, 1, t->f.id, BlackPixel, WhitePixel);
162			t->lp[t->r][t->c++] = c;
163			break;
164			}
165			xt_cursor(t, oldcurs);
166			}
167
168
169			xt_delete(t, r) /* delete a line */
170			register TEXTWIND *t;
171			int r;
172			{
173			char *cp;
174			register int i;
175
176			if (r < 0 \|\| r >= t->nr)
177			return;
178			checkcurs(t);
179			/* move lines */
180			XMoveArea(t->w, LEFTMAR, (r+1)t->f.height, LEFTMAR, rt->f.height,
181			t->nct->f.width, (t->nr-1-r)t->f.height);
182			cp = t->lp[r];
183			for (i = r; i < t->nr-1; i++)
184			t->lp[i] = t->lp[i+1];
185			t->lp[t->nr-1] = cp;
186			/* clear bottom */
187			XPixSet(t->w, LEFTMAR, (t->nr-1)*t->f.height,
188			t->nc*t->f.width, t->f.height, WhitePixel);
189			bzero(cp, t->nc);
190			restorecurs(t); /* should we reposition cursor? */
191			}
192
193
194			xt_insert(t, r) /* insert a line */
195			register TEXTWIND *t;
196			int r;
197			{
198			char *cp;
199			register int i;
200
201			if (r < 0 \|\| r >= t->nr)
202			return;
203			checkcurs(t);
204			/* move lines */
205			XMoveArea(t->w, LEFTMAR, rt->f.height, LEFTMAR, (r+1)t->f.height,
206			t->nct->f.width, (t->nr-1-r)t->f.height);
207			cp = t->lp[t->nr-1];
208			for (i = t->nr-1; i > r; i--)
209			t->lp[i] = t->lp[i-1];
210			t->lp[r] = cp;
211			/* clear new line */
212			XPixSet(t->w, LEFTMAR, r*t->f.height,
213			t->nc*t->f.width, t->f.height, WhitePixel);
214			bzero(cp, t->nc);
215			restorecurs(t); /* should we reposition cursor? */
216			}
217
218
219			xt_redraw(t) /* redraw text window */
220			register TEXTWIND *t;
221			{
222			register int i;
223
224			checkcurs(t);
225			XClear(t->w);
226			for (i = 0; i < t->nr; i++)
227			XText(t->w, LEFTMAR, i*t->f.height, t->lp[i], strlen(t->lp[i]),
228			t->f.id, BlackPixel, WhitePixel);
229			restorecurs(t);
230			}
231
232
233			xt_clear(t) /* clear text window */
234			register TEXTWIND *t;
235			{
236			register int i;
237
238			checkcurs(t);
239			XClear(t->w);
240			for (i = 0; i < t->nr; i++)
241			bzero(t->lp[i], t->nc);
242			t->r = t->c = 0;
243			restorecurs(t);
244			}
245
246
247			xt_move(t, r, c) /* move to new position */
248			register TEXTWIND *t;
249			int r, c;
250			{
251			if (r < 0 \|\| c < 0 \|\| r >= t->nr \|\| c >= t->nc)
252			return;
253			checkcurs(t);
254			t->r = r;
255			t->c = c;
256			restorecurs(t);
257			}
258
259
260			int
261			xt_cursor(t, curs) /* change cursor */
262			register TEXTWIND *t;
263			register int curs;
264			{
265			register int oldcurs;
266
267			if (curs != TNOCURS && curs != TBLKCURS)
268			return(-1);
269			oldcurs = t->cursor;
270			if (curs != oldcurs)
271			togglecurs(t);
272			t->cursor = curs;
273			return(oldcurs);
274			}
275
276
277			xt_close(t) /* close text window */
278			register TEXTWIND *t;
279			{
280			register int i;
281
282			XFreeFont(t->f.id);
283			XDestroyWindow(t->w);
284			for (i = 0; i < t->nr; i++)
285			free(t->lp[i]);
286	greg	2.2	free((void *)t->lp);
287			free((void *)t);
288	greg	1.1	}