From a2faef20e0646a74dca82a0508a9892a8acc32f0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 14 Dec 2014 16:27:49 -0400
Subject: Added Java class imports.

---
 src/lang/analyser.clj | 24 +++++++++++++++++++++---
 1 file changed, 21 insertions(+), 3 deletions(-)

(limited to 'src/lang/analyser.clj')

diff --git a/src/lang/analyser.clj b/src/lang/analyser.clj
index c40fccffb..abf8fa638 100644
--- a/src/lang/analyser.clj
+++ b/src/lang/analyser.clj
@@ -1,6 +1,7 @@
 (ns lang.analyser
   (:refer-clojure :exclude [resolve])
   (:require [clojure.core.match :refer [match]]
+            [clojure.string :as string]
             (lang [util :as &util :refer [exec return* return fail fail*
                                           repeat-m try-m try-all-m map-m
                                           apply-m within]]
@@ -40,6 +41,13 @@
         _
         =return))))
 
+(defn ^:private import-class [long-name short-name]
+  (fn [state]
+    (let [=class (annotated [::class long-name] ::&type/nothing)]
+      [::&util/ok [(update-in state [:env :mappings] merge {long-name =class,
+                                                            short-name =class})
+                   nil]])))
+
 (defn ^:private resolve [ident]
   (fn [state]
     (if-let [resolved (get-in state [:env :mappings ident])]
@@ -88,8 +96,12 @@
   (return (annotated [::ann-class ?class ?members] ::&type/nothing)))
 
 (defanalyser analyse-static-access
-  [::&parser/static-access ?class ?member]
-  (return (annotated [::static-access ?class ?member] ::&type/nothing)))
+  [::&parser/static-access ?target ?member]
+  (exec [=target (resolve ?target)
+         :let [_ (prn '=target ?target (:form =target))]]
+    (match (:form =target)
+      [::class ?class]
+      (return (annotated [::static-access ?class ?member] ::&type/nothing)))))
 
 (defanalyser analyse-dynamic-access
   [::&parser/dynamic-access ?object ?member]
@@ -173,6 +185,11 @@
         (return (annotated [::def [?name args] =value] ::&type/nothing))))
     ))
 
+(defanalyser analyse-import
+  [::&parser/import ?class]
+  (exec [_ (import-class ?class (last (string/split ?class #"\.")))]
+    (return (annotated [::import ?class] ::&type/nothing))))
+
 (def ^:private analyse-form
   (try-all-m [analyse-boolean
               analyse-string
@@ -186,7 +203,8 @@
               analyse-let
               analyse-defclass
               analyse-definterface
-              analyse-def]))
+              analyse-def
+              analyse-import]))
 
 ;; [Interface]
 (defn analyse [module-name tokens]
-- 
cgit v1.2.3