DHBW
/
gemstone
mirror of https://github.com/Servostar/gemstone.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

removed llvm test

This commit is contained in:
Sven Vogel 2024-05-27 01:24:35 +02:00
parent f16e2cfbaa
commit fd1cca119f
8 changed files with 1 additions and 392 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/CMakeLists.txt
View File

@ -10,4 +10,3 @@ add_subdirectory(logging)
add_subdirectory(input_file) add_subdirectory(input_file)
add_subdirectory(ast) add_subdirectory(ast)
add_subdirectory(glib) add_subdirectory(glib)
add_subdirectory(llvm)

6
tests/llvm/CMakeLists.txt
View File

@ -1,6 +0,0 @@
include(CTest)
# Provide test to run here or include another CMakeLists.txt
add_subdirectory(typedef)
add_subdirectory(params)

51
tests/llvm/params/CMakeLists.txt
View File

@ -1,51 +0,0 @@
include(CTest)
# ------------------------------------------------ #
# Setup Glib 2.0 #
# ------------------------------------------------ #
find_package(PkgConfig REQUIRED)
pkg_search_module(GLIB REQUIRED IMPORTED_TARGET glib-2.0)
# ------------------------------------------------ #
# LLVM backend #
# ------------------------------------------------ #
# Fetch LLVM link configuration
execute_process(COMMAND llvm-config --libs all
OUTPUT_VARIABLE LLVM_LIBS)
# Strip whitespace from output
string(STRIP "${LLVM_LIBS}" LLVM_LIBS)
# Link all targets to LLVM
link_libraries(${LLVM_LIBS})
# ------------------------------------------------ #
# Source #
# ------------------------------------------------ #
include_directories(${PROJECT_SOURCE_DIR}/src)
include_directories(PRIVATE ${GLIB_INCLUDE_DIRS})
file(GLOB_RECURSE SOURCE_FILES ${PROJECT_SOURCE_DIR}/src/*.c)
list(REMOVE_ITEM SOURCE_FILES ${PROJECT_SOURCE_DIR}/src/main.c)
set(LEX_GENERATED_SOURCE_FILE ${PROJECT_SOURCE_DIR}/src/lex/lexer.ll.c)
set(YACC_GENERATED_SOURCE_FILE ${PROJECT_SOURCE_DIR}/src/yacc/parser.tab.c)
# ------------------------------------------------------- #
# CTEST 1
# test parameter declarations
add_executable(params
${SOURCE_FILES}
${LEX_GENERATED_SOURCE_FILE}
${YACC_GENERATED_SOURCE_FILE}
params.c)
set_target_properties(params
PROPERTIES
OUTPUT_NAME "params"
RUNTIME_OUTPUT_DIRECTORY ${GEMSTONE_BINARY_DIR}/tests/llvm)
target_link_libraries(params PkgConfig::GLIB)
add_test(NAME params
WORKING_DIRECTORY ${PROJECT_SOURCE_DIR}/tests/llvm/params
COMMAND ${GEMSTONE_BINARY_DIR}/tests/llvm/params test.txt)

114
tests/llvm/params/params.c
View File

@ -1,114 +0,0 @@
#include <llvm/function/function.h>
#include <llvm/types/composite-types.h>
#include <llvm/types/structs.h>
#include <llvm/types/scope.h>
#include <ast/ast.h>
#include <stdlib.h>
#include <sys/log.h>
#include <yacc/parser.tab.h>
#include <sys/col.h>
#include <lex/util.h>
#include <llvm/backend.h>
#include <codegen/backend.h>
#include <llvm/types/type.h>
#include <assert.h>
extern FILE *yyin;
AST_NODE_PTR root;
/**
* @brief Log a debug message to inform about beginning exit procedures
*
*/
void notify_exit(void) { DEBUG("Exiting gemstone..."); }
/**
* @brief Closes File after compiling.
*
*/
void close_file(void) {
if (NULL != yyin) {
fclose(yyin);
}
}
/**
* @brief Run compiler setup here
*
*/
void setup(void) {
// setup preample
log_init();
DEBUG("starting gemstone...");
#if LOG_LEVEL <= LOG_LEVEL_DEBUG
atexit(&notify_exit);
#endif
// actual setup
AST_init();
col_init();
lex_init();
DEBUG("finished starting up gemstone...");
}
void run_backend_codegen() {
llvm_backend_init();
BackendError err;
err = init_backend();
if (err.kind != Success) {
return;
}
void* code = NULL;
err = generate_code(root, &code);
if (err.kind != Success) {
return;
}
err = deinit_backend();
}
int main(int argc, char *argv[]) {
setup();
atexit(close_file);
// Check for file input as argument
if (2 != argc) {
INFO("Usage: %s <filename>\n", argv[0]);
PANIC("No File could be found");
}
// filename as first argument
char *filename = argv[1];
FILE *file = fopen(filename, "r");
if (NULL == file) {
PANIC("File couldn't be opened!");
}
yyin = file;
root = AST_new_node(AST_Module, NULL);
yyparse();
TypeScopeRef scope = type_scope_new();
AST_NODE_PTR fun = AST_get_node(root, 0);
GemstoneFunRef function = fun_from_ast(scope, fun);
type_scope_add_fun(scope, function);
assert(function->params->len == 3);
type_scope_delete(scope);
AST_delete_node(root);
return 0;
}

4
tests/llvm/params/test.txt
View File

@ -1,4 +0,0 @@
fun a(in out int: a, in float: b)(out float: c) {
a = 0
}

51
tests/llvm/typedef/CMakeLists.txt
View File

@ -1,51 +0,0 @@
include(CTest)
# ------------------------------------------------ #
# Setup Glib 2.0 #
# ------------------------------------------------ #
find_package(PkgConfig REQUIRED)
pkg_search_module(GLIB REQUIRED IMPORTED_TARGET glib-2.0)
# ------------------------------------------------ #
# LLVM backend #
# ------------------------------------------------ #
# Fetch LLVM link configuration
execute_process(COMMAND llvm-config --libs all
OUTPUT_VARIABLE LLVM_LIBS)
# Strip whitespace from output
string(STRIP "${LLVM_LIBS}" LLVM_LIBS)
# Link all targets to LLVM
link_libraries(${LLVM_LIBS})
# ------------------------------------------------ #
# Source #
# ------------------------------------------------ #
include_directories(${PROJECT_SOURCE_DIR}/src)
include_directories(PRIVATE ${GLIB_INCLUDE_DIRS})
file(GLOB_RECURSE SOURCE_FILES ${PROJECT_SOURCE_DIR}/src/*.c)
list(REMOVE_ITEM SOURCE_FILES ${PROJECT_SOURCE_DIR}/src/main.c)
set(LEX_GENERATED_SOURCE_FILE ${PROJECT_SOURCE_DIR}/src/lex/lexer.ll.c)
set(YACC_GENERATED_SOURCE_FILE ${PROJECT_SOURCE_DIR}/src/yacc/parser.tab.c)
# ------------------------------------------------------- #
# CTEST 1
# test typedef
add_executable(typedef
${SOURCE_FILES}
${LEX_GENERATED_SOURCE_FILE}
${YACC_GENERATED_SOURCE_FILE}
typedef.c)
set_target_properties(typedef
PROPERTIES
OUTPUT_NAME "typedef"
RUNTIME_OUTPUT_DIRECTORY ${GEMSTONE_BINARY_DIR}/tests/llvm)
target_link_libraries(typedef PkgConfig::GLIB)
add_test(NAME typedef
WORKING_DIRECTORY ${PROJECT_SOURCE_DIR}/tests/llvm/typedef
COMMAND ${GEMSTONE_BINARY_DIR}/tests/llvm/typedef test.txt)

21
tests/llvm/typedef/test.txt
View File

@ -1,21 +0,0 @@
type unsigned half half int: u8
type unsigned half int: u16
type unsigned int: u32
type unsigned double int: u64
type unsigned double double int: u128
type unsigned double double double int: u256
type signed half half int: i8
type signed half int: i16
type signed int: i32
type signed double int: i64
type signed double double int: i128
type signed double double double int: i256
type signed double u8: short_int
type signed short float: f16
type signed float: f32
type signed long float: f64
type signed long double float: f128

143
tests/llvm/typedef/typedef.c
View File

@ -1,143 +0,0 @@
#include "llvm/types/composite-types.h"
#include <llvm/types/structs.h>
#include <llvm/types/scope.h>
#include <ast/ast.h>
#include <stdlib.h>
#include <sys/log.h>
#include <yacc/parser.tab.h>
#include <sys/col.h>
#include <lex/util.h>
#include <llvm/backend.h>
#include <codegen/backend.h>
#include <llvm/types/type.h>
#include <assert.h>
extern FILE *yyin;
AST_NODE_PTR root;
/**
* @brief Log a debug message to inform about beginning exit procedures
*
*/
void notify_exit(void) { DEBUG("Exiting gemstone..."); }
/**
* @brief Closes File after compiling.
*
*/
void close_file(void) {
if (NULL != yyin) {
fclose(yyin);
}
}
/**
* @brief Run compiler setup here
*
*/
void setup(void) {
// setup preample
log_init();
DEBUG("starting gemstone...");
#if LOG_LEVEL <= LOG_LEVEL_DEBUG
atexit(&notify_exit);
#endif
// actual setup
AST_init();
col_init();
lex_init();
DEBUG("finished starting up gemstone...");
}
void run_backend_codegen() {
llvm_backend_init();
BackendError err;
err = init_backend();
if (err.kind != Success) {
return;
}
void* code = NULL;
err = generate_code(root, &code);
if (err.kind != Success) {
return;
}
err = deinit_backend();
}
void check_type(const TypeScopeRef scope, const char* name, enum Sign_t sign, enum Scale_t scale, enum Primitive_t prim) {
GemstoneTypedefRef type = type_scope_get_type_from_name(scope, name);
INFO("Expected: %d %d %d Given: %d %d %d", sign, scale, prim, type->type->specs.composite.sign, type->type->specs.composite.scale, type->type->specs.composite.prim);
assert(type->type->kind == TypeComposite);
assert(type->type->specs.composite.prim == prim);
assert(type->type->specs.composite.scale == scale);
assert(type->type->specs.composite.sign == sign);
}
int main(int argc, char *argv[]) {
setup();
atexit(close_file);
// Check for file input as argument
if (2 != argc) {
INFO("Usage: %s <filename>\n", argv[0]);
PANIC("No File could be found");
}
// filename as first argument
char *filename = argv[1];
FILE *file = fopen(filename, "r");
if (NULL == file) {
PANIC("File couldn't be opened!");
}
yyin = file;
root = AST_new_node(AST_Module, NULL);
yyparse();
TypeScopeRef scope = type_scope_new();
for (size_t i = 0; i < root->child_count; i++) {
GemstoneTypedefRef typdef = get_type_def_from_ast(scope, root->children[i]);
type_scope_append_type(scope, typdef);
}
check_type(scope, "u8", Unsigned, ATOM, Int);
check_type(scope, "u16", Unsigned, HALF, Int);
check_type(scope, "u32", Unsigned, SINGLE, Int);
check_type(scope, "u64", Unsigned, DOUBLE, Int);
check_type(scope, "u128", Unsigned, QUAD, Int);
check_type(scope, "u256", Unsigned, OCTO, Int);
check_type(scope, "i8", Signed, ATOM, Int);
check_type(scope, "i16", Signed, HALF, Int);
check_type(scope, "i32", Signed, SINGLE, Int);
check_type(scope, "i64", Signed, DOUBLE, Int);
check_type(scope, "i128", Signed, QUAD, Int);
check_type(scope, "i256", Signed, OCTO, Int);
check_type(scope, "short_int", Signed, HALF, Int);
check_type(scope, "f16", Signed, HALF, Float);
check_type(scope, "f32", Signed, SINGLE, Float);
check_type(scope, "f64", Signed, DOUBLE, Float);
check_type(scope, "f128", Signed, QUAD, Float);
type_scope_delete(scope);
AST_delete_node(root);
return 0;
}