From cec8facea6da0c678051042df9324ac9d2f333d9 Mon Sep 17 00:00:00 2001
From: Mark Donszelmann <Mark.Donszelmann@gmail.com>
Date: Fri, 14 Sep 2007 17:44:29 +0000
Subject: More on NARPLUGIN-157

---
 .../cpptasks/intel/IntelLinuxFortranCompiler.java  | 37 ++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 src/net/sf/antcontrib/cpptasks/intel/IntelLinuxFortranCompiler.java

(limited to 'src/net')

diff --git a/src/net/sf/antcontrib/cpptasks/intel/IntelLinuxFortranCompiler.java b/src/net/sf/antcontrib/cpptasks/intel/IntelLinuxFortranCompiler.java
new file mode 100644
index 0000000..b9e4467
--- /dev/null
+++ b/src/net/sf/antcontrib/cpptasks/intel/IntelLinuxFortranCompiler.java
@@ -0,0 +1,37 @@
+// BEGINFREEHEP
+package net.sf.antcontrib.cpptasks.intel;
+import net.sf.antcontrib.cpptasks.compiler.LinkType;
+import net.sf.antcontrib.cpptasks.compiler.Linker;
+import net.sf.antcontrib.cpptasks.compiler.Processor;
+import net.sf.antcontrib.cpptasks.gcc.GccCompatibleCCompiler;
+
+import org.apache.tools.ant.types.Environment;
+
+public final class IntelLinuxFortranCompiler extends GccCompatibleCCompiler {
+    private static final IntelLinuxFortranCompiler instance = new IntelLinuxFortranCompiler(
+            false, new IntelLinuxFortranCompiler(true, null, false, null), false,
+            null);
+    public static IntelLinuxFortranCompiler getInstance() {
+        return instance;
+    }
+    private IntelLinuxFortranCompiler(boolean isLibtool,
+            IntelLinuxFortranCompiler libtoolCompiler, boolean newEnvironment,
+            Environment env) {
+        super("ifort", "-V", isLibtool, libtoolCompiler, newEnvironment, env);
+    }
+    public Processor changeEnvironment(boolean newEnvironment, Environment env) {
+        if (newEnvironment || env != null) {
+            return new IntelLinuxFortranCompiler(getLibtool(),
+                    (IntelLinuxFortranCompiler) getLibtoolCompiler(),
+                    newEnvironment, env);
+        }
+        return this;
+    }
+    public Linker getLinker(LinkType type) {
+        return IntelLinux32Linker.getInstance().getLinker(type);
+    }
+    public int getMaximumCommandLength() {
+        return Integer.MAX_VALUE;
+    }
+}
+// ENDFREEHEP
\ No newline at end of file
-- 
cgit v1.2.3