mirror of
https://github.com/urbit/shrub.git
synced 2024-12-26 05:23:35 +03:00
59 lines
2.1 KiB
C
59 lines
2.1 KiB
C
|
/* include/nock.h
|
||
|
|
**
|
||
|
|
** This file is in the public domain.
|
||
|
|
*/
|
||
|
|
/** Functions.
|
||
|
|
**/
|
||
|
|
/* u2_nk_nock():
|
||
|
|
**
|
||
|
|
** Compute `(nock bus fol)`.
|
||
|
|
*/
|
||
|
|
u2_weak // transfer
|
||
|
|
u2_nk_nock(u2_wire wir_r,
|
||
|
|
u2_weak bus, // transfer
|
||
|
|
u2_weak fol); // retain
|
||
|
|
|
||
|
|
/* u2_nk_soft():
|
||
|
|
**
|
||
|
|
** Compute `(nock bus fol)`, interpreter first.
|
||
|
|
*/
|
||
|
|
u2_weak // transfer
|
||
|
|
u2_nk_soft(u2_wire wir_r,
|
||
|
|
u2_weak bus, // transfer
|
||
|
|
u2_weak fol); // retain
|
||
|
|
|
||
|
|
/* u2_nk_nold():
|
||
|
|
**
|
||
|
|
** Really compute `(nock bus fol)`, interpreter first.
|
||
|
|
*/
|
||
|
|
u2_weak // transfer
|
||
|
|
u2_nk_nold(u2_wire wir_r,
|
||
|
|
u2_weak bus, // transfer
|
||
|
|
u2_weak fol); // retain
|
||
|
|
|
||
|
|
/* u2_nk_mung():
|
||
|
|
**
|
||
|
|
** Compute `(nock gat(-< sam) +.gat)` - old calling convention.
|
||
|
|
*/
|
||
|
|
u2_weak // transfer
|
||
|
|
u2_nk_mung(u2_wire wir_r,
|
||
|
|
u2_weak gat, // retain
|
||
|
|
u2_weak sam); // transfer
|
||
|
|
|
||
|
|
/* u2_nk_mong():
|
||
|
|
**
|
||
|
|
** Compute `(nock gat(-> sam) +.gat)` - new calling convention.
|
||
|
|
*/
|
||
|
|
u2_weak // transfer
|
||
|
|
u2_nk_mong(u2_wire wir_r,
|
||
|
|
u2_weak gat, // retain
|
||
|
|
u2_weak sam); // transfer
|
||
|
|
|
||
|
|
/* u2_nk_kick():
|
||
|
|
**
|
||
|
|
** Fire `gat` without changing the sample.
|
||
|
|
*/
|
||
|
|
u2_weak // transfer
|
||
|
|
u2_nk_kick(u2_wire wir_r,
|
||
|
|
u2_weak gat); // retain
|