提交 cb21d001 编写于 作者: R Richard Levitte

DCL logic bugs fixed.

(I really need to review my knowledge of the language)
上级 c7faede3
......@@ -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:"
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册