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