/* * * 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 java.io.File; import net.sf.antcontrib.cpptasks.compiler.LinkType; import net.sf.antcontrib.cpptasks.compiler.Linker; import net.sf.antcontrib.cpptasks.parser.FortranParser; import net.sf.antcontrib.cpptasks.parser.Parser; import org.apache.tools.ant.types.Environment; /** * Adapter for the OpenWatcom Fortran compiler. * * @author Curt Arnold */ public final class OpenWatcomFortranCompiler extends OpenWatcomCompiler { /** * Singleton. */ private static final OpenWatcomFortranCompiler[] INSTANCE = new OpenWatcomFortranCompiler[] { new OpenWatcomFortranCompiler( "wfl386", false, null)}; /** * Get instance. * @return OpenWatcomFortranCompiler compiler instance */ public static OpenWatcomFortranCompiler getInstance() { return INSTANCE[0]; } /** * Constructor. * @param command String command * @param newEnvironment boolean use new environment * @param env Environment environment */ private OpenWatcomFortranCompiler(final String command, final boolean newEnvironment, final Environment env) { super(command, "/?", new String[] {".f90", ".for", ".f"} , new String[] {".i", ".i90", ".fpp"} , newEnvironment, env); } /** * Create dependency parser. * @param source File source file * @return Parser parser */ public Parser createParser(final File source) { return new FortranParser(); } /** * Get linker. * @param type link type * @return linker */ public Linker getLinker(final LinkType type) { return OpenWatcomFortranLinker.getInstance().getLinker(type); } }