tomo/test/lang.tm

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

		return HTML.without_escaping(t)

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

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

	>> HTML.HEADER.text_content
	= "<!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[8])"
	= $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:`
Improved syntax for dollar-string literals 2024-08-18 11:44:15 -07:00			`HEADER := $HTML"<!DOCTYPE HTML>"`
Change function syntax from `func(args)->ret` to `func(args -> ret)` 2024-10-09 10:26:28 -07:00			`func escape(t:Text->HTML):`
Add Text.replace_all({Pattern:Text}) and tweak API for replacement to support placeholders 2024-09-03 17:48:11 -07:00			`t = t:replace_all({`
			`$/&/: "&",`
			`$/</: "<",`
			`$/>/: ">",`
			`$/"/: "&quot",`
			`$/'/: "'",`
			`})`

Rename `from_unsafe_text` to `without_escaping` 2024-09-24 10:26:49 -07:00			`return HTML.without_escaping(t)`
Add lang tests 2024-03-09 16:03:35 -08:00
Change function syntax from `func(args)->ret` to `func(args -> ret)` 2024-10-09 10:26:28 -07:00			`func escape_int(i:Int->HTML):`
Rename `from_unsafe_text` to `without_escaping` 2024-09-24 10:26:49 -07:00			`return HTML.without_escaping("$i")`
Add lang tests 2024-03-09 16:03:35 -08:00
Change function syntax from `func(args)->ret` to `func(args -> ret)` 2024-10-09 10:26:28 -07:00			`func paragraph(content:HTML->HTML):`
Improved syntax for dollar-string literals 2024-08-18 11:44:15 -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
Add .text_content as a field on DSLs instead of a method 2024-08-19 11:29:58 -07:00			`>> HTML.HEADER.text_content`
			`= "<!DOCTYPE HTML>"`

Introducing the main() function 2024-04-12 10:09:31 -07:00			`>> user := "I <3 hax"`
Improved syntax for dollar-string literals 2024-08-18 11:44:15 -07:00			`>> html := $HTML"Hello $user!"`
Introducing the main() function 2024-04-12 10:09:31 -07:00			`= $HTML"Hello I <3 hax!"`
Improved syntax for dollar-string literals 2024-08-18 11:44:15 -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
Improved syntax for dollar-string literals 2024-08-18 11:44:15 -07:00			`>> $HTML"$(1 + 2)"`
Introducing the main() function 2024-04-12 10:09:31 -07:00			`= $HTML"3"`
Add lang tests 2024-03-09 16:03:35 -08:00
Add a Byte datatype 2024-09-15 12:33:47 -07:00			`>> $HTML"$(3[8])"`
Introducing the main() function 2024-04-12 10:09:31 -07:00			`= $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)`
Improve automatic text quoting so it minimizes escape sequences when possible. 2024-09-15 11:03:16 -07:00			`= '$HTML"Hello I <3 hax!"'`