* Copyright (c) 1984, 1985, 1986 by the Regents of the
* University of California and by Gregory Glenn Minshall.
* Permission to use, copy, modify, and distribute these
* programs and their documentation for any purpose and
* without fee is hereby granted, provided that this
* copyright and permission appear on all copies and
* supporting documentation, the name of the Regents of
* the University of California not be used in advertising
* or publicity pertaining to distribution of the programs
* without specific prior permission, and notice be given in
* supporting documentation that copying and distribution is
* by permission of the Regents of the University of California
* and by Gregory Glenn Minshall. Neither the Regents of the
* University of California nor Gregory Glenn Minshall make
* representations about the suitability of this software
* for any purpose. It is provided "as is" without
* express or implied warranty.
static char sccsid
[] = "@(#)options.c 3.1 10/29/86";
* this file contains the definitions, initialization, and processing of
* commands to handle the various local options (APL ON, etc.)
#include "../system/globals.h"
OptNullProcessing
= 1; /* improved null processing */
OptZonesMode
= 0; /* zones mode off */
OptEnterNL
= 0; /* regular enter/new line keys */
OptColFieldTab
= 0; /* regular column/field tab keys */
OptPacing
= 1; /* do pacing */
OptAlphaInNumeric
= 0; /* allow alpha in numeric fields */
for (i
= 0; i
< sizeof OptColTabs
; i
++) {
OptColTabs
[i
] = ((i
%8) == 0); /* every 8 columns */
OptOrder(pointer
, count
, control
)
int i
, j
, character
, origCount
;
character
= *pointer
&0xff;
if (!control
&& count
< 30) {
return(0); /* want more! */
for (i
= 0; i
< sizeof OptColTabs
; i
++) {
j
= (*pointer
&0xff)-0x40;
j
= (*pointer
&0xff)-0x40;
j
= (*pointer
&0xff)-0x40;
if (j
< 0 || j
>= sizeof OptColTabs
) {
return(origCount
- count
);