From cb21d001c92ec52b88d19e34830b5c2342a154bf Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Thu, 14 Nov 2002 15:38:47 +0000 Subject: [PATCH] DCL logic bugs fixed. (I really need to review my knowledge of the language) --- engines/makeengines.com | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/engines/makeengines.com b/engines/makeengines.com index 96fccbddf9..b2d191653d 100644 --- a/engines/makeengines.com +++ b/engines/makeengines.com @@ -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:" -- 2.34.1