Make engines compile on VMS for ia64 as well.

Parse file types in a more secure manner.

Submitted by sms@antinode.info (Steven M. Schweda)

diff --git a/engines/alpha.opt b/engines/alpha.opt
new file mode 100644 (file)
index 0000000..1dc71bf
--- /dev/null
+++ b/engines/alpha.opt
@@ -0,0 +1 @@
+SYMBOL_VECTOR=(bind_engine=PROCEDURE,v_check=PROCEDURE)

diff --git a/engines/ia64.opt b/engines/ia64.opt
new file mode 100644 (file)
index 0000000..1dc71bf
--- /dev/null
+++ b/engines/ia64.opt
@@ -0,0 +1 @@
+SYMBOL_VECTOR=(bind_engine=PROCEDURE,v_check=PROCEDURE)

diff --git a/engines/makeengines.com b/engines/makeengines.com
index e1400549119e443e7d89f03dbeec7ed8f5c738ef..5f9b8d4d9fea8aa213a860e73c6933929c9f1201 100644 (file)
--- a/engines/makeengines.com
+++ b/engines/makeengines.com
@@ -211,7 +211,7 @@ $!
 $! Do the dirty work.
 $!
 $ ON ERROR THEN GOTO FILE_NEXT
-$ IF FILE_NAME - ".MAR" .NES. FILE_NAME
+$ IF F$EDIT(F$PARSE(SOURCE_FILE,,,"TYPE","SYNTAX_ONLY"),"UPCASE") .EQS. ".MAR"
 $ THEN
 $   MACRO/OBJECT='OBJECT_FILE' 'SOURCE_FILE'
 $ ELSE