| 1 | #include "ex.h" |
| 2 | /* |
| 3 | * Ex - a text editor |
| 4 | * Bill Joy UCB September 1977 |
| 5 | */ |
| 6 | |
| 7 | char shellname[30] "/bin/sh"; |
| 8 | char direct[30] "/tmp"; |
| 9 | char ttytype[30] "unknown"; |
| 10 | |
| 11 | char NONAME[] "@"; |
| 12 | |
| 13 | #define ONOFF 0 |
| 14 | #define NUMERIC 1 |
| 15 | #define STRING 2 |
| 16 | #define TERM 3 |
| 17 | |
| 18 | char NOTify[] "notify"; |
| 19 | |
| 20 | struct varbl varbls[] { |
| 21 | "autoindent", "ai", ONOFF, 0, 0, |
| 22 | "autoprint", "ap", ONOFF, 1, 1, |
| 23 | "beautify", NONAME, ONOFF, 0, 0, |
| 24 | "directory", "dir", STRING, 0, direct, |
| 25 | "editany", "ea", ONOFF, 0, 0, |
| 26 | "edited", NONAME, ONOFF, 1, 0, |
| 27 | "errorbells", "eb", ONOFF, 1, 1, |
| 28 | "fork", NONAME, ONOFF, 1, 1, |
| 29 | "home", NONAME, STRING, 0, home, |
| 30 | "hush", NONAME, ONOFF, 0, 0, |
| 31 | "ignorecase", "ic", ONOFF, 0, 0, |
| 32 | "indicateul", "iu", ONOFF, 0, 0, |
| 33 | "list", NONAME, ONOFF, 0, 0, |
| 34 | "magic", NONAME, ONOFF, 1, 1, |
| 35 | "mode", NONAME, NUMERIC, 0644, 0644, |
| 36 | NOTify, NONAME, NUMERIC, 5, 5, |
| 37 | "number", NONAME, ONOFF, 0, 0, |
| 38 | "open", NONAME, ONOFF, 1, 1, |
| 39 | "optimize", NONAME, ONOFF, 1, 1, |
| 40 | "printall", "pa", ONOFF, 0, 0, |
| 41 | "prompt", NONAME, ONOFF, 1, 1, |
| 42 | "scroll", NONAME, NUMERIC, 12, 12, |
| 43 | "shell", "sh", STRING, 0, shellname, |
| 44 | "shiftwidth", "sw", NUMERIC, 8, 8, |
| 45 | "sticky", NONAME, ONOFF, 0, 0, |
| 46 | "ttytype", "tty", TERM, 0, ttytype, |
| 47 | "terse", NONAME, ONOFF, 0, 0, |
| 48 | "visualmessage","vm", ONOFF, 0, 0, |
| 49 | "window", NONAME, NUMERIC, 23, 23, |
| 50 | "wrap", NONAME, ONOFF, 1, 1, |
| 51 | 0 |
| 52 | }; |
| 53 | |
| 54 | #define ONMSZ 30 |
| 55 | |
| 56 | set(c) |
| 57 | register c; |
| 58 | { |
| 59 | register char *op; |
| 60 | register struct varbl *vp; |
| 61 | char no, optname[ONMSZ]; |
| 62 | int column, base; |
| 63 | extern char uxb[]; |
| 64 | |
| 65 | setnoaddr(); |
| 66 | if (endcmd(peekchar())) { |
| 67 | getchar(); |
| 68 | propts(0); |
| 69 | return; |
| 70 | } |
| 71 | if (c == 0) |
| 72 | error("Blank required@before options in set"); |
| 73 | do { |
| 74 | switch (c = getchar()) { |
| 75 | case '!': |
| 76 | op = uxb; |
| 77 | if (!*op) |
| 78 | error("No previous command"); |
| 79 | goto pfile; |
| 80 | case '`': |
| 81 | op = altfile; |
| 82 | if (!*op) |
| 83 | error("No alternate filename"); |
| 84 | goto pfile; |
| 85 | case '%': |
| 86 | op = savedfile; |
| 87 | if (!*op) |
| 88 | error("No current filename"); |
| 89 | pfile: |
| 90 | if (!setend()) |
| 91 | error("Can't assign@to %c with set", c); |
| 92 | lprintf("%c=%s\n", c, op); |
| 93 | goto next; |
| 94 | } |
| 95 | if (!letter(c)) |
| 96 | error("Unexpected %c|Expected option name, found %c", c); |
| 97 | op = optname; |
| 98 | do { |
| 99 | if (op >= &optname[ONMSZ]) |
| 100 | error("No such option|Ridiculously long option name"); |
| 101 | *op++ = letter(c); |
| 102 | c = getchar(); |
| 103 | } while (letter(c)); |
| 104 | ungetchar(c); |
| 105 | *op = 0; |
| 106 | no = 0; |
| 107 | op = optname; |
| 108 | if (eq("all", op)) { |
| 109 | propts(1); |
| 110 | goto next; |
| 111 | } |
| 112 | if (!eq(op, NOTify) && op[0] == 'n' && op[1] == 'o') { |
| 113 | op =+ 2; |
| 114 | no++; |
| 115 | } |
| 116 | for (vp = varbls; vp->vname[0]; vp++) |
| 117 | if (eq(vp->vname[0], op) || eq(vp->vname[1], op)) |
| 118 | break; |
| 119 | if (vp->vname[0] == 0) |
| 120 | error("%s: No such option@- 'set all' gives all option values", op); |
| 121 | c = skipwh(); |
| 122 | if (peekchar() == '?') { |
| 123 | getchar(); |
| 124 | printone: |
| 125 | propt(vp); |
| 126 | goto next; |
| 127 | } |
| 128 | if (no && vp->vtype != ONOFF) |
| 129 | error("Option %s is not a toggle", vp->vname[0]); |
| 130 | switch (vp->vtype) { |
| 131 | case ONOFF: |
| 132 | vp->vvalue = 1 - no; |
| 133 | break; |
| 134 | case NUMERIC: |
| 135 | if (c != 0 || setend()) |
| 136 | goto printone; |
| 137 | if (getchar() != '=') |
| 138 | error("= expected@before number for numeric option %s", vp->vname[0]); |
| 139 | if (!digit(peekchar())) |
| 140 | error("Digits required@after = when assigning numeric option"); |
| 141 | c = 0; |
| 142 | base = 10; |
| 143 | if (peekchar() == '0' || vp == &varbls[MODE]) |
| 144 | base = 8; |
| 145 | do |
| 146 | c = c * base + getchar() - '0'; |
| 147 | while (digit(peekchar())); |
| 148 | vp->vvalue = c; |
| 149 | break; |
| 150 | case STRING: |
| 151 | case TERM: |
| 152 | if (c != 0 || setend()) |
| 153 | goto printone; |
| 154 | if (getchar() != '=') |
| 155 | error("Missing =@in assignment to option %s", vp->vname[0]); |
| 156 | op = optname; |
| 157 | while (!setend()) { |
| 158 | if (op >= &optname[ONMSZ]) |
| 159 | error("String too long@in option assignment"); |
| 160 | *op++ = getchar(); |
| 161 | } |
| 162 | *op = 0; |
| 163 | if (vp->vtype == TERM) |
| 164 | setterm(optname); |
| 165 | else { |
| 166 | strcpy(vp->vvalue, optname); |
| 167 | vp->vdefault = 1; |
| 168 | } |
| 169 | break; |
| 170 | } |
| 171 | next: |
| 172 | flush(); |
| 173 | skipwh(); |
| 174 | } while (!endcmd(peekchar())); |
| 175 | eol(); |
| 176 | } |
| 177 | |
| 178 | setend() |
| 179 | { |
| 180 | |
| 181 | return (white(peekchar()) || endcmd(peekchar())); |
| 182 | } |
| 183 | |
| 184 | propts(all) |
| 185 | char all; |
| 186 | { |
| 187 | register struct varbl *vp; |
| 188 | |
| 189 | for (vp = varbls; vp->vname[0] != NIL; vp++) { |
| 190 | if (!all) switch (vp->vtype) { |
| 191 | case ONOFF: |
| 192 | case NUMERIC: |
| 193 | if (vp->vvalue == vp->vdefault) |
| 194 | continue; |
| 195 | break; |
| 196 | case STRING: |
| 197 | if (vp->vdefault == 0) |
| 198 | continue; |
| 199 | break; |
| 200 | /* |
| 201 | case TERM: |
| 202 | break; |
| 203 | */ |
| 204 | } |
| 205 | propt(vp); |
| 206 | } |
| 207 | } |
| 208 | |
| 209 | propt(vp) |
| 210 | register struct varbl *vp; |
| 211 | { |
| 212 | |
| 213 | switch (vp->vtype) { |
| 214 | case ONOFF: |
| 215 | printf("%s%s\n", vp->vvalue ? "" : "no", vp->vname[0]); |
| 216 | break; |
| 217 | case NUMERIC: |
| 218 | if (vp == &varbls[MODE]) { |
| 219 | printf("mode="); |
| 220 | pro(value(MODE)); |
| 221 | putnl(); |
| 222 | } else |
| 223 | printf("%s=%d\n", vp->vname[0], vp->vvalue); |
| 224 | break; |
| 225 | case STRING: |
| 226 | case TERM: |
| 227 | printf("%s=%s\n", vp->vname[0], vp->vvalue); |
| 228 | break; |
| 229 | } |
| 230 | flush(); |
| 231 | } |
| 232 | |
| 233 | pro(i) |
| 234 | register int i; |
| 235 | { |
| 236 | |
| 237 | if (i != 0) |
| 238 | pro((i >> 3) & 017777); |
| 239 | putchar((i & 7) | '0'); |
| 240 | } |
| 241 | |
| 242 | REset() |
| 243 | { |
| 244 | register struct varbl *vp; |
| 245 | |
| 246 | for (vp = varbls; vp->vname[0]; vp++) |
| 247 | if (vp->vtype == NUMERIC || vp->vtype == ONOFF) |
| 248 | vp->vvalue = vp->vdefault; |
| 249 | } |