From f5a6fe62a612c0727063fa9e530d53ddda5fcd82 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 6 May 2018 02:01:02 -0400
Subject: - Removed "lux text upper" and "lux text lower" procedures.

---
 luxc/src/lux/analyser/proc/common.clj     | 17 -----------------
 luxc/src/lux/compiler/js/proc/common.clj  | 14 --------------
 luxc/src/lux/compiler/jvm/proc/common.clj | 16 ----------------
 3 files changed, 47 deletions(-)

(limited to 'luxc/src')

diff --git a/luxc/src/lux/analyser/proc/common.clj b/luxc/src/lux/analyser/proc/common.clj
index 94eadb72c..80271f9e7 100644
--- a/luxc/src/lux/analyser/proc/common.clj
+++ b/luxc/src/lux/analyser/proc/common.clj
@@ -110,21 +110,6 @@
   ^:private analyse-text-hash "hash"
   )
 
-(do-template [<name> <proc>]
-  (defn <name> [analyse exo-type ?values]
-    (|do [:let [(&/$Cons text (&/$Nil)) ?values]
-          =text (&&/analyse-1 analyse &type/Text text)
-          _ (&type/check exo-type &type/Text)
-          _cursor &/cursor]
-      (return (&/|list (&&/|meta exo-type _cursor
-                                 (&&/$proc (&/T ["text" <proc>])
-                                           (&/|list =text)
-                                           (&/|list)))))))
-
-  ^:private analyse-text-upper "upper"
-  ^:private analyse-text-lower "lower"
-  )
-
 (defn ^:private analyse-text-char [analyse exo-type ?values]
   (|do [:let [(&/$Cons text (&/$Cons idx (&/$Nil))) ?values]
         =text (&&/analyse-1 analyse &type/Text text)
@@ -511,8 +496,6 @@
          "lux text hash"                 (analyse-text-hash analyse exo-type ?values)
          "lux text replace-all"          (analyse-text-replace-all analyse exo-type ?values)
          "lux text char"                 (analyse-text-char analyse exo-type ?values)
-         "lux text upper"           (analyse-text-upper analyse exo-type ?values)
-         "lux text lower"           (analyse-text-lower analyse exo-type ?values)
          "lux text contains?"            (analyse-text-contains? analyse exo-type ?values)
          
          "lux bit count"                (analyse-bit-count analyse exo-type ?values)
diff --git a/luxc/src/lux/compiler/js/proc/common.clj b/luxc/src/lux/compiler/js/proc/common.clj
index 96261e8d4..7044f8447 100644
--- a/luxc/src/lux/compiler/js/proc/common.clj
+++ b/luxc/src/lux/compiler/js/proc/common.clj
@@ -288,17 +288,6 @@
         =idx (compile ?idx)]
     (return (str "LuxRT$textChar(" (str =text "," =idx) ")"))))
 
-(do-template [<name> <method>]
-  (defn <name> [compile ?values special-args]
-    (|do [:let [(&/$Cons ?text (&/$Nil)) ?values]
-          =text (compile ?text)]
-      (return (str "(" =text ")." <method> "()"))))
-
-  ^:private compile-text-trim       "trim"
-  ^:private compile-text-upper "toUpperCase"
-  ^:private compile-text-lower "toLowerCase"
-  )
-
 (defn ^:private compile-char-to-text [compile ?values special-args]
   (|do [:let [(&/$Cons ?x (&/$Nil)) ?values]
         =x (compile ?x)]
@@ -446,10 +435,7 @@
       "size"                 (compile-text-size compile ?values special-args)
       "hash"                 (compile-text-hash compile ?values special-args)
       "replace-all"          (compile-text-replace-all compile ?values special-args)
-      "trim"                 (compile-text-trim compile ?values special-args)
       "char"                 (compile-text-char compile ?values special-args)
-      "upper"           (compile-text-upper compile ?values special-args)
-      "lower"           (compile-text-lower compile ?values special-args)
       "contains?"            (compile-text-contains? compile ?values special-args)
       )
     
diff --git a/luxc/src/lux/compiler/jvm/proc/common.clj b/luxc/src/lux/compiler/jvm/proc/common.clj
index e9e565f6d..138a56a26 100644
--- a/luxc/src/lux/compiler/jvm/proc/common.clj
+++ b/luxc/src/lux/compiler/jvm/proc/common.clj
@@ -596,20 +596,6 @@
                   &&/wrap-boolean)]]
     (return nil)))
 
-(do-template [<name> <method>]
-  (defn <name> [compile ?values special-args]
-    (|do [:let [(&/$Cons ?text (&/$Nil)) ?values]
-          ^MethodVisitor *writer* &/get-writer
-          _ (compile ?text)
-          :let [_ (doto *writer*
-                    (.visitTypeInsn Opcodes/CHECKCAST "java/lang/String")
-                    (.visitMethodInsn Opcodes/INVOKEVIRTUAL "java/lang/String" <method> "()Ljava/lang/String;"))]]
-      (return nil)))
-
-  ^:private compile-text-upper "toUpperCase"
-  ^:private compile-text-lower "toLowerCase"
-  )
-
 (defn ^:private compile-text-char [compile ?values special-args]
   (|do [:let [(&/$Cons ?text (&/$Cons ?idx (&/$Nil))) ?values]
         ^MethodVisitor *writer* &/get-writer
@@ -841,8 +827,6 @@
       "hash"                 (compile-text-hash compile ?values special-args)
       "replace-all"          (compile-text-replace-all compile ?values special-args)
       "char"                 (compile-text-char compile ?values special-args)
-      "upper"           (compile-text-upper compile ?values special-args)
-      "lower"           (compile-text-lower compile ?values special-args)
       "contains?"            (compile-text-contains? compile ?values special-args)
       )
     
-- 
cgit v1.2.3