This commit is contained in:
C. Guy Yarvin 2014-11-06 11:13:57 -08:00
parent 7b05fc96d1
commit 8c8fa11104
146 changed files with 1628 additions and 1599 deletions

View File

@ -18,17 +18,17 @@ to compute both efficiently and correctly.
Two: `u3` is designed to support "permanent computing," ie, a
single-level store which is transparently checkpointed. This
implies a specialized memory-management model.
implies a specialized memory-management model, etc, etc.
Does `u3` depend on the higher levels of Urbit, Arvo and Hoon?
(Does `u3` depend on the higher levels of Urbit, Arvo and Hoon?
Yes and no. It expects you to load something shaped like an Arvo
kernel, and use it as an event-processing function. But you
don't need to use this feature if you don't want, and your kernel
can be anything you want.
can be anything you want.)
## c3: C in Urbit
Below `u3` is the simple `c3` layer, which is just how we write C
Under `u3` is the simple `c3` layer, which is just how we write C
in Urbit.
When writing C in u3, please of course follow the conventions of
@ -132,7 +132,36 @@ the other way. Use `!` as usual, `c3y` for yes and `c3n` for no,
## u3: introduction to the noun world
u3 is the
The division between `c3` and `u3` is that you could theoretically
imagine using `c3` as just a generic C environment. Anything to do
with nouns is in `u3`.
### u3: a map of the system
There are two kinds of symbols in `u3`: regular and irregular.
They all start with `u3`, but the regular names follow this
pattern:
prefix purpose header
---------------------------------------------------
u3a_ allocation
u3e_ persistence
u3h_ hashtables
u3i_ noun construction
u3j_ jet control
u3m_ system management
u3n_ nock computation
u3r_ noun access (error returns)
u3t_ profiling
u3v_ arvo
u3x_ noun access (error crashes)
u3z_ memoization
u3 deals with reference-counted, immutable, acyclic nouns. 90%
of what you need to know to program in u3 is just how to get your
refcounts right.
/** Prefix definitions:
***

36
g/j.c
View File

@ -93,7 +93,7 @@ _cj_by_gut(u3_noun a, u3_noun b)
return qn_a;
}
else {
if ( c3y == u3_cqc_gor(b, pn_a) ) {
if ( c3y == u3qc_gor(b, pn_a) ) {
return _cj_by_gut(l_a, b);
}
else return _cj_by_gut(r_a, b);
@ -173,7 +173,7 @@ _cj_je_fsck(u3_noun clu)
{
u3z(huk); u3z(clu); free(nam_c); return u3_none;
}
huk = u3_ckdb_put(huk, u3k(pir_clu), u3k(qir_clu));
huk = u3kdb_put(huk, u3k(pir_clu), u3k(qir_clu));
r_clu = tr_clu;
}
}
@ -186,9 +186,9 @@ _cj_je_fsck(u3_noun clu)
static u3_atom
_cj_sham(u3_noun som) // XX wrong, does not match ++sham
{
u3_atom jam = u3_cke_jam(som);
u3_noun sha = u3_cqe_shax(jam);
u3_noun haf = u3_cqc_end(7, 1, sha);
u3_atom jam = u3ke_jam(som);
u3_noun sha = u3qe_shax(jam);
u3_noun haf = u3qc_end(7, 1, sha);
u3z(jam); u3z(sha);
return haf;
@ -258,21 +258,21 @@ _cj_cold_mine(u3_noun cey, u3_noun cor)
//
{
u3_noun soh = _cj_sham(u3k(mop));
u3_noun hoe = u3_ckdb_get(u3k(u3t(u3R->jed.das)), u3k(soh));
u3_noun hoe = u3kdb_get(u3k(u3t(u3R->jed.das)), u3k(soh));
u3_noun sab;
if ( u3_none == hoe ) {
sab = u3nt(u3nc(u3k(bat), u3k(r_cey)), u3_nul, u3_nul);
}
else {
sab = u3_ckdb_put(u3k(u3t(hoe)), u3k(bat), u3k(r_cey));
sab = u3kdb_put(u3k(u3t(hoe)), u3k(bat), u3k(r_cey));
u3z(hoe);
}
{
u3_noun sad, h_sad, t_sad;
h_sad = u3_ckdb_put(u3k(u3h(u3R->jed.das)), u3k(bat), u3k(soh));
t_sad = u3_ckdb_put(u3k(u3t(u3R->jed.das)), soh,
h_sad = u3kdb_put(u3k(u3h(u3R->jed.das)), u3k(bat), u3k(soh));
t_sad = u3kdb_put(u3k(u3t(u3R->jed.das)), soh,
u3nc(u3k(mop), sab));
sad = u3nc(h_sad, t_sad);
@ -337,7 +337,7 @@ _cj_warm_hump(c3_l jax_l, u3_noun huc)
}
else {
u3_noun nam = u3i_string(jet_u->fcs_c);
u3_noun fol = u3_ckdb_get(u3k(huc), nam);
u3_noun fol = u3kdb_get(u3k(huc), nam);
if ( u3_none == fol ) {
fprintf(stderr, "jets: activate: bad fcs %s\r\n", jet_u->fcs_c);
@ -348,7 +348,7 @@ _cj_warm_hump(c3_l jax_l, u3_noun huc)
}
}
if ( 0 != axe_l ) {
hap = u3_ckdb_put(hap, axe_l, i_l);
hap = u3kdb_put(hap, axe_l, i_l);
}
}
}
@ -463,7 +463,7 @@ _cj_warm_ream_is(c3_l jax_l,
static c3_l
_cj_warm_ream_un(u3_noun soh)
{
u3_noun cag = u3_ckdb_got(u3k(u3t(u3R->jed.das)), u3k(soh));
u3_noun cag = u3kdb_got(u3k(u3t(u3R->jed.das)), u3k(soh));
u3_noun sab = u3t(cag);
u3_noun cax;
c3_l jax_l;
@ -733,7 +733,7 @@ _cj_hook_in(u3_noun cor,
{
c3_l jax_l = jax;
u3e_core* cop_u = &u3D.ray_u[jax_l];
u3_noun fol = u3_ckdb_get(u3k(huc), u3i_string(tam_c));
u3_noun fol = u3kdb_get(u3k(huc), u3i_string(tam_c));
if ( u3_none == fol ) {
// The caller wants a deeper core.
@ -753,7 +753,7 @@ _cj_hook_in(u3_noun cor,
if ( (0 == axe_l) ||
(c3n == jet_o) ||
(u3_none == (inx_l = u3_ckdb_get(u3k(hap), axe_l))) ||
(u3_none == (inx_l = u3kdb_get(u3k(hap), axe_l))) ||
(u3_none == (pro = _cj_kick_z(cor,
cop_u,
&cop_u->arm_u[inx_l],
@ -820,7 +820,7 @@ u3j_kick(u3_noun cor, u3_noun axe)
if ( u3_none == cax ) { return u3_none; }
{
u3_noun hap = u3h(u3t(u3t(cax)));
u3_noun inx = u3_ckdb_get(u3k(hap), u3k(axe));
u3_noun inx = u3kdb_get(u3k(hap), u3k(axe));
if ( u3_none == inx ) {
u3z(cax); return u3_none;
@ -880,7 +880,7 @@ _cj_cold_reap_un(u3_noun soh, u3_noun sab, u3_noun sys)
{
sys = _cj_cold_reap_un(soh, l_sab, sys);
sys = _cj_cold_reap_un(soh, r_sab, sys);
sys = u3_ckdb_put(sys, u3a_take(pn_sab), u3k(soh));
sys = u3kdb_put(sys, u3a_take(pn_sab), u3k(soh));
return sys;
}
@ -910,7 +910,7 @@ _cj_cold_reap_to(u3_noun sab, u3_noun bas)
if ( _(u3a_left(pn_sab)) ) {
u3_noun bat = u3a_take(pn_sab);
bas = u3_ckdb_put(bas, bat, u3a_take(qn_sab));
bas = u3kdb_put(bas, bat, u3a_take(qn_sab));
}
return bas;
}
@ -931,7 +931,7 @@ _cj_cold_reap_at(u3_noun soh, u3_noun cag)
cag = u3nc(u3a_take(u3h(cag)), sab);
sys = _cj_cold_reap_un(soh, sab, u3k(u3h(u3R->jed.das)));
haw = u3_ckdb_put(u3k(u3t(u3R->jed.das)), soh, cag);
haw = u3kdb_put(u3k(u3t(u3R->jed.das)), soh, cag);
das = u3nc(sys, haw);
u3z(u3R->jed.das);

4
g/m.c
View File

@ -171,7 +171,7 @@ _cm_signal_recover(c3_l sig_l, u3_noun arg)
rod_u = u3R;
while ( rod_u->kid_u ) {
tax = u3_ckb_weld(u3a_take(rod_u->kid_u->bug.tax), tax);
tax = u3kb_weld(u3a_take(rod_u->kid_u->bug.tax), tax);
rod_u = rod_u->kid_u;
}
}
@ -875,7 +875,7 @@ u3m_soft_run(u3_noun fly,
u3m_bail
(u3nt(3,
u3a_take(u3h(yod)),
u3_ckb_weld(u3t(yod), u3k(u3R->bug.tax))));
u3kb_weld(u3t(yod), u3k(u3R->bug.tax))));
} break;
case 4: { // meta-bail

10
g/v.c
View File

@ -26,7 +26,7 @@ _cv_nock_wish(u3_noun txt)
void
u3v_make(c3_c* pas_c)
{
u3_noun sys = u3_cke_cue(u3m_file(pas_c));
u3_noun sys = u3ke_cue(u3m_file(pas_c));
printf("cv_make: loaded pill %s, as %x\n", pas_c, u3r_mug(sys));
@ -103,11 +103,11 @@ u3v_wish(const c3_c* str_c)
if ( u3R == &u3H->rod_u ) {
u3_noun txt = u3i_string(str_c);
exp = u3_ckdb_get(u3k(u3A->yot), u3k(txt));
exp = u3kdb_get(u3k(u3A->yot), u3k(txt));
if ( u3_none == exp ) {
exp = _cv_nock_wish(u3k(txt));
u3A->yot = u3_ckdb_put(u3A->yot, u3k(txt), u3k(exp));
u3A->yot = u3kdb_put(u3A->yot, u3k(txt), u3k(exp));
}
u3z(txt);
return exp;
@ -179,7 +179,7 @@ u3v_nick(u3_noun vir, u3_noun cor)
cor = u3k(u3t(u3t(gon)));
u3z(gon);
viz = u3_ckb_weld(vix, u3k(u3t(vir)));
viz = u3kb_weld(vix, u3k(u3t(vir)));
u3z(vir);
return u3v_nick(viz, cor);
@ -325,7 +325,7 @@ _cv_time_bump(u3_reck* rec_u)
{
c3_d bum_d = (1ULL << 48ULL);
u3A->now = u3_cka_add(u3A->now, u3i_chubs(1, &bum_d));
u3A->now = u3ka_add(u3A->now, u3i_chubs(1, &bum_d));
}
#endif

80
i/j/k.h
View File

@ -4,93 +4,93 @@
*/
/** Tier 1.
**/
u3_noun u3_cka_add(u3_noun a, u3_noun b);
u3_noun u3_cka_sub(u3_noun a, u3_noun b);
u3_noun u3_cka_mul(u3_noun a, u3_noun b);
u3_noun u3_cka_gth(u3_noun a, u3_noun b);
u3_noun u3_cka_lte(u3_noun a, u3_noun b);
u3_noun u3ka_add(u3_noun a, u3_noun b);
u3_noun u3ka_sub(u3_noun a, u3_noun b);
u3_noun u3ka_mul(u3_noun a, u3_noun b);
u3_noun u3ka_gth(u3_noun a, u3_noun b);
u3_noun u3ka_lte(u3_noun a, u3_noun b);
/** Tier 2.
**/
u3_noun u3_ckb_lent(u3_noun a);
u3_noun u3_ckb_weld(u3_noun a, u3_noun b);
u3_noun u3_ckb_flop(u3_noun a);
u3_noun u3kb_lent(u3_noun a);
u3_noun u3kb_weld(u3_noun a, u3_noun b);
u3_noun u3kb_flop(u3_noun a);
/* u3_ckc: tier 3 functions
/* u3kc: tier 3 functions
*/
/* u3_ckc_lsh(): left shift.
/* u3kc_lsh(): left shift.
*/
u3_noun
u3_ckc_lsh(u3_noun a, u3_noun b, u3_noun c);
u3kc_lsh(u3_noun a, u3_noun b, u3_noun c);
/* u3_ckc_rsh(): right shift.
/* u3kc_rsh(): right shift.
*/
u3_noun
u3_ckc_rsh(u3_noun a, u3_noun b, u3_noun c);
u3kc_rsh(u3_noun a, u3_noun b, u3_noun c);
/* u3_ckd: tier 4 functions
/* u3kd: tier 4 functions
*/
/* u3_ckdb_get(): map get for key `b` in map `a` with u3_none.
/* u3kdb_get(): map get for key `b` in map `a` with u3_none.
*/
u3_weak
u3_ckdb_get(u3_noun a, u3_noun b);
u3kdb_get(u3_noun a, u3_noun b);
/* u3_ckdb_got(): map get for key `b` in map `a` with bail.
/* u3kdb_got(): map get for key `b` in map `a` with bail.
*/
u3_noun
u3_ckdb_got(u3_noun a, u3_noun b);
u3kdb_got(u3_noun a, u3_noun b);
/* u3_ckdb_put(): map put for key `b`, value `c` in map `a`.
/* u3kdb_put(): map put for key `b`, value `c` in map `a`.
*/
u3_weak
u3_ckdb_put(u3_noun a, u3_noun b, u3_noun c);
u3kdb_put(u3_noun a, u3_noun b, u3_noun c);
/* u3_ckdb_has(): test for get.
/* u3kdb_has(): test for get.
*/
u3_noun
u3_ckdb_has(u3_noun a, u3_noun b);
u3kdb_has(u3_noun a, u3_noun b);
/* u3_ckdb_gas(): list to map.
/* u3kdb_gas(): list to map.
*/
u3_noun
u3_ckdb_gas(u3_noun a, u3_noun b);
u3kdb_gas(u3_noun a, u3_noun b);
/* u3_ckdi_gas(): list to map.
/* u3kdi_gas(): list to map.
*/
u3_noun
u3_ckdi_gas(u3_noun a, u3_noun b);
u3kdi_gas(u3_noun a, u3_noun b);
/* u3_ckdi_has(): test for presence.
/* u3kdi_has(): test for presence.
*/
u3_noun
u3_ckdi_has(u3_noun a, u3_noun b);
u3kdi_has(u3_noun a, u3_noun b);
/* u3_ckdi_tap(): map/set convert to list. (solves by_tap also.)
/* u3kdi_tap(): map/set convert to list. (solves by_tap also.)
*/
u3_noun
u3_ckdi_tap(u3_noun a, u3_noun b);
u3kdi_tap(u3_noun a, u3_noun b);
/* u3_ckdi_put(): put in set.
/* u3kdi_put(): put in set.
*/
u3_weak
u3_ckdi_put(u3_noun a, u3_noun b);
u3kdi_put(u3_noun a, u3_noun b);
# define u3_ckdb_tap(a, b) u3_ckdi_tap(a, b)
# define u3kdb_tap(a, b) u3kdi_tap(a, b)
/* u3_cke: tier 5 functions
/* u3ke: tier 5 functions
*/
/* u3_cke_cue(): expand saved pill.
/* u3ke_cue(): expand saved pill.
*/
u3_noun
u3_cke_cue(u3_atom a);
u3ke_cue(u3_atom a);
/* u3_cke_jam(): pack noun as atom.
/* u3ke_jam(): pack noun as atom.
*/
u3_atom
u3_cke_jam(u3_noun a);
u3ke_jam(u3_noun a);
/* u3_cke_trip: atom to tape.
/* u3ke_trip: atom to tape.
*/
u3_noun
u3_cke_trip(u3_noun a);
u3ke_trip(u3_noun a);

306
i/j/q.h
View File

@ -4,181 +4,181 @@
*/
/** Tier 1.
**/
u3_noun u3_cqa_add(u3_atom, u3_atom);
u3_noun u3_cqa_dec(u3_atom);
u3_noun u3_cqa_div(u3_atom, u3_atom);
u3_noun u3_cqa_gte(u3_atom, u3_atom);
u3_noun u3_cqa_gth(u3_atom, u3_atom);
u3_noun u3_cqa_inc(u3_atom);
u3_noun u3_cqa_lte(u3_atom, u3_atom);
u3_noun u3_cqa_lth(u3_atom, u3_atom);
u3_noun u3_cqa_mod(u3_atom, u3_atom);
u3_noun u3_cqa_mul(u3_atom, u3_atom);
u3_noun u3_cqa_sub(u3_atom, u3_atom);
u3_noun u3qa_add(u3_atom, u3_atom);
u3_noun u3qa_dec(u3_atom);
u3_noun u3qa_div(u3_atom, u3_atom);
u3_noun u3qa_gte(u3_atom, u3_atom);
u3_noun u3qa_gth(u3_atom, u3_atom);
u3_noun u3qa_inc(u3_atom);
u3_noun u3qa_lte(u3_atom, u3_atom);
u3_noun u3qa_lth(u3_atom, u3_atom);
u3_noun u3qa_mod(u3_atom, u3_atom);
u3_noun u3qa_mul(u3_atom, u3_atom);
u3_noun u3qa_sub(u3_atom, u3_atom);
/** Tier 2.
**/
u3_noun u3_cqb_bind(u3_noun, u3_noun);
u3_noun u3_cqb_clap(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqb_drop(u3_noun);
u3_noun u3_cqb_flop(u3_noun);
u3_noun u3_cqb_lent(u3_noun);
u3_noun u3_cqb_levy(u3_noun, u3_noun);
u3_noun u3_cqb_lien(u3_noun, u3_noun);
u3_noun u3_cqb_need(u3_noun);
u3_noun u3_cqb_reel(u3_noun, u3_noun);
u3_noun u3_cqb_roll(u3_noun, u3_noun);
u3_noun u3_cqb_skim(u3_noun, u3_noun);
u3_noun u3_cqb_skip(u3_noun, u3_noun);
u3_noun u3_cqb_scag(u3_atom, u3_noun);
u3_noun u3_cqb_slag(u3_atom, u3_noun);
u3_noun u3_cqb_snag(u3_atom, u3_noun);
u3_noun u3_cqb_sort(u3_noun, u3_noun);
u3_noun u3_cqb_turn(u3_noun, u3_noun);
u3_noun u3_cqb_weld(u3_noun, u3_noun);
u3_noun u3qb_bind(u3_noun, u3_noun);
u3_noun u3qb_clap(u3_noun, u3_noun, u3_noun);
u3_noun u3qb_drop(u3_noun);
u3_noun u3qb_flop(u3_noun);
u3_noun u3qb_lent(u3_noun);
u3_noun u3qb_levy(u3_noun, u3_noun);
u3_noun u3qb_lien(u3_noun, u3_noun);
u3_noun u3qb_need(u3_noun);
u3_noun u3qb_reel(u3_noun, u3_noun);
u3_noun u3qb_roll(u3_noun, u3_noun);
u3_noun u3qb_skim(u3_noun, u3_noun);
u3_noun u3qb_skip(u3_noun, u3_noun);
u3_noun u3qb_scag(u3_atom, u3_noun);
u3_noun u3qb_slag(u3_atom, u3_noun);
u3_noun u3qb_snag(u3_atom, u3_noun);
u3_noun u3qb_sort(u3_noun, u3_noun);
u3_noun u3qb_turn(u3_noun, u3_noun);
u3_noun u3qb_weld(u3_noun, u3_noun);
/** Tier 3.
**/
u3_noun u3_cqc_bex(u3_atom);
u3_noun u3_cqc_can(u3_atom, u3_noun);
u3_noun u3_cqc_cap(u3_atom);
u3_noun u3_cqc_cat(u3_atom, u3_atom, u3_atom);
u3_noun u3_cqc_con(u3_atom, u3_atom);
u3_noun u3_cqc_cut(u3_atom, u3_atom, u3_atom, u3_atom);
u3_noun u3_cqc_dis(u3_atom, u3_atom);
u3_noun u3_cqc_dor(u3_atom, u3_atom);
u3_noun u3_cqc_end(u3_atom, u3_atom, u3_atom);
u3_noun u3_cqc_gor(u3_atom, u3_atom);
u3_noun u3_cqc_hor(u3_atom, u3_atom);
u3_noun u3_cqc_lsh(u3_atom, u3_atom, u3_atom);
u3_noun u3_cqc_mas(u3_atom);
u3_noun u3_cqc_met(u3_atom, u3_atom);
u3_noun u3_cqc_mix(u3_atom, u3_atom);
u3_noun u3_cqc_peg(u3_atom, u3_atom);
u3_noun u3_cqc_rap(u3_atom, u3_noun);
u3_noun u3_cqc_rip(u3_atom, u3_atom);
u3_noun u3_cqc_rsh(u3_atom, u3_atom, u3_atom);
u3_noun u3_cqc_vor(u3_atom, u3_atom);
u3_noun u3qc_bex(u3_atom);
u3_noun u3qc_can(u3_atom, u3_noun);
u3_noun u3qc_cap(u3_atom);
u3_noun u3qc_cat(u3_atom, u3_atom, u3_atom);
u3_noun u3qc_con(u3_atom, u3_atom);
u3_noun u3qc_cut(u3_atom, u3_atom, u3_atom, u3_atom);
u3_noun u3qc_dis(u3_atom, u3_atom);
u3_noun u3qc_dor(u3_atom, u3_atom);
u3_noun u3qc_end(u3_atom, u3_atom, u3_atom);
u3_noun u3qc_gor(u3_atom, u3_atom);
u3_noun u3qc_hor(u3_atom, u3_atom);
u3_noun u3qc_lsh(u3_atom, u3_atom, u3_atom);
u3_noun u3qc_mas(u3_atom);
u3_noun u3qc_met(u3_atom, u3_atom);
u3_noun u3qc_mix(u3_atom, u3_atom);
u3_noun u3qc_peg(u3_atom, u3_atom);
u3_noun u3qc_rap(u3_atom, u3_noun);
u3_noun u3qc_rip(u3_atom, u3_atom);
u3_noun u3qc_rsh(u3_atom, u3_atom, u3_atom);
u3_noun u3qc_vor(u3_atom, u3_atom);
/** Tier 4.
**/
u3_noun u3_cqdb_gas(u3_noun, u3_noun);
u3_noun u3_cqdb_get(u3_noun, u3_noun);
u3_noun u3_cqdb_has(u3_noun, u3_noun);
u3_noun u3_cqdb_int(u3_noun, u3_noun);
u3_noun u3_cqdb_put(u3_noun, u3_noun, u3_noun);
# define u3_cqdb_tap u3_cqdi_tap
u3_noun u3_cqdb_uni(u3_noun, u3_noun);
u3_noun u3qdb_gas(u3_noun, u3_noun);
u3_noun u3qdb_get(u3_noun, u3_noun);
u3_noun u3qdb_has(u3_noun, u3_noun);
u3_noun u3qdb_int(u3_noun, u3_noun);
u3_noun u3qdb_put(u3_noun, u3_noun, u3_noun);
# define u3qdb_tap u3qdi_tap
u3_noun u3qdb_uni(u3_noun, u3_noun);
u3_noun u3_cqdi_gas(u3_noun, u3_noun);
u3_noun u3_cqdi_has(u3_noun, u3_noun);
u3_noun u3_cqdi_int(u3_noun, u3_noun);
u3_noun u3_cqdi_mer(u3_noun, u3_noun);
u3_noun u3_cqdi_put(u3_noun, u3_noun);
u3_noun u3_cqdi_tap(u3_noun, u3_noun);
u3_noun u3_cqdi_uni(u3_noun, u3_noun);
u3_noun u3qdi_gas(u3_noun, u3_noun);
u3_noun u3qdi_has(u3_noun, u3_noun);
u3_noun u3qdi_int(u3_noun, u3_noun);
u3_noun u3qdi_mer(u3_noun, u3_noun);
u3_noun u3qdi_put(u3_noun, u3_noun);
u3_noun u3qdi_tap(u3_noun, u3_noun);
u3_noun u3qdi_uni(u3_noun, u3_noun);
/** Tier 5.
**/
u3_noun u3_cqe_cue(u3_atom);
u3_noun u3_cqe_jam(u3_atom);
u3_noun u3_cqe_mat(u3_atom);
u3_noun u3_cqe_rub(u3_atom, u3_atom);
u3_noun u3_cqe_lore(u3_atom);
u3_noun u3_cqe_loss(u3_noun, u3_noun);
u3_noun u3_cqe_repg(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqe_rexp(u3_noun, u3_noun);
u3_noun u3_cqe_trip(u3_atom);
u3_noun u3qe_cue(u3_atom);
u3_noun u3qe_jam(u3_atom);
u3_noun u3qe_mat(u3_atom);
u3_noun u3qe_rub(u3_atom, u3_atom);
u3_noun u3qe_lore(u3_atom);
u3_noun u3qe_loss(u3_noun, u3_noun);
u3_noun u3qe_repg(u3_noun, u3_noun, u3_noun);
u3_noun u3qe_rexp(u3_noun, u3_noun);
u3_noun u3qe_trip(u3_atom);
u3_noun u3_cqea_de(u3_atom, u3_atom);
u3_noun u3_cqea_en(u3_atom, u3_atom);
u3_noun u3qea_de(u3_atom, u3_atom);
u3_noun u3qea_en(u3_atom, u3_atom);
u3_noun u3_cqe_shax(u3_atom);
u3_noun u3_cqe_shas(u3_atom, u3_atom);
u3_noun u3_cqe_shal(u3_atom, u3_atom);
u3_noun u3qe_shax(u3_atom);
u3_noun u3qe_shas(u3_atom, u3_atom);
u3_noun u3qe_shal(u3_atom, u3_atom);
u3_noun u3_cqeo_raw(u3_atom, u3_atom);
u3_noun u3qeo_raw(u3_atom, u3_atom);
u3_noun u3_cqer_sun(u3_atom);
u3_noun u3_cqer_mul(u3_atom, u3_atom);
u3_noun u3_cqer_div(u3_atom, u3_atom);
u3_noun u3_cqer_add(u3_atom, u3_atom);
u3_noun u3_cqer_sub(u3_atom, u3_atom);
u3_noun u3_cqer_lte(u3_atom, u3_atom);
u3_noun u3_cqer_lth(u3_atom, u3_atom);
u3_noun u3_cqer_gte(u3_atom, u3_atom);
u3_noun u3_cqer_gth(u3_atom, u3_atom);
u3_noun u3qer_sun(u3_atom);
u3_noun u3qer_mul(u3_atom, u3_atom);
u3_noun u3qer_div(u3_atom, u3_atom);
u3_noun u3qer_add(u3_atom, u3_atom);
u3_noun u3qer_sub(u3_atom, u3_atom);
u3_noun u3qer_lte(u3_atom, u3_atom);
u3_noun u3qer_lth(u3_atom, u3_atom);
u3_noun u3qer_gte(u3_atom, u3_atom);
u3_noun u3qer_gth(u3_atom, u3_atom);
/** Tier 6.
**/
u3_noun u3_cqf_bull(u3_noun, u3_noun);
u3_noun u3_cqf_cell(u3_noun, u3_noun);
u3_noun u3_cqf_comb(u3_noun, u3_noun);
u3_noun u3_cqf_cons(u3_noun, u3_noun);
u3_noun u3_cqf_core(u3_noun, u3_noun);
u3_noun u3_cqf_cube(u3_noun, u3_noun);
u3_noun u3_cqf_face(u3_noun, u3_noun);
u3_noun u3_cqf_fine(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqf_fitz(u3_noun, u3_noun);
u3_noun u3_cqf_flan(u3_noun, u3_noun);
u3_noun u3_cqf_flay(u3_noun);
u3_noun u3_cqf_flip(u3_noun);
u3_noun u3_cqf_flor(u3_noun, u3_noun);
u3_noun u3_cqf_fork(u3_noun, u3_noun);
u3_noun u3_cqf_hike(u3_noun, u3_noun);
u3_noun u3_cqf_look(u3_noun, u3_noun);
u3_noun u3_cqf_slot(u3_atom, u3_noun);
u3_noun u3_cqf_type(u3_noun);
u3_noun u3qf_bull(u3_noun, u3_noun);
u3_noun u3qf_cell(u3_noun, u3_noun);
u3_noun u3qf_comb(u3_noun, u3_noun);
u3_noun u3qf_cons(u3_noun, u3_noun);
u3_noun u3qf_core(u3_noun, u3_noun);
u3_noun u3qf_cube(u3_noun, u3_noun);
u3_noun u3qf_face(u3_noun, u3_noun);
u3_noun u3qf_fine(u3_noun, u3_noun, u3_noun);
u3_noun u3qf_fitz(u3_noun, u3_noun);
u3_noun u3qf_flan(u3_noun, u3_noun);
u3_noun u3qf_flay(u3_noun);
u3_noun u3qf_flip(u3_noun);
u3_noun u3qf_flor(u3_noun, u3_noun);
u3_noun u3qf_fork(u3_noun, u3_noun);
u3_noun u3qf_hike(u3_noun, u3_noun);
u3_noun u3qf_look(u3_noun, u3_noun);
u3_noun u3qf_slot(u3_atom, u3_noun);
u3_noun u3qf_type(u3_noun);
u3_noun u3_cqfl_bunt(u3_noun, u3_noun);
u3_noun u3_cqfl_whip(u3_noun, u3_noun, u3_noun);
u3_noun u3qfl_bunt(u3_noun, u3_noun);
u3_noun u3qfl_whip(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfp_hack(u3_noun, u3_noun);
u3_noun u3_cqfp_late(u3_noun);
u3_noun u3_cqfp_open(u3_noun, u3_noun);
u3_noun u3_cqfp_rake(u3_noun);
u3_noun u3qfp_hack(u3_noun, u3_noun);
u3_noun u3qfp_late(u3_noun);
u3_noun u3qfp_open(u3_noun, u3_noun);
u3_noun u3qfp_rake(u3_noun);
# define u3_cqfu_van_fan 28
# define u3_cqfu_van_rib 58
# define u3_cqfu_van_vrf 59
# define u3_cqfu_van_vet 118
# define u3_cqfu_van_fab 119
# define u3qfu_van_fan 28
# define u3qfu_van_rib 58
# define u3qfu_van_vrf 59
# define u3qfu_van_vet 118
# define u3qfu_van_fab 119
u3_noun u3_cqfu_burn(u3_noun, u3_noun);
u3_noun u3_cqfu_busk(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_bust(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_conk(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_crop(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_cull(u3_noun, u3_noun, u3_noun, u3_atom, u3_noun);
u3_noun u3_cqfu_duck(u3_noun, u3_noun);
u3_noun u3_cqfu_dung(u3_noun, u3_noun cap, u3_noun);
u3_noun u3_cqfu_dunq(u3_noun, const c3_c*, u3_noun);
u3_noun u3_cqfu_find(u3_noun, u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_fino(u3_noun, u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_fink(u3_noun, u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_fire(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_firm(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_fish(u3_noun, u3_noun, u3_atom);
u3_noun u3_cqfu_fuse(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_gain(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_heal(u3_noun, u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_lose(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_mint(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_mull(u3_noun, u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_nest(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_orth(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_park(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_peek(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_play(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_repo(u3_noun, u3_noun);
u3_noun u3_cqfu_rest(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_seek(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_seep(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_shep(u3_noun, const c3_c*, u3_noun, u3_noun);
u3_noun u3_cqfu_shew(u3_noun, u3_noun);
u3_noun u3_cqfu_sift(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_snub(u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_tack(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_tock(u3_noun, u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3_cqfu_wrap(u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_burn(u3_noun, u3_noun);
u3_noun u3qfu_busk(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_bust(u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_conk(u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_crop(u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_cull(u3_noun, u3_noun, u3_noun, u3_atom, u3_noun);
u3_noun u3qfu_duck(u3_noun, u3_noun);
u3_noun u3qfu_dung(u3_noun, u3_noun cap, u3_noun);
u3_noun u3qfu_dunq(u3_noun, const c3_c*, u3_noun);
u3_noun u3qfu_find(u3_noun, u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_fino(u3_noun, u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_fink(u3_noun, u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_fire(u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_firm(u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_fish(u3_noun, u3_noun, u3_atom);
u3_noun u3qfu_fuse(u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_gain(u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_heal(u3_noun, u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_lose(u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_mint(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_mull(u3_noun, u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_nest(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_orth(u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_park(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_peek(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_play(u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_repo(u3_noun, u3_noun);
u3_noun u3qfu_rest(u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_seek(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_seep(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_shep(u3_noun, const c3_c*, u3_noun, u3_noun);
u3_noun u3qfu_shew(u3_noun, u3_noun);
u3_noun u3qfu_sift(u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_snub(u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_tack(u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_tock(u3_noun, u3_noun, u3_noun, u3_noun, u3_noun);
u3_noun u3qfu_wrap(u3_noun, u3_noun, u3_noun);

326
i/j/w.h
View File

@ -4,194 +4,194 @@
*/
/** Tier 1.
**/
u3_noun u3_cwa_add(u3_noun);
u3_noun u3_cwa_dec(u3_noun);
u3_noun u3_cwa_div(u3_noun);
u3_noun u3_cwa_gte(u3_noun);
u3_noun u3_cwa_gth(u3_noun);
u3_noun u3_cwa_lte(u3_noun);
u3_noun u3_cwa_lth(u3_noun);
u3_noun u3_cwa_mod(u3_noun);
u3_noun u3_cwa_mul(u3_noun);
u3_noun u3_cwa_sub(u3_noun);
u3_noun u3wa_add(u3_noun);
u3_noun u3wa_dec(u3_noun);
u3_noun u3wa_div(u3_noun);
u3_noun u3wa_gte(u3_noun);
u3_noun u3wa_gth(u3_noun);
u3_noun u3wa_lte(u3_noun);
u3_noun u3wa_lth(u3_noun);
u3_noun u3wa_mod(u3_noun);
u3_noun u3wa_mul(u3_noun);
u3_noun u3wa_sub(u3_noun);
/** Tier 2.
**/
u3_noun u3_cwb_bind(u3_noun);
u3_noun u3_cwb_clap(u3_noun);
u3_noun u3_cwb_drop(u3_noun);
u3_noun u3_cwb_flop(u3_noun);
u3_noun u3_cwb_lent(u3_noun);
u3_noun u3_cwb_levy(u3_noun);
u3_noun u3_cwb_lien(u3_noun);
u3_noun u3_cwb_need(u3_noun);
u3_noun u3_cwb_reel(u3_noun);
u3_noun u3_cwb_roll(u3_noun);
u3_noun u3_cwb_skim(u3_noun);
u3_noun u3_cwb_skip(u3_noun);
u3_noun u3_cwb_scag(u3_noun);
u3_noun u3_cwb_slag(u3_noun);
u3_noun u3_cwb_snag(u3_noun);
u3_noun u3_cwb_sort(u3_noun);
u3_noun u3_cwb_turn(u3_noun);
u3_noun u3_cwb_weld(u3_noun);
u3_noun u3wb_bind(u3_noun);
u3_noun u3wb_clap(u3_noun);
u3_noun u3wb_drop(u3_noun);
u3_noun u3wb_flop(u3_noun);
u3_noun u3wb_lent(u3_noun);
u3_noun u3wb_levy(u3_noun);
u3_noun u3wb_lien(u3_noun);
u3_noun u3wb_need(u3_noun);
u3_noun u3wb_reel(u3_noun);
u3_noun u3wb_roll(u3_noun);
u3_noun u3wb_skim(u3_noun);
u3_noun u3wb_skip(u3_noun);
u3_noun u3wb_scag(u3_noun);
u3_noun u3wb_slag(u3_noun);
u3_noun u3wb_snag(u3_noun);
u3_noun u3wb_sort(u3_noun);
u3_noun u3wb_turn(u3_noun);
u3_noun u3wb_weld(u3_noun);
/** Tier 3.
**/
u3_noun u3_cwc_bex(u3_noun);
u3_noun u3_cwc_can(u3_noun);
u3_noun u3_cwc_cap(u3_noun);
u3_noun u3_cwc_cat(u3_noun);
u3_noun u3_cwc_con(u3_noun);
u3_noun u3_cwc_cut(u3_noun);
u3_noun u3_cwc_dis(u3_noun);
u3_noun u3_cwc_dor(u3_noun);
u3_noun u3_cwc_end(u3_noun);
u3_noun u3_cwc_gor(u3_noun);
u3_noun u3_cwc_hor(u3_noun);
u3_noun u3_cwc_lsh(u3_noun);
u3_noun u3_cwc_mas(u3_noun);
u3_noun u3_cwc_met(u3_noun);
u3_noun u3_cwc_mix(u3_noun);
u3_noun u3_cwc_mug(u3_noun);
u3_noun u3_cwc_peg(u3_noun);
u3_noun u3_cwc_rap(u3_noun);
u3_noun u3_cwc_rip(u3_noun);
u3_noun u3_cwc_rsh(u3_noun);
u3_noun u3_cwc_vor(u3_noun);
u3_noun u3wc_bex(u3_noun);
u3_noun u3wc_can(u3_noun);
u3_noun u3wc_cap(u3_noun);
u3_noun u3wc_cat(u3_noun);
u3_noun u3wc_con(u3_noun);
u3_noun u3wc_cut(u3_noun);
u3_noun u3wc_dis(u3_noun);
u3_noun u3wc_dor(u3_noun);
u3_noun u3wc_end(u3_noun);
u3_noun u3wc_gor(u3_noun);
u3_noun u3wc_hor(u3_noun);
u3_noun u3wc_lsh(u3_noun);
u3_noun u3wc_mas(u3_noun);
u3_noun u3wc_met(u3_noun);
u3_noun u3wc_mix(u3_noun);
u3_noun u3wc_mug(u3_noun);
u3_noun u3wc_peg(u3_noun);
u3_noun u3wc_rap(u3_noun);
u3_noun u3wc_rip(u3_noun);
u3_noun u3wc_rsh(u3_noun);
u3_noun u3wc_vor(u3_noun);
u3_noun u3_cwcp_ins(u3_noun);
u3_noun u3_cwcp_ind(u3_noun);
u3_noun u3_cwcp_tos(u3_noun);
u3_noun u3_cwcp_tod(u3_noun);
u3_noun u3wcp_ins(u3_noun);
u3_noun u3wcp_ind(u3_noun);
u3_noun u3wcp_tos(u3_noun);
u3_noun u3wcp_tod(u3_noun);
/** Tier 4.
**/
u3_noun u3_cwdb_gas(u3_noun);
u3_noun u3_cwdb_get(u3_noun);
u3_noun u3_cwdb_has(u3_noun);
u3_noun u3_cwdb_int(u3_noun);
u3_noun u3_cwdb_put(u3_noun);
# define u3_cwdb_tap u3_cwdi_tap
u3_noun u3_cwdb_uni(u3_noun);
u3_noun u3wdb_gas(u3_noun);
u3_noun u3wdb_get(u3_noun);
u3_noun u3wdb_has(u3_noun);
u3_noun u3wdb_int(u3_noun);
u3_noun u3wdb_put(u3_noun);
# define u3wdb_tap u3wdi_tap
u3_noun u3wdb_uni(u3_noun);
u3_noun u3_cwdi_gas(u3_noun);
u3_noun u3_cwdi_has(u3_noun);
u3_noun u3_cwdi_int(u3_noun);
u3_noun u3_cwdi_mer(u3_noun);
u3_noun u3_cwdi_put(u3_noun);
u3_noun u3_cwdi_tap(u3_noun);
u3_noun u3_cwdi_uni(u3_noun);
u3_noun u3wdi_gas(u3_noun);
u3_noun u3wdi_has(u3_noun);
u3_noun u3wdi_int(u3_noun);
u3_noun u3wdi_mer(u3_noun);
u3_noun u3wdi_put(u3_noun);
u3_noun u3wdi_tap(u3_noun);
u3_noun u3wdi_uni(u3_noun);
/** Tier 5.
**/
u3_noun u3_cwe_cue(u3_noun);
u3_noun u3_cwe_jam(u3_noun);
u3_noun u3_cwe_mat(u3_noun);
u3_noun u3_cwe_rub(u3_noun);
u3_noun u3_cwe_lore(u3_noun);
u3_noun u3_cwe_loss(u3_noun);
u3_noun u3_cwe_mink(u3_noun);
u3_noun u3_cwe_mule(u3_noun);
u3_noun u3_cwe_repg(u3_noun);
u3_noun u3_cwe_rexp(u3_noun);
u3_noun u3_cwe_trip(u3_noun);
u3_noun u3we_cue(u3_noun);
u3_noun u3we_jam(u3_noun);
u3_noun u3we_mat(u3_noun);
u3_noun u3we_rub(u3_noun);
u3_noun u3we_lore(u3_noun);
u3_noun u3we_loss(u3_noun);
u3_noun u3we_mink(u3_noun);
u3_noun u3we_mule(u3_noun);
u3_noun u3we_repg(u3_noun);
u3_noun u3we_rexp(u3_noun);
u3_noun u3we_trip(u3_noun);
u3_noun u3_cwe_pfix(u3_noun);
u3_noun u3_cwe_plug(u3_noun);
u3_noun u3_cwe_pose(u3_noun);
u3_noun u3_cwe_sfix(u3_noun);
u3_noun u3we_pfix(u3_noun);
u3_noun u3we_plug(u3_noun);
u3_noun u3we_pose(u3_noun);
u3_noun u3we_sfix(u3_noun);
u3_noun u3_cwea_de(u3_noun);
u3_noun u3_cwea_en(u3_noun);
u3_noun u3wea_de(u3_noun);
u3_noun u3wea_en(u3_noun);
u3_noun u3_cwe_shax(u3_noun);
u3_noun u3_cwe_shas(u3_noun);
u3_noun u3_cwe_shal(u3_noun);
u3_noun u3we_shax(u3_noun);
u3_noun u3we_shas(u3_noun);
u3_noun u3we_shal(u3_noun);
u3_noun u3_cweo_raw(u3_noun);
u3_noun u3weo_raw(u3_noun);
u3_noun u3_cwee_puck(u3_noun);
u3_noun u3_cwee_sign(u3_noun);
u3_noun u3_cwee_veri(u3_noun);
u3_noun u3wee_puck(u3_noun);
u3_noun u3wee_sign(u3_noun);
u3_noun u3wee_veri(u3_noun);
u3_noun u3_cwe_bend_fun(u3_noun);
u3_noun u3_cwe_cold_fun(u3_noun);
u3_noun u3_cwe_cook_fun(u3_noun);
u3_noun u3_cwe_comp_fun(u3_noun);
u3_noun u3_cwe_easy_fun(u3_noun);
u3_noun u3_cwe_glue_fun(u3_noun);
u3_noun u3_cwe_here_fun(u3_noun);
u3_noun u3_cwe_just_fun(u3_noun);
u3_noun u3_cwe_mask_fun(u3_noun);
u3_noun u3_cwe_shim_fun(u3_noun);
u3_noun u3_cwe_stag_fun(u3_noun);
u3_noun u3_cwe_stew_fun(u3_noun);
u3_noun u3_cwe_stir_fun(u3_noun);
u3_noun u3we_bend_fun(u3_noun);
u3_noun u3we_cold_fun(u3_noun);
u3_noun u3we_cook_fun(u3_noun);
u3_noun u3we_comp_fun(u3_noun);
u3_noun u3we_easy_fun(u3_noun);
u3_noun u3we_glue_fun(u3_noun);
u3_noun u3we_here_fun(u3_noun);
u3_noun u3we_just_fun(u3_noun);
u3_noun u3we_mask_fun(u3_noun);
u3_noun u3we_shim_fun(u3_noun);
u3_noun u3we_stag_fun(u3_noun);
u3_noun u3we_stew_fun(u3_noun);
u3_noun u3we_stir_fun(u3_noun);
u3_noun u3_cwer_sun(u3_noun);
u3_noun u3_cwer_mul(u3_noun);
u3_noun u3_cwer_div(u3_noun);
u3_noun u3_cwer_add(u3_noun);
u3_noun u3_cwer_sub(u3_noun);
u3_noun u3_cwer_lte(u3_noun);
u3_noun u3_cwer_lth(u3_noun);
u3_noun u3_cwer_gte(u3_noun);
u3_noun u3_cwer_gth(u3_noun);
u3_noun u3wer_sun(u3_noun);
u3_noun u3wer_mul(u3_noun);
u3_noun u3wer_div(u3_noun);
u3_noun u3wer_add(u3_noun);
u3_noun u3wer_sub(u3_noun);
u3_noun u3wer_lte(u3_noun);
u3_noun u3wer_lth(u3_noun);
u3_noun u3wer_gte(u3_noun);
u3_noun u3wer_gth(u3_noun);
/** Tier 6.
**/
u3_noun u3_cwf_bull(u3_noun);
u3_noun u3_cwf_cell(u3_noun);
u3_noun u3_cwf_comb(u3_noun);
u3_noun u3_cwf_cons(u3_noun);
u3_noun u3_cwf_core(u3_noun);
u3_noun u3_cwf_cube(u3_noun);
u3_noun u3_cwf_face(u3_noun);
u3_noun u3_cwf_fine(u3_noun);
u3_noun u3_cwf_fitz(u3_noun);
u3_noun u3_cwf_flan(u3_noun);
u3_noun u3_cwf_flay(u3_noun);
u3_noun u3_cwf_flip(u3_noun);
u3_noun u3_cwf_flor(u3_noun);
u3_noun u3_cwf_fork(u3_noun);
u3_noun u3_cwf_hike(u3_noun);
u3_noun u3_cwf_look(u3_noun);
u3_noun u3wf_bull(u3_noun);
u3_noun u3wf_cell(u3_noun);
u3_noun u3wf_comb(u3_noun);
u3_noun u3wf_cons(u3_noun);
u3_noun u3wf_core(u3_noun);
u3_noun u3wf_cube(u3_noun);
u3_noun u3wf_face(u3_noun);
u3_noun u3wf_fine(u3_noun);
u3_noun u3wf_fitz(u3_noun);
u3_noun u3wf_flan(u3_noun);
u3_noun u3wf_flay(u3_noun);
u3_noun u3wf_flip(u3_noun);
u3_noun u3wf_flor(u3_noun);
u3_noun u3wf_fork(u3_noun);
u3_noun u3wf_hike(u3_noun);
u3_noun u3wf_look(u3_noun);
u3_noun u3_cwfl_bunt(u3_noun);
u3_noun u3_cwfl_whip(u3_noun);
u3_noun u3wfl_bunt(u3_noun);
u3_noun u3wfl_whip(u3_noun);
u3_noun u3_cwfp_hack(u3_noun);
u3_noun u3_cwfp_late(u3_noun);
u3_noun u3_cwfp_open(u3_noun);
u3_noun u3_cwfp_rake(u3_noun);
u3_noun u3wfp_hack(u3_noun);
u3_noun u3wfp_late(u3_noun);
u3_noun u3wfp_open(u3_noun);
u3_noun u3wfp_rake(u3_noun);
u3_noun u3_cwfu_burn(u3_noun);
u3_noun u3_cwfu_busk(u3_noun);
u3_noun u3_cwfu_bust(u3_noun);
u3_noun u3_cwfu_conk(u3_noun);
u3_noun u3_cwfu_crop(u3_noun);
u3_noun u3_cwfu_cull(u3_noun);
u3_noun u3_cwfu_duck(u3_noun);
u3_noun u3_cwfu_find(u3_noun);
u3_noun u3_cwfu_fino(u3_noun);
u3_noun u3_cwfu_fink(u3_noun);
u3_noun u3_cwfu_fire(u3_noun);
u3_noun u3_cwfu_firm(u3_noun);
u3_noun u3_cwfu_fish(u3_noun);
u3_noun u3_cwfu_fuse(u3_noun);
u3_noun u3_cwfu_heal(u3_noun);
u3_noun u3_cwfu_mint(u3_noun);
u3_noun u3_cwfu_mull(u3_noun);
u3_noun u3_cwfu_nest(u3_noun);
u3_noun u3_cwfu_park(u3_noun);
u3_noun u3_cwfu_peek(u3_noun);
u3_noun u3_cwfu_play(u3_noun);
u3_noun u3_cwfu_repo(u3_noun);
u3_noun u3_cwfu_rest(u3_noun);
u3_noun u3_cwfu_seek(u3_noun);
u3_noun u3_cwfu_seep(u3_noun);
u3_noun u3_cwfu_snub(u3_noun);
u3_noun u3_cwfu_tock(u3_noun);
u3_noun u3_cwfu_wrap(u3_noun);
u3_noun u3wfu_burn(u3_noun);
u3_noun u3wfu_busk(u3_noun);
u3_noun u3wfu_bust(u3_noun);
u3_noun u3wfu_conk(u3_noun);
u3_noun u3wfu_crop(u3_noun);
u3_noun u3wfu_cull(u3_noun);
u3_noun u3wfu_duck(u3_noun);
u3_noun u3wfu_find(u3_noun);
u3_noun u3wfu_fino(u3_noun);
u3_noun u3wfu_fink(u3_noun);
u3_noun u3wfu_fire(u3_noun);
u3_noun u3wfu_firm(u3_noun);
u3_noun u3wfu_fish(u3_noun);
u3_noun u3wfu_fuse(u3_noun);
u3_noun u3wfu_heal(u3_noun);
u3_noun u3wfu_mint(u3_noun);
u3_noun u3wfu_mull(u3_noun);
u3_noun u3wfu_nest(u3_noun);
u3_noun u3wfu_park(u3_noun);
u3_noun u3wfu_peek(u3_noun);
u3_noun u3wfu_play(u3_noun);
u3_noun u3wfu_repo(u3_noun);
u3_noun u3wfu_rest(u3_noun);
u3_noun u3wfu_seek(u3_noun);
u3_noun u3wfu_seep(u3_noun);
u3_noun u3wfu_snub(u3_noun);
u3_noun u3wfu_tock(u3_noun);
u3_noun u3wfu_wrap(u3_noun);

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqa_add(u3_atom a,
u3qa_add(u3_atom a,
u3_atom b)
{
if ( _(u3a_is_cat(a)) && _(u3a_is_cat(b)) ) {
@ -29,7 +29,7 @@
}
}
u3_noun
u3_cwa_add(u3_noun cor)
u3wa_add(u3_noun cor)
{
u3_noun a, b;
@ -39,14 +39,14 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqa_add(a, b);
return u3qa_add(a, b);
}
}
u3_noun
u3_cka_add(u3_noun a, u3_noun b)
u3ka_add(u3_noun a, u3_noun b)
{
u3_noun c = u3_cqa_add(a, b);
u3_noun c = u3qa_add(a, b);
u3z(a); u3z(b);
return c;

View File

@ -8,13 +8,13 @@
/* functions
*/
u3_noun
u3_cqa_inc(u3_atom a)
u3qa_inc(u3_atom a)
{
return u3i_vint(u3k(a));
}
u3_noun
u3_cqa_dec(u3_atom a)
u3qa_dec(u3_atom a)
{
if ( 0 == a ) {
return u3m_error("decrement-underflow");
@ -34,7 +34,7 @@
}
}
u3_noun
u3_cwa_dec(u3_noun cor)
u3wa_dec(u3_noun cor)
{
u3_noun a;
@ -43,6 +43,6 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqa_dec(a);
return u3qa_dec(a);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqa_div(u3_atom a,
u3qa_div(u3_atom a,
u3_atom b)
{
if ( 0 == b ) {
@ -32,7 +32,7 @@
}
}
u3_noun
u3_cwa_div(u3_noun cor)
u3wa_div(u3_noun cor)
{
u3_noun a, b;
@ -42,6 +42,6 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqa_div(a, b);
return u3qa_div(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqa_gte(u3_atom a, u3_atom b)
u3qa_gte(u3_atom a, u3_atom b)
{
if ( _(u3a_is_cat(a)) && _(u3a_is_cat(b)) ) {
return __(a >= b);
@ -29,7 +29,7 @@
}
}
u3_noun
u3_cwa_gte(
u3wa_gte(
u3_noun cor)
{
u3_noun a, b;
@ -40,6 +40,6 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqa_gte(a, b);
return u3qa_gte(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqa_gth(u3_atom a,
u3qa_gth(u3_atom a,
u3_atom b)
{
if ( _(u3a_is_cat(a)) && _(u3a_is_cat(b)) ) {
@ -30,7 +30,7 @@
}
}
u3_noun
u3_cwa_gth(u3_noun cor)
u3wa_gth(u3_noun cor)
{
u3_noun a, b;
@ -40,14 +40,14 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqa_gth(a, b);
return u3qa_gth(a, b);
}
}
u3_noun
u3_cka_gth(u3_noun a, u3_noun b)
u3ka_gth(u3_noun a, u3_noun b)
{
u3_noun c = u3_cqa_gth(a, b);
u3_noun c = u3qa_gth(a, b);
u3z(a); u3z(b);
return c;

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqa_lte(u3_atom a, u3_atom b)
u3qa_lte(u3_atom a, u3_atom b)
{
if ( _(u3a_is_cat(a)) && _(u3a_is_cat(b)) ) {
return __(a <= b);
@ -29,7 +29,7 @@
}
}
u3_noun
u3_cwa_lte(u3_noun cor)
u3wa_lte(u3_noun cor)
{
u3_noun a, b;
@ -39,13 +39,13 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqa_lte(a, b);
return u3qa_lte(a, b);
}
}
u3_noun
u3_cka_lte(u3_noun a, u3_noun b)
u3ka_lte(u3_noun a, u3_noun b)
{
u3_noun c = u3_cqa_lte(a, b);
u3_noun c = u3qa_lte(a, b);
u3z(a); u3z(b);
return c;

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqa_lth(u3_atom a,
u3qa_lth(u3_atom a,
u3_atom b)
{
if ( _(u3a_is_cat(a)) && _(u3a_is_cat(b)) ) {
@ -30,7 +30,7 @@
}
}
u3_noun
u3_cwa_lth(u3_noun cor)
u3wa_lth(u3_noun cor)
{
u3_noun a, b;
@ -40,6 +40,6 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqa_lth(a, b);
return u3qa_lth(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqa_mod(
u3qa_mod(
u3_atom a,
u3_atom b)
{
@ -28,7 +28,7 @@
}
u3_noun
u3_cwa_mod(u3_noun cor)
u3wa_mod(u3_noun cor)
{
u3_noun a, b;
@ -38,6 +38,6 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqa_mod(a, b);
return u3qa_mod(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqa_mul(u3_atom a,
u3qa_mul(u3_atom a,
u3_atom b)
{
if ( _(u3a_is_cat(a)) && _(u3a_is_cat(b)) ) {
@ -29,7 +29,7 @@
}
}
u3_noun
u3_cwa_mul(u3_noun cor)
u3wa_mul(u3_noun cor)
{
u3_noun a, b;
@ -39,13 +39,13 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqa_mul(a, b);
return u3qa_mul(a, b);
}
}
u3_noun
u3_cka_mul(u3_noun a, u3_noun b)
u3ka_mul(u3_noun a, u3_noun b)
{
u3_noun c = u3_cqa_mul(a, b);
u3_noun c = u3qa_mul(a, b);
u3z(a); u3z(b);
return c;

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqa_sub(u3_atom a, u3_atom b)
u3qa_sub(u3_atom a, u3_atom b)
{
if ( _(u3a_is_cat(a)) && _(u3a_is_cat(b)) ) {
if ( a < b ) {
@ -36,7 +36,7 @@
}
u3_noun
u3_cwa_sub(u3_noun cor)
u3wa_sub(u3_noun cor)
{
u3_noun a, b;
@ -46,14 +46,14 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqa_sub(a, b);
return u3qa_sub(a, b);
}
}
u3_noun
u3_cka_sub(u3_noun a, u3_noun b)
u3ka_sub(u3_noun a, u3_noun b)
{
u3_noun c = u3_cqa_sub(a, b);
u3_noun c = u3qa_sub(a, b);
u3z(a); u3z(b);
return c;

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_bind(
u3qb_bind(
u3_noun a,
u3_noun b)
{
@ -19,7 +19,7 @@
}
}
u3_noun
u3_cwb_bind(
u3wb_bind(
u3_noun cor)
{
u3_noun a, b;
@ -27,7 +27,7 @@
if ( c3n == u3r_mean(cor, u3v_sam_2, &a, u3v_sam_3, &b, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqb_bind(a, b);
return u3qb_bind(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_clap(u3_noun a,
u3qb_clap(u3_noun a,
u3_noun b,
u3_noun c)
{
@ -23,7 +23,7 @@
}
}
u3_noun
u3_cwb_clap(u3_noun cor)
u3wb_clap(u3_noun cor)
{
u3_noun a, b, c;
@ -32,6 +32,6 @@
u3v_sam_7, &c, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqb_clap(a, b, c);
return u3qb_clap(a, b, c);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_drop(u3_noun a)
u3qb_drop(u3_noun a)
{
if ( 0 == a ) {
return u3_nul;
@ -18,14 +18,14 @@
}
}
u3_noun
u3_cwb_drop(u3_noun cor)
u3wb_drop(u3_noun cor)
{
u3_noun a;
if ( u3_none == (a = u3r_at(u3v_sam, cor)) ) {
return u3_none;
} else {
return u3_cqb_drop(a);
return u3qb_drop(a);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_flop(u3_noun a)
u3qb_flop(u3_noun a)
{
u3_noun b = 0;
@ -28,20 +28,20 @@
}
}
u3_noun
u3_cwb_flop(u3_noun cor)
u3wb_flop(u3_noun cor)
{
u3_noun a;
if ( u3_none == (a = u3r_at(u3v_sam, cor)) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqb_flop(a);
return u3qb_flop(a);
}
}
u3_noun
u3_ckb_flop(u3_noun a)
u3kb_flop(u3_noun a)
{
u3_noun b = u3_cqb_flop(a);
u3_noun b = u3qb_flop(a);
u3z(a);
return b;

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_lent(u3_noun a)
u3qb_lent(u3_noun a)
{
u3_noun len = 0;
@ -27,20 +27,20 @@
}
}
u3_noun
u3_cwb_lent(u3_noun cor)
u3wb_lent(u3_noun cor)
{
u3_noun a;
if ( u3_none == (a = u3r_at(u3v_sam, cor)) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqb_lent(a);
return u3qb_lent(a);
}
}
u3_noun
u3_ckb_lent(u3_noun a)
u3kb_lent(u3_noun a)
{
u3_noun b = u3_cqb_lent(a);
u3_noun b = u3qb_lent(a);
u3z(a);
return b;

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_levy(
u3qb_levy(
u3_noun a,
u3_noun b)
{
@ -21,7 +21,7 @@
return u3m_bail(c3__exit);
}
else switch ( (loz = u3n_slam_on(u3k(b), u3k(u3h(a)))) ) {
case c3y: return u3_cqb_levy(u3t(a), b);
case c3y: return u3qb_levy(u3t(a), b);
case c3n: return c3n;
default: u3z(loz);
return u3m_bail(c3__exit);
@ -29,7 +29,7 @@
}
}
u3_noun
u3_cwb_levy(
u3wb_levy(
u3_noun cor)
{
u3_noun a, b;
@ -37,6 +37,6 @@
if ( c3n == u3r_mean(cor, u3v_sam_2, &a, u3v_sam_3, &b, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqb_levy(a, b);
return u3qb_levy(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_lien(u3_noun a,
u3qb_lien(u3_noun a,
u3_noun b)
{
if ( 0 == a ) {
@ -21,20 +21,20 @@
}
else switch ( (loz = u3n_slam_on(u3k(b), u3k(u3h(a)))) ) {
case c3y: return c3y;
case c3n: return u3_cqb_lien(u3t(a), b);
case c3n: return u3qb_lien(u3t(a), b);
default: u3z(loz);
return u3m_bail(c3__exit);
}
}
}
u3_noun
u3_cwb_lien(u3_noun cor)
u3wb_lien(u3_noun cor)
{
u3_noun a, b;
if ( c3n == u3r_mean(cor, u3v_sam_2, &a, u3v_sam_3, &b, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqb_lien(a, b);
return u3qb_lien(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_need(
u3qb_need(
u3_noun a)
{
if ( 0 == a ) {
@ -19,7 +19,7 @@
}
}
u3_noun
u3_cwb_need(
u3wb_need(
u3_noun cor)
{
u3_noun a;
@ -27,7 +27,7 @@
if ( u3_none == (a = u3r_at(u3v_sam, cor)) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqb_need(a);
return u3qb_need(a);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_reel(
u3qb_reel(
u3_noun a,
u3_noun b)
{
@ -20,13 +20,13 @@
}
else {
u3_noun gim = u3k(u3h(a));
u3_noun hur = u3_cqb_reel(u3t(a), b);
u3_noun hur = u3qb_reel(u3t(a), b);
return u3n_slam_on(u3k(b), u3nc(gim, hur));
}
}
u3_noun
u3_cwb_reel(
u3wb_reel(
u3_noun cor)
{
u3_noun a, b;
@ -34,6 +34,6 @@
if ( c3n == u3r_mean(cor, u3v_sam_2, &a, u3v_sam_3, &b, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqb_reel(a, b);
return u3qb_reel(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_roll(u3_noun a,
u3qb_roll(u3_noun a,
u3_noun b)
{
if ( 0 == a ) {
@ -26,7 +26,7 @@
if ( u3_none == vel ) {
return u3m_bail(c3__exit);
} else {
u3_noun hox = u3_cqb_roll(u3t(a), vel);
u3_noun hox = u3qb_roll(u3t(a), vel);
u3z(vel);
return hox;
@ -34,14 +34,14 @@
}
}
u3_noun
u3_cwb_roll(u3_noun cor)
u3wb_roll(u3_noun cor)
{
u3_noun a, b;
if ( c3n == u3r_mean(cor, u3v_sam_2, &a, u3v_sam_3, &b, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqb_roll(a, b);
return u3qb_roll(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_scag(
u3qb_scag(
u3_atom a,
u3_noun b)
{
@ -31,12 +31,12 @@
i_w--;
}
return u3_ckb_flop(acc);
return u3kb_flop(acc);
}
}
u3_noun
u3_cwb_scag(
u3wb_scag(
u3_noun cor)
{
u3_noun a, b;
@ -46,7 +46,7 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqb_scag(a, b);
return u3qb_scag(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_skim(
u3qb_skim(
u3_noun a,
u3_noun b)
{
@ -19,7 +19,7 @@
return u3m_bail(c3__exit);
} else {
u3_noun hoz = u3n_slam_on(u3k(b), u3k(u3h(a)));
u3_noun vyr = u3_cqb_skim(u3t(a), b);
u3_noun vyr = u3qb_skim(u3t(a), b);
switch ( hoz ) {
case c3y: return u3nc(u3k(u3h(a)), vyr);
@ -31,7 +31,7 @@
}
}
u3_noun
u3_cwb_skim(
u3wb_skim(
u3_noun cor)
{
u3_noun a, b;
@ -39,7 +39,7 @@
if ( c3n == u3r_mean(cor, u3v_sam_2, &a, u3v_sam_3, &b, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqb_skim(a, b);
return u3qb_skim(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_skip(
u3qb_skip(
u3_noun a,
u3_noun b)
{
@ -19,7 +19,7 @@
return u3_none;
} else {
u3_noun hoz = u3n_slam_on(u3k(b), u3k(u3h(a)));
u3_noun vyr = u3_cqb_skip(u3t(a), b);
u3_noun vyr = u3qb_skip(u3t(a), b);
switch ( hoz ) {
case c3y: return vyr;
@ -31,7 +31,7 @@
}
}
u3_noun
u3_cwb_skip(
u3wb_skip(
u3_noun cor)
{
u3_noun a, b;
@ -39,7 +39,7 @@
if ( c3n == u3r_mean(cor, u3v_sam_2, &a, u3v_sam_3, &b, 0) ) {
return u3_none;
} else {
return u3_cqb_skip(a, b);
return u3qb_skip(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_slag(u3_atom a, u3_noun b)
u3qb_slag(u3_atom a, u3_noun b)
{
if ( !_(u3a_is_cat(a)) ) {
return u3m_bail(c3__fail);
@ -27,7 +27,7 @@
}
}
u3_noun
u3_cwb_slag(u3_noun cor)
u3wb_slag(u3_noun cor)
{
u3_noun a, b;
@ -36,6 +36,6 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqb_slag(a, b);
return u3qb_slag(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_snag(u3_atom a,
u3qb_snag(u3_atom a,
u3_noun b)
{
if ( !_(u3a_is_cat(a)) ) {
@ -31,7 +31,7 @@
}
}
u3_noun
u3_cwb_snag(u3_noun cor)
u3wb_snag(u3_noun cor)
{
u3_noun a, b;
@ -40,6 +40,6 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqb_snag(a, b);
return u3qb_snag(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_sort(
u3qb_sort(
u3_noun a,
u3_noun b)
{
@ -17,7 +17,7 @@
return u3m_bail(c3__fail);
}
u3_noun
u3_cwb_sort(
u3wb_sort(
u3_noun cor)
{
u3_noun a, b;
@ -25,7 +25,7 @@
if ( c3n == u3r_mean(cor, u3v_sam_2, &a, u3v_sam_3, &b, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqb_sort(a, b);
return u3qb_sort(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_turn(u3_noun a, u3_noun b)
u3qb_turn(u3_noun a, u3_noun b)
{
if ( 0 == a ) {
return a;
@ -18,20 +18,20 @@
}
else {
u3_noun one = u3n_slam_on(u3k(b), u3k(u3h(a)));
u3_noun two = u3_cqb_turn(u3t(a), b);
u3_noun two = u3qb_turn(u3t(a), b);
return u3nc(one, two);
}
}
u3_noun
u3_cwb_turn(u3_noun cor)
u3wb_turn(u3_noun cor)
{
u3_noun a, b;
if ( c3n == u3r_mean(cor, u3v_sam_2, &a, u3v_sam_3, &b, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqb_turn(a, b);
return u3qb_turn(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqb_weld(u3_noun a,
u3qb_weld(u3_noun a,
u3_noun b)
{
if ( 0 == a ) {
@ -18,24 +18,24 @@
return u3m_bail(c3__exit);
}
else {
return u3nc(u3k(u3h(a)), u3_cqb_weld(u3t(a), b));
return u3nc(u3k(u3h(a)), u3qb_weld(u3t(a), b));
}
}
u3_noun
u3_cwb_weld(u3_noun cor)
u3wb_weld(u3_noun cor)
{
u3_noun a, b;
if ( c3n == u3r_mean(cor, u3v_sam_2, &a, u3v_sam_3, &b, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqb_weld(a, b);
return u3qb_weld(a, b);
}
}
u3_noun
u3_ckb_weld(u3_noun a, u3_noun b)
u3kb_weld(u3_noun a, u3_noun b)
{
u3_noun c = u3_cqb_weld(a, b);
u3_noun c = u3qb_weld(a, b);
u3z(a); u3z(b);
return c;

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_bex(u3_atom a)
u3qc_bex(u3_atom a)
{
mpz_t a_mp;
@ -23,7 +23,7 @@
}
}
u3_noun
u3_cwc_bex(
u3wc_bex(
u3_noun cor)
{
u3_noun a;
@ -33,7 +33,7 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqc_bex(a);
return u3qc_bex(a);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_can(u3_atom a,
u3qc_can(u3_atom a,
u3_noun b)
{
if ( !_(u3a_is_cat(a)) || (a >= 32) ) {
@ -70,7 +70,7 @@
}
}
u3_noun
u3_cwc_can(u3_noun cor)
u3wc_can(u3_noun cor)
{
u3_noun a, b;
@ -79,7 +79,7 @@
{
return u3m_bail(c3__fail);
} else {
return u3_cqc_can(a, b);
return u3qc_can(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_cap(
u3qc_cap(
u3_atom a)
{
c3_w met_w = u3r_met(0, a);
@ -23,7 +23,7 @@
}
}
u3_noun
u3_cwc_cap(
u3wc_cap(
u3_noun cor)
{
u3_noun a;
@ -33,7 +33,7 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqc_cap(a);
return u3qc_cap(a);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_cat(u3_atom a,
u3qc_cat(u3_atom a,
u3_atom b,
u3_atom c)
{
@ -40,7 +40,7 @@
}
u3_noun
u3_cwc_cat(u3_noun cor)
u3wc_cat(u3_noun cor)
{
u3_noun a, b, c;
@ -53,7 +53,7 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqc_cat(a, b, c);
return u3qc_cat(a, b, c);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_con(u3_atom a,
u3qc_con(u3_atom a,
u3_atom b)
{
c3_w lna_w = u3r_met(5, a);
@ -37,7 +37,7 @@
}
}
u3_noun
u3_cwc_con(u3_noun cor)
u3wc_con(u3_noun cor)
{
u3_noun a, b;
@ -47,6 +47,6 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqc_con(a, b);
return u3qc_con(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_cut(
u3qc_cut(
u3_atom a,
u3_atom b,
u3_atom c,
@ -52,7 +52,7 @@
}
}
u3_noun
u3_cwc_cut(
u3wc_cut(
u3_noun cor)
{
u3_noun a, b, c, d;
@ -68,7 +68,7 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqc_cut(a, b, c, d);
return u3qc_cut(a, b, c, d);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_dis(u3_atom a,
u3qc_dis(u3_atom a,
u3_atom b)
{
c3_w lna_w = u3r_met(5, a);
@ -36,7 +36,7 @@
}
}
u3_noun
u3_cwc_dis(u3_noun cor)
u3wc_dis(u3_noun cor)
{
u3_noun a, b;
@ -46,7 +46,7 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqc_dis(a, b);
return u3qc_dis(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_dor(
u3qc_dor(
u3_atom a,
u3_atom b)
{
@ -18,7 +18,7 @@
else {
if ( c3y == u3ud(a) ) {
if ( c3y == u3ud(b) ) {
return u3_cqa_lth(a, b);
return u3qa_lth(a, b);
}
else {
return c3y;
@ -30,15 +30,15 @@
}
else {
if ( c3y == u3r_sing(u3h(a), u3h(b)) ) {
return u3_cqc_dor(u3t(a), u3t(b));
return u3qc_dor(u3t(a), u3t(b));
}
else return u3_cqc_dor(u3h(a), u3h(b));
else return u3qc_dor(u3h(a), u3h(b));
}
}
}
}
u3_noun
u3_cwc_dor(
u3wc_dor(
u3_noun cor)
{
u3_noun a, b;
@ -46,7 +46,7 @@
if ( c3n == u3r_mean(cor, u3v_sam_2, &a, u3v_sam_3, &b, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqc_dor(a, b);
return u3qc_dor(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_end(
u3qc_end(
u3_atom a,
u3_atom b,
u3_atom c)
@ -43,7 +43,7 @@
}
}
u3_noun
u3_cwc_end(
u3wc_end(
u3_noun cor)
{
u3_noun a, b, c;
@ -57,7 +57,7 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqc_end(a, b, c);
return u3qc_end(a, b, c);
}
}

View File

@ -8,26 +8,26 @@
/* functions
*/
u3_noun
u3_cqc_gor(u3_noun a,
u3qc_gor(u3_noun a,
u3_noun b)
{
c3_w c_w = u3r_mug(a);
c3_w d_w = u3r_mug(b);
if ( c_w == d_w ) {
return u3_cqc_dor(a, b);
return u3qc_dor(a, b);
}
else return (c_w < d_w) ? c3y : c3n;
}
u3_noun
u3_cwc_gor(u3_noun cor)
u3wc_gor(u3_noun cor)
{
u3_noun a, b;
if ( (c3n == u3r_mean(cor, u3v_sam_2, &a, u3v_sam_3, &b, 0)) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqc_gor(a, b);
return u3qc_gor(a, b);
}
}

View File

@ -8,12 +8,12 @@
/* functions
*/
u3_noun
u3_cqc_hor(u3_noun a,
u3qc_hor(u3_noun a,
u3_noun b)
{
if ( c3y == u3ud(a) ) {
if ( c3y == u3ud(b) ) {
return u3_cqc_gor(a, b);
return u3qc_gor(a, b);
} else {
return c3y;
}
@ -26,22 +26,22 @@
u3_noun h_b = u3h(b);
if ( c3y == u3r_sing(h_a, h_b) ) {
return u3_cqc_gor(u3t(a), u3t(b));
return u3qc_gor(u3t(a), u3t(b));
} else {
return u3_cqc_gor(h_a, h_b);
return u3qc_gor(h_a, h_b);
}
}
}
}
u3_noun
u3_cwc_hor(u3_noun cor)
u3wc_hor(u3_noun cor)
{
u3_noun a, b;
if ( (c3n == u3r_mean(cor, u3v_sam_2, &a, u3v_sam_3, &b, 0)) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqc_hor(a, b);
return u3qc_hor(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_lsh(u3_atom a, u3_atom b, u3_atom c)
u3qc_lsh(u3_atom a, u3_atom b, u3_atom c)
{
if ( !_(u3a_is_cat(a)) || (a >= 32) ) {
return u3m_bail(c3__fail);
@ -41,7 +41,7 @@
}
}
u3_noun
u3_cwc_lsh(u3_noun cor)
u3wc_lsh(u3_noun cor)
{
u3_noun a, b, c;
@ -54,13 +54,13 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqc_lsh(a, b, c);
return u3qc_lsh(a, b, c);
}
}
u3_noun
u3_ckc_lsh(u3_noun a, u3_noun b, u3_noun c)
u3kc_lsh(u3_noun a, u3_noun b, u3_noun c)
{
u3_noun d = u3_cqc_lsh(a, b, c);
u3_noun d = u3qc_lsh(a, b, c);
u3z(a); u3z(b); u3z(c);
return d;

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_mas(u3_atom a)
u3qc_mas(u3_atom a)
{
c3_w b_w;
u3_atom c, d, e, f;
@ -18,10 +18,10 @@
return u3m_bail(c3__exit);
}
else {
c = u3_cqc_bex((b_w - 1));
d = u3_cqc_bex((b_w - 2));
e = u3_cqa_sub(a, c);
f = u3_cqc_con(e, d);
c = u3qc_bex((b_w - 1));
d = u3qc_bex((b_w - 2));
e = u3qa_sub(a, c);
f = u3qc_con(e, d);
u3z(c);
u3z(d);
@ -31,7 +31,7 @@
}
}
u3_noun
u3_cwc_mas(u3_noun cor)
u3wc_mas(u3_noun cor)
{
u3_noun a;
@ -40,7 +40,7 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqc_mas(a);
return u3qc_mas(a);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_met(
u3qc_met(
u3_atom a,
u3_atom b)
{
@ -27,7 +27,7 @@
}
}
u3_noun
u3_cwc_met(
u3wc_met(
u3_noun cor)
{
u3_noun a, b;
@ -38,7 +38,7 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqc_met(a, b);
return u3qc_met(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_mix(u3_atom a,
u3qc_mix(u3_atom a,
u3_atom b)
{
c3_w lna_w = u3r_met(5, a);
@ -36,7 +36,7 @@
}
}
u3_noun
u3_cwc_mix(u3_noun cor)
u3wc_mix(u3_noun cor)
{
u3_noun a, b;
@ -46,7 +46,7 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqc_mix(a, b);
return u3qc_mix(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cwc_mug(u3_noun cor)
u3wc_mug(u3_noun cor)
{
u3_noun sam;

View File

@ -8,18 +8,18 @@
/* functions
*/
u3_noun
u3_cqc_peg(
u3qc_peg(
u3_atom a,
u3_atom b)
{
u3_atom c, d, e, f, g, h;
c = u3r_met(0, b);
d = u3_cqa_dec(c);
e = u3_cqc_lsh(0, d, 1);
f = u3_cqa_sub(b, e);
g = u3_cqc_lsh(0, d, a);
h = u3_cqa_add(f, g);
d = u3qa_dec(c);
e = u3qc_lsh(0, d, 1);
f = u3qa_sub(b, e);
g = u3qc_lsh(0, d, a);
h = u3qa_add(f, g);
u3z(c);
u3z(d);
@ -30,7 +30,7 @@
return h;
}
u3_noun
u3_cwc_peg(
u3wc_peg(
u3_noun cor)
{
u3_noun a, b;
@ -43,7 +43,7 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqc_peg(a, b);
return u3qc_peg(a, b);
}
}

View File

@ -33,7 +33,7 @@
}
u3_noun
u3_cwcp_ins(
u3wcp_ins(
u3_noun cor)
{
u3_noun x, a, buf;
@ -49,7 +49,7 @@
}
}
u3_noun
u3_cwcp_ind(
u3wcp_ind(
u3_noun cor)
{
u3_noun x, a, buf;
@ -66,7 +66,7 @@
}
u3_noun
u3_cwcp_tos(
u3wcp_tos(
u3_noun cor)
{
u3_noun x, a, buf;
@ -87,7 +87,7 @@
}
}
u3_noun
u3_cwcp_tod(
u3wcp_tod(
u3_noun cor)
{
u3_noun x, a, buf;

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_rap(u3_atom a,
u3qc_rap(u3_atom a,
u3_noun b)
{
if ( !_(u3a_is_cat(a)) || (a >= 32) ) {
@ -71,7 +71,7 @@
}
}
u3_noun
u3_cwc_rap(u3_noun cor)
u3wc_rap(u3_noun cor)
{
u3_noun a, b;
@ -82,7 +82,7 @@
} else {
u3_noun pro;
pro = u3_cqc_rap(a, b);
pro = u3qc_rap(a, b);
return pro;
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_rip(u3_atom a,
u3qc_rip(u3_atom a,
u3_atom b)
{
if ( !_(u3a_is_cat(a)) || (a >= 32) ) {
@ -69,7 +69,7 @@
}
}
u3_noun
u3_cwc_rip(u3_noun cor)
u3wc_rip(u3_noun cor)
{
u3_noun a, b;
@ -79,6 +79,6 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqc_rip(a, b);
return u3qc_rip(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqc_rsh(
u3qc_rsh(
u3_atom a,
u3_atom b,
u3_atom c)
@ -41,7 +41,7 @@
}
}
u3_noun
u3_cwc_rsh(
u3wc_rsh(
u3_noun cor)
{
u3_noun a, b, c;
@ -55,13 +55,13 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqc_rsh(a, b, c);
return u3qc_rsh(a, b, c);
}
}
u3_noun
u3_ckc_rsh(u3_noun a, u3_noun b, u3_noun c)
u3kc_rsh(u3_noun a, u3_noun b, u3_noun c)
{
u3_noun d = u3_cqc_rsh(a, b, c);
u3_noun d = u3qc_rsh(a, b, c);
u3z(a); u3z(b); u3z(c);
return d;

View File

@ -8,25 +8,25 @@
/* functions
*/
u3_noun
u3_cqc_vor(u3_atom a,
u3qc_vor(u3_atom a,
u3_atom b)
{
c3_w c_w = u3r_mug(u3r_mug(a));
c3_w d_w = u3r_mug(u3r_mug(b));
if ( c_w == d_w ) {
return u3_cqc_dor(a, b);
return u3qc_dor(a, b);
}
else return (c_w < d_w) ? c3y : c3n;
}
u3_noun
u3_cwc_vor(u3_noun cor)
u3wc_vor(u3_noun cor)
{
u3_noun a, b;
if ( (c3n == u3r_mean(cor, u3v_sam_2, &a, u3v_sam_3, &b, 0)) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqc_vor(a, b);
return u3qc_vor(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqdb_gas(
u3qdb_gas(
u3_noun a,
u3_noun b)
{
@ -29,10 +29,10 @@
u3_noun qi_b = u3t(i_b);
u3_noun c;
if ( u3_none == (c = u3_cqdb_put(a, pi_b, qi_b)) ) {
if ( u3_none == (c = u3qdb_put(a, pi_b, qi_b)) ) {
return u3m_bail(c3__exit);
} else {
u3_noun d = u3_cqdb_gas(c, t_b);
u3_noun d = u3qdb_gas(c, t_b);
u3z(c);
return d;
@ -42,7 +42,7 @@
}
}
u3_noun
u3_cwdb_gas(
u3wdb_gas(
u3_noun cor)
{
u3_noun a, b;
@ -50,13 +50,13 @@
if ( c3n == u3r_mean(cor, u3v_sam, &b, u3v_con_sam, &a, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqdb_gas(a, b);
return u3qdb_gas(a, b);
}
}
u3_noun
u3_ckdb_gas(u3_noun a, u3_noun b)
u3kdb_gas(u3_noun a, u3_noun b)
{
u3_weak c = u3_cqdb_gas(a, b);
u3_weak c = u3qdb_gas(a, b);
u3z(a); u3z(b);
if ( u3_none == c ) {

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqdb_get(u3_noun a, u3_noun b)
u3qdb_get(u3_noun a, u3_noun b)
{
if ( u3_nul == a ) {
return u3_nul;
@ -27,16 +27,16 @@
return u3nc(u3_nul, u3k(qn_a));
}
else {
if ( c3y == u3_cqc_gor(b, pn_a) ) {
return u3_cqdb_get(l_a, b);
if ( c3y == u3qc_gor(b, pn_a) ) {
return u3qdb_get(l_a, b);
}
else return u3_cqdb_get(r_a, b);
else return u3qdb_get(r_a, b);
}
}
}
}
u3_noun
u3_cwdb_get(
u3wdb_get(
u3_noun cor)
{
u3_noun a, b;
@ -44,13 +44,13 @@
if ( c3n == u3r_mean(cor, u3v_sam, &b, u3v_con_sam, &a, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqdb_get(a, b);
return u3qdb_get(a, b);
}
}
u3_weak
u3_ckdb_get(u3_noun a, u3_noun b)
u3kdb_get(u3_noun a, u3_noun b)
{
u3_noun c = u3_cqdb_get(a, b);
u3_noun c = u3qdb_get(a, b);
u3z(a); u3z(b);
if ( c3n == u3r_du(c) ) {
@ -64,9 +64,9 @@
}
}
u3_noun
u3_ckdb_got(u3_noun a, u3_noun b)
u3kdb_got(u3_noun a, u3_noun b)
{
u3_weak c = u3_ckdb_get(a, b);
u3_weak c = u3kdb_get(a, b);
if ( u3_none == c ) {
return u3m_bail(c3__exit);

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqdb_has(
u3qdb_has(
u3_noun a,
u3_noun b)
{
@ -29,16 +29,16 @@
return c3y;
}
else {
if ( c3y == u3_cqc_gor(b, pn_a) ) {
return u3_cqdb_has(l_a, b);
if ( c3y == u3qc_gor(b, pn_a) ) {
return u3qdb_has(l_a, b);
}
else return u3_cqdb_has(r_a, b);
else return u3qdb_has(r_a, b);
}
}
}
}
u3_noun
u3_cwdb_has(
u3wdb_has(
u3_noun cor)
{
u3_noun a, b;
@ -46,13 +46,13 @@
if ( c3n == u3r_mean(cor, u3v_sam, &b, u3v_con_sam, &a, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqdb_has(a, b);
return u3qdb_has(a, b);
}
}
u3_noun
u3_ckdb_has(u3_noun a, u3_noun b)
u3kdb_has(u3_noun a, u3_noun b)
{
u3_weak c = u3_cqdb_has(a, b);
u3_weak c = u3qdb_has(a, b);
u3z(a); u3z(b);
if ( u3_none == c ) {

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqdb_int(
u3qdb_int(
u3_noun a,
u3_noun b)
{
@ -40,37 +40,37 @@
else if ( c3n == u3r_cell(n_b, &p_n_b, &q_n_b) ) {
return u3m_bail(c3__exit);
}
else if ( c3y == u3_cqc_vor(p_n_a, p_n_b) ) {
else if ( c3y == u3qc_vor(p_n_a, p_n_b) ) {
if ( c3y == u3r_sing(p_n_a, p_n_b) ) {
return u3nt(
u3k(n_b),
u3_cqdb_int(u3k(l_a), u3k(l_b)),
u3_cqdb_int(u3k(r_a), u3k(r_b)));
u3qdb_int(u3k(l_a), u3k(l_b)),
u3qdb_int(u3k(r_a), u3k(r_b)));
}
else if ( c3y == u3_cqc_hor(p_n_b, p_n_a) ) {
return u3_cqdb_uni(
else if ( c3y == u3qc_hor(p_n_b, p_n_a) ) {
return u3qdb_uni(
u3_cqdb_int(
u3qdb_int(
u3k(l_a),
u3nt(
u3k(n_b),
u3k(l_b),
u3k(u3_nul))),
u3_cqdb_int(
u3qdb_int(
u3k(a),
u3k(r_b)));
}
else {
return u3_cqdb_uni(
return u3qdb_uni(
u3_cqdb_int(
u3qdb_int(
u3k(r_a),
u3nt(
u3k(n_b),
u3k(u3_nul),
u3k(r_b))),
u3_cqdb_int(
u3qdb_int(
u3k(a),
u3k(l_b)));
}
@ -79,39 +79,39 @@
return u3nt(
u3k(n_b),
u3_cqdb_int(u3k(l_b), u3k(l_a)),
u3_cqdb_int(u3k(r_b), u3k(r_a)));
u3qdb_int(u3k(l_b), u3k(l_a)),
u3qdb_int(u3k(r_b), u3k(r_a)));
}
else if ( c3y == u3_cqc_hor(p_n_a, p_n_b) ) {
return u3_cqdb_uni(
else if ( c3y == u3qc_hor(p_n_a, p_n_b) ) {
return u3qdb_uni(
u3_cqdb_int(
u3qdb_int(
u3k(l_b),
u3nt(
u3k(n_a),
u3k(l_a),
u3k(u3_nul))),
u3_cqdb_int(
u3qdb_int(
u3k(a),
u3k(r_a)));
}
else {
return u3_cqdb_uni(
return u3qdb_uni(
u3_cqdb_int(
u3qdb_int(
u3k(r_b),
u3nt(
u3k(n_a),
u3k(u3_nul),
u3k(r_a))),
u3_cqdb_int(
u3qdb_int(
u3k(a),
u3k(l_a)));
}
}
}
u3_noun
u3_cwdb_int(
u3wdb_int(
u3_noun cor)
{
u3_noun a, b;
@ -119,6 +119,6 @@
if ( c3n == u3r_mean(cor, u3v_sam, &b, u3v_con_sam, &a, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqdb_int(a, b);
return u3qdb_int(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqdb_put(
u3qdb_put(
u3_noun a,
u3_noun b,
u3_noun c)
@ -40,10 +40,10 @@
}
}
else {
if ( c3y == u3_cqc_gor(b, pn_a) ) {
d = u3_cqdb_put(l_a, b, c);
if ( c3y == u3qc_gor(b, pn_a) ) {
d = u3qdb_put(l_a, b, c);
if ( c3y == u3_cqc_vor(pn_a, u3h(u3h(d))) ) {
if ( c3y == u3qc_vor(pn_a, u3h(u3h(d))) ) {
return u3nt(u3k(n_a),
d,
u3k(r_a));
@ -65,9 +65,9 @@
}
}
else {
d = u3_cqdb_put(r_a, b, c);
d = u3qdb_put(r_a, b, c);
if ( c3y == u3_cqc_vor(pn_a, u3h(u3h(d))) ) {
if ( c3y == u3qc_vor(pn_a, u3h(u3h(d))) ) {
return u3nt(u3k(n_a),
u3k(l_a),
d);
@ -92,7 +92,7 @@
}
}
u3_noun
u3_cwdb_put(
u3wdb_put(
u3_noun cor)
{
u3_noun a, b, c;
@ -102,17 +102,17 @@
u3v_con_sam, &a, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqdb_put(a, b, c);
return u3qdb_put(a, b, c);
}
}
u3_weak
u3_ckdb_put(u3_noun a, u3_noun b, u3_noun c)
u3kdb_put(u3_noun a, u3_noun b, u3_noun c)
{
// Bizarre asymmetry in old jets.
//
// (Mysterious comment in old glue code.)
//
u3_noun pro = u3_cqdb_put(a, b, c);
u3_noun pro = u3qdb_put(a, b, c);
u3z(a); u3z(b); u3z(c);
return pro;

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqdb_uni(
u3qdb_uni(
u3_noun a,
u3_noun b)
{
@ -40,20 +40,20 @@
else if ( c3n == u3r_cell(lr_b, &l_b, &r_b) ) {
return u3m_bail(c3__exit);
}
else if ( c3y == u3_cqc_vor(p_n_a, p_n_b) ) {
else if ( c3y == u3qc_vor(p_n_a, p_n_b) ) {
if ( c3y == u3r_sing(p_n_a, p_n_b) ) {
return u3nt(u3k(n_b),
u3_cqdb_uni(
u3qdb_uni(
u3k(l_a), u3k(l_b)),
u3_cqdb_uni(
u3qdb_uni(
u3k(r_a), u3k(r_b)));
}
else if ( c3y == u3_cqc_hor(p_n_b, p_n_a) ) {
return u3_cqdb_uni(
else if ( c3y == u3qc_hor(p_n_b, p_n_a) ) {
return u3qdb_uni(
u3nt(
u3k(n_a),
u3_cqdb_uni(
u3qdb_uni(
u3k(l_a),
u3nt(
u3k(n_b),
@ -63,12 +63,12 @@
u3k(r_b));
}
else {
return u3_cqdb_uni(
return u3qdb_uni(
u3nt(
u3k(n_a),
u3k(l_a),
u3_cqdb_uni(
u3qdb_uni(
u3k(r_a),
u3nt(
u3k(n_b),
@ -81,16 +81,16 @@
return u3nt(
u3k(n_b),
u3_cqdb_uni(u3k(r_b), u3k(r_a)),
u3_cqdb_uni(u3k(l_b), u3k(l_a)));
u3qdb_uni(u3k(r_b), u3k(r_a)),
u3qdb_uni(u3k(l_b), u3k(l_a)));
}
else if ( c3y == u3_cqc_hor(p_n_a, p_n_b) ) {
return u3_cqdb_uni(
else if ( c3y == u3qc_hor(p_n_a, p_n_b) ) {
return u3qdb_uni(
u3k(r_a),
u3nt(
u3k(n_b),
u3_cqdb_uni(
u3qdb_uni(
u3nt(
u3k(n_a),
u3k(l_a),
@ -99,13 +99,13 @@
u3k(r_b)));
}
else {
return u3_cqdb_uni(
return u3qdb_uni(
u3k(l_a),
u3nt(
u3k(n_b),
u3k(l_b),
u3_cqdb_uni(
u3qdb_uni(
u3k(r_b),
u3nt(
u3k(n_a),
@ -115,7 +115,7 @@
}
}
u3_noun
u3_cwdb_uni(
u3wdb_uni(
u3_noun cor)
{
u3_noun a, b;
@ -123,6 +123,6 @@
if ( c3n == u3r_mean(cor, u3v_sam, &b, u3v_con_sam, &a, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqdb_uni(a, b);
return u3qdb_uni(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqdi_gas(
u3qdi_gas(
u3_noun a,
u3_noun b)
{
@ -23,10 +23,10 @@
u3_noun t_b = u3t(b);
u3_noun c;
if ( u3_none == (c = u3_cqdi_put(a, i_b)) ) {
if ( u3_none == (c = u3qdi_put(a, i_b)) ) {
return u3m_bail(c3__exit);
} else {
u3_noun d = u3_cqdi_gas(c, t_b);
u3_noun d = u3qdi_gas(c, t_b);
u3z(c);
return d;
@ -35,7 +35,7 @@
}
}
u3_noun
u3_cwdi_gas(
u3wdi_gas(
u3_noun cor)
{
u3_noun a, b;
@ -43,13 +43,13 @@
if ( c3n == u3r_mean(cor, u3v_sam, &b, u3v_con_sam, &a, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqdi_gas(a, b);
return u3qdi_gas(a, b);
}
}
u3_noun
u3_ckdi_gas(u3_noun a, u3_noun b)
u3kdi_gas(u3_noun a, u3_noun b)
{
u3_weak c = u3_cqdi_gas(a, b);
u3_weak c = u3qdi_gas(a, b);
u3z(a); u3z(b);
if ( u3_none == c ) {

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqdi_has(u3_noun a, u3_noun b)
u3qdi_has(u3_noun a, u3_noun b)
{
if ( u3_nul == a ) {
return c3n;
@ -24,29 +24,29 @@
return c3y;
}
else {
if ( c3y == u3_cqc_hor(b, n_a) ) {
return u3_cqdi_has(l_a, b);
if ( c3y == u3qc_hor(b, n_a) ) {
return u3qdi_has(l_a, b);
}
else return u3_cqdi_has(r_a, b);
else return u3qdi_has(r_a, b);
}
}
}
}
u3_noun
u3_cwdi_has(u3_noun cor)
u3wdi_has(u3_noun cor)
{
u3_noun a, b;
if ( c3n == u3r_mean(cor, u3v_sam, &b, u3v_con_sam, &a, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqdi_has(a, b);
return u3qdi_has(a, b);
}
}
u3_noun
u3_ckdi_has(u3_noun a, u3_noun b)
u3kdi_has(u3_noun a, u3_noun b)
{
u3_weak c = u3_cqdi_has(a, b);
u3_weak c = u3qdi_has(a, b);
u3z(a); u3z(b);
if ( u3_none == c ) {

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqdi_int(
u3qdi_int(
u3_noun a,
u3_noun b)
{
@ -30,7 +30,7 @@
return u3m_bail(c3__exit);
}
else {
if ( c3y == u3_cqc_vor(n_b, n_a) ) {
if ( c3y == u3qc_vor(n_b, n_a) ) {
c = a; a = b; b = c;
c = n_a; n_a = n_b; n_b = c;
c = lr_a; lr_a = lr_b; lr_b = c;
@ -43,30 +43,30 @@
}
else if ( c3y == u3r_sing(n_a, n_b) ) {
return u3nt(u3k(n_a),
u3_cqdi_int(l_a, l_b),
u3_cqdi_int(r_a, r_b));
u3qdi_int(l_a, l_b),
u3qdi_int(r_a, r_b));
}
else if ( c3y == u3_cqc_hor(n_b, n_a) ) {
return u3_cqdi_uni(
u3_cqdi_int(
else if ( c3y == u3qc_hor(n_b, n_a) ) {
return u3qdi_uni(
u3qdi_int(
l_a,
u3nt(
n_b,
l_b,
u3_nul)),
u3_cqdi_int(
u3qdi_int(
a,
r_b));
}
else {
return u3_cqdi_uni(
u3_cqdi_int(
return u3qdi_uni(
u3qdi_int(
r_a,
u3nt(
n_b,
u3_nul,
r_b)),
u3_cqdi_int(
u3qdi_int(
a,
l_b));
}
@ -74,7 +74,7 @@
}
}
u3_noun
u3_cwdi_int(
u3wdi_int(
u3_noun cor)
{
u3_noun a, b;
@ -82,6 +82,6 @@
if ( c3n == u3r_mean(cor, u3v_sam, &b, u3v_con_sam, &a, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqdi_int(a, b);
return u3qdi_int(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqdi_mer(u3_noun a, u3_noun b)
u3qdi_mer(u3_noun a, u3_noun b)
{
if ( u3_nul == a ) {
return u3k(b);
@ -28,7 +28,7 @@
return u3m_bail(c3__exit);
}
else {
if ( c3y == u3_cqc_vor(n_b, n_a) ) {
if ( c3y == u3qc_vor(n_b, n_a) ) {
c = a; a = b; b = c;
c = n_a; n_a = n_b; n_b = c;
c = lr_a; lr_a = lr_b; lr_b = c;
@ -41,14 +41,14 @@
}
else if ( c3y == u3r_sing(n_a, n_b) ) {
return u3nt(u3k(n_a),
u3_cqdi_mer(l_a, l_b),
u3_cqdi_mer(r_a, r_b));
u3qdi_mer(l_a, l_b),
u3qdi_mer(r_a, r_b));
}
else if ( c3y == u3_cqc_hor(n_b, n_a) ) {
return u3_cqdi_mer(
else if ( c3y == u3qc_hor(n_b, n_a) ) {
return u3qdi_mer(
u3nt(
n_a,
u3_cqdi_mer(
u3qdi_mer(
l_a,
u3nt(
n_b,
@ -58,11 +58,11 @@
r_b);
}
else {
return u3_cqdi_mer(
return u3qdi_mer(
u3nt(
n_a,
l_a,
u3_cqdi_mer(
u3qdi_mer(
r_a,
u3nt(
n_b,
@ -75,7 +75,7 @@
}
u3_noun
u3_cwdi_mer(u3_noun cor)
u3wdi_mer(u3_noun cor)
{
u3_noun a, b;
@ -83,6 +83,6 @@
return u3m_bail(c3__exit);
}
else {
return u3_cqdi_mer(a, b);
return u3qdi_mer(a, b);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqdi_put(
u3qdi_put(
u3_noun a,
u3_noun b)
{
@ -29,10 +29,10 @@
return u3m_bail(c3__exit);
}
else {
if ( c3y == u3_cqc_hor(b, n_a) ) {
c = u3_cqdi_put(l_a, b);
if ( c3y == u3qc_hor(b, n_a) ) {
c = u3qdi_put(l_a, b);
if ( c3y == u3_cqc_vor(n_a, u3h(c)) ) {
if ( c3y == u3qc_vor(n_a, u3h(c)) ) {
return u3nt(u3k(n_a),
c,
u3k(r_a));
@ -54,9 +54,9 @@
}
}
else {
c = u3_cqdi_put(r_a, b);
c = u3qdi_put(r_a, b);
if ( c3y == u3_cqc_vor(n_a, u3h(c)) ) {
if ( c3y == u3qc_vor(n_a, u3h(c)) ) {
return u3nt(u3k(n_a),
u3k(l_a),
c);
@ -81,7 +81,7 @@
}
}
u3_noun
u3_cwdi_put(
u3wdi_put(
u3_noun cor)
{
u3_noun a, b;
@ -89,17 +89,17 @@
if ( c3n == u3r_mean(cor, u3v_sam, &b, u3v_con_sam, &a, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqdi_put(a, b);
return u3qdi_put(a, b);
}
}
u3_weak
u3_ckdi_put(u3_noun a, u3_noun b)
u3kdi_put(u3_noun a, u3_noun b)
{
// Bizarre asymmetry in old jets.
//
// (Mysterious comment in old glue code.)
//
u3_noun pro = u3_cqdi_put(a, b);
u3_noun pro = u3qdi_put(a, b);
u3z(a); u3z(b);
return pro;

View File

@ -30,14 +30,14 @@
}
u3_noun
u3_cqdi_tap(
u3qdi_tap(
u3_noun a,
u3_noun b)
{
return _tap_in(a, u3k(b));
}
u3_noun
u3_cwdi_tap(
u3wdi_tap(
u3_noun cor)
{
u3_noun a, b;
@ -45,13 +45,13 @@
if ( c3n == u3r_mean(cor, u3v_sam, &b, u3v_con_sam, &a, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqdi_tap(a, b);
return u3qdi_tap(a, b);
}
}
u3_noun
u3_ckdi_tap(u3_noun a, u3_noun b)
u3kdi_tap(u3_noun a, u3_noun b)
{
u3_weak c = u3_cqdi_tap(a, b);
u3_weak c = u3qdi_tap(a, b);
u3z(a); u3z(b);
if ( u3_none == c ) {

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqdi_uni(
u3qdi_uni(
u3_noun a,
u3_noun b)
{
@ -29,7 +29,7 @@
return u3m_bail(c3__exit);
}
else {
if ( c3y == u3_cqc_vor(n_a, n_b) ) {
if ( c3y == u3qc_vor(n_a, n_b) ) {
if ( c3n == u3r_cell(lr_a, &l_a, &r_a) ) {
return u3m_bail(c3__exit);
}
@ -40,15 +40,15 @@
return u3nt(
u3k(n_b),
u3_cqdi_uni(u3k(l_a), u3k(l_b)),
u3_cqdi_uni(u3k(r_a), u3k(r_b)));
u3qdi_uni(u3k(l_a), u3k(l_b)),
u3qdi_uni(u3k(r_a), u3k(r_b)));
}
else if ( c3y == u3_cqc_hor(n_b, n_a) ) {
return u3_cqdi_uni(
else if ( c3y == u3qc_hor(n_b, n_a) ) {
return u3qdi_uni(
u3nt(
u3k(n_a),
u3_cqdi_uni(
u3qdi_uni(
u3k(l_a),
u3nt(
u3k(n_b),
@ -58,12 +58,12 @@
u3k(r_b));
}
else {
return u3_cqdi_uni(
return u3qdi_uni(
u3nt(
u3k(n_a),
u3k(l_a),
u3_cqdi_uni(
u3qdi_uni(
u3k(r_a),
u3nt(
u3k(n_b),
@ -82,16 +82,16 @@
return u3nt(
u3k(n_b),
u3_cqdi_uni(u3k(r_b), u3k(r_a)),
u3_cqdi_uni(u3k(l_b), u3k(l_a)));
u3qdi_uni(u3k(r_b), u3k(r_a)),
u3qdi_uni(u3k(l_b), u3k(l_a)));
}
else if ( c3y == u3_cqc_hor(n_a, n_b) ) {
return u3_cqdi_uni(
else if ( c3y == u3qc_hor(n_a, n_b) ) {
return u3qdi_uni(
u3k(r_a),
u3nt(
u3k(n_b),
u3_cqdi_uni(
u3qdi_uni(
u3nt(
u3k(n_a),
u3k(l_a),
@ -100,13 +100,13 @@
u3k(r_b)));
}
else {
return u3_cqdi_uni(
return u3qdi_uni(
u3k(l_a),
u3nt(
u3k(n_b),
u3k(l_b),
u3_cqdi_uni(
u3qdi_uni(
u3nt(
u3k(n_a),
u3k(u3_nul),
@ -117,7 +117,7 @@
}
}
u3_noun
u3_cwdi_uni(
u3wdi_uni(
u3_noun cor)
{
u3_noun a, b;
@ -125,7 +125,7 @@
if ( c3n == u3r_mean(cor, u3v_sam, &b, u3v_con_sam, &a, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqdi_uni(a, b);
return u3qdi_uni(a, b);
}
}

View File

@ -14,7 +14,7 @@
/* functions
*/
u3_noun
u3_cqea_en(u3_atom a, u3_atom b)
u3qea_en(u3_atom a, u3_atom b)
{
c3_y a_y[32];
c3_y b_y[16];
@ -51,7 +51,7 @@
}
u3_noun
u3_cwea_en(u3_noun cor)
u3wea_en(u3_noun cor)
{
u3_noun a, b;
@ -62,12 +62,12 @@
return u3m_bail(c3__exit);
}
else {
return u3_cqea_en(a, b);
return u3qea_en(a, b);
}
}
u3_noun
u3_cqea_de(u3_atom a, u3_atom b)
u3qea_de(u3_atom a, u3_atom b)
{
c3_y a_y[32];
c3_y b_y[16];
@ -104,7 +104,7 @@
}
u3_noun
u3_cwea_de(u3_noun cor)
u3wea_de(u3_noun cor)
{
u3_noun a, b;
@ -115,6 +115,6 @@
return u3m_bail(c3__exit);
}
else {
return u3_cqea_de(a, b);
return u3qea_de(a, b);
}
}

View File

@ -12,11 +12,11 @@
{
u3_noun p, q;
if ( 0 == u3_cqc_cut(0, b, 1, a) ) {
u3_noun x = u3_cqa_inc(b);
u3_noun c = u3_cqe_rub(x, a);
if ( 0 == u3qc_cut(0, b, 1, a) ) {
u3_noun x = u3qa_inc(b);
u3_noun c = u3qe_rub(x, a);
p = u3_cqa_inc(u3k(u3h(c)));
p = u3qa_inc(u3k(u3h(c)));
q = u3k(u3t(c));
u3h_put(har_p, u3k(b), u3k(q));
@ -25,20 +25,20 @@
u3z(x);
}
else {
u3_noun c = u3_cqa_add(2, b);
u3_noun l = u3_cqa_inc(b);
u3_noun c = u3qa_add(2, b);
u3_noun l = u3qa_inc(b);
if ( 0 == u3_cqc_cut(0, l, 1, a) ) {
if ( 0 == u3qc_cut(0, l, 1, a) ) {
u3_noun u, v, w;
u3_noun x, y;
u = _cue_in(har_p, a, c);
x = u3_cqa_add(u3h(u), c);
x = u3qa_add(u3h(u), c);
v = _cue_in(har_p, a, x);
w = u3nc(u3k(u3h(u3t(u))), u3k(u3h(u3t(v))));
y = u3_cqa_add(u3h(u), u3h(v));
p = u3_cqa_add(2, y);
y = u3qa_add(u3h(u), u3h(v));
p = u3qa_add(2, y);
q = w;
u3h_put(har_p, u3k(b), u3k(q));
@ -46,10 +46,10 @@
u3z(u); u3z(v); u3z(x); u3z(y);
}
else {
u3_noun d = u3_cqe_rub(c, a);
u3_noun d = u3qe_rub(c, a);
u3_noun x = u3h_get(har_p, u3k(u3t(d)));
p = u3_cqa_add(2, u3h(d));
p = u3qa_add(2, u3h(d));
if ( u3_none == x ) {
return u3m_bail(c3__exit);
}
@ -63,7 +63,7 @@
}
u3_noun
u3_cqe_cue(u3_atom a)
u3qe_cue(u3_atom a)
{
u3p(u3h_root) har_p = u3h_new();
@ -76,20 +76,20 @@
return y;
}
u3_noun
u3_cwe_cue(u3_noun cor)
u3we_cue(u3_noun cor)
{
u3_noun a;
if ( (u3_none == (a = u3r_at(u3v_sam, cor))) ) {
return u3m_bail(c3__fail);
} else {
return u3_cqe_cue(a);
return u3qe_cue(a);
}
}
u3_noun
u3_cke_cue(u3_atom a)
u3ke_cue(u3_atom a)
{
u3_noun b = u3_cqe_cue(a);
u3_noun b = u3qe_cue(a);
u3z(a);
return b;

View File

@ -10,7 +10,7 @@
/* functions
*/
u3_noun
u3_cwee_puck(u3_noun cor)
u3wee_puck(u3_noun cor)
{
c3_y pub_y[32];
c3_y sec_y[64];

View File

@ -39,7 +39,7 @@
}
u3_noun
u3_cwee_sign(u3_noun cor)
u3wee_sign(u3_noun cor)
{
u3_noun a, b;
if ( c3n == u3r_mean(cor,

View File

@ -34,7 +34,7 @@
}
u3_noun
u3_cwee_veri(u3_noun cor)
u3wee_veri(u3_noun cor)
{
u3_noun a, b, c;
if ( c3n == u3r_mean(cor,

View File

@ -18,22 +18,22 @@
u3_noun l)
{
u3_noun w = u3nc(u3nc(2, 1), u3k(l));
u3_noun x = u3_cqa_add(2, b);
u3_noun x = u3qa_add(2, b);
u3_noun d = _jam_in(har_p, h_a, x, w);
u3_noun p_d, q_d, r_d;
u3_noun r;
u3r_trel(d, &p_d, &q_d, &r_d);
{
u3_noun y = u3_cqa_add(x, p_d);
u3_noun y = u3qa_add(x, p_d);
u3_noun e = _jam_in(har_p, t_a, y, q_d);
u3_noun p_e, q_e, r_e;
u3r_trel(e, &p_e, &q_e, &r_e);
{
u3_noun z = u3_cqa_add(p_d, p_e);
u3_noun z = u3qa_add(p_d, p_e);
r = u3nt(u3_cqa_add(2, z), u3k(q_e), 0);
r = u3nt(u3qa_add(2, z), u3k(q_e), 0);
u3z(z);
}
@ -52,10 +52,10 @@
u3_atom a,
u3_noun l)
{
u3_noun d = u3_cqe_mat(a);
u3_noun x = u3_cqa_add(1, u3h(d));
u3_noun d = u3qe_mat(a);
u3_noun x = u3qa_add(1, u3h(d));
u3_noun y = u3nt
(u3k(x), u3nc(u3nc(x, u3_cqc_lsh(0, 1, u3t(d))), u3k(l)), 0);
(u3k(x), u3nc(u3nc(x, u3qc_lsh(0, 1, u3t(d))), u3k(l)), 0);
u3z(d);
@ -67,11 +67,11 @@
u3_atom u_c,
u3_noun l)
{
u3_noun d = u3_cqe_mat(u_c);
u3_atom x = u3_cqc_lsh(0, 2, u3t(d));
u3_atom y = u3_cqa_add(2, u3h(d));
u3_noun d = u3qe_mat(u_c);
u3_atom x = u3qc_lsh(0, 2, u3t(d));
u3_atom y = u3qa_add(2, u3h(d));
u3_noun z = u3nt
(u3k(y), u3nc(u3nc(y, u3_cqc_mix(3, x)), u3k(l)), 0);
(u3k(y), u3nc(u3nc(y, u3qc_mix(3, x)), u3k(l)), 0);
u3z(d);
u3z(x);
@ -109,13 +109,13 @@
}
u3_noun
u3_cqe_jam(u3_atom a)
u3qe_jam(u3_atom a)
{
u3p(u3h_root) har_p = u3h_new();
u3_noun x = _jam_in(har_p, a, 0, u3_nul);
u3_noun q = u3_cqb_flop(u3h(u3t(x)));
u3_noun r = u3_cqc_can(0, q);
u3_noun q = u3qb_flop(u3h(u3t(x)));
u3_noun r = u3qc_can(0, q);
u3z(x);
u3z(q);
@ -123,20 +123,20 @@
return r;
}
u3_noun
u3_cwe_jam(u3_noun cor)
u3we_jam(u3_noun cor)
{
u3_noun a;
if ( (u3_none == (a = u3r_at(u3v_sam, cor))) ) {
return u3m_bail(c3__fail);
} else {
return u3_cqe_jam(a);
return u3qe_jam(a);
}
}
u3_atom
u3_cke_jam(u3_noun a)
u3ke_jam(u3_noun a)
{
u3_atom b = u3_cqe_jam(a);
u3_atom b = u3qe_jam(a);
u3z(a);
return b;

View File

@ -6,7 +6,7 @@
u3_noun
u3_cqe_lore(u3_atom lub)
u3qe_lore(u3_atom lub)
{
c3_w len_w = u3r_met(3, lub);
c3_w pos_w = 0;
@ -16,7 +16,7 @@
c3_w meg_w;
if ( pos_w >= len_w ) {
return u3_ckb_flop(tez);
return u3kb_flop(tez);
} else {
meg_w = 0;
@ -45,7 +45,7 @@
}
u3_noun
u3_cwe_lore(u3_noun cor)
u3we_lore(u3_noun cor)
{
u3_noun lub;
@ -54,6 +54,6 @@
{
return u3m_bail(c3__fail);
} else {
return u3_cqe_lore(lub);
return u3qe_lore(lub);
}
}

View File

@ -54,7 +54,7 @@
{
if ( 0 == loc_u->kct_w ) {
return u3_nul;
} else return u3_ckb_flop(_lext(loc_u, loc_u->kad[loc_u->kct_w - 1]));
} else return u3kb_flop(_lext(loc_u, loc_u->kad[loc_u->kct_w - 1]));
}
// initialize loss object
@ -65,13 +65,13 @@
u3_noun hev)
{
loc_u->hel = hel;
loc_u->lel_w = u3_ckb_lent(u3k(hel));
loc_u->lel_w = u3kb_lent(u3k(hel));
// Read hev into array.
{
c3_w i_w;
loc_u->hev = c3_malloc(u3_ckb_lent(u3k(hev)) * sizeof(u3_noun));
loc_u->hev = c3_malloc(u3kb_lent(u3k(hev)) * sizeof(u3_noun));
for ( i_w = 0; u3_nul != hev; i_w++ ) {
loc_u->hev[i_w] = u3h(hev);
@ -95,10 +95,10 @@
u3_noun hav;
u3_noun teg;
hav = u3_ckdb_get(u3k(loc_u->sev), u3k(how));
hav = u3kdb_get(u3k(loc_u->sev), u3k(how));
teg = u3nc(u3i_words(1, &i_w),
(hav == u3_none) ? u3_nul : hav);
loc_u->sev = u3_ckdb_put(loc_u->sev, u3k(how), teg);
loc_u->sev = u3kdb_put(loc_u->sev, u3k(how), teg);
}
}
}
@ -242,10 +242,10 @@
{
while ( u3_nul != loc_u->hel ) {
u3_noun i_hel = u3h(loc_u->hel);
u3_noun guy = u3_ckdb_get(u3k(loc_u->sev), u3k(i_hel));
u3_noun guy = u3kdb_get(u3k(loc_u->sev), u3k(i_hel));
if ( u3_none != guy ) {
u3_noun gay = u3_ckb_flop(guy);
u3_noun gay = u3kb_flop(guy);
_merg(loc_u, 0, gay);
u3z(gay);
@ -256,7 +256,7 @@
}
u3_noun
u3_cqe_loss(
u3qe_loss(
u3_noun hel,
u3_noun hev)
{
@ -282,7 +282,7 @@
}
u3_noun
u3_cwe_loss(u3_noun cor)
u3we_loss(u3_noun cor)
{
u3_noun hel, hev;
@ -293,6 +293,6 @@
{
return u3m_bail(c3__fail);
} else {
return u3_cqe_loss(hel, hev);
return u3qe_loss(hel, hev);
}
}

View File

@ -8,26 +8,26 @@
/* functions
*/
u3_noun
u3_cqe_mat(
u3qe_mat(
u3_atom a)
{
if ( 0 == a ) {
return u3nc(1, 1);
} else {
u3_atom b = u3_cqc_met(0, a);
u3_atom c = u3_cqc_met(0, b);
u3_atom b = u3qc_met(0, a);
u3_atom c = u3qc_met(0, b);
u3_atom u, v, w, x, y, z;
u3_atom p, q;
u = u3_cqa_dec(c);
v = u3_cqa_add(c, c);
w = u3_cqc_bex(c);
x = u3_cqc_end(0, u, b);
y = u3_cqc_lsh(0, u, a);
z = u3_cqc_mix(x, y);
u = u3qa_dec(c);
v = u3qa_add(c, c);
w = u3qc_bex(c);
x = u3qc_end(0, u, b);
y = u3qc_lsh(0, u, a);
z = u3qc_mix(x, y);
p = u3_cqa_add(v, b);
q = u3_cqc_cat(0, w, z);
p = u3qa_add(v, b);
q = u3qc_cat(0, w, z);
u3z(u);
u3z(v);
@ -40,7 +40,7 @@
}
}
u3_noun
u3_cwe_mat(
u3we_mat(
u3_noun cor)
{
u3_noun a;
@ -48,6 +48,6 @@
if ( (u3_none == (a = u3r_at(u3v_sam, cor))) ) {
return u3m_bail(c3__fail);
} else {
return u3_cqe_mat(a);
return u3qe_mat(a);
}
}

View File

@ -6,7 +6,7 @@
u3_noun
u3_cwe_mink(u3_noun cor)
u3we_mink(u3_noun cor)
{
u3_noun bus, fol, fly;

View File

@ -5,7 +5,7 @@
#include "all.h"
u3_noun
u3_cwe_mule(u3_noun cor)
u3we_mule(u3_noun cor)
{
u3_noun tap;

View File

@ -141,7 +141,7 @@
}
u3_noun
u3_cwe_bend_fun(u3_noun cor)
u3we_bend_fun(u3_noun cor)
{
u3_noun van, raq, vex, sab;
@ -189,7 +189,7 @@
}
u3_noun
u3_cwe_cold_fun(
u3we_cold_fun(
u3_noun cor)
{
u3_noun van, cus, sef, tub;
@ -238,7 +238,7 @@
}
u3_noun
u3_cwe_cook_fun(
u3we_cook_fun(
u3_noun cor)
{
u3_noun van, poq, sef, tub;
@ -302,7 +302,7 @@
}
u3_noun
u3_cwe_comp_fun(
u3we_comp_fun(
u3_noun cor)
{
u3_noun van, raq, vex, sab;
@ -334,7 +334,7 @@
u3k(tub));
}
u3_noun
u3_cwe_easy_fun(
u3we_easy_fun(
u3_noun cor)
{
u3_noun van, huf, tub;
@ -411,7 +411,7 @@
}
u3_noun
u3_cwe_glue_fun(
u3we_glue_fun(
u3_noun cor)
{
u3_noun van, bus, vex, sab;
@ -470,7 +470,7 @@
}
u3_noun
u3_cwe_here_fun(
u3we_here_fun(
u3_noun cor)
{
u3_noun van, hez, sef, tub;
@ -509,7 +509,7 @@
}
}
u3_noun
u3_cwe_just_fun(
u3we_just_fun(
u3_noun cor)
{
u3_noun van, daf, tub;
@ -550,7 +550,7 @@
}
}
u3_noun
u3_cwe_mask_fun(
u3we_mask_fun(
u3_noun cor)
{
u3_noun van, bud, tub;
@ -596,7 +596,7 @@
}
}
u3_noun
u3_cwe_pfix(
u3we_pfix(
u3_noun cor)
{
u3_noun vex, sab;
@ -653,7 +653,7 @@
}
}
u3_noun
u3_cwe_plug(
u3we_plug(
u3_noun cor)
{
u3_noun vex, sab;
@ -668,7 +668,7 @@
/* pose
*/
u3_noun
u3_cqe_pose(u3_noun vex,
u3qe_pose(u3_noun vex,
u3_noun sab)
{
u3_noun p_vex, q_vex;
@ -692,7 +692,7 @@
}
}
u3_noun
u3_cwe_pose(
u3we_pose(
u3_noun cor)
{
u3_noun vex, sab;
@ -700,7 +700,7 @@
if ( (c3n == u3r_mean(cor, u3v_sam_2, &vex, u3v_sam_3, &sab, 0)) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqe_pose(vex, sab);
return u3qe_pose(vex, sab);
}
}
@ -746,7 +746,7 @@
}
}
u3_noun
u3_cwe_sfix(u3_noun cor)
u3we_sfix(u3_noun cor)
{
u3_noun vex, sab;
@ -790,7 +790,7 @@
}
}
u3_noun
u3_cwe_shim_fun(
u3we_shim_fun(
u3_noun cor)
{
u3_noun van, zep, tub;
@ -839,7 +839,7 @@
}
u3_noun
u3_cwe_stag_fun(
u3we_stag_fun(
u3_noun cor)
{
u3_noun van, gob, sef, tub;
@ -938,7 +938,7 @@
}
}
u3_noun
u3_cwe_stew_fun(
u3we_stew_fun(
u3_noun cor)
{
u3_noun con, hel, tub;
@ -1001,7 +1001,7 @@
}
u3_noun
u3_cwe_stir_fun(u3_noun cor)
u3we_stir_fun(u3_noun cor)
{
u3_noun van, rud, raq, fel, tub;

View File

@ -16,7 +16,7 @@ union doub {
/* sun
*/
u3_noun
u3_cqer_sun(u3_atom a)
u3qer_sun(u3_atom a)
{
union doub b;
b.d = (double) u3r_chub(0, a);
@ -25,7 +25,7 @@ union doub {
}
u3_noun
u3_cwer_sun(u3_noun cor)
u3wer_sun(u3_noun cor)
{
u3_noun a;
@ -34,14 +34,14 @@ union doub {
return u3m_bail(c3__exit);
}
else {
return u3_cqer_sun(a);
return u3qer_sun(a);
}
}
/* mul
*/
u3_noun
u3_cqer_mul(u3_atom a, u3_atom b)
u3qer_mul(u3_atom a, u3_atom b)
{
union doub c, d, e;
c.c = u3r_chub(0, a);
@ -52,7 +52,7 @@ union doub {
}
u3_noun
u3_cwer_mul(u3_noun cor)
u3wer_mul(u3_noun cor)
{
u3_noun a, b;
@ -63,14 +63,14 @@ union doub {
return u3m_bail(c3__exit);
}
else {
return u3_cqer_mul(a, b);
return u3qer_mul(a, b);
}
}
/* div
*/
u3_noun
u3_cqer_div(u3_atom a, u3_atom b)
u3qer_div(u3_atom a, u3_atom b)
{
union doub c, d, e;
c.c = u3r_chub(0, a);
@ -81,7 +81,7 @@ union doub {
}
u3_noun
u3_cwer_div(u3_noun cor)
u3wer_div(u3_noun cor)
{
u3_noun a, b;
@ -92,14 +92,14 @@ union doub {
return u3m_bail(c3__exit);
}
else {
return u3_cqer_div(a, b);
return u3qer_div(a, b);
}
}
/* add
*/
u3_noun
u3_cqer_add(u3_atom a, u3_atom b)
u3qer_add(u3_atom a, u3_atom b)
{
union doub c, d, e;
c.c = u3r_chub(0, a);
@ -110,7 +110,7 @@ union doub {
}
u3_noun
u3_cwer_add(u3_noun cor)
u3wer_add(u3_noun cor)
{
u3_noun a, b;
@ -121,14 +121,14 @@ union doub {
return u3m_bail(c3__exit);
}
else {
return u3_cqer_add(a, b);
return u3qer_add(a, b);
}
}
/* sub
*/
u3_noun
u3_cqer_sub(u3_atom a, u3_atom b)
u3qer_sub(u3_atom a, u3_atom b)
{
union doub c, d, e;
c.c = u3r_chub(0, a);
@ -139,7 +139,7 @@ union doub {
}
u3_noun
u3_cwer_sub(u3_noun cor)
u3wer_sub(u3_noun cor)
{
u3_noun a, b;
@ -150,14 +150,14 @@ union doub {
return u3m_bail(c3__exit);
}
else {
return u3_cqer_sub(a, b);
return u3qer_sub(a, b);
}
}
/* lte
*/
u3_noun
u3_cqer_lte(u3_atom a, u3_atom b)
u3qer_lte(u3_atom a, u3_atom b)
{
union doub c, d;
c.c = u3r_chub(0, a);
@ -167,7 +167,7 @@ union doub {
}
u3_noun
u3_cwer_lte(u3_noun cor)
u3wer_lte(u3_noun cor)
{
u3_noun a, b;
@ -178,14 +178,14 @@ union doub {
return u3m_bail(c3__exit);
}
else {
return u3_cqer_lte(a, b);
return u3qer_lte(a, b);
}
}
/* lth
*/
u3_noun
u3_cqer_lth(u3_atom a, u3_atom b)
u3qer_lth(u3_atom a, u3_atom b)
{
union doub c, d;
c.c = u3r_chub(0, a);
@ -195,7 +195,7 @@ union doub {
}
u3_noun
u3_cwer_lth(u3_noun cor)
u3wer_lth(u3_noun cor)
{
u3_noun a, b;
@ -206,14 +206,14 @@ union doub {
return u3m_bail(c3__exit);
}
else {
return u3_cqer_lth(a, b);
return u3qer_lth(a, b);
}
}
/* gte
*/
u3_noun
u3_cqer_gte(u3_atom a, u3_atom b)
u3qer_gte(u3_atom a, u3_atom b)
{
union doub c, d;
c.c = u3r_chub(0, a);
@ -223,7 +223,7 @@ union doub {
}
u3_noun
u3_cwer_gte(u3_noun cor)
u3wer_gte(u3_noun cor)
{
u3_noun a, b;
@ -234,14 +234,14 @@ union doub {
return u3m_bail(c3__exit);
}
else {
return u3_cqer_gte(a, b);
return u3qer_gte(a, b);
}
}
/* gth
*/
u3_noun
u3_cqer_gth(u3_atom a, u3_atom b)
u3qer_gth(u3_atom a, u3_atom b)
{
union doub c, d;
c.c = u3r_chub(0, a);
@ -251,7 +251,7 @@ union doub {
}
u3_noun
u3_cwer_gth(u3_noun cor)
u3wer_gth(u3_noun cor)
{
u3_noun a, b;
@ -262,6 +262,6 @@ union doub {
return u3m_bail(c3__exit);
}
else {
return u3_cqer_gth(a, b);
return u3qer_gth(a, b);
}
}

View File

@ -8,7 +8,7 @@
#include <string.h>
u3_noun
u3_cqe_repg(u3_noun lub, u3_noun rad, u3_noun rep)
u3qe_repg(u3_noun lub, u3_noun rad, u3_noun rep)
{
c3_y* lub_y = u3r_tape(lub);
c3_y* rad_y = u3r_tape(rad);
@ -78,11 +78,11 @@
else {
int mlen = matches[0].length;
if (mlen == 0) {
ret = u3_ckb_weld(u3_ckb_flop(u3i_tape((char *) rad_y+ic)), u3_ckb_flop(u3i_tape((char *)rep_y)));
ret = u3kb_weld(u3kb_flop(u3i_tape((char *) rad_y+ic)), u3kb_flop(u3i_tape((char *)rep_y)));
ic = text_len + 1;
}
else {
ret = u3_ckb_weld(u3_ckb_flop(u3i_tape((char *)rep_y)), ret);
ret = u3kb_weld(u3kb_flop(u3i_tape((char *)rep_y)), ret);
ic += mlen;
}
}
@ -92,7 +92,7 @@
free(lub_y);
free(rad_y);
free(rep_y);
return u3i_cell(u3_nul, u3_ckb_flop(ret));
return u3i_cell(u3_nul, u3kb_flop(ret));
}
else {
// Compiling the regular expression failed
@ -122,7 +122,7 @@
}
u3_noun
u3_cwe_repg(u3_noun cor)
u3we_repg(u3_noun cor)
{
u3_noun lub;
u3_noun rad;
@ -134,6 +134,6 @@
{
return u3m_bail(c3__fail);
} else {
return u3_cqe_repg(lub, rad, rep);
return u3qe_repg(lub, rad, rep);
}
}

View File

@ -8,13 +8,13 @@
#include <string.h>
u3_noun
u3_cqe_rexp(u3_noun lub, u3_noun rad)
u3qe_rexp(u3_noun lub, u3_noun rad)
{
c3_y* lub_y = u3r_tape(lub);
c3_y* rad_y = u3r_tape(rad);
u3k(lub);
int lub_l = u3_ckb_lent(lub);
int lub_l = u3kb_lent(lub);
if (lub_l != strlen((char *)lub_y)) {
free(lub_y);
free(rad_y);
@ -94,7 +94,7 @@
char * buf = malloc(matches[i].length + 1);
memcpy(buf, matches[i].data, matches[i].length);
buf[matches[i].length] = 0;
map = u3_ckdb_put(map, i, u3i_tape(buf));
map = u3kdb_put(map, i, u3i_tape(buf));
free(buf);
}
@ -124,7 +124,7 @@
}
u3_noun
u3_cwe_rexp(u3_noun cor)
u3we_rexp(u3_noun cor)
{
u3_noun lub;
u3_noun rad;
@ -134,6 +134,6 @@
{
return u3m_bail(c3__fail);
} else {
return u3_cqe_rexp(lub, rad);
return u3qe_rexp(lub, rad);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqe_rub(
u3qe_rub(
u3_atom a,
u3_atom b)
{
@ -16,17 +16,17 @@
u3_atom w, x, y, z;
u3_atom p, q;
u3_atom m = u3_cqa_add(a, u3r_met(0, b));
u3_atom m = u3qa_add(a, u3r_met(0, b));
// Compute c and d.
{
x = u3k(a);
while ( 0 == u3_cqc_cut(0, x, 1, b) ) {
u3_atom y = u3_cqa_inc(x);
while ( 0 == u3qc_cut(0, x, 1, b) ) {
u3_atom y = u3qa_inc(x);
// Sanity check: crash if decoding more bits than available
if ( c3y == u3_cqa_gth(x, m)) {
if ( c3y == u3qa_gth(x, m)) {
// fprintf(stderr, "[%%rub-hard %d %d %d]\r\n", a, x, m);
return u3m_bail(c3__exit);
}
@ -38,27 +38,27 @@
u3z(x);
return u3nc(1, 0);
}
c = u3_cqa_sub(x, a);
d = u3_cqa_inc(x);
c = u3qa_sub(x, a);
d = u3qa_inc(x);
u3z(x);
}
// Compute e, p, q.
{
x = u3_cqa_dec(c);
y = u3_cqc_bex(x);
z = u3_cqc_cut(0, d, x, b);
x = u3qa_dec(c);
y = u3qc_bex(x);
z = u3qc_cut(0, d, x, b);
e = u3_cqa_add(y, z);
e = u3qa_add(y, z);
u3z(y); u3z(z);
w = u3_cqa_add(c, c);
y = u3_cqa_add(w, e);
z = u3_cqa_add(d, x);
w = u3qa_add(c, c);
y = u3qa_add(w, e);
z = u3qa_add(d, x);
p = u3_cqa_add(w, e);
q = u3_cqc_cut(0, z, e, b);
p = u3qa_add(w, e);
q = u3qc_cut(0, z, e, b);
u3z(w); u3z(x); u3z(y); u3z(z);
@ -66,7 +66,7 @@
}
}
u3_noun
u3_cwe_rub(
u3we_rub(
u3_noun cor)
{
u3_noun a, b;
@ -77,6 +77,6 @@
{
return u3m_bail(c3__fail);
} else {
return u3_cqe_rub(a, b);
return u3qe_rub(a, b);
}
}

View File

@ -14,7 +14,7 @@
/* functions
*/
u3_noun
u3_cqe_shax(
u3qe_shax(
u3_atom a)
{
c3_w met_w = u3r_met(3, a);
@ -42,7 +42,7 @@
}
u3_noun
u3_cqe_shal(u3_atom a,
u3qe_shal(u3_atom a,
u3_atom b)
{
c3_assert(_(u3a_is_cat(a)));
@ -70,19 +70,19 @@
}
u3_noun
u3_cqe_shas(
u3qe_shas(
u3_atom sal,
u3_atom ruz)
{
u3_noun one = u3_cqe_shax(ruz);
u3_noun two = u3_cqc_mix(sal, one);
u3_noun tri = u3_cqe_shax(two);
u3_noun one = u3qe_shax(ruz);
u3_noun two = u3qc_mix(sal, one);
u3_noun tri = u3qe_shax(two);
u3z(one); u3z(two); return tri;
}
u3_noun
u3_cwe_shax(
u3we_shax(
u3_noun cor)
{
u3_noun a;
@ -92,12 +92,12 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqe_shax(a);
return u3qe_shax(a);
}
}
u3_noun
u3_cwe_shal(u3_noun cor)
u3we_shal(u3_noun cor)
{
u3_noun a, b;
@ -109,12 +109,12 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqe_shal(a, b);
return u3qe_shal(a, b);
}
}
u3_noun
u3_cwe_shas(u3_noun cor)
u3we_shas(u3_noun cor)
{
u3_noun sal, ruz;
@ -125,7 +125,7 @@
{
return u3m_bail(c3__exit);
} else {
return u3_cqe_shas(sal, ruz);
return u3qe_shas(sal, ruz);
}
}
@ -141,15 +141,15 @@
return u3m_bail(c3__fail);
}
while ( 0 != b ) {
u3_noun x = u3_cqc_mix(a, c);
u3_noun y = u3_cqc_mix(b, x);
u3_noun d = u3_cqe_shas(c3_s4('o','g','-','b'), y);
u3_noun x = u3qc_mix(a, c);
u3_noun y = u3qc_mix(b, x);
u3_noun d = u3qe_shas(c3_s4('o','g','-','b'), y);
u3_noun m;
u3z(x); u3z(y);
if ( b < 256 ) {
u3_noun e = u3_cqc_end(0, b, d);
u3_noun e = u3qc_end(0, b, d);
u3z(d);
m = u3nc(b, e);
@ -162,16 +162,16 @@
}
l = u3nc(m, l);
}
return u3_ckb_flop(l);
return u3kb_flop(l);
}
u3_noun
u3_cqeo_raw(u3_atom a, u3_atom b)
u3qeo_raw(u3_atom a, u3_atom b)
{
u3_noun x = u3_cqc_mix(b, a);
u3_noun c = u3_cqe_shas(c3_s4('o','g','-','a'), x);
u3_noun x = u3qc_mix(b, a);
u3_noun c = u3qe_shas(c3_s4('o','g','-','a'), x);
u3_noun l = _og_list(a, b, c);
u3_noun r = u3_cqc_can(0, l);
u3_noun r = u3qc_can(0, l);
u3z(l);
u3z(c);
@ -181,13 +181,13 @@
}
u3_noun
u3_cweo_raw(u3_noun cor)
u3weo_raw(u3_noun cor)
{
u3_noun a, b;
if ( c3n == u3r_mean(cor, u3v_sam, &b, u3v_con_sam, &a, 0) ) {
return u3m_bail(c3__exit);
} else {
return u3_cqeo_raw(a, b);
return u3qeo_raw(a, b);
}
}

View File

@ -35,7 +35,7 @@
}
u3_noun
u3_cqe_tape(u3_noun a)
u3qe_tape(u3_noun a)
{
if ( c3y == _good(a) ) {
return u3k(a);
@ -44,13 +44,13 @@
}
}
u3_noun
u3_cwe_tape(u3_noun cor)
u3we_tape(u3_noun cor)
{
u3_noun a;
if ( (u3_none == (a = u3r_at(u3v_sam, cor))) ) {
return u3m_bail(c3__fail);
} else {
return u3_cqe_tape(a);
return u3qe_tape(a);
}
}

View File

@ -8,28 +8,28 @@
/* functions
*/
u3_noun
u3_cqe_trip(u3_atom a)
u3qe_trip(u3_atom a)
{
if ( c3n == u3ud(a) ) {
return u3m_bail(c3__exit);
}
return u3_cqc_rip(3, a);
return u3qc_rip(3, a);
}
u3_noun
u3_cwe_trip(u3_noun cor)
u3we_trip(u3_noun cor)
{
u3_noun a;
if ( (u3_none == (a = u3r_at(u3v_sam, cor))) ) {
return u3m_bail(c3__fail);
} else {
return u3_cqe_trip(a);
return u3qe_trip(a);
}
}
u3_atom
u3_cke_trip(u3_noun a)
u3ke_trip(u3_noun a)
{
u3_atom b = u3_cqe_trip(a);
u3_atom b = u3qe_trip(a);
u3z(a);
return b;

View File

@ -20,7 +20,7 @@ _al_core(u3_noun van,
/* ~(bunt al gen)
*/
u3_noun
u3_cqfl_bunt(u3_noun van, u3_noun gen)
u3qfl_bunt(u3_noun van, u3_noun gen)
{
u3_noun cor = _al_core(van, gen);
@ -30,7 +30,7 @@ u3_cqfl_bunt(u3_noun van, u3_noun gen)
/* ~(whip al gen)
*/
u3_noun
u3_cqfl_whip(u3_noun van,
u3qfl_whip(u3_noun van,
u3_noun gen,
u3_noun axe) //
{

View File

@ -7,9 +7,9 @@
/** forward declares
**/
u3_noun u3_cwfp_rake(u3_noun);
u3_noun u3_cwfp_open(u3_noun);
u3_noun u3_cwfp_hack(u3_noun);
u3_noun u3wfp_rake(u3_noun);
u3_noun u3wfp_open(u3_noun);
u3_noun u3wfp_hack(u3_noun);
static u3_noun
_ap_open_l(u3_noun, u3_noun);
@ -38,7 +38,7 @@
static u3_noun
_ap_bunt(u3_noun van, u3_noun gen)
{
u3_noun pro = u3_cqfl_bunt(van, gen);
u3_noun pro = u3qfl_bunt(van, gen);
u3z(van);
return pro;
@ -271,7 +271,7 @@
u3nc(u3nc(c3__axil, c3__noun),
u3k(q_gen)),
u3_nul);
u3_noun zal = u3_cqb_weld(r_gen, tul);
u3_noun zal = u3qb_weld(r_gen, tul);
u3_noun ret = u3nt(c3__wthp, u3k(p_gen), zal);
u3z(tul);
@ -527,7 +527,7 @@
c3__tsgr,
u3nc(
c3__brcn,
u3_cqdb_put(q_gen, u3_blip, diz)),
u3qdb_put(q_gen, u3_blip, diz)),
u3nc(c3__cnzy, u3_blip));
u3z(diz);
@ -864,7 +864,7 @@
/** rake
**/
u3_noun
u3_cqfp_rake(
u3qfp_rake(
u3_noun gen)
{
u3_noun p_gen, q_gen;
@ -900,12 +900,12 @@
if ( c3n == u3r_cell(u3t(gen), &p_gen, &q_gen) ) {
return u3m_bail(c3__fail);
}
else return u3_cqfp_rake(q_gen);
else return u3qfp_rake(q_gen);
}
}
}
u3_noun
u3_cwfp_rake(
u3wfp_rake(
u3_noun cor)
{
u3_noun gen;
@ -913,14 +913,14 @@
if ( u3_none == (gen = u3r_at(u3v_sam, cor)) ) {
return u3m_bail(c3__fail);
} else {
return u3_cqfp_rake(gen);
return u3qfp_rake(gen);
}
}
/** hack
**/
u3_noun
u3_cqfp_hack(
u3qfp_hack(
u3_noun ter,
u3_noun gen)
{
@ -939,7 +939,7 @@
return u3nc(c3n, u3k(gen));
}
else {
u3_noun pyr = u3_cqfp_hack(ter, q_gen);
u3_noun pyr = u3qfp_hack(ter, q_gen);
if ( c3y == u3h(pyr) ) {
ret = u3nt
@ -964,7 +964,7 @@
}
case c3__zpcb: u3x_cell(u3t(gen), &p_gen, &q_gen);
{
u3_noun pyr = u3_cqfp_hack(ter, q_gen);
u3_noun pyr = u3qfp_hack(ter, q_gen);
if ( c3y == u3h(pyr) ) {
ret = u3nt
@ -999,7 +999,7 @@
return u3nc(c3n, voq);
}
else {
ret = u3_cqfp_hack(ter, voq);
ret = u3qfp_hack(ter, voq);
u3z(voq);
return ret;
@ -1008,7 +1008,7 @@
}
u3_noun
u3_cwfp_hack(
u3wfp_hack(
u3_noun cor)
{
u3_noun gen;
@ -1018,7 +1018,7 @@
} else {
u3_noun ter = u3r_at(u3v_con, cor);
return u3_cqfp_hack(ter, gen);
return u3qfp_hack(ter, gen);
}
}
@ -1055,13 +1055,13 @@
}
u3_noun
u3_cqfp_open(u3_noun ter, u3_noun gen)
u3qfp_open(u3_noun ter, u3_noun gen)
{
return _ap_open_l(ter, gen);
}
u3_noun
u3_cwfp_open(u3_noun cor)
u3wfp_open(u3_noun cor)
{
u3_noun gen;
@ -1070,6 +1070,6 @@
} else {
u3_noun ter = u3r_at(u3v_con, cor);
return u3_cqfp_open(ter, gen);
return u3qfp_open(ter, gen);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqf_bull(
u3qf_bull(
u3_noun bid,
u3_noun der)
{
@ -21,7 +21,7 @@
(c3__bull, u3k(bid), u3k(der));
}
u3_noun
u3_cwf_bull(
u3wf_bull(
u3_noun cor)
{
u3_noun bid, der;
@ -29,6 +29,6 @@
if ( c3n == u3r_mean(cor, u3v_sam_2, &bid, u3v_sam_3, &der, 0) ) {
return u3m_bail(c3__fail);
} else {
return u3_cqf_bull(bid, der);
return u3qf_bull(bid, der);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqf_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;
@ -17,7 +17,7 @@
}
}
u3_noun
u3_cwf_cell(
u3wf_cell(
u3_noun cor)
{
u3_noun hed, tal;
@ -25,6 +25,6 @@
if ( c3n == u3r_mean(cor, u3v_sam_2, &hed, u3v_sam_3, &tal, 0) ) {
return u3m_bail(c3__fail);
} else {
return u3_cqf_cell(hed, tal);
return u3qf_cell(hed, tal);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqf_comb(
u3qf_comb(
u3_noun mal,
u3_noun buz)
{
@ -22,7 +22,7 @@
if ( (c3y == u3r_p(buz, 0, &p_buz)) && (0 != p_buz) ) {
return u3nc(
0,
u3_cqc_peg(p_mal, p_buz));
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) &&
@ -31,9 +31,9 @@
return u3nt
(2,
u3nc(0,
u3_cqc_peg(p_mal, pp_buz)),
u3qc_peg(p_mal, pp_buz)),
u3nc(0,
u3_cqc_peg(p_mal, pq_buz)));
u3qc_peg(p_mal, pq_buz)));
}
else return u3nt(7, u3k(mal),
u3k(buz));
@ -59,7 +59,7 @@
}
}
u3_noun
u3_cwf_comb(
u3wf_comb(
u3_noun cor)
{
u3_noun mal, buz;
@ -67,6 +67,6 @@
if ( c3n == u3r_mean(cor, u3v_sam_2, &mal, u3v_sam_3, &buz, 0) ) {
return u3_none;
} else {
return u3_cqf_comb(mal, buz);
return u3qf_comb(mal, buz);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqf_cons(
u3qf_cons(
u3_noun vur,
u3_noun sed)
{
@ -26,8 +26,8 @@
!(c3y == u3r_sing(p_vur, p_sed)) &&
(0 == u3r_nord(p_vur, p_sed)) )
{
u3_atom fub = u3_cqa_div(p_vur, 2);
u3_atom nof = u3_cqa_div(p_sed, 2);
u3_atom fub = u3qa_div(p_vur, 2);
u3_atom nof = u3qa_div(p_sed, 2);
if ( c3y == u3r_sing(fub, nof) ) {
u3z(nof);
@ -42,7 +42,7 @@
return u3nc(u3k(vur), u3k(sed));
}
u3_noun
u3_cwf_cons(
u3wf_cons(
u3_noun cor)
{
u3_noun vur, sed;
@ -50,6 +50,6 @@
if ( c3n == u3r_mean(cor, u3v_sam_2, &vur, u3v_sam_3, &sed, 0) ) {
return u3m_bail(c3__fail);
} else {
return u3_cqf_cons(vur, sed);
return u3qf_cons(vur, sed);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqf_core(
u3qf_core(
u3_noun pac,
u3_noun con)
{
@ -19,7 +19,7 @@
}
}
u3_noun
u3_cwf_core(
u3wf_core(
u3_noun cor)
{
u3_noun pac, con;
@ -27,6 +27,6 @@
if ( c3n == u3r_mean(cor, u3v_sam_2, &pac, u3v_sam_3, &con, 0) ) {
return u3m_bail(c3__fail);
} else {
return u3_cqf_core(pac, con);
return u3qf_core(pac, con);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqf_cube(
u3qf_cube(
u3_noun dil,
u3_noun goq)
{
@ -19,7 +19,7 @@
(c3__cube, u3k(dil), u3k(goq));
}
u3_noun
u3_cwf_cube(
u3wf_cube(
u3_noun cor)
{
u3_noun dil, goq;
@ -27,6 +27,6 @@
if ( c3n == u3r_mean(cor, u3v_sam_2, &dil, u3v_sam_3, &goq, 0) ) {
return u3m_bail(c3__fail);
} else {
return u3_cqf_cube(dil, goq);
return u3qf_cube(dil, goq);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqf_face(
u3qf_face(
u3_noun cog,
u3_noun tip)
{
@ -19,7 +19,7 @@
(c3__face, u3k(cog), u3k(tip));
}
u3_noun
u3_cwf_face(
u3wf_face(
u3_noun cor)
{
u3_noun cog, tip;
@ -27,6 +27,6 @@
if ( c3n == u3r_mean(cor, u3v_sam_2, &cog, u3v_sam_3, &tip, 0) ) {
return u3m_bail(c3__fail);
} else {
return u3_cqf_face(cog, tip);
return u3qf_face(cog, tip);
}
}

View File

@ -8,7 +8,7 @@
/* functions
*/
u3_noun
u3_cqf_fine(
u3qf_fine(
u3_noun fuv,
u3_noun lup,
u3_noun mar)
@ -22,7 +22,7 @@
}
}
u3_noun
u3_cwf_fine(
u3wf_fine(
u3_noun cor)
{
u3_noun fuv, lup, mar;
@ -32,6 +32,6 @@
u3v_sam_7, &mar, 0) ) {
return u3m_bail(c3__fail);
} else {
return u3_cqf_fine(fuv, lup, mar);
return u3qf_fine(fuv, lup, mar);
}
}

View File

@ -31,7 +31,7 @@
}
u3_noun
u3_cqf_fitz(
u3qf_fitz(
u3_noun yaz,
u3_noun wix)
{
@ -55,7 +55,7 @@
}
u3_noun
u3_cwf_fitz(
u3wf_fitz(
u3_noun cor)
{
u3_noun yaz, wix;
@ -66,6 +66,6 @@
{
return u3m_bail(c3__fail);
} else {
return u3_cqf_fitz(yaz, wix);
return u3qf_fitz(yaz, wix);
}
}

Some files were not shown because too many files have changed in this diff Show More