tomo/test/lang.tm

lang HTML:
	HEADER := $HTML$"<!DOCTYPE HTML>"
	func escape(t:Text)->HTML:
		t = t:replace("&", "&amp;")
		t = t:replace("<", "&lt;")
		t = t:replace(">", "&gt;")
		t = t:replace('"', "&quot;")
		t = t:replace("'", "&#39;")
		return HTML.from_unsafe_text(t)

	func escape_int(i:Int)->HTML:
		return HTML.from_unsafe_text("{i}")
	
	func paragraph(content:HTML)->HTML:
		return $HTML$"<p>$content</p>"

func main():
	>> HTML.HEADER
	= $HTML"<!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{}"{3_i8}"
	= $HTML"3"

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

	>> Text(html)
	= "$HTML\"Hello I &lt;3 hax!\""
Syntax tweak: use ':' for blocks 2024-04-28 11:58:55 -07:00			`lang HTML:`
Tweak test code 2024-08-18 09:52:53 -07:00			`HEADER := $HTML$"<!DOCTYPE HTML>"`
Syntax tweak: use ':' for blocks 2024-04-28 11:58:55 -07:00			`func escape(t:Text)->HTML:`
Add lang tests 2024-03-09 16:03:35 -08:00			`t = t:replace("&", "&")`
			`t = t:replace("<", "<")`
			`t = t:replace(">", ">")`
			`t = t:replace('"', """)`
			`t = t:replace("'", "'")`
			`return HTML.from_unsafe_text(t)`

Syntax tweak: use ':' for blocks 2024-04-28 11:58:55 -07:00			`func escape_int(i:Int)->HTML:`
Add lang tests 2024-03-09 16:03:35 -08:00			`return HTML.from_unsafe_text("{i}")`

Syntax tweak: use ':' for blocks 2024-04-28 11:58:55 -07:00			`func paragraph(content:HTML)->HTML:`
Tweak test code 2024-08-18 09:52:53 -07:00			`return $HTML$"<p>$content</p>"`
Add lang tests 2024-03-09 16:03:35 -08:00
Syntax tweak: use ':' for blocks 2024-04-28 11:58:55 -07:00			`func main():`
Introducing the main() function 2024-04-12 10:09:31 -07:00			`>> HTML.HEADER`
			`= $HTML"<!DOCTYPE HTML>"`
Add lang tests 2024-03-09 16:03:35 -08:00
Introducing the main() function 2024-04-12 10:09:31 -07:00			`>> user := "I <3 hax"`
Tweak test code 2024-08-18 09:52:53 -07:00			`>> html := $HTML$"Hello $user!"`
Introducing the main() function 2024-04-12 10:09:31 -07:00			`= $HTML"Hello I <3 hax!"`
Tweak test code 2024-08-18 09:52:53 -07:00			`>> html ++ $HTML$"<br>"`
Introducing the main() function 2024-04-12 10:09:31 -07:00			`= $HTML"Hello I <3 hax!<br>"`
Add lang tests 2024-03-09 16:03:35 -08:00
Introducing the main() function 2024-04-12 10:09:31 -07:00			`>> $HTML{}"{1 + 2}"`
			`= $HTML"3"`
Add lang tests 2024-03-09 16:03:35 -08:00
Introducing the main() function 2024-04-12 10:09:31 -07:00			`>> $HTML{}"{3_i8}"`
			`= $HTML"3"`
Add lang tests 2024-03-09 16:03:35 -08:00
Introducing the main() function 2024-04-12 10:09:31 -07:00			`>> html:paragraph()`
			`= $HTML"<p>Hello I <3 hax!</p>"`
Tweak test code 2024-08-18 09:52:53 -07:00
			`>> Text(html)`
			`= "$HTML\"Hello I <3 hax!\""`