Cosmo/src/cbaselib.c
2020-10-28 00:16:30 -05:00

18 lines
476 B
C

#include "cbaselib.h"
#include "cvalue.h"
#include "cobj.h"
void cosmoB_loadlibrary(CState *state) {
cosmoV_register(state, "print", cosmoV_newObj(cosmoO_newCFunction(state, cosmoB_print)));
}
int cosmoB_print(CState *state, int nargs, CValue *args) {
for (int i = 0; i < nargs; i++) {
CObjString *str = cosmoV_toString(state, args[i]);
printf("%s", cosmoO_readCString(str));
}
printf("\n");
return 0; // print doesn't return any args
}