1 /* j/6/ut.c
2 **
3 */
4 #include "all.h"
5 
6   extern void
7   u3_pier_tank(c3_l tab_l, u3_noun tac);
8 
9 
10   //  duck: create a duck core for mean.
11   //
12   u3_noun
u3qfu_duck(u3_noun van,u3_noun typ)13   u3qfu_duck(u3_noun     van,
14              u3_noun     typ)
15   {
16     u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(typ), 0);
17     u3_noun ret = u3j_hook(u3k(von), "dune");
18 
19     u3z(von);
20     return ret;
21   }
22 
23   //  dung: create a dunk core for mean (noun caption)
24   //
25   u3_noun
u3qfu_dung(u3_noun van,u3_noun paz,u3_noun typ)26   u3qfu_dung(u3_noun     van,
27              u3_noun     paz,
28              u3_noun     typ)
29   {
30     u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(typ), 0);
31     u3_noun duq = u3j_hook(u3k(von), "dunk");
32     u3_noun ret = u3i_molt(u3k(duq), u3x_sam, u3k(paz), 0);
33 
34     u3z(duq);
35     u3z(von);
36     return ret;
37   }
38 
39   //  dunq: create a dunk core for mean
40   //
41   u3_noun
u3qfu_dunq(u3_noun van,const c3_c * paz_c,u3_noun typ)42   u3qfu_dunq(u3_noun     van,
43              const c3_c* paz_c,
44              u3_noun     typ)
45   {
46     u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(typ), 0);
47     u3_noun duq = u3j_hook(u3k(von), "dunk");
48     u3_noun paz = u3i_string(paz_c);
49     u3_noun ret = u3i_molt(u3k(duq), u3x_sam, u3k(paz), 0);
50 
51     u3z(paz);
52     u3z(duq);
53     u3z(von);
54     return ret;
55   }
56 
57   //  dump: dump a type.
58   //
59   void
u3qfu_dump(u3_noun van,const c3_c * paz_c,u3_noun typ)60   u3qfu_dump(u3_noun     van,
61              const c3_c* paz_c,
62              u3_noun     typ)
63   {
64     c3_c* pfix_c = u3r_string((c3y == u3du(typ)) ? u3h(typ) : typ);
65     c3_c ugh_c[1024];
66 
67     sprintf(ugh_c, "%s: %s: 0x%8x:",
68             paz_c, pfix_c, u3r_mug(typ));
69 #if 0
70     u3_pier_tank(0, u3n_kick_on(u3qfu_dunq(van, ugh_c, typ)));
71 #endif
72   }
73 
74   //  shew: create a show core for mean
75   //
76   u3_noun
u3qfu_shew(u3_noun van,u3_noun mol)77   u3qfu_shew(u3_noun van,
78              u3_noun mol)
79   {
80     u3_noun sho = u3j_hook(u3k(van), "show");
81     u3_noun ret = u3i_molt(u3k(sho), u3x_sam, u3k(mol), 0);
82 
83     u3z(sho);
84     u3z(mol);
85     return ret;
86   }
87 
88   //  shep: show with caption and style
89   //
90   u3_noun
u3qfu_shep(u3_noun van,const c3_c * paz_c,u3_noun sty,u3_noun mol)91   u3qfu_shep(u3_noun     van,
92              const c3_c* paz_c,
93              u3_noun     sty,
94              u3_noun     mol)
95   {
96     return u3qfu_shew(van,
97                       u3nc(u3nc('c', u3i_string(paz_c)),
98                            u3nc(u3k(sty), mol)));
99   }
100 
101