ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/editline.c
Revision: 1.2
Committed: Fri Sep 29 13:23:54 1989 UTC (34 years, 7 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 1.1: +17 -5 lines
Log Message:
Added word erase and allowed ^H or ^?, ^U or ^X in editline.

File Contents

# User Rev Content
1 greg 1.1 /* Copyright (c) 1987 Regents of the University of California */
2    
3     #ifndef lint
4     static char SCCSid[] = "$SunId$ LBL";
5     #endif
6    
7     /*
8     * editline.c - routine for editing raw input for rview.
9     *
10     * 10/5/88
11     */
12    
13 greg 1.2 #define iscntrl(c) ((c) < ' ')
14     #define isblank(c) ((c) == ' ')
15     #define iserase(c) ((c) == '\b' || (c) == 127)
16     #define iswerase(c) ((c) == 'W'-'@')
17     #define iskill(c) ((c) == 'U'-'@' || (c) == 'X'-'@')
18 greg 1.1
19    
20 greg 1.2 editline(buf, c_get, s_put) /* edit input line */
21 greg 1.1 char *buf;
22     int (*c_get)(), (*s_put)();
23     {
24     static char erases[] = "\b \b";
25     static char obuf[4];
26     register int i;
27     register int c;
28    
29     i = 0;
30     while ((c = (*c_get)()&0177) != '\n' && c != '\r')
31 greg 1.2 if (iserase(c)) { /* single char erase */
32 greg 1.1 if (i > 0) {
33     (*s_put)(erases);
34     --i;
35     }
36 greg 1.2 } else if (iswerase(c)) { /* word erase */
37     while (i > 0 && isblank(buf[i-1])) {
38     (*s_put)(erases);
39     --i;
40     }
41     while (i > 0 && !isblank(buf[i-1])) {
42     (*s_put)(erases);
43     --i;
44     }
45     } else if (iskill(c)) { /* kill line */
46 greg 1.1 while (i > 0) {
47     (*s_put)(erases);
48     --i;
49     }
50     } else if (iscntrl(c)) { /* control char */
51     i = 0;
52     buf[i++] = c;
53     obuf[0] = '^'; obuf[1] = c|0100; obuf[2] = '\0';
54     (*s_put)(obuf);
55     break;
56     } else { /* regular char */
57     buf[i++] = c;
58     obuf[0] = c; obuf[1] = '\0';
59     (*s_put)(obuf);
60     }
61     buf[i] = '\0';
62     (*s_put)("\n");
63     }