git.iko.soy/urbit.org
on 8e080d6 help sign in
urbit.org/docs/programming/reference/library/src/4c/gate/show.md
105 lines 3.0 kB history raw
1### `++show`
3 ++ show :: XX deprecated, use span
4 |= vem/*
5 |^ ^- tank
6 ?: ?=(@ vem)
7 [%leaf (mesc (trip vem))]
8 ?- vem
9 {s/$~ c/*}
10 [%leaf '\'' (weld (mesc (tape +.vem)) `tape`['\'' ~])]
11 ::
12 {s/$a c/@} [%leaf (mesc (trip c.vem))]
13 {s/$b c/*} (shop c.vem |=(a/@ ~(rub at a)))
14 {s/{$c p/@} c/*}
15 :+ %palm
16 [['.' ~] ['-' ~] ~ ~]
17 [[%leaf (mesc (trip p.s.vem))] $(vem c.vem) ~]
18 ::
19 {s/$d c/*} (shop c.vem |=(a/@ ~(rud at a)))
20 {s/$k c/*} (tank c.vem)
21 {s/$h c/*}
22 :+ %rose
23 [['/' ~] ['/' ~] ~]
24 =+ yol=((list @ta) c.vem)
25 (turn yol |=(a/@ta [%leaf (trip a)]))
26 ::
27 {s/$l c/*} (shol c.vem)
28 {s/$o c/*}
29 %= $
30 vem
31 :- [%m '%h:<[%d %d].[%d %d]>']
32 [-.c.vem +<-.c.vem +<+.c.vem +>-.c.vem +>+.c.vem ~]
33 ==
34 ::
35 {s/$p c/*} (shop c.vem |=(a/@ ~(rup at a)))
36 {s/$q c/*} (shop c.vem |=(a/@ ~(r at a)))
37 {s/$r c/*} $(vem [[%r ' ' '{' '}'] c.vem])
38 {s/$t c/*} (shop c.vem |=(a/@ ~(rt at a)))
39 {s/$v c/*} (shop c.vem |=(a/@ ~(ruv at a)))
40 {s/$x c/*} (shop c.vem |=(a/@ ~(rux at a)))
41 {s/{$m p/@} c/*} (shep p.s.vem c.vem)
42 {s/{$r p/@} c/*}
43 $(vem [[%r ' ' (cut 3 [0 1] p.s.vem) (cut 3 [1 1] p.s.vem)] c.vem])
44 ::
45 {s/{$r p/@ q/@ r/@} c/*}
46 :+ %rose
47 :* p=(mesc (trip p.s.vem))
48 q=(mesc (trip q.s.vem))
49 r=(mesc (trip r.s.vem))
50 ==
51 |- ^- (list tank)
52 ?@ c.vem
53 ~
54 [^$(vem -.c.vem) $(c.vem +.c.vem)]
55 ::
56 {s/$z c/*} $(vem [[%r %$ %$ %$] c.vem])
57 * !!
58 ==
60XX document
62### `++shep`
64 ++ shep
65 |= {fom/@ gar/*}
66 ^- tank
67 =+ l=(met 3 fom)
68 =+ i=0
69 :- %leaf
70 |- ^- tape
71 ?: (gte i l)
72 ~
73 =+ c=(cut 3 [i 1] fom)
74 ?. =(37 c)
75 (weld (mesc [c ~]) $(i +(i)))
76 =+ d=(cut 3 [+(i) 1] fom)
77 ?. .?(gar)
78 ['\\' '#' $(i (add 2 i))]
79 (weld ~(ram re (show d -.gar)) $(i (add 2 i), gar +.gar))
80 ::
82XX document
84### `++shop`
86 ++ shop
87 |= {aug/* vel/$-(a/@ tape)}
88 ^- tank
89 ?: ?=(@ aug)
90 [%leaf (vel aug)]
91 :+ %rose
92 [[' ' ~] ['[' ~] [']' ~]]
93 => .(aug `*`aug)
94 |- ^- (list tank)
95 ?: ?=(@ aug)
96 [^$ ~]
97 [^$(aug -.aug) $(aug +.aug)]
98 ::
101XX document
105***