Subversion Repositories Kolibri OS

Rev

Rev 2099 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. #include "tp.h"
  2.  
  3. extern tp_obj kolibri_open(TP);
  4. extern tp_obj kolibri_mainwindow(TP);
  5. extern tp_obj kolibri_debug_print(TP);
  6. extern tp_obj kolibri_socket_module(TP);
  7. extern tp_obj tp_dict(TP);
  8. extern tp_obj tp_fnc(TP,tp_obj v(TP));
  9.  
  10. void kolibri_init(TP)
  11. {
  12.     tp_obj kolibri_mod = tp_dict(tp);
  13.     tp_obj socket_mod = kolibri_socket_module(tp);
  14.  
  15.     tp_set(tp, kolibri_mod, tp_string("open"), tp_fnc(tp, kolibri_open));
  16.     tp_set(tp, kolibri_mod, tp_string("window"), tp_fnc(tp, kolibri_mainwindow));
  17.     /* debug */
  18.     tp_set(tp, kolibri_mod, tp_string("debug_print"), tp_fnc(tp, kolibri_debug_print));
  19.     /* socket is a separated module. */
  20.     tp_set(tp, kolibri_mod, tp_string("socket"), socket_mod);
  21.  
  22.     /* Bind module attributes. */
  23.     tp_set(tp, kolibri_mod, tp_string("__doc__"),
  24.         tp_string("KolibriOS system specific functions."));
  25.     tp_set(tp, kolibri_mod, tp_string("__name__"), tp_string("kolibri"));
  26.     tp_set(tp, kolibri_mod, tp_string("__file__"), tp_string(__FILE__));
  27.     /* Bind to tiny modules[] */
  28.     tp_set(tp, tp->modules, tp_string("kolibri"), kolibri_mod);
  29. }
  30.