From 824482b2e8b13e42a524a5e4945ea3e172395c9e Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 15 May 2017 22:19:14 -0400
Subject: WIP - Simplified the Analysis type, by removing all meta-data. -
 Added analysis of function calls. - Added analysis of common Lux procedures.
 - Lots of refactoring.

---
 new-luxc/source/luxc/analyser/reference.lux | 51 +++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 new-luxc/source/luxc/analyser/reference.lux

(limited to 'new-luxc/source/luxc/analyser/reference.lux')

diff --git a/new-luxc/source/luxc/analyser/reference.lux b/new-luxc/source/luxc/analyser/reference.lux
new file mode 100644
index 000000000..ea0505c3b
--- /dev/null
+++ b/new-luxc/source/luxc/analyser/reference.lux
@@ -0,0 +1,51 @@
+(;module:
+  lux
+  (lux (control monad)
+       [macro #+ Monad<Lux>]
+       (type ["TC" check]))
+  (luxc ["&" base]
+        (lang ["la" analysis #+ Analysis])
+        ["&;" env]))
+
+## [Analysers]
+(def: (analyse-definition def-name)
+  (-> Ident (Lux Analysis))
+  (do Monad<Lux>
+    [actual (macro;find-def-type def-name)
+     expected macro;expected-type
+     _ (&;within-type-env
+        (TC;check expected actual))]
+    (wrap (#la;Absolute def-name))))
+
+(def: (analyse-variable var-name)
+  (-> Text (Lux (Maybe Analysis)))
+  (do Monad<Lux>
+    [?var (&env;find var-name)]
+    (case ?var
+      (#;Some [actual ref])
+      (do @
+        [expected macro;expected-type
+         _ (&;within-type-env
+            (TC;check expected actual))]
+        (wrap (#;Some (#la;Relative ref))))
+
+      #;None
+      (wrap #;None))))
+
+(def: #export (analyse-reference reference)
+  (-> Ident (Lux Analysis))
+  (case reference
+    ["" simple-name]
+    (do Monad<Lux>
+      [?var (analyse-variable simple-name)]
+      (case ?var
+        (#;Some analysis)
+        (wrap analysis)
+
+        #;None
+        (do @
+          [this-module macro;current-module-name]
+          (analyse-definition [this-module simple-name]))))
+
+    _
+    (analyse-definition reference)))
-- 
cgit v1.2.3