mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-11-28 11:40:11 +03:00
Finish renaming etc.
This commit is contained in:
C. Guy Yarvin
parent
6d52238ac1
commit
bd6bfa1fad
7
Makefile
7
Makefile
@ -179,14 +179,8 @@ J164_5_OFILES=\
|
||||
gen164/5/shax.o \
|
||||
gen164/5/lore.o \
|
||||
gen164/5/loss.o \
|
||||
gen164/5/tape.o \
|
||||
gen164/5/trip.o
|
||||
|
||||
J164_5_OFILES_CO=\
|
||||
gen164/5/co_emco.o \
|
||||
gen164/5/co_oxco.o \
|
||||
gen164/5/co_roco.o
|
||||
|
||||
J164_5_OFILES_ED=\
|
||||
gen164/5/ed_puck.o \
|
||||
gen164/5/ed_sign.o \
|
||||
@ -248,7 +242,6 @@ J164_OFILES=\
|
||||
$(J164_3_OFILES) \
|
||||
$(J164_4_OFILES) \
|
||||
$(J164_5_OFILES) \
|
||||
$(J164_5_OFILES_CO) \
|
||||
$(J164_5_OFILES_ED) \
|
||||
$(J164_6_OFILES) \
|
||||
$(J164_6_OFILES_UT)
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqa_add(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_noun
|
||||
u2_cqa_add(u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
if ( u2_so(u2_co_is_cat(a)) && u2_so(u2_co_is_cat(b)) ) {
|
||||
c3_w c = a + b;
|
||||
@ -28,8 +28,8 @@
|
||||
return u2_ci_mp(a_mp);
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwa_add(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwa_add(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,14 +7,14 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqa_inc(u2_atom a) // retain
|
||||
u2_noun
|
||||
u2_cqa_inc(u2_atom a)
|
||||
{
|
||||
return u2_ci_vint(u2k(a));
|
||||
}
|
||||
|
||||
u2_weak // transfer
|
||||
u2_cqa_dec(u2_atom a) // retain
|
||||
u2_noun
|
||||
u2_cqa_dec(u2_atom a)
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return u2_cm_error("decrement-underflow");
|
||||
@ -22,7 +22,7 @@
|
||||
else {
|
||||
if ( u2_so(u2_co_is_cat(a)) ) {
|
||||
return a - 1;
|
||||
}
|
||||
}
|
||||
else {
|
||||
mpz_t a_mp;
|
||||
|
||||
@ -33,8 +33,8 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwa_dec(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwa_dec(u2_noun cor)
|
||||
{
|
||||
u2_noun a;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqa_div(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_noun
|
||||
u2_cqa_div(u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
if ( 0 == b ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
@ -31,8 +31,8 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwa_div(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwa_div(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,14 +7,14 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqa_gte(
|
||||
u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
if ( u2_co_is_cat(a) && u2_co_is_cat(b) ) {
|
||||
return u2_say(a >= b);
|
||||
}
|
||||
}
|
||||
else {
|
||||
mpz_t a_mp, b_mp;
|
||||
u2_bean cmp;
|
||||
@ -30,9 +30,9 @@
|
||||
return cmp;
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwa_gte(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,13 +7,13 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqa_gth(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_noun
|
||||
u2_cqa_gth(u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
if ( u2_co_is_cat(a) && u2_co_is_cat(b) ) {
|
||||
return u2_say(a > b);
|
||||
}
|
||||
}
|
||||
else {
|
||||
mpz_t a_mp, b_mp;
|
||||
u2_bean cmp;
|
||||
@ -29,8 +29,8 @@
|
||||
return cmp;
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwa_gth(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwa_gth(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,13 +7,13 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqa_lte(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_noun
|
||||
u2_cqa_lte(u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
if ( u2_co_is_cat(a) && u2_co_is_cat(b) ) {
|
||||
return u2_say(a <= b);
|
||||
}
|
||||
}
|
||||
else {
|
||||
mpz_t a_mp, b_mp;
|
||||
u2_bean cmp;
|
||||
@ -29,8 +29,8 @@
|
||||
return cmp;
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwa_lte(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwa_lte(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,13 +7,13 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqa_lth(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_noun
|
||||
u2_cqa_lth(u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
if ( u2_co_is_cat(a) && u2_co_is_cat(b) ) {
|
||||
return u2_say(a <= b);
|
||||
}
|
||||
}
|
||||
else {
|
||||
mpz_t a_mp, b_mp;
|
||||
u2_bean cmp;
|
||||
@ -29,8 +29,8 @@
|
||||
return cmp;
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwa_lth(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwa_lth(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt1, mod)(
|
||||
u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_noun
|
||||
u2_cqa_mod(
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
if ( 0 == b ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
@ -26,9 +26,9 @@
|
||||
return u2_ci_mp(a_mp);
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
j2_mb(Pt1, mod)(
|
||||
u2_noun cor) // retain
|
||||
|
||||
u2_noun
|
||||
u2_cwa_mod(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -38,7 +38,6 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt1, mod)(a, b);
|
||||
return u2_cqa_mod(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqa_mul(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_noun
|
||||
u2_cqa_mul(u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
if ( u2_so(u2_co_is_cat(a)) && u2_so(u2_co_is_cat(b)) ) {
|
||||
c3_d c = ((c3_d) a) * ((c3_d) b);
|
||||
@ -28,8 +28,8 @@
|
||||
return u2_ci_mp(a_mp);
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwa_mul(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwa_mul(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqa_sub(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_noun
|
||||
u2_cqa_sub(u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
if ( u2_so(u2_co_is_cat(a)) && u2_so(u2_co_is_cat(b)) ) {
|
||||
if ( a < b ) {
|
||||
@ -35,9 +35,9 @@
|
||||
return u2_ci_mp(a_mp);
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwa_sub(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqb_bind(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return 0;
|
||||
@ -18,9 +18,9 @@
|
||||
return u2nc(0, u2_cn_slam_on(u2k(b), u2k(u2t(a))));
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwb_bind(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqb_clap(u2_noun a, // retain
|
||||
u2_noun b, // retain
|
||||
u2_noun c) // retain
|
||||
u2_noun
|
||||
u2_cqb_clap(u2_noun a,
|
||||
u2_noun b,
|
||||
u2_noun c)
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return u2k(b);
|
||||
@ -22,8 +22,8 @@
|
||||
return u2nc(0, u2_cn_slam_on(u2k(c), u2nc(u2k(u2t(a)), u2k(u2t(b)))));
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_cwb_clap(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwb_clap(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b, c;
|
||||
|
||||
|
||||
@ -7,8 +7,8 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqb_drop(u2_noun a) // retain
|
||||
u2_noun
|
||||
u2_cqb_drop(u2_noun a)
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return u2_nul;
|
||||
@ -17,8 +17,8 @@
|
||||
return u2nc(0, u2k(u2t(a)));
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_cwb_drop(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwb_drop(u2_noun cor)
|
||||
{
|
||||
u2_noun a;
|
||||
|
||||
|
||||
@ -7,11 +7,11 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqb_flop(
|
||||
u2_noun a) // retain
|
||||
u2_noun a)
|
||||
{
|
||||
u2_weak b = 0;
|
||||
u2_noun b = 0;
|
||||
|
||||
while ( 1 ) {
|
||||
if ( u2_nul == a ) {
|
||||
@ -28,9 +28,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwb_flop(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a;
|
||||
|
||||
|
||||
@ -7,11 +7,11 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqb_lent(
|
||||
u2_noun a) // retain
|
||||
u2_noun a)
|
||||
{
|
||||
u2_weak len = 0;
|
||||
u2_noun len = 0;
|
||||
|
||||
while ( 1 ) {
|
||||
if ( 0 == a ) {
|
||||
@ -29,7 +29,7 @@
|
||||
}
|
||||
u2_noun
|
||||
u2_cwb_lent(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a;
|
||||
|
||||
|
||||
@ -7,15 +7,15 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqb_levy(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return u2_yes;
|
||||
} else {
|
||||
u2_weak loz;
|
||||
u2_noun loz;
|
||||
|
||||
if ( u2_no == u2du(a) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
@ -28,9 +28,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwb_levy(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,14 +7,14 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqb_lien(u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun
|
||||
u2_cqb_lien(u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return u2_no;
|
||||
} else {
|
||||
u2_weak loz;
|
||||
u2_noun loz;
|
||||
|
||||
if ( u2_no == u2du(a) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
@ -27,8 +27,8 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_cwb_lien(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwb_lien(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqb_need(
|
||||
u2_noun a) // retain
|
||||
u2_noun a)
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
@ -18,9 +18,9 @@
|
||||
return u2k(u2t(a));
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwb_need(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqb_reel(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return u2k(u2_cr_at(u2_cv_sam_3, b));
|
||||
@ -19,15 +19,15 @@
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
u2_weak gim = u2k(u2h(a));
|
||||
u2_weak hur = u2_cqb_reel(u2t(a), b);
|
||||
u2_noun gim = u2k(u2h(a));
|
||||
u2_noun hur = u2_cqb_reel(u2t(a), b);
|
||||
|
||||
return u2_cn_slam_on(u2k(b), u2nc(gim, hur));
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwb_reel(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqb_roll(u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun
|
||||
u2_cqb_roll(u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return u2k(u2_cr_at(u2_cv_sam_3, b));
|
||||
@ -18,23 +18,23 @@
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
u2_weak gim = u2k(u2h(a));
|
||||
u2_weak zor = u2k(u2_cr_at(u2_cv_sam_3, b));
|
||||
u2_weak daz = u2_cn_slam_on(u2k(b), u2nc(gim, zor));
|
||||
u2_weak vel = u2_ci_molt(u2k(b), u2_cv_sam_3, daz, 0);
|
||||
u2_noun gim = u2k(u2h(a));
|
||||
u2_noun zor = u2k(u2_cr_at(u2_cv_sam_3, b));
|
||||
u2_noun daz = u2_cn_slam_on(u2k(b), u2nc(gim, zor));
|
||||
u2_noun vel = u2_ci_molt(u2k(b), u2_cv_sam_3, daz, 0);
|
||||
|
||||
if ( u2_none == vel ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
u2_weak hox = u2_cqb_roll(u2t(a), vel);
|
||||
u2_noun hox = u2_cqb_roll(u2t(a), vel);
|
||||
|
||||
u2z(vel);
|
||||
return hox;
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_cwb_roll(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwb_roll(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, scag)(
|
||||
u2_atom a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun
|
||||
u2_cqb_scag(
|
||||
u2_atom a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
@ -34,9 +34,10 @@
|
||||
return u2_ckb_flop(acc);
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
j2_mb(Pt2, scag)(
|
||||
u2_noun cor) // retain
|
||||
|
||||
u2_noun
|
||||
u2_cwb_scag(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -45,7 +46,7 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, scag)(a, b);
|
||||
return u2_cqb_scag(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqb_skim(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return a;
|
||||
@ -18,8 +18,8 @@
|
||||
else if ( u2_no == u2du(a) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
u2_weak hoz = u2_cn_slam_on(u2k(b), u2k(u2h(a)));
|
||||
u2_weak vyr = u2_cqb_skim(u2t(a), b);
|
||||
u2_noun hoz = u2_cn_slam_on(u2k(b), u2k(u2h(a)));
|
||||
u2_noun vyr = u2_cqb_skim(u2t(a), b);
|
||||
|
||||
switch ( hoz ) {
|
||||
case u2_yes: return u2nc(u2k(u2h(a)), vyr);
|
||||
@ -30,9 +30,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwb_skim(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqb_skip(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return a;
|
||||
@ -18,8 +18,8 @@
|
||||
else if ( u2_no == u2du(a) ) {
|
||||
return u2_none;
|
||||
} else {
|
||||
u2_weak hoz = u2_cn_slam_on(u2k(b), u2k(u2h(a)));
|
||||
u2_weak vyr = u2_cqb_skip(u2t(a), b);
|
||||
u2_noun hoz = u2_cn_slam_on(u2k(b), u2k(u2h(a)));
|
||||
u2_noun vyr = u2_cqb_skip(u2t(a), b);
|
||||
|
||||
switch ( hoz ) {
|
||||
case u2_yes: return vyr;
|
||||
@ -30,9 +30,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwb_skip(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,9 +7,8 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mbc(Pt2, slag)(u2_atom a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun
|
||||
u2_cqb_slag(u2_atom a, u2_noun b)
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
@ -27,8 +26,8 @@
|
||||
return u2k(b);
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
j2_mb(Pt2, slag)(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwb_slag(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -37,6 +36,6 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt2, slag)(a, b);
|
||||
return u2_cqb_slag(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqb_snag(u2_atom a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun
|
||||
u2_cqb_snag(u2_atom a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
@ -30,8 +30,8 @@
|
||||
return u2k(u2h(b));
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_cwb_snag(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwb_snag(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -43,11 +43,3 @@
|
||||
return u2_cqb_snag(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
/* structures
|
||||
*/
|
||||
u2_ho_jet
|
||||
j2_mbj(Pt2, snag)[] = {
|
||||
{ ".2", c3__lite, u2_cwb_snag, Tier2, u2_none, u2_none },
|
||||
{ }
|
||||
};
|
||||
|
||||
@ -7,18 +7,18 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqb_sort(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
// must think about
|
||||
//
|
||||
return u2_cm_bail(c3__fail);
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwb_sort(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqb_turn(u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun
|
||||
u2_cqb_turn(u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return a;
|
||||
@ -24,9 +24,9 @@
|
||||
return u2nc(one, two);
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwb_turn(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqb_weld(u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun
|
||||
u2_cqb_weld(u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return u2k(b);
|
||||
@ -21,8 +21,8 @@
|
||||
return u2nc(u2k(u2h(a)), u2_cqb_weld(u2t(a), b));
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_cwb_weld(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwb_weld(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,8 +7,8 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqc_bex(u2_atom a) // retain
|
||||
u2_noun
|
||||
u2_cqc_bex(u2_atom a)
|
||||
{
|
||||
mpz_t a_mp;
|
||||
|
||||
@ -22,9 +22,9 @@
|
||||
return u2_ci_mp(a_mp);
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwc_bex(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
u2_cqc_can(u2_atom a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun
|
||||
u2_cqc_can(u2_atom a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) || (a >= 32) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
@ -69,8 +69,8 @@
|
||||
return u2_ca_malt(sal_w);
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwc_can(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwc_can(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqc_cap(
|
||||
u2_atom a) // retain
|
||||
u2_atom a)
|
||||
{
|
||||
c3_w met_w = u2_cr_met(0, a);
|
||||
|
||||
@ -22,9 +22,9 @@
|
||||
return 2;
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwc_cap(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqc_cat(u2_atom a, // retain
|
||||
u2_atom b, // retain
|
||||
u2_atom c) // retain
|
||||
u2_noun
|
||||
u2_cqc_cat(u2_atom a,
|
||||
u2_atom b,
|
||||
u2_atom c)
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) || (a >= 32) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
@ -39,8 +39,8 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_weak // transfer
|
||||
u2_cwc_cat(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwc_cat(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b, c;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqc_con(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_noun
|
||||
u2_cqc_con(u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
c3_w lna_w = u2_cr_met(5, a);
|
||||
c3_w lnb_w = u2_cr_met(5, b);
|
||||
@ -36,8 +36,8 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwc_con(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwc_con(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -50,11 +50,3 @@
|
||||
return u2_cqc_con(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
/* structures
|
||||
*/
|
||||
u2_ho_jet
|
||||
j2_mbj(Pt3, con)[] = {
|
||||
{ ".2", c3__lite, u2_cwc_con, Tier3, u2_none, u2_none },
|
||||
{ }
|
||||
};
|
||||
|
||||
@ -7,12 +7,12 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqc_cut(
|
||||
u2_atom a, // retain
|
||||
u2_atom b, // retain
|
||||
u2_atom c, // retain
|
||||
u2_atom d) // retain
|
||||
u2_atom a,
|
||||
u2_atom b,
|
||||
u2_atom c,
|
||||
u2_atom d)
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) || (a >= 32) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
@ -51,9 +51,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwc_cut(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b, c, d;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqc_dis(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_noun
|
||||
u2_cqc_dis(u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
c3_w lna_w = u2_cr_met(5, a);
|
||||
c3_w lnb_w = u2_cr_met(5, b);
|
||||
@ -35,8 +35,8 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwc_dis(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwc_dis(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqc_dor(
|
||||
u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
if ( u2_yes == u2_cr_sing(a, b) ) {
|
||||
return u2_yes;
|
||||
@ -37,9 +37,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwc_dor(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,11 +7,11 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqc_end(
|
||||
u2_atom a, // retain
|
||||
u2_atom b, // retain
|
||||
u2_atom c) // retain
|
||||
u2_atom a,
|
||||
u2_atom b,
|
||||
u2_atom c)
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) || (a >= 32) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
@ -42,9 +42,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwc_end(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b, c;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqc_gor(u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun
|
||||
u2_cqc_gor(u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
c3_w c_w = u2_cr_mug(a);
|
||||
c3_w d_w = u2_cr_mug(b);
|
||||
@ -19,8 +19,8 @@
|
||||
}
|
||||
else return (c_w < d_w) ? u2_yes : u2_no;
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwc_gor(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwc_gor(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqc_hor(u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun
|
||||
u2_cqc_hor(u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_yes == u2ud(a) ) {
|
||||
if ( u2_yes == u2ud(b) ) {
|
||||
@ -33,8 +33,8 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwc_hor(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwc_hor(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,11 +7,11 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqc_lsh(
|
||||
u2_atom a, // retain
|
||||
u2_atom b, // retain
|
||||
u2_atom c) // retain
|
||||
u2_atom a,
|
||||
u2_atom b,
|
||||
u2_atom c)
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) || (a >= 32) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
@ -43,9 +43,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwc_lsh(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b, c;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqc_mas(
|
||||
u2_atom a) // retain
|
||||
u2_atom a)
|
||||
{
|
||||
c3_w b_w;
|
||||
u2_atom c, d, e, f;
|
||||
@ -31,9 +31,9 @@
|
||||
return f;
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwc_mas(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqc_met(
|
||||
u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) || (a >= 32) ) {
|
||||
if ( 0 == b ) {
|
||||
@ -26,9 +26,9 @@
|
||||
else return u2_cr_met(a, b);
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwc_met(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqc_mix(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_noun
|
||||
u2_cqc_mix(u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
c3_w lna_w = u2_cr_met(5, a);
|
||||
c3_w lnb_w = u2_cr_met(5, b);
|
||||
@ -35,8 +35,8 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwc_mix(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwc_mix(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mb(Pt3, mug)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwc_mug(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun sam;
|
||||
|
||||
@ -19,4 +19,3 @@
|
||||
return u2_cr_mug(sam);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqc_peg(
|
||||
u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
u2_atom c, d, e, f, g, h;
|
||||
|
||||
@ -29,9 +29,9 @@
|
||||
|
||||
return h;
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwc_peg(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -32,9 +32,9 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_weak // transfer
|
||||
j2_mc(Pt3, po, ins)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwcp_ins(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun x, a, buf;
|
||||
|
||||
@ -48,9 +48,9 @@
|
||||
return _po_find(buf, a);
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
j2_mc(Pt3, po, ind)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwcp_ind(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun x, a, buf;
|
||||
|
||||
@ -65,9 +65,9 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_weak // transfer
|
||||
j2_mc(Pt3, po, tos)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwcp_tos(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun x, a, buf;
|
||||
|
||||
@ -86,9 +86,9 @@
|
||||
return (byt_y[0] | (byt_y[1] << 8) | (byt_y[2] << 16));
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
j2_mc(Pt3, po, tod)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwcp_tod(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun x, a, buf;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqc_rap(u2_atom a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun
|
||||
u2_cqc_rap(u2_atom a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) || (a >= 32) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
@ -70,8 +70,8 @@
|
||||
return u2_ca_malt(sal_w);
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwc_rap(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwc_rap(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqc_rip(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_noun
|
||||
u2_cqc_rip(u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) || (a >= 32) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
@ -68,8 +68,8 @@
|
||||
return pir;
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwc_rip(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwc_rip(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,11 +7,11 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqc_rsh(
|
||||
u2_atom a, // retain
|
||||
u2_atom b, // retain
|
||||
u2_atom c) // retain
|
||||
u2_atom a,
|
||||
u2_atom b,
|
||||
u2_atom c)
|
||||
{
|
||||
if ( u2_ne(u2_co_is_cat(a)) || (a >= 32) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
@ -40,9 +40,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwc_rsh(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b, c;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_cqc_vor(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_noun
|
||||
u2_cqc_vor(u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
c3_w c_w = u2_cr_mug(u2_cr_mug(a));
|
||||
c3_w d_w = u2_cr_mug(u2_cr_mug(b));
|
||||
@ -19,8 +19,8 @@
|
||||
}
|
||||
else return (c_w < d_w) ? u2_yes : u2_no;
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_cwc_vor(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwc_vor(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqdb_gas(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_nul == b ) {
|
||||
return u2k(a);
|
||||
@ -41,9 +41,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwdb_gas(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cqdb_get(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_nul == a ) {
|
||||
return u2_nul;
|
||||
@ -37,9 +37,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwdb_get(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -9,8 +9,8 @@
|
||||
*/
|
||||
u2_bean
|
||||
u2_cqdb_has(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_nul == a ) {
|
||||
return u2_no;
|
||||
@ -37,9 +37,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwdb_has(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqdb_int(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_nul == a ) {
|
||||
return u2k(u2_nul);
|
||||
@ -43,14 +43,14 @@
|
||||
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),
|
||||
u2_cqdb_int(u2k(l_a), u2k(l_b)),
|
||||
u2_cqdb_int(u2k(r_a), u2k(r_b)));
|
||||
}
|
||||
else if ( u2_yes == u2_cqc_hor(p_n_b, p_n_a) ) {
|
||||
return u2_cqdb_uni(
|
||||
|
||||
|
||||
u2_cqdb_int(
|
||||
u2k(l_a),
|
||||
u2nt(
|
||||
@ -63,7 +63,7 @@
|
||||
}
|
||||
else {
|
||||
return u2_cqdb_uni(
|
||||
|
||||
|
||||
u2_cqdb_int(
|
||||
u2k(r_a),
|
||||
u2nt(
|
||||
@ -77,14 +77,14 @@
|
||||
}
|
||||
else if ( u2_yes == u2_cr_sing(p_n_b, p_n_a) ) {
|
||||
return u2nt(
|
||||
|
||||
|
||||
u2k(n_b),
|
||||
u2_cqdb_int(u2k(l_b), u2k(l_a)),
|
||||
u2_cqdb_int(u2k(r_b), u2k(r_a)));
|
||||
}
|
||||
else if ( u2_yes == u2_cqc_hor(p_n_a, p_n_b) ) {
|
||||
return u2_cqdb_uni(
|
||||
|
||||
|
||||
u2_cqdb_int(
|
||||
u2k(l_b),
|
||||
u2nt(
|
||||
@ -97,7 +97,7 @@
|
||||
}
|
||||
else {
|
||||
return u2_cqdb_uni(
|
||||
|
||||
|
||||
u2_cqdb_int(
|
||||
u2k(r_b),
|
||||
u2nt(
|
||||
@ -110,9 +110,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwdb_int(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,11 +7,11 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqdb_put(
|
||||
u2_noun a, // retain
|
||||
u2_noun b, // retain
|
||||
u2_noun c) // retain
|
||||
u2_noun a,
|
||||
u2_noun b,
|
||||
u2_noun c)
|
||||
{
|
||||
if ( u2_nul == a ) {
|
||||
return u2nt(
|
||||
@ -91,9 +91,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwdb_put(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b, c;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqdb_uni(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_nul == a ) {
|
||||
return u2k(b);
|
||||
@ -50,7 +50,7 @@
|
||||
}
|
||||
else if ( u2_yes == u2_cqc_hor(p_n_b, p_n_a) ) {
|
||||
return u2_cqdb_uni(
|
||||
|
||||
|
||||
u2nt(
|
||||
u2k(n_a),
|
||||
u2_cqdb_uni(
|
||||
@ -64,7 +64,7 @@
|
||||
}
|
||||
else {
|
||||
return u2_cqdb_uni(
|
||||
|
||||
|
||||
u2nt(
|
||||
u2k(n_a),
|
||||
u2k(l_a),
|
||||
@ -79,14 +79,14 @@
|
||||
}
|
||||
else if ( u2_yes == u2_cr_sing(p_n_b, p_n_a) ) {
|
||||
return u2nt(
|
||||
|
||||
|
||||
u2k(n_b),
|
||||
u2_cqdb_uni(u2k(r_b), u2k(r_a)),
|
||||
u2_cqdb_uni(u2k(l_b), u2k(l_a)));
|
||||
}
|
||||
else if ( u2_yes == u2_cqc_hor(p_n_a, p_n_b) ) {
|
||||
return u2_cqdb_uni(
|
||||
|
||||
|
||||
u2k(r_a),
|
||||
u2nt(
|
||||
u2k(n_b),
|
||||
@ -100,7 +100,7 @@
|
||||
}
|
||||
else {
|
||||
return u2_cqdb_uni(
|
||||
|
||||
|
||||
u2k(l_a),
|
||||
u2nt(
|
||||
u2k(n_b),
|
||||
@ -114,9 +114,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwdb_uni(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqdi_gas(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_nul == b ) {
|
||||
return u2k(a);
|
||||
@ -34,9 +34,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwdi_gas(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -9,8 +9,8 @@
|
||||
*/
|
||||
u2_bean
|
||||
u2_cqdi_has(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_nul == a ) {
|
||||
return u2_no;
|
||||
@ -34,9 +34,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwdi_has(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqdi_int(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_nul == a ) {
|
||||
return u2k(u2_nul);
|
||||
@ -73,9 +73,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwdi_int(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,10 +7,8 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mcc(Pt4, in, mer)(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun
|
||||
u2_cqdi_mer(u2_noun a, u2_noun b)
|
||||
{
|
||||
if ( u2_nul == a ) {
|
||||
return u2k(b);
|
||||
@ -43,14 +41,14 @@
|
||||
}
|
||||
else if ( u2_yes == u2_cr_sing(n_a, n_b) ) {
|
||||
return u2nt(u2k(n_a),
|
||||
j2_mcc(Pt4, in, mer)(l_a, l_b),
|
||||
j2_mcc(Pt4, in, mer)(r_a, r_b));
|
||||
u2_cqdi_mer(l_a, l_b),
|
||||
u2_cqdi_mer(r_a, r_b));
|
||||
}
|
||||
else if ( u2_yes == u2_cqc_hor(n_b, n_a) ) {
|
||||
return j2_mcc(Pt4, in, mer)(
|
||||
return u2_cqdi_mer(
|
||||
u2nt(
|
||||
n_a,
|
||||
j2_mcc(Pt4, in, mer)(
|
||||
u2_cqdi_mer(
|
||||
l_a,
|
||||
u2nt(
|
||||
n_b,
|
||||
@ -60,11 +58,11 @@
|
||||
r_b);
|
||||
}
|
||||
else {
|
||||
return j2_mcc(Pt4, in, mer)(
|
||||
return u2_cqdi_mer(
|
||||
u2nt(
|
||||
n_a,
|
||||
l_a,
|
||||
j2_mcc(Pt4, in, mer)(
|
||||
u2_cqdi_mer(
|
||||
r_a,
|
||||
u2nt(
|
||||
n_b,
|
||||
@ -75,15 +73,16 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
j2_mc(Pt4, in, mer)(
|
||||
u2_noun cor) // retain
|
||||
|
||||
u2_noun
|
||||
u2_cwdi_mer(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
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, mer)(a, b);
|
||||
}
|
||||
else {
|
||||
return u2_cqdi_mer(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqdi_put(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_nul == a ) {
|
||||
return u2nt(u2k(b), u2_nul, u2_nul);
|
||||
@ -80,9 +80,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwdi_put(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
static u2_weak // produce
|
||||
static u2_noun
|
||||
_tap_in(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // submit
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_nul == a ) {
|
||||
return b;
|
||||
@ -29,16 +29,16 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_weak // produce
|
||||
u2_noun
|
||||
u2_cqdi_tap(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
return _tap_in(a, u2k(b));
|
||||
}
|
||||
u2_weak // produce
|
||||
u2_noun
|
||||
u2_cwdi_tap(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cqdi_uni(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun a,
|
||||
u2_noun b)
|
||||
{
|
||||
if ( u2_nul == a ) {
|
||||
return u2k(b);
|
||||
@ -38,14 +38,14 @@
|
||||
}
|
||||
else if ( u2_yes == u2_cr_sing(n_a, n_b) ) {
|
||||
return u2nt(
|
||||
|
||||
|
||||
u2k(n_b),
|
||||
u2_cqdi_uni(u2k(l_a), u2k(l_b)),
|
||||
u2_cqdi_uni(u2k(r_a), u2k(r_b)));
|
||||
}
|
||||
else if ( u2_yes == u2_cqc_hor(n_b, n_a) ) {
|
||||
return u2_cqdi_uni(
|
||||
|
||||
|
||||
u2nt(
|
||||
u2k(n_a),
|
||||
u2_cqdi_uni(
|
||||
@ -59,7 +59,7 @@
|
||||
}
|
||||
else {
|
||||
return u2_cqdi_uni(
|
||||
|
||||
|
||||
u2nt(
|
||||
u2k(n_a),
|
||||
u2k(l_a),
|
||||
@ -80,14 +80,14 @@
|
||||
}
|
||||
else if ( u2_yes == u2_cr_sing(n_b, n_a) ) {
|
||||
return u2nt(
|
||||
|
||||
|
||||
u2k(n_b),
|
||||
u2_cqdi_uni(u2k(r_b), u2k(r_a)),
|
||||
u2_cqdi_uni(u2k(l_b), u2k(l_a)));
|
||||
}
|
||||
else if ( u2_yes == u2_cqc_hor(n_a, n_b) ) {
|
||||
return u2_cqdi_uni(
|
||||
|
||||
|
||||
u2k(r_a),
|
||||
u2nt(
|
||||
u2k(n_b),
|
||||
@ -101,7 +101,7 @@
|
||||
}
|
||||
else {
|
||||
return u2_cqdi_uni(
|
||||
|
||||
|
||||
u2k(l_a),
|
||||
u2nt(
|
||||
u2k(n_b),
|
||||
@ -116,9 +116,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_weak // transfer
|
||||
u2_noun
|
||||
u2_cwdi_uni(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -13,10 +13,8 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak
|
||||
j2_mcd(Pt5, aesc, en)(
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
u2_noun
|
||||
u2_cqea_en(u2_atom a, u2_atom b)
|
||||
{
|
||||
c3_y a_y[32];
|
||||
c3_y b_y[16];
|
||||
@ -52,9 +50,8 @@
|
||||
return u2_ci_bytes(16, b_y);
|
||||
}
|
||||
|
||||
u2_weak
|
||||
j2_mc(Pt5, aesc, en)(
|
||||
u2_noun cor)
|
||||
u2_noun
|
||||
u2_cwea_en(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -65,14 +62,12 @@
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
return j2_mcd(Pt5, aesc, en)(a, b);
|
||||
return u2_cqea_en(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
u2_weak
|
||||
j2_mcd(Pt5, aesc, de)(
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
u2_noun
|
||||
u2_cqea_de(u2_atom a, u2_atom b)
|
||||
{
|
||||
c3_y a_y[32];
|
||||
c3_y b_y[16];
|
||||
@ -108,9 +103,8 @@
|
||||
return u2_ci_bytes(16, b_y);
|
||||
}
|
||||
|
||||
u2_weak
|
||||
j2_mc(Pt5, aesc, de)(
|
||||
u2_noun cor)
|
||||
u2_noun
|
||||
u2_cwea_de(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -121,6 +115,6 @@
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
return j2_mcd(Pt5, aesc, de)(a, b);
|
||||
return u2_cqea_de(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
@ -1,28 +0,0 @@
|
||||
/* gen164/5/co.c
|
||||
**
|
||||
** This file is in the public domain.
|
||||
*/
|
||||
#include "all.h"
|
||||
#include "../pit.h"
|
||||
|
||||
/* declarations
|
||||
*/
|
||||
extern u2_ho_jet j2_mdj(Pt5, coco, co, emco)[];
|
||||
extern u2_ho_jet j2_mdj(Pt5, coco, co, oxco)[];
|
||||
extern u2_ho_jet j2_mdj(Pt5, coco, co, roco)[];
|
||||
|
||||
u2_ho_driver
|
||||
j2_mcd(Pt5, coco, co)[] = {
|
||||
{ j2_sd(Pt5, coco, co, emco), j2_mdj(Pt5, coco, co, emco), 0, 0, u2_none },
|
||||
{ j2_sd(Pt5, coco, co, oxco), j2_mdj(Pt5, coco, co, oxco), 0, 0, u2_none },
|
||||
{ j2_sd(Pt5, coco, co, roco), j2_mdj(Pt5, coco, co, roco), 0, 0, u2_none },
|
||||
{}
|
||||
};
|
||||
|
||||
/* structures
|
||||
*/
|
||||
u2_ho_driver
|
||||
j2_mbd(Pt5, coco)[] = {
|
||||
{ j2_sc(Pt5, coco, co), 0, j2_mcd(Pt5, coco, co), 0, u2_none },
|
||||
{}
|
||||
};
|
||||
@ -1,64 +0,0 @@
|
||||
/* gen164/5/co_emco.c
|
||||
**
|
||||
** This file is in the public domain.
|
||||
*/
|
||||
#include "all.h"
|
||||
#include "../pit.h"
|
||||
|
||||
|
||||
/* functions
|
||||
*/
|
||||
|
||||
/* parameters
|
||||
[[bas=@ min=@] [par=$+([? @ tape] tape)]]
|
||||
*/
|
||||
|
||||
#if 0
|
||||
u2_weak
|
||||
j2_md(Pt5, coco, co, emco)(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_atom bas, min;
|
||||
u2_noun rex;
|
||||
u2_noun par;
|
||||
u2_atom hol = 0;
|
||||
mpz_t bas_mp, dar_mp, hol_mp, rad_mp;
|
||||
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_4, &bas,
|
||||
u2_cv_sam_5, &min,
|
||||
u2_cv_sam_3, &par,
|
||||
u2_cv_sam_6, &rex,
|
||||
0) )
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
|
||||
while ( 1 ) {
|
||||
if ( !hol && !min ) {
|
||||
return rex;
|
||||
}
|
||||
|
||||
u2_cr_mp(bas_mp, bas);
|
||||
u2_cr_mp(hol_mp, hol);
|
||||
|
||||
mpz_tdiv_q(rad_mp, hol_mp, bas_mp);
|
||||
mpz_tdiv_r(dar_mp, hol_mp, bas_mp);
|
||||
|
||||
if ( min ) {
|
||||
min--;
|
||||
}
|
||||
|
||||
u2_ci_mp(hol, dar_mp);
|
||||
|
||||
// rex (par =(0 dar) rad rex)
|
||||
}
|
||||
}
|
||||
|
||||
/* structures
|
||||
*/
|
||||
u2_ho_jet
|
||||
j2_mdj(Pt5, coco, co, emco)[] = {
|
||||
{ ".2", c3__lite, j2_md(Pt5, coco, co, emco), u2_jet_dead, u2_none, u2_none },
|
||||
{ }
|
||||
};
|
||||
#endif
|
||||
@ -1,33 +0,0 @@
|
||||
/* gen164/5/co_oxco.c
|
||||
**
|
||||
** This file is in the public domain.
|
||||
*/
|
||||
#include "all.h"
|
||||
#include "../pit.h"
|
||||
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak
|
||||
j2_md(Pt5, coco, co, oxco)(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_atom bas, gop;
|
||||
u2_noun dug;
|
||||
if ( u2_no == u2_cr_mean(cor, u2_cv_sam_4, &bas,
|
||||
u2_cv_sam_5, &gop,
|
||||
u2_cv_sam_3, &dug,
|
||||
0) )
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
/* structures
|
||||
*/
|
||||
u2_ho_jet
|
||||
j2_mdj(Pt5, coco, co, oxco)[] = {
|
||||
{ ".2", c3__lite, j2_md(Pt5, coco, co, oxco), u2_jet_dead, u2_none, u2_none },
|
||||
{ }
|
||||
};
|
||||
@ -1,37 +0,0 @@
|
||||
/* gen164/5/co_roco.c
|
||||
**
|
||||
** This file is in the public domain.
|
||||
*/
|
||||
#include "all.h"
|
||||
#include "../pit.h"
|
||||
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak
|
||||
j2_md(Pt5, coco, co, roco)(
|
||||
u2_noun cor)
|
||||
{
|
||||
/* tree axes */
|
||||
/* buz => 4 */
|
||||
/* bas => 10 */
|
||||
/* dop => 11 */
|
||||
/* dug => 3 */
|
||||
|
||||
/* if ( u2_no == u2_cr_mean(cor, u2_cv_sam_4, &bas, */
|
||||
/* u2_cv_sam_5, &min, */
|
||||
/* u2_cv_sam_3, &par, */
|
||||
/* 0) ) */
|
||||
/* { */
|
||||
/* return u2_cm_bail(c3__exit); */
|
||||
/* } */
|
||||
|
||||
return 0;
|
||||
}
|
||||
/* structures
|
||||
*/
|
||||
u2_ho_jet
|
||||
j2_mdj(Pt5, coco, co, roco)[] = {
|
||||
{ ".2", c3__lite, j2_md(Pt5, coco, co, roco), u2_jet_dead, u2_none, u2_none },
|
||||
{ }
|
||||
};
|
||||
@ -5,10 +5,10 @@
|
||||
#include "all.h"
|
||||
#include "../pit.h"
|
||||
|
||||
static u2_noun // produce
|
||||
static u2_noun
|
||||
_cue_in(u2_ch_root* har_u,
|
||||
u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
u2_noun p, q;
|
||||
|
||||
@ -62,8 +62,8 @@
|
||||
return u2nt(p, q, 0);
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
u2_cqe_cue(u2_atom a) // retain
|
||||
u2_noun
|
||||
u2_cqe_cue(u2_atom a)
|
||||
{
|
||||
u2_ch_root* har_u = u2_ch_new();
|
||||
|
||||
@ -75,8 +75,8 @@
|
||||
u2z(x);
|
||||
return y;
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_cwe_cue(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_cue(u2_noun cor)
|
||||
{
|
||||
u2_noun a;
|
||||
|
||||
|
||||
@ -9,9 +9,8 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak
|
||||
j2_md(Pt5, coed, ed, puck)(
|
||||
u2_noun cor)
|
||||
u2_noun
|
||||
u2_cwee_puck(u2_noun cor)
|
||||
{
|
||||
c3_y pub_y[32];
|
||||
c3_y sec_y[64];
|
||||
|
||||
@ -9,10 +9,8 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // transfer
|
||||
j2_mcc(Pt5, ed, sign)(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
static u2_noun
|
||||
_cqee_sign(u2_noun a, u2_noun b)
|
||||
{
|
||||
c3_y sig_y[64];
|
||||
c3_y sed_y[32];
|
||||
@ -39,15 +37,15 @@
|
||||
free(mes_y);
|
||||
return u2_ci_bytes(64, sig_y);
|
||||
}
|
||||
u2_weak
|
||||
j2_md(Pt5, coed, ed, sign)(
|
||||
u2_noun cor)
|
||||
|
||||
u2_noun
|
||||
u2_cwee_sign(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
if ( u2_no == u2_cr_mean(cor,
|
||||
u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mcc(Pt5, ed, sign)(a, b);
|
||||
return _cqee_sign(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
@ -9,11 +9,8 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak
|
||||
j2_mdc(Pt5, coed, ed, veri)(
|
||||
u2_noun s,
|
||||
u2_noun m,
|
||||
u2_noun pk)
|
||||
static u2_noun
|
||||
_cqee_veri(u2_noun s, u2_noun m, u2_noun pk)
|
||||
{
|
||||
c3_y sig_y[64];
|
||||
c3_y pub_y[32];
|
||||
@ -35,9 +32,9 @@
|
||||
free(mes_y);
|
||||
return ret;
|
||||
}
|
||||
u2_weak
|
||||
j2_md(Pt5, coed, ed, veri)(
|
||||
u2_noun cor)
|
||||
|
||||
u2_noun
|
||||
cwee_veri(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b, c;
|
||||
if ( u2_no == u2_cr_mean(cor,
|
||||
@ -45,6 +42,6 @@
|
||||
u2_cv_sam_7, &c, 0) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mdc(Pt5, coed, ed, veri)(a, b, c);
|
||||
return _cqee_veri(a, b, c);
|
||||
}
|
||||
}
|
||||
|
||||
@ -10,12 +10,12 @@
|
||||
static u2_noun
|
||||
_jam_in(u2_ch_root* har_u, u2_atom, u2_atom, u2_noun);
|
||||
|
||||
static u2_noun // produce
|
||||
static u2_noun
|
||||
_jam_in_pair(u2_ch_root* har_u,
|
||||
u2_atom h_a, // retain
|
||||
u2_atom t_a, // retain
|
||||
u2_atom b, // retain
|
||||
u2_noun l) // retain
|
||||
u2_atom h_a,
|
||||
u2_atom t_a,
|
||||
u2_atom b,
|
||||
u2_noun l)
|
||||
{
|
||||
u2_noun w = u2nc(u2nc(2, 1), u2k(l));
|
||||
u2_noun x = u2_cqa_add(2, b);
|
||||
@ -47,10 +47,10 @@
|
||||
return r;
|
||||
}
|
||||
|
||||
static u2_noun // produce
|
||||
static u2_noun
|
||||
_jam_in_flat(u2_ch_root* har_u,
|
||||
u2_atom a, // retain
|
||||
u2_noun l) // retain
|
||||
u2_atom a,
|
||||
u2_noun l)
|
||||
{
|
||||
u2_noun d = u2_cqe_mat(a);
|
||||
u2_noun x = u2_cqa_add(1, u2h(d));
|
||||
@ -62,10 +62,10 @@
|
||||
return y;
|
||||
}
|
||||
|
||||
static u2_noun // produce
|
||||
static u2_noun
|
||||
_jam_in_ptr(u2_ch_root* har_u,
|
||||
u2_atom u_c, // retain
|
||||
u2_noun l) // retain
|
||||
u2_atom u_c,
|
||||
u2_noun l)
|
||||
{
|
||||
u2_noun d = u2_cqe_mat(u_c);
|
||||
u2_atom x = u2_cqc_lsh(0, 2, u2t(d));
|
||||
@ -79,11 +79,11 @@
|
||||
return z;
|
||||
}
|
||||
|
||||
static u2_noun // produce
|
||||
static u2_noun
|
||||
_jam_in(u2_ch_root* har_u,
|
||||
u2_noun a, // retain
|
||||
u2_atom b, // retain
|
||||
u2_noun l) // retain
|
||||
u2_noun a,
|
||||
u2_atom b,
|
||||
u2_noun l)
|
||||
{
|
||||
u2_noun c = u2_ch_get(har_u, u2k(a));
|
||||
u2_noun x;
|
||||
@ -108,8 +108,8 @@
|
||||
return x;
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
u2_cqe_jam(u2_atom a) // retain
|
||||
u2_noun
|
||||
u2_cqe_jam(u2_atom a)
|
||||
{
|
||||
u2_ch_root* har_u = u2_ch_new();
|
||||
|
||||
@ -122,8 +122,8 @@
|
||||
u2_ch_free(har_u);
|
||||
return r;
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_cwe_jam(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_jam(u2_noun cor)
|
||||
{
|
||||
u2_noun a;
|
||||
|
||||
|
||||
@ -5,9 +5,8 @@
|
||||
#include "all.h"
|
||||
#include "../pit.h"
|
||||
|
||||
u2_noun // produce
|
||||
j2_mbc(Pt5, lore)(
|
||||
u2_atom lub) // retain
|
||||
u2_noun
|
||||
u2_cqe_lore(u2_atom lub)
|
||||
{
|
||||
c3_w len_w = u2_cr_met(3, lub);
|
||||
c3_w pos_w = 0;
|
||||
@ -45,9 +44,8 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_weak // produce
|
||||
j2_mb(Pt5, lore)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_lore(u2_noun cor)
|
||||
{
|
||||
u2_noun lub;
|
||||
|
||||
@ -56,6 +54,6 @@
|
||||
{
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mbc(Pt5, lore)(lub);
|
||||
return u2_cqe_lore(lub);
|
||||
}
|
||||
}
|
||||
|
||||
@ -61,8 +61,8 @@
|
||||
//
|
||||
static void
|
||||
_lemp(u2_loss* loc_u,
|
||||
u2_noun hel, // retain
|
||||
u2_noun hev) // retain
|
||||
u2_noun hel,
|
||||
u2_noun hev)
|
||||
{
|
||||
loc_u->hel = hel;
|
||||
loc_u->lel_w = u2_ckb_lent(u2k(hel));
|
||||
@ -92,7 +92,7 @@
|
||||
|
||||
for ( i_w = 0; i_w < loc_u->lev_w; i_w++ ) {
|
||||
u2_noun how = loc_u->hev[i_w];
|
||||
u2_weak hav;
|
||||
u2_noun hav;
|
||||
u2_noun teg;
|
||||
|
||||
hav = u2_ckd_by_get(u2k(loc_u->sev), u2k(how));
|
||||
@ -242,7 +242,7 @@
|
||||
{
|
||||
while ( u2_nul != loc_u->hel ) {
|
||||
u2_noun i_hel = u2h(loc_u->hel);
|
||||
u2_weak guy = u2_ckd_by_get(u2k(loc_u->sev), u2k(i_hel));
|
||||
u2_noun guy = u2_ckd_by_get(u2k(loc_u->sev), u2k(i_hel));
|
||||
|
||||
if ( u2_none != guy ) {
|
||||
u2_noun gay = u2_ckb_flop(guy);
|
||||
@ -255,10 +255,10 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_noun // produce
|
||||
j2_mbc(Pt5, loss)(
|
||||
u2_noun hel, // retain
|
||||
u2_noun hev) // retain
|
||||
u2_noun
|
||||
u2_cqe_loss(
|
||||
u2_noun hel,
|
||||
u2_noun hev)
|
||||
{
|
||||
u2_loss loc_u;
|
||||
u2_noun lcs;
|
||||
@ -272,7 +272,7 @@
|
||||
}
|
||||
|
||||
static u2_bean
|
||||
_listp(u2_noun lix) // retain
|
||||
_listp(u2_noun lix)
|
||||
{
|
||||
while ( 1 ) {
|
||||
if ( u2_nul == lix ) return u2_yes;
|
||||
@ -281,9 +281,8 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_weak // produce
|
||||
j2_mb(Pt5, loss)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_loss(u2_noun cor)
|
||||
{
|
||||
u2_noun hel, hev;
|
||||
|
||||
@ -294,6 +293,6 @@
|
||||
{
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mbc(Pt5, loss)(hel, hev);
|
||||
return u2_cqe_loss(hel, hev);
|
||||
}
|
||||
}
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // produce
|
||||
u2_noun
|
||||
u2_cqe_mat(
|
||||
u2_atom a) // retain
|
||||
u2_atom a)
|
||||
{
|
||||
if ( 0 == a ) {
|
||||
return u2nc(1, 1);
|
||||
@ -39,9 +39,9 @@
|
||||
return u2nc(p, q);
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwe_mat(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a;
|
||||
|
||||
|
||||
@ -5,9 +5,8 @@
|
||||
#include "all.h"
|
||||
#include "../pit.h"
|
||||
|
||||
u2_weak // produce
|
||||
j2_mb(Pt5, mink)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_mink(u2_noun cor)
|
||||
{
|
||||
u2_noun bus, fol, fly;
|
||||
|
||||
|
||||
@ -5,8 +5,8 @@
|
||||
#include "all.h"
|
||||
#include "../pit.h"
|
||||
|
||||
u2_weak // produce
|
||||
j2_mb(Pt5, mule)(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_mule(u2_noun cor)
|
||||
{
|
||||
u2_noun tap;
|
||||
|
||||
|
||||
273
gen164/5/parse.c
273
gen164/5/parse.c
@ -5,10 +5,10 @@
|
||||
#include "all.h"
|
||||
#include "../pit.h"
|
||||
|
||||
static u2_noun // produce
|
||||
static u2_noun
|
||||
_slip(
|
||||
u2_noun weq, // retain
|
||||
u2_noun naz) // retain
|
||||
u2_noun weq,
|
||||
u2_noun naz)
|
||||
{
|
||||
u2_noun p_naz, q_naz;
|
||||
|
||||
@ -24,9 +24,9 @@
|
||||
}
|
||||
}
|
||||
|
||||
static u2_noun // produce
|
||||
static u2_noun
|
||||
_fail(
|
||||
u2_noun tub) // retain
|
||||
u2_noun tub)
|
||||
{
|
||||
u2_noun p_tub, q_tub;
|
||||
|
||||
@ -34,10 +34,10 @@
|
||||
return u2nc(u2k(p_tub), u2_nul);
|
||||
}
|
||||
|
||||
static u2_noun // produce
|
||||
static u2_noun
|
||||
_last(
|
||||
u2_noun zyc, // retain
|
||||
u2_noun naz) // retain
|
||||
u2_noun zyc,
|
||||
u2_noun naz)
|
||||
{
|
||||
u2_noun p_zyc, q_zyc, p_naz, q_naz;
|
||||
|
||||
@ -58,9 +58,9 @@
|
||||
}
|
||||
}
|
||||
|
||||
static u2_noun // produce
|
||||
static u2_noun
|
||||
_next(
|
||||
u2_noun tub) // retain
|
||||
u2_noun tub)
|
||||
{
|
||||
u2_noun p_tub, q_tub;
|
||||
u2_noun zac;
|
||||
@ -86,10 +86,10 @@
|
||||
|
||||
/* bend
|
||||
*/
|
||||
u2_noun // produce
|
||||
_cqe_bend_fun(u2_noun raq, // retain
|
||||
u2_noun vex, // retain
|
||||
u2_noun sab) // retain
|
||||
u2_noun
|
||||
_cqe_bend_fun(u2_noun raq,
|
||||
u2_noun vex,
|
||||
u2_noun sab)
|
||||
{
|
||||
u2_noun p_vex, q_vex;
|
||||
|
||||
@ -140,8 +140,8 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_noun // produce
|
||||
_cwe_bend_fun(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_bend_fun(u2_noun cor)
|
||||
{
|
||||
u2_noun van, raq, vex, sab;
|
||||
|
||||
@ -158,11 +158,11 @@
|
||||
|
||||
/* cold
|
||||
*/
|
||||
u2_noun // produce
|
||||
u2_noun
|
||||
_cqe_cold_fun(
|
||||
u2_noun cus, // retain
|
||||
u2_noun sef, // retain
|
||||
u2_noun tub) // retain
|
||||
u2_noun cus,
|
||||
u2_noun sef,
|
||||
u2_noun tub)
|
||||
{
|
||||
u2_noun vex = u2_cx_good(u2_cn_slam_on(u2k(sef), u2k(tub)));
|
||||
u2_noun p_vex, q_vex;
|
||||
@ -188,9 +188,9 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_noun // produce
|
||||
_cwe_cold_fun(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_cold_fun(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun van, cus, sef, tub;
|
||||
|
||||
@ -205,11 +205,11 @@
|
||||
|
||||
/* cook
|
||||
*/
|
||||
u2_noun // produce
|
||||
u2_noun
|
||||
_cqe_cook_fun(
|
||||
u2_noun poq, // retain
|
||||
u2_noun sef, // retain
|
||||
u2_noun tub) // retain
|
||||
u2_noun poq,
|
||||
u2_noun sef,
|
||||
u2_noun tub)
|
||||
{
|
||||
u2_noun vex = u2_cx_good(u2_cn_slam_on(u2k(sef), u2k(tub)));
|
||||
u2_noun p_vex, q_vex;
|
||||
@ -237,9 +237,9 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_noun // produce
|
||||
_cwe_cook_fun(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_cook_fun(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun van, poq, sef, tub;
|
||||
|
||||
@ -254,11 +254,11 @@
|
||||
|
||||
/* comp
|
||||
*/
|
||||
u2_noun // produce
|
||||
u2_noun
|
||||
_cqe_comp_fun(
|
||||
u2_noun raq, // retain
|
||||
u2_noun vex, // retain
|
||||
u2_noun sab) // retain
|
||||
u2_noun raq,
|
||||
u2_noun vex,
|
||||
u2_noun sab)
|
||||
{
|
||||
u2_noun p_vex, q_vex;
|
||||
|
||||
@ -301,9 +301,9 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_noun // produce
|
||||
_cwe_comp_fun(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_comp_fun(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun van, raq, vex, sab;
|
||||
|
||||
@ -320,10 +320,10 @@
|
||||
|
||||
/* easy
|
||||
*/
|
||||
u2_noun // produce
|
||||
u2_noun
|
||||
_cqe_easy_fun(
|
||||
u2_noun huf, // retain
|
||||
u2_noun tub) // retain
|
||||
u2_noun huf,
|
||||
u2_noun tub)
|
||||
{
|
||||
u2_noun p_tub, q_tub;
|
||||
|
||||
@ -333,9 +333,9 @@
|
||||
u2k(huf),
|
||||
u2k(tub));
|
||||
}
|
||||
u2_noun // produce
|
||||
_cwe_easy_fun(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_easy_fun(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun van, huf, tub;
|
||||
|
||||
@ -350,11 +350,11 @@
|
||||
|
||||
/* glue
|
||||
*/
|
||||
u2_noun // produce
|
||||
u2_noun
|
||||
_cqe_glue_fun(
|
||||
u2_noun bus, // retain
|
||||
u2_noun vex, // retain
|
||||
u2_noun sab) // retain
|
||||
u2_noun bus,
|
||||
u2_noun vex,
|
||||
u2_noun sab)
|
||||
{
|
||||
u2_noun p_vex, q_vex;
|
||||
|
||||
@ -410,9 +410,9 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_noun // produce
|
||||
_cwe_glue_fun(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_glue_fun(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun van, bus, vex, sab;
|
||||
|
||||
@ -429,11 +429,11 @@
|
||||
|
||||
/* here
|
||||
*/
|
||||
u2_noun // produce
|
||||
u2_noun
|
||||
_cqe_here_fun(
|
||||
u2_noun hez, // retain
|
||||
u2_noun sef, // retain
|
||||
u2_noun tub) // retain
|
||||
u2_noun hez,
|
||||
u2_noun sef,
|
||||
u2_noun tub)
|
||||
{
|
||||
u2_noun vex = u2_cx_good(u2_cn_slam_on(u2k(sef), u2k(tub)));
|
||||
u2_noun p_vex, q_vex;
|
||||
@ -469,9 +469,9 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_noun // produce
|
||||
_cwe_here_fun(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_here_fun(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun van, hez, sef, tub;
|
||||
|
||||
@ -486,10 +486,10 @@
|
||||
|
||||
/* just
|
||||
*/
|
||||
u2_noun // produce
|
||||
u2_noun
|
||||
_cqe_just_fun(
|
||||
u2_noun daf, // retain
|
||||
u2_noun tub) // retain
|
||||
u2_noun daf,
|
||||
u2_noun tub)
|
||||
{
|
||||
u2_noun p_tub, q_tub;
|
||||
|
||||
@ -507,9 +507,9 @@
|
||||
else return _fail(tub);
|
||||
}
|
||||
}
|
||||
u2_noun // produce
|
||||
_cwe_just_fun(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_just_fun(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun van, daf, tub;
|
||||
|
||||
@ -524,10 +524,10 @@
|
||||
|
||||
/* mask
|
||||
*/
|
||||
u2_noun // produce
|
||||
u2_noun
|
||||
_cqe_mask_fun(
|
||||
u2_noun bud, // retain
|
||||
u2_noun tub) // retain
|
||||
u2_noun bud,
|
||||
u2_noun tub)
|
||||
{
|
||||
u2_noun p_tub, q_tub;
|
||||
|
||||
@ -548,9 +548,9 @@
|
||||
return _fail(tub);
|
||||
}
|
||||
}
|
||||
u2_noun // produce
|
||||
_cwe_mask_fun(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_mask_fun(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun van, bud, tub;
|
||||
|
||||
@ -564,10 +564,10 @@
|
||||
}
|
||||
/* pfix
|
||||
*/
|
||||
u2_noun // produce
|
||||
j2_mbx(Pt5, pfix)(
|
||||
u2_noun vex, // retain
|
||||
u2_noun sab) // retain
|
||||
u2_noun
|
||||
_cqe_pfix(
|
||||
u2_noun vex,
|
||||
u2_noun sab)
|
||||
{
|
||||
u2_noun p_vex, q_vex;
|
||||
|
||||
@ -594,30 +594,25 @@
|
||||
return ret;
|
||||
}
|
||||
}
|
||||
u2_noun // produce
|
||||
j2_mb(Pt5, pfix)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_pfix(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun vex, sab;
|
||||
|
||||
if ( (u2_no == u2_cr_mean(cor, u2_cv_sam_2, &vex, u2_cv_sam_3, &sab, 0)) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbx(Pt5, pfix)(vex, sab);
|
||||
return _cqe_pfix(vex, sab);
|
||||
}
|
||||
}
|
||||
u2_ho_jet
|
||||
j2_mbj(Pt5, pfix)[] = {
|
||||
{ ".2", c3__hevy, j2_mb(Pt5, pfix), Tier5_b, u2_none, u2_none },
|
||||
{ }
|
||||
};
|
||||
|
||||
/* plug
|
||||
*/
|
||||
u2_noun // produce
|
||||
j2_mbx(Pt5, plug)(
|
||||
u2_noun vex, // retain
|
||||
u2_noun sab) // retain
|
||||
u2_noun
|
||||
_cqe_plug(
|
||||
u2_noun vex,
|
||||
u2_noun sab)
|
||||
{
|
||||
u2_noun p_vex, q_vex;
|
||||
|
||||
@ -656,29 +651,24 @@
|
||||
return ret;
|
||||
}
|
||||
}
|
||||
u2_noun // produce
|
||||
j2_mb(Pt5, plug)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_plug(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun vex, sab;
|
||||
|
||||
if ( (u2_no == u2_cr_mean(cor, u2_cv_sam_2, &vex, u2_cv_sam_3, &sab, 0)) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbx(Pt5, plug)(vex, sab);
|
||||
return _cqe_plug(vex, sab);
|
||||
}
|
||||
}
|
||||
u2_ho_jet
|
||||
j2_mbj(Pt5, plug)[] = {
|
||||
{ ".2", c3__hevy, j2_mb(Pt5, plug), Tier5_b, u2_none, u2_none },
|
||||
{ }
|
||||
};
|
||||
|
||||
/* pose
|
||||
*/
|
||||
u2_noun // produce
|
||||
j2_mbx(Pt5, pose)(u2_noun vex, // retain
|
||||
u2_noun sab) // retain
|
||||
u2_noun
|
||||
u2_cqe_pose(u2_noun vex,
|
||||
u2_noun sab)
|
||||
{
|
||||
u2_noun p_vex, q_vex;
|
||||
|
||||
@ -700,30 +690,23 @@
|
||||
return ret;
|
||||
}
|
||||
}
|
||||
u2_noun // produce
|
||||
j2_mb(Pt5, pose)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_pose(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun vex, sab;
|
||||
|
||||
if ( (u2_no == u2_cr_mean(cor, u2_cv_sam_2, &vex, u2_cv_sam_3, &sab, 0)) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbx(Pt5, pose)(vex, sab);
|
||||
return u2_cqe_pose(vex, sab);
|
||||
}
|
||||
}
|
||||
u2_ho_jet
|
||||
j2_mbj(Pt5, pose)[] = {
|
||||
{ ".2", c3__hevy, j2_mb(Pt5, pose), Tier5_b, u2_none, u2_none },
|
||||
{ }
|
||||
};
|
||||
|
||||
/* sfix
|
||||
*/
|
||||
u2_noun // produce
|
||||
j2_mbx(Pt5, sfix)(
|
||||
u2_noun vex, // retain
|
||||
u2_noun sab) // retain
|
||||
u2_noun
|
||||
_cqe_sfix(u2_noun vex, u2_noun sab)
|
||||
{
|
||||
u2_noun p_vex, q_vex;
|
||||
|
||||
@ -761,29 +744,23 @@
|
||||
return ret;
|
||||
}
|
||||
}
|
||||
u2_noun // produce
|
||||
j2_mb(Pt5, sfix)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_sfix(u2_noun cor)
|
||||
{
|
||||
u2_noun vex, sab;
|
||||
|
||||
if ( (u2_no == u2_cr_mean(cor, u2_cv_sam_2, &vex, u2_cv_sam_3, &sab, 0)) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbx(Pt5, sfix)(vex, sab);
|
||||
return _cqe_sfix(vex, sab);
|
||||
}
|
||||
}
|
||||
u2_ho_jet
|
||||
j2_mbj(Pt5, sfix)[] = {
|
||||
{ ".2", c3__hevy, j2_mb(Pt5, sfix), Tier5_b, u2_none, u2_none },
|
||||
{ }
|
||||
};
|
||||
|
||||
/* shim
|
||||
*/
|
||||
u2_noun // produce
|
||||
_cqe_shim_fun(u2_noun zep, // retain
|
||||
u2_noun tub) // retain
|
||||
u2_noun
|
||||
_cqe_shim_fun(u2_noun zep,
|
||||
u2_noun tub)
|
||||
{
|
||||
u2_noun p_tub, q_tub;
|
||||
|
||||
@ -811,9 +788,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_noun // produce
|
||||
_cwe_shim_fun(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_shim_fun(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun van, zep, tub;
|
||||
|
||||
@ -828,11 +805,11 @@
|
||||
|
||||
/* stag
|
||||
*/
|
||||
u2_noun // produce
|
||||
u2_noun
|
||||
_cqe_stag_fun(
|
||||
u2_noun gob, // retain
|
||||
u2_noun sef, // retain
|
||||
u2_noun tub) // retain
|
||||
u2_noun gob,
|
||||
u2_noun sef,
|
||||
u2_noun tub)
|
||||
{
|
||||
u2_noun vex = u2_cx_good(u2_cn_slam_on(u2k(sef), u2k(tub)));
|
||||
u2_noun p_vex, q_vex;
|
||||
@ -860,9 +837,9 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_noun // produce
|
||||
_cwe_stag_fun(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_stag_fun(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun van, gob, sef, tub;
|
||||
|
||||
@ -903,10 +880,10 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_noun // produce
|
||||
u2_noun
|
||||
_cqe_stew_fun(
|
||||
u2_noun hel, // retain
|
||||
u2_noun tub) // retain
|
||||
u2_noun hel,
|
||||
u2_noun tub)
|
||||
{
|
||||
u2_noun p_tub, q_tub;
|
||||
|
||||
@ -919,7 +896,7 @@
|
||||
|
||||
if ( u2_ne(u2_co_is_cat(iq_tub)) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
}
|
||||
}
|
||||
else while ( 1 ) {
|
||||
if ( u2_no == u2du(hel) ) {
|
||||
return _fail(tub);
|
||||
@ -939,7 +916,7 @@
|
||||
u2_noun hpn_hel = u2h(pn_hel);
|
||||
u2_noun tpn_hel = u2t(pn_hel);
|
||||
|
||||
if ( u2_ne(u2_co_is_cat(hpn_hel)) ||
|
||||
if ( u2_ne(u2_co_is_cat(hpn_hel)) ||
|
||||
u2_ne(u2_co_is_cat(tpn_hel)) ) {
|
||||
return _fail(tub);
|
||||
}
|
||||
@ -959,9 +936,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_noun // produce
|
||||
_cwe_stew_fun(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_stew_fun(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun con, hel, tub;
|
||||
|
||||
@ -976,11 +953,11 @@
|
||||
|
||||
/* stir
|
||||
*/
|
||||
u2_noun // produce
|
||||
_cqe_stir_fun(u2_noun rud, // retain
|
||||
u2_noun raq, // retain
|
||||
u2_noun fel, // retain
|
||||
u2_noun tub) // retain
|
||||
u2_noun
|
||||
_cqe_stir_fun(u2_noun rud,
|
||||
u2_noun raq,
|
||||
u2_noun fel,
|
||||
u2_noun tub)
|
||||
{
|
||||
u2_noun vex = u2_cx_good(u2_cn_slam_on(u2k(fel), u2k(tub)));
|
||||
u2_noun p_vex, q_vex;
|
||||
@ -1022,8 +999,8 @@
|
||||
return ret;
|
||||
}
|
||||
|
||||
u2_noun // produce
|
||||
_cwe_stir_fun(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_stir_fun(u2_noun cor)
|
||||
{
|
||||
u2_noun van, rud, raq, fel, tub;
|
||||
|
||||
|
||||
116
gen164/5/rd.c
116
gen164/5/rd.c
@ -15,9 +15,8 @@ union doub {
|
||||
*/
|
||||
/* sun
|
||||
*/
|
||||
u2_weak
|
||||
j2_mcd(Pt5, rd, sun)(
|
||||
u2_atom a)
|
||||
u2_noun
|
||||
u2_cqer_sun(u2_atom a)
|
||||
{
|
||||
union doub b;
|
||||
b.d = (double) u2_cr_chub(0, a);
|
||||
@ -25,9 +24,8 @@ union doub {
|
||||
return u2_ci_chubs(1, &b.c);
|
||||
}
|
||||
|
||||
u2_weak
|
||||
j2_mc(Pt5, rd, sun)(
|
||||
u2_noun cor)
|
||||
u2_noun
|
||||
u2_cwer_sun(u2_noun cor)
|
||||
{
|
||||
u2_noun a;
|
||||
|
||||
@ -36,16 +34,14 @@ union doub {
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
return j2_mcd(Pt5, rd, sun)(a);
|
||||
return u2_cqer_sun(a);
|
||||
}
|
||||
}
|
||||
|
||||
/* mul
|
||||
*/
|
||||
u2_weak
|
||||
j2_mcd(Pt5, rd, mul)(
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
u2_noun
|
||||
u2_cqer_mul(u2_atom a, u2_atom b)
|
||||
{
|
||||
union doub c, d, e;
|
||||
c.c = u2_cr_chub(0, a);
|
||||
@ -55,9 +51,8 @@ union doub {
|
||||
return u2_ci_chubs(1, &e.c);
|
||||
}
|
||||
|
||||
u2_weak
|
||||
j2_mc(Pt5, rd, mul)(
|
||||
u2_noun cor)
|
||||
u2_noun
|
||||
u2_cwer_mul(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -68,16 +63,14 @@ union doub {
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
return j2_mcd(Pt5, rd, mul)(a, b);
|
||||
return u2_cqer_mul(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
/* div
|
||||
*/
|
||||
u2_weak
|
||||
j2_mcd(Pt5, rd, div)(
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
u2_noun
|
||||
u2_cqer_div(u2_atom a, u2_atom b)
|
||||
{
|
||||
union doub c, d, e;
|
||||
c.c = u2_cr_chub(0, a);
|
||||
@ -87,9 +80,8 @@ union doub {
|
||||
return u2_ci_chubs(1, &e.c);
|
||||
}
|
||||
|
||||
u2_weak
|
||||
j2_mc(Pt5, rd, div)(
|
||||
u2_noun cor)
|
||||
u2_noun
|
||||
u2_cwer_div(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -100,16 +92,14 @@ union doub {
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
return j2_mcd(Pt5, rd, div)(a, b);
|
||||
return u2_cqer_div(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
/* add
|
||||
*/
|
||||
u2_weak
|
||||
j2_mcd(Pt5, rd, add)(
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
u2_noun
|
||||
u2_cqer_add(u2_atom a, u2_atom b)
|
||||
{
|
||||
union doub c, d, e;
|
||||
c.c = u2_cr_chub(0, a);
|
||||
@ -119,9 +109,8 @@ union doub {
|
||||
return u2_ci_chubs(1, &e.c);
|
||||
}
|
||||
|
||||
u2_weak
|
||||
j2_mc(Pt5, rd, add)(
|
||||
u2_noun cor)
|
||||
u2_noun
|
||||
u2_cwer_add(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -132,16 +121,14 @@ union doub {
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
return j2_mcd(Pt5, rd, add)(a, b);
|
||||
return u2_cqer_add(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
/* sub
|
||||
*/
|
||||
u2_weak
|
||||
j2_mcd(Pt5, rd, sub)(
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
u2_noun
|
||||
u2_cqer_sub(u2_atom a, u2_atom b)
|
||||
{
|
||||
union doub c, d, e;
|
||||
c.c = u2_cr_chub(0, a);
|
||||
@ -151,9 +138,8 @@ union doub {
|
||||
return u2_ci_chubs(1, &e.c);
|
||||
}
|
||||
|
||||
u2_weak
|
||||
j2_mc(Pt5, rd, sub)(
|
||||
u2_noun cor)
|
||||
u2_noun
|
||||
u2_cwer_sub(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -164,16 +150,14 @@ union doub {
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
return j2_mcd(Pt5, rd, sub)(a, b);
|
||||
return u2_cqer_sub(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
/* lte
|
||||
*/
|
||||
u2_weak
|
||||
j2_mcd(Pt5, rd, lte)(
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
u2_noun
|
||||
u2_cqer_lte(u2_atom a, u2_atom b)
|
||||
{
|
||||
union doub c, d;
|
||||
c.c = u2_cr_chub(0, a);
|
||||
@ -182,9 +166,8 @@ union doub {
|
||||
return u2_say(c.d <= d.d);
|
||||
}
|
||||
|
||||
u2_weak
|
||||
j2_mc(Pt5, rd, lte)(
|
||||
u2_noun cor)
|
||||
u2_noun
|
||||
u2_cwer_lte(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -195,16 +178,14 @@ union doub {
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
return j2_mcd(Pt5, rd, lte)(a, b);
|
||||
return u2_cqer_lte(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
/* lth
|
||||
*/
|
||||
u2_weak
|
||||
j2_mcd(Pt5, rd, lth)(
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
u2_noun
|
||||
u2_cqer_lth(u2_atom a, u2_atom b)
|
||||
{
|
||||
union doub c, d;
|
||||
c.c = u2_cr_chub(0, a);
|
||||
@ -213,9 +194,8 @@ union doub {
|
||||
return u2_say(c.d < d.d);
|
||||
}
|
||||
|
||||
u2_weak
|
||||
j2_mc(Pt5, rd, lth)(
|
||||
u2_noun cor)
|
||||
u2_noun
|
||||
u2_cwer_lth(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -226,16 +206,14 @@ union doub {
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
return j2_mcd(Pt5, rd, lth)(a, b);
|
||||
return u2_cqer_lth(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
/* gte
|
||||
*/
|
||||
u2_weak
|
||||
j2_mcd(Pt5, rd, gte)(
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
u2_noun
|
||||
u2_cqer_gte(u2_atom a, u2_atom b)
|
||||
{
|
||||
union doub c, d;
|
||||
c.c = u2_cr_chub(0, a);
|
||||
@ -244,9 +222,8 @@ union doub {
|
||||
return u2_say(c.d >= d.d);
|
||||
}
|
||||
|
||||
u2_weak
|
||||
j2_mc(Pt5, rd, gte)(
|
||||
u2_noun cor)
|
||||
u2_noun
|
||||
u2_cwer_gte(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -257,16 +234,14 @@ union doub {
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
return j2_mcd(Pt5, rd, gte)(a, b);
|
||||
return u2_cqer_gte(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
/* gth
|
||||
*/
|
||||
u2_weak
|
||||
j2_mcd(Pt5, rd, gth)(
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
u2_noun
|
||||
u2_cqer_gth(u2_atom a, u2_atom b)
|
||||
{
|
||||
union doub c, d;
|
||||
c.c = u2_cr_chub(0, a);
|
||||
@ -275,9 +250,8 @@ union doub {
|
||||
return u2_say(c.d > d.d);
|
||||
}
|
||||
|
||||
u2_weak
|
||||
j2_mc(Pt5, rd, gth)(
|
||||
u2_noun cor)
|
||||
u2_noun
|
||||
u2_cwer_gth(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -288,6 +262,6 @@ union doub {
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
else {
|
||||
return j2_mcd(Pt5, rd, gth)(a, b);
|
||||
return u2_cqer_gth(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
@ -7,11 +7,8 @@
|
||||
#include "cre2.h"
|
||||
#include <string.h>
|
||||
|
||||
u2_noun // produce
|
||||
j2_mbc(Pt5, repg)(
|
||||
u2_noun lub,
|
||||
u2_noun rad,
|
||||
u2_noun rep) // retain
|
||||
u2_noun
|
||||
u2_cqe_repg(u2_noun lub, u2_noun rad, u2_noun rep)
|
||||
{
|
||||
c3_y* lub_y = u2_cr_tape(lub);
|
||||
c3_y* rad_y = u2_cr_tape(rad);
|
||||
@ -124,9 +121,8 @@
|
||||
return u2_nul;
|
||||
}
|
||||
|
||||
u2_weak // produce
|
||||
j2_mb(Pt5, repg)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_repg(u2_noun cor)
|
||||
{
|
||||
u2_noun lub;
|
||||
u2_noun rad;
|
||||
@ -138,6 +134,6 @@
|
||||
{
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mbc(Pt5, repg)(lub, rad, rep);
|
||||
return u2_cqe_repg(lub, rad, rep);
|
||||
}
|
||||
}
|
||||
|
||||
@ -7,10 +7,8 @@
|
||||
#include "cre2.h"
|
||||
#include <string.h>
|
||||
|
||||
u2_noun // produce
|
||||
j2_mbc(Pt5, rexp)(
|
||||
u2_noun lub,
|
||||
u2_noun rad) // retain
|
||||
u2_noun
|
||||
u2_cqe_rexp(u2_noun lub, u2_noun rad)
|
||||
{
|
||||
c3_y* lub_y = u2_cr_tape(lub);
|
||||
c3_y* rad_y = u2_cr_tape(rad);
|
||||
@ -125,9 +123,8 @@
|
||||
return u2_nul;
|
||||
}
|
||||
|
||||
u2_weak // produce
|
||||
j2_mb(Pt5, rexp)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_rexp(u2_noun cor)
|
||||
{
|
||||
u2_noun lub;
|
||||
u2_noun rad;
|
||||
@ -137,6 +134,6 @@
|
||||
{
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mbc(Pt5, rexp)(lub, rad);
|
||||
return u2_cqe_rexp(lub, rad);
|
||||
}
|
||||
}
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // produce
|
||||
u2_noun
|
||||
u2_cqe_rub(
|
||||
u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
u2_atom c, d, e;
|
||||
u2_atom w, x, y, z;
|
||||
@ -65,9 +65,9 @@
|
||||
return u2nc(p, q);
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwe_rub(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
|
||||
@ -13,9 +13,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_weak // produce
|
||||
j2_mbc(Pt5, shax)(
|
||||
u2_atom a) // retain
|
||||
u2_noun
|
||||
u2_cqe_shax(
|
||||
u2_atom a)
|
||||
{
|
||||
c3_w met_w = u2_cr_met(3, a);
|
||||
c3_y* fat_y = c3_malloc(met_w + 1);
|
||||
@ -41,9 +41,9 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_weak // produce
|
||||
j2_mbc(Pt5, shal)(u2_atom a, // retain
|
||||
u2_atom b) // retain
|
||||
u2_noun
|
||||
u2_cqe_shal(u2_atom a,
|
||||
u2_atom b)
|
||||
{
|
||||
c3_assert(u2_so(u2_co_is_cat(a)));
|
||||
c3_y* fat_y = c3_malloc(a + 1);
|
||||
@ -69,21 +69,21 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_weak // produce
|
||||
j2_mbc(Pt5, shas)(
|
||||
u2_atom sal, // retain
|
||||
u2_atom ruz) // retain
|
||||
u2_noun
|
||||
u2_cqe_shas(
|
||||
u2_atom sal,
|
||||
u2_atom ruz)
|
||||
{
|
||||
u2_noun one = j2_mbc(Pt5, shax)(ruz);
|
||||
u2_noun one = u2_cqe_shax(ruz);
|
||||
u2_noun two = u2_cqc_mix(sal, one);
|
||||
u2_noun tri = j2_mbc(Pt5, shax)(two);
|
||||
u2_noun tri = u2_cqe_shax(two);
|
||||
|
||||
u2z(one); u2z(two); return tri;
|
||||
}
|
||||
|
||||
u2_weak // produce
|
||||
j2_mb(Pt5, shax)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_shax(
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun a;
|
||||
|
||||
@ -92,12 +92,12 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt5, shax)(a);
|
||||
return u2_cqe_shax(a);
|
||||
}
|
||||
}
|
||||
|
||||
u2_weak // produce
|
||||
j2_mb(Pt5, shal)(u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_shal(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
@ -109,13 +109,12 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt5, shal)(a, b);
|
||||
return u2_cqe_shal(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
u2_weak // produce
|
||||
j2_mb(Pt5, shas)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_shas(u2_noun cor)
|
||||
{
|
||||
u2_noun sal, ruz;
|
||||
|
||||
@ -126,15 +125,15 @@
|
||||
{
|
||||
return u2_cm_bail(c3__exit);
|
||||
} else {
|
||||
return j2_mbc(Pt5, shas)(sal, ruz);
|
||||
return u2_cqe_shas(sal, ruz);
|
||||
}
|
||||
}
|
||||
|
||||
static u2_noun // produce
|
||||
static u2_noun
|
||||
_og_list(
|
||||
u2_noun a, // retain
|
||||
u2_noun b, // retain
|
||||
u2_noun c) // retain
|
||||
u2_noun a,
|
||||
u2_noun b,
|
||||
u2_noun c)
|
||||
{
|
||||
u2_noun l = u2_nul;
|
||||
|
||||
@ -144,7 +143,7 @@
|
||||
while ( 0 != b ) {
|
||||
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 d = u2_cqe_shas(c3_s4('o','g','-','b'), y);
|
||||
u2_noun m;
|
||||
|
||||
u2z(x); u2z(y);
|
||||
@ -166,13 +165,11 @@
|
||||
return u2_ckb_flop(l);
|
||||
}
|
||||
|
||||
u2_noun // produce
|
||||
j2_mcc(Pt5, og, raw)(
|
||||
u2_noun a, // retain
|
||||
u2_noun b) // retain
|
||||
u2_noun
|
||||
u2_cqeo_raw(u2_atom a, u2_atom b)
|
||||
{
|
||||
u2_noun x = u2_cqc_mix(b, a);
|
||||
u2_noun c = j2_mbc(Pt5, shas)(c3_s4('o','g','-','a'), x);
|
||||
u2_noun c = u2_cqe_shas(c3_s4('o','g','-','a'), x);
|
||||
u2_noun l = _og_list(a, b, c);
|
||||
u2_noun r = u2_cqc_can(0, l);
|
||||
|
||||
@ -183,15 +180,14 @@
|
||||
return r;
|
||||
}
|
||||
|
||||
u2_weak // transfer
|
||||
j2_mc(Pt5, og, raw)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cweo_raw(u2_noun cor)
|
||||
{
|
||||
u2_noun a, b;
|
||||
|
||||
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(Pt5, og, raw)(a, b);
|
||||
return u2_cqeo_raw(a, b);
|
||||
}
|
||||
}
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
static u2_noun // transfer
|
||||
static u2_noun
|
||||
_norm(
|
||||
u2_noun a) // retain
|
||||
u2_noun a)
|
||||
{
|
||||
if ( u2_no == u2du(a) ) {
|
||||
return u2_nul;
|
||||
@ -21,7 +21,7 @@
|
||||
|
||||
static u2_bean
|
||||
_good(
|
||||
u2_noun a) // retain
|
||||
u2_noun a)
|
||||
{
|
||||
while ( 1 ) {
|
||||
if ( u2_nul == a ) {
|
||||
@ -34,26 +34,23 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
j2_mby(PtM, tape)(
|
||||
u2_noun a) // retain
|
||||
u2_noun
|
||||
u2_cqe_tape(u2_noun a)
|
||||
{
|
||||
if ( u2_yes == _good(a) ) {
|
||||
fprintf(stderr, "good!\r\n");
|
||||
return u2k(a);
|
||||
} else {
|
||||
return _norm(a);
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
j2_mb(PtM, tape)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_tape(u2_noun cor)
|
||||
{
|
||||
u2_noun a;
|
||||
|
||||
if ( (u2_none == (a = u2_cr_at(u2_cv_sam, cor))) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return j2_mby(PtM, tape)(a);
|
||||
return u2_cqe_tape(a);
|
||||
}
|
||||
}
|
||||
|
||||
@ -7,23 +7,22 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
u2_cqc_trip(u2_atom a) // retain
|
||||
u2_noun
|
||||
u2_cqe_trip(u2_atom a)
|
||||
{
|
||||
if ( u2_no == u2ud(a) ) {
|
||||
return u2_cm_bail(c3__exit);
|
||||
}
|
||||
return u2_cqc_rip(3, a);
|
||||
}
|
||||
u2_noun // transfer
|
||||
j2_mb(Pt5, trip)(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cwe_trip(u2_noun cor)
|
||||
{
|
||||
u2_noun a;
|
||||
|
||||
if ( (u2_none == (a = u2_cr_at(u2_cv_sam, cor))) ) {
|
||||
return u2_cm_bail(c3__fail);
|
||||
} else {
|
||||
return u2_cqc_trip(a);
|
||||
return u2_cqe_trip(a);
|
||||
}
|
||||
}
|
||||
|
||||
@ -13,15 +13,15 @@ _al_core(u2_noun van,
|
||||
{
|
||||
u2_noun ter = u2_cr_at(u2_cv_con_3, van);
|
||||
u2_noun gat = u2_cj_hook(u2k(ter), "al");
|
||||
|
||||
|
||||
return u2_ci_molt(gat, u2_cv_sam, u2k(gen), 0);
|
||||
}
|
||||
|
||||
/* ~(bunt al gen)
|
||||
*/
|
||||
u2_noun // transfer
|
||||
u2_cqfl_bunt(u2_noun van, // retain
|
||||
u2_noun gen) // retain
|
||||
u2_noun
|
||||
u2_cqfl_bunt(u2_noun van,
|
||||
u2_noun gen)
|
||||
{
|
||||
u2_noun cor = _al_core(van, gen);
|
||||
|
||||
@ -30,9 +30,9 @@ u2_cqfl_bunt(u2_noun van, // retain
|
||||
|
||||
/* ~(whip al gen)
|
||||
*/
|
||||
u2_noun // transfer
|
||||
u2_cqfl_whip(u2_noun van, // retain
|
||||
u2_noun gen, // retain
|
||||
u2_noun
|
||||
u2_cqfl_whip(u2_noun van,
|
||||
u2_noun gen,
|
||||
u2_noun axe) //
|
||||
{
|
||||
u2_noun cor = _al_core(van, gen);
|
||||
|
||||
111
gen164/6/ap.c
111
gen164/6/ap.c
@ -7,15 +7,6 @@
|
||||
|
||||
/** forward declares
|
||||
**/
|
||||
u2_noun
|
||||
j2_mcy(Pt6, ap, mold)(u2_noun, u2_noun);
|
||||
|
||||
u2_noun
|
||||
j2_mcy(Pt6, ap, pick)(u2_noun, u2_noun, u2_noun);
|
||||
|
||||
u2_noun
|
||||
j2_mcy(Pt6, ap, mold)(u2_noun, u2_noun);
|
||||
|
||||
u2_noun u2_cwfp_rake(u2_noun);
|
||||
u2_noun u2_cwfp_open(u2_noun);
|
||||
u2_noun u2_cwfp_hack(u2_noun);
|
||||
@ -29,15 +20,7 @@
|
||||
# define _ap_jet_rake 1
|
||||
# define _ap_jet_hack 2
|
||||
|
||||
u2_ho_jet
|
||||
j2_mbj(Pt6, ap)[] = {
|
||||
{ "open", c3__hevy, u2_cwfp_open, Tier6_c, u2_none, u2_none },
|
||||
{ "rake", c3__hevy, u2_cwfp_rake, Tier6_c, u2_none, u2_none },
|
||||
// { "hack", c3__hevy, u2_cwfp_hack, Tier6_c, u2_none, u2_none },
|
||||
{ }
|
||||
};
|
||||
|
||||
static u2_weak
|
||||
static u2_noun
|
||||
_open_in(u2_noun ter, u2_noun gen);
|
||||
|
||||
/* ~(. al gen)
|
||||
@ -48,7 +31,7 @@
|
||||
{
|
||||
u2_noun ter = u2_cr_at(u2_cv_con_3, van);
|
||||
u2_noun gat = u2_cj_hook(u2k(ter), "al");
|
||||
|
||||
|
||||
return u2_ci_molt(gat, u2_cv_sam, u2k(gen), 0);
|
||||
}
|
||||
|
||||
@ -669,9 +652,9 @@
|
||||
/***
|
||||
****
|
||||
***/
|
||||
static u2_noun // produce
|
||||
static u2_noun
|
||||
_smcl_in(
|
||||
u2_noun q_gen) // retain
|
||||
u2_noun q_gen)
|
||||
{
|
||||
u2_noun hq_gen = u2h(q_gen);
|
||||
u2_noun tq_gen = u2t(q_gen);
|
||||
@ -741,7 +724,7 @@
|
||||
*/
|
||||
/** open
|
||||
**/
|
||||
static u2_weak
|
||||
static u2_noun
|
||||
_open_in(
|
||||
u2_noun ter,
|
||||
u2_noun gen)
|
||||
@ -908,9 +891,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwfp_rake(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun gen;
|
||||
|
||||
@ -923,10 +906,10 @@
|
||||
|
||||
/** hack
|
||||
**/
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cqfp_hack(
|
||||
u2_noun ter, // retain
|
||||
u2_noun gen) // retain
|
||||
u2_noun ter,
|
||||
u2_noun gen)
|
||||
{
|
||||
u2_noun p_gen, q_gen;
|
||||
u2_noun ret;
|
||||
@ -1011,9 +994,9 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwfp_hack(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun gen;
|
||||
|
||||
@ -1028,12 +1011,11 @@
|
||||
|
||||
/* boilerplate
|
||||
*/
|
||||
u2_noun // transfer
|
||||
j2_mbi(Pt6, ap)(u2_noun ter, // retain
|
||||
u2_noun gen) // retain
|
||||
{
|
||||
u2_noun
|
||||
_ap_core(u2_noun ter, u2_noun gen)
|
||||
{
|
||||
u2_noun gat = u2_cj_hook(u2k(ter), "ap");
|
||||
|
||||
|
||||
return u2_ci_molt(gat, u2_cv_sam, u2k(gen), 0);
|
||||
}
|
||||
|
||||
@ -1043,67 +1025,32 @@
|
||||
_ap_open_n(u2_noun ter,
|
||||
u2_noun gen)
|
||||
{
|
||||
u2_noun cor = j2_mbi(Pt6, ap)(ter, gen);
|
||||
u2_noun cor = _ap_core(ter, gen);
|
||||
|
||||
return u2_cj_hook(cor, "open");
|
||||
}
|
||||
static u2_noun // transfer
|
||||
static u2_noun
|
||||
_ap_open_l(
|
||||
u2_noun ter, // retain
|
||||
u2_noun gen) // retain
|
||||
u2_noun ter,
|
||||
u2_noun gen)
|
||||
{
|
||||
u2_weak pro = _open_in(ter, gen);
|
||||
u2_noun pro = _open_in(ter, gen);
|
||||
|
||||
if ( u2_none != pro ) {
|
||||
return pro;
|
||||
} else {
|
||||
u2_ho_jet *jet_j = &j2_mbj(Pt6, ap)[_ap_jet_open];
|
||||
|
||||
// c3_assert(jet_j->sat_s & u2_jet_live);
|
||||
jet_j->sat_s &= ~u2_jet_live;
|
||||
{
|
||||
pro = _ap_open_n(ter, gen);
|
||||
// u2_err("gen", gen);
|
||||
// u2_err("pro", pro);
|
||||
}
|
||||
jet_j->sat_s |= u2_jet_live;
|
||||
|
||||
return pro;
|
||||
}
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
u2_cqfp_open(
|
||||
u2_noun ter, // retain
|
||||
u2_noun gen) // retain
|
||||
{
|
||||
u2_ho_jet *jet_j = &j2_mbj(Pt6, ap)[_ap_jet_open];
|
||||
|
||||
if ( !(jet_j->sat_s & u2_jet_live) ) {
|
||||
return _ap_open_n(ter, gen);
|
||||
}
|
||||
else {
|
||||
if ( !(jet_j->sat_s & u2_jet_memo) ) {
|
||||
return _ap_open_l(ter, gen);
|
||||
}
|
||||
else {
|
||||
c3_m fun_m = c3__open;
|
||||
u2_noun pro = u2_cz_find(fun_m, gen);
|
||||
|
||||
if ( u2_none != pro ) {
|
||||
return pro;
|
||||
}
|
||||
else {
|
||||
pro = _ap_open_l(ter, gen);
|
||||
}
|
||||
return u2_cz_save(fun_m, gen, pro);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
u2_cwfp_open(
|
||||
u2_noun cor) // retain
|
||||
u2_noun
|
||||
u2_cqfp_open(u2_noun ter, u2_noun gen)
|
||||
{
|
||||
return _ap_open_l(ter, gen);
|
||||
}
|
||||
|
||||
u2_noun
|
||||
u2_cwfp_open(u2_noun cor)
|
||||
{
|
||||
u2_noun gen;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cqf_bull(
|
||||
u2_noun bid, // retain
|
||||
u2_noun der) // retain
|
||||
u2_noun bid,
|
||||
u2_noun der)
|
||||
{
|
||||
if ( (c3__void == der) ||
|
||||
(c3__void == u2t(u2t(u2t(bid)))) )
|
||||
@ -20,9 +20,9 @@
|
||||
else return u2nt
|
||||
(c3__bull, u2k(bid), u2k(der));
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwf_bull(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun bid, der;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cqf_cell(
|
||||
u2_noun hed, // retain
|
||||
u2_noun tal) // retain
|
||||
u2_noun hed,
|
||||
u2_noun tal)
|
||||
{
|
||||
if ( (c3__void == hed) || (c3__void == tal) ) {
|
||||
return c3__void;
|
||||
@ -18,9 +18,9 @@
|
||||
return u2nt(c3__cell, u2k(hed), u2k(tal));
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwf_cell(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun hed, tal;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cqf_comb(
|
||||
u2_noun mal, // retain
|
||||
u2_noun buz) // retain
|
||||
u2_noun mal,
|
||||
u2_noun buz)
|
||||
{
|
||||
if ( (u2_none == mal) || (u2_none == buz) ) {
|
||||
return u2_none;
|
||||
@ -58,9 +58,9 @@
|
||||
u2k(buz));
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwf_comb(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun mal, buz;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cqf_cons(
|
||||
u2_noun vur, // retain
|
||||
u2_noun sed) // retain
|
||||
u2_noun vur,
|
||||
u2_noun sed)
|
||||
{
|
||||
u2_noun p_vur, p_sed;
|
||||
|
||||
@ -41,9 +41,9 @@
|
||||
}
|
||||
return u2nc(u2k(vur), u2k(sed));
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwf_cons(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun vur, sed;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cqf_core(
|
||||
u2_noun pac, // retain
|
||||
u2_noun con) // retain
|
||||
u2_noun pac,
|
||||
u2_noun con)
|
||||
{
|
||||
if ( (c3__void == pac) ) {
|
||||
return c3__void;
|
||||
@ -18,9 +18,9 @@
|
||||
return u2nt(c3__core, u2k(pac), u2k(con));
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwf_core(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun pac, con;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cqf_cube(
|
||||
u2_noun dil, // retain
|
||||
u2_noun goq) // retain
|
||||
u2_noun dil,
|
||||
u2_noun goq)
|
||||
{
|
||||
if ( c3__void == goq ) {
|
||||
return c3__void;
|
||||
@ -18,9 +18,9 @@
|
||||
else return u2nt
|
||||
(c3__cube, u2k(dil), u2k(goq));
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwf_cube(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun dil, goq;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cqf_face(
|
||||
u2_noun cog, // retain
|
||||
u2_noun tip) // retain
|
||||
u2_noun cog,
|
||||
u2_noun tip)
|
||||
{
|
||||
if ( c3__void == tip ) {
|
||||
return c3__void;
|
||||
@ -18,9 +18,9 @@
|
||||
else return u2nt
|
||||
(c3__face, u2k(cog), u2k(tip));
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwf_face(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun cog, tip;
|
||||
|
||||
|
||||
@ -7,11 +7,11 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cqf_fine(
|
||||
u2_noun fuv,
|
||||
u2_noun lup, // retain
|
||||
u2_noun mar) // retain
|
||||
u2_noun lup,
|
||||
u2_noun mar)
|
||||
{
|
||||
if ( (c3__void == lup) || (c3__void == mar) ) {
|
||||
return c3__void;
|
||||
@ -21,9 +21,9 @@
|
||||
u2k(mar));
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwf_fine(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun fuv, lup, mar;
|
||||
|
||||
|
||||
@ -30,10 +30,10 @@
|
||||
return u2_yes;
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cqf_fitz(
|
||||
u2_noun yaz, // retain
|
||||
u2_noun wix) // retain
|
||||
u2_noun yaz,
|
||||
u2_noun wix)
|
||||
{
|
||||
c3_w i_w, met_w = c3_min(u2_cr_met(3, yaz), u2_cr_met(3, wix));
|
||||
|
||||
@ -54,9 +54,9 @@
|
||||
return u2_yes;
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwf_fitz(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun yaz, wix;
|
||||
|
||||
|
||||
@ -7,10 +7,10 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cqf_flan(
|
||||
u2_noun bos, // retain
|
||||
u2_noun nif) // retain
|
||||
u2_noun bos,
|
||||
u2_noun nif)
|
||||
{
|
||||
if ( u2_yes == u2_cr_sing(1, u2h(bos)) ) {
|
||||
if ( (u2_nul == u2t(bos)) ) {
|
||||
@ -34,9 +34,9 @@
|
||||
}
|
||||
}
|
||||
}
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwf_flan(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun bos, nif;
|
||||
|
||||
|
||||
@ -7,9 +7,9 @@
|
||||
|
||||
/* functions
|
||||
*/
|
||||
static u2_noun // produce
|
||||
static u2_noun
|
||||
_flay_roll(
|
||||
u2_noun quz) // retain
|
||||
u2_noun quz)
|
||||
{
|
||||
if ( u2_no == u2du(quz) ) {
|
||||
return c3__void;
|
||||
@ -22,9 +22,9 @@
|
||||
}
|
||||
}
|
||||
|
||||
u2_noun // produce
|
||||
u2_noun
|
||||
u2_cqf_flay(
|
||||
u2_noun pok) // retain
|
||||
u2_noun pok)
|
||||
{
|
||||
u2_noun p_pok = u2h(pok);
|
||||
u2_noun q_pok = u2t(pok);
|
||||
@ -41,9 +41,9 @@
|
||||
return u2nc(u2k(p_pok), typ);
|
||||
}
|
||||
|
||||
u2_noun // transfer
|
||||
u2_noun
|
||||
u2_cwf_flay(
|
||||
u2_noun cor) // retain
|
||||
u2_noun cor)
|
||||
{
|
||||
u2_noun pok;
|
||||
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user