Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
8535 superturbo 1
#include "tinypy.h"
2
#include "syscalls.c"
3
#include "fs.c"
4
 
5
#define EXPORT(MOD_NAME, F_NAME, F_POINT) tp_set(tp, MOD_NAME , tp_string(F_NAME), tp_fnc(tp, F_POINT))
6
 
7
extern tp_obj tp_dict(TP);
8
extern tp_obj tp_fnc(TP,tp_obj v(TP));
9
 
10
 
11
void ksys_init(TP)
12
{
13
    tp_obj ksys_mod = tp_dict(tp);
14
    // syscalls
15
    EXPORT(ksys_mod, "debug_print"  , _debug_print);
16
    EXPORT(ksys_mod, "start_draw"   , _start_draw);
17
    EXPORT(ksys_mod, "end_draw"     , _end_draw);
18
    EXPORT(ksys_mod, "create_window", _create_window);
19
    EXPORT(ksys_mod, "create_button", _create_button);
20
    EXPORT(ksys_mod, "draw_text"    , _draw_text);
21
    EXPORT(ksys_mod, "get_event"    , _get_event);
22
    EXPORT(ksys_mod, "get_button"    ,_get_button);
23
    EXPORT(ksys_mod, "get_sys_colors",_get_sys_colors);
24
    // filesystem
25
    EXPORT(ksys_mod, "open", kolibri_open);
26
 
27
    tp_set(tp, ksys_mod, tp_string("__doc__"), tp_string("KolibriOS system specific functions."));
28
    tp_set(tp, ksys_mod, tp_string("__name__"), tp_string("kolibri"));
29
    tp_set(tp, ksys_mod, tp_string("__file__"), tp_string(__FILE__));
30
 
31
    tp_set(tp, tp->modules, tp_string("ksys"), ksys_mod);
32
}