ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-11 04:48:00 +03:00
Code Issues Packages Projects Releases Wiki Activity

rm q jets, unneeded molting and cooking

Browse Source
This commit is contained in:
pilfer-pandex 2019-08-02 16:06:16 -07:00
parent 94f607699d
commit 4a2c392472
10 changed files with 124 additions and 405 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
pkg/urbit/jets/f/ut_crop.c
View File

@ -3,38 +3,6 @@
*/
#include "all.h"
static u3_noun
_cqfu_crop(u3_noun van,
u3_noun sut,
u3_noun ref)
{
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_cook("_cqfu_crop-crop", von, "crop");
gat = u3i_molt(gat, u3x_sam, u3k(ref), 0);
return u3n_nock_on(gat, u3k(u3x_at(u3x_bat, gat)));
}
u3_noun
u3qfu_crop(u3_noun van,
u3_noun sut,
u3_noun ref)
{
c3_m fun_m = 141 + c3__crop + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_2(fun_m, sut, ref);
if ( u3_none != pro ) {
return pro;
}
else {
pro = _cqfu_crop(van, sut, ref);
return u3z_save_2(fun_m, sut, ref, pro);
}
}
/* boilerplate
*/
u3_noun
u3wfu_crop(u3_noun cor)
{
@ -45,6 +13,16 @@
{
return u3m_bail(c3__fail);
} else {
return u3qfu_crop(van, sut, ref);
c3_m fun_m = 141 + c3__crop + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_2(fun_m, sut, ref);
if ( u3_none != pro ) {
return pro;
}
else {
pro = u3n_nock_on(u3k(cor), u3k(u3x_at(u3x_bat, cor)));
return u3z_save_2(fun_m, sut, ref, pro);
}
}
}

90
pkg/urbit/jets/f/ut_find.c
View File

@ -3,55 +3,6 @@
*/
#include "all.h"
static u3_noun
_cqfu_fond(u3_noun van,
u3_noun sut,
u3_noun way,
u3_noun hyp)
{
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_cook("_cqfu_fond-fond", von, "fond");
gat = u3i_molt(gat, u3x_sam_2, u3k(way), u3x_sam_3, u3k(hyp), 0);
return u3n_nock_on(gat, u3k(u3x_at(u3x_bat, gat)));
}
static u3_noun
_cqfu_find(u3_noun van,
u3_noun sut,
u3_noun way,
u3_noun hyp)
{
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_cook("_cqfu_find-find", von, "find");
gat = u3i_molt(gat, u3x_sam_2, u3k(way), u3x_sam_3, u3k(hyp), 0);
return u3n_nock_on(gat, u3k(u3x_at(u3x_bat, gat)));
}
/* boilerplate
*/
u3_noun
u3qfu_find(u3_noun van,
u3_noun sut,
u3_noun way,
u3_noun hyp)
{
c3_m fun_m = 141 + c3__find + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_3(fun_m, sut, way, hyp);
if ( u3_none != pro ) {
return pro;
}
else {
pro = _cqfu_find(van, sut, way, hyp);
return u3z_save_3(fun_m, sut, way, hyp, pro);
}
}
u3_noun
u3wfu_find(u3_noun cor)
{
@ -65,28 +16,17 @@
{
return u3m_bail(c3__fail);
} else {
return u3qfu_find(van, sut, way, hyp);
}
}
c3_m fun_m = 141 + c3__find + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_3(fun_m, sut, way, hyp);
/* boilerplate
*/
u3_noun
u3qfu_fond(u3_noun van,
u3_noun sut,
u3_noun way,
u3_noun hyp)
{
c3_m fun_m = 141 + c3__fond + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_3(fun_m, sut, way, hyp);
if ( u3_none != pro ) {
return pro;
}
else {
pro = u3n_nock_on(u3k(cor), u3k(u3x_at(u3x_bat, cor)));
if ( u3_none != pro ) {
return pro;
}
else {
pro = _cqfu_fond(van, sut, way, hyp);
return u3z_save_3(fun_m, sut, way, hyp, pro);
return u3z_save_3(fun_m, sut, way, hyp, pro);
}
}
}
@ -103,7 +43,17 @@
{
return u3m_bail(c3__fail);
} else {
return u3qfu_fond(van, sut, way, hyp);
c3_m fun_m = 141 + c3__fond + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_3(fun_m, sut, way, hyp);
if ( u3_none != pro ) {
return pro;
}
else {
pro = u3n_nock_on(u3k(cor), u3k(u3x_at(u3x_bat, cor)));
return u3z_save_3(fun_m, sut, way, hyp, pro);
}
}
}

47
pkg/urbit/jets/f/ut_fish.c
View File

@ -3,41 +3,6 @@
*/
#include "all.h"
static u3_noun
_cqfu_fish(u3_noun van,
u3_noun sut,
u3_atom axe)
{
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_cook("_cqfu_fish-fish", von, "fish");
gat = u3i_molt(gat, u3x_sam, u3k(axe), 0);
return u3n_nock_on(gat, u3k(u3x_at(u3x_bat, gat)));
}
/* boilerplate
*/
u3_noun
u3qfu_fish(u3_noun van,
u3_noun sut,
u3_noun axe)
{
c3_m fun_m = 141 + c3__fish + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_2(fun_m, sut, axe);
if ( u3_none != pro ) {
return pro;
}
else {
pro = _cqfu_fish(van, sut, axe);
return u3z_save_2(fun_m, sut, axe, pro);
}
}
u3_noun
u3wfu_fish(u3_noun cor)
{
@ -49,6 +14,16 @@
{
return u3m_bail(c3__fail);
} else {
return u3qfu_fish(van, sut, axe);
c3_m fun_m = 141 + c3__fish + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_2(fun_m, sut, axe);
if ( u3_none != pro ) {
return pro;
}
else {
pro = u3n_nock_on(u3k(cor), u3k(u3x_at(u3x_bat, cor)));
return u3z_save_2(fun_m, sut, axe, pro);
}
}
}

46
pkg/urbit/jets/f/ut_fuse.c
View File

@ -3,40 +3,6 @@
*/
#include "all.h"
static u3_noun
_cqfu_fuse(u3_noun van,
u3_noun sut,
u3_noun ref)
{
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_cook("_cqfu_fuse-fuse", von, "fuse");
gat = u3i_molt(gat, u3x_sam, u3k(ref), 0);
return u3n_nock_on(gat, u3k(u3x_at(u3x_bat, gat)));
}
u3_noun
u3qfu_fuse(u3_noun van,
u3_noun sut,
u3_noun ref)
{
c3_m fun_m = 141 + c3__fuse + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_2(fun_m, sut, ref);
if ( u3_none != pro ) {
return pro;
}
else {
pro = _cqfu_fuse(van, sut, ref);
return u3z_save_2(fun_m, sut, ref, pro);
}
}
/* boilerplate
*/
u3_noun
u3wfu_fuse(u3_noun cor)
{
@ -47,6 +13,16 @@
{
return u3m_bail(c3__fail);
} else {
return u3qfu_fuse(van, sut, ref);
c3_m fun_m = 141 + c3__fuse + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_2(fun_m, sut, ref);
if ( u3_none != pro ) {
return pro;
}
else {
pro = u3n_nock_on(u3k(cor), u3k(u3x_at(u3x_bat, cor)));
return u3z_save_2(fun_m, sut, ref, pro);
}
}
}

49
pkg/urbit/jets/f/ut_mint.c
View File

@ -3,42 +3,6 @@
*/
#include "all.h"
static u3_noun
_cqfu_mint(u3_noun van,
u3_noun sut,
u3_noun gol,
u3_noun gen)
{
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_cook("_cqfu_mint-mint", von, "mint");
gat = u3i_molt(gat, u3x_sam_2, u3k(gol), u3x_sam_3, u3k(gen), 0);
return u3n_nock_on(gat, u3k(u3x_at(u3x_bat, gat)));
}
u3_noun
u3qfu_mint(u3_noun van,
u3_noun sut,
u3_noun gol,
u3_noun gen)
{
c3_m fun_m = 141 + c3__mint;
u3_noun vrf = u3r_at(u3qfu_van_vrf, van);
u3_noun pro = u3z_find_4(fun_m, vrf, sut, gol, gen);
if ( u3_none != pro ) {
return pro;
}
else {
pro = _cqfu_mint(van, sut, gol, gen);
return u3z_save_4(fun_m, vrf, sut, gol, gen, pro);
}
}
/* boilerplate
*/
u3_noun
u3wfu_mint(u3_noun cor)
{
@ -52,6 +16,17 @@
{
return u3m_bail(c3__fail);
} else {
return u3qfu_mint(van, sut, gol, gen);
c3_m fun_m = 141 + c3__mint;
u3_noun vrf = u3r_at(u3qfu_van_vrf, van);
u3_noun pro = u3z_find_4(fun_m, vrf, sut, gol, gen);
if ( u3_none != pro ) {
return pro;
}
else {
pro = u3n_nock_on(u3k(cor), u3k(u3x_at(u3x_bat, cor)));
return u3z_save_4(fun_m, vrf, sut, gol, gen, pro);
}
}
}

52
pkg/urbit/jets/f/ut_mull.c
View File

@ -3,46 +3,6 @@
*/
#include "all.h"
static u3_noun
_cqfu_mull(u3_noun van,
u3_noun sut,
u3_noun gol,
u3_noun dox,
u3_noun gen)
{
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_cook("_cqfu_mull-mull", von, "mull");
gat = u3i_molt(gat,
u3x_sam_2, u3k(gol),
u3x_sam_6, u3k(dox),
u3x_sam_7, u3k(gen),
0);
return u3n_nock_on(gat, u3k(u3x_at(u3x_bat, gat))); }
/* boilerplate
*/
u3_noun
u3qfu_mull(u3_noun van,
u3_noun sut,
u3_noun gol,
u3_noun dox,
u3_noun gen)
{
c3_m fun_m = 141 + c3__mull + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_4(fun_m, sut, gol, dox, gen);
if ( u3_none != pro ) {
return pro;
}
else {
pro = _cqfu_mull(van, sut, gol, dox, gen);
return u3z_save_4(fun_m, sut, gol, dox, gen, pro);
}
}
u3_noun
u3wfu_mull(u3_noun cor)
{
@ -57,6 +17,16 @@
{
return u3m_bail(c3__fail);
} else {
return u3qfu_mull(van, sut, gol, dox, gen);
c3_m fun_m = 141 + c3__mull + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_4(fun_m, sut, gol, dox, gen);
if ( u3_none != pro ) {
return pro;
}
else {
pro = u3n_nock_on(u3k(cor), u3k(u3x_at(u3x_bat, cor)));
return u3z_save_4(fun_m, sut, gol, dox, gen, pro);
}
}
}

58
pkg/urbit/jets/f/ut_nest.c
View File

@ -44,49 +44,6 @@
}
}
static u3_noun
_cqfu_nest(u3_noun van,
u3_noun sut,
u3_noun tel,
u3_noun ref)
{
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_cook("_cqfu_nest-nest", von, "nest");
gat = u3i_molt(gat, u3x_sam_2, u3k(tel), u3x_sam_3, u3k(ref), 0);
return u3n_nock_on(gat, u3k(u3x_at(u3x_bat, gat)));
}
/* boilerplate
*/
u3_noun
u3qfu_nest(u3_noun van,
u3_noun sut,
u3_noun tel,
u3_noun ref)
{
#if 1
c3_m fun_m = 141 + c3__nest;
u3_noun vrf = u3r_at(u3qfu_van_vrf, van);
u3_noun pro = u3z_find_4(fun_m, vrf, sut, tel, ref);
if ( u3_none != pro ) {
// u3t_heck(c3__good);
return pro;
}
else {
pro = _cqfu_nest(van, sut, tel, ref);
// u3t_heck(c3__nest);
return u3z_save_4(fun_m, vrf, sut, tel, ref, pro);
}
#else
return _cqfu_nest(van, sut, tel, ref);
#endif
}
u3_noun
u3wfu_nest(u3_noun cor)
{
@ -101,6 +58,19 @@
{
return u3m_bail(c3__fail);
} else {
return u3qfu_nest(van, sut, tel, ref);
c3_m fun_m = 141 + c3__nest;
u3_noun vrf = u3r_at(u3qfu_van_vrf, van);
u3_noun pro = u3z_find_4(fun_m, vrf, sut, tel, ref);
if ( u3_none != pro ) {
// u3t_heck(c3__good);
return pro;
}
else {
pro = u3n_nock_on(u3k(cor), u3k(u3x_at(u3x_bat, cor)));
// u3t_heck(c3__nest);
return u3z_save_4(fun_m, vrf, sut, tel, ref, pro);
}
}
}

47
pkg/urbit/jets/f/ut_peek.c
View File

@ -3,41 +3,6 @@
*/
#include "all.h"
static u3_noun
_cqfu_peek(u3_noun van,
u3_noun sut,
u3_noun way,
u3_atom axe)
{
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_cook("_cqfu_peek-peek", von, "peek");
gat = u3i_molt(gat, u3x_sam_2, u3k(way), u3x_sam_3, u3k(axe), 0);
return u3n_nock_on(gat, u3k(u3x_at(u3x_bat, gat)));
}
/* boilerplate
*/
u3_noun
u3qfu_peek(u3_noun van,
u3_noun sut,
u3_noun way,
u3_noun axe)
{
c3_m fun_m = 141 + c3__peek + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_3(fun_m, sut, way, axe);
if ( u3_none != pro ) {
return pro;
}
else {
pro = _cqfu_peek(van, sut, way, axe);
return u3z_save_3(fun_m, sut, way, axe, pro);
}
}
u3_noun
u3wfu_peek(u3_noun cor)
{
@ -52,6 +17,16 @@
{
return u3m_bail(c3__fail);
} else {
return u3qfu_peek(van, sut, way, axe);
c3_m fun_m = 141 + c3__peek + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_3(fun_m, sut, way, axe);
if ( u3_none != pro ) {
return pro;
}
else {
pro = u3n_nock_on(u3k(cor), u3k(u3x_at(u3x_bat, cor)));
return u3z_save_3(fun_m, sut, way, axe, pro);
}
}
}

51
pkg/urbit/jets/f/ut_play.c
View File

@ -3,44 +3,6 @@
*/
#include "all.h"
static u3_noun
_cqfu_play(u3_noun van,
u3_noun sut,
u3_noun gen)
{
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_cook("_cqfu_play-play", von, "play");
gat = u3i_molt(gat, u3x_sam, u3k(gen), 0);
return u3n_nock_on(gat, u3k(u3x_at(u3x_bat, gat)));
}
/* boilerplate
*/
u3_noun
u3qfu_play(u3_noun van,
u3_noun sut,
u3_noun gen)
{
#if 1
c3_m fun_m = 141 + c3__play;
u3_noun vrf = u3r_at(u3qfu_van_vrf, van);
u3_noun pro = u3z_find_3(fun_m, vrf, sut, gen);
if ( u3_none != pro ) {
return pro;
}
else {
pro = _cqfu_play(van, sut, gen);
return u3z_save_3(fun_m, vrf, sut, gen, pro);
}
#else
return _cqfu_play(van, sut, gen);
#endif
}
u3_noun
u3wfu_play(u3_noun cor)
{
@ -51,6 +13,17 @@
{
return u3m_bail(c3__fail);
} else {
return u3qfu_play(van, sut, gen);
c3_m fun_m = 141 + c3__play;
u3_noun vrf = u3r_at(u3qfu_van_vrf, van);
u3_noun pro = u3z_find_3(fun_m, vrf, sut, gen);
if ( u3_none != pro ) {
return pro;
}
else {
pro = u3n_nock_on(u3k(cor), u3k(u3x_at(u3x_bat, cor)));
return u3z_save_3(fun_m, vrf, sut, gen, pro);
}
}
}

45
pkg/urbit/jets/f/ut_rest.c
View File

@ -3,39 +3,6 @@
*/
#include "all.h"
static u3_noun
_cqfu_rest(u3_noun van,
u3_noun sut,
u3_noun leg)
{
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_cook("_cqfu_rest-rest", von, "rest");
gat = u3i_molt(gat, u3x_sam, u3k(leg), 0);
return u3n_nock_on(gat, u3k(u3x_at(u3x_bat, gat)));
}
/* boilerplate
*/
u3_noun
u3qfu_rest(u3_noun van,
u3_noun sut,
u3_noun leg)
{
c3_m fun_m = 141 + c3__rest + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_2(fun_m, sut, leg);
if ( u3_none != pro ) {
return pro;
}
else {
pro = _cqfu_rest(van, sut, leg);
return u3z_save_2(fun_m, sut, leg, pro);
}
}
u3_noun
u3wfu_rest(u3_noun cor)
{
@ -46,6 +13,16 @@
{
return u3m_bail(c3__fail);
} else {
return u3qfu_rest(van, sut, leg);
c3_m fun_m = 141 + c3__rest + ((!!u3r_at(u3qfu_van_vet, van)) << 8);
u3_noun pro = u3z_find_2(fun_m, sut, leg);
if ( u3_none != pro ) {
return pro;
}
else {
pro = u3n_nock_on(u3k(cor), u3k(u3x_at(u3x_bat, cor)));
return u3z_save_2(fun_m, sut, leg, pro);
}
}
}