Trailing-Edge
-
PDP-10 Archives
-
decus_20tap5_198111
-
decus/20-0147/format.key
There are 2 other files named format.key in the archive. Click here to see a list.
( BLOCK DATA
(C RENBR(FORMAT/DECISION TREE FOR COMMAND RECOGNITION)
(C
(C DONALD E. BARTH, HARVARD BUSINESS SCHOOL
(C
(C THE DECISION TREE WHICH IS DEFINED BY THIS BLOCK DATA
(C ROUTINE IS USED BY THE FORMAT PROGRAM FOR RECOGNIZING
(C COMMANDS. THIS DECISION TREE WAS PRODUCED BY THE
(C KEYWRD PROGRAM WHICH WAS WRITTEN BY THE SAME AUTHOR.
(C
( COMMON/FMTONE/I ,IBYTE ,ICENTR,IDISK ,IFFILL,
( 1IFFLAG,IFQUOT,IGROUP,IHEADR,IMACRO,IMINUS,INDENT,
( 2INICLM,INIKPY,INILED,INILIN,INILNG,ININUM,INISPC,
( 3INISPL,INITAL,INSERT,INTRVL,IOFFST,IPASS ,IREVRS,
( 4ISKIP ,ISPACE,ISTART,ITRAIL,ITTY ,IVALUE,IWIDTH,
( 5J ,JDISK ,JGROUP,JMINUS,JSKIP ,JSTIFY,JTTY ,
( 6JVALUE,K ,KASALL,KASFLG,KASLCL,KDISK ,KMINUS,
( 7KNTARG,KNTLIN,KNTPNT,KNTQOT,KNTSPC,KNTXTR,KOMAND,
( 8KOMENT,KONVRT,KPYBGN,KPYKAS,KPYKLM,KPYKNT,KPYLNG,
( 9KPYMID,KPYPRE,KPYPRT,KPYSPL,KPYUSD,KPYWID,KVALUE
( COMMON/FMTTWO/LEDING,LENGTH,LFTDGT,LFTOVR,LITERL,
( 1LMTBGN,LMTEND,LMTKAS,LMTLNG,LMTMID,LMTPRE,LMTSPL,
( 2LMTTEM,LNGBGN,LNGEND,LNGMID,LNGTEM,LOCABC,LOCATE,
( 3LOCPNT,LOWBFR,MASTER,MAXBGN,MAXEND,MAXLIN,MAXLNG,
( 4MAXPRE,MAXPRT,MAXSPL,MAXWRD,MOVBAC,MRGFAR,MRGLFT,
( 5MRGRIT,MRKBAC,MRKBLA,MRKCAR,MRKDOL,MRKDOT,MRKEXC,
( 6MRKLES,MRKLIN,MRKNUM,MRKSEM,MRKUND,NEEDED,NOWIND,
( 7NOWLFT,NOWLIN,NOWLNG,NOWOFF,NOWRIT,NOWSKP,NOWSPL,
( 8NXTBGN,NXTLST
( COMMON/FMTTHR/KMDARG(63) ,KMDBRK(63) ,LNGDEF(50) ,
( 1 MCHPNT(224) ,MSKBGN(300) ,MSKDEF(500) ,MSKMID(300) ,
( 2 MSKPRE(80) ,NOTPNT(224) ,MSKTEM(300)
( COMMON/FMTFOU/LTRBAC,LTRBLA,LTRCAR,LTRCOM,LTRDOL,
( 1LTRDOT,LTREXC,LTRHHH,LTRLES,LTRMNS,LTRNOW,LTRNUM,
( 2LTRPLS,LTRQUO,LTRRIG,LTRSEM,LTRSLA,LTRSPA,LTRTAB,
( 3LTRUND,LTRXXX,LWRHHH,LTRNXT
( COMMON/FMTFIV/LTRABC(26) ,LTRBGN(300) ,LTRDEF(500) ,
( 1 LTRDGT(10) ,LTREND(72) ,LTRFLG(9) ,LTRMID(300) ,
( 2 LTRONL(26) ,LTRONU(26) ,LTRPRE(80) ,LTRTWO(5) ,
( 3 LWRABC(26) ,LWRONL(26) ,LWRONU(26) ,LTRTEM(300)
(C
(C COMMAND 1 IS FOR ALL AMBIGUOUS ABBREVIATIONS OF WHICH
(C LEFT CHARACTERS HAVE BEEN DEFINED AS ANOTHER COMMAND
1 PR
2 B
2 BLANK
3 BREAK
4 CENTER
4 CENTRE
5 END OF FILE
6 F
6 FILL
7 FL
7 FLAGS ALL
8 FLAGS C
8 FLAGS CAPITALIZE
9 CARRIAGE
10 FLAGS CONTROL
11 FLAGS LOWER CASE
12 FLAGS QUOTE
13 FLAGS SPACE
14 FLAGS UPPER CASE
15 FORMAT
16 I
16 IN
16 INDENT
17 INPUT WIDTH
18 INSERT
19 JUSTIFY
20 LEFT MARGIN
21 LENGTH
22 LOWER CASE
23 NO F
23 NO FILL
24 NO FL
24 NO FLAGS ALL
25 NO FLAGS C
25 NO FLAGS CAPITALIZE
26 NO CARRIAGE
27 NO FLAGS CONTROL
28 NO FLAGS LOWER CASE
29 NO FLAGS QUOTE
30 NO FLAGS SPACE
31 NO FLAGS UPPER CASE
32 NO JUSTIFY
33 NO TRAILING
34 OFFSET
35 OUTPUT WIDTH
36 P
36 PARAGRAPH
37 PREFACE
38 PROGRAM
39 RESET
40 RIGHT MARGIN
41 S
41 SKIP
42 SPACING
43 TRAILING
44 UPPER CASE
45 US
45 USE
46 FLAGS INSERT
47 FLAGS REMARK
48 FLAGS FENCE
49 NO FLAGS INSERT
50 NO FLAGS REMARK
51 NO FLAGS FENCE
52 LEADING
53 NO LEADING
54 EJECT
55 USE H
56 COPY
57 MASK
58 NO PREFACE
59 NO MASK
60 NO COPY
61 NO INSERT
62 NO OFFSET
63 BEGIN
)
(C
(C KMDARG = -2 OR LESS, CHARACTER OR TEXT STRING
(C ARGUMENT WHICH CANNOT EXTEND ACROSS NORMAL
(C END OF COMMAND. VALUE IS 1 LESS THAN
(C NEGATIVE OF MAXIMUM NUMBER OF CHARACTERS IN
(C STRING
(C CHARACTERS
(C = -1, NO ARGUMENT ALLOWED
(C = 0, TEXT STRING ARGUMENT WHICH CAN EXTEND
(C ACROSS NORMAL END OF COMMAND CHARACTERS
(C = 1 OR GREATER, NUMBER OF NUMERIC ARGUMENTS
(C
(C DATA / ,BLA,BRE,CEN,EOF,FIL,FAL,FCA,CAR,FCO,
(C 1 FLC,FQU,FSP,FUC,FOR,IND,IWI,INS,JUS,LMA,
(C 2 LEN,LCA,NFI,NFA,NFC,NCA,NFC,NFL,NFQ,NFS,
(C 3 NFU,NJU,NTR,OFF,OWI,PAR,PRE,PRO,RES,RMA,
(C 4 SKI,SPA,TRA,UCA,USE,FIN,FRE,FFE,NFI,NFR,
(C 5 NFF,LEA,NLE,EJE,USH,COP,MAS,NPR,NMA,NCO,
(C NIN,NOF,BEG/
( DATA KMDARG/ 0, 1, -1, 1, -1, -1, -1, -2, -3, -2,
( 1 -2, -2, -2, -2, 2, 1, 1, 0, -1, 1,
( 2 1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
( 3 -1, -1, -1, 1, 1, 3, 0, 2, -1, 1,
( 4 1, 1, -1, -1, -2, -2, -2, -2, -1, -1,
( 5 -1, -1, -1, -1, -1, 2, 0, -1, -1, -1,
( 6 -1, -1, 2/
(C
(C KMDBRK = 0, APPLY COMMAND WITHOUT BREAKING TEXT.
(C NEXT TEXT WILL BE APPENDED TO CURRENT LINE
(C = 1, TERMINATE CURRENT LINE. OUTPUT CURRENT
(C STATEMENT. EXIT
(C = 2 THRU 4, TERMINATE CURRENT LINE. OUTPUT
(C CURRENT STATEMENT. FOLLOWING TEXT WILL BE
(C PLACED IN NEW FORMAT STATEMENT
(C = 1, END OF FILE COMMAND
(C = 2, RESTORE COMMAND
(C = 3, BEGIN COMMAND
(C = 4, FORMAT OR PROGRAM COMMAND
(C = 5, TERMINATE CURRENT LINE. FOLLOWING TEXT
(C WILL BE APPENDED TO CURRENT FORMAT STATEMENT
(C ALL BLANK LINES ARE FORCED INTO OUTPUT
(C = 6, TERMINATE CURRENT LINE. FOLLOWING TEXT
(C WILL BE APPENDED TO CURRENT FORMAT STATEMENT
(C BLANK LINES ARE NOT FORCED INTO OUTPUT
(C
(C DATA / ,BLA,BRE,CEN,EOF,FIL,FAL,FCA,CAR,FCO,
(C 1 FLC,FQU,FSP,FUC,FOR,IND,IWI,INS,JUS,LMA,
(C 2 LEN,LCA,NFI,NFA,NFC,NCA,NFC,NFL,NFQ,NFS,
(C 3 NFU,NJU,NTR,OFF,OWI,PAR,PRE,PRO,RES,RMA,
(C 4 SKI,SPA,TRA,UCA,USE,FIN,FRE,FFE,NFI,NFR,
(C 5 NFF,LEA,NLE,EJE,USH,COP,MAS,NPR,NMA,NCO,
(C NIN,NOF,BEG/
( DATA KMDBRK/ 0, 6, 6, 6, 1, 6, 0, 0, 0, 0,
( 1 0, 0, 0, 0, 4, 6, 0, 0, 6, 6,
( 2 0, 0, 6, 0, 0, 0, 0, 0, 0, 0,
( 3 0, 6, 0, 6, 0, 6, 0, 4, 2, 6,
( 4 6, 6, 0, 0, 0, 0, 0, 0, 0, 0,
( 5 0, 0, 0, 5, 0, 6, 0, 0, 0, 6,
( 6 0, 6, 3/
(C
( DATA LTRABC /1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH,1HI,1HJ,
( 1 1HK,1HL,1HM,1HN,1HO,1HP,1HQ,1HR,1HS,1HT,1HU,1HV,1HW,
( 2 1HX,1HY,1HZ/
( DATA LWRABC /1Ha,1Hb,1Hc,1Hd,1He,1Hf,1Hg,1Hh,1Hi,1Hj,
( 1 1Hk,1Hl,1Hm,1Hn,1Ho,1Hp,1Hq,1Hr,1Hs,1Ht,1Hu,1Hv,1Hw,
( 2 1Hx,1Hy,1Hz/
( DATA LTRDGT /1H0,1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9/
( DATA LTRMNS,LTRPLS/1H-,1H+/
( DATA LTRSPA,LTRTAB/1H ,1H /
( DATA LTRCOM,LTRHHH,LTRRIG,LTRSLA,LTRXXX,LWRHHH/
( 1 1H, ,1HH ,1H) ,1H/ ,1HX ,1Hh /
( DATA LTRFLG/1H;,1H<,1H.,1H$,1H\,1H_,1H!,1H#,1H^/
(C
(C 2 SPACES ARE NEEDED TO RIGHT OF FOLLOWING IN FILL MODE.
(C THESE VARIABLES ARE NOT REFERENCED OTHERWISE.
( DATA LTRTWO/1H;,1H:,1H!,1H.,1H?/
(C
(C ARRAY DIMENSIONS
( DATA LMTBGN,LMTMID,LMTEND,LMTPRE,LMTTEM/
( 1300,300,72,80,300/
( DATA LMTSPL,LMTLNG/500,50/
(C
(C DEFINE DEVICE UNIT NUMBERS
( DATA IDISK,JDISK,KDISK,ITTY,JTTY/1,20,21,5,5/
( END
0