ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-01 03:23:09 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix alignments in jets/f

Browse Source
This commit is contained in:
Alex Higgins 2015-08-28 11:34:36 -05:00
parent c9262507f2
commit 941af0b677
49 changed files with 1093 additions and 1426 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
jets/f/al.c
View File

@ -19,7 +19,8 @@ _al_core(u3_noun van,
/* ~(bunt al gen)
*/
u3_noun
u3qfl_bunt(u3_noun van, u3_noun gen)
u3qfl_bunt(u3_noun van,
u3_noun gen)
{
u3_noun cor = _al_core(van, gen);

234
jets/f/ap.c
View File

@ -25,7 +25,8 @@
/* ~(. al gen)
*/
static u3_noun
_al_core(u3_noun ter, u3_noun gen)
_al_core(u3_noun ter,
u3_noun gen)
{
u3_noun gat = u3j_hook(u3k(ter), "al");
@ -35,7 +36,8 @@
/* van is transferred, gen is retained
*/
static u3_noun
_ap_bunt(u3_noun van, u3_noun gen)
_ap_bunt(u3_noun van,
u3_noun gen)
{
u3_noun pro = u3qfl_bunt(van, gen);
@ -68,10 +70,8 @@
***/
_open_do_pq(tsbr) // =:
{
return
u3nt(c3__tsls,
_ap_bunt(
_al_core(ter, p_gen), p_gen),
return u3nt(c3__tsls,
_ap_bunt(_al_core(ter, p_gen), p_gen),
u3k(q_gen));
}
_open_do_pq(tscl) // =:
@ -85,8 +85,7 @@
}
_open_do_pqr(tsdt) // =.
{
return
u3nt(c3__tsgr,
return u3nt(c3__tsgr,
u3nt(c3__cncb,
u3nc(u3nc(u3_nul, 1),
u3_nul),
@ -97,18 +96,19 @@
}
_open_do_pq(tsgl) // =<
{
return u3nt(c3__tsgr, u3k(q_gen),
return u3nt(c3__tsgr,
u3k(q_gen),
u3k(p_gen));
}
_open_do_pq(tshp) // =-
{
return u3nt(c3__tsls, u3k(q_gen),
return u3nt(c3__tsls,
u3k(q_gen),
u3k(p_gen));
}
_open_do_pq(tsls) // =+
{
return u3nt
(c3__tsgr,
return u3nt(c3__tsgr,
u3nc(u3k(p_gen),
u3nc(u3_nul, 1)),
u3k(q_gen));
@ -145,31 +145,28 @@
{
return
u3nc(c3__ktsg,
_ap_bunt(
_al_core(ter, p_gen),
_ap_bunt(_al_core(ter, p_gen),
p_gen));
}
_open_do_p(bczp) // $!
{
return u3nt
(c3__bccb, c3__axil, u3k(p_gen));
return u3nt(c3__bccb,
c3__axil,
u3k(p_gen));
}
/***
****
***/
_open_do_p(brhp) // |-
{
return u3nt
(c3__tsgl,
return u3nt(c3__tsgl,
u3nc(c3__cnzy, u3_blip),
u3nc(c3__brdt, u3k(p_gen)));
}
_open_do_p(brdt) // |.
{
return u3nc
(c3__brcn,
u3nt(
u3nt(u3_blip, c3__ash, u3k(p_gen)),
return u3nc(c3__brcn,
u3nt(u3nt(u3_blip, c3__ash, u3k(p_gen)),
u3_nul,
u3_nul));
}
@ -186,8 +183,7 @@
u3_noun ip_gen = u3h(p_gen);
u3_noun tp_gen = u3t(p_gen);
return u3nq
(c3__wtcl,
return u3nq(c3__wtcl,
u3k(ip_gen),
u3nt(c3__dtzz, 'f', c3y),
_open_in_wtbr(ter, tp_gen));
@ -195,8 +191,7 @@
}
_open_do_pqr(wtkt) // ?^
{
return u3nq
(c3__wtcl,
return u3nq(c3__wtcl,
u3nt(c3__wtts,
u3nt(c3__axil, c3__atom, u3_blip),
u3k(p_gen)),
@ -205,8 +200,7 @@
}
_open_do_pq(wtgl) // ?<
{
return u3nq
(c3__wtcl,
return u3nq(c3__wtcl,
u3k(p_gen),
u3nc(c3__zpzp, u3_nul),
u3k(q_gen));
@ -220,8 +214,7 @@
}
_open_do_pq(wtgr) // ?>
{
return u3nq
(c3__wtcl,
return u3nq(c3__wtcl,
u3k(p_gen),
u3k(q_gen),
u3nc(c3__zpzp, u3_nul));
@ -239,9 +232,7 @@
u3_noun piq_gen = u3h(iq_gen);
u3_noun qiq_gen = u3t(iq_gen);
return u3nq
(
c3__wtcl,
return u3nq(c3__wtcl,
u3nt(c3__wtts,
u3k(piq_gen),
u3k(p_gen)),
@ -258,16 +249,14 @@
u3_noun ip_gen = u3h(p_gen);
u3_noun tp_gen = u3t(p_gen);
return u3nq
(c3__wtcl,
return u3nq(c3__wtcl,
u3k(ip_gen),
_open_in_wtpm(ter, tp_gen),
u3nt(c3__dtzz, 'f', c3n));
}
}
_open_do_pqr(wtls) // ?+
{ u3_noun tul = u3nc(
u3nc(u3nc(c3__axil, c3__noun),
{ u3_noun tul = u3nc(u3nc(u3nc(c3__axil, c3__noun),
u3k(q_gen)),
u3_nul);
u3_noun zal = u3qb_weld(r_gen, tul);
@ -299,8 +288,7 @@
}
_open_do_p(wtzp) // ?!
{
return u3nq
(c3__wtcl,
return u3nq(c3__wtcl,
u3k(p_gen),
u3nt(c3__dtzz, 'f', c3n),
u3nt(c3__dtzz, 'f', c3y));
@ -314,8 +302,7 @@
}
_open_do_p(zpgr) // !>
{
return u3nq
(c3__cnhp,
return u3nq(c3__cnhp,
u3nc(c3__cnzy, c3__onan),
u3nt(c3__zpsm,
u3nc(c3__bctr,
@ -330,35 +317,32 @@
***/
_open_do_pq(clhp) // :-
{
return u3nc
(u3k(p_gen),
return u3nc(u3k(p_gen),
u3k(q_gen));
}
_open_do_pq(clcb) // :_
{
return u3nc
(u3k(q_gen),
return u3nc(u3k(q_gen),
u3k(p_gen));
}
_open_do_p(clcn) // :%
{
return u3nc
(u3nc(c3__clsg,
return u3nc(u3nc(c3__clsg,
u3k(p_gen)),
u3nc(c3__bczp, c3__null));
}
_open_do_pqrs(clkt) // :^
{
return u3nq
(u3k(p_gen),
return u3nq(u3k(p_gen),
u3k(q_gen),
u3k(r_gen),
u3k(s_gen));
}
_open_do_pqr(clls) // :+
{
return u3nt
(u3k(p_gen), u3k(q_gen), u3k(r_gen));
return u3nt(u3k(p_gen),
u3k(q_gen),
u3k(r_gen));
}
_open_do_p(clsg) // :~
{
@ -385,8 +369,7 @@
if ( (u3_nul == tp_gen) ) {
return u3k(ip_gen);
} else {
return u3nc
(u3k(ip_gen),
return u3nc(u3k(ip_gen),
_open_in_cltr(ter, tp_gen));
}
}
@ -396,8 +379,7 @@
***/
_open_do_pq(cncb) // %_
{
return u3nc
(c3__ktls,
return u3nc(c3__ktls,
u3nq(u3nc(c3__cnzz, u3k(p_gen)),
c3__cnts,
u3k(p_gen),
@ -415,15 +397,13 @@
#endif
_open_do_pq(cndt) // %.
{
return u3nt
(c3__cnhp,
return u3nt(c3__cnhp,
u3k(q_gen),
u3nc(u3k(p_gen), u3_nul));
}
_open_do_pqrs(cnkt) // %^
{
return u3nq
(c3__cnhp,
return u3nq(c3__cnhp,
u3k(p_gen),
u3k(q_gen),
u3nt(u3k(r_gen),
@ -433,8 +413,7 @@
_open_do_pq(cnhp) // %-
{
if ( (u3_nul == q_gen) ) {
return u3nt
(c3__tsgr,
return u3nt(c3__tsgr,
u3k(p_gen),
u3nc(c3__cnzy, u3_blip));
} else {
@ -446,8 +425,7 @@
}
_open_do_pqr(cnls) // %+
{
return u3nc
(c3__cnhp,
return u3nc(c3__cnhp,
u3nq(u3k(p_gen),
u3k(q_gen),
u3k(r_gen),
@ -455,31 +433,27 @@
}
_open_do_pqr(cnsg) // %~
{
return u3nq
(c3__cntr,
return u3nq(c3__cntr,
u3k(p_gen),
u3k(q_gen),
u3nc(u3nc(u3nc(u3nc(u3_nul, 6), 0), u3k(r_gen)), 0));
}
_open_do_p(cnzy) // %cnzy
{
return u3nt
(c3__cnts,
return u3nt(c3__cnts,
u3nc(u3k(p_gen), u3_nul),
u3_nul);
}
_open_do_p(cnzz) // %cnzz
{
return u3nt
(c3__cnts, u3k(p_gen), u3_nul);
return u3nt(c3__cnts, u3k(p_gen), u3_nul);
}
/***
****
***/
_open_do_p(hxgl) // #<
{
return u3nq
(c3__cnhp,
return u3nq(c3__cnhp,
u3nc(c3__cnzy, c3__noah),
u3nc(c3__zpgr,
u3nc(c3__cltr, u3k(p_gen))),
@ -487,8 +461,7 @@
}
_open_do_p(hxgr) // #>
{
return u3nq
(c3__cnhp,
return u3nq(c3__cnhp,
u3nc(c3__cnzy, c3__cain),
u3nc(c3__zpgr,
u3nc(c3__cltr, u3k(p_gen))),
@ -499,15 +472,13 @@
***/
_open_do_pq(ktdt) // ^.
{
return u3nt
(c3__ktls,
return u3nt(c3__ktls,
u3nq(c3__cnhp, u3k(p_gen), u3k(q_gen), u3_nul),
u3k(q_gen));
}
_open_do_pq(kthp) // ^-
{
return u3nt
(c3__ktls,
return u3nt(c3__ktls,
_ap_bunt(_al_core(ter, p_gen), p_gen),
u3k(q_gen));
}
@ -523,11 +494,8 @@
_open_do_pq(brkt) // |^
{
u3_noun diz = u3nc(c3__ash, u3k(p_gen));
u3_noun ret = u3nt
(
c3__tsgr,
u3nc(
c3__brcn,
u3_noun ret = u3nt(c3__tsgr,
u3nc(c3__brcn,
u3qdb_put(q_gen, u3_blip, diz)),
u3nc(c3__cnzy, u3_blip));
@ -552,8 +520,7 @@
***/
_open_do_pq(sgts) // ~=
{
return u3nt
(c3__sggr,
return u3nt(c3__sggr,
u3nc(c3__germ, u3k(p_gen)),
u3k(q_gen));
}
@ -568,8 +535,7 @@
#endif
_open_do_pq(sggl) // ~>
{
return u3nt
(c3__tsgl,
return u3nt(c3__tsgl,
u3nq(c3__sggr, u3k(p_gen), u3_nul, 1),
u3k(q_gen));
}
@ -577,21 +543,21 @@
{
return u3nt(c3__sggr,
u3nq(c3__live,
c3__dtzz, u3_blip, u3k(p_gen)),
c3__dtzz,
u3_blip,
u3k(p_gen)),
u3k(q_gen));
}
_open_do_pq(sgcb) // ~_
{
return u3nt
(c3__sggr,
return u3nt(c3__sggr,
u3nc(c3__mean,
u3nc(c3__brdt,
u3k(p_gen))),
u3k(q_gen));
}
static u3_noun
_sgcn_a(
u3_noun r_gen,
_sgcn_a(u3_noun r_gen,
u3_noun nob)
{
if ( c3n == u3du(r_gen) ) {
@ -603,32 +569,25 @@
u3x_cell(ir_gen, &pir_gen, &qir_gen);
return u3nc
(u3nc
(
u3nt(c3__dtzz, u3_blip, u3k(pir_gen)),
return u3nc(u3nc(u3nt(c3__dtzz, u3_blip, u3k(pir_gen)),
u3nc(c3__zpts, u3k(qir_gen))),
_sgcn_a(tr_gen, nob));
}
}
_open_do_pqrs(sgcn) // ~%
{
return u3nt
(c3__sggl,
u3nq
(c3__fast,
return u3nt(c3__sggl,
u3nq(c3__fast,
c3__clls,
u3nt(c3__dtzz, u3_blip, u3k(p_gen)),
u3nt
(u3nc(c3__zpts, u3k(q_gen)),
u3nt(u3nc(c3__zpts, u3k(q_gen)),
c3__clsg,
_sgcn_a(r_gen, u3_nul))),
u3k(s_gen));
}
_open_do_pq(sgfs) // ~/
{
return u3nc
(c3__sgcn,
return u3nc(c3__sgcn,
u3nq(u3k(p_gen),
u3nc(u3_nul, 7),
u3_nul,
@ -636,18 +595,14 @@
}
_open_do_pq(sgls) // ~+
{
return u3nt
(c3__sggr,
return u3nt(c3__sggr,
u3nq(c3__memo, c3__dtzz, u3_blip, u3k(p_gen)),
u3k(q_gen));
}
_open_do_pqr(sgpm) // ~&
{
return u3nt
(
c3__sggr,
u3nt(
c3__slog,
return u3nt(c3__sggr,
u3nt(c3__slog,
u3nt(c3__dtzy, u3_blip, u3k(p_gen)),
u3nq(c3__cnhp, u3nc(c3__cnzy, c3__cain),
u3nc(c3__zpgr, u3k(q_gen)), u3_nul)),
@ -655,8 +610,7 @@
}
_open_do_pqrs(sgwt) // ~?
{
return u3nt
(c3__tsls,
return u3nt(c3__tsls,
u3nq(c3__wtdt,
u3k(q_gen),
u3nc(c3__bczp, c3__null),
@ -677,8 +631,7 @@
****
***/
static u3_noun
_smcl_in(
u3_noun q_gen)
_smcl_in(u3_noun q_gen)
{
u3_noun hq_gen = u3h(q_gen);
u3_noun tq_gen = u3t(q_gen);
@ -688,11 +641,8 @@
u3nc(u3_nul, 3),
u3k(hq_gen));
} else {
return u3nc
(
c3__cnhp,
u3nq(
u3nc(u3_nul, 2),
return u3nc(c3__cnhp,
u3nq(u3nc(u3_nul, 2),
u3nt(c3__tsgr,
u3nc(u3_nul, 3),
u3k(hq_gen)),
@ -709,9 +659,7 @@
return u3k(u3h(q_gen));
}
else {
return u3nt
(
c3__tsls,
return u3nt(c3__tsls,
u3k(p_gen),
_smcl_in(q_gen));
}
@ -749,8 +697,7 @@
/** open
**/
static u3_noun
_open_in(
u3_noun ter,
_open_in(u3_noun ter,
u3_noun gen)
{
u3_noun p_gen, q_gen, r_gen, s_gen;
@ -760,8 +707,7 @@
// u3_err("stud m", gen);
return u3m_bail(c3__exit);
return u3nt
(c3__cnts,
return u3nt(c3__cnts,
u3nc(u3k(gen), u3_nul),
u3_nul);
}
@ -769,8 +715,7 @@
default: return u3_none;
case u3_nul: {
return u3nt
(c3__cnts,
return u3nt(c3__cnts,
u3nc(u3k(gen), u3_nul),
u3_nul);
}
@ -875,8 +820,7 @@
/** rake
**/
u3_noun
u3qfp_rake(
u3_noun gen)
u3qfp_rake(u3_noun gen)
{
u3_noun p_gen, q_gen;
@ -916,8 +860,7 @@
}
}
u3_noun
u3wfp_rake(
u3_noun cor)
u3wfp_rake(u3_noun cor)
{
u3_noun gen;
@ -931,8 +874,7 @@
/** hack
**/
u3_noun
u3qfp_hack(
u3_noun ter,
u3qfp_hack(u3_noun ter,
u3_noun gen)
{
u3_noun p_gen, q_gen;
@ -953,8 +895,7 @@
u3_noun pyr = u3qfp_hack(ter, q_gen);
if ( c3y == u3h(pyr) ) {
ret = u3nt
(c3y,
ret = u3nt(c3y,
u3nt(c3__tsgr,
u3k(p_gen),
u3k(u3h(u3t(pyr)))),
@ -963,8 +904,7 @@
u3k(u3t(u3t(pyr)))));
}
else {
ret = u3nc
(c3n,
ret = u3nc(c3n,
u3nt(c3__tsgr,
u3k(p_gen),
u3k(u3t(pyr))));
@ -978,8 +918,7 @@
u3_noun pyr = u3qfp_hack(ter, q_gen);
if ( c3y == u3h(pyr) ) {
ret = u3nt
(c3y,
ret = u3nt(c3y,
u3nt(c3__zpcb,
u3k(p_gen),
u3k(u3h(u3t(pyr)))),
@ -988,8 +927,7 @@
u3k(u3t(u3t(pyr)))));
}
else {
ret = u3nc
(c3n,
ret = u3nc(c3n,
u3nt(c3__zpcb,
u3k(p_gen),
u3k(u3t(pyr))));
@ -1019,8 +957,7 @@
}
u3_noun
u3wfp_hack(
u3_noun cor)
u3wfp_hack(u3_noun cor)
{
u3_noun gen;
@ -1036,7 +973,8 @@
/* boilerplate
*/
u3_noun
_ap_core(u3_noun ter, u3_noun gen)
_ap_core(u3_noun ter,
u3_noun gen)
{
u3_noun gat = u3j_hook(u3k(ter), "ap");
@ -1054,7 +992,8 @@
return u3j_soft(cor, "open");
}
static u3_noun
_ap_open_l(u3_noun ter, u3_noun gen)
_ap_open_l(u3_noun ter,
u3_noun gen)
{
u3_noun pro = _open_in(ter, gen);
@ -1066,7 +1005,8 @@
}
u3_noun
u3qfp_open(u3_noun ter, u3_noun gen)
u3qfp_open(u3_noun ter,
u3_noun gen)
{
return _ap_open_l(ter, gen);
}

6
jets/f/bull.c
View File

@ -7,8 +7,7 @@
/* functions
*/
u3_noun
u3qf_bull(
u3_noun bid,
u3qf_bull(u3_noun bid,
u3_noun der)
{
if ( (c3__void == der) ||
@ -20,8 +19,7 @@
(c3__bull, u3k(bid), u3k(der));
}
u3_noun
u3wf_bull(
u3_noun cor)
u3wf_bull(u3_noun cor)
{
u3_noun bid, der;

6
jets/f/cell.c
View File

@ -7,7 +7,8 @@
/* functions
*/
u3_noun
u3qf_cell(u3_noun hed, u3_noun tal)
u3qf_cell(u3_noun hed,
u3_noun tal)
{
if ( (c3__void == hed) || (c3__void == tal) ) {
return c3__void;
@ -16,8 +17,7 @@
}
}
u3_noun
u3wf_cell(
u3_noun cor)
u3wf_cell(u3_noun cor)
{
u3_noun hed, tal;

21
jets/f/comb.c
View File

@ -7,8 +7,7 @@
/* functions
*/
u3_noun
u3qf_comb(
u3_noun mal,
u3qf_comb(u3_noun mal,
u3_noun buz)
{
if ( (u3_none == mal) || (u3_none == buz) ) {
@ -19,22 +18,21 @@
if ( (c3y == u3r_p(mal, 0, &p_mal)) && (0 != p_mal) ) {
if ( (c3y == u3r_p(buz, 0, &p_buz)) && (0 != p_buz) ) {
return u3nc(
0,
return u3nc(0,
u3qc_peg(p_mal, p_buz));
}
else if ( c3y == u3r_pq(buz, 2, &p_buz, &q_buz) &&
c3y == u3r_p(p_buz, 0, &pp_buz) &&
c3y == u3r_p(q_buz, 0, &pq_buz) )
{
return u3nt
(2,
return u3nt(2,
u3nc(0,
u3qc_peg(p_mal, pp_buz)),
u3nc(0,
u3qc_peg(p_mal, pq_buz)));
}
else return u3nt(7, u3k(mal),
else return u3nt(7,
u3k(mal),
u3k(buz));
}
#if 1
@ -44,7 +42,8 @@
(0 == u3h(q_mal)) &&
(1 == u3t(q_mal)) )
{
return u3nt(8, u3k(p_mal),
return u3nt(8,
u3k(p_mal),
u3k(buz));
}
#endif
@ -53,13 +52,13 @@
{
return u3k(mal);
}
else return u3nt(7, u3k(mal),
else return u3nt(7,
u3k(mal),
u3k(buz));
}
}
u3_noun
u3wf_comb(
u3_noun cor)
u3wf_comb(u3_noun cor)
{
u3_noun mal, buz;

6
jets/f/cons.c
View File

@ -7,8 +7,7 @@
/* functions
*/
u3_noun
u3qf_cons(
u3_noun vur,
u3qf_cons(u3_noun vur,
u3_noun sed)
{
u3_noun p_vur, p_sed;
@ -41,8 +40,7 @@
return u3nc(u3k(vur), u3k(sed));
}
u3_noun
u3wf_cons(
u3_noun cor)
u3wf_cons(u3_noun cor)
{
u3_noun vur, sed;

6
jets/f/core.c
View File

@ -7,8 +7,7 @@
/* functions
*/
u3_noun
u3qf_core(
u3_noun pac,
u3qf_core(u3_noun pac,
u3_noun con)
{
if ( (c3__void == pac) ) {
@ -18,8 +17,7 @@
}
}
u3_noun
u3wf_core(
u3_noun cor)
u3wf_core(u3_noun cor)
{
u3_noun pac, con;

11
jets/f/cube.c
View File

@ -7,19 +7,18 @@
/* functions
*/
u3_noun
u3qf_cube(
u3_noun dil,
u3qf_cube(u3_noun dil,
u3_noun goq)
{
if ( c3__void == goq ) {
return c3__void;
}
else return u3nt
(c3__cube, u3k(dil), u3k(goq));
else return u3nt(c3__cube,
u3k(dil),
u3k(goq));
}
u3_noun
u3wf_cube(
u3_noun cor)
u3wf_cube(u3_noun cor)
{
u3_noun dil, goq;

11
jets/f/face.c
View File

@ -7,19 +7,18 @@
/* functions
*/
u3_noun
u3qf_face(
u3_noun cog,
u3qf_face(u3_noun cog,
u3_noun tip)
{
if ( c3__void == tip ) {
return c3__void;
}
else return u3nt
(c3__face, u3k(cog), u3k(tip));
else return u3nt(c3__face,
u3k(cog),
u3k(tip));
}
u3_noun
u3wf_face(
u3_noun cor)
u3wf_face(u3_noun cor)
{
u3_noun cog, tip;

9
jets/f/fine.c
View File

@ -7,22 +7,21 @@
/* functions
*/
u3_noun
u3qf_fine(
u3_noun fuv,
u3qf_fine(u3_noun fuv,
u3_noun lup,
u3_noun mar)
{
if ( (c3__void == lup) || (c3__void == mar) ) {
return c3__void;
} else {
return u3nq(c3__fine, u3k(fuv),
return u3nq(c3__fine,
u3k(fuv),
u3k(lup),
u3k(mar));
}
}
u3_noun
u3wf_fine(
u3_noun cor)
u3wf_fine(u3_noun cor)
{
u3_noun fuv, lup, mar;

9
jets/f/fitz.c
View File

@ -7,8 +7,7 @@
/* functions
*/
static u3_noun
_fitz_fiz(
u3_noun yaz,
_fitz_fiz(u3_noun yaz,
u3_noun wix)
{
c3_w yaz_w = u3r_met(3, yaz);
@ -30,8 +29,7 @@
}
u3_noun
u3qf_fitz(
u3_noun yaz,
u3qf_fitz(u3_noun yaz,
u3_noun wix)
{
c3_w i_w, met_w = c3_min(u3r_met(3, yaz), u3r_met(3, wix));
@ -54,8 +52,7 @@
}
u3_noun
u3wf_fitz(
u3_noun cor)
u3wf_fitz(u3_noun cor)
{
u3_noun yaz, wix;

9
jets/f/flan.c
View File

@ -7,8 +7,7 @@
/* functions
*/
u3_noun
u3qf_flan(
u3_noun bos,
u3qf_flan(u3_noun bos,
u3_noun nif)
{
if ( c3y == u3r_sing(1, u3h(bos)) ) {
@ -25,8 +24,7 @@
else return u3k(nif);
}
else {
return u3nq
(6,
return u3nq(6,
u3k(bos),
u3k(nif),
u3nc(1, c3n));
@ -34,8 +32,7 @@
}
}
u3_noun
u3wf_flan(
u3_noun cor)
u3wf_flan(u3_noun cor)
{
u3_noun bos, nif;

9
jets/f/flay.c
View File

@ -7,8 +7,7 @@
/* functions
*/
static u3_noun
_flay_roll(
u3_noun quz)
_flay_roll(u3_noun quz)
{
if ( c3n == u3du(quz) ) {
return c3__void;
@ -22,8 +21,7 @@
}
u3_noun
u3qf_flay(
u3_noun pok)
u3qf_flay(u3_noun pok)
{
u3_noun p_pok = u3h(pok);
u3_noun q_pok = u3t(pok);
@ -41,8 +39,7 @@
}
u3_noun
u3wf_flay(
u3_noun cor)
u3wf_flay(u3_noun cor)
{
u3_noun pok;

9
jets/f/flip.c
View File

@ -7,8 +7,7 @@
/* functions
*/
u3_noun
u3qf_flip(
u3_noun hel)
u3qf_flip(u3_noun hel)
{
if ( c3y == u3r_sing(1, u3h(hel)) ) {
if ( (c3y == u3t(hel)) ) {
@ -21,16 +20,14 @@
}
}
else {
return u3nq
(6,
return u3nq(6,
u3k(hel),
u3nc(1, c3n),
u3nc(1, c3y));
}
}
u3_noun
u3wf_flip(
u3_noun cor)
u3wf_flip(u3_noun cor)
{
u3_noun hel;

9
jets/f/flor.c
View File

@ -7,8 +7,7 @@
/* functions
*/
u3_noun
u3qf_flor(
u3_noun bos,
u3qf_flor(u3_noun bos,
u3_noun nif)
{
if ( c3y == u3r_sing(1, u3h(bos)) ) {
@ -25,8 +24,7 @@
else return u3k(bos);
}
else {
return u3nq
(6,
return u3nq(6,
u3k(bos),
u3nc(1, c3y),
u3k(nif));
@ -34,8 +32,7 @@
}
}
u3_noun
u3wf_flor(
u3_noun cor)
u3wf_flor(u3_noun cor)
{
u3_noun bos, nif;

6
jets/f/fork.c
View File

@ -7,8 +7,7 @@
/* functions
*/
u3_noun
u3qf_fork(
u3_noun hoz,
u3qf_fork(u3_noun hoz,
u3_noun bur)
{
if ( c3y == u3r_sing(hoz, bur) ) {
@ -24,8 +23,7 @@
(c3__fork, u3k(hoz), u3k(bur));
}
u3_noun
u3wf_fork(
u3_noun cor)
u3wf_fork(u3_noun cor)
{
u3_noun hoz, bur;

22
jets/f/hike.c
View File

@ -9,8 +9,7 @@
/* _lily_hike_belt_root(): convert (pac) to a list of root tools.
*/
static u3_noun
_lily_hike_belt_root(
u3_noun pac)
_lily_hike_belt_root(u3_noun pac)
{
if ( (u3_nul == pac) ) {
return u3_nul;
@ -31,8 +30,7 @@
/* _lily_hike_belt_l(): factor (pac) left.
*/
static u3_noun
_lily_hike_belt_l(
u3_noun pac)
_lily_hike_belt_l(u3_noun pac)
{
if ( (u3_nul == pac) ) {
return u3_nul;
@ -48,9 +46,7 @@
{
u3_atom axis_tap = u3qc_mas(axis);
return u3nc(
u3nc(
u3k(axis_tap),
return u3nc(u3nc(u3k(axis_tap),
u3k(tool)),
belt_l);
}
@ -62,8 +58,7 @@
/* _lily_hike_belt_r(): factor (pac) right.
*/
static u3_noun
_lily_hike_belt_r(
u3_noun pac)
_lily_hike_belt_r(u3_noun pac)
{
if ( (u3_nul == pac) ) {
return u3_nul;
@ -79,8 +74,7 @@
{
u3_atom axis_tap = u3qc_mas(axis);
return u3nc(
u3nc(u3k(axis_tap),
return u3nc(u3nc(u3k(axis_tap),
u3k(tool)),
belt_r);
}
@ -92,8 +86,7 @@
/* functions
*/
u3_noun
u3qf_hike(
u3_noun axe,
u3qf_hike(u3_noun axe,
u3_noun pac)
{
if ( (u3_nul == pac) ) {
@ -129,8 +122,7 @@
}
}
u3_noun
u3wf_hike(
u3_noun cor)
u3wf_hike(u3_noun cor)
{
u3_noun axe, pac;

9
jets/f/look.c
View File

@ -7,8 +7,7 @@
/* internals
*/
static u3_noun
_look_in(
u3_noun cog,
_look_in(u3_noun cog,
u3_noun dab,
u3_atom axe)
{
@ -113,15 +112,13 @@
/* functions
*/
u3_noun
u3qf_look(
u3_noun cog,
u3qf_look(u3_noun cog,
u3_noun dab)
{
return _look_in(cog, dab, 1);
}
u3_noun
u3wf_look(
u3_noun cor)
u3wf_look(u3_noun cor)
{
u3_noun cog, dab;

3
jets/f/slot.c
View File

@ -7,7 +7,8 @@
/* functions
*/
u3_noun
u3qf_slot(u3_atom axe, u3_noun vax)
u3qf_slot(u3_atom axe,
u3_noun vax)
{
u3_noun fag = u3r_at(axe, u3t(vax));

21
jets/f/ut.c
View File

@ -7,8 +7,7 @@
// duck: create a duck core for mean.
//
u3_noun
u3qfu_duck(
u3_noun van,
u3qfu_duck(u3_noun van,
u3_noun typ)
{
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(typ), 0);
@ -21,8 +20,7 @@
// dung: create a dunk core for mean (noun caption)
//
u3_noun
u3qfu_dung(
u3_noun van,
u3qfu_dung(u3_noun van,
u3_noun paz,
u3_noun typ)
{
@ -38,8 +36,7 @@
// dunq: create a dunk core for mean
//
u3_noun
u3qfu_dunq(
u3_noun van,
u3qfu_dunq(u3_noun van,
const c3_c* paz_c,
u3_noun typ)
{
@ -57,7 +54,8 @@
// shew: create a show core for mean
//
u3_noun
u3qfu_shew(u3_noun van, u3_noun mol)
u3qfu_shew(u3_noun van,
u3_noun mol)
{
u3_noun sho = u3j_hook(u3k(van), "show");
u3_noun ret = u3i_molt(u3k(sho), u3x_sam, u3k(mol), 0);
@ -70,16 +68,13 @@
// shep: show with caption and style
//
u3_noun
u3qfu_shep(
u3_noun van,
u3qfu_shep(u3_noun van,
const c3_c* paz_c,
u3_noun sty,
u3_noun mol)
{
return u3qfu_shew
(van,
u3nc
(u3nc('c', u3i_string(paz_c)),
return u3qfu_shew(van,
u3nc(u3nc('c', u3i_string(paz_c)),
u3nc(u3k(sty), mol)));
}

12
jets/f/ut_burn.c
View File

@ -7,8 +7,7 @@
/* logic
*/
static u3_noun
_burn_in(
u3_noun van,
_burn_in(u3_noun van,
u3_noun sut,
u3_noun gil)
{
@ -79,16 +78,14 @@
}
u3_noun
_cqfu_burn(
u3_noun van,
_cqfu_burn(u3_noun van,
u3_noun sut)
{
return _burn_in(van, sut, u3_nul);
}
u3_noun
u3qfu_burn(
u3_noun van,
u3qfu_burn(u3_noun van,
u3_noun sut)
{
c3_m fun_m = c3__burn;
@ -105,8 +102,7 @@
}
u3_noun
u3wfu_burn(
u3_noun cor)
u3wfu_burn(u3_noun cor)
{
u3_noun sut;

3
jets/f/ut_busk.c
View File

@ -7,8 +7,7 @@
/* logic
*/
u3_noun
_cqfu_busk(
u3_noun van,
_cqfu_busk(u3_noun van,
u3_noun sut,
u3_noun cog,
u3_noun hyp)

7
jets/f/ut_bust.c
View File

@ -7,15 +7,12 @@
/* logic
*/
u3_noun
_cqfu_bust(
u3_noun van,
_cqfu_bust(u3_noun van,
u3_noun sut,
u3_noun dib)
{
u3_noun yam = u3qfu_burn(van, sut);
u3_noun yib = u3nc
(
u3nc(u3k(u3h(u3h(yam))),
u3_noun yib = u3nc(u3nc(u3k(u3h(u3h(yam))),
u3k(dib)),
u3k(u3t(yam)));
u3_noun woo = u3nc(c3__cnzy, u3_blip);

4
jets/f/ut_conk.c
View File

@ -7,7 +7,9 @@
/* logic
*/
u3_noun
_cqfu_conk(u3_noun van, u3_noun sut, u3_noun got)
_cqfu_conk(u3_noun van,
u3_noun sut,
u3_noun got)
{
if ( c3y == u3ud(got) ) {
return u3qf_face(got, sut);

18
jets/f/ut_crop.c
View File

@ -12,8 +12,7 @@
_crop_sint(u3_noun, u3_noun, u3_noun, u3_noun);
static u3_noun
_crop_repo(
u3_noun van,
_crop_repo(u3_noun van,
u3_noun sut,
u3_noun ref,
u3_noun bix)
@ -36,8 +35,7 @@
}
static u3_noun
_crop_dext(
u3_noun van,
_crop_dext(u3_noun van,
u3_noun sut,
u3_noun ref,
u3_noun bix)
@ -89,8 +87,7 @@
else if ( c3__cell == u3h(ref) ) {
u3x_cell(u3t(ref), &p_ref, &q_ref);
if ( c3y == u3qfu_nest
(van, p_ref, c3n, p_sut) )
if ( c3y == u3qfu_nest(van, p_ref, c3n, p_sut) )
{
u3_noun foz = _crop_dext(van, q_sut, q_ref, bix);
u3_noun ret = u3qf_cell(p_sut, foz);
@ -175,8 +172,7 @@
}
static u3_noun
_crop_sint(
u3_noun van,
_crop_sint(u3_noun van,
u3_noun sut,
u3_noun ref,
u3_noun bix)
@ -218,8 +214,7 @@
}
u3_noun
_cqfu_crop(
u3_noun van,
_cqfu_crop(u3_noun van,
u3_noun sut,
u3_noun ref)
{
@ -229,8 +224,7 @@
/* boilerplate
*/
u3_noun
u3wfu_crop(
u3_noun cor)
u3wfu_crop(u3_noun cor)
{
u3_noun sut, ref, van;

21
jets/f/ut_cull.c
View File

@ -10,8 +10,7 @@
_cqfu_cull(u3_noun, u3_noun, u3_noun, u3_atom, u3_noun);
static u3_noun
_cull_in(
u3_noun van,
_cull_in(u3_noun van,
u3_noun sut,
u3_noun pol,
u3_atom axe,
@ -51,8 +50,7 @@
}
case c3__bull: u3x_cell(u3t(sut), &p_sut, &q_sut);
{
u3_noun hic = _cqfu_cull
(van, q_sut, pol, axe, ref);
u3_noun hic = _cqfu_cull(van, q_sut, pol, axe, ref);
if ( c3y == u3r_sing(hic, q_sut) ) {
ret = u3k(sut);
@ -82,8 +80,7 @@
if ( 3 != now ) {
ret = u3k(sut);
} else {
u3_noun hub = _cqfu_cull
(van, p_sut, pol, lat, ref);
u3_noun hub = _cqfu_cull(van, p_sut, pol, lat, ref);
ret = u3qf_core(hub, q_sut);
@ -93,8 +90,7 @@
}
case c3__face: u3x_cell(u3t(sut), &p_sut, &q_sut);
{
u3_noun hic = _cqfu_cull
(van, q_sut, pol, axe, ref);
u3_noun hic = _cqfu_cull(van, q_sut, pol, axe, ref);
if ( c3y == u3r_sing(hic, q_sut) ) {
ret = u3k(sut);
@ -111,10 +107,8 @@
return c3__void;
} else {
u3_noun zoc = u3qdi_put(vil, sut);
u3_noun sin = _cull_in
(van, p_sut, pol, axe, ref, now, lat, zoc);
u3_noun dex = _cull_in
(van, q_sut, pol, axe, ref, now, lat, zoc);
u3_noun sin = _cull_in(van, p_sut, pol, axe, ref, now, lat, zoc);
u3_noun dex = _cull_in(van, q_sut, pol, axe, ref, now, lat, zoc);
ret = u3qf_fork(sin, dex);
u3z(sin);
@ -148,8 +142,7 @@
}
u3_noun
_cqfu_cull(
u3_noun van,
_cqfu_cull(u3_noun van,
u3_noun sut,
u3_noun pol,
u3_atom axe,

181
jets/f/ut_find.c
View File

@ -7,8 +7,7 @@
/* logic
*/
static u3_noun
_fino_in(
u3_noun van,
_fino_in(u3_noun van,
u3_noun sut,
u3_noun dep,
u3_noun way,
@ -29,22 +28,17 @@
}
else {
if ( c3n == u3r_sing(cog, u3h(p_sut)) ) {
return _fino_in
(van, q_sut, dep, way, cog, gil);
return _fino_in(van, q_sut, dep, way, cog, gil);
}
else {
if ( 0 == dep ) {
return u3nc
(0,
u3nt(
u3_nul,
return u3nc(0,
u3nt(u3_nul,
1,
u3nt(2, u3k(p_sut),
u3k(q_sut))));
} else {
return _fino_in
(
van, q_sut, u3qa_dec(dep), way, cog, gil);
return _fino_in(van, q_sut, u3qa_dec(dep), way, cog, gil);
}
}
}
@ -70,8 +64,7 @@
u3_noun puq_bov, quq_bov;
u3r_mean(q_bov, 6, &puq_bov, 7, &quq_bov, 0);
ret = u3nq
(u3k(p_bov),
ret = u3nq(u3k(p_bov),
u3_nul,
u3qc_peg(3, puq_bov),
u3k(quq_bov));
@ -82,8 +75,7 @@
u3_noun puq_taf, quq_taf;
u3r_mean(q_taf, 6, &puq_taf, 7, &quq_taf, 0);
ret = u3nq
(u3k(p_taf),
ret = u3nq(u3k(p_taf),
u3_nul,
u3qc_peg(2, puq_taf),
u3k(quq_taf));
@ -129,21 +121,17 @@
u3r_mean(q_taf, 6, &puq_taf, 7, &quq_taf, 0);
if ( c3n == u3qfu_park
(van, sut, way, puq_taf) )
if ( c3n == u3qfu_park(van, sut, way, puq_taf) )
{
u3_noun weh = u3qfu_shep
(van, "way", 'a', u3k(way));
u3_noun waz = u3qfu_shep
(van, "axis", 'd', u3k(puq_taf));
u3_noun weh = u3qfu_shep(van, "way", 'a', u3k(way));
u3_noun waz = u3qfu_shep(van, "axis", 'd', u3k(puq_taf));
u3t_push(u3nc(c3__mean, weh));
u3t_push(u3nc(c3__mean, waz));
return u3m_error("find-park");
}
else {
pro = u3nq
(u3k(p_taf),
pro = u3nq(u3k(p_taf),
u3_nul,
u3qc_peg(3, puq_taf),
u3k(quq_taf));
@ -166,17 +154,12 @@
u3k(qq_sut),
u3k(rq_sut)));
pro = u3nc
(
0,
u3nq(
u3_nul,
pro = u3nc(0,
u3nq(u3_nul,
1,
1,
u3nc
(u3qc_peg(2, pu_zem),
u3nc(
u3nc(mut, u3k(qu_zem)),
u3nc(u3qc_peg(2, pu_zem),
u3nc(u3nc(mut, u3k(qu_zem)),
u3_nul))));
u3z(zem);
return pro;
@ -191,9 +174,7 @@
return u3nc(u3k(dep), u3_nul);
} else {
if ( 0 == dep ) {
return u3nc
(0,
u3nq(u3_nul, 1, 0, u3k(q_sut)));
return u3nc(0, u3nq(u3_nul, 1, 0, u3k(q_sut)));
} else {
return u3nc
(u3qa_dec(dep), u3_nul);
@ -253,12 +234,8 @@
u3_noun pquq_hax = u3t(quq_hax);
u3_noun pquq_yor = u3t(quq_yor);
ret = u3nc
(
u3k(p_hax),
u3nq
(
u3_nul,
ret = u3nc(u3k(p_hax),
u3nq(u3_nul,
u3k(puq_hax),
0,
u3qf_fork(pquq_hax, pquq_yor)));
@ -273,17 +250,12 @@
if ( c3n == u3r_sing(pquq_hax, pquq_yor) ) {
return u3m_error("find-fork");
} else {
ret = u3nc
(
u3k(p_hax),
u3nq
(u3_nul,
ret = u3nc(u3k(p_hax),
u3nq(u3_nul,
u3k(puq_hax),
1,
u3nc
(u3k(pquq_hax),
u3qb_weld
(qquq_hax, qquq_yor))));
u3nc(u3k(pquq_hax),
u3qb_weld(qquq_hax, qquq_yor))));
break;
}
}
@ -294,11 +266,9 @@
u3x_cell(u3t(quq_hax), &pquq_hax, &qquq_hax);
u3x_cell(u3t(quq_yor), &pquq_yor, &qquq_yor);
u3x_qual(
pquq_hax,
u3x_qual(pquq_hax,
&ppquq_hax, &qpquq_hax, &rpquq_hax, &spquq_hax);
u3x_qual(
pquq_yor,
u3x_qual(pquq_yor,
&ppquq_yor, &qpquq_yor, &rpquq_yor, &spquq_yor);
if ( (c3n == u3r_sing(ppquq_hax, ppquq_yor)) ||
@ -308,21 +278,14 @@
return u3m_error("find-fork");
}
else {
ret = u3nc
(
u3k(p_hax),
u3nq
(
u3_nul,
ret = u3nc(u3k(p_hax),
u3nq(u3_nul,
u3k(puq_hax),
2,
u3nc(
u3nq(
u3k(ppquq_hax),
u3nc(u3nq(u3k(ppquq_hax),
u3k(qpquq_hax),
u3k(rpquq_hax),
u3qf_fork(
spquq_hax,
u3qf_fork(spquq_hax,
spquq_yor)),
u3qf_fork(qquq_hax, qquq_yor))));
break;
@ -356,8 +319,7 @@
}
static u3_noun
_find_in(
u3_noun van,
_find_in(u3_noun van,
u3_noun sut,
u3_noun dep,
u3_noun way,
@ -385,19 +347,14 @@
}
else {
if ( 0 == dep ) {
return u3nc
(0,
u3nq(
u3_nul,
return u3nc(0,
u3nq(u3_nul,
u3k(rp_sut),
c3y,
u3k(sp_sut)));
} else {
return _find_in
(
van, q_sut, u3qa_dec(dep), way, cog, gil);
return u3nc
(u3qa_dec(dep), u3_nul);
return _find_in(van, q_sut, u3qa_dec(dep), way, cog, gil);
return u3nc(u3qa_dec(dep), u3_nul);
}
}
}
@ -423,8 +380,7 @@
u3_noun puq_bov, quq_bov;
u3r_mean(q_bov, 6, &puq_bov, 7, &quq_bov, 0);
ret = u3nq
(u3k(p_bov),
ret = u3nq(u3k(p_bov),
u3_nul,
u3qc_peg(3, puq_bov),
u3k(quq_bov));
@ -435,8 +391,7 @@
u3_noun puq_taf, quq_taf;
u3r_mean(q_taf, 6, &puq_taf, 7, &quq_taf, 0);
ret = u3nq
(u3k(p_taf),
ret = u3nq(u3k(p_taf),
u3_nul,
u3qc_peg(2, puq_taf),
u3k(quq_taf));
@ -482,8 +437,7 @@
u3r_mean(q_taf, 6, &puq_taf, 7, &quq_taf, 0);
if ( c3n == u3qfu_park
(van, sut, way, puq_taf) )
if ( c3n == u3qfu_park(van, sut, way, puq_taf) )
{
u3_noun weh = u3qfu_shep
(van, "way", 'a', u3k(way));
@ -495,8 +449,7 @@
return u3m_error("find-park");
}
else {
pro = u3nq
(u3k(p_taf),
pro = u3nq(u3k(p_taf),
u3_nul,
u3qc_peg(3, puq_taf),
u3k(quq_taf));
@ -519,17 +472,12 @@
u3k(qq_sut),
u3k(rq_sut)));
pro = u3nc
(
0,
u3nq(
u3_nul,
pro = u3nc(0,
u3nq(u3_nul,
1,
c3n,
u3nc
(u3qc_peg(2, pu_zem),
u3nc(
u3nc(mut, u3k(qu_zem)),
u3nc(u3qc_peg(2, pu_zem),
u3nc(u3nc(mut, u3k(qu_zem)),
u3_nul))));
u3z(zem);
return pro;
@ -544,12 +492,13 @@
return u3nc(u3k(dep), u3_nul);
} else {
if ( 0 == dep ) {
return u3nc
(0,
u3nq(u3_nul, 1, c3y, u3k(q_sut)));
return u3nc(0,
u3nq(u3_nul,
1,
c3y,
u3k(q_sut)));
} else {
return u3nc
(u3qa_dec(dep), u3_nul);
return u3nc(u3qa_dec(dep), u3_nul);
}
}
}
@ -606,12 +555,8 @@
u3_noun pquq_hax = u3t(quq_hax);
u3_noun pquq_yor = u3t(quq_yor);
ret = u3nc
(
u3k(p_hax),
u3nq
(
u3_nul,
ret = u3nc(u3k(p_hax),
u3nq(u3_nul,
u3k(puq_hax),
c3y,
u3qf_fork(pquq_hax, pquq_yor)));
@ -626,15 +571,11 @@
if ( c3n == u3r_sing(pquq_hax, pquq_yor) ) {
return u3m_error("find-fork");
} else {
ret = u3nc
(
u3k(p_hax),
u3nq
(u3_nul,
ret = u3nc(u3k(p_hax),
u3nq(u3_nul,
u3k(puq_hax),
c3n,
u3nc
(u3k(pquq_hax),
u3nc(u3k(pquq_hax),
u3qb_weld
(qquq_hax, qquq_yor))));
break;
@ -668,8 +609,7 @@
}
u3_noun
_cqfu_find(
u3_noun van,
_cqfu_find(u3_noun van,
u3_noun sut,
u3_noun dep,
u3_noun way,
@ -679,8 +619,7 @@
}
u3_noun
_cqfu_fino(
u3_noun van,
_cqfu_fino(u3_noun van,
u3_noun sut,
u3_noun dep,
u3_noun way,
@ -692,8 +631,7 @@
/* boilerplate
*/
u3_noun
u3wfu_fino(
u3_noun cor)
u3wfu_fino(u3_noun cor)
{
u3_noun sut, dep, way, cog, van;
@ -711,8 +649,7 @@
}
u3_noun
u3qfu_fino(
u3_noun van,
u3qfu_fino(u3_noun van,
u3_noun sut,
u3_noun dep,
u3_noun way,
@ -735,8 +672,7 @@
/* boilerplate
*/
u3_noun
u3wfu_find(
u3_noun cor)
u3wfu_find(u3_noun cor)
{
u3_noun sut, dep, way, cog, van;
@ -754,8 +690,7 @@
}
u3_noun
u3qfu_find(
u3_noun van,
u3qfu_find(u3_noun van,
u3_noun sut,
u3_noun dep,
u3_noun way,

16
jets/f/ut_fink.c
View File

@ -7,8 +7,7 @@
/* logic
*/
u3_noun
_cqfu_fink(
u3_noun van,
_cqfu_fink(u3_noun van,
u3_noun sut,
u3_noun dep,
u3_noun way,
@ -16,13 +15,11 @@
{
// u3_noun dun = u3qfu_dunq(van, "type", sut);
u3_noun nuc = (u3_blip == cog)
? u3qfu_shew
(van,
u3nc
(u3nc('c', u3i_string("find-limb")),
? u3qfu_shew(van,
u3nc(u3nc('c',
u3i_string("find-limb")),
'$'))
: u3qfu_shep
(van, "find-limb", 'a', u3k(cog));
: u3qfu_shep(van, "find-limb", 'a', u3k(cog));
u3_noun pro;
// u3t_push(u3nc(c3__mean, dun));
@ -67,8 +64,7 @@
}
u3_noun
u3qfu_fink(
u3_noun van,
u3qfu_fink(u3_noun van,
u3_noun sut,
u3_noun dep,
u3_noun way,

15
jets/f/ut_fire.c
View File

@ -24,7 +24,8 @@
else {
u3_noun rob = u3qdi_put(rib, key);
u3_noun von = u3i_molt(u3k(van),
u3qfu_van_rib, u3k(rob),
u3qfu_van_rib,
u3k(rob),
0);
ret = u3qfu_mull(von, sut, c3__noun, dox, gen);
@ -58,8 +59,7 @@
if ( c3__ash == u3h(gat) ) {
if ( (c3y == vet) &&
(c3n == u3qfu_nest
(van, qq_typ, c3y, p_typ)) )
(c3n == u3qfu_nest(van, qq_typ, c3y, p_typ)) )
{
#if 0
u3_noun dun = u3qfu_dunq(van, "need", qq_typ);
@ -99,8 +99,7 @@
}
static u3_noun
_fire_in(
u3_noun van,
_fire_in(u3_noun van,
u3_noun vet,
u3_noun hag)
{
@ -121,8 +120,7 @@
}
}
u3_noun
_cqfu_fire(
u3_noun van,
_cqfu_fire(u3_noun van,
u3_noun sut,
u3_noun hag)
{
@ -152,8 +150,7 @@
/* boilerplate
*/
u3_noun
u3wfu_fire(
u3_noun cor)
u3wfu_fire(u3_noun cor)
{
u3_noun sut, hag, van;

18
jets/f/ut_firm.c
View File

@ -7,8 +7,7 @@
/* logic
*/
u3_noun
_cqfu_firm(
u3_noun van,
_cqfu_firm(u3_noun van,
u3_noun sut,
u3_noun dib)
{
@ -47,8 +46,7 @@
}
case c3__cell: u3x_cell(u3t(sut), &p_sut, &q_sut);
{
return c3a
(u3du(dib),
return c3a(u3du(dib),
c3a(_cqfu_firm(van, p_sut, u3h(dib)),
_cqfu_firm(van, q_sut, u3t(dib))));
}
@ -59,12 +57,11 @@
u3x_trel(q_sut, &pq_sut, &qq_sut, &rq_sut);
u3x_cell(rq_sut, &prq_sut, &qrq_sut);
return c3a
(u3du(dib),
c3a
(_cqfu_firm(van, p_sut, u3h(dib)),
return c3a(u3du(dib),
c3a(_cqfu_firm(van, p_sut, u3h(dib)),
((u3_nul == prq_sut) ? u3m_error("firm-core")
: u3r_sing(prq_sut, u3t(dib)))));
: u3r_sing(prq_sut,
u3t(dib)))));
}
case c3__cube: u3x_cell(u3t(sut), &p_sut, &q_sut);
{
@ -93,8 +90,7 @@
/* boilerplate
*/
u3_noun
u3wfu_firm(
u3_noun cor)
u3wfu_firm(u3_noun cor)
{
u3_noun sut, dib, van;

12
jets/f/ut_fish.c
View File

@ -7,8 +7,7 @@
/* functions
*/
static u3_noun
_fish_in(
u3_noun van,
_fish_in(u3_noun van,
u3_noun sut,
u3_atom axe,
u3_noun vit)
@ -67,8 +66,7 @@
if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) ) {
return u3m_bail(c3__fail);
} else {
return u3nt
(5,
return u3nt(5,
u3nc(1, u3k(p_sut)),
u3nc(0, u3k(axe)));
}
@ -122,8 +120,7 @@
}
}
u3_noun
_cqfu_fish(
u3_noun van,
_cqfu_fish(u3_noun van,
u3_noun sut,
u3_atom axe)
{
@ -134,8 +131,7 @@
/* boilerplate
*/
u3_noun
u3wfu_fish(
u3_noun cor)
u3wfu_fish(u3_noun cor)
{
u3_noun sut, axe, van;

12
jets/f/ut_fuse.c
View File

@ -10,8 +10,7 @@
_fuse_in(u3_noun, u3_noun, u3_noun, u3_noun);
static u3_noun
_fuse_repo(
u3_noun van,
_fuse_repo(u3_noun van,
u3_noun sut,
u3_noun ref,
u3_noun bix)
@ -34,8 +33,7 @@
}
static u3_noun
_fuse_in(
u3_noun van,
_fuse_in(u3_noun van,
u3_noun sut,
u3_noun ref,
u3_noun bix)
@ -157,8 +155,7 @@
}
u3_noun
_cqfu_fuse(
u3_noun van,
_cqfu_fuse(u3_noun van,
u3_noun sut,
u3_noun ref)
{
@ -168,8 +165,7 @@
/* boilerplate
*/
u3_noun
u3wfu_fuse(
u3_noun cor)
u3wfu_fuse(u3_noun cor)
{
u3_noun sut, ref, van;

4
jets/f/ut_gain.c
View File

@ -5,7 +5,9 @@
u3_noun
u3qfu_gain(u3_noun van, u3_noun sut, u3_noun gen)
u3qfu_gain(u3_noun van,
u3_noun sut,
u3_noun gen)
{
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_hook(von, "gain");

21
jets/f/ut_heal.c
View File

@ -11,8 +11,7 @@
_heal_as(u3_noun, u3_noun, u3_noun, u3_atom, u3_noun);
static u3_noun
_heal_by(
u3_noun van,
_heal_by(u3_noun van,
u3_noun sut,
u3_noun qog,
u3_noun ref)
@ -38,8 +37,10 @@
u3_noun sub = _heal_by(van, q_sut, qog, ref);
u3_noun ret;
ret = u3qfu_busk
(van, sub, u3h(p_sut), u3h(u3t(p_sut)));
ret = u3qfu_busk(van,
sub,
u3h(p_sut),
u3h(u3t(p_sut)));
u3z(sub);
return ret;
@ -73,8 +74,7 @@
}
static u3_noun
_heal_to(
u3_noun van,
_heal_to(u3_noun van,
u3_noun sut,
u3_noun gil,
u3_noun qog,
@ -176,8 +176,7 @@
}
static u3_noun
_heal_as(
u3_noun van,
_heal_as(u3_noun van,
u3_noun sut,
u3_noun qog,
u3_atom axe,
@ -201,8 +200,7 @@
/* functions
*/
u3_noun
_cqfu_heal(
u3_noun van,
_cqfu_heal(u3_noun van,
u3_noun sut,
u3_noun qog,
u3_noun axe,
@ -214,8 +212,7 @@
/* boilerplate
*/
u3_noun
u3wfu_heal(
u3_noun cor)
u3wfu_heal(u3_noun cor)
{
u3_noun van, sut, qog, axe, ref;

150
jets/f/ut_mint.c
View File

@ -20,8 +20,7 @@ int FOO;
}
static u3_noun
_mint_vet(
u3_noun van)
_mint_vet(u3_noun van)
{
// u3_noun vet = u3j_hook(u3k(van), "vet");
u3_noun vet = u3r_at(u3qfu_van_vet, van);
@ -34,8 +33,7 @@ int FOO;
}
static u3_noun
_mint_core(
u3_noun pac,
_mint_core(u3_noun pac,
u3_noun con)
{
if ( (c3__void == pac) ) {
@ -46,8 +44,7 @@ int FOO;
}
static u3_noun
_mint_foil(
u3_noun pok)
_mint_foil(u3_noun pok)
{
u3_noun p_pok = u3h(pok);
u3_noun q_pok = u3t(pok);
@ -56,12 +53,9 @@ int FOO;
if ( c3y == u3h(q_pok) ) {
u3_noun pq_pok = u3t(q_pok);
ret = u3nc(
u3k(p_pok),
ret = u3nc(u3k(p_pok),
u3nc(u3_nul,
u3nc(
u3nc(
u3k(pq_pok),
u3nc(u3nc(u3k(pq_pok),
u3nt(c3__elm, u3_nul, 1)),
u3_nul)));
}
@ -78,8 +72,7 @@ int FOO;
}
static u3_noun
_mint_cond(
u3_noun pex,
_mint_cond(u3_noun pex,
u3_noun yom,
u3_noun woq)
{
@ -101,8 +94,7 @@ int FOO;
}
static u3_noun
_mint_corn(
u3_noun van,
_mint_corn(u3_noun van,
u3_noun sut,
u3_noun gen)
{
@ -114,8 +106,7 @@ int FOO;
}
static u3_noun
_mint_nice(
u3_noun van,
_mint_nice(u3_noun van,
u3_noun gol,
u3_noun typ)
{
@ -134,8 +125,7 @@ int FOO;
}
static u3_noun
_mint_coke(
u3_noun nug)
_mint_coke(u3_noun nug)
{
u3_atom axe;
@ -154,8 +144,7 @@ int FOO;
}
static u3_noun
_mint_edit(
u3_noun van,
_mint_edit(u3_noun van,
u3_noun sut,
u3_noun mew,
u3_noun p_lar,
@ -179,8 +168,7 @@ int FOO;
u3_noun zil = u3qfu_mint(van, sut, c3__noun, qi_mew);
u3_noun p_zil = u3h(zil);
u3_noun q_zil = u3t(zil);
u3_noun wip = u3qfu_tock
(van, sut, pi_mew, p_zil, rag);
u3_noun wip = u3qfu_tock(van, sut, pi_mew, p_zil, rag);
u3z(rag);
rag = u3k(u3t(wip));
@ -198,8 +186,7 @@ int FOO;
}
static u3_noun
_mint_brew(
u3_noun van,
_mint_brew(u3_noun van,
u3_noun sut,
u3_noun tov,
u3_noun gen)
@ -224,8 +211,7 @@ int FOO;
}
static u3_noun
_mint_bake(
u3_noun van,
_mint_bake(u3_noun van,
u3_noun sut,
u3_noun dab)
{
@ -259,16 +245,13 @@ int FOO;
return vad;
}
else if ( (u3_nul == l_dab) ) {
return u3nc
(vad, _mint_bake(van, sut, r_dab));
return u3nc(vad, _mint_bake(van, sut, r_dab));
}
else if ( (u3_nul == r_dab) ) {
return u3nc
(vad, _mint_bake(van, sut, l_dab));
return u3nc(vad, _mint_bake(van, sut, l_dab));
}
else {
return u3nt
(vad,
return u3nt(vad,
_mint_bake(van, sut, l_dab),
_mint_bake(van, sut, r_dab));
}
@ -277,8 +260,7 @@ int FOO;
}
static u3_noun
_mint_grow(
u3_noun van,
_mint_grow(u3_noun van,
u3_noun sut,
u3_noun gol,
u3_atom mel,
@ -288,22 +270,19 @@ int FOO;
u3_noun dan = _mint_in(van, sut, c3__noun, ruf);
u3_noun p_dan = u3h(dan);
u3_noun q_dan = u3t(dan);
u3_noun toc = _mint_core
(u3k(p_dan),
u3_noun toc = _mint_core(u3k(p_dan),
u3nt(c3__gold,
u3k(p_dan),
u3nc(u3_nul, u3k(dab))));
u3nc(u3_nul,
u3k(dab))));
u3_noun dez = _mint_bake(van, toc, dab);
u3_noun zod = u3nc(1, dez);
u3_noun cot = _mint_core
(u3k(p_dan),
u3_noun cot = _mint_core(u3k(p_dan),
u3nt(mel,
u3k(p_dan),
u3nc(u3k(dez),
u3k(dab))));
u3_noun ret = u3nc
(
_mint_nice(van, gol, cot),
u3_noun ret = u3nc(_mint_nice(van, gol, cot),
u3qf_cons(zod, q_dan));
u3z(zod);
@ -314,8 +293,7 @@ int FOO;
}
static u3_noun
_mint_loc(
u3_noun van,
_mint_loc(u3_noun van,
u3_noun loc)
{
u3_noun mol = u3nc('o', u3k(loc));
@ -369,10 +347,9 @@ int FOO;
u3_noun tal = _mint_in(van, sut, c3__noun, u3t(gen));
u3_noun typ = u3qf_cell(u3h(hed), u3h(tal));
ret = u3nc
(
_mint_nice(van, gol, typ),
u3qf_cons(u3t(hed), u3t(tal)));
ret = u3nc(_mint_nice(van, gol, typ),
u3qf_cons(u3t(hed),
u3t(tal)));
u3z(hed);
u3z(tal);
@ -424,9 +401,7 @@ int FOO;
u3_noun axe = _mint_coke(vol);
u3_noun wam = u3qfu_play(van, sut, nob);
ret = u3nc
(
_mint_nice(van, gol, _mint_bean()),
ret = u3nc(_mint_nice(van, gol, _mint_bean()),
u3qfu_fish(van, wam, axe));
u3z(axe);
@ -454,8 +429,8 @@ int FOO;
u3_noun hiq = _mint_in(van, fex, gol, q_gen);
u3_noun ran = _mint_in(van, wux, gol, r_gen);
ret = u3nc
(u3qf_fork(u3h(hiq), u3h(ran)),
ret = u3nc(u3qf_fork(u3h(hiq),
u3h(ran)),
_mint_cond(duy,
u3k(u3t(hiq)),
u3k(u3t(ran))));
@ -476,10 +451,9 @@ int FOO;
u3_noun tal = _mint_in(van, sut, c3__noun, q_gen);
u3_noun typ = u3qf_cell(u3h(hed), u3h(tal));
ret = u3nc
(
_mint_nice(van, gol, typ),
u3qf_cons(u3t(hed), u3t(tal)));
ret = u3nc(_mint_nice(van, gol, typ),
u3qf_cons(u3t(hed),
u3t(tal)));
u3z(hed);
u3z(tal);
@ -500,9 +474,7 @@ int FOO;
{
u3_noun typ = _mint_nice(van, gol, _mint_bean());
return u3nc
(
typ,
return u3nc(typ,
u3nc(3, _mint_corn(van, sut, p_gen)));
}
case c3__dtkt: p_gen = u3t(gen);
@ -511,9 +483,7 @@ int FOO;
u3_noun tom = c3__noun;
u3_noun sam = _mint_in(van, sut, tom, p_gen);
ret = u3nc
(
_mint_nice(van, gol, tom),
ret = u3nc(_mint_nice(van, gol, tom),
u3nc(11, u3k(u3t(sam))));
u3z(sam);
@ -525,9 +495,7 @@ int FOO;
u3_noun tom = u3nc(c3__atom, u3_blip);
u3_noun sam = _mint_in(van, sut, tom, p_gen);
ret = u3nc
(
_mint_nice(van, gol, tom),
ret = u3nc(_mint_nice(van, gol, tom),
u3nc(4, u3k(u3t(sam))));
u3z(sam);
@ -540,9 +508,7 @@ int FOO;
? c3__noun
: u3nc(c3__atom, u3k(p_gen));
u3_noun typ = u3qf_cube(q_gen, boc);
u3_noun ret =
u3nc(
_mint_nice(van, gol, typ),
u3_noun ret = u3nc(_mint_nice(van, gol, typ),
u3nc(1, u3k(q_gen)));
u3z(boc);
@ -554,18 +520,14 @@ int FOO;
u3_noun one = _mint_corn(van, sut, p_gen);
u3_noun two = _mint_corn(van, sut, q_gen);
return u3nc
(
_mint_nice(van, gol, c3__noun),
return u3nc(_mint_nice(van, gol, c3__noun),
u3nt(2, one, two));
}
case c3__dtzy: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun typ = u3qfu_play(van, sut, gen);
u3_noun ret =
u3nc(
_mint_nice(van, gol, typ),
u3_noun ret = u3nc(_mint_nice(van, gol, typ),
u3nc(1, u3k(q_gen)));
return ret;
@ -605,9 +567,7 @@ int FOO;
{
u3_noun vat = _mint_in(van, sut, gol, q_gen);
ret = u3nc
(
u3qfu_conk(van, u3h(vat), p_gen),
ret = u3nc(u3qfu_conk(van, u3h(vat), p_gen),
u3k(u3t(vat)));
u3z(vat);
@ -618,9 +578,7 @@ int FOO;
{
u3_noun vat = _mint_in(van, sut, gol, q_gen);
ret = u3nc
(
u3qfu_conk(van, u3h(vat), p_gen),
ret = u3nc(u3qfu_conk(van, u3h(vat), p_gen),
u3k(u3t(vat)));
u3z(vat);
@ -694,8 +652,7 @@ int FOO;
u3_noun p_dov = u3h(dov);
u3_noun q_dov = u3t(dov);
ret = u3nc
(u3k(p_dov),
ret = u3nc(u3k(p_dov),
u3qf_comb(q_fid, q_dov));
u3z(fid);
@ -725,12 +682,10 @@ int FOO;
u3_noun pq_lar = u3h(q_lar);
u3_noun qq_lar = u3t(q_lar);
u3_noun mew = u3qfu_snub(van, sut, q_gen);
u3_noun yom = _mint_edit
(van, sut, mew, p_lar, u3k(qq_lar), u3_nul);
u3_noun yom = _mint_edit(van, sut, mew, p_lar, u3k(qq_lar), u3_nul);
u3_noun p_yom = u3h(yom);
u3_noun q_yom = u3t(yom);
u3_noun ret = u3nc
(_mint_nice(van, gol, u3k(p_yom)),
u3_noun ret = u3nc(_mint_nice(van, gol, u3k(p_yom)),
(0 == pq_lar) ? u3k(q_yom)
: u3nt(9, u3k(pq_lar), u3k(q_yom)));
@ -743,8 +698,7 @@ int FOO;
case c3__pmcl: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun ruf = u3nt
(c3__clhp,
u3_noun ruf = u3nt(c3__clhp, i
u3nc(u3_nul, 1),
u3k(p_gen));
u3_noun ret = _mint_grow(van, sut, gol, c3__zinc, ruf, q_gen);
@ -775,8 +729,7 @@ int FOO;
case c3__pmls: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
u3_noun ruf = u3nt
(c3__clhp,
u3_noun ruf = u3nt(c3__clhp,
u3nc(u3_nul, 1),
u3k(p_gen));
u3_noun ret = _mint_grow(van, sut, gol, c3__iron, ruf, q_gen);
@ -817,8 +770,7 @@ int FOO;
bez = u3nc(u3k(u3h(p_gen)),
_mint_corn(van, sut, u3t(p_gen)));
}
ret = u3nc(
u3k(u3h(hum)),
ret = u3nc(u3k(u3h(hum)),
u3nt(10, bez, u3k(u3t(hum))));
u3z(hum);
@ -836,9 +788,7 @@ int FOO;
case c3__zpcm: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
return u3nc
(
_mint_nice(van,
return u3nc(_mint_nice(van,
gol,
u3qfu_play(van, sut, p_gen)),
u3nc(1, u3k(q_gen)));
@ -882,8 +832,7 @@ int FOO;
u3_noun cig = u3qf_cell(sif, p_vos);
u3_noun ret;
ret = u3nc(
_mint_nice(van, gol, cig),
ret = u3nc(_mint_nice(van, gol, cig),
u3qf_cons(waz, q_vos));
u3z(waz);
@ -916,8 +865,7 @@ int FOO;
}
u3_noun
_cqfu_mint(
u3_noun van,
_cqfu_mint(u3_noun van,
u3_noun sut,
u3_noun gol,
u3_noun gen)

132
jets/f/ut_mull.c
View File

@ -10,8 +10,7 @@
_mull_in(u3_noun, u3_noun, u3_noun, u3_noun, u3_noun);
static u3_noun
_mull_vet(
u3_noun van)
_mull_vet(u3_noun van)
{
// u3_noun vet = u3j_hook(u3k(van), "vet");
u3_noun vet = u3r_at(u3qfu_van_vet, van);
@ -24,8 +23,7 @@
}
static u3_noun
_mull_core(
u3_noun pac,
_mull_core(u3_noun pac,
u3_noun con)
{
if ( (c3__void == pac) ) {
@ -44,8 +42,7 @@
}
static u3_noun
_mull_loc(
u3_noun van,
_mull_loc(u3_noun van,
u3_noun loc)
{
u3_noun mol = u3nc('o', u3k(loc));
@ -59,8 +56,7 @@
}
static u3_noun
_mull_foil(
u3_noun pok)
_mull_foil(u3_noun pok)
{
u3_noun p_pok = u3h(pok);
u3_noun q_pok = u3t(pok);
@ -69,12 +65,9 @@
if ( c3y == u3h(q_pok) ) {
u3_noun pq_pok = u3t(q_pok);
ret = u3nc(
u3k(p_pok),
ret = u3nc(u3k(p_pok),
u3nc(u3_nul,
u3nc(
u3nc(
u3k(pq_pok),
u3nc(u3nc(u3k(pq_pok),
u3nt(c3__elm, u3_nul, 1)),
u3_nul)));
}
@ -91,8 +84,7 @@
}
static u3_noun
_mull_coke(
u3_noun nug)
_mull_coke(u3_noun nug)
{
u3_atom axe;
@ -111,8 +103,7 @@
}
static u3_noun
_mull_doke(
u3_noun van,
_mull_doke(u3_noun van,
u3_noun sut,
u3_noun gen)
{
@ -124,8 +115,7 @@
}
static u3_noun
_mull_nice(
u3_noun van,
_mull_nice(u3_noun van,
u3_noun gol,
u3_noun typ)
{
@ -142,8 +132,7 @@
}
static void
_mull_bake(
u3_noun van,
_mull_bake(u3_noun van,
u3_noun sut,
u3_noun dox,
u3_noun dab)
@ -190,8 +179,7 @@
}
static u3_noun
_mull_grow(
u3_noun van,
_mull_grow(u3_noun van,
u3_noun sut,
u3_noun gol,
u3_noun dox,
@ -202,24 +190,20 @@
u3_noun dan = _mull_in(van, sut, c3__noun, dox, ruf);
u3_noun p_dan = u3h(dan);
u3_noun q_dan = u3t(dan);
u3_noun p_toc = _mull_core
(u3k(p_dan),
u3_noun p_toc = _mull_core(u3k(p_dan),
u3nt(c3__gold,
u3k(p_dan),
u3nc(u3_nul, u3k(dab))));
u3_noun q_toc = _mull_core
(u3k(q_dan),
u3_noun q_toc = _mull_core(u3k(q_dan),
u3nt(c3__gold,
u3k(q_dan),
u3nc(u3_nul, u3k(dab))));
u3_noun p_ret = _mull_core
(u3k(p_dan),
u3_noun p_ret = _mull_core(u3k(p_dan),
u3nt(u3k(mel),
u3k(p_dan),
u3nc(u3nc(u3_nul, u3_nul),
u3k(dab))));
u3_noun q_ret = _mull_core
(u3k(q_dan),
u3_noun q_ret = _mull_core(u3k(q_dan),
u3nt(u3k(mel),
u3k(q_dan),
u3nc(u3nc(u3_nul, u3_nul),
@ -236,8 +220,7 @@
}
static u3_noun
_mull_both(
u3_noun van,
_mull_both(u3_noun van,
u3_noun gol,
u3_noun typ)
{
@ -246,8 +229,7 @@
}
static u3_noun
_mull_edit(
u3_noun van,
_mull_edit(u3_noun van,
u3_noun sut,
u3_noun dox,
u3_noun mew,
@ -265,10 +247,8 @@
u3_noun zil = _mull_in(van, sut, c3__noun, dox, qi_mew);
u3_noun p_zil = u3h(zil);
u3_noun q_zil = u3t(zil);
u3_noun cuf = u3qfu_tock
(van, sut, pi_mew, p_zil, p_yom);
u3_noun dof = u3qfu_tock
(van, sut, pi_mew, q_zil, q_yom);
u3_noun cuf = u3qfu_tock(van, sut, pi_mew, p_zil, p_yom);
u3_noun dof = u3qfu_tock(van, sut, pi_mew, q_zil, q_yom);
if ( u3r_sing(u3h(cuf), u3h(dof)) ) {
u3m_error("mull-bonk-a");
@ -292,8 +272,7 @@
# define _mull_used()
static u3_noun
_mull_in(
u3_noun van,
_mull_in(u3_noun van,
u3_noun sut,
u3_noun gol,
u3_noun dox,
@ -333,8 +312,7 @@
if ( c3y == u3r_sing(rex, gen) ) {
#if 1
u3_noun zix = u3qfu_shep
(van, "gene", 'q', u3k(gen));
u3_noun zix = u3qfu_shep(van, "gene", 'q', u3k(gen));
u3t_push(u3nc(c3__mean, zix));
return u3m_error("mull-open");
@ -411,8 +389,7 @@
u3_noun ret;
if ( c3__void == p_fex ) {
hiq = u3nc(
c3__void,
hiq = u3nc(c3__void,
(c3__void == q_fex)
? c3__void
: u3qfu_play(van, q_fex, q_gen));
@ -422,8 +399,7 @@
else hiq = _mull_in(van, p_fex, gol, q_fex, q_gen);
if ( c3__void == p_wux ) {
ran = u3nc(
c3__void,
ran = u3nc(c3__void,
(c3__void == q_wux)
? c3__void
: u3qfu_play(van, q_wux, r_gen));
@ -502,8 +478,7 @@
case c3__dtzz: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun tof = u3nt
(c3__cube,
u3_noun tof = u3nt(c3__cube,
u3k(q_gen),
(c3y == u3du(q_gen))
? c3__noun
@ -532,9 +507,12 @@
_mull_used();
{
u3_noun vat = _mull_in(van, sut, gol, dox, p_gen);
u3_noun pro = u3nc
(u3qfu_wrap(van, u3h(vat), c3__iron),
u3qfu_wrap(van, u3t(vat), c3__iron));
u3_noun pro = u3nc(u3qfu_wrap(van,
u3h(vat),
c3__iron),
u3qfu_wrap(van,
u3t(vat),
c3__iron));
u3z(vat);
return pro;
@ -543,9 +521,12 @@
_mull_used();
{
u3_noun vat = _mull_in(van, sut, gol, dox, p_gen);
u3_noun pro = u3nc
(u3qfu_wrap(van, u3h(vat), c3__zinc),
u3qfu_wrap(van, u3t(vat), c3__zinc));
u3_noun pro = u3nc(u3qfu_wrap(van,
u3h(vat),
c3__zinc),
u3qfu_wrap(van,
u3t(vat),
c3__zinc));
u3z(vat);
return pro;
@ -554,9 +535,12 @@
_mull_used();
{
u3_noun vat = _mull_in(van, sut, gol, dox, p_gen);
u3_noun pro = u3nc
(u3qfu_wrap(van, u3h(vat), c3__lead),
u3qfu_wrap(van, u3t(vat), c3__lead));
u3_noun pro = u3nc(u3qfu_wrap(van,
u3h(vat),
c3__lead),
u3qfu_wrap(van,
u3t(vat),
c3__lead));
u3z(vat);
return pro;
@ -565,9 +549,7 @@
_mull_used();
{
u3_noun vat = _mull_in(van, sut, gol, dox, q_gen);
u3_noun ret =
u3nc(
u3qfu_conk(van, u3h(vat), p_gen),
u3_noun ret = u3nc(u3qfu_conk(van, u3h(vat), p_gen),
u3qfu_conk(van, u3t(vat), p_gen));
u3z(vat);
@ -577,9 +559,7 @@
_mull_used();
{
u3_noun vat = _mull_in(van, sut, gol, dox, q_gen);
u3_noun ret =
u3nc(
u3qfu_conk(van, u3h(vat), p_gen),
u3_noun ret =u3nc(u3qfu_conk(van, u3h(vat), p_gen),
u3qfu_conk(van, u3t(vat), p_gen));
u3z(vat);
@ -593,8 +573,7 @@
case c3__ktls: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun p_hif = _mull_nice
(van, gol, u3qfu_play(van, sut, p_gen));
u3_noun p_hif = _mull_nice(van, gol, u3qfu_play(van, sut, p_gen));
u3_noun q_hif = u3qfu_play(van, dox, p_gen);
u3_noun zel = _mull_in(van, sut, p_hif, dox, q_gen);
@ -606,8 +585,7 @@
case c3__kthx: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun p_hif = _mull_nice
(van, gol, u3qfu_play(van, sut, p_gen));
u3_noun p_hif = _mull_nice(van, gol, u3qfu_play(van, sut, p_gen));
u3_noun q_hif = u3qfu_play(van, dox, p_gen);
u3_noun zel = _mull_in(van, sut, p_hif, dox, q_gen);
@ -685,12 +663,10 @@
case c3__pmcl: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun ruf = u3nt
(c3__clhp,
u3_noun ruf = u3nt(c3__clhp,
u3nc(u3_nul, 1),
u3k(p_gen));
u3_noun ret = _mull_grow
(van, sut, gol, dox, c3__zinc, ruf, q_gen);
u3_noun ret = _mull_grow(van, sut, gol, dox, c3__zinc, ruf, q_gen);
u3z(ruf);
return ret;
@ -718,12 +694,10 @@
case c3__pmls: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
u3_noun ruf = u3nt
(c3__clhp,
u3_noun ruf = u3nt(c3__clhp,
u3nc(u3_nul, 1),
u3k(p_gen));
u3_noun ret = _mull_grow
(van, sut, gol, dox, c3__iron, ruf, q_gen);
u3_noun ret = _mull_grow(van, sut, gol, dox, c3__iron, ruf, q_gen);
u3z(ruf);
return ret;
@ -755,8 +729,7 @@
u3_noun p_ret = u3qfu_play(van, sut, p_gen);
u3_noun q_ret = u3qfu_play(van, sut, q_gen);
return u3nc
(_mull_nice(van, gol, p_ret),
return u3nc(_mull_nice(van, gol, p_ret),
q_ret);
}
case c3__zpcb: u3x_cell(u3t(gen), &p_gen, &q_gen);
@ -810,8 +783,7 @@
}
u3_noun
_cqfu_mull(
u3_noun van,
_cqfu_mull(u3_noun van,
u3_noun sut,
u3_noun gol,
u3_noun dox,

36
jets/f/ut_nest.c
View File

@ -14,8 +14,7 @@
_nest_dext(u3_noun, u3_noun, u3_noun, u3_noun, u3_noun);
static u3_noun
_nest_cram(
u3_noun van,
_nest_cram(u3_noun van,
u3_noun sut,
u3_noun tel,
u3_noun ref,
@ -35,10 +34,8 @@
u3x_trel(dab, &n_dab, &l_dab, &r_dab);
u3x_trel(hem, &n_hem, &l_hem, &r_hem);
if ( (c3n == _nest_cram
(van, sut, tel, ref, l_dab, l_hem, gil)) ||
(c3n == _nest_cram
(van, sut, tel, ref, r_dab, r_hem, gil)) ) {
if ( (c3n == _nest_cram(van, sut, tel, ref, l_dab, l_hem, gil)) ||
(c3n == _nest_cram(van, sut, tel, ref, r_dab, r_hem, gil)) ) {
return c3n;
}
u3x_cell(n_dab, &pn_dab, &qn_dab);
@ -146,10 +143,8 @@
_nest_dext(van, qq_ref, tel, qq_sut, gil));
}
case c3__iron: {
u3_noun s_sam = u3qfu_peek
(van, qq_sut, c3__rite, 2);
u3_noun r_sam = u3qfu_peek
(van, qq_ref, c3__rite, 2);
u3_noun s_sam = u3qfu_peek(van, qq_sut, c3__rite, 2);
u3_noun r_sam = u3qfu_peek(van, qq_ref, c3__rite, 2);
u3_noun ret = _nest_dext(van, r_sam, tel, s_sam, gil);
u3z(r_sam);
@ -160,10 +155,8 @@
return c3y;
}
case c3__zinc: {
u3_noun s_pal = u3qfu_peek
(van, qq_sut, c3__read, 2);
u3_noun r_pal = u3qfu_peek
(van, qq_ref, c3__read, 2);
u3_noun s_pal = u3qfu_peek(van, qq_sut, c3__read, 2);
u3_noun r_pal = u3qfu_peek(van, qq_ref, c3__read, 2);
u3_noun ret = _nest_dext(van, s_pal, tel, r_pal, gil);
u3z(r_pal);
@ -179,8 +172,7 @@
}
static u3_noun
_nest_dext_in(
u3_noun van,
_nest_dext_in(u3_noun van,
u3_noun sut,
u3_noun tel,
u3_noun ref,
@ -306,8 +298,7 @@
}
static u3_noun
_nest_dext_to(
u3_noun van,
_nest_dext_to(u3_noun van,
u3_noun sut,
u3_noun tel,
u3_noun ref,
@ -329,8 +320,7 @@
}
static u3_noun
_nest_dext(
u3_noun van,
_nest_dext(u3_noun van,
u3_noun sut,
u3_noun tel,
u3_noun ref,
@ -357,8 +347,7 @@
}
static u3_noun
_nest_sint(
u3_noun van,
_nest_sint(u3_noun van,
u3_noun sut,
u3_noun tel,
u3_noun ref,
@ -447,8 +436,7 @@
}
u3_noun
_cqfu_nest(
u3_noun van,
_cqfu_nest(u3_noun van,
u3_noun sut,
u3_noun tel,
u3_noun ref)

6
jets/f/ut_park.c
View File

@ -7,8 +7,7 @@
/* logic
*/
u3_noun
_cqfu_park(
u3_noun van,
_cqfu_park(u3_noun van,
u3_noun sut,
u3_noun way,
u3_atom axe)
@ -63,8 +62,7 @@
/* boilerplate
*/
u3_noun
u3wfu_park(
u3_noun cor)
u3wfu_park(u3_noun cor)
{
u3_noun sut, way, axe, van;

9
jets/f/ut_peek.c
View File

@ -10,8 +10,7 @@
_cqfu_peek(u3_noun, u3_noun, u3_noun, u3_atom);
static u3_noun
_peek_in(
u3_noun van,
_peek_in(u3_noun van,
u3_noun sut,
u3_noun way,
u3_atom axe,
@ -147,8 +146,7 @@
}
u3_noun
_cqfu_peek(
u3_noun van,
_cqfu_peek(u3_noun van,
u3_noun sut,
u3_noun way,
u3_atom axe)
@ -162,8 +160,7 @@
/* boilerplate
*/
u3_noun
u3wfu_peek(
u3_noun cor)
u3wfu_peek(u3_noun cor)
{
u3_noun sut, way, axe, van;

49
jets/f/ut_play.c
View File

@ -20,8 +20,7 @@
}
static u3_noun
_play_core(
u3_noun pac,
_play_core(u3_noun pac,
u3_noun con)
{
if ( (c3__void == pac) ) {
@ -34,8 +33,7 @@
}
static u3_noun
_play_loc(
u3_noun van,
_play_loc(u3_noun van,
u3_noun loc)
{
u3_noun mol = u3nc('o', u3k(loc));
@ -49,8 +47,7 @@
}
static u3_noun
_play_foil(
u3_noun pok)
_play_foil(u3_noun pok)
{
u3_noun p_pok = u3h(pok);
u3_noun q_pok = u3t(pok);
@ -59,12 +56,9 @@
if ( c3y == u3h(q_pok) ) {
u3_noun pq_pok = u3t(q_pok);
ret = u3nc(
u3k(p_pok),
ret = u3nc(u3k(p_pok),
u3nc(u3_nul,
u3nc(
u3nc(
u3k(pq_pok),
u3nc(u3nc(u3k(pq_pok),
u3nt(c3__elm, u3_nul, 1)),
u3_nul)));
}
@ -81,8 +75,7 @@
}
static u3_noun
_play_edit(
u3_noun van,
_play_edit(u3_noun van,
u3_noun sut,
u3_noun mew,
u3_noun rag)
@ -109,8 +102,7 @@
}
static u3_noun
_play_grow(
u3_noun van,
_play_grow(u3_noun van,
u3_noun sut,
u3_atom mel,
u3_noun ruf,
@ -118,8 +110,7 @@
{
u3_noun dan = _play_in(van, sut, ruf);
return _play_core
(dan,
return _play_core(dan,
u3nt(u3k(mel),
u3k(dan),
u3nc(u3nc(u3_nul, u3_nul),
@ -127,14 +118,12 @@
}
static u3_noun
_play_in(
u3_noun van,
_play_in(u3_noun van,
u3_noun sut,
u3_noun gen);
static u3_noun
_play_x(
u3_noun van,
_play_x(u3_noun van,
u3_noun sut,
u3_noun gen)
{
@ -155,8 +144,7 @@
}
static u3_noun
_play_in(
u3_noun van,
_play_in(u3_noun van,
u3_noun sut,
u3_noun gen)
{
@ -169,8 +157,7 @@
u3_noun ret;
if ( c3y == u3r_sing(rex, gen) ) {
u3_noun zix = u3qfu_shep
(van, "gene", 'q', u3k(gen));
u3_noun zix = u3qfu_shep(van, "gene", 'q', u3k(gen));
u3t_push(u3nc(c3__mean, zix));
return u3m_error("play-open");
@ -390,8 +377,7 @@
case c3__pmcl: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
u3_noun ruf = u3nt
(c3__clhp,
u3_noun ruf = u3nt(c3__clhp,
u3nc(u3_nul, 1),
u3k(p_gen));
u3_noun ret = _play_grow(van, sut, c3__zinc, ruf, q_gen);
@ -420,8 +406,7 @@
case c3__pmls: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
u3_noun ruf = u3nt
(c3__clhp,
u3_noun ruf = u3nt(c3__clhp,
u3nc(u3_nul, 1),
u3k(p_gen));
u3_noun ret = _play_grow(van, sut, c3__iron, ruf, q_gen);
@ -502,8 +487,7 @@
}
u3_noun
_cqfu_play(
u3_noun van,
_cqfu_play(u3_noun van,
u3_noun sut,
u3_noun gen)
{
@ -517,8 +501,7 @@
/* boilerplate
*/
u3_noun
u3wfu_play(
u3_noun cor)
u3wfu_play(u3_noun cor)
{
u3_noun sut, gen, van;

6
jets/f/ut_repo.c
View File

@ -7,8 +7,7 @@
/* logic
*/
u3_noun
u3qfu_repo(
u3_noun van,
u3qfu_repo(u3_noun van,
u3_noun sut)
{
u3_noun p_sut, q_sut;
@ -62,8 +61,7 @@
}
u3_noun
u3wfu_repo(
u3_noun cor)
u3wfu_repo(u3_noun cor)
{
u3_noun sut;

29
jets/f/ut_rest.c
View File

@ -7,8 +7,7 @@
/* logic
*/
static u3_noun
_rest_in_list(
u3_noun van,
_rest_in_list(u3_noun van,
u3_noun leg)
{
if ( u3_nul == leg ) {
@ -17,15 +16,13 @@
u3_noun i_leg = u3h(leg);
u3_noun t_leg = u3t(leg);
return u3nc
(u3qfu_play(van, u3h(i_leg), u3t(i_leg)),
return u3nc(u3qfu_play(van, u3h(i_leg), u3t(i_leg)),
_rest_in_list(van, t_leg));
}
}
static u3_noun
_rest_in_stil(
u3_noun van,
_rest_in_stil(u3_noun van,
u3_noun gar)
{
u3_noun gun = u3qdi_gas(u3_nul, gar);
@ -36,17 +33,15 @@
}
static u3_noun
_rest_in_fork(
u3_noun nog,
_rest_in_fork(u3_noun nog,
u3_noun fub)
{
if ( c3n == u3du(nog) ) {
return fub;
} else {
u3_noun buf = _rest_in_fork
(
u3t(nog),
u3qf_fork(u3h(nog), fub));
u3_noun buf = _rest_in_fork(u3t(nog),
u3qf_fork(u3h(nog),
fub));
u3z(fub);
return buf;
@ -68,8 +63,7 @@
}
static u3_noun
_rest_hit_fan(
u3_noun fan,
_rest_hit_fan(u3_noun fan,
u3_noun leg)
{
if ( u3_nul == leg ) {
@ -81,7 +75,9 @@
}
u3_noun
_cqfu_rest(u3_noun van, u3_noun sut, u3_noun leg)
_cqfu_rest(u3_noun van,
u3_noun sut,
u3_noun leg)
{
u3_noun fan = u3r_at(u3qfu_van_fan, van);
@ -102,8 +98,7 @@
/* boilerplate
*/
u3_noun
u3wfu_rest(
u3_noun cor)
u3wfu_rest(u3_noun cor)
{
u3_noun sut, leg, van;

12
jets/f/ut_seek.c
View File

@ -7,8 +7,7 @@
/* logic
*/
static u3_noun
_seek_flat(
u3_noun wob)
_seek_flat(u3_noun wob)
{
if ( u3_nul == wob ) {
return u3_nul;
@ -16,8 +15,7 @@
u3_noun i_wob = u3h(wob);
u3_noun t_wob = u3t(wob);
return u3nc
(u3nc(u3k(u3h(i_wob)),
return u3nc(u3nc(u3k(u3h(i_wob)),
u3nt(c3__ash, u3_nul, 1)),
_seek_flat(t_wob));
}
@ -122,8 +120,7 @@
#endif
u3_noun
_cqfu_seek(
u3_noun van,
_cqfu_seek(u3_noun van,
u3_noun sut,
u3_noun way,
u3_noun hyp)
@ -203,8 +200,7 @@
return u3m_bail(c3__fail);
}
else {
ret = u3nt
(u3qc_peg(p_zar, p_yip),
ret = u3nt(u3qc_peg(p_zar, p_yip),
c3y,
u3qfu_peek(van, syp, way, p_yip));
}

3
jets/f/ut_sift.c
View File

@ -7,8 +7,7 @@
/* boilerplate
*/
u3_noun
u3wfu_sift(
u3_noun cor)
u3wfu_sift(u3_noun cor)
{
u3_noun sut, ref, van;

6
jets/f/ut_swab.c
View File

@ -23,8 +23,7 @@
u3_noun qi_har = u3t(i_har);
u3_noun peh = u3qb_flop(pi_har);
u3_noun ret = u3nc(u3nc(peh, u3k(qi_har)),
_cqfu_snub
(van, sut, t_har));
_cqfu_snub(van, sut, t_har));
return ret;
}
@ -33,8 +32,7 @@
/* boilerplate
*/
u3_noun
u3wfu_snub(
u3_noun cor)
u3wfu_snub(u3_noun cor)
{
u3_noun van, sut, har;

8
jets/f/ut_tack.c
View File

@ -13,6 +13,10 @@
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_hook(von, "tack");
return u3n_kick_on
(u3i_molt(gat, u3x_sam_2, u3k(peh), u3x_sam_3, u3k(mur), 0));
return u3n_kick_on(u3i_molt(gat,
u3x_sam_2,
u3k(peh),
u3x_sam_3,
u3k(mur),
0));
}

3
jets/f/ut_tock.c
View File

@ -7,8 +7,7 @@
/* internals
*/
static u3_noun
_tock_in(
u3_noun van,
_tock_in(u3_noun van,
u3_noun sut,
u3_noun peh,
u3_noun mur,

9
jets/f/ut_wrap.c
View File

@ -5,8 +5,7 @@
static u3_noun
_cqfu_wrap(
u3_noun van,
_cqfu_wrap(u3_noun van,
u3_noun sut,
u3_noun yoz)
{
@ -38,8 +37,7 @@
}
case c3__fork: u3x_cell(u3t(sut), &p_sut, &q_sut);
{
return u3qf_fork
(_cqfu_wrap(van, p_sut, yoz),
return u3qf_fork(_cqfu_wrap(van, p_sut, yoz),
_cqfu_wrap(van, q_sut, yoz));
}
case c3__hold:
@ -56,8 +54,7 @@
/* boilerplate
*/
u3_noun
u3wfu_wrap(
u3_noun cor)
u3wfu_wrap(u3_noun cor)
{
u3_noun sut, yoz, van;