1 //===--- ExecuteCompilerInvocation.cpp ------------------------------------===// 2 // 3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 4 // See https://llvm.org/LICENSE.txt for license information. 5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 6 // 7 //===----------------------------------------------------------------------===// 8 // 9 // This file holds ExecuteCompilerInvocation(). It is split into its own file to 10 // minimize the impact of pulling in essentially everything else in Flang. 11 // 12 //===----------------------------------------------------------------------===// 13 14 #include "flang/Frontend/CompilerInstance.h" 15 #include "flang/Frontend/FrontendActions.h" 16 #include "clang/Driver/Options.h" 17 #include "llvm/Option/OptTable.h" 18 #include "llvm/Option/Option.h" 19 #include "llvm/Support/BuryPointer.h" 20 #include "llvm/Support/CommandLine.h" 21 22 namespace Fortran::frontend { 23 CreateFrontendBaseAction(CompilerInstance & ci)24static std::unique_ptr<FrontendAction> CreateFrontendBaseAction( 25 CompilerInstance &ci) { 26 27 ActionKind ak = ci.frontendOpts().programAction_; 28 switch (ak) { 29 case InputOutputTest: 30 return std::make_unique<InputOutputTestAction>(); 31 break; 32 case PrintPreprocessedInput: 33 return std::make_unique<PrintPreprocessedAction>(); 34 break; 35 case ParseSyntaxOnly: 36 return std::make_unique<ParseSyntaxOnlyAction>(); 37 case EmitObj: 38 return std::make_unique<EmitObjAction>(); 39 break; 40 default: 41 break; 42 // TODO: 43 // case RunPreprocessor: 44 // case ParserSyntaxOnly: 45 // case EmitLLVM: 46 // case EmitLLVMOnly: 47 // case EmitCodeGenOnly: 48 // (...) 49 } 50 return 0; 51 } 52 CreateFrontendAction(CompilerInstance & ci)53std::unique_ptr<FrontendAction> CreateFrontendAction(CompilerInstance &ci) { 54 // Create the underlying action. 55 std::unique_ptr<FrontendAction> act = CreateFrontendBaseAction(ci); 56 if (!act) 57 return nullptr; 58 59 return act; 60 } ExecuteCompilerInvocation(CompilerInstance * flang)61bool ExecuteCompilerInvocation(CompilerInstance *flang) { 62 // Honor -help. 63 if (flang->frontendOpts().showHelp_) { 64 clang::driver::getDriverOptTable().PrintHelp(llvm::outs(), 65 "flang-new -fc1 [options] file...", "LLVM 'Flang' Compiler", 66 /*Include=*/clang::driver::options::FC1Option, 67 /*Exclude=*/llvm::opt::DriverFlag::HelpHidden, 68 /*ShowAllAliases=*/false); 69 return true; 70 } 71 72 // Honor -version. 73 if (flang->frontendOpts().showVersion_) { 74 llvm::cl::PrintVersionMessage(); 75 return true; 76 } 77 78 // Create and execute the frontend action. 79 std::unique_ptr<FrontendAction> act(CreateFrontendAction(*flang)); 80 if (!act) 81 return false; 82 83 bool success = flang->ExecuteAction(*act); 84 return success; 85 } 86 87 } // namespace Fortran::frontend 88