aboutsummaryrefslogtreecommitdiff
path: root/new-luxc
diff options
context:
space:
mode:
authorEduardo Julian2018-05-06 02:01:02 -0400
committerEduardo Julian2018-05-06 02:01:02 -0400
commitf5a6fe62a612c0727063fa9e530d53ddda5fcd82 (patch)
tree4c129edee0d68e00e72dd792311ae0c37d71d1dd /new-luxc
parent3f5cb79407289996b107c65ccd14451e4fbd9679 (diff)
- Removed "lux text upper" and "lux text lower" procedures.
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/extension/analysis/common.lux2
-rw-r--r--new-luxc/source/luxc/lang/translation/common-lisp.lux2
-rw-r--r--new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux2
-rw-r--r--new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux2
-rw-r--r--new-luxc/source/luxc/lang/translation/js/procedure/common.jvm.lux5
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux4
-rw-r--r--new-luxc/source/luxc/lang/translation/lua/procedure/common.jvm.lux8
-rw-r--r--new-luxc/source/luxc/lang/translation/php/procedure/common.jvm.lux2
-rw-r--r--new-luxc/source/luxc/lang/translation/python/procedure/common.jvm.lux2
-rw-r--r--new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux2
-rw-r--r--new-luxc/source/luxc/lang/translation/ruby/procedure/common.jvm.lux5
-rw-r--r--new-luxc/source/luxc/lang/translation/scheme/procedure/common.jvm.lux2
-rw-r--r--new-luxc/test/test/luxc/lang/translation/common.lux13
13 files changed, 2 insertions, 49 deletions
diff --git a/new-luxc/source/luxc/lang/extension/analysis/common.lux b/new-luxc/source/luxc/lang/extension/analysis/common.lux
index aa6b6a547..220613dbf 100644
--- a/new-luxc/source/luxc/lang/extension/analysis/common.lux
+++ b/new-luxc/source/luxc/lang/extension/analysis/common.lux
@@ -294,8 +294,6 @@
(install "replace-all" (trinary Text Text Text Text))
(install "char" (binary Text Nat (type (Maybe Nat))))
(install "clip" (trinary Text Nat Nat (type (Maybe Text))))
- (install "upper" (unary Text Text))
- (install "lower" (unary Text Text))
)))
(def: (array//get proc)
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp.lux b/new-luxc/source/luxc/lang/translation/common-lisp.lux
index 4e18c48cf..704dfe91e 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp.lux
@@ -178,7 +178,7 @@
[interpret #interpreter LispObject]
)
-(def: #export variant-tag "lux-variant")
+(def: #export variant-tag "LUX-VARIANT")
(def: #export unit Text "")
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux
index 262f3f284..ee2aac932 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux
@@ -101,7 +101,7 @@
(-> (-> Object (Error Top)) Cons (Error Top))
(let [variant-tag (Cons::car host-object)]
(if (and (host.instance? org/armedbear/lisp/Symbol variant-tag)
- (text/= //.variant-tag (text.lower-case (Symbol::getName [] (:! Symbol variant-tag)))))
+ (text/= //.variant-tag (Symbol::getName [] (:! Symbol variant-tag))))
(do e.Monad<Error>
[#let [host-object (:! Cons (Cons::cdr host-object))]
tag (lux-object (Cons::car host-object))
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux
index 895ed8d72..fe9fe43be 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux
@@ -345,8 +345,6 @@
## (install "replace-all" (trinary text//replace-all))
(install "char" (binary text//char))
(install "clip" (trinary text//clip))
- (install "upper" (unary _.string-upcase/1))
- (install "lower" (unary _.string-downcase/1))
)))
## [[Math]]
diff --git a/new-luxc/source/luxc/lang/translation/js/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/js/procedure/common.jvm.lux
index 8e40799f2..15c48a138 100644
--- a/new-luxc/source/luxc/lang/translation/js/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/js/procedure/common.jvm.lux
@@ -325,9 +325,6 @@
(format inputJS <op>))]
[text//size ".length"]
- [text//trim ".trim()"]
- [text//upper ".toUpperCase()"]
- [text//lower ".toLowerCase()"]
)
(do-template [<name> <method>]
@@ -567,8 +564,6 @@
(install "replace-all" (trinary text//replace-all))
(install "char" (binary text//char))
(install "clip" (trinary text//clip))
- (install "upper" (unary text//upper))
- (install "lower" (unary text//lower))
)))
(def: array-procs
diff --git a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
index 9764045e7..8289fdf5a 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
@@ -383,8 +383,6 @@
[text//size "java.lang.String" "length" lux-intI $t.int]
[text//hash "java.lang.Object" "hashCode" lux-intI $t.int]
- [text//upper "java.lang.String" "toUpperCase" id $String]
- [text//lower "java.lang.String" "toLowerCase" id $String]
)
(do-template [<name> <pre-subject> <pre-param> <op> <post>]
@@ -710,8 +708,6 @@
(install "replace-all" (trinary text//replace-all))
(install "char" (binary text//char))
(install "clip" (trinary text//clip))
- (install "upper" (unary text//upper))
- (install "lower" (unary text//lower))
)))
(def: array-procs
diff --git a/new-luxc/source/luxc/lang/translation/lua/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/lua/procedure/common.jvm.lux
index 91906d899..2bef7cbcf 100644
--- a/new-luxc/source/luxc/lang/translation/lua/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/lua/procedure/common.jvm.lux
@@ -331,14 +331,8 @@
(|>> (list) (lua.apply <op>)))]
[text//size "string.len"]
- [text//upper "string.upper"]
- [text//lower "string.lower"]
)
-(def: (text//trim inputO)
- Unary
- (lua.apply "string.match" (list inputO "^%s*(.-)%s*$")))
-
(def: (text//concat [subjectO paramO])
Binary
(format "(" subjectO " .. " paramO ")"))
@@ -557,8 +551,6 @@
(install "replace-all" (trinary text//replace-all))
(install "char" (binary text//char))
(install "clip" (trinary text//clip))
- (install "upper" (unary text//upper))
- (install "lower" (unary text//lower))
)))
(def: array-procs
diff --git a/new-luxc/source/luxc/lang/translation/php/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/php/procedure/common.jvm.lux
index bcbea37cf..33c7d645e 100644
--- a/new-luxc/source/luxc/lang/translation/php/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/php/procedure/common.jvm.lux
@@ -366,8 +366,6 @@
## (install "replace-all" (trinary text//replace-all))
## (install "char" (binary text//char))
## (install "clip" (trinary text//clip))
-## (install "upper" (unary (send0 "upper")))
-## (install "lower" (unary (send0 "lower")))
## )))
## ## [[Math]]
diff --git a/new-luxc/source/luxc/lang/translation/python/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/python/procedure/common.jvm.lux
index 24e4197d1..c9ebd6fd7 100644
--- a/new-luxc/source/luxc/lang/translation/python/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/python/procedure/common.jvm.lux
@@ -457,8 +457,6 @@
(install "replace-all" (trinary text//replace-all))
(install "char" (binary text//char))
(install "clip" (trinary text//clip))
- (install "upper" (unary (send0 "upper")))
- (install "lower" (unary (send0 "lower")))
)))
## [[Math]]
diff --git a/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux
index f190f88ed..bd11bca21 100644
--- a/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux
@@ -428,8 +428,6 @@
(install "replace-all" (trinary text//replace-all))
(install "char" (binary text//char))
(install "clip" (trinary text//clip))
- (install "upper" (unary (apply1 (r.global "toupper"))))
- (install "lower" (unary (apply1 (r.global "tolower"))))
)))
## [[Math]]
diff --git a/new-luxc/source/luxc/lang/translation/ruby/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/ruby/procedure/common.jvm.lux
index 8e58c06d4..ccd2699ce 100644
--- a/new-luxc/source/luxc/lang/translation/ruby/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/ruby/procedure/common.jvm.lux
@@ -452,9 +452,6 @@
(ruby.send <op> (list)))]
[text//size "length"]
- [text//upper "upcase"]
- [text//lower "downcase"]
- [text//trim "strip"]
[text//hash "hash"]
)
@@ -501,8 +498,6 @@
(install "replace-all" (trinary text//replace-all))
(install "char" (binary text//char))
(install "clip" (trinary text//clip))
- (install "upper" (unary text//upper))
- (install "lower" (unary text//lower))
)))
## [[Math]]
diff --git a/new-luxc/source/luxc/lang/translation/scheme/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/scheme/procedure/common.jvm.lux
index 5d8e2ac66..7387b6530 100644
--- a/new-luxc/source/luxc/lang/translation/scheme/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/scheme/procedure/common.jvm.lux
@@ -414,8 +414,6 @@
## (install "replace-all" (trinary text//replace-all))
## (install "char" (binary text//char))
## (install "clip" (trinary text//clip))
- (install "upper" (unary (_.apply1 (_.global "string-upcase"))))
- (install "lower" (unary (_.apply1 (_.global "string-downcase"))))
)))
## [[Math]]
diff --git a/new-luxc/test/test/luxc/lang/translation/common.lux b/new-luxc/test/test/luxc/lang/translation/common.lux
index be552f1f0..964be4af3 100644
--- a/new-luxc/test/test/luxc/lang/translation/common.lux
+++ b/new-luxc/test/test/luxc/lang/translation/common.lux
@@ -235,19 +235,6 @@
_
false)))
- (test "Can change case of text."
- (and (|> (run (` ("lux text =" (~ sample0S) ("lux text upper" (~ sample0S)))))
- (case> (#e.Success valueV)
- (not (:! Bool valueV))
-
- _
- false))
- (|> (run (` ("lux text =" (~ sample0S) ("lux text lower" ("lux text upper" (~ sample0S))))))
- (case> (#e.Success valueV)
- (:! Bool valueV)
-
- _
- false))))
(test "Can get length of text."
(|> (run (` ("lux text size" (~ sample0S))))
(case> (#e.Success valueV)