source/kpl.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20


#include "kpl.h"

#ifdef KPL_MAIN
int32_t main(const int32_t argc, const char *argv[]) {
    int32_t exit_status = KPL_EXIT_CODE_SUCCESS;
    kpl_env env;
    kpl_config_init(&env.config);
    if ((exit_status = kpl_config_parse_args(&env.config, argc, argv)))
        return exit_status;
    KPL_PRINT_TODO("INIT KPL");
    if (env.config.flags & KPL_CONFIG_FLAG_EVAL)
        KPL_PRINT_TODO("RUN EVAL");
    else if (env.config.flags & KPL_CONFIG_FLAG_REPL)
        KPL_PRINT_TODO("RUN REPL");
    else
        KPL_PRINT_TODO("RUN MODULE");
    return exit_status;
}
#endif