mirror of
https://github.com/urbit/shrub.git
synced 2025-01-07 05:26:56 +03:00
Update cq names.
This commit is contained in:
C. Guy Yarvin
parent
2d9af9f04e
commit
b4ce2f98f5
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt1, add)(u2_atom a, // retain
|
||||
u2_cqa_add(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
if ( u2_so(u2_co_is_cat(a)) && u2_so(u2_co_is_cat(b)) ) {
|
||||
@ -39,7 +39,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt1, add)(a, b);
|
||||
return u2_cqa_add(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,13 +8,13 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt1, inc)(u2_atom a) // retain
|
||||
u2_cqa_inc(u2_atom a) // retain
|
||||
{
|
||||
return u2_ci_vint(u2k(a));
|
||||
}
|
||||
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt1, dec)(u2_atom a) // retain
|
||||
u2_cqa_dec(u2_atom a) // retain
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return u2_cm_error("decrement-underflow");
|
||||
@ -43,7 +43,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt1, dec)(a);
|
||||
return u2_cqa_dec(a);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt1, div)(u2_atom a, // retain
|
||||
u2_cqa_div(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
if ( 0 == b ) {
|
||||
@ -42,7 +42,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt1, div)(a, b);
|
||||
return u2_cqa_div(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt1, gte)(
|
||||
u2_cqa_gte(
|
||||
u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
@ -42,7 +42,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt1, gte)(a, b);
|
||||
return u2_cqa_gte(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt1, gth)(u2_atom a, // retain
|
||||
u2_cqa_gth(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
if ( u2_co_is_cat(a) && u2_co_is_cat(b) ) {
|
||||
@ -40,7 +40,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt1, gth)(a, b);
|
||||
return u2_cqa_gth(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt1, lte)(u2_atom a, // retain
|
||||
u2_cqa_lte(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
if ( u2_co_is_cat(a) && u2_co_is_cat(b) ) {
|
||||
@ -40,7 +40,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt1, lte)(a, b);
|
||||
return u2_cqa_lte(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt1, lth)(u2_atom a, // retain
|
||||
u2_cqa_lth(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
if ( u2_co_is_cat(a) && u2_co_is_cat(b) ) {
|
||||
@ -40,7 +40,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt1, lth)(a, b);
|
||||
return u2_cqa_lth(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt1, mul)(u2_atom a, // retain
|
||||
u2_cqa_mul(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
if ( u2_so(u2_co_is_cat(a)) && u2_so(u2_co_is_cat(b)) ) {
|
||||
@ -39,7 +39,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt1, mul)(a, b);
|
||||
return u2_cqa_mul(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt1, sub)(u2_atom a, // retain
|
||||
u2_cqa_sub(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
if ( u2_so(u2_co_is_cat(a)) && u2_so(u2_co_is_cat(b)) ) {
|
||||
@ -47,7 +47,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt1, sub)(a, b);
|
||||
return u2_cqa_sub(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, bind)(
|
||||
u2_cqb_bind(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -27,7 +27,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, bind)(a, b);
|
||||
return u2_cqb_bind(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, clap)(u2_noun a, // retain
|
||||
u2_cqb_clap(u2_noun a, // retain
|
||||
u2_noun b, // retain
|
||||
u2_noun c) // retain
|
||||
{
|
||||
@ -32,7 +32,7 @@
|
||||
u2_cv_sam_7, &c, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, clap)(a, b, c);
|
||||
return u2_cqb_clap(a, b, c);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, drop)(u2_noun a) // retain
|
||||
u2_cqb_drop(u2_noun a) // retain
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return u2_nul;
|
||||
@ -25,7 +25,7 @@
|
||||
if ( u2_none == (a = u2_cr_at(u2_cv_sam, cor)) ) {
|
||||
return u2_none;
|
||||
} else {
|
||||
return j2_mbc(Pt2, drop)(a);
|
||||
return u2_cqb_drop(a);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, flop)(
|
||||
u2_cqb_flop(
|
||||
u2_noun a) // retain
|
||||
{
|
||||
u2_weak b = 0;
|
||||
@ -37,7 +37,7 @@
|
||||
if ( u2_none == (a = u2_cr_at(u2_cv_sam, cor)) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, flop)(a);
|
||||
return u2_cqb_flop(a);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, lent)(
|
||||
u2_cqb_lent(
|
||||
u2_noun a) // retain
|
||||
{
|
||||
u2_weak len = 0;
|
||||
@ -36,7 +36,7 @@
|
||||
if ( u2_none == (a = u2_cr_at(u2_cv_sam, cor)) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, lent)(a);
|
||||
return u2_cqb_lent(a);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, levy)(
|
||||
u2_cqb_levy(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -21,7 +21,7 @@
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else switch ( (loz = u2_cn_slam_on(u2k(b), u2k(u2h(a)))) ) {
|
||||
case u2_yes: return j2_mbc(Pt2, levy)(u2t(a), b);
|
||||
case u2_yes: return u2_cqb_levy(u2t(a), b);
|
||||
case u2_no: return u2_no;
|
||||
default: u2z(loz);
|
||||
return u2_cm_bail(c3__exit);
|
||||
@ -37,7 +37,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, levy)(a, b);
|
||||
return u2_cqb_levy(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, lien)(u2_noun a, // retain
|
||||
u2_cqb_lien(u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
@ -21,7 +21,7 @@
|
||||
}
|
||||
else switch ( (loz = u2_cn_slam_on(u2k(b), u2k(u2h(a)))) ) {
|
||||
case u2_yes: return u2_yes;
|
||||
case u2_no: return j2_mbc(Pt2, lien)(u2t(a), b);
|
||||
case u2_no: return u2_cqb_lien(u2t(a), b);
|
||||
default: u2z(loz);
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
@ -35,7 +35,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, lien)(a, b);
|
||||
return u2_cqb_lien(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, need)(
|
||||
u2_cqb_need(
|
||||
u2_noun a) // retain
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
@ -27,7 +27,7 @@
|
||||
if ( u2_none == (a = u2_cr_at(u2_cv_sam, cor)) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, need)(a);
|
||||
return u2_cqb_need(a);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, reel)(
|
||||
u2_cqb_reel(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -20,7 +20,7 @@
|
||||
}
|
||||
else {
|
||||
u2_weak gim = u2k(u2h(a));
|
||||
u2_weak hur = j2_mbc(Pt2, reel)(u2t(a), b);
|
||||
u2_weak hur = u2_cqb_reel(u2t(a), b);
|
||||
|
||||
return u2_cn_slam_on(u2k(b), u2nc(gim, hur));
|
||||
}
|
||||
@ -34,7 +34,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, reel)(a, b);
|
||||
return u2_cqb_reel(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, roll)(u2_noun a, // retain
|
||||
u2_cqb_roll(u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
@ -26,7 +26,7 @@
|
||||
if ( u2_none == vel ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
u2_weak hox = j2_mbc(Pt2, roll)(u2t(a), vel);
|
||||
u2_weak hox = u2_cqb_roll(u2t(a), vel);
|
||||
|
||||
u2z(vel);
|
||||
return hox;
|
||||
@ -41,7 +41,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, roll)(a, b);
|
||||
return u2_cqb_roll(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, skim)(
|
||||
u2_cqb_skim(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -19,7 +19,7 @@
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
u2_weak hoz = u2_cn_slam_on(u2k(b), u2k(u2h(a)));
|
||||
u2_weak vyr = j2_mbc(Pt2, skim)(u2t(a), b);
|
||||
u2_weak vyr = u2_cqb_skim(u2t(a), b);
|
||||
|
||||
switch ( hoz ) {
|
||||
case u2_yes: return u2nc(u2k(u2h(a)), vyr);
|
||||
@ -39,7 +39,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, skim)(a, b);
|
||||
return u2_cqb_skim(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, skip)(
|
||||
u2_cqb_skip(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -19,7 +19,7 @@
|
||||
return u2_none;
|
||||
} else {
|
||||
u2_weak hoz = u2_cn_slam_on(u2k(b), u2k(u2h(a)));
|
||||
u2_weak vyr = j2_mbc(Pt2, skip)(u2t(a), b);
|
||||
u2_weak vyr = u2_cqb_skip(u2t(a), b);
|
||||
|
||||
switch ( hoz ) {
|
||||
case u2_yes: return vyr;
|
||||
@ -39,7 +39,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ) {
|
||||
return u2_none;
|
||||
} else {
|
||||
return j2_mbc(Pt2, skip)(a, b);
|
||||
return u2_cqb_skip(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, snag)(u2_atom a, // retain
|
||||
u2_cqb_snag(u2_atom a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) ) {
|
||||
@ -40,7 +40,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, snag)(a, b);
|
||||
return u2_cqb_snag(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, sort)(
|
||||
u2_cqb_sort(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -25,7 +25,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, sort)(a, b);
|
||||
return u2_cqb_sort(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, turn)(u2_noun a, // retain
|
||||
u2_cqb_turn(u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
@ -19,7 +19,7 @@
|
||||
}
|
||||
else {
|
||||
u2_noun one = u2_cn_slam_on(b, u2k(u2h(a)));
|
||||
u2_noun two = j2_mbc(Pt2, turn)(u2t(a), b);
|
||||
u2_noun two = u2_cqb_turn(u2t(a), b);
|
||||
|
||||
return u2nc(one, two);
|
||||
}
|
||||
@ -33,7 +33,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, turn)(a, b);
|
||||
return u2_cqb_turn(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, weld)(u2_noun a, // retain
|
||||
u2_cqb_weld(u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
@ -18,7 +18,7 @@
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
return u2nc(u2k(u2h(a)), j2_mbc(Pt2, weld)(u2t(a), b));
|
||||
return u2nc(u2k(u2h(a)), u2_cqb_weld(u2t(a), b));
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
@ -29,7 +29,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, weld)(a, b);
|
||||
return u2_cqb_weld(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, bex)(u2_atom a) // retain
|
||||
u2_cqc_bex(u2_atom a) // retain
|
||||
{
|
||||
mpz_t a_mp;
|
||||
|
||||
@ -33,7 +33,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, bex)(a);
|
||||
return u2_cqc_bex(a);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mbc(Pt3, can)(u2_atom a, // retain
|
||||
u2_cqc_can(u2_atom a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) || (a >= 32) ) {
|
||||
@ -79,7 +79,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mbc(Pt3, can)(a, b);
|
||||
return u2_cqc_can(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, cap)(
|
||||
u2_cqc_cap(
|
||||
u2_atom a) // retain
|
||||
{
|
||||
c3_w met_w = u2_cr_met(0, a);
|
||||
@ -33,7 +33,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, cap)(a);
|
||||
return u2_cqc_cap(a);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, cat)(u2_atom a, // retain
|
||||
u2_cqc_cat(u2_atom a, // retain
|
||||
u2_atom b, // retain
|
||||
u2_atom c) // retain
|
||||
{
|
||||
@ -53,7 +53,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, cat)(a, b, c);
|
||||
return u2_cqc_cat(a, b, c);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, con)(u2_atom a, // retain
|
||||
u2_cqc_con(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
c3_w lna_w = u2_cr_met(5, a);
|
||||
@ -47,7 +47,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, con)(a, b);
|
||||
return u2_cqc_con(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, cut)(
|
||||
u2_cqc_cut(
|
||||
u2_atom a, // retain
|
||||
u2_atom b, // retain
|
||||
u2_atom c, // retain
|
||||
@ -68,7 +68,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, cut)(a, b, c, d);
|
||||
return u2_cqc_cut(a, b, c, d);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, dis)(u2_atom a, // retain
|
||||
u2_cqc_dis(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
c3_w lna_w = u2_cr_met(5, a);
|
||||
@ -46,7 +46,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, dis)(a, b);
|
||||
return u2_cqc_dis(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, dor)(
|
||||
u2_cqc_dor(
|
||||
u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
@ -18,7 +18,7 @@
|
||||
else {
|
||||
if ( u2_yes == u2ud(a) ) {
|
||||
if ( u2_yes == u2ud(b) ) {
|
||||
return j2_mbc(Pt1, lth)(a, b);
|
||||
return u2_cqa_lth(a, b);
|
||||
}
|
||||
else {
|
||||
return u2_yes;
|
||||
@ -30,9 +30,9 @@
|
||||
}
|
||||
else {
|
||||
if ( u2_yes == u2_cr_sing(u2h(a), u2h(b)) ) {
|
||||
return j2_mbc(Pt3, dor)(u2t(a), u2t(b));
|
||||
return u2_cqc_dor(u2t(a), u2t(b));
|
||||
}
|
||||
else return j2_mbc(Pt3, dor)(u2h(a), u2h(b));
|
||||
else return u2_cqc_dor(u2h(a), u2h(b));
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -46,7 +46,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, dor)(a, b);
|
||||
return u2_cqc_dor(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, end)(
|
||||
u2_cqc_end(
|
||||
u2_atom a, // retain
|
||||
u2_atom b, // retain
|
||||
u2_atom c) // retain
|
||||
@ -57,7 +57,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, end)(a, b, c);
|
||||
return u2_cqc_end(a, b, c);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,14 +8,14 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, gor)(u2_noun a, // retain
|
||||
u2_cqc_gor(u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
c3_w c_w = u2_cr_mug(a);
|
||||
c3_w d_w = u2_cr_mug(b);
|
||||
|
||||
if ( c_w == d_w ) {
|
||||
return j2_mbc(Pt3, dor)(a, b);
|
||||
return u2_cqc_dor(a, b);
|
||||
}
|
||||
else return (c_w < d_w) ? u2_yes : u2_no;
|
||||
}
|
||||
@ -27,7 +27,7 @@
|
||||
if ( (u2_no == u2_cr_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0)) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, gor)(a, b);
|
||||
return u2_cqc_gor(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,12 +8,12 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, hor)(u2_noun a, // retain
|
||||
u2_cqc_hor(u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
if ( u2_yes == u2ud(a) ) {
|
||||
if ( u2_yes == u2ud(b) ) {
|
||||
return j2_mbc(Pt3, gor)(a, b);
|
||||
return u2_cqc_gor(a, b);
|
||||
} else {
|
||||
return u2_yes;
|
||||
}
|
||||
@ -26,9 +26,9 @@
|
||||
u2_noun h_b = u2h(b);
|
||||
|
||||
if ( u2_yes == u2_cr_sing(h_a, h_b) ) {
|
||||
return j2_mbc(Pt3, gor)(u2t(a), u2t(b));
|
||||
return u2_cqc_gor(u2t(a), u2t(b));
|
||||
} else {
|
||||
return j2_mbc(Pt3, gor)(h_a, h_b);
|
||||
return u2_cqc_gor(h_a, h_b);
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -41,7 +41,7 @@
|
||||
if ( (u2_no == u2_cr_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0)) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, hor)(a, b);
|
||||
return u2_cqc_hor(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, lsh)(
|
||||
u2_cqc_lsh(
|
||||
u2_atom a, // retain
|
||||
u2_atom b, // retain
|
||||
u2_atom c) // retain
|
||||
@ -58,7 +58,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, lsh)(a, b, c);
|
||||
return u2_cqc_lsh(a, b, c);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, mas)(
|
||||
u2_cqc_mas(
|
||||
u2_atom a) // retain
|
||||
{
|
||||
c3_w b_w;
|
||||
@ -19,10 +19,10 @@
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
c = j2_mbc(Pt3, bex)((b_w - 1));
|
||||
d = j2_mbc(Pt3, bex)((b_w - 2));
|
||||
e = j2_mbc(Pt1, sub)(a, c);
|
||||
f = j2_mbc(Pt3, con)(e, d);
|
||||
c = u2_cqc_bex((b_w - 1));
|
||||
d = u2_cqc_bex((b_w - 2));
|
||||
e = u2_cqa_sub(a, c);
|
||||
f = u2_cqc_con(e, d);
|
||||
|
||||
u2z(c);
|
||||
u2z(d);
|
||||
@ -42,7 +42,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, mas)(a);
|
||||
return u2_cqc_mas(a);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, met)(
|
||||
u2_cqc_met(
|
||||
u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
@ -38,7 +38,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, met)(a, b);
|
||||
return u2_cqc_met(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, mix)(u2_atom a, // retain
|
||||
u2_cqc_mix(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
c3_w lna_w = u2_cr_met(5, a);
|
||||
@ -46,7 +46,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, mix)(a, b);
|
||||
return u2_cqc_mix(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,18 +8,18 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, peg)(
|
||||
u2_cqc_peg(
|
||||
u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
u2_atom c, d, e, f, g, h;
|
||||
|
||||
c = u2_cr_met(0, b);
|
||||
d = j2_mbc(Pt1, dec)(c);
|
||||
e = j2_mbc(Pt3, lsh)(0, d, 1);
|
||||
f = j2_mbc(Pt1, sub)(b, e);
|
||||
g = j2_mbc(Pt3, lsh)(0, d, a);
|
||||
h = j2_mbc(Pt1, add)(f, g);
|
||||
d = u2_cqa_dec(c);
|
||||
e = u2_cqc_lsh(0, d, 1);
|
||||
f = u2_cqa_sub(b, e);
|
||||
g = u2_cqc_lsh(0, d, a);
|
||||
h = u2_cqa_add(f, g);
|
||||
|
||||
u2z(c);
|
||||
u2z(d);
|
||||
@ -43,7 +43,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, peg)(a, b);
|
||||
return u2_cqc_peg(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, rap)(u2_atom a, // retain
|
||||
u2_cqc_rap(u2_atom a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) || (a >= 32) ) {
|
||||
@ -80,7 +80,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, rap)(a, b);
|
||||
return u2_cqc_rap(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, rip)(u2_atom a, // retain
|
||||
u2_cqc_rip(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) || (a >= 32) ) {
|
||||
@ -79,7 +79,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, rip)(a, b);
|
||||
return u2_cqc_rip(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, rsh)(
|
||||
u2_cqc_rsh(
|
||||
u2_atom a, // retain
|
||||
u2_atom b, // retain
|
||||
u2_atom c) // retain
|
||||
@ -55,7 +55,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, rsh)(a, b, c);
|
||||
return u2_cqc_rsh(a, b, c);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,14 +8,14 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt3, vor)(u2_atom a, // retain
|
||||
u2_cqc_vor(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
c3_w c_w = u2_cr_mug(u2_cr_mug(a));
|
||||
c3_w d_w = u2_cr_mug(u2_cr_mug(b));
|
||||
|
||||
if ( c_w == d_w ) {
|
||||
return j2_mbc(Pt3, dor)(a, b);
|
||||
return u2_cqc_dor(a, b);
|
||||
}
|
||||
else return (c_w < d_w) ? u2_yes : u2_no;
|
||||
}
|
||||
@ -27,7 +27,7 @@
|
||||
if ( (u2_no == u2_cr_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0)) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt3, vor)(a, b);
|
||||
return u2_cqc_vor(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mcc(Pt4, by, gas)(
|
||||
u2_cqdb_gas(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -29,10 +29,10 @@
|
||||
u2_noun qi_b = u2t(i_b);
|
||||
u2_noun c;
|
||||
|
||||
if ( u2_none == (c = j2_mcc(Pt4, by, put)(a, pi_b, qi_b)) ) {
|
||||
if ( u2_none == (c = u2_cqdb_put(a, pi_b, qi_b)) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
u2_noun d = j2_mcc(Pt4, by, gas)(c, t_b);
|
||||
u2_noun d = u2_cqdb_gas(c, t_b);
|
||||
|
||||
u2z(c);
|
||||
return d;
|
||||
@ -50,7 +50,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam, &b, u2_cv_con_sam, &a, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mcc(Pt4, by, gas)(a, b);
|
||||
return u2_cqdb_gas(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mcc(Pt4, by, get)(
|
||||
u2_cqdb_get(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -29,10 +29,10 @@
|
||||
return u2nc(u2_nul, u2k(qn_a));
|
||||
}
|
||||
else {
|
||||
if ( u2_yes == j2_mbc(Pt3, gor)(b, pn_a) ) {
|
||||
return j2_mcc(Pt4, by, get)(l_a, b);
|
||||
if ( u2_yes == u2_cqc_gor(b, pn_a) ) {
|
||||
return u2_cqdb_get(l_a, b);
|
||||
}
|
||||
else return j2_mcc(Pt4, by, get)(r_a, b);
|
||||
else return u2_cqdb_get(r_a, b);
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -46,7 +46,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam, &b, u2_cv_con_sam, &a, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mcc(Pt4, by, get)(a, b);
|
||||
return u2_cqdb_get(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_bean
|
||||
j2_mcc(Pt4, by, has)(
|
||||
u2_cqdb_has(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -29,10 +29,10 @@
|
||||
return u2_yes;
|
||||
}
|
||||
else {
|
||||
if ( u2_yes == j2_mbc(Pt3, gor)(b, pn_a) ) {
|
||||
return j2_mcc(Pt4, by, has)(l_a, b);
|
||||
if ( u2_yes == u2_cqc_gor(b, pn_a) ) {
|
||||
return u2_cqdb_has(l_a, b);
|
||||
}
|
||||
else return j2_mcc(Pt4, by, has)(r_a, b);
|
||||
else return u2_cqdb_has(r_a, b);
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -46,7 +46,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam, &b, u2_cv_con_sam, &a, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mcc(Pt4, by, has)(a, b);
|
||||
return u2_cqdb_has(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mcc(Pt4, by, int)(
|
||||
u2_cqdb_int(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -40,37 +40,37 @@
|
||||
else if ( u2_no == u2_cr_cell(n_b, &p_n_b, &q_n_b) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else if ( u2_yes == j2_mbc(Pt3, vor)(p_n_a, p_n_b) ) {
|
||||
else if ( u2_yes == u2_cqc_vor(p_n_a, p_n_b) ) {
|
||||
if ( u2_yes == u2_cr_sing(p_n_a, p_n_b) ) {
|
||||
return u2nt(
|
||||
|
||||
u2k(n_b),
|
||||
j2_mcc(Pt4, by, int)(u2k(l_a), u2k(l_b)),
|
||||
j2_mcc(Pt4, by, int)(u2k(r_a), u2k(r_b)));
|
||||
u2_cqdb_int(u2k(l_a), u2k(l_b)),
|
||||
u2_cqdb_int(u2k(r_a), u2k(r_b)));
|
||||
}
|
||||
else if ( u2_yes == j2_mbc(Pt3, hor)(p_n_b, p_n_a) ) {
|
||||
return j2_mcc(Pt4, by, uni)(
|
||||
else if ( u2_yes == u2_cqc_hor(p_n_b, p_n_a) ) {
|
||||
return u2_cqdb_uni(
|
||||
|
||||
j2_mcc(Pt4, by, int)(
|
||||
u2_cqdb_int(
|
||||
u2k(l_a),
|
||||
u2nt(
|
||||
u2k(n_b),
|
||||
u2k(l_b),
|
||||
u2k(u2_nul))),
|
||||
j2_mcc(Pt4, by, int)(
|
||||
u2_cqdb_int(
|
||||
u2k(a),
|
||||
u2k(r_b)));
|
||||
}
|
||||
else {
|
||||
return j2_mcc(Pt4, by, uni)(
|
||||
return u2_cqdb_uni(
|
||||
|
||||
j2_mcc(Pt4, by, int)(
|
||||
u2_cqdb_int(
|
||||
u2k(r_a),
|
||||
u2nt(
|
||||
u2k(n_b),
|
||||
u2k(u2_nul),
|
||||
u2k(r_b))),
|
||||
j2_mcc(Pt4, by, int)(
|
||||
u2_cqdb_int(
|
||||
u2k(a),
|
||||
u2k(l_b)));
|
||||
}
|
||||
@ -79,32 +79,32 @@
|
||||
return u2nt(
|
||||
|
||||
u2k(n_b),
|
||||
j2_mcc(Pt4, by, int)(u2k(l_b), u2k(l_a)),
|
||||
j2_mcc(Pt4, by, int)(u2k(r_b), u2k(r_a)));
|
||||
u2_cqdb_int(u2k(l_b), u2k(l_a)),
|
||||
u2_cqdb_int(u2k(r_b), u2k(r_a)));
|
||||
}
|
||||
else if ( u2_yes == j2_mbc(Pt3, hor)(p_n_a, p_n_b) ) {
|
||||
return j2_mcc(Pt4, by, uni)(
|
||||
else if ( u2_yes == u2_cqc_hor(p_n_a, p_n_b) ) {
|
||||
return u2_cqdb_uni(
|
||||
|
||||
j2_mcc(Pt4, by, int)(
|
||||
u2_cqdb_int(
|
||||
u2k(l_b),
|
||||
u2nt(
|
||||
u2k(n_a),
|
||||
u2k(l_a),
|
||||
u2k(u2_nul))),
|
||||
j2_mcc(Pt4, by, int)(
|
||||
u2_cqdb_int(
|
||||
u2k(a),
|
||||
u2k(r_a)));
|
||||
}
|
||||
else {
|
||||
return j2_mcc(Pt4, by, uni)(
|
||||
return u2_cqdb_uni(
|
||||
|
||||
j2_mcc(Pt4, by, int)(
|
||||
u2_cqdb_int(
|
||||
u2k(r_b),
|
||||
u2nt(
|
||||
u2k(n_a),
|
||||
u2k(u2_nul),
|
||||
u2k(r_a))),
|
||||
j2_mcc(Pt4, by, int)(
|
||||
u2_cqdb_int(
|
||||
u2k(a),
|
||||
u2k(l_a)));
|
||||
}
|
||||
@ -119,7 +119,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam, &b, u2_cv_con_sam, &a, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mcc(Pt4, by, int)(a, b);
|
||||
return u2_cqdb_int(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mcc(Pt4, by, put)(
|
||||
u2_cqdb_put(
|
||||
u2_noun a, // retain
|
||||
u2_noun b, // retain
|
||||
u2_noun c) // retain
|
||||
@ -40,10 +40,10 @@
|
||||
}
|
||||
}
|
||||
else {
|
||||
if ( u2_yes == j2_mbc(Pt3, gor)(b, pn_a) ) {
|
||||
d = j2_mcc(Pt4, by, put)(l_a, b, c);
|
||||
if ( u2_yes == u2_cqc_gor(b, pn_a) ) {
|
||||
d = u2_cqdb_put(l_a, b, c);
|
||||
|
||||
if ( u2_yes == j2_mbc(Pt3, vor)(pn_a, u2h(u2h(d))) ) {
|
||||
if ( u2_yes == u2_cqc_vor(pn_a, u2h(u2h(d))) ) {
|
||||
return u2nt(u2k(n_a),
|
||||
d,
|
||||
u2k(r_a));
|
||||
@ -65,9 +65,9 @@
|
||||
}
|
||||
}
|
||||
else {
|
||||
d = j2_mcc(Pt4, by, put)(r_a, b, c);
|
||||
d = u2_cqdb_put(r_a, b, c);
|
||||
|
||||
if ( u2_yes == j2_mbc(Pt3, vor)(pn_a, u2h(u2h(d))) ) {
|
||||
if ( u2_yes == u2_cqc_vor(pn_a, u2h(u2h(d))) ) {
|
||||
return u2nt(u2k(n_a),
|
||||
u2k(l_a),
|
||||
d);
|
||||
@ -102,7 +102,7 @@
|
||||
u2_cv_con_sam, &a, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mcc(Pt4, by, put)(a, b, c);
|
||||
return u2_cqdb_put(a, b, c);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mcc(Pt4, by, uni)(
|
||||
u2_cqdb_uni(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -40,20 +40,20 @@
|
||||
else if ( u2_no == u2_cr_cell(lr_b, &l_b, &r_b) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else if ( u2_yes == j2_mbc(Pt3, vor)(p_n_a, p_n_b) ) {
|
||||
else if ( u2_yes == u2_cqc_vor(p_n_a, p_n_b) ) {
|
||||
if ( u2_yes == u2_cr_sing(p_n_a, p_n_b) ) {
|
||||
return u2nt(u2k(n_b),
|
||||
j2_mcc(Pt4, by, uni)(
|
||||
u2_cqdb_uni(
|
||||
u2k(l_a), u2k(l_b)),
|
||||
j2_mcc(Pt4, by, uni)(
|
||||
u2_cqdb_uni(
|
||||
u2k(r_a), u2k(r_b)));
|
||||
}
|
||||
else if ( u2_yes == j2_mbc(Pt3, hor)(p_n_b, p_n_a) ) {
|
||||
return j2_mcc(Pt4, by, uni)(
|
||||
else if ( u2_yes == u2_cqc_hor(p_n_b, p_n_a) ) {
|
||||
return u2_cqdb_uni(
|
||||
|
||||
u2nt(
|
||||
u2k(n_a),
|
||||
j2_mcc(Pt4, by, uni)(
|
||||
u2_cqdb_uni(
|
||||
u2k(l_a),
|
||||
u2nt(
|
||||
u2k(n_b),
|
||||
@ -63,12 +63,12 @@
|
||||
u2k(r_b));
|
||||
}
|
||||
else {
|
||||
return j2_mcc(Pt4, by, uni)(
|
||||
return u2_cqdb_uni(
|
||||
|
||||
u2nt(
|
||||
u2k(n_a),
|
||||
u2k(l_a),
|
||||
j2_mcc(Pt4, by, uni)(
|
||||
u2_cqdb_uni(
|
||||
u2k(r_a),
|
||||
u2nt(
|
||||
u2k(n_b),
|
||||
@ -81,16 +81,16 @@
|
||||
return u2nt(
|
||||
|
||||
u2k(n_b),
|
||||
j2_mcc(Pt4, by, uni)(u2k(r_b), u2k(r_a)),
|
||||
j2_mcc(Pt4, by, uni)(u2k(l_b), u2k(l_a)));
|
||||
u2_cqdb_uni(u2k(r_b), u2k(r_a)),
|
||||
u2_cqdb_uni(u2k(l_b), u2k(l_a)));
|
||||
}
|
||||
else if ( u2_yes == j2_mbc(Pt3, hor)(p_n_a, p_n_b) ) {
|
||||
return j2_mcc(Pt4, by, uni)(
|
||||
else if ( u2_yes == u2_cqc_hor(p_n_a, p_n_b) ) {
|
||||
return u2_cqdb_uni(
|
||||
|
||||
u2k(r_a),
|
||||
u2nt(
|
||||
u2k(n_b),
|
||||
j2_mcc(Pt4, by, uni)(
|
||||
u2_cqdb_uni(
|
||||
u2nt(
|
||||
u2k(n_a),
|
||||
u2k(l_a),
|
||||
@ -99,13 +99,13 @@
|
||||
u2k(r_b)));
|
||||
}
|
||||
else {
|
||||
return j2_mcc(Pt4, by, uni)(
|
||||
return u2_cqdb_uni(
|
||||
|
||||
u2k(l_a),
|
||||
u2nt(
|
||||
u2k(n_b),
|
||||
u2k(l_b),
|
||||
j2_mcc(Pt4, by, uni)(
|
||||
u2_cqdb_uni(
|
||||
u2k(r_b),
|
||||
u2nt(
|
||||
u2k(n_a),
|
||||
@ -123,7 +123,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam, &b, u2_cv_con_sam, &a, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mcc(Pt4, by, uni)(a, b);
|
||||
return u2_cqdb_uni(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mcc(Pt4, in, gas)(
|
||||
u2_cqdi_gas(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -23,10 +23,10 @@
|
||||
u2_noun t_b = u2t(b);
|
||||
u2_noun c;
|
||||
|
||||
if ( u2_none == (c = j2_mcc(Pt4, in, put)(a, i_b)) ) {
|
||||
if ( u2_none == (c = u2_cqdi_put(a, i_b)) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
u2_noun d = j2_mcc(Pt4, in, gas)(c, t_b);
|
||||
u2_noun d = u2_cqdi_gas(c, t_b);
|
||||
|
||||
u2z(c);
|
||||
return d;
|
||||
@ -43,7 +43,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam, &b, u2_cv_con_sam, &a, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mcc(Pt4, in, gas)(a, b);
|
||||
return u2_cqdi_gas(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_bean
|
||||
j2_mcc(Pt4, in, has)(
|
||||
u2_cqdi_has(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -26,10 +26,10 @@
|
||||
return u2_yes;
|
||||
}
|
||||
else {
|
||||
if ( u2_yes == j2_mbc(Pt3, hor)(b, n_a) ) {
|
||||
return j2_mcc(Pt4, in, has)(l_a, b);
|
||||
if ( u2_yes == u2_cqc_hor(b, n_a) ) {
|
||||
return u2_cqdi_has(l_a, b);
|
||||
}
|
||||
else return j2_mcc(Pt4, in, has)(r_a, b);
|
||||
else return u2_cqdi_has(r_a, b);
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -43,7 +43,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam, &b, u2_cv_con_sam, &a, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mcc(Pt4, in, has)(a, b);
|
||||
return u2_cqdi_has(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mcc(Pt4, in, int)(
|
||||
u2_cqdi_int(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -30,7 +30,7 @@
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
if ( u2_yes == j2_mbc(Pt3, vor)(n_b, n_a) ) {
|
||||
if ( u2_yes == u2_cqc_vor(n_b, n_a) ) {
|
||||
c = a; a = b; b = c;
|
||||
c = n_a; n_a = n_b; n_b = c;
|
||||
c = lr_a; lr_a = lr_b; lr_b = c;
|
||||
@ -43,30 +43,30 @@
|
||||
}
|
||||
else if ( u2_yes == u2_cr_sing(n_a, n_b) ) {
|
||||
return u2nt(u2k(n_a),
|
||||
j2_mcc(Pt4, in, int)(l_a, l_b),
|
||||
j2_mcc(Pt4, in, int)(r_a, r_b));
|
||||
u2_cqdi_int(l_a, l_b),
|
||||
u2_cqdi_int(r_a, r_b));
|
||||
}
|
||||
else if ( u2_yes == j2_mbc(Pt3, hor)(n_b, n_a) ) {
|
||||
return j2_mcc(Pt4, in, uni)(
|
||||
j2_mcc(Pt4, in, int)(
|
||||
else if ( u2_yes == u2_cqc_hor(n_b, n_a) ) {
|
||||
return u2_cqdi_uni(
|
||||
u2_cqdi_int(
|
||||
l_a,
|
||||
u2nt(
|
||||
n_b,
|
||||
l_b,
|
||||
u2_nul)),
|
||||
j2_mcc(Pt4, in, int)(
|
||||
u2_cqdi_int(
|
||||
a,
|
||||
r_b));
|
||||
}
|
||||
else {
|
||||
return j2_mcc(Pt4, in, uni)(
|
||||
j2_mcc(Pt4, in, int)(
|
||||
return u2_cqdi_uni(
|
||||
u2_cqdi_int(
|
||||
r_a,
|
||||
u2nt(
|
||||
n_b,
|
||||
u2_nul,
|
||||
r_b)),
|
||||
j2_mcc(Pt4, in, int)(
|
||||
u2_cqdi_int(
|
||||
a,
|
||||
l_b));
|
||||
}
|
||||
@ -82,7 +82,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam, &b, u2_cv_con_sam, &a, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mcc(Pt4, in, int)(a, b);
|
||||
return u2_cqdi_int(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -30,7 +30,7 @@
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
if ( u2_yes == j2_mbc(Pt3, vor)(n_b, n_a) ) {
|
||||
if ( u2_yes == u2_cqc_vor(n_b, n_a) ) {
|
||||
c = a; a = b; b = c;
|
||||
c = n_a; n_a = n_b; n_b = c;
|
||||
c = lr_a; lr_a = lr_b; lr_b = c;
|
||||
@ -46,7 +46,7 @@
|
||||
j2_mcc(Pt4, in, mer)(l_a, l_b),
|
||||
j2_mcc(Pt4, in, mer)(r_a, r_b));
|
||||
}
|
||||
else if ( u2_yes == j2_mbc(Pt3, hor)(n_b, n_a) ) {
|
||||
else if ( u2_yes == u2_cqc_hor(n_b, n_a) ) {
|
||||
return j2_mcc(Pt4, in, mer)(
|
||||
u2nt(
|
||||
n_a,
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mcc(Pt4, in, put)(
|
||||
u2_cqdi_put(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -29,10 +29,10 @@
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
if ( u2_yes == j2_mbc(Pt3, hor)(b, n_a) ) {
|
||||
c = j2_mcc(Pt4, in, put)(l_a, b);
|
||||
if ( u2_yes == u2_cqc_hor(b, n_a) ) {
|
||||
c = u2_cqdi_put(l_a, b);
|
||||
|
||||
if ( u2_yes == j2_mbc(Pt3, vor)(n_a, u2h(c)) ) {
|
||||
if ( u2_yes == u2_cqc_vor(n_a, u2h(c)) ) {
|
||||
return u2nt(u2k(n_a),
|
||||
c,
|
||||
u2k(r_a));
|
||||
@ -54,9 +54,9 @@
|
||||
}
|
||||
}
|
||||
else {
|
||||
c = j2_mcc(Pt4, in, put)(r_a, b);
|
||||
c = u2_cqdi_put(r_a, b);
|
||||
|
||||
if ( u2_yes == j2_mbc(Pt3, vor)(n_a, u2h(c)) ) {
|
||||
if ( u2_yes == u2_cqc_vor(n_a, u2h(c)) ) {
|
||||
return u2nt(u2k(n_a),
|
||||
u2k(l_a),
|
||||
c);
|
||||
@ -89,7 +89,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam, &b, u2_cv_con_sam, &a, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mcc(Pt4, in, put)(a, b);
|
||||
return u2_cqdi_put(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -30,7 +30,7 @@
|
||||
}
|
||||
|
||||
u2_weak // produce
|
||||
j2_mcc(Pt4, in, tap)(
|
||||
u2_cqdi_tap(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -45,7 +45,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam, &b, u2_cv_con_sam, &a, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mcc(Pt4, in, tap)(a, b);
|
||||
return u2_cqdi_tap(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mcc(Pt4, in, uni)(
|
||||
u2_cqdi_uni(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
@ -29,7 +29,7 @@
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
if ( u2_yes == j2_mbc(Pt3, vor)(n_a, n_b) ) {
|
||||
if ( u2_yes == u2_cqc_vor(n_a, n_b) ) {
|
||||
if ( u2_no == u2_cr_cell(lr_a, &l_a, &r_a) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
@ -40,15 +40,15 @@
|
||||
return u2nt(
|
||||
|
||||
u2k(n_b),
|
||||
j2_mcc(Pt4, in, uni)(u2k(l_a), u2k(l_b)),
|
||||
j2_mcc(Pt4, in, uni)(u2k(r_a), u2k(r_b)));
|
||||
u2_cqdi_uni(u2k(l_a), u2k(l_b)),
|
||||
u2_cqdi_uni(u2k(r_a), u2k(r_b)));
|
||||
}
|
||||
else if ( u2_yes == j2_mbc(Pt3, hor)(n_b, n_a) ) {
|
||||
return j2_mcc(Pt4, in, uni)(
|
||||
else if ( u2_yes == u2_cqc_hor(n_b, n_a) ) {
|
||||
return u2_cqdi_uni(
|
||||
|
||||
u2nt(
|
||||
u2k(n_a),
|
||||
j2_mcc(Pt4, in, uni)(
|
||||
u2_cqdi_uni(
|
||||
u2k(l_a),
|
||||
u2nt(
|
||||
u2k(n_b),
|
||||
@ -58,12 +58,12 @@
|
||||
u2k(r_b));
|
||||
}
|
||||
else {
|
||||
return j2_mcc(Pt4, in, uni)(
|
||||
return u2_cqdi_uni(
|
||||
|
||||
u2nt(
|
||||
u2k(n_a),
|
||||
u2k(l_a),
|
||||
j2_mcc(Pt4, in, uni)(
|
||||
u2_cqdi_uni(
|
||||
u2k(r_a),
|
||||
u2nt(
|
||||
u2k(n_b),
|
||||
@ -82,16 +82,16 @@
|
||||
return u2nt(
|
||||
|
||||
u2k(n_b),
|
||||
j2_mcc(Pt4, in, uni)(u2k(r_b), u2k(r_a)),
|
||||
j2_mcc(Pt4, in, uni)(u2k(l_b), u2k(l_a)));
|
||||
u2_cqdi_uni(u2k(r_b), u2k(r_a)),
|
||||
u2_cqdi_uni(u2k(l_b), u2k(l_a)));
|
||||
}
|
||||
else if ( u2_yes == j2_mbc(Pt3, hor)(n_a, n_b) ) {
|
||||
return j2_mcc(Pt4, in, uni)(
|
||||
else if ( u2_yes == u2_cqc_hor(n_a, n_b) ) {
|
||||
return u2_cqdi_uni(
|
||||
|
||||
u2k(r_a),
|
||||
u2nt(
|
||||
u2k(n_b),
|
||||
j2_mcc(Pt4, in, uni)(
|
||||
u2_cqdi_uni(
|
||||
u2nt(
|
||||
u2k(n_a),
|
||||
u2k(l_a),
|
||||
@ -100,13 +100,13 @@
|
||||
u2k(r_b)));
|
||||
}
|
||||
else {
|
||||
return j2_mcc(Pt4, in, uni)(
|
||||
return u2_cqdi_uni(
|
||||
|
||||
u2k(l_a),
|
||||
u2nt(
|
||||
u2k(n_b),
|
||||
u2k(l_b),
|
||||
j2_mcc(Pt4, in, uni)(
|
||||
u2_cqdi_uni(
|
||||
u2nt(
|
||||
u2k(n_a),
|
||||
u2k(u2_nul),
|
||||
@ -125,7 +125,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam, &b, u2_cv_con_sam, &a, 0) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mcc(Pt4, in, uni)(a, b);
|
||||
return u2_cqdi_uni(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -12,11 +12,11 @@
|
||||
{
|
||||
u2_noun p, q;
|
||||
|
||||
if ( 0 == j2_mbc(Pt3, cut)(0, b, 1, a) ) {
|
||||
u2_noun x = j2_mbc(Pt1, inc)(b);
|
||||
u2_noun c = j2_mby(Pt5, rub)(x, a);
|
||||
if ( 0 == u2_cqc_cut(0, b, 1, a) ) {
|
||||
u2_noun x = u2_cqa_inc(b);
|
||||
u2_noun c = u2_cqe_rub(x, a);
|
||||
|
||||
p = j2_mbc(Pt1, inc)(u2k(u2h(c)));
|
||||
p = u2_cqa_inc(u2k(u2h(c)));
|
||||
q = u2k(u2t(c));
|
||||
|
||||
u2_ch_put(har_u, u2k(b), u2k(q));
|
||||
@ -25,20 +25,20 @@
|
||||
u2z(x);
|
||||
}
|
||||
else {
|
||||
u2_noun c = j2_mbc(Pt1, add)(2, b);
|
||||
u2_noun l = j2_mbc(Pt1, inc)(b);
|
||||
u2_noun c = u2_cqa_add(2, b);
|
||||
u2_noun l = u2_cqa_inc(b);
|
||||
|
||||
if ( 0 == j2_mbc(Pt3, cut)(0, l, 1, a) ) {
|
||||
if ( 0 == u2_cqc_cut(0, l, 1, a) ) {
|
||||
u2_noun u, v, w;
|
||||
u2_noun x, y;
|
||||
|
||||
u = _cue_in(har_u, a, c);
|
||||
x = j2_mbc(Pt1, add)(u2h(u), c);
|
||||
x = u2_cqa_add(u2h(u), c);
|
||||
v = _cue_in(har_u, a, x);
|
||||
w = u2nc(u2k(u2h(u2t(u))), u2k(u2h(u2t(v))));
|
||||
|
||||
y = j2_mbc(Pt1, add)(u2h(u), u2h(v));
|
||||
p = j2_mbc(Pt1, add)(2, y);
|
||||
y = u2_cqa_add(u2h(u), u2h(v));
|
||||
p = u2_cqa_add(2, y);
|
||||
|
||||
q = w;
|
||||
u2_ch_put(har_u, u2k(b), u2k(q));
|
||||
@ -46,10 +46,10 @@
|
||||
u2z(u); u2z(v); u2z(x); u2z(y);
|
||||
}
|
||||
else {
|
||||
u2_noun d = j2_mby(Pt5, rub)(c, a);
|
||||
u2_noun d = u2_cqe_rub(c, a);
|
||||
u2_noun x = u2_ch_get(har_u, u2k(u2t(d)));
|
||||
|
||||
p = j2_mbc(Pt1, add)(2, u2h(d));
|
||||
p = u2_cqa_add(2, u2h(d));
|
||||
if ( u2_none == x ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
@ -63,7 +63,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt5, cue)(u2_atom a) // retain
|
||||
u2_cqe_cue(u2_atom a) // retain
|
||||
{
|
||||
u2_ch_root* har_u = u2_ch_new();
|
||||
|
||||
@ -83,7 +83,7 @@
|
||||
if ( (u2_none == (a = u2_cr_at(u2_cv_sam, cor))) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt5, cue)(a);
|
||||
return u2_cqe_cue(a);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -18,22 +18,22 @@
|
||||
u2_noun l) // retain
|
||||
{
|
||||
u2_noun w = u2nc(u2nc(2, 1), u2k(l));
|
||||
u2_noun x = j2_mbc(Pt1, add)(2, b);
|
||||
u2_noun x = u2_cqa_add(2, b);
|
||||
u2_noun d = _jam_in(har_u, h_a, x, w);
|
||||
u2_noun p_d, q_d, r_d;
|
||||
u2_noun r;
|
||||
|
||||
u2_cr_trel(d, &p_d, &q_d, &r_d);
|
||||
{
|
||||
u2_noun y = j2_mbc(Pt1, add)(x, p_d);
|
||||
u2_noun y = u2_cqa_add(x, p_d);
|
||||
u2_noun e = _jam_in(har_u, t_a, y, q_d);
|
||||
u2_noun p_e, q_e, r_e;
|
||||
|
||||
u2_cr_trel(e, &p_e, &q_e, &r_e);
|
||||
{
|
||||
u2_noun z = j2_mbc(Pt1, add)(p_d, p_e);
|
||||
u2_noun z = u2_cqa_add(p_d, p_e);
|
||||
|
||||
r = u2nt(j2_mbc(Pt1, add)(2, z), u2k(q_e), 0);
|
||||
r = u2nt(u2_cqa_add(2, z), u2k(q_e), 0);
|
||||
|
||||
u2z(z);
|
||||
}
|
||||
@ -52,10 +52,10 @@
|
||||
u2_atom a, // retain
|
||||
u2_noun l) // retain
|
||||
{
|
||||
u2_noun d = j2_mby(Pt5, mat)(a);
|
||||
u2_noun x = j2_mbc(Pt1, add)(1, u2h(d));
|
||||
u2_noun d = u2_cqe_mat(a);
|
||||
u2_noun x = u2_cqa_add(1, u2h(d));
|
||||
u2_noun y = u2nt
|
||||
(u2k(x), u2nc(u2nc(x, j2_mbc(Pt3, lsh)(0, 1, u2t(d))), u2k(l)), 0);
|
||||
(u2k(x), u2nc(u2nc(x, u2_cqc_lsh(0, 1, u2t(d))), u2k(l)), 0);
|
||||
|
||||
u2z(d);
|
||||
|
||||
@ -67,11 +67,11 @@
|
||||
u2_atom u_c, // retain
|
||||
u2_noun l) // retain
|
||||
{
|
||||
u2_noun d = j2_mby(Pt5, mat)(u_c);
|
||||
u2_atom x = j2_mbc(Pt3, lsh)(0, 2, u2t(d));
|
||||
u2_atom y = j2_mbc(Pt1, add)(2, u2h(d));
|
||||
u2_noun d = u2_cqe_mat(u_c);
|
||||
u2_atom x = u2_cqc_lsh(0, 2, u2t(d));
|
||||
u2_atom y = u2_cqa_add(2, u2h(d));
|
||||
u2_noun z = u2nt
|
||||
(u2k(y), u2nc(u2nc(y, j2_mbc(Pt3, mix)(3, x)), u2k(l)), 0);
|
||||
(u2k(y), u2nc(u2nc(y, u2_cqc_mix(3, x)), u2k(l)), 0);
|
||||
|
||||
u2z(d);
|
||||
u2z(x);
|
||||
@ -109,13 +109,13 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt5, jam)(u2_atom a) // retain
|
||||
u2_cqe_jam(u2_atom a) // retain
|
||||
{
|
||||
u2_ch_root* har_u = u2_ch_new();
|
||||
|
||||
u2_noun x = _jam_in(har_u, a, 0, u2_nul);
|
||||
u2_noun q = j2_mbc(Pt2, flop)(u2h(u2t(x)));
|
||||
u2_noun r = j2_mbc(Pt3, can)(0, q);
|
||||
u2_noun q = u2_cqb_flop(u2h(u2t(x)));
|
||||
u2_noun r = u2_cqc_can(0, q);
|
||||
|
||||
u2z(x);
|
||||
u2z(q);
|
||||
@ -130,7 +130,7 @@
|
||||
if ( (u2_none == (a = u2_cr_at(u2_cv_sam, cor))) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt5, jam)(a);
|
||||
return u2_cqe_jam(a);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,26 +8,26 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // produce
|
||||
j2_mby(Pt5, mat)(
|
||||
u2_cqe_mat(
|
||||
u2_atom a) // retain
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return u2nc(1, 1);
|
||||
} else {
|
||||
u2_atom b = j2_mbc(Pt3, met)(0, a);
|
||||
u2_atom c = j2_mbc(Pt3, met)(0, b);
|
||||
u2_atom b = u2_cqc_met(0, a);
|
||||
u2_atom c = u2_cqc_met(0, b);
|
||||
u2_atom u, v, w, x, y, z;
|
||||
u2_atom p, q;
|
||||
|
||||
u = j2_mbc(Pt1, dec)(c);
|
||||
v = j2_mbc(Pt1, add)(c, c);
|
||||
w = j2_mbc(Pt3, bex)(c);
|
||||
x = j2_mbc(Pt3, end)(0, u, b);
|
||||
y = j2_mbc(Pt3, lsh)(0, u, a);
|
||||
z = j2_mbc(Pt3, mix)(x, y);
|
||||
u = u2_cqa_dec(c);
|
||||
v = u2_cqa_add(c, c);
|
||||
w = u2_cqc_bex(c);
|
||||
x = u2_cqc_end(0, u, b);
|
||||
y = u2_cqc_lsh(0, u, a);
|
||||
z = u2_cqc_mix(x, y);
|
||||
|
||||
p = j2_mbc(Pt1, add)(v, b);
|
||||
q = j2_mbc(Pt3, cat)(0, w, z);
|
||||
p = u2_cqa_add(v, b);
|
||||
q = u2_cqc_cat(0, w, z);
|
||||
|
||||
u2z(u);
|
||||
u2z(v);
|
||||
@ -48,7 +48,7 @@
|
||||
if ( (u2_none == (a = u2_cr_at(u2_cv_sam, cor))) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt5, mat)(a);
|
||||
return u2_cqe_mat(a);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // produce
|
||||
j2_mby(Pt5, rub)(
|
||||
u2_cqe_rub(
|
||||
u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
{
|
||||
@ -16,17 +16,17 @@
|
||||
u2_atom w, x, y, z;
|
||||
u2_atom p, q;
|
||||
|
||||
u2_atom m = j2_mbc(Pt1, add)(a, u2_cr_met(0, b));
|
||||
u2_atom m = u2_cqa_add(a, u2_cr_met(0, b));
|
||||
|
||||
// Compute c and d.
|
||||
{
|
||||
x = u2k(a);
|
||||
|
||||
while ( 0 == j2_mbc(Pt3, cut)(0, x, 1, b) ) {
|
||||
u2_atom y = j2_mbc(Pt1, inc)(x);
|
||||
while ( 0 == u2_cqc_cut(0, x, 1, b) ) {
|
||||
u2_atom y = u2_cqa_inc(x);
|
||||
|
||||
// Sanity check: crash if decoding more bits than available
|
||||
if ( u2_yes == j2_mbc(Pt1, gth)(x, m)) {
|
||||
if ( u2_yes == u2_cqa_gth(x, m)) {
|
||||
// fprintf(stderr, "[%%rub-hard %d %d %d]\r\n", a, x, m);
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
@ -38,27 +38,27 @@
|
||||
u2z(x);
|
||||
return u2nc(1, 0);
|
||||
}
|
||||
c = j2_mbc(Pt1, sub)(x, a);
|
||||
d = j2_mbc(Pt1, inc)(x);
|
||||
c = u2_cqa_sub(x, a);
|
||||
d = u2_cqa_inc(x);
|
||||
|
||||
u2z(x);
|
||||
}
|
||||
|
||||
// Compute e, p, q.
|
||||
{
|
||||
x = j2_mbc(Pt1, dec)(c);
|
||||
y = j2_mbc(Pt3, bex)(x);
|
||||
z = j2_mbc(Pt3, cut)(0, d, x, b);
|
||||
x = u2_cqa_dec(c);
|
||||
y = u2_cqc_bex(x);
|
||||
z = u2_cqc_cut(0, d, x, b);
|
||||
|
||||
e = j2_mbc(Pt1, add)(y, z);
|
||||
e = u2_cqa_add(y, z);
|
||||
u2z(y); u2z(z);
|
||||
|
||||
w = j2_mbc(Pt1, add)(c, c);
|
||||
y = j2_mbc(Pt1, add)(w, e);
|
||||
z = j2_mbc(Pt1, add)(d, x);
|
||||
w = u2_cqa_add(c, c);
|
||||
y = u2_cqa_add(w, e);
|
||||
z = u2_cqa_add(d, x);
|
||||
|
||||
p = j2_mbc(Pt1, add)(w, e);
|
||||
q = j2_mbc(Pt3, cut)(0, z, e, b);
|
||||
p = u2_cqa_add(w, e);
|
||||
q = u2_cqc_cut(0, z, e, b);
|
||||
|
||||
u2z(w); u2z(x); u2z(y); u2z(z);
|
||||
|
||||
@ -77,7 +77,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt5, rub)(a, b);
|
||||
return u2_cqe_rub(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -75,7 +75,7 @@
|
||||
u2_atom ruz) // retain
|
||||
{
|
||||
u2_noun one = j2_mbc(Pt5, shax)(ruz);
|
||||
u2_noun two = j2_mbc(Pt3, mix)(sal, one);
|
||||
u2_noun two = u2_cqc_mix(sal, one);
|
||||
u2_noun tri = j2_mbc(Pt5, shax)(two);
|
||||
|
||||
u2z(one); u2z(two); return tri;
|
||||
@ -142,15 +142,15 @@
|
||||
return u2_cm_bail(c3__fail);
|
||||
}
|
||||
while ( 0 != b ) {
|
||||
u2_noun x = j2_mbc(Pt3, mix)(a, c);
|
||||
u2_noun y = j2_mbc(Pt3, mix)(b, x);
|
||||
u2_noun x = u2_cqc_mix(a, c);
|
||||
u2_noun y = u2_cqc_mix(b, x);
|
||||
u2_noun d = j2_mbc(Pt5, shas)(c3_s4('o','g','-','b'), y);
|
||||
u2_noun m;
|
||||
|
||||
u2z(x); u2z(y);
|
||||
|
||||
if ( b < 256 ) {
|
||||
u2_noun e = j2_mbc(Pt3, end)(0, b, d);
|
||||
u2_noun e = u2_cqc_end(0, b, d);
|
||||
|
||||
u2z(d);
|
||||
m = u2nc(b, e);
|
||||
@ -171,10 +171,10 @@
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
{
|
||||
u2_noun x = j2_mbc(Pt3, mix)(b, a);
|
||||
u2_noun x = u2_cqc_mix(b, a);
|
||||
u2_noun c = j2_mbc(Pt5, shas)(c3_s4('o','g','-','a'), x);
|
||||
u2_noun l = _og_list(a, b, c);
|
||||
u2_noun r = j2_mbc(Pt3, can)(0, l);
|
||||
u2_noun r = u2_cqc_can(0, l);
|
||||
|
||||
u2z(l);
|
||||
u2z(c);
|
||||
|
||||
@ -8,13 +8,12 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt5, trip)(
|
||||
u2_atom a) // retain
|
||||
u2_cqc_trip(u2_atom a) // retain
|
||||
{
|
||||
if ( u2_no == u2ud(a) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
return j2_mbc(Pt3, rip)(3, a);
|
||||
return u2_cqc_rip(3, a);
|
||||
}
|
||||
u2_noun // transfer
|
||||
j2_mb(Pt5, trip)(
|
||||
@ -25,7 +24,7 @@
|
||||
if ( (u2_none == (a = u2_cr_at(u2_cv_sam, cor))) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt5, trip)(a);
|
||||
return u2_cqc_trip(a);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -20,7 +20,7 @@ _al_core(u2_noun van,
|
||||
/* ~(bunt al gen)
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, al, bunt)(u2_noun van, // retain
|
||||
u2_cqfl_bunt(u2_noun van, // retain
|
||||
u2_noun gen) // retain
|
||||
{
|
||||
u2_noun cor = _al_core(van, gen);
|
||||
@ -31,7 +31,7 @@ j2_mcy(Pt6, al, bunt)(u2_noun van, // retain
|
||||
/* ~(whip al gen)
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, al, whip)(u2_noun van, // retain
|
||||
u2_cqfl_whip(u2_noun van, // retain
|
||||
u2_noun gen, // retain
|
||||
u2_noun axe) //
|
||||
{
|
||||
|
||||
@ -79,7 +79,7 @@
|
||||
{
|
||||
return
|
||||
u2nt(c3__tsls,
|
||||
j2_mcy(Pt6, al, bunt)(
|
||||
u2_cqfl_bunt(
|
||||
_al_core(ter, p_gen), p_gen),
|
||||
u2k(q_gen));
|
||||
}
|
||||
@ -144,13 +144,13 @@
|
||||
***/
|
||||
_open_do_p(bccb) // $_
|
||||
{
|
||||
return j2_mcy(Pt6, al, bunt)(_al_core(ter, p_gen), p_gen);
|
||||
return u2_cqfl_bunt(_al_core(ter, p_gen), p_gen);
|
||||
}
|
||||
_open_do_p(bctr) // $*
|
||||
{
|
||||
return
|
||||
u2nc(c3__ktsg,
|
||||
j2_mcy(Pt6, al, bunt)(
|
||||
u2_cqfl_bunt(
|
||||
_al_core(ter, p_gen),
|
||||
p_gen));
|
||||
}
|
||||
@ -275,7 +275,7 @@
|
||||
u2nc(u2nc(c3__axil, c3__noun),
|
||||
u2k(q_gen)),
|
||||
u2_nul);
|
||||
u2_noun zal = j2_mbc(Pt2, weld)(r_gen, tul);
|
||||
u2_noun zal = u2_cqb_weld(r_gen, tul);
|
||||
u2_noun ret = u2nt(c3__wthp, u2k(p_gen), zal);
|
||||
|
||||
u2z(tul);
|
||||
@ -511,7 +511,7 @@
|
||||
{
|
||||
return u2nt
|
||||
(c3__ktls,
|
||||
j2_mcy(Pt6, al, bunt)(_al_core(ter, p_gen), p_gen),
|
||||
u2_cqfl_bunt(_al_core(ter, p_gen), p_gen),
|
||||
u2k(q_gen));
|
||||
}
|
||||
/***
|
||||
@ -531,7 +531,7 @@
|
||||
c3__tsgr,
|
||||
u2nc(
|
||||
c3__brcn,
|
||||
j2_mcc(Pt4, by, put)(q_gen, u2_blip, diz)),
|
||||
u2_cqdb_put(q_gen, u2_blip, diz)),
|
||||
u2nc(c3__cnzy, u2_blip));
|
||||
|
||||
u2z(diz);
|
||||
@ -867,7 +867,7 @@
|
||||
/** rake
|
||||
**/
|
||||
u2_noun
|
||||
j2_mcy(Pt6, ap, rake)(
|
||||
u2_cqfp_rake(
|
||||
u2_noun gen)
|
||||
{
|
||||
u2_noun p_gen, q_gen;
|
||||
@ -903,7 +903,7 @@
|
||||
if ( u2_no == u2_cr_cell(u2t(gen), &p_gen, &q_gen) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
}
|
||||
else return j2_mcy(Pt6, ap, rake)(q_gen);
|
||||
else return u2_cqfp_rake(q_gen);
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -916,14 +916,14 @@
|
||||
if ( u2_none == (gen = u2_cr_at(u2_cv_sam, cor)) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mcy(Pt6, ap, rake)(gen);
|
||||
return u2_cqfp_rake(gen);
|
||||
}
|
||||
}
|
||||
|
||||
/** hack
|
||||
**/
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ap, hack)(
|
||||
u2_cqfp_hack(
|
||||
u2_noun ter, // retain
|
||||
u2_noun gen) // retain
|
||||
{
|
||||
@ -942,7 +942,7 @@
|
||||
return u2nc(u2_no, u2k(gen));
|
||||
}
|
||||
else {
|
||||
u2_noun pyr = j2_mcy(Pt6, ap, hack)(ter, q_gen);
|
||||
u2_noun pyr = u2_cqfp_hack(ter, q_gen);
|
||||
|
||||
if ( u2_yes == u2h(pyr) ) {
|
||||
ret = u2nt
|
||||
@ -967,7 +967,7 @@
|
||||
}
|
||||
case c3__zpcb: u2_cx_cell(u2t(gen), &p_gen, &q_gen);
|
||||
{
|
||||
u2_noun pyr = j2_mcy(Pt6, ap, hack)(ter, q_gen);
|
||||
u2_noun pyr = u2_cqfp_hack(ter, q_gen);
|
||||
|
||||
if ( u2_yes == u2h(pyr) ) {
|
||||
ret = u2nt
|
||||
@ -1002,7 +1002,7 @@
|
||||
return u2nc(u2_no, voq);
|
||||
}
|
||||
else {
|
||||
ret = j2_mcy(Pt6, ap, hack)(ter, voq);
|
||||
ret = u2_cqfp_hack(ter, voq);
|
||||
|
||||
u2z(voq);
|
||||
return ret;
|
||||
@ -1021,7 +1021,7 @@
|
||||
} else {
|
||||
u2_noun ter = u2_cr_at(u2_cv_con, cor);
|
||||
|
||||
return j2_mcy(Pt6, ap, hack)(ter, gen);
|
||||
return u2_cqfp_hack(ter, gen);
|
||||
}
|
||||
}
|
||||
|
||||
@ -1072,7 +1072,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ap, open)(
|
||||
u2_cqfp_open(
|
||||
u2_noun ter, // retain
|
||||
u2_noun gen) // retain
|
||||
{
|
||||
@ -1111,7 +1111,7 @@
|
||||
} else {
|
||||
u2_noun ter = u2_cr_at(u2_cv_con, cor);
|
||||
|
||||
return j2_mcy(Pt6, ap, open)(ter, gen);
|
||||
return u2_cqfp_open(ter, gen);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt6, bull)(
|
||||
u2_cqf_bull(
|
||||
u2_noun bid, // retain
|
||||
u2_noun der) // retain
|
||||
{
|
||||
@ -29,7 +29,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &bid, u2_cv_sam_3, &der, 0) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, bull)(bid, der);
|
||||
return u2_cqf_bull(bid, der);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt6, cell)(
|
||||
u2_cqf_cell(
|
||||
u2_noun hed, // retain
|
||||
u2_noun tal) // retain
|
||||
{
|
||||
@ -27,7 +27,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &hed, u2_cv_sam_3, &tal, 0) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, cell)(hed, tal);
|
||||
return u2_cqf_cell(hed, tal);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mbc(Pt6, comb)(
|
||||
u2_cqf_comb(
|
||||
u2_noun mal, // retain
|
||||
u2_noun buz) // retain
|
||||
{
|
||||
@ -22,7 +22,7 @@
|
||||
if ( (u2_yes == u2_cr_p(buz, 0, &p_buz)) && (0 != p_buz) ) {
|
||||
return u2nc(
|
||||
0,
|
||||
j2_mbc(Pt3, peg)(p_mal, p_buz));
|
||||
u2_cqc_peg(p_mal, p_buz));
|
||||
}
|
||||
else if ( u2_yes == u2_cr_pq(buz, 2, &p_buz, &q_buz) &&
|
||||
u2_yes == u2_cr_p(p_buz, 0, &pp_buz) &&
|
||||
@ -31,9 +31,9 @@
|
||||
return u2nt
|
||||
(2,
|
||||
u2nc(0,
|
||||
j2_mbc(Pt3, peg)(p_mal, pp_buz)),
|
||||
u2_cqc_peg(p_mal, pp_buz)),
|
||||
u2nc(0,
|
||||
j2_mbc(Pt3, peg)(p_mal, pq_buz)));
|
||||
u2_cqc_peg(p_mal, pq_buz)));
|
||||
}
|
||||
else return u2nt(7, u2k(mal),
|
||||
u2k(buz));
|
||||
@ -67,7 +67,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &mal, u2_cv_sam_3, &buz, 0) ) {
|
||||
return u2_none;
|
||||
} else {
|
||||
return j2_mbc(Pt6, comb)(mal, buz);
|
||||
return u2_cqf_comb(mal, buz);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt6, cons)(
|
||||
u2_cqf_cons(
|
||||
u2_noun vur, // retain
|
||||
u2_noun sed) // retain
|
||||
{
|
||||
@ -26,8 +26,8 @@
|
||||
!(u2_yes == u2_cr_sing(p_vur, p_sed)) &&
|
||||
(0 == u2_cr_nord(p_vur, p_sed)) )
|
||||
{
|
||||
u2_atom fub = j2_mbc(Pt1, div)(p_vur, 2);
|
||||
u2_atom nof = j2_mbc(Pt1, div)(p_sed, 2);
|
||||
u2_atom fub = u2_cqa_div(p_vur, 2);
|
||||
u2_atom nof = u2_cqa_div(p_sed, 2);
|
||||
|
||||
if ( u2_yes == u2_cr_sing(fub, nof) ) {
|
||||
u2z(nof);
|
||||
@ -50,7 +50,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &vur, u2_cv_sam_3, &sed, 0) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, cons)(vur, sed);
|
||||
return u2_cqf_cons(vur, sed);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt6, core)(
|
||||
u2_cqf_core(
|
||||
u2_noun pac, // retain
|
||||
u2_noun con) // retain
|
||||
{
|
||||
@ -27,7 +27,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &pac, u2_cv_sam_3, &con, 0) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, core)(pac, con);
|
||||
return u2_cqf_core(pac, con);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt6, cube)(
|
||||
u2_cqf_cube(
|
||||
u2_noun dil, // retain
|
||||
u2_noun goq) // retain
|
||||
{
|
||||
@ -27,7 +27,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &dil, u2_cv_sam_3, &goq, 0) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, cube)(dil, goq);
|
||||
return u2_cqf_cube(dil, goq);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt6, face)(
|
||||
u2_cqf_face(
|
||||
u2_noun cog, // retain
|
||||
u2_noun tip) // retain
|
||||
{
|
||||
@ -27,7 +27,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &cog, u2_cv_sam_3, &tip, 0) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, face)(cog, tip);
|
||||
return u2_cqf_face(cog, tip);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt6, fine)(
|
||||
u2_cqf_fine(
|
||||
u2_noun fuv,
|
||||
u2_noun lup, // retain
|
||||
u2_noun mar) // retain
|
||||
@ -32,7 +32,7 @@
|
||||
u2_cv_sam_7, &mar, 0) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, fine)(fuv, lup, mar);
|
||||
return u2_cqf_fine(fuv, lup, mar);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -31,7 +31,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt6, fitz)(
|
||||
u2_cqf_fitz(
|
||||
u2_noun yaz, // retain
|
||||
u2_noun wix) // retain
|
||||
{
|
||||
@ -66,7 +66,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, fitz)(yaz, wix);
|
||||
return u2_cqf_fitz(yaz, wix);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt6, flan)(
|
||||
u2_cqf_flan(
|
||||
u2_noun bos, // retain
|
||||
u2_noun nif) // retain
|
||||
{
|
||||
@ -43,7 +43,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &bos, u2_cv_sam_3, &nif, 0) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, flan)(bos, nif);
|
||||
return u2_cqf_flan(bos, nif);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -15,7 +15,7 @@
|
||||
return c3__void;
|
||||
} else {
|
||||
u2_noun voo = _flay_roll(u2t(quz));
|
||||
u2_noun oon = j2_mby(Pt6, fork)(u2h(u2h(quz)), voo);
|
||||
u2_noun oon = u2_cqf_fork(u2h(u2h(quz)), voo);
|
||||
|
||||
u2z(voo);
|
||||
return oon;
|
||||
@ -23,7 +23,7 @@
|
||||
}
|
||||
|
||||
u2_noun // produce
|
||||
j2_mby(Pt6, flay)(
|
||||
u2_cqf_flay(
|
||||
u2_noun pok) // retain
|
||||
{
|
||||
u2_noun p_pok = u2h(pok);
|
||||
@ -51,7 +51,7 @@
|
||||
(u2_no == u2du(pok)) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, flay)(pok);
|
||||
return u2_cqf_flay(pok);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt6, flip)(
|
||||
u2_cqf_flip(
|
||||
u2_noun hel) // retain
|
||||
{
|
||||
if ( u2_yes == u2_cr_sing(1, u2h(hel)) ) {
|
||||
@ -38,7 +38,7 @@
|
||||
if ( u2_none == (hel = u2_cr_at(u2_cv_sam, cor)) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, flip)(hel);
|
||||
return u2_cqf_flip(hel);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt6, flor)(
|
||||
u2_cqf_flor(
|
||||
u2_noun bos, // retain
|
||||
u2_noun nif) // retain
|
||||
{
|
||||
@ -43,7 +43,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &bos, u2_cv_sam_3, &nif, 0) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, flor)(bos, nif);
|
||||
return u2_cqf_flor(bos, nif);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt6, fork)(
|
||||
u2_cqf_fork(
|
||||
u2_noun hoz, // retain
|
||||
u2_noun bur) // retain
|
||||
{
|
||||
@ -33,7 +33,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &hoz, u2_cv_sam_3, &bur, 0) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, fork)(hoz, bur);
|
||||
return u2_cqf_fork(hoz, bur);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -45,9 +45,9 @@
|
||||
|
||||
{
|
||||
if ( (1 != axis) &&
|
||||
(u2_yes == u2_cr_sing(2, j2_mbc(Pt3, cap)(axis))) )
|
||||
(u2_yes == u2_cr_sing(2, u2_cqc_cap(axis))) )
|
||||
{
|
||||
u2_atom axis_tap = j2_mbc(Pt3, mas)(axis);
|
||||
u2_atom axis_tap = u2_cqc_mas(axis);
|
||||
|
||||
return u2nc(
|
||||
u2nc(
|
||||
@ -76,9 +76,9 @@
|
||||
|
||||
{
|
||||
if ( (1 != axis) &&
|
||||
(u2_yes == u2_cr_sing(3, j2_mbc(Pt3, cap)(axis))) )
|
||||
(u2_yes == u2_cr_sing(3, u2_cqc_cap(axis))) )
|
||||
{
|
||||
u2_atom axis_tap = j2_mbc(Pt3, mas)(axis);
|
||||
u2_atom axis_tap = u2_cqc_mas(axis);
|
||||
|
||||
return u2nc(
|
||||
u2nc(u2k(axis_tap),
|
||||
@ -93,7 +93,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt6, hike)(
|
||||
u2_cqf_hike(
|
||||
u2_noun axe, // retain
|
||||
u2_noun pac) // retain
|
||||
{
|
||||
@ -112,11 +112,11 @@
|
||||
else {
|
||||
u2_noun tum = _lily_hike_belt_l(pac);
|
||||
u2_noun gam = _lily_hike_belt_r(pac);
|
||||
u2_noun hax = j2_mbc(Pt3, peg)(axe, 2);
|
||||
u2_noun moz = j2_mbc(Pt3, peg)(axe, 3);
|
||||
u2_noun zip = j2_mby(Pt6, hike)(hax, tum);
|
||||
u2_noun dof = j2_mby(Pt6, hike)(moz, gam);
|
||||
u2_noun fol = j2_mby(Pt6, cons)(zip, dof);
|
||||
u2_noun hax = u2_cqc_peg(axe, 2);
|
||||
u2_noun moz = u2_cqc_peg(axe, 3);
|
||||
u2_noun zip = u2_cqf_hike(hax, tum);
|
||||
u2_noun dof = u2_cqf_hike(moz, gam);
|
||||
u2_noun fol = u2_cqf_cons(zip, dof);
|
||||
|
||||
u2z(tum);
|
||||
u2z(gam);
|
||||
@ -140,7 +140,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, hike)(axe, pac);
|
||||
return u2_cqf_hike(axe, pac);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -42,17 +42,17 @@
|
||||
if ( (u2_yes == u2du(qn_dab)) &&
|
||||
(u2_yes == u2_cr_sing(cog, pn_dab)) ) {
|
||||
return u2nt(u2_nul,
|
||||
j2_mbc(Pt3, peg)(axe, 2),
|
||||
u2_cqc_peg(axe, 2),
|
||||
u2k(qn_dab));
|
||||
}
|
||||
else {
|
||||
if ( u2_yes == j2_mbc(Pt3, gor)(cog, pn_dab) ) {
|
||||
if ( u2_yes == u2_cqc_gor(cog, pn_dab) ) {
|
||||
return u2_nul;
|
||||
}
|
||||
else {
|
||||
u2_noun pro;
|
||||
|
||||
axe = j2_mbc(Pt3, peg)(axe, 3);
|
||||
axe = u2_cqc_peg(axe, 3);
|
||||
pro = _look_in(cog, r_dab, axe);
|
||||
u2z(axe);
|
||||
return pro;
|
||||
@ -63,14 +63,14 @@
|
||||
if ( (u2_yes == u2du(qn_dab)) &&
|
||||
(u2_yes == u2_cr_sing(cog, pn_dab)) ) {
|
||||
return u2nt(u2_nul,
|
||||
j2_mbc(Pt3, peg)(axe, 2),
|
||||
u2_cqc_peg(axe, 2),
|
||||
u2k(qn_dab));
|
||||
}
|
||||
else {
|
||||
if ( u2_yes == j2_mbc(Pt3, gor)(cog, pn_dab) ) {
|
||||
if ( u2_yes == u2_cqc_gor(cog, pn_dab) ) {
|
||||
u2_noun pro;
|
||||
|
||||
axe = j2_mbc(Pt3, peg)(axe, 3);
|
||||
axe = u2_cqc_peg(axe, 3);
|
||||
pro = _look_in(cog, l_dab, axe);
|
||||
u2z(axe);
|
||||
return pro;
|
||||
@ -84,14 +84,14 @@
|
||||
if ( (u2_yes == u2du(qn_dab)) &&
|
||||
(u2_yes == u2_cr_sing(cog, pn_dab)) ) {
|
||||
return u2nt(u2_nul,
|
||||
j2_mbc(Pt3, peg)(axe, 2),
|
||||
u2_cqc_peg(axe, 2),
|
||||
u2k(qn_dab));
|
||||
}
|
||||
else {
|
||||
if ( u2_yes == j2_mbc(Pt3, gor)(cog, pn_dab) ) {
|
||||
if ( u2_yes == u2_cqc_gor(cog, pn_dab) ) {
|
||||
u2_noun pro;
|
||||
|
||||
axe = j2_mbc(Pt3, peg)(axe, 6);
|
||||
axe = u2_cqc_peg(axe, 6);
|
||||
pro = _look_in(cog, l_dab, axe);
|
||||
u2z(axe);
|
||||
return pro;
|
||||
@ -99,7 +99,7 @@
|
||||
else {
|
||||
u2_noun pro;
|
||||
|
||||
axe = j2_mbc(Pt3, peg)(axe, 7);
|
||||
axe = u2_cqc_peg(axe, 7);
|
||||
pro = _look_in(cog, r_dab, axe);
|
||||
u2z(axe);
|
||||
return pro;
|
||||
@ -114,7 +114,7 @@
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt6, look)(
|
||||
u2_cqf_look(
|
||||
u2_noun cog, // retain
|
||||
u2_noun dab) // retain
|
||||
{
|
||||
@ -129,7 +129,7 @@
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_2, &cog, u2_cv_sam_3, &dab, 0) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, look)(cog, dab);
|
||||
return u2_cqf_look(cog, dab);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -20,7 +20,7 @@
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
u2_noun typ = j2_mcy(Pt6, ut, peek)(
|
||||
u2_noun typ = u2_cqfu_peek(
|
||||
}
|
||||
c3_w i_w, met_w = c3_min(u2_cr_met(3, axe), u2_cr_met(3, vax));
|
||||
|
||||
|
||||
@ -31,7 +31,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mby(Pt6, fitz)(
|
||||
u2_cqf_fitz(
|
||||
u2_noun yaz, // retain
|
||||
u2_noun wix) // retain
|
||||
{
|
||||
@ -66,7 +66,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(Pt6, fitz)(yaz, wix);
|
||||
return u2_cqf_fitz(yaz, wix);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -33,7 +33,7 @@
|
||||
// duck: create a duck core for mean.
|
||||
//
|
||||
u2_noun // produce
|
||||
j2_mcy(Pt6, ut, duck)(
|
||||
u2_cqfu_duck(
|
||||
u2_noun van, // retain
|
||||
u2_noun typ) // retain
|
||||
{
|
||||
@ -47,7 +47,7 @@
|
||||
// dung: create a dunk core for mean (noun caption)
|
||||
//
|
||||
u2_noun // produce
|
||||
j2_mcy(Pt6, ut, dung)(
|
||||
u2_cqfu_dung(
|
||||
u2_noun van, // retain
|
||||
u2_noun paz, // retain
|
||||
u2_noun typ) // retain
|
||||
@ -64,7 +64,7 @@
|
||||
// dunq: create a dunk core for mean
|
||||
//
|
||||
u2_noun // produce
|
||||
j2_mcy(Pt6, ut, dunq)(
|
||||
u2_cqfu_dunq(
|
||||
u2_noun van, // retain
|
||||
const c3_c* paz_c, // retain
|
||||
u2_noun typ) // retain
|
||||
@ -83,7 +83,7 @@
|
||||
// shew: create a show core for mean
|
||||
//
|
||||
u2_noun // produce
|
||||
j2_mcy(Pt6, ut, shew)(
|
||||
u2_cqfu_shew(
|
||||
u2_noun van, // retain
|
||||
u2_noun mol) // submit
|
||||
{
|
||||
@ -98,13 +98,13 @@
|
||||
// shep: show with caption and style
|
||||
//
|
||||
u2_noun // produce
|
||||
j2_mcy(Pt6, ut, shep)(
|
||||
u2_cqfu_shep(
|
||||
u2_noun van, // retain
|
||||
const c3_c* paz_c, // retain
|
||||
u2_noun sty, // retain
|
||||
u2_noun mol) // submit
|
||||
{
|
||||
return j2_mcy(Pt6, ut, shew)
|
||||
return u2_cqfu_shew
|
||||
(van,
|
||||
u2nc
|
||||
(u2nc('c', u2_ci_string(paz_c)),
|
||||
|
||||
@ -59,15 +59,15 @@
|
||||
}
|
||||
case c3__hold: p_sut = u2t(sut);
|
||||
{
|
||||
if ( (u2_yes == j2_mcc(Pt4, in, has)(gil, sut)) ) {
|
||||
u2_noun sux = j2_mcy(Pt6, ut, dunq)(van, "type", sut);
|
||||
if ( (u2_yes == u2_cqdi_has(gil, sut)) ) {
|
||||
u2_noun sux = u2_cqfu_dunq(van, "type", sut);
|
||||
|
||||
u2_ct_push(u2nc(c3__mean, sux));
|
||||
return u2_cm_error("burn-loop");
|
||||
}
|
||||
else {
|
||||
u2_noun zoc = j2_mcc(Pt4, in, put)(gil, sut);
|
||||
u2_noun fop = j2_mcy(Pt6, ut, repo)(van, sut);
|
||||
u2_noun zoc = u2_cqdi_put(gil, sut);
|
||||
u2_noun fop = u2_cqfu_repo(van, sut);
|
||||
u2_noun pro = _burn_in(van, fop, zoc);
|
||||
|
||||
u2z(fop);
|
||||
@ -91,7 +91,7 @@
|
||||
j2_mbj(Pt6, ut)[];
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ut, burn)(
|
||||
u2_cqfu_burn(
|
||||
u2_noun van, // retain
|
||||
u2_noun sut) // retain
|
||||
{
|
||||
@ -124,6 +124,6 @@
|
||||
if ( u2_none == (sut = u2_cr_at(u2_cv_sam, cor)) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mcy(Pt6, ut, burn)(cor, sut);
|
||||
return u2_cqfu_burn(cor, sut);
|
||||
}
|
||||
}
|
||||
|
||||
@ -17,9 +17,9 @@
|
||||
u2_noun cog, // retain
|
||||
u2_noun hyp) // retain
|
||||
{
|
||||
u2_noun sep = j2_mcy(Pt6, ut, seep)(van, sut, c3__both, hyp);
|
||||
u2_noun sep = u2_cqfu_seep(van, sut, c3__both, hyp);
|
||||
u2_noun bid = u2nt(u2k(cog), u2k(hyp), sep);
|
||||
u2_noun ret = j2_mby(Pt6, bull)(bid, sut);
|
||||
u2_noun ret = u2_cqf_bull(bid, sut);
|
||||
|
||||
u2z(bid);
|
||||
|
||||
@ -47,7 +47,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ut, busk)(u2_noun van, // retain
|
||||
u2_cqfu_busk(u2_noun van, // retain
|
||||
u2_noun sut, // retain
|
||||
u2_noun cog, // retain
|
||||
u2_noun hyp) // retain
|
||||
|
||||
@ -13,14 +13,14 @@
|
||||
u2_noun sut, // retain
|
||||
u2_noun dib) // retain
|
||||
{
|
||||
u2_noun yam = j2_mcy(Pt6, ut, burn)(van, sut);
|
||||
u2_noun yam = u2_cqfu_burn(van, sut);
|
||||
u2_noun yib = u2nc
|
||||
(
|
||||
u2nc(u2k(u2h(u2h(yam))),
|
||||
u2k(dib)),
|
||||
u2k(u2t(yam)));
|
||||
u2_noun woo = u2nc(c3__cnzy, u2_blip);
|
||||
u2_noun wox = j2_mcy(Pt6, ut, mint)(van, sut, c3__noun, woo);
|
||||
u2_noun wox = u2_cqfu_mint(van, sut, c3__noun, woo);
|
||||
u2_noun ret = u2_cn_nock_on(yib, u2k(u2t(wox)));
|
||||
|
||||
if ( u2_none == ret ) {
|
||||
@ -53,7 +53,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ut, bust)(u2_noun van, // retain
|
||||
u2_cqfu_bust(u2_noun van, // retain
|
||||
u2_noun sut, // retain
|
||||
u2_noun dib) // retain
|
||||
{
|
||||
|
||||
@ -14,7 +14,7 @@
|
||||
u2_noun got) // retain
|
||||
{
|
||||
if ( u2_yes == u2ud(got) ) {
|
||||
return j2_mby(Pt6, face)(got, sut);
|
||||
return u2_cqf_face(got, sut);
|
||||
}
|
||||
else switch ( u2h(got) ) {
|
||||
default: return u2_cm_bail(c3__fail);
|
||||
@ -23,7 +23,7 @@
|
||||
return u2k(sut);
|
||||
}
|
||||
case 1: {
|
||||
return j2_mby(Pt6, face)
|
||||
return u2_cqf_face
|
||||
(u2h(u2t(got)),
|
||||
j2_mcx(Pt6, ut, conk)(van, sut, u2t(u2t(got))));
|
||||
}
|
||||
@ -34,15 +34,15 @@
|
||||
if ( u2_yes == vet ) {
|
||||
u2_noun cel = u2nt(c3__cell, c3__noun, c3__noun);
|
||||
|
||||
if ( u2_no == j2_mcy(Pt6, ut, nest)(van, cel, u2_yes, sut) ) {
|
||||
if ( u2_no == u2_cqfu_nest(van, cel, u2_yes, sut) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
}
|
||||
u2z(cel);
|
||||
}
|
||||
hed = j2_mcy(Pt6, ut, peek)(van, sut, c3__both, 2);
|
||||
tal = j2_mcy(Pt6, ut, peek)(van, sut, c3__both, 3);
|
||||
hed = u2_cqfu_peek(van, sut, c3__both, 2);
|
||||
tal = u2_cqfu_peek(van, sut, c3__both, 3);
|
||||
|
||||
ret = j2_mby(Pt6, cell)
|
||||
ret = u2_cqf_cell
|
||||
(
|
||||
j2_mcx(Pt6, ut, conk)(van, hed, u2h(u2t(got))),
|
||||
j2_mcx(Pt6, ut, conk)(van, tal, u2t(u2t(got))));
|
||||
@ -77,7 +77,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ut, conk)(u2_noun van, // retain
|
||||
u2_cqfu_conk(u2_noun van, // retain
|
||||
u2_noun sut, // retain
|
||||
u2_noun got) // retain
|
||||
{
|
||||
|
||||
@ -19,7 +19,7 @@
|
||||
u2_noun ref,
|
||||
u2_noun bix)
|
||||
{
|
||||
u2_noun rep = j2_mcy(Pt6, ut, repo)(van, sut);
|
||||
u2_noun rep = u2_cqfu_repo(van, sut);
|
||||
u2_noun ret = _crop_dext(van, rep, ref, bix);
|
||||
|
||||
if ( u2_yes == u2_cr_sing(ret, rep) ) {
|
||||
@ -77,7 +77,7 @@
|
||||
case c3__bull: u2_cx_cell(u2t(sut), &p_sut, &q_sut);
|
||||
{
|
||||
u2_noun foz = _crop_dext(van, q_sut, ref, bix);
|
||||
u2_noun ret = j2_mby(Pt6, bull)(p_sut, foz);
|
||||
u2_noun ret = u2_cqf_bull(p_sut, foz);
|
||||
|
||||
u2z(foz);
|
||||
return ret;
|
||||
@ -90,11 +90,11 @@
|
||||
else if ( c3__cell == u2h(ref) ) {
|
||||
u2_cx_cell(u2t(ref), &p_ref, &q_ref);
|
||||
|
||||
if ( u2_yes == j2_mcy(Pt6, ut, nest)
|
||||
if ( u2_yes == u2_cqfu_nest
|
||||
(van, p_ref, u2_no, p_sut) )
|
||||
{
|
||||
u2_noun foz = _crop_dext(van, q_sut, q_ref, bix);
|
||||
u2_noun ret = j2_mby(Pt6, cell)(p_sut, foz);
|
||||
u2_noun ret = u2_cqf_cell(p_sut, foz);
|
||||
|
||||
u2z(foz);
|
||||
return ret;
|
||||
@ -121,8 +121,8 @@
|
||||
u2_noun foz = _crop_dext(van, q_sut, ref, bix);
|
||||
u2_noun ret;
|
||||
|
||||
if ( u2_yes == j2_mcy(Pt6, ut, firm)(van, foz, p_sut) ) {
|
||||
ret = j2_mby(Pt6, cube)(p_sut, foz);
|
||||
if ( u2_yes == u2_cqfu_firm(van, foz, p_sut) ) {
|
||||
ret = u2_cqf_cube(p_sut, foz);
|
||||
}
|
||||
else ret = c3__void;
|
||||
|
||||
@ -134,7 +134,7 @@
|
||||
case c3__face: u2_cx_cell(u2t(sut), &p_sut, &q_sut);
|
||||
{
|
||||
u2_noun foz = _crop_dext(van, q_sut, ref, bix);
|
||||
u2_noun ret = j2_mby(Pt6, face)(p_sut, foz);
|
||||
u2_noun ret = u2_cqf_face(p_sut, foz);
|
||||
|
||||
u2z(foz);
|
||||
return ret;
|
||||
@ -143,7 +143,7 @@
|
||||
{
|
||||
u2_noun dis = _crop_dext(van, p_sut, ref, bix);
|
||||
u2_noun dat = _crop_dext(van, q_sut, ref, bix);
|
||||
u2_noun ret = j2_mby(Pt6, fork)(dis, dat);
|
||||
u2_noun ret = u2_cqf_fork(dis, dat);
|
||||
|
||||
u2z(dis);
|
||||
u2z(dat);
|
||||
@ -153,10 +153,10 @@
|
||||
{
|
||||
u2_noun hud = u2nc(u2k(sut), u2k(ref));
|
||||
|
||||
if ( u2_yes == j2_mcc(Pt4, in, has)(bix, hud) ) {
|
||||
if ( u2_yes == u2_cqdi_has(bix, hud) ) {
|
||||
# if 0
|
||||
u2_noun dun = j2_mcy(Pt6, ut, dunq)(van, "type", sut);
|
||||
u2_noun niz = j2_mcy(Pt6, ut, dunq)(van, "over", ref);
|
||||
u2_noun dun = u2_cqfu_dunq(van, "type", sut);
|
||||
u2_noun niz = u2_cqfu_dunq(van, "over", ref);
|
||||
|
||||
u2_ct_push(u2nc(c3__mean, dun));
|
||||
u2_ct_push(u2nc(c3__mean, niz));
|
||||
@ -164,7 +164,7 @@
|
||||
|
||||
return u2_cm_error("crop-loop");
|
||||
} else {
|
||||
u2_noun bux = j2_mcc(Pt4, in, put)(bix, hud);
|
||||
u2_noun bux = u2_cqdi_put(bix, hud);
|
||||
u2_noun ret = _crop_repo(van, sut, ref, bux);
|
||||
|
||||
u2z(hud);
|
||||
@ -209,7 +209,7 @@
|
||||
}
|
||||
case c3__hold: p_ref = u2t(ref);
|
||||
{
|
||||
u2_noun rep = j2_mcy(Pt6, ut, repo)(van, ref);
|
||||
u2_noun rep = u2_cqfu_repo(van, ref);
|
||||
u2_noun ret = _crop_dext(van, sut, rep, bix);
|
||||
|
||||
u2z(rep);
|
||||
@ -248,7 +248,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ut, crop)(u2_noun van, // retain
|
||||
u2_cqfu_crop(u2_noun van, // retain
|
||||
u2_noun sut, // retain
|
||||
u2_noun ref) // retain
|
||||
{
|
||||
|
||||
@ -27,7 +27,7 @@
|
||||
default: return u2_cm_bail(c3__fail);
|
||||
|
||||
case c3__noun: {
|
||||
u2_noun pyr = j2_mcy(Pt6, ut, repo)(van, sut);
|
||||
u2_noun pyr = u2_cqfu_repo(van, sut);
|
||||
u2_noun yot = j2_mcx(Pt6, ut, cull)(van, pyr, pol, axe, ref);
|
||||
|
||||
if ( u2_yes == u2_cr_sing(pyr, yot) ) {
|
||||
@ -58,7 +58,7 @@
|
||||
if ( u2_yes == u2_cr_sing(hic, q_sut) ) {
|
||||
ret = u2k(sut);
|
||||
} else {
|
||||
ret = j2_mby(Pt6, bull)(p_sut, hic);
|
||||
ret = u2_cqf_bull(p_sut, hic);
|
||||
}
|
||||
u2z(hic);
|
||||
|
||||
@ -70,10 +70,10 @@
|
||||
|
||||
if ( 2 == now ) {
|
||||
hub = j2_mcx(Pt6, ut, cull)(van, p_sut, pol, lat, ref);
|
||||
ret = j2_mby(Pt6, cell)(hub, q_sut);
|
||||
ret = u2_cqf_cell(hub, q_sut);
|
||||
} else {
|
||||
hub = j2_mcx(Pt6, ut, cull)(van, q_sut, pol, lat, ref);
|
||||
ret = j2_mby(Pt6, cell)(p_sut, hub);
|
||||
ret = u2_cqf_cell(p_sut, hub);
|
||||
}
|
||||
u2z(hub);
|
||||
break;
|
||||
@ -86,7 +86,7 @@
|
||||
u2_noun hub = j2_mcx(Pt6, ut, cull)
|
||||
(van, p_sut, pol, lat, ref);
|
||||
|
||||
ret = j2_mby(Pt6, core)(hub, q_sut);
|
||||
ret = u2_cqf_core(hub, q_sut);
|
||||
|
||||
u2z(hub);
|
||||
}
|
||||
@ -100,7 +100,7 @@
|
||||
if ( u2_yes == u2_cr_sing(hic, q_sut) ) {
|
||||
ret = u2k(sut);
|
||||
} else {
|
||||
ret = j2_mby(Pt6, face)(p_sut, hic);
|
||||
ret = u2_cqf_face(p_sut, hic);
|
||||
}
|
||||
u2z(hic);
|
||||
|
||||
@ -108,16 +108,16 @@
|
||||
}
|
||||
case c3__fork: u2_cx_cell(u2t(sut), &p_sut, &q_sut);
|
||||
{
|
||||
if ( u2_yes == j2_mcc(Pt4, in, has)(vil, sut) ) {
|
||||
if ( u2_yes == u2_cqdi_has(vil, sut) ) {
|
||||
return c3__void;
|
||||
} else {
|
||||
u2_noun zoc = j2_mcc(Pt4, in, put)(vil, sut);
|
||||
u2_noun zoc = u2_cqdi_put(vil, sut);
|
||||
u2_noun sin = _cull_in
|
||||
(van, p_sut, pol, axe, ref, now, lat, zoc);
|
||||
u2_noun dex = _cull_in
|
||||
(van, q_sut, pol, axe, ref, now, lat, zoc);
|
||||
|
||||
ret = j2_mby(Pt6, fork)(sin, dex);
|
||||
ret = u2_cqf_fork(sin, dex);
|
||||
u2z(sin);
|
||||
u2z(dex);
|
||||
u2z(zoc);
|
||||
@ -128,7 +128,7 @@
|
||||
case c3__cube:
|
||||
case c3__hold:
|
||||
{
|
||||
u2_noun pyr = j2_mcy(Pt6, ut, repo)(van, sut);
|
||||
u2_noun pyr = u2_cqfu_repo(van, sut);
|
||||
u2_noun yot = _cull_in(van, pyr, pol, axe, ref, now, lat, vil);
|
||||
|
||||
if ( u2_yes == u2_cr_sing(pyr, yot) ) {
|
||||
@ -158,13 +158,13 @@
|
||||
{
|
||||
if ( 1 == axe ) {
|
||||
if ( u2_yes == pol ) {
|
||||
return j2_mcy(Pt6, ut, fuse)(van, sut, ref);
|
||||
return u2_cqfu_fuse(van, sut, ref);
|
||||
} else {
|
||||
return j2_mcy(Pt6, ut, crop)(van, sut, ref);
|
||||
return u2_cqfu_crop(van, sut, ref);
|
||||
}
|
||||
} else {
|
||||
u2_atom now = j2_mbc(Pt3, cap)(axe);
|
||||
u2_atom lat = j2_mbc(Pt3, mas)(axe);
|
||||
u2_atom now = u2_cqc_cap(axe);
|
||||
u2_atom lat = u2_cqc_mas(axe);
|
||||
|
||||
return _cull_in(van, sut, pol, axe, ref, now, lat, u2_nul);
|
||||
}
|
||||
@ -194,7 +194,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ut, cull)(u2_noun van, // retain
|
||||
u2_cqfu_cull(u2_noun van, // retain
|
||||
u2_noun sut, // retain
|
||||
u2_bean pol, // retain
|
||||
u2_noun axe, // retain
|
||||
|
||||
@ -45,7 +45,7 @@
|
||||
} else {
|
||||
return _fino_in
|
||||
(
|
||||
van, q_sut, j2_mbc(Pt1, dec)(dep), way, cog, gil);
|
||||
van, q_sut, u2_cqa_dec(dep), way, cog, gil);
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -74,7 +74,7 @@
|
||||
ret = u2nq
|
||||
(u2k(p_bov),
|
||||
u2_nul,
|
||||
j2_mbc(Pt3, peg)(3, puq_bov),
|
||||
u2_cqc_peg(3, puq_bov),
|
||||
u2k(quq_bov));
|
||||
}
|
||||
u2z(bov);
|
||||
@ -86,7 +86,7 @@
|
||||
ret = u2nq
|
||||
(u2k(p_taf),
|
||||
u2_nul,
|
||||
j2_mbc(Pt3, peg)(2, puq_taf),
|
||||
u2_cqc_peg(2, puq_taf),
|
||||
u2k(quq_taf));
|
||||
}
|
||||
u2z(taf);
|
||||
@ -103,12 +103,12 @@
|
||||
{
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
u2_noun zem = j2_mby(Pt6, look)(cog, qrq_sut);
|
||||
u2_noun zem = u2_cqf_look(cog, qrq_sut);
|
||||
|
||||
if ( (u2_nul != zem) && (0 != dep) ) {
|
||||
u2_noun ped;
|
||||
|
||||
ped = j2_mbc(Pt1, dec)(dep);
|
||||
ped = u2_cqa_dec(dep);
|
||||
u2z(dep); dep = ped;
|
||||
|
||||
u2z(zem);
|
||||
@ -130,12 +130,12 @@
|
||||
|
||||
u2_cr_mean(q_taf, 6, &puq_taf, 7, &quq_taf, 0);
|
||||
|
||||
if ( u2_no == j2_mcy(Pt6, ut, park)
|
||||
if ( u2_no == u2_cqfu_park
|
||||
(van, sut, way, puq_taf) )
|
||||
{
|
||||
u2_noun weh = j2_mcy(Pt6, ut, shep)
|
||||
u2_noun weh = u2_cqfu_shep
|
||||
(van, "way", 'a', u2k(way));
|
||||
u2_noun waz = j2_mcy(Pt6, ut, shep)
|
||||
u2_noun waz = u2_cqfu_shep
|
||||
(van, "axis", 'd', u2k(puq_taf));
|
||||
|
||||
u2_ct_push(u2nc(c3__mean, weh));
|
||||
@ -146,7 +146,7 @@
|
||||
pro = u2nq
|
||||
(u2k(p_taf),
|
||||
u2_nul,
|
||||
j2_mbc(Pt3, peg)(3, puq_taf),
|
||||
u2_cqc_peg(3, puq_taf),
|
||||
u2k(quq_taf));
|
||||
|
||||
u2z(taf);
|
||||
@ -175,7 +175,7 @@
|
||||
1,
|
||||
1,
|
||||
u2nc
|
||||
(j2_mbc(Pt3, peg)(2, pu_zem),
|
||||
(u2_cqc_peg(2, pu_zem),
|
||||
u2nc(
|
||||
u2nc(mut, u2k(qu_zem)),
|
||||
u2_nul))));
|
||||
@ -197,13 +197,13 @@
|
||||
u2nq(u2_nul, 1, 0, u2k(q_sut)));
|
||||
} else {
|
||||
return u2nc
|
||||
(j2_mbc(Pt1, dec)(dep), u2_nul);
|
||||
(u2_cqa_dec(dep), u2_nul);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
case c3__cube: {
|
||||
u2_noun fop = j2_mcy(Pt6, ut, repo)(van, sut);
|
||||
u2_noun fop = u2_cqfu_repo(van, sut);
|
||||
u2_noun pro = _fino_in(van, fop, dep, way, cog, gil);
|
||||
|
||||
u2z(fop);
|
||||
@ -214,10 +214,10 @@
|
||||
return u2_cm_bail(c3__fail);
|
||||
}
|
||||
|
||||
if ( (u2_yes == j2_mcc(Pt4, in, has)(gil, q_sut)) ) {
|
||||
if ( (u2_yes == u2_cqdi_has(gil, q_sut)) ) {
|
||||
return _fino_in(van, p_sut, dep, way, cog, gil);
|
||||
}
|
||||
else if ( (u2_yes == j2_mcc(Pt4, in, has)(gil, p_sut)) ) {
|
||||
else if ( (u2_yes == u2_cqdi_has(gil, p_sut)) ) {
|
||||
return _fino_in(van, q_sut, dep, way, cog, gil);
|
||||
}
|
||||
else {
|
||||
@ -262,7 +262,7 @@
|
||||
u2_nul,
|
||||
u2k(puq_hax),
|
||||
0,
|
||||
j2_mby(Pt6, fork)(pquq_hax, pquq_yor)));
|
||||
u2_cqf_fork(pquq_hax, pquq_yor)));
|
||||
break;
|
||||
}
|
||||
case 1: {
|
||||
@ -283,7 +283,7 @@
|
||||
1,
|
||||
u2nc
|
||||
(u2k(pquq_hax),
|
||||
j2_mbc(Pt2, weld)
|
||||
u2_cqb_weld
|
||||
(qquq_hax, qquq_yor))));
|
||||
break;
|
||||
}
|
||||
@ -322,10 +322,10 @@
|
||||
u2k(ppquq_hax),
|
||||
u2k(qpquq_hax),
|
||||
u2k(rpquq_hax),
|
||||
j2_mby(Pt6, fork)(
|
||||
u2_cqf_fork(
|
||||
spquq_hax,
|
||||
spquq_yor)),
|
||||
j2_mby(Pt6, fork)(qquq_hax, qquq_yor))));
|
||||
u2_cqf_fork(qquq_hax, qquq_yor))));
|
||||
break;
|
||||
}
|
||||
}
|
||||
@ -339,12 +339,12 @@
|
||||
}
|
||||
case c3__hold: p_sut = u2t(sut);
|
||||
{
|
||||
if ( (u2_yes == j2_mcc(Pt4, in, has)(gil, sut)) ) {
|
||||
if ( (u2_yes == u2_cqdi_has(gil, sut)) ) {
|
||||
return u2nc(u2k(dep), u2_nul);
|
||||
}
|
||||
else {
|
||||
u2_noun zoc = j2_mcc(Pt4, in, put)(gil, sut);
|
||||
u2_noun fop = j2_mcy(Pt6, ut, repo)(van, sut);
|
||||
u2_noun zoc = u2_cqdi_put(gil, sut);
|
||||
u2_noun fop = u2_cqfu_repo(van, sut);
|
||||
u2_noun pro = _fino_in(van, fop, dep, way, cog, zoc);
|
||||
|
||||
u2z(fop);
|
||||
@ -396,9 +396,9 @@
|
||||
} else {
|
||||
return _find_in
|
||||
(
|
||||
van, q_sut, j2_mbc(Pt1, dec)(dep), way, cog, gil);
|
||||
van, q_sut, u2_cqa_dec(dep), way, cog, gil);
|
||||
return u2nc
|
||||
(j2_mbc(Pt1, dec)(dep), u2_nul);
|
||||
(u2_cqa_dec(dep), u2_nul);
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -427,7 +427,7 @@
|
||||
ret = u2nq
|
||||
(u2k(p_bov),
|
||||
u2_nul,
|
||||
j2_mbc(Pt3, peg)(3, puq_bov),
|
||||
u2_cqc_peg(3, puq_bov),
|
||||
u2k(quq_bov));
|
||||
}
|
||||
u2z(bov);
|
||||
@ -439,7 +439,7 @@
|
||||
ret = u2nq
|
||||
(u2k(p_taf),
|
||||
u2_nul,
|
||||
j2_mbc(Pt3, peg)(2, puq_taf),
|
||||
u2_cqc_peg(2, puq_taf),
|
||||
u2k(quq_taf));
|
||||
}
|
||||
u2z(taf);
|
||||
@ -456,12 +456,12 @@
|
||||
{
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
u2_noun zem = j2_mby(Pt6, look)(cog, qrq_sut);
|
||||
u2_noun zem = u2_cqf_look(cog, qrq_sut);
|
||||
|
||||
if ( (u2_nul != zem) && (0 != dep) ) {
|
||||
u2_noun ped;
|
||||
|
||||
ped = j2_mbc(Pt1, dec)(dep);
|
||||
ped = u2_cqa_dec(dep);
|
||||
u2z(dep); dep = ped;
|
||||
|
||||
u2z(zem);
|
||||
@ -483,12 +483,12 @@
|
||||
|
||||
u2_cr_mean(q_taf, 6, &puq_taf, 7, &quq_taf, 0);
|
||||
|
||||
if ( u2_no == j2_mcy(Pt6, ut, park)
|
||||
if ( u2_no == u2_cqfu_park
|
||||
(van, sut, way, puq_taf) )
|
||||
{
|
||||
u2_noun weh = j2_mcy(Pt6, ut, shep)
|
||||
u2_noun weh = u2_cqfu_shep
|
||||
(van, "way", 'a', u2k(way));
|
||||
u2_noun waz = j2_mcy(Pt6, ut, shep)
|
||||
u2_noun waz = u2_cqfu_shep
|
||||
(van, "axis", 'd', u2k(puq_taf));
|
||||
|
||||
u2_ct_push(u2nc(c3__mean, weh));
|
||||
@ -499,7 +499,7 @@
|
||||
pro = u2nq
|
||||
(u2k(p_taf),
|
||||
u2_nul,
|
||||
j2_mbc(Pt3, peg)(3, puq_taf),
|
||||
u2_cqc_peg(3, puq_taf),
|
||||
u2k(quq_taf));
|
||||
|
||||
u2z(taf);
|
||||
@ -528,7 +528,7 @@
|
||||
1,
|
||||
u2_no,
|
||||
u2nc
|
||||
(j2_mbc(Pt3, peg)(2, pu_zem),
|
||||
(u2_cqc_peg(2, pu_zem),
|
||||
u2nc(
|
||||
u2nc(mut, u2k(qu_zem)),
|
||||
u2_nul))));
|
||||
@ -550,13 +550,13 @@
|
||||
u2nq(u2_nul, 1, u2_yes, u2k(q_sut)));
|
||||
} else {
|
||||
return u2nc
|
||||
(j2_mbc(Pt1, dec)(dep), u2_nul);
|
||||
(u2_cqa_dec(dep), u2_nul);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
case c3__cube: {
|
||||
u2_noun fop = j2_mcy(Pt6, ut, repo)(van, sut);
|
||||
u2_noun fop = u2_cqfu_repo(van, sut);
|
||||
u2_noun pro = _find_in(van, fop, dep, way, cog, gil);
|
||||
|
||||
u2z(fop);
|
||||
@ -567,10 +567,10 @@
|
||||
return u2_cm_bail(c3__fail);
|
||||
}
|
||||
|
||||
if ( (u2_yes == j2_mcc(Pt4, in, has)(gil, q_sut)) ) {
|
||||
if ( (u2_yes == u2_cqdi_has(gil, q_sut)) ) {
|
||||
return _find_in(van, p_sut, dep, way, cog, gil);
|
||||
}
|
||||
else if ( (u2_yes == j2_mcc(Pt4, in, has)(gil, p_sut)) ) {
|
||||
else if ( (u2_yes == u2_cqdi_has(gil, p_sut)) ) {
|
||||
return _find_in(van, q_sut, dep, way, cog, gil);
|
||||
}
|
||||
else {
|
||||
@ -615,7 +615,7 @@
|
||||
u2_nul,
|
||||
u2k(puq_hax),
|
||||
u2_yes,
|
||||
j2_mby(Pt6, fork)(pquq_hax, pquq_yor)));
|
||||
u2_cqf_fork(pquq_hax, pquq_yor)));
|
||||
break;
|
||||
}
|
||||
case u2_no: {
|
||||
@ -636,7 +636,7 @@
|
||||
u2_no,
|
||||
u2nc
|
||||
(u2k(pquq_hax),
|
||||
j2_mbc(Pt2, weld)
|
||||
u2_cqb_weld
|
||||
(qquq_hax, qquq_yor))));
|
||||
break;
|
||||
}
|
||||
@ -651,12 +651,12 @@
|
||||
}
|
||||
case c3__hold: p_sut = u2t(sut);
|
||||
{
|
||||
if ( (u2_yes == j2_mcc(Pt4, in, has)(gil, sut)) ) {
|
||||
if ( (u2_yes == u2_cqdi_has(gil, sut)) ) {
|
||||
return u2nc(u2k(dep), u2_nul);
|
||||
}
|
||||
else {
|
||||
u2_noun zoc = j2_mcc(Pt4, in, put)(gil, sut);
|
||||
u2_noun fop = j2_mcy(Pt6, ut, repo)(van, sut);
|
||||
u2_noun zoc = u2_cqdi_put(gil, sut);
|
||||
u2_noun fop = u2_cqfu_repo(van, sut);
|
||||
u2_noun pro = _find_in(van, fop, dep, way, cog, zoc);
|
||||
|
||||
u2z(fop);
|
||||
@ -795,7 +795,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ut, find)(
|
||||
u2_cqfu_find(
|
||||
u2_noun van, // retain
|
||||
u2_noun sut, // retain
|
||||
u2_noun dep, // retain
|
||||
|
||||
@ -15,21 +15,21 @@
|
||||
u2_noun way, // retain
|
||||
u2_noun cog) // retain
|
||||
{
|
||||
// u2_noun dun = j2_mcy(Pt6, ut, dunq)(van, "type", sut);
|
||||
// u2_noun dun = u2_cqfu_dunq(van, "type", sut);
|
||||
u2_noun nuc = (u2_blip == cog)
|
||||
? j2_mcy(Pt6, ut, shew)
|
||||
? u2_cqfu_shew
|
||||
(van,
|
||||
u2nc
|
||||
(u2nc('c', u2_ci_string("find-limb")),
|
||||
'$'))
|
||||
: j2_mcy(Pt6, ut, shep)
|
||||
: u2_cqfu_shep
|
||||
(van, "find-limb", 'a', u2k(cog));
|
||||
u2_noun pro;
|
||||
|
||||
// u2_ct_push(u2nc(c3__mean, dun));
|
||||
u2_ct_push(u2nc(c3__mean, nuc));
|
||||
{
|
||||
u2_noun hoq = j2_mcy(Pt6, ut, find)(van, sut, dep, way, cog);
|
||||
u2_noun hoq = u2_cqfu_find(van, sut, dep, way, cog);
|
||||
u2_noun fin = u2t(hoq);
|
||||
|
||||
if ( u2_nul == fin ) {
|
||||
@ -70,7 +70,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ut, fink)(
|
||||
u2_cqfu_fink(
|
||||
u2_noun van, // retain
|
||||
u2_noun sut, // retain
|
||||
u2_noun dep,
|
||||
|
||||
@ -19,15 +19,15 @@
|
||||
u2k(gen));
|
||||
u2_bean ret;
|
||||
|
||||
if ( u2_yes == j2_mcc(Pt4, in, has)(rib, key) ) {
|
||||
if ( u2_yes == u2_cqdi_has(rib, key) ) {
|
||||
ret = u2_yes;
|
||||
}
|
||||
else {
|
||||
u2_noun rob = j2_mcc(Pt4, in, put)(rib, key);
|
||||
u2_noun rob = u2_cqdi_put(rib, key);
|
||||
u2_noun von = u2_ci_molt(u2k(van),
|
||||
j2_ut_van_rib, u2k(rob),
|
||||
0);
|
||||
ret = j2_mcy(Pt6, ut, mull)(von, sut, c3__noun, dox, gen);
|
||||
ret = u2_cqfu_mull(von, sut, c3__noun, dox, gen);
|
||||
|
||||
u2z(von);
|
||||
u2z(rob);
|
||||
@ -59,12 +59,12 @@
|
||||
|
||||
if ( c3__ash == u2h(gat) ) {
|
||||
if ( (u2_yes == vet) &&
|
||||
(u2_no == j2_mcy(Pt6, ut, nest)
|
||||
(u2_no == u2_cqfu_nest
|
||||
(van, qq_typ, u2_yes, p_typ)) )
|
||||
{
|
||||
#if 0
|
||||
u2_noun dun = j2_mcy(Pt6, ut, dunq)(van, "need", qq_typ);
|
||||
u2_noun niz = j2_mcy(Pt6, ut, dunq)(van, "have", p_typ);
|
||||
u2_noun dun = u2_cqfu_dunq(van, "need", qq_typ);
|
||||
u2_noun niz = u2_cqfu_dunq(van, "have", p_typ);
|
||||
|
||||
u2_ct_push(u2nc(c3__mean, niz));
|
||||
u2_ct_push(u2nc(c3__mean, dun));
|
||||
@ -83,8 +83,8 @@
|
||||
(u2_no == _fire_mull(van, typ, dox, t_gat)) )
|
||||
{
|
||||
#if 0
|
||||
u2_noun dun = j2_mcy(Pt6, ut, dunq)(van, "wild", typ);
|
||||
u2_noun niz = j2_mcy(Pt6, ut, dunq)(van, "tame", dox);
|
||||
u2_noun dun = u2_cqfu_dunq(van, "wild", typ);
|
||||
u2_noun niz = u2_cqfu_dunq(van, "tame", dox);
|
||||
|
||||
u2_ct_push(u2nc(c3__mean, dun));
|
||||
u2_ct_push(u2nc(c3__mean, niz));
|
||||
@ -171,7 +171,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ut, fire)(u2_noun van, // retain
|
||||
u2_cqfu_fire(u2_noun van, // retain
|
||||
u2_noun sut, // retain
|
||||
u2_noun hag) // retain
|
||||
{
|
||||
|
||||
@ -82,7 +82,7 @@
|
||||
}
|
||||
case c3__hold:
|
||||
{
|
||||
u2_noun goy = j2_mcy(Pt6, ut, repo)(van, sut);
|
||||
u2_noun goy = u2_cqfu_repo(van, sut);
|
||||
u2_noun ret = j2_mcx(Pt6, ut, firm)(van, goy, dib);
|
||||
|
||||
u2z(goy);
|
||||
@ -112,7 +112,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ut, firm)(u2_noun van, // retain
|
||||
u2_cqfu_firm(u2_noun van, // retain
|
||||
u2_noun sut, // retain
|
||||
u2_noun dib) // retain
|
||||
{
|
||||
|
||||
@ -31,7 +31,7 @@
|
||||
|
||||
case c3__atom: {
|
||||
u2_noun ton = u2nt(3, 0, u2k(axe));
|
||||
u2_noun pro = j2_mby(Pt6, flip)(ton);
|
||||
u2_noun pro = u2_cqf_flip(ton);
|
||||
|
||||
u2z(ton);
|
||||
return pro;
|
||||
@ -44,12 +44,12 @@
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
u2_noun hut = u2nt(3, 0, u2k(axe));
|
||||
u2_noun lef = j2_mbc(Pt3, peg)(axe, 2);
|
||||
u2_noun rit = j2_mbc(Pt3, peg)(axe, 3);
|
||||
u2_noun lef = u2_cqc_peg(axe, 2);
|
||||
u2_noun rit = u2_cqc_peg(axe, 3);
|
||||
u2_noun hed = _fish_in(van, p_sut, lef, vit);
|
||||
u2_noun tal = _fish_in(van, q_sut, rit, vit);
|
||||
u2_noun hob = j2_mby(Pt6, flan)(hed, tal);
|
||||
u2_noun vug = j2_mby(Pt6, flan)(hut, hob);
|
||||
u2_noun hob = u2_cqf_flan(hed, tal);
|
||||
u2_noun vug = u2_cqf_flan(hut, hob);
|
||||
|
||||
u2z(hob);
|
||||
u2z(tal);
|
||||
@ -88,7 +88,7 @@
|
||||
else {
|
||||
u2_noun hed = _fish_in(van, p_sut, axe, vit);
|
||||
u2_noun tal = _fish_in(van, q_sut, axe, vit);
|
||||
u2_noun pro = j2_mby(Pt6, flor)(hed, tal);
|
||||
u2_noun pro = u2_cqf_flor(hed, tal);
|
||||
|
||||
u2z(hed);
|
||||
u2z(tal);
|
||||
@ -99,9 +99,9 @@
|
||||
case c3__hold: {
|
||||
p_sut = u2t(sut);
|
||||
{
|
||||
if ( (u2_yes == j2_mcc(Pt4, in, has)(vit, sut)) ) {
|
||||
// u2_noun dun = j2_mcy(Pt6, ut, dunq)(van, "type", sut);
|
||||
u2_noun niz = j2_mcy(Pt6, ut, shep)
|
||||
if ( (u2_yes == u2_cqdi_has(vit, sut)) ) {
|
||||
// u2_noun dun = u2_cqfu_dunq(van, "type", sut);
|
||||
u2_noun niz = u2_cqfu_shep
|
||||
(van, "axis", 'd', u2k(axe));
|
||||
|
||||
// u2_ct_push(u2nc(c3__mean, dun));
|
||||
@ -109,8 +109,8 @@
|
||||
|
||||
return u2_cm_error("fish-loop");
|
||||
} else {
|
||||
u2_noun zoc = j2_mcc(Pt4, in, put)(vit, sut);
|
||||
u2_noun fop = j2_mcy(Pt6, ut, rest)(van, sut, p_sut);
|
||||
u2_noun zoc = u2_cqdi_put(vit, sut);
|
||||
u2_noun fop = u2_cqfu_rest(van, sut, p_sut);
|
||||
u2_noun pro = _fish_in(van, fop, axe, zoc);
|
||||
|
||||
u2z(fop);
|
||||
@ -154,7 +154,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ut, fish)(u2_noun van, // retain
|
||||
u2_cqfu_fish(u2_noun van, // retain
|
||||
u2_noun sut, // retain
|
||||
u2_noun axe) // retain
|
||||
{
|
||||
|
||||
@ -17,7 +17,7 @@
|
||||
u2_noun ref,
|
||||
u2_noun bix)
|
||||
{
|
||||
u2_noun rep = j2_mcy(Pt6, ut, repo)(van, sut);
|
||||
u2_noun rep = u2_cqfu_repo(van, sut);
|
||||
u2_noun ret = _fuse_in(van, rep, ref, bix);
|
||||
|
||||
if ( u2_yes == u2_cr_sing(ret, rep) ) {
|
||||
@ -65,7 +65,7 @@
|
||||
{
|
||||
if ( u2_yes == u2du(ref) ) {
|
||||
if ( c3__atom == u2h(ref) ) {
|
||||
if ( u2_yes == j2_mby(Pt6, fitz)(u2t(ref), u2t(sut)) ) {
|
||||
if ( u2_yes == u2_cqf_fitz(u2t(ref), u2t(sut)) ) {
|
||||
return u2k(sut);
|
||||
} else return u2k(ref);
|
||||
}
|
||||
@ -78,7 +78,7 @@
|
||||
case c3__bull: u2_cx_cell(u2t(sut), &p_sut, &q_sut);
|
||||
{
|
||||
u2_noun vot = _fuse_in(van, q_sut, ref, bix);
|
||||
u2_noun ret = j2_mby(Pt6, bull)(p_sut, vot);
|
||||
u2_noun ret = u2_cqf_bull(p_sut, vot);
|
||||
|
||||
u2z(vot);
|
||||
return ret;
|
||||
@ -90,7 +90,7 @@
|
||||
if ( u2_yes == u2_cr_pq(ref, c3__cell, &p_ref, &q_ref) ) {
|
||||
u2_noun hed = _fuse_in(van, p_sut, p_ref, bix);
|
||||
u2_noun tal = _fuse_in(van, q_sut, q_ref, bix);
|
||||
u2_noun ret = j2_mby(Pt6, cell)(hed, tal);
|
||||
u2_noun ret = u2_cqf_cell(hed, tal);
|
||||
|
||||
u2z(hed);
|
||||
u2z(tal);
|
||||
@ -107,10 +107,10 @@
|
||||
u2_noun foz = _fuse_in(van, q_sut, ref, bix);
|
||||
u2_noun ret;
|
||||
|
||||
if ( u2_no == j2_mcy(Pt6, ut, firm)(van, foz, p_sut) ) {
|
||||
if ( u2_no == u2_cqfu_firm(van, foz, p_sut) ) {
|
||||
ret = c3__void;
|
||||
} else {
|
||||
ret = j2_mby(Pt6, cube)(p_sut, foz);
|
||||
ret = u2_cqf_cube(p_sut, foz);
|
||||
}
|
||||
u2z(foz);
|
||||
return ret;
|
||||
@ -118,7 +118,7 @@
|
||||
case c3__face: u2_cx_cell(u2t(sut), &p_sut, &q_sut);
|
||||
{
|
||||
u2_noun vot = _fuse_in(van, q_sut, ref, bix);
|
||||
u2_noun ret = j2_mby(Pt6, face)(p_sut, vot);
|
||||
u2_noun ret = u2_cqf_face(p_sut, vot);
|
||||
|
||||
u2z(vot);
|
||||
return ret;
|
||||
@ -127,7 +127,7 @@
|
||||
{
|
||||
u2_noun dis = _fuse_in(van, p_sut, ref, bix);
|
||||
u2_noun dat = _fuse_in(van, q_sut, ref, bix);
|
||||
u2_noun ret = j2_mby(Pt6, fork)(dis, dat);
|
||||
u2_noun ret = u2_cqf_fork(dis, dat);
|
||||
|
||||
u2z(dis);
|
||||
u2z(dat);
|
||||
@ -137,16 +137,16 @@
|
||||
{
|
||||
u2_noun hud = u2nc(u2k(sut), u2k(ref));
|
||||
|
||||
if ( u2_yes == j2_mcc(Pt4, in, has)(bix, hud) ) {
|
||||
// u2_noun dun = j2_mcy(Pt6, ut, dunq)(van, "type", sut);
|
||||
// u2_noun niz = j2_mcy(Pt6, ut, dunq)(van, "over", ref);
|
||||
if ( u2_yes == u2_cqdi_has(bix, hud) ) {
|
||||
// u2_noun dun = u2_cqfu_dunq(van, "type", sut);
|
||||
// u2_noun niz = u2_cqfu_dunq(van, "over", ref);
|
||||
|
||||
// u2_ct_push(u2nc(c3__mean, dun));
|
||||
// u2_ct_push(u2nc(c3__mean, niz));
|
||||
|
||||
return u2_cm_error("fuse-loop");
|
||||
} else {
|
||||
u2_noun bux = j2_mcc(Pt4, in, put)(bix, hud);
|
||||
u2_noun bux = u2_cqdi_put(bix, hud);
|
||||
u2_noun ret = _fuse_repo(van, sut, ref, bux);
|
||||
|
||||
u2z(hud);
|
||||
@ -187,7 +187,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ut, fuse)(u2_noun van, // retain
|
||||
u2_cqfu_fuse(u2_noun van, // retain
|
||||
u2_noun sut, // retain
|
||||
u2_noun ref) // retain
|
||||
{
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
#include "../pit.h"
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ut, gain)(u2_noun van, // retain
|
||||
u2_cqfu_gain(u2_noun van, // retain
|
||||
u2_noun sut, // retain
|
||||
u2_noun gen) // retain
|
||||
{
|
||||
|
||||
@ -39,7 +39,7 @@
|
||||
u2_noun sub = _heal_by(van, q_sut, qog, ref);
|
||||
u2_noun ret;
|
||||
|
||||
ret = j2_mcy(Pt6, ut, busk)
|
||||
ret = u2_cqfu_busk
|
||||
(van, sub, u2h(p_sut), u2h(u2t(p_sut)));
|
||||
|
||||
u2z(sub);
|
||||
@ -49,12 +49,12 @@
|
||||
case c3__face: u2_cx_cell(u2t(sut), &p_sut, &q_sut);
|
||||
{
|
||||
if ( u2_yes == u2_cr_sing(p_sut, u2t(qog)) ) {
|
||||
return j2_mby(Pt6, face)(p_sut, ref);
|
||||
return u2_cqf_face(p_sut, ref);
|
||||
}
|
||||
else return u2_cm_error("heal-name");
|
||||
}
|
||||
case c3__hold: {
|
||||
u2_noun rep = j2_mcy(Pt6, ut, repo)(van, sut);
|
||||
u2_noun rep = u2_cqfu_repo(van, sut);
|
||||
u2_noun ret = _heal_by(van, rep, qog, ref);
|
||||
|
||||
u2z(rep);
|
||||
@ -64,7 +64,7 @@
|
||||
{
|
||||
u2_noun dis = _heal_by(van, p_sut, qog, ref);
|
||||
u2_noun dat = _heal_by(van, q_sut, qog, ref);
|
||||
u2_noun ret = j2_mby(Pt6, fork)(dis, dat);
|
||||
u2_noun ret = u2_cqf_fork(dis, dat);
|
||||
|
||||
u2z(dis);
|
||||
u2z(dat);
|
||||
@ -98,7 +98,7 @@
|
||||
u2_noun sub = _heal_to(van, q_sut, gil, qog, ref, now, lat);
|
||||
u2_noun ret;
|
||||
|
||||
ret = j2_mcy(Pt6, ut, busk)
|
||||
ret = u2_cqfu_busk
|
||||
(van, sub, u2h(p_sut), u2h(u2t(p_sut)));
|
||||
|
||||
u2z(sub);
|
||||
@ -110,10 +110,10 @@
|
||||
|
||||
if ( 2 == now ) {
|
||||
ter = _heal_as(van, p_sut, qog, lat, ref);
|
||||
ret = j2_mby(Pt6, cell)(ter, q_sut);
|
||||
ret = u2_cqf_cell(ter, q_sut);
|
||||
} else {
|
||||
ter = _heal_as(van, q_sut, qog, lat, ref);
|
||||
ret = j2_mby(Pt6, cell)(p_sut, ter);
|
||||
ret = u2_cqf_cell(p_sut, ter);
|
||||
}
|
||||
u2z(ter);
|
||||
return ret;
|
||||
@ -125,7 +125,7 @@
|
||||
return u2_cm_error("heal-core");
|
||||
} else {
|
||||
u2_noun ter = _heal_as(van, p_sut, qog, lat, ref);
|
||||
u2_noun ret = j2_mby(Pt6, core)(ter, q_sut);
|
||||
u2_noun ret = u2_cqf_core(ter, q_sut);
|
||||
|
||||
u2z(ter);
|
||||
return ret;
|
||||
@ -134,7 +134,7 @@
|
||||
case c3__face: u2_cx_cell(u2t(sut), &p_sut, &q_sut);
|
||||
{
|
||||
u2_noun dun = _heal_to(van, q_sut, gil, qog, ref, now, lat);
|
||||
u2_noun ret = j2_mby(Pt6, face)(p_sut, dun);
|
||||
u2_noun ret = u2_cqf_face(p_sut, dun);
|
||||
|
||||
u2z(dun);
|
||||
return ret;
|
||||
@ -143,7 +143,7 @@
|
||||
{
|
||||
u2_noun dis = _heal_to(van, p_sut, gil, qog, ref, now, lat);
|
||||
u2_noun dat = _heal_to(van, q_sut, gil, qog, ref, now, lat);
|
||||
u2_noun ret = j2_mby(Pt6, fork)(dis, dat);
|
||||
u2_noun ret = u2_cqf_fork(dis, dat);
|
||||
|
||||
u2z(dis);
|
||||
u2z(dat);
|
||||
@ -151,12 +151,12 @@
|
||||
}
|
||||
|
||||
case c3__hold: {
|
||||
if ( (u2_yes == j2_mcc(Pt4, in, has)(gil, sut)) ) {
|
||||
if ( (u2_yes == u2_cqdi_has(gil, sut)) ) {
|
||||
return c3__void;
|
||||
}
|
||||
else {
|
||||
u2_noun zoc = j2_mcc(Pt4, in, put)(gil, sut);
|
||||
u2_noun rep = j2_mcy(Pt6, ut, repo)(van, sut);
|
||||
u2_noun zoc = u2_cqdi_put(gil, sut);
|
||||
u2_noun rep = u2_cqfu_repo(van, sut);
|
||||
u2_noun ret = _heal_to(van, rep, zoc, qog, ref, now, lat);
|
||||
|
||||
u2z(rep);
|
||||
@ -168,7 +168,7 @@
|
||||
}
|
||||
|
||||
repo: {
|
||||
u2_noun rep = j2_mcy(Pt6, ut, repo)(van, sut);
|
||||
u2_noun rep = u2_cqfu_repo(van, sut);
|
||||
u2_noun ret = _heal_to(van, rep, gil, qog, ref, now, lat);
|
||||
|
||||
u2z(rep);
|
||||
@ -190,8 +190,8 @@
|
||||
} else return _heal_by(van, sut, qog, ref);
|
||||
}
|
||||
else {
|
||||
u2_atom now = j2_mbc(Pt3, cap)(axe);
|
||||
u2_atom lat = j2_mbc(Pt3, mas)(axe);
|
||||
u2_atom now = u2_cqc_cap(axe);
|
||||
u2_atom lat = u2_cqc_mas(axe);
|
||||
u2_noun ret = _heal_to(van, sut, u2_nul, qog, ref, now, lat);
|
||||
|
||||
u2z(lat);
|
||||
@ -238,7 +238,7 @@
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ut, heal)(u2_noun van, // retain
|
||||
u2_cqfu_heal(u2_noun van, // retain
|
||||
u2_noun sut, // retain
|
||||
u2_noun qog, // retain
|
||||
u2_noun axe, // retain
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
#include "../pit.h"
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mcy(Pt6, ut, lose)(u2_noun van, // retain
|
||||
u2_cqfu_lose(u2_noun van, // retain
|
||||
u2_noun sut, // retain
|
||||
u2_noun gen) // retain
|
||||
{
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user