Implemented basic file I/O.

git-svn-id: svn://kolibrios.org@2006 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
jaeger
2011-07-18 21:43:55 +00:00
parent 9437f5ae47
commit e971a25718
3 changed files with 286 additions and 3 deletions

View File

@@ -0,0 +1,20 @@
#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);
}