More on NARPLUGIN-157

1 files changed, 37 insertions, 0 deletions

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