Moved documentation-generation machinery to its own module.

1 files changed, 31 insertions, 0 deletions

diff --git a/stdlib/source/documentation/lux.lux b/stdlib/source/documentation/lux.lux
new file mode 100644
index 000000000..5131a9607
--- /dev/null
+++ b/stdlib/source/documentation/lux.lux
@@ -0,0 +1,31 @@
+(.module:
+  [library
+   [lux
+    [program (#+ program:)]
+    ["$" documentation (#+ documentation:)]
+    ["." debug]
+    [control
+     ["." io]]]]
+  [\\library
+   ["." /]]
+  ["." / #_
+   ["#." abstract]])
+
+(documentation: /.:of
+  "Generates the type corresponding to a given expression."
+  [(let [my_num +123]
+     (:of my_num))
+   "=>"
+   .Int]
+  [(:of +123)
+   "=>"
+   .Int])
+
+(.def: .public documentation
+  (.List $.Module)
+  ($.module /._
+            [..:of]
+            [/abstract.documentation]))
+
+(program: inputs
+  (io.io (debug.log! ($.documentation ..documentation))))