aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/js/procedure
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/js/procedure')
-rw-r--r--new-luxc/source/luxc/lang/translation/js/procedure/common.jvm.lux36
1 files changed, 9 insertions, 27 deletions
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 d9e64d4a1..05cd0137b 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
@@ -270,22 +270,13 @@
(format "String.fromCharCode" "(" (int//to-frac inputJS) ")"))
## [[Text]]
-(do-template [<name> <op>]
- [(def: (<name> inputJS)
- Unary
- (format inputJS <op>))]
-
- [text//size ".length"]
- )
-
-(do-template [<name> <method>]
- [(def: (<name> [subjectJS paramJS])
- Binary
- (format subjectJS "." <method> "(" paramJS ")"))]
+(def: (text//size inputJS)
+ Unary
+ (format inputJS ".length"))
- [text//concat "concat"]
- [text//contains? "includes"]
- )
+(def: (text//concat [subjectJS paramJS])
+ Binary
+ (format subjectJS "." "concat" "(" paramJS ")"))
(def: (text//char [subjectJS paramJS])
Binary
@@ -296,18 +287,11 @@
Trinary
(format <runtime> "(" subjectJS "," paramJS "," extraJS ")"))]
- [text//clip runtimeT.text//clip]
- [text//replace-all runtimeT.text//replace-all]
+ [text//clip runtimeT.text//clip]
+ [text//index runtimeT.text//index]
+
)
-(def: (text//replace-once [subjectJS paramJS extraJS])
- Trinary
- (format subjectJS ".replace(" paramJS "," extraJS ")"))
-
-(def: (text//index [textJS partJS startJS])
- Trinary
- (format runtimeT.text//index "(" textJS "," partJS "," startJS ")"))
-
## [[Math]]
(do-template [<name> <method>]
[(def: (<name> inputJS)
@@ -466,8 +450,6 @@
(install "index" (trinary text//index))
(install "size" (unary text//size))
(install "hash" (unary text//hash))
- (install "replace-once" (trinary text//replace-once))
- (install "replace-all" (trinary text//replace-all))
(install "char" (binary text//char))
(install "clip" (trinary text//clip))
)))