tomo/test/lang.tm

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

		return HTML.without_escaping(t)

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

struct Bold(text:Text):
	convert(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>"
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>"`
Add `convert` keyword for defining conversions 2025-03-10 09:42:45 -07:00			`convert(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({`
Change table syntax to `{key=value}` and `{:K,V}`/`{K,V}` 2025-01-12 13:49:58 -08:00			`$/&/="&",`
			`$/</="<",`
			`$/>/=">",`
			`$/"/="&quot",`
			`$/'/="'",`
Add Text.replace_all({Pattern:Text}) and tweak API for replacement to support placeholders 2024-09-03 17:48:11 -07:00			`})`

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
Add `convert` keyword for defining conversions 2025-03-10 09:42:45 -07:00			`convert(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
Support post-hoc definitions of escaping rules for DSLs 2025-03-01 13:04:14 -08:00			`struct Bold(text:Text):`
Add `convert` keyword for defining conversions 2025-03-10 09:42:45 -07:00			`convert(b:Bold -> HTML):`
Support post-hoc definitions of escaping rules for DSLs 2025-03-01 13:04:14 -08:00			`return $HTML"<b>$(b.text)</b>"`

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 lang test for indexing 2024-12-26 14:32:10 -08:00			`>> HTML.HEADER[1]`
			`= $HTML"<"`

Change `lang.text_content` to `lang.text` 2025-03-01 13:53:58 -08:00			`>> HTML.HEADER.text`
Add .text_content as a field on DSLs instead of a method 2024-08-19 11:29:58 -07:00			`= "<!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
Deprecate bit-width integer/num literals in favor of using type constructors 2024-11-05 12:18:32 -08:00			`>> $HTML"$(Int8(3))"`
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!"'`
Support post-hoc definitions of escaping rules for DSLs 2025-03-01 13:04:14 -08:00
			`>> b := Bold("Some <text> with junk")`
			`>> $HTML"Your text: $b"`
			`= $HTML"Your text: <b>Some <text> with junk</b>"`