Subversion Repositories Kolibri OS

Rev

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 tp_dict(TP);
  5. extern tp_obj tp_fnc(TP,tp_obj v(TP));
  6.  
  7. void kolibri_init(TP)
  8. {
  9.     tp_obj kolibri_mod = tp_dict(tp);
  10.  
  11.     tp_set(tp, kolibri_mod, tp_string("open"), tp_fnc(tp, kolibri_open));
  12.  
  13.     /* Bind module attributes. */
  14.     tp_set(tp, kolibri_mod, tp_string("__doc__"),
  15.         tp_string("KolibriOS system specific functions."));
  16.     tp_set(tp, kolibri_mod, tp_string("__name__"), tp_string("kolibri"));
  17.     tp_set(tp, kolibri_mod, tp_string("__file__"), tp_string(__FILE__));
  18.     /* Bind to tiny modules[] */
  19.     tp_set(tp, tp->modules, tp_string("kolibri"), kolibri_mod);
  20. }
  21.