Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0109/decom.hlp
There are 4 other files named decom.hlp in the archive. Click here to see a list.
DECOM
-----
DECOM is a SIMULA SAFMIN subclass designed for
interpretation of "standard" DEC command format:
outspec/switch1/switch2....=inspec/switch3/switch4...
Included procedures:
--------------------
DECCOM for initial separation of the input command
and opening of the files.
INTSWITCH for interpreting switch giving integer value.
BOOLSWITCH for interpreting switch giving boolean value.
ILLEGALSWITCH for finding if there are any uninterpretable
switches.
The DECCOM procedure helps interpreting a DEC standard file
command.
The CREATEFILES procedure is used to create the file
objects for the input and and output files.
Parameters to DECOM:
(I) COMMAND The string to be interpreted
(O) OHEAD Output file specifications
(O) IHEAD Input file specifications
Parameters to CREATEFILES:
(IO) OHEAD Output file specifications
(IO) IHEAD Input file specifications
(I) OEXTENSION Default extension for output file name
(I) IEXTENSION Default extension for input file name
(Extension is only set if file spec lacks extension)
[O] OFILE Outfile object reference
[O] IFILE Infile object reference
Global data in the class DECOM:
(O) SWARRAY TEXT ARRAY [1:LIMIT] saving switch values
(I) LIMIT Maximum number of switches
(O) NSWOUT Number of received switch values on the output side
(O) NSWIN Ditto input side
Format of COMMAND:
<command>::= [<outpart>] <inpart>
<outpart>::= [<spec>] =
<spec>:= [<filespec>] [/<switches>]
<filespec>::= [<device>:] filename [ . [ext] ]
<switches>::= <switches> / <switch> | <switch>
<switch>::= <anything not containing '=' or '/'>
The <spec> for the <outpart> will be returned through OHEAD,
and through IHEAD for the <inpart>.
The switches on the outpart side will be stored in the array
SWARRAY[1:NSWOUT] and those on the inside side in the
elements [NSWOUT+1,NSWOUT+NSWIN].
I.e.
A/B=C/D/E
will return
OHEAD = "A"
IHEAD = "C"
SWARRAY [1] = "B"
[2] = "D"
[3] = "E"
NSWOUT = 1
NSWIN = 2
If the number of switches exceeds LIMIT a warning message is issued and
the rest of the switches will be ignored.
Note that the unused SWARRAY elements will NOT be set to NOTEXT.
CREATEFILES will assert that OHEAD and IHEAD
are legal output and input file specifications respectively.
References to the files will be returned through OFILE and IFILE.
PROCEDURE INTSWITCH(id,result,default,okay,errmess,help)
Intswitch should be called after the call to DECCOM,
once for each allowed switch returning integer result. Parameters:
(I) ID User name of the switch (without /)
(O) RESULT Integer where switchvalue is returned
(I) DEFAULT Text containing default value, to be
used if switch is not given by the user
(I) OKAY Boolean condition, TRUE for valid results
(I) ERRMESS Message to be given if OKAY is FALSE
(I) HELP Boolean expression giving help message.
BOOLEAN PROCEDURE BOOLSWITCH(id,okay,errmess,help)
Boolswitch should be called after the call to deccom,
once for each allowed switch returning boolean result. The
parameters are a subset of the parameters for intswitch(see above).
Boolswitch returns TRUE if the switch is present, false if it is not
present. Okay is the condition under which a TRUE result is legal.
BOOLEAN PROCEDURE ILLEGALSWITCH(errmess,help)
This should be called after all legal switches have been interpreted.
Will give an error message for each duplicate switch or switch
which has not been interpreted, and will return TRUE
if there was any such switch.
Help is called if the illegal switch is /H or /HE or /HEL or /HELP.
Examples of use:
OPTIONS(/L);
BEGIN
EXTERNAL TEXT PROCEDURE rest, scanto, frontstrip, upcase,
front, conc, checkextension;
EXTERNAL REF (infile) PROCEDURE findinfile;
EXTERNAL REF (outfile) PROCEDURE findoutfile;
EXTERNAL BOOLEAN PROCEDURE frontcompare;
EXTERNAL CHARACTER PROCEDURE findtrigger;
EXTERNAL INTEGER PROCEDURE scanint, search;
EXTERNAL LONG REAL PROCEDURE scanreal;
EXTERNAL PROCEDURE split;
EXTERNAL CLASS safmin, decom;
COMMENT the following externals are only used by the demonstration
program, not necessary for decom;
EXTERNAL TEXT PROCEDURE from;
EXTERNAL BOOLEAN PROCEDURE dotypeout;
EXTERNAL BOOLEAN PROCEDURE sqhelp;
INTEGER max_number_of_lines;
BOOLEAN list_output, file_output;
TEXT command, infilename, outfilename;
REF (infile) infileref;
REF (outfile) outfileref;
decom(14) BEGIN
PROCEDURE do_something_useful;
BEGIN
outimage;
outtext("[COMDEM EXECUTION HAS STARTED]"); outimage;
outtext("LINES = "); outint(max_number_of_lines,5);
outimage;
IF list_output THEN outtext("LISTOUTPUT") ELSE
IF file_output THEN outtext("FILEOUTPUT") ELSE
outtext("NEITHER LISTOUTPUT NOR FILEOUTPUT");
outimage;
outimage;
END;
BOOLEAN PROCEDURE decom_help(selector);
VALUE selector; TEXT selector;
BEGIN
outimage;
outtext("outfil.ext=infil.ext/switch1/switch2....");
outimage;
outtext("SWITCH DEFAULT MEANING");
outimage;
outtext("/LINES 5 Number of lines");
outimage;
outtext("/LIST FALSE List output");
outimage;
outtext("/FILE FALSE File output");
outimage; outimage;
IF selector == NOTEXT AND sysin.image =/= NOTEXT THEN
BEGIN
command:- sysin.image.strip;
command.setpos(1); IF command.getchar = '?' THEN
selector:- command.sub(2,command.length-1);
END;
sqhelp("DECOM",selector,19,72);
END;
PROCEDURE interpret_integer_switches;
BEGIN
intswitch("LINES","5",max_number_of_lines,
max_number_of_lines >= 0 AND max_number_of_lines <= 11,
"Must be between 0 and 11",decom_help(""));
COMMENT etcetera;
END of interpret_integer_switches;
PROCEDURE interpret_boolean_switches;
BEGIN
list_output:= boolswitch("LIST",TRUE,NOTEXT,decom_help(""));
file_output:= boolswitch("FILE",NOT list_output,
"Only one kind of output",decom_help(""));
COMMENT etcetera;
END of interpret_boolean_switches;
BOOLEAN PROCEDURE interpret_legal_command;
BEGIN
IF NOT deccom(command,outfilename,infilename)
THEN GOTO out;
interpret_integer_switches;
interpret_boolean_switches;
IF outfilename = NOTEXT THEN outfilename:-copy("TTY:");
IF infilename = NOTEXT THEN
BEGIN
IF list_output THEN
BEGIN
infilename:- copy(outfilename);
IF findtrigger(infilename,dottext) = '.' THEN
infilename:- infilename.sub(1,infilename.pos-2);
END;
END;
IF NOT illegalswitch(
"Uninterpretable or duplicate switch: /",decom_help("")) THEN
BEGIN
createfiles(outfilename,infilename,
copy(IF list_output THEN ".LST" ELSE ".ADR"),copy(".ADR"),
outfileref,infileref,decom_help("CREATE"));
interpret_legal_command:= TRUE;
END;
out:
END;
PROCEDURE read_input_command;
BEGIN CHARACTER c;
prompt: image:= "*"; breakoutimage; inimage;
IF sysin.image.strip = NOTEXT THEN GOTO prompt;
lastitem; c:= inchar;
IF c = '/' OR c = '?' THEN
BEGIN
IF endfile THEN GOTO quit;
decom_help(""); GOTO prompt;
END;
sysin.setpos(sysin.pos-1);
command:- upcase(intext(sysin.length-sysin.pos+1).strip);
IF NOT interpret_legal_command THEN GOTO prompt;
do_something_useful;
END of read_input_command;
WHILE NOT sysin.endfile DO read_input_command;
END;
quit:
END
! [END of DECOM.HLP]