ul.c revision 1.4 1 1.4 jtc /* $NetBSD: ul.c,v 1.4 1995/11/28 20:58:38 jtc Exp $ */
2 1.3 jtc
3 1.1 cgd /*
4 1.3 jtc * Copyright (c) 1980, 1993
5 1.3 jtc * The Regents of the University of California. All rights reserved.
6 1.1 cgd *
7 1.1 cgd * Redistribution and use in source and binary forms, with or without
8 1.1 cgd * modification, are permitted provided that the following conditions
9 1.1 cgd * are met:
10 1.1 cgd * 1. Redistributions of source code must retain the above copyright
11 1.1 cgd * notice, this list of conditions and the following disclaimer.
12 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 cgd * notice, this list of conditions and the following disclaimer in the
14 1.1 cgd * documentation and/or other materials provided with the distribution.
15 1.1 cgd * 3. All advertising materials mentioning features or use of this software
16 1.1 cgd * must display the following acknowledgement:
17 1.1 cgd * This product includes software developed by the University of
18 1.1 cgd * California, Berkeley and its contributors.
19 1.1 cgd * 4. Neither the name of the University nor the names of its contributors
20 1.1 cgd * may be used to endorse or promote products derived from this software
21 1.1 cgd * without specific prior written permission.
22 1.1 cgd *
23 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 1.1 cgd * SUCH DAMAGE.
34 1.1 cgd */
35 1.1 cgd
36 1.1 cgd #ifndef lint
37 1.3 jtc static char copyright[] =
38 1.3 jtc "@(#) Copyright (c) 1980, 1993\n\
39 1.3 jtc The Regents of the University of California. All rights reserved.\n";
40 1.1 cgd #endif /* not lint */
41 1.1 cgd
42 1.1 cgd #ifndef lint
43 1.3 jtc #if 0
44 1.3 jtc static char sccsid[] = "@(#)ul.c 8.1 (Berkeley) 6/6/93";
45 1.3 jtc #endif
46 1.4 jtc static char rcsid[] = "$NetBSD: ul.c,v 1.4 1995/11/28 20:58:38 jtc Exp $";
47 1.1 cgd #endif /* not lint */
48 1.1 cgd
49 1.1 cgd #include <stdio.h>
50 1.4 jtc #include <stdlib.h>
51 1.4 jtc #include <string.h>
52 1.1 cgd
53 1.1 cgd #define IESC '\033'
54 1.1 cgd #define SO '\016'
55 1.1 cgd #define SI '\017'
56 1.1 cgd #define HFWD '9'
57 1.1 cgd #define HREV '8'
58 1.1 cgd #define FREV '7'
59 1.1 cgd #define MAXBUF 512
60 1.1 cgd
61 1.1 cgd #define NORMAL 000
62 1.1 cgd #define ALTSET 001 /* Reverse */
63 1.1 cgd #define SUPERSC 002 /* Dim */
64 1.1 cgd #define SUBSC 004 /* Dim | Ul */
65 1.1 cgd #define UNDERL 010 /* Ul */
66 1.1 cgd #define BOLD 020 /* Bold */
67 1.1 cgd
68 1.1 cgd int must_use_uc, must_overstrike;
69 1.1 cgd char *CURS_UP, *CURS_RIGHT, *CURS_LEFT,
70 1.1 cgd *ENTER_STANDOUT, *EXIT_STANDOUT, *ENTER_UNDERLINE, *EXIT_UNDERLINE,
71 1.1 cgd *ENTER_DIM, *ENTER_BOLD, *ENTER_REVERSE, *UNDER_CHAR, *EXIT_ATTRIBUTES;
72 1.1 cgd
73 1.1 cgd struct CHAR {
74 1.1 cgd char c_mode;
75 1.1 cgd char c_char;
76 1.1 cgd } ;
77 1.1 cgd
78 1.1 cgd struct CHAR obuf[MAXBUF];
79 1.1 cgd int col, maxcol;
80 1.1 cgd int mode;
81 1.1 cgd int halfpos;
82 1.1 cgd int upln;
83 1.1 cgd int iflag;
84 1.1 cgd
85 1.1 cgd int outchar();
86 1.1 cgd #define PRINT(s) if (s == NULL) /* void */; else tputs(s, 1, outchar)
87 1.1 cgd
88 1.1 cgd main(argc, argv)
89 1.1 cgd int argc;
90 1.1 cgd char **argv;
91 1.1 cgd {
92 1.1 cgd extern int optind;
93 1.1 cgd extern char *optarg;
94 1.1 cgd int c;
95 1.1 cgd char *termtype;
96 1.1 cgd FILE *f;
97 1.1 cgd char termcap[1024];
98 1.1 cgd
99 1.1 cgd termtype = getenv("TERM");
100 1.1 cgd if (termtype == NULL || (argv[0][0] == 'c' && !isatty(1)))
101 1.1 cgd termtype = "lpr";
102 1.1 cgd while ((c=getopt(argc, argv, "it:T:")) != EOF)
103 1.1 cgd switch(c) {
104 1.1 cgd
105 1.1 cgd case 't':
106 1.1 cgd case 'T': /* for nroff compatibility */
107 1.1 cgd termtype = optarg;
108 1.1 cgd break;
109 1.1 cgd case 'i':
110 1.1 cgd iflag = 1;
111 1.1 cgd break;
112 1.1 cgd
113 1.1 cgd default:
114 1.1 cgd fprintf(stderr,
115 1.1 cgd "usage: %s [ -i ] [ -tTerm ] file...\n",
116 1.1 cgd argv[0]);
117 1.1 cgd exit(1);
118 1.1 cgd }
119 1.1 cgd
120 1.1 cgd switch(tgetent(termcap, termtype)) {
121 1.1 cgd
122 1.1 cgd case 1:
123 1.1 cgd break;
124 1.1 cgd
125 1.1 cgd default:
126 1.1 cgd fprintf(stderr,"trouble reading termcap");
127 1.1 cgd /* fall through to ... */
128 1.1 cgd
129 1.1 cgd case 0:
130 1.1 cgd /* No such terminal type - assume dumb */
131 1.1 cgd (void)strcpy(termcap, "dumb:os:col#80:cr=^M:sf=^J:am:");
132 1.1 cgd break;
133 1.1 cgd }
134 1.1 cgd initcap();
135 1.1 cgd if ( (tgetflag("os") && ENTER_BOLD==NULL ) ||
136 1.1 cgd (tgetflag("ul") && ENTER_UNDERLINE==NULL && UNDER_CHAR==NULL))
137 1.1 cgd must_overstrike = 1;
138 1.1 cgd initbuf();
139 1.1 cgd if (optind == argc)
140 1.1 cgd filter(stdin);
141 1.1 cgd else for (; optind<argc; optind++) {
142 1.1 cgd f = fopen(argv[optind],"r");
143 1.1 cgd if (f == NULL) {
144 1.1 cgd perror(argv[optind]);
145 1.1 cgd exit(1);
146 1.4 jtc }
147 1.4 jtc
148 1.4 jtc filter(f);
149 1.4 jtc fclose(f);
150 1.1 cgd }
151 1.1 cgd exit(0);
152 1.1 cgd }
153 1.1 cgd
154 1.1 cgd filter(f)
155 1.1 cgd FILE *f;
156 1.1 cgd {
157 1.1 cgd register c;
158 1.1 cgd
159 1.1 cgd while ((c = getc(f)) != EOF) switch(c) {
160 1.1 cgd
161 1.1 cgd case '\b':
162 1.1 cgd if (col > 0)
163 1.1 cgd col--;
164 1.1 cgd continue;
165 1.1 cgd
166 1.1 cgd case '\t':
167 1.1 cgd col = (col+8) & ~07;
168 1.1 cgd if (col > maxcol)
169 1.1 cgd maxcol = col;
170 1.1 cgd continue;
171 1.1 cgd
172 1.1 cgd case '\r':
173 1.1 cgd col = 0;
174 1.1 cgd continue;
175 1.1 cgd
176 1.1 cgd case SO:
177 1.1 cgd mode |= ALTSET;
178 1.1 cgd continue;
179 1.1 cgd
180 1.1 cgd case SI:
181 1.1 cgd mode &= ~ALTSET;
182 1.1 cgd continue;
183 1.1 cgd
184 1.1 cgd case IESC:
185 1.1 cgd switch (c = getc(f)) {
186 1.1 cgd
187 1.1 cgd case HREV:
188 1.1 cgd if (halfpos == 0) {
189 1.1 cgd mode |= SUPERSC;
190 1.1 cgd halfpos--;
191 1.1 cgd } else if (halfpos > 0) {
192 1.1 cgd mode &= ~SUBSC;
193 1.1 cgd halfpos--;
194 1.1 cgd } else {
195 1.1 cgd halfpos = 0;
196 1.1 cgd reverse();
197 1.1 cgd }
198 1.1 cgd continue;
199 1.1 cgd
200 1.1 cgd case HFWD:
201 1.1 cgd if (halfpos == 0) {
202 1.1 cgd mode |= SUBSC;
203 1.1 cgd halfpos++;
204 1.1 cgd } else if (halfpos < 0) {
205 1.1 cgd mode &= ~SUPERSC;
206 1.1 cgd halfpos++;
207 1.1 cgd } else {
208 1.1 cgd halfpos = 0;
209 1.1 cgd fwd();
210 1.1 cgd }
211 1.1 cgd continue;
212 1.1 cgd
213 1.1 cgd case FREV:
214 1.1 cgd reverse();
215 1.1 cgd continue;
216 1.1 cgd
217 1.1 cgd default:
218 1.1 cgd fprintf(stderr,
219 1.1 cgd "Unknown escape sequence in input: %o, %o\n",
220 1.1 cgd IESC, c);
221 1.1 cgd exit(1);
222 1.1 cgd }
223 1.1 cgd continue;
224 1.1 cgd
225 1.1 cgd case '_':
226 1.1 cgd if (obuf[col].c_char)
227 1.1 cgd obuf[col].c_mode |= UNDERL | mode;
228 1.1 cgd else
229 1.1 cgd obuf[col].c_char = '_';
230 1.1 cgd case ' ':
231 1.1 cgd col++;
232 1.1 cgd if (col > maxcol)
233 1.1 cgd maxcol = col;
234 1.1 cgd continue;
235 1.1 cgd
236 1.1 cgd case '\n':
237 1.1 cgd flushln();
238 1.1 cgd continue;
239 1.1 cgd
240 1.1 cgd case '\f':
241 1.1 cgd flushln();
242 1.1 cgd putchar('\f');
243 1.1 cgd continue;
244 1.1 cgd
245 1.1 cgd default:
246 1.1 cgd if (c < ' ') /* non printing */
247 1.1 cgd continue;
248 1.1 cgd if (obuf[col].c_char == '\0') {
249 1.1 cgd obuf[col].c_char = c;
250 1.1 cgd obuf[col].c_mode = mode;
251 1.1 cgd } else if (obuf[col].c_char == '_') {
252 1.1 cgd obuf[col].c_char = c;
253 1.1 cgd obuf[col].c_mode |= UNDERL|mode;
254 1.1 cgd } else if (obuf[col].c_char == c)
255 1.1 cgd obuf[col].c_mode |= BOLD|mode;
256 1.1 cgd else
257 1.1 cgd obuf[col].c_mode = mode;
258 1.1 cgd col++;
259 1.1 cgd if (col > maxcol)
260 1.1 cgd maxcol = col;
261 1.1 cgd continue;
262 1.1 cgd }
263 1.1 cgd if (maxcol)
264 1.1 cgd flushln();
265 1.1 cgd }
266 1.1 cgd
267 1.1 cgd flushln()
268 1.1 cgd {
269 1.1 cgd register lastmode;
270 1.1 cgd register i;
271 1.1 cgd int hadmodes = 0;
272 1.1 cgd
273 1.1 cgd lastmode = NORMAL;
274 1.1 cgd for (i=0; i<maxcol; i++) {
275 1.1 cgd if (obuf[i].c_mode != lastmode) {
276 1.1 cgd hadmodes++;
277 1.1 cgd setmode(obuf[i].c_mode);
278 1.1 cgd lastmode = obuf[i].c_mode;
279 1.1 cgd }
280 1.1 cgd if (obuf[i].c_char == '\0') {
281 1.1 cgd if (upln)
282 1.1 cgd PRINT(CURS_RIGHT);
283 1.1 cgd else
284 1.1 cgd outc(' ');
285 1.1 cgd } else
286 1.1 cgd outc(obuf[i].c_char);
287 1.1 cgd }
288 1.1 cgd if (lastmode != NORMAL) {
289 1.1 cgd setmode(0);
290 1.1 cgd }
291 1.1 cgd if (must_overstrike && hadmodes)
292 1.1 cgd overstrike();
293 1.1 cgd putchar('\n');
294 1.1 cgd if (iflag && hadmodes)
295 1.1 cgd iattr();
296 1.1 cgd (void)fflush(stdout);
297 1.1 cgd if (upln)
298 1.1 cgd upln--;
299 1.1 cgd initbuf();
300 1.1 cgd }
301 1.1 cgd
302 1.1 cgd /*
303 1.1 cgd * For terminals that can overstrike, overstrike underlines and bolds.
304 1.1 cgd * We don't do anything with halfline ups and downs, or Greek.
305 1.1 cgd */
306 1.1 cgd overstrike()
307 1.1 cgd {
308 1.1 cgd register int i;
309 1.1 cgd char lbuf[256];
310 1.1 cgd register char *cp = lbuf;
311 1.1 cgd int hadbold=0;
312 1.1 cgd
313 1.1 cgd /* Set up overstrike buffer */
314 1.1 cgd for (i=0; i<maxcol; i++)
315 1.1 cgd switch (obuf[i].c_mode) {
316 1.1 cgd case NORMAL:
317 1.1 cgd default:
318 1.1 cgd *cp++ = ' ';
319 1.1 cgd break;
320 1.1 cgd case UNDERL:
321 1.1 cgd *cp++ = '_';
322 1.1 cgd break;
323 1.1 cgd case BOLD:
324 1.1 cgd *cp++ = obuf[i].c_char;
325 1.1 cgd hadbold=1;
326 1.1 cgd break;
327 1.1 cgd }
328 1.1 cgd putchar('\r');
329 1.1 cgd for (*cp=' '; *cp==' '; cp--)
330 1.1 cgd *cp = 0;
331 1.1 cgd for (cp=lbuf; *cp; cp++)
332 1.1 cgd putchar(*cp);
333 1.1 cgd if (hadbold) {
334 1.1 cgd putchar('\r');
335 1.1 cgd for (cp=lbuf; *cp; cp++)
336 1.1 cgd putchar(*cp=='_' ? ' ' : *cp);
337 1.1 cgd putchar('\r');
338 1.1 cgd for (cp=lbuf; *cp; cp++)
339 1.1 cgd putchar(*cp=='_' ? ' ' : *cp);
340 1.1 cgd }
341 1.1 cgd }
342 1.1 cgd
343 1.1 cgd iattr()
344 1.1 cgd {
345 1.1 cgd register int i;
346 1.1 cgd char lbuf[256];
347 1.1 cgd register char *cp = lbuf;
348 1.1 cgd
349 1.1 cgd for (i=0; i<maxcol; i++)
350 1.1 cgd switch (obuf[i].c_mode) {
351 1.1 cgd case NORMAL: *cp++ = ' '; break;
352 1.1 cgd case ALTSET: *cp++ = 'g'; break;
353 1.1 cgd case SUPERSC: *cp++ = '^'; break;
354 1.1 cgd case SUBSC: *cp++ = 'v'; break;
355 1.1 cgd case UNDERL: *cp++ = '_'; break;
356 1.1 cgd case BOLD: *cp++ = '!'; break;
357 1.1 cgd default: *cp++ = 'X'; break;
358 1.1 cgd }
359 1.1 cgd for (*cp=' '; *cp==' '; cp--)
360 1.1 cgd *cp = 0;
361 1.1 cgd for (cp=lbuf; *cp; cp++)
362 1.1 cgd putchar(*cp);
363 1.1 cgd putchar('\n');
364 1.1 cgd }
365 1.1 cgd
366 1.1 cgd initbuf()
367 1.1 cgd {
368 1.1 cgd
369 1.1 cgd bzero((char *)obuf, sizeof (obuf)); /* depends on NORMAL == 0 */
370 1.1 cgd col = 0;
371 1.1 cgd maxcol = 0;
372 1.1 cgd mode &= ALTSET;
373 1.1 cgd }
374 1.1 cgd
375 1.1 cgd fwd()
376 1.1 cgd {
377 1.1 cgd register oldcol, oldmax;
378 1.1 cgd
379 1.1 cgd oldcol = col;
380 1.1 cgd oldmax = maxcol;
381 1.1 cgd flushln();
382 1.1 cgd col = oldcol;
383 1.1 cgd maxcol = oldmax;
384 1.1 cgd }
385 1.1 cgd
386 1.1 cgd reverse()
387 1.1 cgd {
388 1.1 cgd upln++;
389 1.1 cgd fwd();
390 1.1 cgd PRINT(CURS_UP);
391 1.1 cgd PRINT(CURS_UP);
392 1.1 cgd upln++;
393 1.1 cgd }
394 1.1 cgd
395 1.1 cgd initcap()
396 1.1 cgd {
397 1.1 cgd static char tcapbuf[512];
398 1.1 cgd char *bp = tcapbuf;
399 1.1 cgd char *getenv(), *tgetstr();
400 1.1 cgd
401 1.1 cgd /* This nonsense attempts to work with both old and new termcap */
402 1.1 cgd CURS_UP = tgetstr("up", &bp);
403 1.1 cgd CURS_RIGHT = tgetstr("ri", &bp);
404 1.1 cgd if (CURS_RIGHT == NULL)
405 1.1 cgd CURS_RIGHT = tgetstr("nd", &bp);
406 1.1 cgd CURS_LEFT = tgetstr("le", &bp);
407 1.1 cgd if (CURS_LEFT == NULL)
408 1.1 cgd CURS_LEFT = tgetstr("bc", &bp);
409 1.1 cgd if (CURS_LEFT == NULL && tgetflag("bs"))
410 1.1 cgd CURS_LEFT = "\b";
411 1.1 cgd
412 1.1 cgd ENTER_STANDOUT = tgetstr("so", &bp);
413 1.1 cgd EXIT_STANDOUT = tgetstr("se", &bp);
414 1.1 cgd ENTER_UNDERLINE = tgetstr("us", &bp);
415 1.1 cgd EXIT_UNDERLINE = tgetstr("ue", &bp);
416 1.1 cgd ENTER_DIM = tgetstr("mh", &bp);
417 1.1 cgd ENTER_BOLD = tgetstr("md", &bp);
418 1.1 cgd ENTER_REVERSE = tgetstr("mr", &bp);
419 1.1 cgd EXIT_ATTRIBUTES = tgetstr("me", &bp);
420 1.1 cgd
421 1.1 cgd if (!ENTER_BOLD && ENTER_REVERSE)
422 1.1 cgd ENTER_BOLD = ENTER_REVERSE;
423 1.1 cgd if (!ENTER_BOLD && ENTER_STANDOUT)
424 1.1 cgd ENTER_BOLD = ENTER_STANDOUT;
425 1.1 cgd if (!ENTER_UNDERLINE && ENTER_STANDOUT) {
426 1.1 cgd ENTER_UNDERLINE = ENTER_STANDOUT;
427 1.1 cgd EXIT_UNDERLINE = EXIT_STANDOUT;
428 1.1 cgd }
429 1.1 cgd if (!ENTER_DIM && ENTER_STANDOUT)
430 1.1 cgd ENTER_DIM = ENTER_STANDOUT;
431 1.1 cgd if (!ENTER_REVERSE && ENTER_STANDOUT)
432 1.1 cgd ENTER_REVERSE = ENTER_STANDOUT;
433 1.1 cgd if (!EXIT_ATTRIBUTES && EXIT_STANDOUT)
434 1.1 cgd EXIT_ATTRIBUTES = EXIT_STANDOUT;
435 1.1 cgd
436 1.1 cgd /*
437 1.1 cgd * Note that we use REVERSE for the alternate character set,
438 1.1 cgd * not the as/ae capabilities. This is because we are modelling
439 1.1 cgd * the model 37 teletype (since that's what nroff outputs) and
440 1.1 cgd * the typical as/ae is more of a graphics set, not the greek
441 1.1 cgd * letters the 37 has.
442 1.1 cgd */
443 1.1 cgd
444 1.1 cgd UNDER_CHAR = tgetstr("uc", &bp);
445 1.1 cgd must_use_uc = (UNDER_CHAR && !ENTER_UNDERLINE);
446 1.1 cgd }
447 1.1 cgd
448 1.1 cgd outchar(c)
449 1.1 cgd int c;
450 1.1 cgd {
451 1.1 cgd putchar(c & 0177);
452 1.1 cgd }
453 1.1 cgd
454 1.1 cgd static int curmode = 0;
455 1.1 cgd
456 1.1 cgd outc(c)
457 1.1 cgd int c;
458 1.1 cgd {
459 1.1 cgd putchar(c);
460 1.1 cgd if (must_use_uc && (curmode&UNDERL)) {
461 1.1 cgd PRINT(CURS_LEFT);
462 1.1 cgd PRINT(UNDER_CHAR);
463 1.1 cgd }
464 1.1 cgd }
465 1.1 cgd
466 1.1 cgd setmode(newmode)
467 1.1 cgd int newmode;
468 1.1 cgd {
469 1.1 cgd if (!iflag) {
470 1.1 cgd if (curmode != NORMAL && newmode != NORMAL)
471 1.1 cgd setmode(NORMAL);
472 1.1 cgd switch (newmode) {
473 1.1 cgd case NORMAL:
474 1.1 cgd switch(curmode) {
475 1.1 cgd case NORMAL:
476 1.1 cgd break;
477 1.1 cgd case UNDERL:
478 1.1 cgd PRINT(EXIT_UNDERLINE);
479 1.1 cgd break;
480 1.1 cgd default:
481 1.1 cgd /* This includes standout */
482 1.1 cgd PRINT(EXIT_ATTRIBUTES);
483 1.1 cgd break;
484 1.1 cgd }
485 1.1 cgd break;
486 1.1 cgd case ALTSET:
487 1.1 cgd PRINT(ENTER_REVERSE);
488 1.1 cgd break;
489 1.1 cgd case SUPERSC:
490 1.1 cgd /*
491 1.1 cgd * This only works on a few terminals.
492 1.1 cgd * It should be fixed.
493 1.1 cgd */
494 1.1 cgd PRINT(ENTER_UNDERLINE);
495 1.1 cgd PRINT(ENTER_DIM);
496 1.1 cgd break;
497 1.1 cgd case SUBSC:
498 1.1 cgd PRINT(ENTER_DIM);
499 1.1 cgd break;
500 1.1 cgd case UNDERL:
501 1.1 cgd PRINT(ENTER_UNDERLINE);
502 1.1 cgd break;
503 1.1 cgd case BOLD:
504 1.1 cgd PRINT(ENTER_BOLD);
505 1.1 cgd break;
506 1.1 cgd default:
507 1.1 cgd /*
508 1.1 cgd * We should have some provision here for multiple modes
509 1.1 cgd * on at once. This will have to come later.
510 1.1 cgd */
511 1.1 cgd PRINT(ENTER_STANDOUT);
512 1.1 cgd break;
513 1.1 cgd }
514 1.1 cgd }
515 1.1 cgd curmode = newmode;
516 1.1 cgd }
517