Updates to the Lua compiler.

1 files changed, 69 insertions, 0 deletions

diff --git a/stdlib/source/documentation/lux/world/output/video/resolution.lux b/stdlib/source/documentation/lux/world/output/video/resolution.lux
new file mode 100644
index 000000000..6425902c8
--- /dev/null
+++ b/stdlib/source/documentation/lux/world/output/video/resolution.lux
@@ -0,0 +1,69 @@
+(.module:
+  [library
+   [lux #*
+    ["$" documentation (#+ documentation:)]
+    [control
+     ["<>" parser
+      ["<.>" code]]]
+    [data
+     ["." text (#+ \n)
+      ["%" format (#+ format)]]]
+    [macro
+     ["." template]]]]
+  [\\library
+   ["." /]])
+
+(documentation: /.Resolution
+  "A screen resolution.")
+
+(template [<name>]
+  [(documentation: <name>
+     (let [name (|> (template.text [<name>])
+                    (text.replaced "/" " ")
+                    (text.replaced "_" " ")
+                    text.upper_cased)]
+       (format name " resolution: "
+               (%.nat (value@ #/.width <name>))
+               "x" (%.nat (value@ #/.height <name>))
+               ".")))]
+
+  [/.svga]
+  [/.wsvga]
+  [/.xga]
+  [/.xga+]
+  [/.wxga/16:9]
+  [/.wxga/5:3]
+  [/.wxga/16:10]
+  [/.sxga]
+  [/.wxga+]
+  [/.hd+]
+  [/.wsxga+]
+  [/.fhd]
+  [/.wuxga]
+  [/.wqhd]
+  [/.uhd_4k]
+  )
+
+(.def: .public documentation
+  (.List $.Module)
+  ($.module /._
+            ""
+            [..Resolution
+             ..svga
+             ..wsvga
+             ..xga
+             ..xga+
+             ..wxga/16:9
+             ..wxga/5:3
+             ..wxga/16:10
+             ..sxga
+             ..wxga+
+             ..hd+
+             ..wsxga+
+             ..fhd
+             ..wuxga
+             ..wqhd
+             ..uhd_4k
+             ($.default /.hash)
+             ($.default /.equivalence)]
+            []))