test/lang.tm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

lang HTML:
	HEADER := $HTML"<!DOCTYPE HTML>"
	func HTML(t:Text->HTML):
		t = t:replace_all({
			$/&/="&amp;",
			$/</="&lt;",
			$/>/="&gt;",
			$/"/="&quot",
			$/'/="&#39;",
		})

		return HTML.without_escaping(t)

	func HTML(i:Int->HTML):
		return HTML.without_escaping("$i")
	
	func paragraph(content:HTML->HTML):
		return $HTML"<p>$content</p>"

struct Bold(text:Text):
	func HTML(b:Bold -> HTML):
		return $HTML"<b>$(b.text)</b>"

func main():
	>> HTML.HEADER
	= $HTML"<!DOCTYPE HTML>"

	>> HTML.HEADER[1]
	= $HTML"<"

	>> HTML.HEADER.text
	= "<!DOCTYPE HTML>"

	>> user := "I <3 hax"
	>> html := $HTML"Hello $user!"
	= $HTML"Hello I &lt;3 hax!"
	>> html ++ $HTML"<br>"
	= $HTML"Hello I &lt;3 hax!<br>"

	>> $HTML"$(1 + 2)"
	= $HTML"3"

	>> $HTML"$(Int8(3))"
	= $HTML"3"

	>> html:paragraph()
	= $HTML"<p>Hello I &lt;3 hax!</p>"

	>> Text(html)
	= '$HTML"Hello I &lt;3 hax!"'

	>> b := Bold("Some <text> with junk")
	>> $HTML"Your text: $b"
	= $HTML"Your text: <b>Some &lt;text&gt; with junk</b>"