urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-28 05:22:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

Added jet for scag.

Browse Source
This commit is contained in:
Luke Patmore 2014-05-26 17:33:41 -07:00
parent 1072e7df68
commit eccf8ab3af
3 changed files with 62 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Makefile
View File

@ -116,6 +116,7 @@ J164_2_OFILES=\
gen164/2/roll.o \
gen164/2/skim.o \
gen164/2/skip.o \
gen164/2/scag.o \
gen164/2/slag.o \
gen164/2/snag.o \
gen164/2/sort.o \

59
gen164/2/scag.c Normal file
View File

@ -0,0 +1,59 @@
/* j/2/scag.c
**
** This file is in the public domain.
*/
#include "all.h"
#include "../pit.h"
/* functions
*/
u2_weak // transfer
j2_mbc(Pt2, scag)(u2_wire wir_r,
u2_atom a, // retain
u2_noun b) // retain
{
if ( !u2_fly_is_cat(a) ) {
return u2_bl_bail(wir_r, c3__fail);
}
else {
c3_w i_w = a;
u2_noun acc_w;
if ( a == 0 )
return u2_nul;
while ( i_w ) {
if ( u2_no == u2_dust(b) ) {
return u2_nul;
}
acc_w = u2_cn_cell( u2_h(b), acc_w );
b = u2_t(b);
i_w--;
}
acc_w = j2_mbc(Pt2, flop)(wir_r, acc_w);
return u2_rx(wir_r, acc_w);
}
}
u2_noun // transfer
j2_mb(Pt2, scag)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun a, b;
if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0)) ||
(u2_no == u2_stud(a)) )
{
return u2_bl_bail(wir_r, c3__exit);
} else {
return j2_mbc(Pt2, scag)(wir_r, a, b);
}
}
/* structures
*/
u2_ho_jet
j2_mbj(Pt2, scag)[] = {
{ ".2", c3__lite, j2_mb(Pt2, scag), Tier2, u2_none, u2_none },
{ }
};

2
gen164/watt.c
View File

@ -39,6 +39,7 @@
extern u2_ho_jet j2_mbj(Pt2, roll)[];
extern u2_ho_jet j2_mbj(Pt2, skim)[];
extern u2_ho_jet j2_mbj(Pt2, skip)[];
extern u2_ho_jet j2_mbj(Pt2, scag)[];
extern u2_ho_jet j2_mbj(Pt2, slag)[];
extern u2_ho_jet j2_mbj(Pt2, snag)[];
extern u2_ho_jet j2_mbj(Pt2, turn)[];
@ -187,6 +188,7 @@
{ j2_sb(Pt2, roll), j2_mbj(Pt2, roll), 0, 0, u2_none },
{ j2_sb(Pt2, skim), j2_mbj(Pt2, skim), 0, 0, u2_none },
{ j2_sb(Pt2, skip), j2_mbj(Pt2, skip), 0, 0, u2_none },
{ j2_sb(Pt2, scag), j2_mbj(Pt2, scag), 0, 0, u2_none },
{ j2_sb(Pt2, slag), j2_mbj(Pt2, slag), 0, 0, u2_none },
{ j2_sb(Pt2, snag), j2_mbj(Pt2, snag), 0, 0, u2_none },
{ j2_sb(Pt2, turn), j2_mbj(Pt2, turn), 0, 0, u2_none },