/* _zuse_save_rock(): save engine as noun. */ static void _zuse_save_rock(struct zuse_state* fod_f, const c3_c* src_c) { u2_wire wir_r = fod_f->wir_r; u2_noun fat = u2_bn_cell(wir_r, fod_f->pyt, fod_f->kol); u2_ux_write_deep(wir_r, fat, src_c, "noun"); }
/* u2_bn_quil(): ** ** Produce the quintuple [a b c d]. */ u2_noun u2_bn_quil(u2_ray wir_r, u2_noun a, u2_noun b, u2_noun c, u2_noun d, u2_noun e) { return u2_bn_cell(wir_r, a, u2_bn_qual(wir_r, b, c, d, e)); }
/* _unix_scan_cell(): scan cell or tuple. */ static u2_noun _unix_scan_cell(u2_wire wir_r, FILE* fil) { u2_noun hed = _unix_scan(wir_r, fil); c3_i c = fgetc(fil); if ( c == ' ' ) { u2_noun tal = _unix_scan_cell(wir_r, fil); return u2_bn_cell(wir_r, hed, tal); } else { c3_assert(c == ']'); return hed; } }
/* u2_cn_cell(): produce the cell `[a b]`. */ u2_noun u2_cn_cell(u2_noun a, u2_noun b) { return u2_bn_cell(u2_Wire, a, b); }