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 
24 static 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   case DebugUnparse:
41     return std::make_unique<DebugUnparseAction>();
42     break;
43   case DebugUnparseNoSema:
44     return std::make_unique<DebugUnparseNoSemaAction>();
45     break;
46   case DebugUnparseWithSymbols:
47     return std::make_unique<DebugUnparseWithSymbolsAction>();
48     break;
49   case DebugDumpSymbols:
50     return std::make_unique<DebugDumpSymbolsAction>();
51     break;
52   case DebugDumpParseTree:
53     return std::make_unique<DebugDumpParseTreeAction>();
54     break;
55   case DebugDumpParseTreeNoSema:
56     return std::make_unique<DebugDumpParseTreeNoSemaAction>();
57     break;
58   case DebugDumpProvenance:
59     return std::make_unique<DebugDumpProvenanceAction>();
60     break;
61   case DebugDumpParsingLog:
62     return std::make_unique<DebugDumpParsingLogAction>();
63     break;
64   case DebugMeasureParseTree:
65     return std::make_unique<DebugMeasureParseTreeAction>();
66     break;
67   case DebugPreFIRTree:
68     return std::make_unique<DebugPreFIRTreeAction>();
69     break;
70   case GetDefinition:
71     return std::make_unique<GetDefinitionAction>();
72     break;
73   case GetSymbolsSources:
74     return std::make_unique<GetSymbolsSourcesAction>();
75     break;
76   case InitOnly:
77     return std::make_unique<InitOnlyAction>();
78     break;
79   default:
80     break;
81     // TODO:
82     // case RunPreprocessor:
83     // case ParserSyntaxOnly:
84     // case EmitLLVM:
85     // case EmitLLVMOnly:
86     // case EmitCodeGenOnly:
87     // (...)
88   }
89   return 0;
90 }
91 
92 std::unique_ptr<FrontendAction> CreateFrontendAction(CompilerInstance &ci) {
93   // Create the underlying action.
94   std::unique_ptr<FrontendAction> act = CreateFrontendBaseAction(ci);
95   if (!act)
96     return nullptr;
97 
98   return act;
99 }
100 bool ExecuteCompilerInvocation(CompilerInstance *flang) {
101   // Honor -help.
102   if (flang->frontendOpts().showHelp_) {
103     clang::driver::getDriverOptTable().PrintHelp(llvm::outs(),
104         "flang-new -fc1 [options] file...", "LLVM 'Flang' Compiler",
105         /*Include=*/clang::driver::options::FC1Option,
106         /*Exclude=*/llvm::opt::DriverFlag::HelpHidden,
107         /*ShowAllAliases=*/false);
108     return true;
109   }
110 
111   // Honor -version.
112   if (flang->frontendOpts().showVersion_) {
113     llvm::cl::PrintVersionMessage();
114     return true;
115   }
116 
117   // Create and execute the frontend action.
118   std::unique_ptr<FrontendAction> act(CreateFrontendAction(*flang));
119   if (!act)
120     return false;
121 
122   bool success = flang->ExecuteAction(*act);
123   return success;
124 }
125 
126 } // namespace Fortran::frontend
127