![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to opts.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / d / usr / bin / elvis|
Return to opts.c CVS log | Up to [MW Coherent from dump] / coherent / d / usr / bin / elvis |
1.1 root 1: /* opts.c */
2:
3: /* Author:
4: * Steve Kirkendall
5: * 16820 SW Tallac Way
6: * Beaverton, OR 97006
7: * [email protected], or ...uunet!tektronix!psueea!jove!kirkenda
8: */
9:
10:
11: /* This file contains the code that manages the run-time options -- The
12: * values that can be modified via the "set" command.
13: */
14:
15: #include "config.h"
16: #include "vi.h"
17: #ifndef NULL
18: #define NULL (char *)0
19: #endif
20: extern char *getenv();
21:
22: /* maximum width to permit for strings, including ="" */
23: #define MAXWIDTH 20
24:
25: /* These are the default values of all options */
26: char o_autoindent[1] = {FALSE};
27: char o_autoprint[1] = {TRUE};
28: char o_autowrite[1] = {FALSE};
29: #ifndef NO_ERRLIST
30: char o_cc[30] = {CC_COMMAND};
31: #endif
32: #ifndef NO_CHARATTR
33: char o_charattr[1] = {FALSE};
34: #endif
35: char o_columns[3] = {80, 32, 255};
36: #ifndef NO_DIGRAPH
37: char o_digraph[1] = {FALSE};
38: #endif
39: char o_directory[30] = TMPDIR;
40: char o_edcompatible[1] = {FALSE};
41: char o_errorbells[1] = {TRUE};
42: char o_exrefresh[1] = {TRUE};
43: #ifndef NO_DIGRAPH
44: char o_flipcase[80]
45: # if CS_IBMPC
46: = {"\207\200\201\232\202\220\204\216\206\217\221\222\224\231\244\245"}
47: # endif
48: # if CS_LATIN1
49: /* initialized by initopts() */
50: # endif
51: ;
52: #endif
53: #ifndef NO_SENTENCE
54: char o_hideformat[1] = {FALSE};
55: #endif
56: char o_ignorecase[1] = {FALSE};
57: #ifndef NO_EXTENSIONS
58: char o_inputmode[1] = {FALSE};
59: #endif
60: char o_keytime[3] = {2, 0, 5};
61: char o_keywordprg[80] = {KEYWORDPRG};
62: char o_lines[3] = {25, 2, 50}; /* More lines? Enlarge kbuf */
63: char o_list[1] = {FALSE};
64: #ifndef NO_MAGIC
65: char o_magic[1] = {TRUE};
66: #endif
67: #ifndef NO_ERRLIST
68: char o_make[30] = {MAKE_COMMAND};
69: #endif
70: #ifndef NO_MODELINE
71: char o_modeline[1] = {FALSE};
72: #endif
73: #ifndef NO_SENTENCE
74: char o_paragraphs[30] = "PPppIPLPQP";
75: #endif
76: #if MSDOS
77: char o_pcbios[1] = {TRUE};
78: #endif
79: char o_readonly[1] = {FALSE};
80: char o_report[3] = {5, 1, 127};
81: char o_scroll[3] = {12, 1, 127};
82: #ifndef NO_SENTENCE
83: char o_sections[30] = "NHSHSSSEse";
84: #endif
85: char o_shell[60] = SHELL;
86: char o_shiftwidth[3] = {8, 1, 255};
87: #ifndef NO_SHOWMATCH
88: char o_showmatch[1] = {FALSE};
89: #endif
90: #ifndef NO_SHOWMODE
91: char o_smd[1] = {FALSE};
92: #endif
93: char o_sidescroll[3] = {8, 1, 40};
94: char o_sync[1] = {NEEDSYNC};
95: char o_tabstop[3] = {8, 1, 40};
96: char o_term[30] = "?";
97: char o_vbell[1] = {TRUE};
98: char o_warn[1] = {TRUE};
99: char o_wrapmargin[3] = {0, 0, 255};
100: char o_wrapscan[1] = {TRUE};
101:
102:
103: /* The following describes the names & types of all options */
104: #define BOOL 0
105: #define NUM 1
106: #define STR 2
107: #define SET 0x01 /* this option has had its value altered */
108: #define CANSET 0x02 /* this option can be set at any time */
109: #define RCSET 0x06 /* this option can be set in a .exrc file only */
110: #define MR 0x40 /* does this option affect the way text is displayed? */
111: struct
112: {
113: char *name; /* name of an option */
114: char *nm; /* short name of an option */
115: char type; /* type of an option */
116: char flags; /* boolean: has this option been set? */
117: char *value; /* value */
118: }
119: opts[] =
120: {
121: /* name type flags redraw value */
122: { "autoindent", "ai", BOOL, CANSET , o_autoindent },
123: { "autoprint", "ap", BOOL, CANSET , o_autoprint },
124: { "autowrite", "aw", BOOL, CANSET , o_autowrite },
125: #ifndef NO_ERRLIST
126: { "cc", "cc", STR, CANSET , o_cc },
127: #endif
128: #ifndef NO_CHARATTR
129: { "charattr", "ca", BOOL, CANSET | MR, o_charattr },
130: #endif
131: { "columns", "co", NUM, SET , o_columns },
132: #ifndef NO_DIGRAPH
133: { "digraph", "dig", BOOL, CANSET , o_digraph },
134: #endif
135: { "directory", "dir", STR, RCSET , o_directory },
136: { "edcompatible","ed", BOOL, CANSET , o_edcompatible },
137: { "errorbells", "eb", BOOL, CANSET , o_errorbells },
138: { "exrefresh", "er", BOOL, CANSET , o_exrefresh },
139: #ifndef NO_DIGRAPH
140: { "flipcase", "fc", STR, CANSET , o_flipcase },
141: #endif
142: #ifndef NO_SENTENCE
143: { "hideformat", "hf", BOOL, CANSET | MR, o_hideformat },
144: #endif
145: { "ignorecase", "ic", BOOL, CANSET , o_ignorecase },
146: #ifndef NO_EXTENSIONS
147: { "inputmode", "im", BOOL, CANSET , o_inputmode },
148: #endif
149: { "keytime", "kt", NUM, CANSET , o_keytime },
150: { "keywordprg", "kp", STR, CANSET , o_keywordprg },
151: { "lines", "ls", NUM, SET , o_lines },
152: { "list", "li", BOOL, CANSET | MR, o_list },
153: #ifndef NO_MAGIC
154: { "magic", "ma", BOOL, CANSET , o_magic },
155: #endif
156: #ifndef NO_ERRLIST
157: { "make", "mk", STR, CANSET , o_make },
158: #endif
159: #ifndef NO_MODELINE
160: { "modeline", "ml", BOOL, CANSET , o_modeline },
161: #endif
162: #ifndef NO_SENTENCE
163: { "paragraphs", "pa", STR, CANSET , o_paragraphs },
164: #endif
165: #if MSDOS
166: { "pcbios", "pc", BOOL, SET , o_pcbios },
167: #endif
168: { "readonly", "ro", BOOL, CANSET , o_readonly },
169: { "report", "re", NUM, CANSET , o_report },
170: { "scroll", "sc", NUM, CANSET , o_scroll },
171: #ifndef NO_SENTENCE
172: { "sections", "se", STR, CANSET , o_sections },
173: #endif
174: { "shell", "sh", STR, CANSET , o_shell },
175: #ifndef NO_SHOWMATCH
176: { "showmatch", "sm", BOOL, CANSET , o_showmatch },
177: #endif
178: #ifndef NO_SHOWMODE
179: { "showmode", "smd", BOOL, CANSET , o_smd },
180: #endif
181: { "shiftwidth", "sw", NUM, CANSET , o_shiftwidth },
182: { "sidescroll", "ss", NUM, CANSET , o_sidescroll },
183: { "sync", "sy", BOOL, CANSET , o_sync },
184: { "tabstop", "ts", NUM, CANSET | MR, o_tabstop },
185: { "term", "te", STR, SET , o_term },
186: { "vbell", "vb", BOOL, CANSET , o_vbell },
187: { "warn", "wa", BOOL, CANSET , o_warn },
188: { "wrapmargin", "wm", NUM, CANSET , o_wrapmargin },
189: { "wrapscan", "ws", BOOL, CANSET , o_wrapscan },
190: { NULL, NULL, 0, CANSET, NULL }
191: };
192:
193:
194: /* This function initializes certain options from environment variables, etc. */
195: void initopts()
196: {
197: char *val;
198: int i;
199:
200: /* set some stuff from environment variables */
201: #if MSDOS
202: if (val = getenv("COMSPEC")) /* yes, ASSIGNMENT! */
203: #else
204: if (val = getenv("SHELL")) /* yes, ASSIGNMENT! */
205: #endif
206: {
207: strcpy(o_shell, val);
208: }
209:
210: #if ANY_UNIX
211: if (val = getenv("TERM")) /* yes, ASSIGNMENT! */
212: {
213: strcpy(o_term, val);
214: }
215: #endif
216: #if TOS
217: val = "vt52";
218: strcpy(o_term, val);
219: #endif
220: #if MSDOS
221: if ((val = getenv("TERM")) /* yes, ASSIGNMENT! */
222: && strcmp(val, "pcbios"))
223: {
224: strcpy(o_term, val);
225: o_pcbios[0] = 0;
226: }
227: else
228: {
229: strcpy(o_term, "pcbios");
230: o_pcbios[0] = 1;
231: }
232: #endif
233: #if MSDOS || TOS
234: if ((val = getenv("TMP")) /* yes, ASSIGNMENT! */
235: || (val = getenv("TEMP")))
236: strcpy(o_directory, val);
237: #endif
238:
239: *o_scroll = LINES / 2 - 1;
240:
241: /* disable the vbell option if we don't know how to do a vbell */
242: if (!has_VB)
243: {
244: for (i = 0; opts[i].value != o_vbell; i++)
245: {
246: }
247: opts[i].flags &= ~CANSET;
248: *o_vbell = FALSE;
249: }
250:
251: #ifndef NO_DIGRAPH
252: # ifdef CS_LATIN1
253: for (i = 0, val = o_flipcase; i < 32; i++)
254: {
255: /* leave out the multiply/divide symbols */
256: if (i == 23)
257: continue;
258:
259: /* add upper/lowercase pair */
260: *val++ = i + 0xc0;
261: *val++ = i + 0xe0;
262: }
263: *val = '\0';
264: # endif /* CS_LATIN1 */
265: #endif /* not NO_DIGRAPH */
266: }
267:
268: /* This function lists the current values of all options */
269: void dumpopts(all)
270: int all; /* boolean: dump all options, or just set ones? */
271: {
272: #ifndef NO_OPTCOLS
273: int i, j, k;
274: char nbuf[4]; /* used for converting numbers to ASCII */
275: int widths[5]; /* width of each column, including gap */
276: int ncols; /* number of columns */
277: int nrows; /* number of options per column */
278: int nset; /* number of options to be output */
279: int width; /* width of a particular option */
280: int todump[50]; /* indicies of options to be dumped */
281:
282: /* step 1: count the number of set options */
283: for (nset = i = 0; opts[i].name; i++)
284: {
285: if (all || (opts[i].flags & SET))
286: {
287: todump[nset++] = i;
288: }
289: }
290:
291: /* step two: try to use as many columns as possible */
292: for (ncols = (nset > 5 ? 5 : nset); ncols > 1; ncols--)
293: {
294: /* how many would go in this column? */
295: nrows = (nset + ncols - 1) / ncols;
296:
297: /* figure out the width of each column */
298: for (i = 0; i < ncols; i++)
299: {
300: widths[i] = 0;
301: for (j = 0, k = nrows * i; j < nrows && k < nset; j++, k++)
302: {
303: /* figure out the width of a particular option */
304: switch (opts[todump[k]].type)
305: {
306: case BOOL:
307: if (!*opts[todump[k]].value)
308: width = 2;
309: else
310: width = 0;
311: break;
312:
313: case STR:
314: width = 3 + strlen(opts[todump[k]].value);
315: if (width > MAXWIDTH)
316: width = MAXWIDTH;
317: break;
318:
319: case NUM:
320: width = 4;
321: break;
322: }
323: width += strlen(opts[todump[k]].name);
324:
325: /* if this is the widest so far, widen col */
326: if (width > widths[i])
327: {
328: widths[i] = width;
329: }
330: }
331:
332: }
333:
334: /* if the total width is narrow enough, then use it */
335: for (width = -2, i = 0; i < ncols; i++)
336: {
337: width += widths[i] + 2;
338: }
339: if (width < COLS - 1)
340: {
341: break;
342: }
343: }
344:
345: /* step 3: output the columns */
346: nrows = (nset + ncols - 1) / ncols;
347: for (i = 0; i < nrows; i++)
348: {
349: for (j = 0; j < ncols; j++)
350: {
351: /* if we hit the end of the options, quit */
352: k = i + j * nrows;
353: if (k >= nset)
354: {
355: break;
356: }
357:
358: /* output this option's value */
359: width = 0;
360: switch (opts[todump[k]].type)
361: {
362: case BOOL:
363: if (!*opts[todump[k]].value)
364: {
365: qaddch('n');
366: qaddch('o');
367: width = 2;
368: }
369: qaddstr(opts[todump[k]].name);
370: width += strlen(opts[todump[k]].name);
371: break;
372:
373: case NUM:
374: sprintf(nbuf, "%-3d", UCHAR(*opts[todump[k]].value));
375: qaddstr(opts[todump[k]].name);
376: qaddch('=');
377: qaddstr(nbuf);
378: width = 4 + strlen(opts[todump[k]].name);
379: break;
380:
381: case STR:
382: qaddstr(opts[todump[k]].name);
383: qaddch('=');
384: qaddch('"');
385: strcpy(tmpblk.c, opts[todump[k]].value);
386: width = 3 + strlen(tmpblk.c);
387: if (width > MAXWIDTH)
388: {
389: width = MAXWIDTH;
390: strcpy(tmpblk.c + MAXWIDTH - 6, "...");
391: }
392: qaddstr(tmpblk.c);
393: qaddch('"');
394: width += strlen(opts[todump[k]].name);
395: break;
396: }
397:
398: /* pad the field to the correct size */
399: if (k + nrows <= nset)
400: {
401: while (width < widths[j] + 2)
402: {
403: qaddch(' ');
404: width++;
405: }
406: }
407: }
408: addch('\n');
409: exrefresh();
410: }
411: #else
412: int i;
413: int col;
414: char nbuf[4];
415:
416: for (i = col = 0; opts[i].name; i++)
417: {
418: /* if not set and not all, ignore this option */
419: if (!all && !(opts[i].flags & SET))
420: {
421: continue;
422: }
423:
424: /* align this option in one of the columns */
425: if (col > 52)
426: {
427: addch('\n');
428: col = 0;
429: }
430: else if (col > 26)
431: {
432: while (col < 52)
433: {
434: qaddch(' ');
435: col++;
436: }
437: }
438: else if (col > 0)
439: {
440: while (col < 26)
441: {
442: qaddch(' ');
443: col++;
444: }
445: }
446:
447: switch (opts[i].type)
448: {
449: case BOOL:
450: if (!*opts[i].value)
451: {
452: qaddch('n');
453: qaddch('o');
454: col += 2;
455: }
456: qaddstr(opts[i].name);
457: col += strlen(opts[i].name);
458: break;
459:
460: case NUM:
461: sprintf(nbuf, "%-3d", UCHAR(*opts[i].value));
462: qaddstr(opts[i].name);
463: qaddch('=');
464: qaddstr(nbuf);
465: col += 4 + strlen(opts[i].name);
466: break;
467:
468: case STR:
469: qaddstr(opts[i].name);
470: qaddch('=');
471: qaddch('"');
472: qaddstr(opts[i].value);
473: qaddch('"');
474: col += 3 + strlen(opts[i].name) + strlen(opts[i].value);
475: break;
476: }
477: exrefresh();
478: }
479: if (col > 0)
480: {
481: addch('\n');
482: exrefresh();
483: }
484: #endif
485: }
486:
487: #ifndef NO_MKEXRC
488: /* This function saves the current configuarion of options to a file */
489: void saveopts(fd)
490: int fd; /* file descriptor to write to */
491: {
492: int i;
493: char buf[256], *pos;
494:
495: /* write each set options */
496: for (i = 0; opts[i].name; i++)
497: {
498: /* if unset or unsettable, ignore this option */
499: if (!(opts[i].flags & SET) || !(opts[i].flags & CANSET))
500: {
501: continue;
502: }
503:
504: strcpy(buf, "set ");
505: pos = &buf[4];
506: switch (opts[i].type)
507: {
508: case BOOL:
509: if (!*opts[i].value)
510: {
511: *pos++='n';
512: *pos++='o';
513: }
514: strcpy(pos, opts[i].name);
515: strcat(pos, "\n");
516: break;
517:
518: case NUM:
519: sprintf(pos, "%s=%-3d\n", opts[i].name, *opts[i].value & 0xff);
520: break;
521:
522: case STR:
523: sprintf(pos, "%s=\"%s\"\n", opts[i].name, opts[i].value);
524: break;
525: }
526: twrite(fd, buf, strlen(buf));
527: }
528: }
529: #endif
530:
531:
532: /* This function changes the values of one or more options. */
533: void setopts(assignments)
534: char *assignments; /* a string containing option assignments */
535: {
536: char *name; /* name of variable in assignments */
537: char *value; /* value of the variable */
538: char *scan; /* used for moving through strings */
539: int i, j;
540:
541: /* for each assignment... */
542: for (name = assignments; *name; )
543: {
544: /* skip whitespace */
545: if (*name == ' ' || *name == '\t')
546: {
547: name++;
548: continue;
549: }
550:
551: /* find the value, if any */
552: for (scan = name; *scan >= 'a' && *scan <= 'z'; scan++)
553: {
554: }
555: if (*scan == '=')
556: {
557: *scan++ = '\0';
558: if (*scan == '"')
559: {
560: value = ++scan;
561: while (*scan && *scan != '"')
562: {
563: scan++;
564: }
565: if (*scan)
566: {
567: *scan++ = '\0';
568: }
569: }
570: else
571: {
572: value = scan;
573: while (*scan && *scan != ' ' && *scan != '\t')
574: {
575: scan++;
576: }
577: if (*scan)
578: {
579: *scan++ = '\0';
580: }
581: }
582: }
583: else
584: {
585: if (*scan)
586: {
587: *scan++ = '\0';
588: }
589: value = NULL;
590: if (name[0] == 'n' && name[1] == 'o')
591: {
592: name += 2;
593: }
594: }
595:
596: /* find the variable */
597: for (i = 0;
598: opts[i].name && strcmp(opts[i].name, name) && strcmp(opts[i].nm, name);
599: i++)
600: {
601: }
602:
603: /* change the variable */
604: if (!opts[i].name)
605: {
606: msg("invalid option name \"%s\"", name);
607: }
608: else if ((opts[i].flags & CANSET) != CANSET)
609: {
610: msg("option \"%s\" can't be altered", name);
611: }
612: else if ((opts[i].flags & RCSET) != CANSET && nlines >= 1L)
613: {
614: msg("option \"%s\" can only be set in a %s file", name, EXRC);
615: }
616: else if (value)
617: {
618: switch (opts[i].type)
619: {
620: case BOOL:
621: msg("option \"[no]%s\" is boolean", name);
622: break;
623:
624: case NUM:
625: j = atoi(value);
626: if (j == 0 && *value != '0')
627: {
628: msg("option \"%s\" must have a numeric value", name);
629: }
630: else if (j < opts[i].value[1] || j > (opts[i].value[2] & 0xff))
631: {
632: msg("option \"%s\" must have a value between %d and %d",
633: name, opts[i].value[1], opts[i].value[2] & 0xff);
634: }
635: else
636: {
637: *opts[i].value = atoi(value);
638: opts[i].flags |= SET;
639: }
640: break;
641:
642: case STR:
643: strcpy(opts[i].value, value);
644: opts[i].flags |= SET;
645: break;
646: }
647: if (opts[i].flags & MR)
648: {
649: mustredraw = TRUE;
650: }
651: }
652: else /* valid option, no value */
653: {
654: if (opts[i].type == BOOL)
655: {
656: *opts[i].value = (name[-1] != 'o');
657: opts[i].flags |= SET;
658: if (opts[i].flags & MR)
659: {
660: mustredraw = TRUE;
661: }
662: }
663: else
664: {
665: msg("option \"%s\" must be given a value", name);
666: }
667: }
668:
669: /* move on to the next option */
670: name = scan;
671: }
672:
673: /* special processing ... */
674:
675: /* if "readonly" then set the READONLY flag for this file */
676: if (*o_readonly)
677: {
678: setflag(file, READONLY);
679: }
680: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.