Replaced "contains?" function with "key?" function.

1 files changed, 46 insertions, 1 deletions

diff --git a/stdlib/source/lux/tool/compiler/version.lux b/stdlib/source/lux/tool/compiler/version.lux
index 3965b9b28..df405e75d 100644
--- a/stdlib/source/lux/tool/compiler/version.lux
+++ b/stdlib/source/lux/tool/compiler/version.lux
@@ -1,5 +1,50 @@
 (.module:
-  [lux #*])
+  [lux #*
+   [data
+    [number
+     ["n" nat]]
+    [text
+     ["%" format]]]])
 
 (type: #export Version
   Nat)
+
+(def: range 100)
+
+(def: level
+  (n.% ..range))
+
+(def: current
+  (-> Nat Nat)
+  (|>>))
+
+(def: next
+  (n./ ..range))
+
+(def: #export patch
+  (-> Version Nat)
+  (|>> ..current ..level))
+
+(def: #export minor
+  (-> Version Nat)
+  (|>> ..next ..level))
+
+(def: #export major
+  (-> Version Nat)
+  (|>> ..next ..next ..level))
+
+(def: separator ".")
+
+(def: (padded value)
+  (-> Nat Text)
+  (if (n.< 10 value)
+    (%.format "0" (%.nat value))
+    (%.nat value)))
+
+(def: #export (format version)
+  (%.Format Version)
+  (%.format (..padded (..major version))
+            ..separator
+            (..padded (..minor version))
+            ..separator
+            (..padded (..patch version))))