From 8ba6ac8952e3457b1a09e30ac5312168d48006d1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 16 May 2018 00:11:49 -0400
Subject: - Migrated structure analysis to stdlib. - Added an easy way to
 report information in exceptions.

---
 new-luxc/source/luxc/lang/analysis.lux | 111 ---------------------------------
 1 file changed, 111 deletions(-)
 delete mode 100644 new-luxc/source/luxc/lang/analysis.lux

(limited to 'new-luxc/source/luxc/lang/analysis.lux')

diff --git a/new-luxc/source/luxc/lang/analysis.lux b/new-luxc/source/luxc/lang/analysis.lux
deleted file mode 100644
index 369e9dd7e..000000000
--- a/new-luxc/source/luxc/lang/analysis.lux
+++ /dev/null
@@ -1,111 +0,0 @@
-(.module:
-  lux
-  (lux [function]
-       (data (coll [list "list/" Fold<List>]))
-       (macro [code]))
-  (luxc (lang [".L" variable #+ Variable])))
-
-(type: #export Pattern Code)
-
-(type: #export Analysis Code)
-
-## Variants get analysed as binary sum types for the sake of semantic
-## simplicity.
-## This is because you can encode a variant of any size using just
-## binary sums by nesting them.
-
-(do-template [<name> <side>]
-  [(def: (<name> inner)
-     (-> Analysis Analysis)
-     (` (<side> (~ inner))))]
-
-  [sum-left  "lux sum left"]
-  [sum-right "lux sum right"])
-
-(def: (local-variable idx)
-  (-> Nat Int)
-  (nat-to-int idx))
-
-(def: #export (sum tag size temp value)
-  (-> Nat Nat Nat Analysis Analysis)
-  (if (n/= (n/dec size) tag)
-    (if (n/= +1 tag)
-      (sum-right value)
-      (list/fold (function.const sum-left)
-                 (sum-right value)
-                 (list.n/range +0 (n/- +2 tag))))
-    (list/fold (function.const sum-left)
-               (case value
-                 (^or (^code ("lux sum left" (~ inner)))
-                      (^code ("lux sum right" (~ inner))))
-                 (` ("lux case" (~ value)
-                     {("lux case bind" (~ (code.nat temp)))
-                      ((~ (code.int (local-variable temp))))}))
-
-                 _
-                 value)
-               (list.n/range +0 tag))))
-
-## Tuples get analysed into binary products for the sake of semantic
-## simplicity, since products/pairs can encode tuples of any length
-## through nesting.
-
-(def: #export (product members)
-  (-> (List Analysis) Analysis)
-  (case members
-    #.Nil
-    (` [])
-
-    (#.Cons singleton #.Nil)
-    singleton
-
-    (#.Cons left right)
-    (` [(~ left) (~ (product right))])))
-
-## Function application gets analysed into single-argument
-## applications, since every other kind of application can be encoded
-## into a finite series of single-argument applications.
-
-(def: #export (apply args func)
-  (-> (List Analysis) Analysis Analysis)
-  (list/fold (function (_ arg func)
-               (` ("lux apply" (~ arg) (~ func))))
-             func
-             args))
-
-(def: #export (procedure name args)
-  (-> Text (List Analysis) Analysis)
-  (` ((~ (code.text name)) (~+ args))))
-
-(def: #export (var idx)
-  (-> Variable Analysis)
-  (` ((~ (code.int idx)))))
-
-(def: #export (unfold-tuple analysis)
-  (-> Analysis (List Analysis))
-  (case analysis
-    (^code [(~ left) (~ right)])
-    (#.Cons left (unfold-tuple right))
-
-    _
-    (list analysis)))
-
-(def: #export (unfold-variant analysis)
-  (-> Analysis (Maybe [Nat Bool Analysis]))
-  (loop [so-far +0
-         variantA analysis]
-    (case variantA
-      (^code ("lux sum left" (~ valueA)))
-      (case valueA
-        (^or (^code ("lux sum left" (~ _)))
-             (^code ("lux sum right" (~ _))))
-        (recur (n/inc so-far) valueA)
-
-        _
-        (#.Some [so-far false valueA]))
-      
-      (^code ("lux sum right" (~ valueA)))
-      (#.Some [(n/inc so-far) true valueA])
-
-      _
-      #.None)))
-- 
cgit v1.2.3