!*** MODULE $HLPDEF *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! Data structures for help processing ! PARAMETER HLP$M_PROMPT = '00000001'X PARAMETER HLP$M_PROCESS = '00000002'X PARAMETER HLP$M_GROUP = '00000004'X PARAMETER HLP$M_SYSTEM = '00000008'X PARAMETER HLP$M_LIBLIST = '00000010'X PARAMETER HLP$M_HELP = '00000020'X PARAMETER HLP$M_SPARE1 = '00000040'X PARAMETER HLP$M_PAGE_SAVE = '00000080'X PARAMETER HLP$M_PAGE = '00000100'X PARAMETER HLP$M_OUTPUT = '00000200'X PARAMETER HLP$M_LIBRARY = '00000400'X PARAMETER HLP$M_ALL = '00000800'X PARAMETER HLP$M_PAGEDEF = '00001000'X PARAMETER HLP$M_PMPTDEF = '00002000'X PARAMETER HLP$M_NOTTERM = '00004000'X STRUCTURE /HLPDEF/ UNION MAP PARAMETER HLP$S_PROMPT = 1 PARAMETER HLP$V_PROMPT = 0 ! Prompting enabled PARAMETER HLP$S_PROCESS = 1 PARAMETER HLP$V_PROCESS = 1 ! Process logical name table searches enabled PARAMETER HLP$S_GROUP = 1 PARAMETER HLP$V_GROUP = 2 ! Group logical name table searches enabled PARAMETER HLP$S_SYSTEM = 1 PARAMETER HLP$V_SYSTEM = 3 ! System logical name table searched enabled PARAMETER HLP$S_LIBLIST = 1 PARAMETER HLP$V_LIBLIST = 4 ! Output list of default libraries PARAMETER HLP$S_HELP = 1 PARAMETER HLP$V_HELP = 5 ! Display help on help before list of topics PARAMETER HLP$S_SPARE1 = 1 PARAMETER HLP$V_SPARE1 = 6 PARAMETER HLP$S_PAGE_SAVE = 1 PARAMETER HLP$V_PAGE_SAVE = 7 ! Page=Save enabled PARAMETER HLP$S_PAGE = 1 PARAMETER HLP$V_PAGE = 8 ! Page breaks enabled PARAMETER HLP$S_OUTPUT = 1 PARAMETER HLP$V_OUTPUT = 9 ! Output listing file enabled PARAMETER HLP$S_LIBRARY = 1 PARAMETER HLP$V_LIBRARY = 10 ! Main library specified by user PARAMETER HLP$S_ALL = 1 PARAMETER HLP$V_ALL = 11 ! Some logical name table searches enabled PARAMETER HLP$S_PAGEDEF = 1 PARAMETER HLP$V_PAGEDEF = 12 ! Page flag defaulting disabled PARAMETER HLP$S_PMPTDEF = 1 PARAMETER HLP$V_PMPTDEF = 13 ! Prompt flag defaulting disabled PARAMETER HLP$S_NOTTERM = 1 PARAMETER HLP$V_NOTTERM = 14 ! Input device is not a terminal BYTE %FILL (2) END MAP END UNION END STRUCTURE ! HLPDEF PARAMETER HLP$M_NOHLPTXT = '00000001'X PARAMETER HLP$M_KEYNAMLIN = '00000002'X PARAMETER HLP$M_OTHERINFO = '00000004'X STRUCTURE /HLPDEF1/ INTEGER*4 HLP$L_DESC ! Address of string descriptor for line UNION MAP INTEGER*4 HLP$L_FLAGS ! Flags END MAP MAP PARAMETER HLP$S_NOHLPTXT = 1 PARAMETER HLP$V_NOHLPTXT = 0 ! Line is part of text due to no help found PARAMETER HLP$S_KEYNAMLIN = 1 PARAMETER HLP$V_KEYNAMLIN = 1 ! Line contains keynames to be printed PARAMETER HLP$S_OTHERINFO = 1 PARAMETER HLP$V_OTHERINFO = 2 ! Line is part of "other info available" BYTE %FILL (1) END MAP END UNION INTEGER*4 HLP$L_DATA ! Address of user data passed to GET_HELP INTEGER*4 HLP$L_LEVEL ! Level of this help END STRUCTURE ! HLPDEF1 !DEC$ END OPTIONS