void yarg_kw_init(char **knames, long *kglobs, int *kiargs) { long n = kglobs[0]; if (!n) { long *globs = kglobs+1; char *name; for (name=*knames++ ; name ; n++, name=*knames++) *(globs++) = yget_global(name, 0); kglobs[0] = n; } while (n-- > 0) *(kiargs++) = -1; }
static void define_global_int(const char* name, int value) { ypush_int(value); yput_global(yget_global(name, 0), 0); yarg_drop(1); }