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/axp.opt b/engines/axp.opt
deleted file mode 100644 (file)
index 1dc71bf..0000000
--- a/engines/axp.opt
+++ /dev/null
@@ -1 +0,0 @@
-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 2e0fdff00269a73dcd4fb6e79ee19c56e8e11057..b70253899afdcf908220547860b5307063a3fd7b 100644 (file)
--- a/engines/makeengines.com
+++ b/engines/makeengines.com
@@ -196,7 +196,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