class: CharacterArray
authorClaus Gittinger <cg@exept.de>
Thu, 03 Apr 2014 14:35:22 +0200
changeset 16295 54510929f67c
parent 16294 a08b0365a4f1
child 16296 f8548919e174
class: CharacterArray added: #unquote for protocol completeness
CharacterArray.st
--- a/CharacterArray.st	Thu Apr 03 13:54:28 2014 +0200
+++ b/CharacterArray.st	Thu Apr 03 14:35:22 2014 +0200
@@ -726,6 +726,7 @@
 ! !
 
 
+
 !CharacterArray methodsFor:'Compatibility-ANSI'!
 
 addLineDelimiters
@@ -1619,6 +1620,25 @@
     ^ true
 ! !
 
+!CharacterArray methodsFor:'JavaScript support'!
+
+unquote
+    "removes quotes from the receiver"
+
+    self size >= 2 ifTrue:[
+        (self startsWith:$") ifTrue:[
+            (self endsWith:$") ifTrue:[
+                ^ self copyFrom:2 to:self size-1
+            ].
+        ].
+    ].
+    ^ self
+
+    "
+     JavaScriptParser
+        evaluate:'''hello''.quote.unquote'
+    "
+! !
 
 
 !CharacterArray methodsFor:'character searching'!
@@ -6936,11 +6956,11 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.529 2014-03-07 22:07:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.530 2014-04-03 12:35:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.529 2014-03-07 22:07:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.530 2014-04-03 12:35:22 cg Exp $'
 ! !