Commit cb21d001 authored by Richard Levitte's avatar Richard Levitte
Browse files

DCL logic bugs fixed. 

(I really need to review my knowledge of the language)
parent c7faede3

engines/makeengines.com

+5 −3
Original line number Diff line number Diff line
@@ -369,7 +369,7 @@ $! 
$!  Else, Check To See If OPT_PHASE Has A Valid Arguement.

$!

$   IF ("," + ACCEPT_PHASE + ",") - ("," + OPT_PHASE + ",") -

       .EQS. ("," + ACCEPT_PHASE + ",")

       .NES. ("," + ACCEPT_PHASE + ",")

$   THEN

$!

$!    A Valid Arguement.
@@ -385,9 +385,11 @@ $! 
$     WRITE SYS$OUTPUT ""

$     WRITE SYS$OUTPUT "The option ",OPT_PHASE," is invalid.  The valid options are:"

$     WRITE SYS$OUTPUT ""

$     IF ("," + ACCEPT_PHASE + ",") - ",ALL," THEN -

$     IF ("," + ACCEPT_PHASE + ",") - ",ALL," -

	.NES. ("," + ACCEPT_PHASE + ",") THEN -

	WRITE SYS$OUTPUT "    ALL      :  just build everything."

$     IF ("," + ACCEPT_PHASE + ",") - ",ENGINES," THEN -

$     IF ("," + ACCEPT_PHASE + ",") - ",ENGINES," -

	.NES. ("," + ACCEPT_PHASE + ",") THEN -

	WRITE SYS$OUTPUT "    ENGINES  :  to compile just the [.xxx.EXE.ENGINES]*.EXE hareable images."

$     WRITE SYS$OUTPUT ""

$     WRITE SYS$OUTPUT " where 'xxx' stands for:"