forked from KolibriOS/kolibrios
21 lines
644 B
C
21 lines
644 B
C
|
#include "tp.h"
|
||
|
|
|
||
|
|
extern tp_obj kolibri_open(TP);
|
||
|
|
extern tp_obj tp_dict(TP);
|
||
|
|
extern tp_obj tp_fnc(TP,tp_obj v(TP));
|
||
|
|
|
||
|
|
void kolibri_init(TP)
|
||
|
|
{
|
||
|
|
tp_obj kolibri_mod = tp_dict(tp);
|
||
|
|
|
||
|
|
tp_set(tp, kolibri_mod, tp_string("open"), tp_fnc(tp, kolibri_open));
|
||
|
|
|
||
|
|
/* Bind module attributes. */
|
||
|
|
tp_set(tp, kolibri_mod, tp_string("__doc__"),
|
||
|
|
tp_string("KolibriOS system specific functions."));
|
||
|
|
tp_set(tp, kolibri_mod, tp_string("__name__"), tp_string("kolibri"));
|
||
|
|
tp_set(tp, kolibri_mod, tp_string("__file__"), tp_string(__FILE__));
|
||
|
|
/* Bind to tiny modules[] */
|
||
|
|
tp_set(tp, tp->modules, tp_string("kolibri"), kolibri_mod);
|
||
|
|
}
|