literal encodings
authorClaus Gittinger <cg@exept.de>
Tue, 25 Feb 1997 19:20:23 +0100
changeset 2416 588d5d510c10
parent 2415 7bf60d51a383
child 2417 64115b76cd15
literal encodings
Boolean.st
Number.st
String.st
Symbol.st
UndefObj.st
UndefinedObject.st
--- a/Boolean.st	Tue Feb 25 17:49:46 1997 +0100
+++ b/Boolean.st	Tue Feb 25 19:20:23 1997 +0100
@@ -84,6 +84,17 @@
 
 !Boolean methodsFor:'converting'!
 
+decodeAsLiteralArray
+    "given a literalEncoding in the receiver,
+     create & return the corresponding object.
+     The inverse operation to #literalArrayEncoding."
+
+    ^ self
+
+    "Created: 25.2.1997 / 19:16:43 / cg"
+    "Modified: 25.2.1997 / 19:17:45 / cg"
+!
+
 literalArrayEncoding
     "encode myself as an array literal, from which a copy of the receiver
      can be reconstructed with #decodeAsLiteralArray."
@@ -166,5 +177,5 @@
 !Boolean class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.20 1996-04-25 16:52:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.21 1997-02-25 18:19:23 cg Exp $'
 ! !
--- a/Number.st	Tue Feb 25 17:49:46 1997 +0100
+++ b/Number.st	Tue Feb 25 19:20:23 1997 +0100
@@ -284,6 +284,17 @@
     ^ Point x:self y:self
 !
 
+decodeAsLiteralArray
+    "given a literalEncoding in the receiver,
+     create & return the corresponding object.
+     The inverse operation to #literalArrayEncoding."
+
+    ^ self
+
+    "Created: 25.2.1997 / 19:17:06 / cg"
+    "Modified: 25.2.1997 / 19:17:42 / cg"
+!
+
 degreesToRadians
     "interpreting the receiver as radians, return the degrees"
 
@@ -464,5 +475,5 @@
 !Number class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.38 1996-11-05 18:40:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.39 1997-02-25 18:20:23 cg Exp $'
 ! !
--- a/String.st	Tue Feb 25 17:49:46 1997 +0100
+++ b/String.st	Tue Feb 25 19:20:23 1997 +0100
@@ -1116,6 +1116,16 @@
     self primitiveFailed
 !
 
+decodeAsLiteralArray
+    "given a literalEncoding in the receiver,
+     create & return the corresponding object.
+     The inverse operation to #literalArrayEncoding."
+
+    ^ self
+
+    "Created: 25.2.1997 / 19:18:19 / cg"
+!
+
 literalArrayEncoding
     "encode myself as an array literal, from which a copy of the receiver
      can be reconstructed with #decodeAsLiteralArray."
@@ -2264,5 +2274,5 @@
 !String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.87 1997-02-10 10:16:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.88 1997-02-25 18:19:52 cg Exp $'
 ! !
--- a/Symbol.st	Tue Feb 25 17:49:46 1997 +0100
+++ b/Symbol.st	Tue Feb 25 19:20:23 1997 +0100
@@ -333,6 +333,17 @@
      Since I am a symbol - just return myself"
 
     ^ self
+!
+
+decodeAsLiteralArray
+    "given a literalEncoding in the receiver,
+     create & return the corresponding object.
+     The inverse operation to #literalArrayEncoding."
+
+    ^ self
+
+    "Created: 25.2.1997 / 19:15:26 / cg"
+    "Modified: 25.2.1997 / 19:17:40 / cg"
 ! !
 
 !Symbol methodsFor:'copying'!
@@ -515,5 +526,5 @@
 !Symbol class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.44 1997-01-17 23:28:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.45 1997-02-25 18:20:08 cg Exp $'
 ! !
--- a/UndefObj.st	Tue Feb 25 17:49:46 1997 +0100
+++ b/UndefObj.st	Tue Feb 25 19:20:23 1997 +0100
@@ -116,6 +116,27 @@
     ^ false
 ! !
 
+!UndefinedObject methodsFor:'converting'!
+
+decodeAsLiteralArray
+    "given a literalEncoding in the receiver,
+     create & return the corresponding object.
+     The inverse operation to #literalArrayEncoding."
+
+    ^ self
+
+    "Created: 25.2.1997 / 19:18:40 / cg"
+!
+
+literalArrayEncoding
+    "encode myself as an array literal, from which a copy of the receiver
+     can be reconstructed with #decodeAsLiteralArray."
+
+    ^ self
+
+    "Created: 25.2.1997 / 19:18:47 / cg"
+! !
+
 !UndefinedObject methodsFor:'copying'!
 
 copy
@@ -416,6 +437,6 @@
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UndefObj.st,v 1.29 1997-01-03 15:40:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UndefObj.st,v 1.30 1997-02-25 18:19:01 cg Exp $'
 ! !
 UndefinedObject initialize!
--- a/UndefinedObject.st	Tue Feb 25 17:49:46 1997 +0100
+++ b/UndefinedObject.st	Tue Feb 25 19:20:23 1997 +0100
@@ -116,6 +116,27 @@
     ^ false
 ! !
 
+!UndefinedObject methodsFor:'converting'!
+
+decodeAsLiteralArray
+    "given a literalEncoding in the receiver,
+     create & return the corresponding object.
+     The inverse operation to #literalArrayEncoding."
+
+    ^ self
+
+    "Created: 25.2.1997 / 19:18:40 / cg"
+!
+
+literalArrayEncoding
+    "encode myself as an array literal, from which a copy of the receiver
+     can be reconstructed with #decodeAsLiteralArray."
+
+    ^ self
+
+    "Created: 25.2.1997 / 19:18:47 / cg"
+! !
+
 !UndefinedObject methodsFor:'copying'!
 
 copy
@@ -416,6 +437,6 @@
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.29 1997-01-03 15:40:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.30 1997-02-25 18:19:01 cg Exp $'
 ! !
 UndefinedObject initialize!