src/mobius/memory.slate

   1 Image define: #AllObjectsReadStream &parents: {ReadStream}
   2   &slots: {#currentObject -> Nil}.
   3 "Iterates over all objects in the image, in memory order."
   4
   5 s@(Image AllObjectsReadStream traits) newOn: x
   6 [
   7   error: 'This must be called on the Image object.'
   8 ].
   9
  10 s@(Image AllObjectsReadStream traits) newOn: _@Image
  11 [
  12   s clone `>> [reset. ]
  13 ].
  14
  15 s@(Image AllObjectsReadStream traits) reset
  16 [
  17   s currentObject := lobby firstObject.
  18 ].
  19
  20 i@Image reader
  21 [i AllObjectsReadStream newOn: i].
  22
  23 s@(Image AllObjectsReadStream traits) isAtEnd
  24 [
  25   lobby isLastObject: s currentObject
  26 ].
  27
  28 s@(Image AllObjectsReadStream traits) peek
  29 [
  30   lobby nextObjectAfter: s currentObject
  31 ].
  32
  33 s@(Image AllObjectsReadStream traits) next
  34 [
  35   s currentObject := s peek
  36 ].
  37
  38 Image define: #DelegatesToReadStream &parents: {Image AllObjectsReadStream}
  39   &slots: {#target -> Nil}.
  40 "Yields all objects in the Image delegating to the particular target object."
  41
  42 s@(Image DelegatesToReadStream traits) reset
  43 [
  44   s currentObject := lobby firstObjectDelegatingTo: s target.
  45 ].
  46
  47 s@(Image DelegatesToReadStream traits) newOn: _@Image &target: x
  48 [
  49   s clone `>> [target := x. reset. ]
  50 ].
  51
  52 s@(Image DelegatesToReadStream traits) peek
  53 [
  54   lobby nextObjectAfter: s currentObject delegatingTo: s target
  55 ].
  56
  57 s@(Image DelegatesToReadStream traits) isAtEnd
  58 [
  59   lobby isLastObject: s currentObject delegatingTo: s target
  60 ].
  61
  62 x@(Root traits) childStream
  63 [
  64   Image DelegatesToReadStream newOn: Image &target: x
  65 ].
  66
  67 Image define: #ReferrersToReadStream &parents: {Image AllObjectsReadStream}
  68   &slots: {#target -> Nil}.
  69 "Yields all objects in the Image referring to the particular target object."
  70
  71 s@(Image ReferrersToReadStream traits) reset
  72 [
  73   s currentObject := lobby firstObjectReferringTo: s target.
  74 ].
  75
  76 s@(Image ReferrersToReadStream traits) newOn: _@Image &target: x
  77 [
  78   s clone `>> [target := x. reset. ]
  79 ].
  80
  81 s@(Image ReferrersToReadStream traits) peek
  82 "Avoids the stream itself appearing in the stream. Hopefully activations won't
  83 show up in it as well..."
  84 [
  85   lobby nextObjectAfter: s currentObject referringTo: s target
  86 ].
  87
  88 s@(Image ReferrersToReadStream traits) isAtEnd
  89 [
  90   lobby isLastObject: s currentObject referringTo: s target
  91 ].
  92
  93 x@(Root traits) referrerStream
  94 [
  95   Image ReferrersToReadStream newOn: Image &target: x
  96 ].