static int ktap_lib_ptable(ktap_state *ks) { ktap_ptab *ph; ph = kp_ptab_new(ks); set_ptable(ks->top, ph); incr_top(ks); return 1; }
static int kplib_ptable(ktap_state *ks) { ktap_ptab *ph; int narr = 0, nrec = 0; if (kp_arg_nr(ks) >= 1) { kp_arg_check(ks, 1, KTAP_TYPE_NUMBER); narr = nvalue(kp_arg(ks, 1)); } if (kp_arg_nr(ks) >= 2) { kp_arg_check(ks, 2, KTAP_TYPE_NUMBER); nrec = nvalue(kp_arg(ks, 2)); } ph = kp_ptab_new(ks, narr, nrec); set_ptable(ks->top, ph); incr_top(ks); return 1; }