FrontendActions.h

//===- FrontendActions.h -----------------------------------------*- C++-*-===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
//
// Coding style: https://mlir.llvm.org/getting_started/DeveloperGuide/
//
//===----------------------------------------------------------------------===//
 
#ifndef FORTRAN_FRONTEND_FRONTENDACTIONS_H
#define FORTRAN_FRONTEND_FRONTENDACTIONS_H
 
#include "flang/Frontend/FrontendAction.h"
#include "flang/Frontend/ParserActions.h"
 
#include "mlir/IR/BuiltinOps.h"
#include "mlir/IR/OwningOpRef.h"
#include "llvm/ADT/StringRef.h"
#include "llvm/IR/Module.h"
#include <memory>
 
namespace Fortran::frontend {
 
//===----------------------------------------------------------------------===//
// Custom Consumer Actions
//===----------------------------------------------------------------------===//
 
class InputOutputTestAction : public FrontendAction {
  void executeAction() override;
};
 
class InitOnlyAction : public FrontendAction {
  void executeAction() override;
};
 
//===----------------------------------------------------------------------===//
// Prescan Actions
//===----------------------------------------------------------------------===//
class PrescanAction : public FrontendAction {
  void executeAction() override = 0;
  bool beginSourceFileAction() override;
};
 
class PrintPreprocessedAction : public PrescanAction {
  void executeAction() override;
};
 
class DebugDumpProvenanceAction : public PrescanAction {
  void executeAction() override;
};
 
class DebugDumpParsingLogAction : public PrescanAction {
  void executeAction() override;
};
 
class DebugMeasureParseTreeAction : public PrescanAction {
  void executeAction() override;
};
 
//===----------------------------------------------------------------------===//
// PrescanAndParse Actions
//===----------------------------------------------------------------------===//
class PrescanAndParseAction : public FrontendAction {
  void executeAction() override = 0;
  bool beginSourceFileAction() override;
};
 
class DebugUnparseNoSemaAction : public PrescanAndParseAction {
  void executeAction() override;
};
 
class DebugDumpParseTreeNoSemaAction : public PrescanAndParseAction {
  void executeAction() override;
};
 
//===----------------------------------------------------------------------===//
// PrescanAndSema Actions
//
// These actions will parse the input, run the semantic checks and execute
// their actions provided that no parsing or semantic errors were found.
//===----------------------------------------------------------------------===//
class PrescanAndSemaAction : public FrontendAction {
 
  void executeAction() override = 0;
  bool beginSourceFileAction() override;
};
 
class DebugUnparseWithSymbolsAction : public PrescanAndSemaAction {
  void executeAction() override;
};
 
class DebugUnparseWithModulesAction : public PrescanAndSemaAction {
  void executeAction() override;
};
 
class DebugUnparseAction : public PrescanAndSemaAction {
  void executeAction() override;
};
 
class DebugDumpSymbolsAction : public PrescanAndSemaAction {
  void executeAction() override;
};
 
class DebugDumpParseTreeAction : public PrescanAndSemaAction {
  void executeAction() override;
};
 
class DebugDumpPFTAction : public PrescanAndSemaAction {
  void executeAction() override;
};
 
class DebugPreFIRTreeAction : public PrescanAndSemaAction {
  void executeAction() override;
};
 
class GetDefinitionAction : public PrescanAndSemaAction {
  void executeAction() override;
};
 
class GetSymbolsSourcesAction : public PrescanAndSemaAction {
  void executeAction() override;
};
 
class ParseSyntaxOnlyAction : public PrescanAndSemaAction {
  void executeAction() override;
};
 
class PluginParseTreeAction : public PrescanAndSemaAction {
  void executeAction() override = 0;
 
public:
  Fortran::parser::Parsing &getParsing();
  std::unique_ptr<llvm::raw_pwrite_stream>
  createOutputFile(llvm::StringRef extension);
};
 
//===----------------------------------------------------------------------===//
// PrescanAndSemaDebug Actions
//
// These actions will parse the input, run the semantic checks and execute
// their actions _regardless of_ whether any semantic errors have been found.
// This can be useful when adding new languge feature and when you wish to
// investigate compiler output (e.g. the parse tree) despite any semantic
// errors.
//
// NOTE: Use with care and for development only!
//===----------------------------------------------------------------------===//
class PrescanAndSemaDebugAction : public FrontendAction {
 
  void executeAction() override = 0;
  bool beginSourceFileAction() override;
};
 
class DebugDumpAllAction : public PrescanAndSemaDebugAction {
  void executeAction() override;
};
 
//===----------------------------------------------------------------------===//
// CodeGen Actions
//===----------------------------------------------------------------------===//
enum class BackendActionTy {
  Backend_EmitAssembly, 
  Backend_EmitObj,      
  Backend_EmitBC,       
  Backend_EmitLL,       
  Backend_EmitFIR,      
  Backend_EmitHLFIR,    
};

class CodeGenAction : public FrontendAction {
 
  void executeAction() override;
  bool beginSourceFileAction() override;
  void runOptimizationPipeline(llvm::raw_pwrite_stream &os);
 
protected:
  CodeGenAction(BackendActionTy act) : action{act} {};
  std::unique_ptr<mlir::MLIRContext> mlirCtx;
  mlir::OwningOpRef<mlir::ModuleOp> mlirModule;

  std::unique_ptr<llvm::LLVMContext> llvmCtx;
  std::unique_ptr<llvm::Module> llvmModule;

  void embedOffloadObjects();

  void linkBuiltinBCLibs();

  void lowerHLFIRToFIR();

  void generateLLVMIR();
 
  BackendActionTy action;

public:
  ~CodeGenAction() override;
};
 
class EmitFIRAction : public CodeGenAction {
public:
  EmitFIRAction() : CodeGenAction(BackendActionTy::Backend_EmitFIR) {}
};
 
class EmitHLFIRAction : public CodeGenAction {
public:
  EmitHLFIRAction() : CodeGenAction(BackendActionTy::Backend_EmitHLFIR) {}
};
 
class EmitLLVMAction : public CodeGenAction {
public:
  EmitLLVMAction() : CodeGenAction(BackendActionTy::Backend_EmitLL) {}
};
 
class EmitLLVMBitcodeAction : public CodeGenAction {
public:
  EmitLLVMBitcodeAction() : CodeGenAction(BackendActionTy::Backend_EmitBC) {}
};
 
class EmitObjAction : public CodeGenAction {
public:
  EmitObjAction() : CodeGenAction(BackendActionTy::Backend_EmitObj) {}
};
 
class EmitAssemblyAction : public CodeGenAction {
public:
  EmitAssemblyAction() : CodeGenAction(BackendActionTy::Backend_EmitAssembly) {}
};
 
} // namespace Fortran::frontend
 
#endif // FORTRAN_FRONTEND_FRONTENDACTIONS_H