1 files changed, 69 insertions, 0 deletions
diff --git a/src/main/java/net/sf/antcontrib/cpptasks/openwatcom/OpenWatcomFortranLinker.java b/src/main/java/net/sf/antcontrib/cpptasks/openwatcom/OpenWatcomFortranLinker.java
new file mode 100644
index 0000000..82b6999
--- /dev/null
+++ b/src/main/java/net/sf/antcontrib/cpptasks/openwatcom/OpenWatcomFortranLinker.java
@@ -0,0 +1,69 @@
+/*
+ *
+ * Copyright 2002-2004 The Ant-Contrib project
+ *
+ *  Licensed under the Apache License, Version 2.0 (the "License");
+ *  you may not use this file except in compliance with the License.
+ *  You may obtain a copy of the License at
+ *
+ *      http://www.apache.org/licenses/LICENSE-2.0
+ *
+ *  Unless required by applicable law or agreed to in writing, software
+ *  distributed under the License is distributed on an "AS IS" BASIS,
+ *  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ *  See the License for the specific language governing permissions and
+ *  limitations under the License.
+ */
+package net.sf.antcontrib.cpptasks.openwatcom;
+
+import net.sf.antcontrib.cpptasks.compiler.LinkType;
+import net.sf.antcontrib.cpptasks.compiler.Linker;
+
+/**
+ * Adapter for the OpenWatcom Fortran linker.
+ *
+ * @author Curt Arnold
+ */
+public final class OpenWatcomFortranLinker
+    extends OpenWatcomLinker {
+  /**
+   * Singleton for DLL linking.
+   */
+  private static final OpenWatcomFortranLinker DLL_LINKER = new
+      OpenWatcomFortranLinker(".dll");
+  /**
+   * Singleton for executables.
+   */
+  private static final OpenWatcomFortranLinker INSTANCE = new
+      OpenWatcomFortranLinker(".exe");
+  /**
+   * Get instance.
+   * @return OpenWatcomFortranLinker linker
+   */
+  public static OpenWatcomFortranLinker getInstance() {
+    return INSTANCE;
+  }
+
+  /**
+   * Constructor.
+   * @param outputSuffix String output suffix
+   */
+  private OpenWatcomFortranLinker(final String outputSuffix) {
+    super("wfl386", outputSuffix);
+  }
+
+  /**
+   * Get linker.
+   * @param type LinkType link type
+   * @return Linker linker
+   */
+  public Linker getLinker(final LinkType type) {
+    if (type.isStaticLibrary()) {
+      return OpenWatcomLibrarian.getInstance();
+    }
+    if (type.isSharedLibrary()) {
+      return DLL_LINKER;
+    }
+    return INSTANCE;
+  }
+}