mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 12:43:31 +03:00
87 lines
1.9 KiB
C
87 lines
1.9 KiB
C
/* j/6/ut.c
|
|
**
|
|
** This file is in the public domain.
|
|
*/
|
|
#include "all.h"
|
|
|
|
|
|
// duck: create a duck core for mean.
|
|
//
|
|
u3_noun
|
|
u3_cqfu_duck(
|
|
u3_noun van,
|
|
u3_noun typ)
|
|
{
|
|
u3_noun von = u3_ci_molt(u3k(van), u3_cv_sam, u3k(typ), 0);
|
|
u3_noun ret = u3_cj_hook(u3k(von), "dune");
|
|
|
|
u3z(von);
|
|
return ret;
|
|
}
|
|
|
|
// dung: create a dunk core for mean (noun caption)
|
|
//
|
|
u3_noun
|
|
u3_cqfu_dung(
|
|
u3_noun van,
|
|
u3_noun paz,
|
|
u3_noun typ)
|
|
{
|
|
u3_noun von = u3_ci_molt(u3k(van), u3_cv_sam, u3k(typ), 0);
|
|
u3_noun duq = u3_cj_hook(u3k(von), "dunk");
|
|
u3_noun ret = u3_ci_molt(u3k(duq), u3_cv_sam, u3k(paz), 0);
|
|
|
|
u3z(duq);
|
|
u3z(von);
|
|
return ret;
|
|
}
|
|
|
|
// dunq: create a dunk core for mean
|
|
//
|
|
u3_noun
|
|
u3_cqfu_dunq(
|
|
u3_noun van,
|
|
const c3_c* paz_c,
|
|
u3_noun typ)
|
|
{
|
|
u3_noun von = u3_ci_molt(u3k(van), u3_cv_sam, u3k(typ), 0);
|
|
u3_noun duq = u3_cj_hook(u3k(von), "dunk");
|
|
u3_noun paz = u3_ci_string(paz_c);
|
|
u3_noun ret = u3_ci_molt(u3k(duq), u3_cv_sam, u3k(paz), 0);
|
|
|
|
u3z(paz);
|
|
u3z(duq);
|
|
u3z(von);
|
|
return ret;
|
|
}
|
|
|
|
// shew: create a show core for mean
|
|
//
|
|
u3_noun
|
|
u3_cqfu_shew(u3_noun van, u3_noun mol)
|
|
{
|
|
u3_noun sho = u3_cj_hook(u3k(van), "show");
|
|
u3_noun ret = u3_ci_molt(u3k(sho), u3_cv_sam, u3k(mol), 0);
|
|
|
|
u3z(sho);
|
|
u3z(mol);
|
|
return ret;
|
|
}
|
|
|
|
// shep: show with caption and style
|
|
//
|
|
u3_noun
|
|
u3_cqfu_shep(
|
|
u3_noun van,
|
|
const c3_c* paz_c,
|
|
u3_noun sty,
|
|
u3_noun mol)
|
|
{
|
|
return u3_cqfu_shew
|
|
(van,
|
|
u3nc
|
|
(u3nc('c', u3_ci_string(paz_c)),
|
|
u3nc(u3k(sty), mol)));
|
|
}
|
|
|