Scaffold compiler

Author: makekryl

bin/CMakeLists.txt

@@ -5,6 +5,7 @@ add_subdirectory(astdump)
 add_subdirectory(fmt)
 add_subdirectory(tidy)
 add_subdirectory(lsp)
+add_subdirectory(compiler)
 
 ###
 

bin/compiler/CMakeLists.txt

@@ -0,0 +1,14 @@
+add_executable(vanadiumc
+  src/Vanadiumc.cpp
+)
+
+target_include_directories(vanadiumc PRIVATE
+  include
+)
+
+target_link_libraries(vanadiumc PRIVATE
+  vanadium_bin_boostrap
+  vanadium_core
+  vanadium_compiler
+  argparse::argparse
+)

bin/compiler/src/Vanadiumc.cpp

@@ -0,0 +1,49 @@
+#include <fstream>
+
+#include <argparse/argparse.hpp>
+
+#include <vanadium/bin/Bootstrap.h>
+#include <vanadium/compiler/Compiler.h>
+#include <vanadium/core/Program.h>
+#include <vanadium/version.h>
+
+namespace {
+int main(int argc, char* argv[]) {
+  argparse::ArgumentParser ap("vanadiumc", vanadium::bin::kVersion);
+  ap.add_description("TTCN-3 Compiler");
+  //
+  std::string filepath;
+  ap.add_argument("path").store_into(filepath).help("file path");
+
+  //
+  PARSE_CLI_ARGS_OR_EXIT(ap, argc, argv, 1);
+  //
+
+  vanadium::core::Program program;
+  program.Commit([&](auto& modify) {
+    const auto read_file = [](const std::string& path, std::string& buf) {
+      if (auto f = std::ifstream(path)) {
+        std::stringstream ss;
+        ss << f.rdbuf();
+        buf = ss.str();
+      } else {
+        assert(false);
+      }
+    };
+    modify.update(filepath, read_file);
+  });
+
+  const auto* sf = program.GetFile(filepath);
+  assert(sf != nullptr);
+  assert(sf->ast.errors.empty());
+  assert(sf->semantic_errors.empty());
+  assert(sf->type_errors.empty());
+  assert(sf->module.has_value());
+
+  vanadium::compiler::CompileIR(*sf);
+
+  return 0;
+}
+}  // namespace
+
+DEFINE_VANADIUM_ENTRYPOINT(main);

src/CMakeLists.txt

@@ -7,3 +7,5 @@ add_subdirectory(tooling)
 add_subdirectory(format)
 add_subdirectory(lint)
 add_subdirectory(ls)
+
+add_subdirectory(compiler)

src/ast/src/Parser.cpp

@@ -1807,10 +1807,11 @@ nodes::SelectStmt* Parser::ParseSelect() {
 }
 
 nodes::CaseClause* Parser::ParseCaseClause() {
+  // TODO: multiple "case else" should be a syntax error
   return NewNode<nodes::CaseClause>([&](auto& c) {
     Expect(TokenKind::CASE);
     if (tok_ == TokenKind::ELSE) {
-      Consume();
+      Consume();  // TODO: add a special mark?
     } else {
       Expect(TokenKind::LPAREN);
       c.cond = ParseExprList();

src/compiler/CMakeLists.txt

@@ -0,0 +1,2 @@
+add_subdirectory(backend)
+add_subdirectory(runtime)

src/compiler/backend/CMakeLists.txt

@@ -0,0 +1,43 @@
+find_package(LLVM REQUIRED CONFIG)
+
+message(STATUS "Found LLVM ${LLVM_PACKAGE_VERSION}")
+message(STATUS "Using LLVMConfig.cmake in: ${LLVM_DIR}")
+
+add_library(vanadium_compiler STATIC
+  src/Compiler.cpp
+  src/RuntimeBindings.cpp
+  src/ModuleRegistrar.cpp
+)
+
+separate_arguments(LLVM_DEFINITIONS_LIST NATIVE_COMMAND ${LLVM_DEFINITIONS})
+target_compile_definitions(vanadium_compiler PRIVATE
+  ${LLVM_DEFINITIONS_LIST}
+)
+
+target_include_directories(vanadium_compiler PUBLIC
+  interface
+)
+target_include_directories(vanadium_compiler PRIVATE
+  include
+  ${LLVM_INCLUDE_DIRS}
+)
+
+llvm_map_components_to_libnames(llvm_libs
+  support
+  core
+  irreader
+  TransformUtils
+)
+target_link_libraries(vanadium_compiler PRIVATE
+  vanadium_lib_common
+  vanadium_core
+
+  ${llvm_libs}
+  magic_enum
+)
+
+add_gtest_executable(vanadium_compiler)
+
+
+  target_compile_options(vanadium_compiler PRIVATE "-fsanitize=${name}")
+  target_link_options(vanadium_compiler PRIVATE "-fsanitize=${name}")

src/compiler/backend/include/vanadium/compiler/ModuleRegistrar.h

@@ -0,0 +1,17 @@
+#pragma once
+
+#include <llvm/IR/IRBuilder.h>
+#include <llvm/IR/LLVMContext.h>
+#include <llvm/IR/Module.h>
+
+namespace vanadium {
+
+namespace core {
+struct SourceFile;
+}
+
+namespace compiler {
+void GenerateModuleRegistrationCode(const core::SourceFile&, llvm::LLVMContext&, llvm::IRBuilder<>&, llvm::Module&);
+}
+
+}  // namespace vanadium

src/compiler/backend/include/vanadium/compiler/RuntimeBindings.h

@@ -0,0 +1,68 @@
+#pragma once
+
+#include <cstdint>
+#include <string_view>
+
+#include <llvm-19/llvm/IR/Value.h>
+#include <llvm/IR/DerivedTypes.h>
+#include <llvm/IR/Function.h>
+#include <llvm/IR/LLVMContext.h>
+#include <llvm/IR/Module.h>
+
+namespace vanadium::compiler {
+class RuntimeBindings {
+ public:
+  RuntimeBindings(llvm::LLVMContext&, llvm::Module&);
+  //
+
+  llvm::Function* panic;
+
+  llvm::FunctionType* generic_getter_fn_ty;
+
+  llvm::StructType* typeinfo_ty;
+  //
+  llvm::FunctionType* type_ctor_fn_ty;
+  llvm::FunctionType* type_dtor_fn_ty;
+
+  llvm::Function* type_alloc_f;
+  llvm::Function* type_free_f;
+
+  llvm::StructType* generic_val_ty;
+
+  llvm::Function* log_f;
+
+  llvm::StructType* optional_ty;
+  //
+  llvm::Function* optional_get_f;
+  llvm::Function* optional_set_f;
+  llvm::Function* optional_ispresent_f;
+  llvm::Function* optional_dtor_f;
+
+  llvm::StructType* int_ty;
+  //
+  llvm::Value* int_undef;
+  [[nodiscard]] llvm::Value* GetInt(std::int64_t) const;
+  //
+  llvm::Function* int_eq_f;
+  llvm::Function* int_ne_f;
+  //
+  llvm::Function* int_lt_f;
+  llvm::Function* int_le_f;
+  llvm::Function* int_gt_f;
+  llvm::Function* int_ge_f;
+  //
+  llvm::Function* int_add_f;
+  llvm::Function* int_sub_f;
+  llvm::Function* int_mul_f;
+  llvm::Function* int_div_f;
+
+  llvm::StructType* charstring_ty;
+  //
+  llvm::Value* charstring_undef;
+  [[nodiscard]] llvm::Value* GetCharstring(std::string_view) const;
+
+ private:
+  llvm::LLVMContext& ctx_;
+  llvm::Module& mod_;
+};
+}  // namespace vanadium::compiler

src/compiler/backend/interface/vanadium/compiler/Compiler.h

@@ -0,0 +1,9 @@
+#pragma once
+
+#include <vanadium/core/Program.h>
+
+namespace vanadium::compiler {
+
+void CompileIR(const core::SourceFile&);
+
+}