1623 " |
1623 " |
1624 |
1624 |
1625 "Modified: 12.9.1997 / 22:03:18 / cg" |
1625 "Modified: 12.9.1997 / 22:03:18 / cg" |
1626 ! |
1626 ! |
1627 |
1627 |
|
1628 storeArrayElementOn:aStream |
|
1629 "store as element of an array. Omit the leading '#'" |
|
1630 |
|
1631 self isLiteral ifTrue:[ |
|
1632 aStream nextPut:$(. |
|
1633 self do:[:element | element storeArrayElementOn:aStream] |
|
1634 separatedBy:[aStream space]. |
|
1635 aStream nextPut:$) |
|
1636 ] ifFalse:[ |
|
1637 super storeOn:aStream |
|
1638 ] |
|
1639 ! |
|
1640 |
1628 storeOn:aStream |
1641 storeOn:aStream |
1629 "append a printed representation of the receiver to aStream, |
1642 "append a printed representation of the receiver to aStream, |
1630 which allows reconstructing it via readFrom:. |
1643 which allows reconstructing it via readFrom:. |
1631 Redefined to output a somewhat more user friendly string." |
1644 Redefined to output a somewhat more user friendly string." |
1632 |
1645 |
1633 self isLiteral ifTrue:[ |
1646 self isLiteral ifTrue:[ |
1634 aStream nextPutAll:'#('. |
1647 aStream nextPutAll:'#('. |
1635 self do:[:element | element storeOn:aStream. aStream space]. |
1648 self do:[:element | element storeArrayElementOn:aStream] |
1636 aStream nextPutAll:')' |
1649 separatedBy:[aStream space]. |
|
1650 aStream nextPut:$) |
1637 ] ifFalse:[ |
1651 ] ifFalse:[ |
1638 super storeOn:aStream |
1652 super storeOn:aStream |
1639 ] |
1653 ] |
1640 |
1654 |
1641 " |
1655 " |
1642 #(1 2 $a 'hello') storeString |
1656 #(1 2 $a 'hello' sym kewordSymbol:with: #'funny symbol') storeString |
1643 #(1 2 $a [1 2 3]) storeString |
1657 #(1 2 $a [1 2 3] true false nil #true #false #nil) storeString |
1644 " |
1658 " |
1645 |
1659 |
1646 "Created: 20.11.1995 / 11:16:58 / cg" |
1660 "Created: 20.11.1995 / 11:16:58 / cg" |
1647 ! ! |
1661 ! ! |
1648 |
1662 |