git.iko.soy/urbit.org
on 492ae2f help sign in
urbit.org/docs/programming/reference/library/src/4b/gate/wood.md
53 lines 845 B history raw
1### `++wood`
3Escape cord
5Escape `++cord` codepoints.
7Accepts
8-------
10`a` is a `++span` (`@ta`).
12Produces
13--------
15A `++span` (`@ta`).
17Source
18------
20 ++ wood :: cord format
21 |= a/@t
22 ^- @ta
23 %+ rap 3
24 |- ^- (list @)
25 ?: =(`@`0 a)
26 ~
27 =+ b=(teff a)
28 =+ c=(turf (end 3 b a))
29 =+ d=$(a (rsh 3 b a))
30 ?: ?| &((gte c 'a') (lte c 'z'))
31 &((gte c '0') (lte c '9'))
32 =(`@`'-' c)
33 ==
34 [c d]
35 ?+ c
36 :- '~'
37 =+ e=(met 2 c)
38 |- ^- tape
39 ?: =(0 e)
40 ['.' d]
41 =. e (dec e)
42 =+ f=(rsh 2 e c)
43 [(add ?:((lte f 9) 48 87) f) $(c (end 2 e c))]
44 ::
46Examples
47--------
49 /~zod/try=> (wood 'my ßam')
50 ~.my.~df.am
53***