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