65 lines
2.4 KiB
C
65 lines
2.4 KiB
C
// Lean compiler output
|
|
// Module: Init
|
|
// Imports: Init.Core Init.Control Init.Data.Basic Init.WF Init.Data Init.System Init.Util Init.Fix Init.LeanInit Init.ShareCommon
|
|
#include <lean/runtime/lean.h>
|
|
#if defined(__clang__)
|
|
#pragma clang diagnostic ignored "-Wunused-parameter"
|
|
#pragma clang diagnostic ignored "-Wunused-label"
|
|
#elif defined(__GNUC__) && !defined(__CLANG__)
|
|
#pragma GCC diagnostic ignored "-Wunused-parameter"
|
|
#pragma GCC diagnostic ignored "-Wunused-label"
|
|
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
|
|
#endif
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
lean_object* initialize_Init_Core(lean_object*);
|
|
lean_object* initialize_Init_Control(lean_object*);
|
|
lean_object* initialize_Init_Data_Basic(lean_object*);
|
|
lean_object* initialize_Init_WF(lean_object*);
|
|
lean_object* initialize_Init_Data(lean_object*);
|
|
lean_object* initialize_Init_System(lean_object*);
|
|
lean_object* initialize_Init_Util(lean_object*);
|
|
lean_object* initialize_Init_Fix(lean_object*);
|
|
lean_object* initialize_Init_LeanInit(lean_object*);
|
|
lean_object* initialize_Init_ShareCommon(lean_object*);
|
|
static bool _G_initialized = false;
|
|
lean_object* initialize_Init(lean_object* w) {
|
|
lean_object * res;
|
|
if (_G_initialized) return lean_mk_io_result(lean_box(0));
|
|
_G_initialized = true;
|
|
res = initialize_Init_Core(lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Init_Control(lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Init_Data_Basic(lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Init_WF(lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Init_Data(lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Init_System(lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Init_Util(lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Init_Fix(lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Init_LeanInit(lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
res = initialize_Init_ShareCommon(lean_io_mk_world());
|
|
if (lean_io_result_is_error(res)) return res;
|
|
lean_dec_ref(res);
|
|
return lean_mk_io_result(lean_box(0));
|
|
}
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|