Objology - Comments 2008-05-11T21:08:27-04:00 http://www.cincomsmalltalk.com/userblogs/travis/blogView Copyright 2005-2007 Travis Griggs Silt Syndication Generator Nibbles and Bits http://www.cincomsmalltalk.com/userblogs/travis/blogView?showComments=true&printTitle=Nibbles_and_Bits&entry=3387992906 2008-05-11T21:08:26-04:00 Jim Sawyer

 
      >>paddedBinaryPrintString 
     | paddedBinaryPrintString | 
     ^self transmogrify:  
          challenge evenly: true on: paddedBinaryPrintString 
 
      >>transmogrify: challenge evenly: boolean on: streamOfConsciousness 
     | holyBatman time | 
     holyBatman := streamOfConsciousness writeStream. 
     time := self highByte > 15 or: [ boolean and: [ holyBatman nextPutAll:  
                                                          (challenge at: 1). 
                                                     true  
                                                   ]  
                                    ]. 
     self do: [:whatMatters|  
               holyBatman nextPutAll: (challenge at: whatMatters + 1) 
              ] 
          separatedBy: [ (time := time not) and: [ holyBatman space ] ]. 
     streamOfConsciousness isNil ifTrue:  [ ^holyBatman contents ] 
 
      >>do: a1block separatedBy: a0block 
     | r | 
     r := self spewChunks. 
     [ a1block value: (r bitAnd: 15). 
       (r := r bitShift: -4)  
            = 1  
     ] whileFalse:  
          [ a0block value ] 
 
      >>spewChunks 
     | r v | 
     r := 1. 
     v := self. 
     [ r := (r bitShift: 4) bitOr: (v bitAnd: 15). 
       (v := v bitShift: -4) isZero  
     ] whileFalse. 
     ^r 
 

]]> Nibbles and Bits http://www.cincomsmalltalk.com/userblogs/travis/blogView?showComments=true&printTitle=Nibbles_and_Bits&entry=3387992565 2008-05-11T21:02:45-04:00 Jim Sawyer 

<table class="fixed" border bgcolor="FFFFE2" columns="1"><tr><td>
&nbsp;<BR>
<dl><dt><code><font fixed>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<STRONG><font color="Navy"></font></STRONG>&gt;&gt;<STRONG><font color="Black">paddedBinaryPrintString</font></STRONG>&nbsp;</font></code></dt>
<dd><code><font fixed>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="Black">|&nbsp;<temp>paddedBinaryPrintString</temp>&nbsp;|</font>&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<STRONG><font color="Teal">^<font color="Teal">self</font>&nbsp;<accept><font color="Blue">transmogrify:&nbsp;&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<parameter><keywordParameter><font color="Teal">challenge</font></keywordParameter></parameter></font>&nbsp;<font color="Blue">evenly:&nbsp;<parameter><keywordParameter><font color="Teal">true</font></keywordParameter></parameter></font>&nbsp;<font color="Blue">on:&nbsp;<parameter><keywordParameter><font color="Teal">paddedBinaryPrintString</font></keywordParameter></parameter></font></font></STRONG>&nbsp;<BR>
&nbsp;</font></code></dd></dl>
<dl><dt><code><font fixed>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<STRONG><font color="Navy"></font></STRONG>&gt;&gt;<STRONG><font color="Blue">transmogrify:&nbsp;<font color="Black">challenge</font>&nbsp;evenly:&nbsp;<font color="Black">boolean</font>&nbsp;on:&nbsp;<font color="Black">streamOfConsciousness</font></font></STRONG>&nbsp;</font></code></dt>
<dd><code><font fixed>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="Black">|&nbsp;<temp>holyBatman</temp>&nbsp;<temp>time</temp>&nbsp;|</font>&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="Black"><font color="Black">holyBatman</font>&nbsp;:=&nbsp;<font color="Black">streamOfConsciousness</font>&nbsp;<font color="Black">writeStream</font></font>.&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="Black"><font color="Black">time</font>&nbsp;:=&nbsp;<EM><font color="Black">self</font></EM>&nbsp;<group><font color="Black">highByte</font>&nbsp;<font color="Maroon">></font>&nbsp;<binaryParameter><font color="Black">15</font></binaryParameter>&nbsp;<font color="Blue">or:&nbsp;<parameter><keywordParameter>[<font color="Black">&nbsp;<font color="Black">boolean</font>&nbsp;<accept><font color="Blue">and:&nbsp;<parameter><keywordParameter>[<font color="Black">&nbsp;<font color="Black">holyBatman</font>&nbsp;<msgsFit><font color="Blue">nextPutAll:&nbsp;&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<parameter><keywordParameter>(<font color="Black">challenge</font>&nbsp;<font color="Blue">at:&nbsp;<parameter><keywordParameter><font color="Black">1</font></keywordParameter></parameter></font>)</keywordParameter></parameter></font>.&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<EM><font color="Black">true</font></EM>&nbsp;</font>&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;]</keywordParameter></parameter></font>&nbsp;</font>&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;]</keywordParameter></parameter></font></font>.&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<EM><font color="Black">self</font></EM>&nbsp;<accept><keywords><font color="Blue">do:&nbsp;<parameter><keywordParameter>[<font color="Black"><font color="Black">:</font><font color="Black">whatMatters</font>| &nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="Black">holyBatman</font>&nbsp;<font color="Blue">nextPutAll:&nbsp;<parameter><keywordParameter>(<font color="Black">challenge</font>&nbsp;<font color="Blue">at:&nbsp;<parameter><keywordParameter><font color="Black">whatMatters</font>&nbsp;<font color="Maroon">+</font>&nbsp;<binaryParameter><font color="Black">1</font></binaryParameter></keywordParameter></parameter></font>)</keywordParameter></parameter></font></font>&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;]</keywordParameter></parameter></font>&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="Blue">separatedBy:&nbsp;<parameter><keywordParameter>[<font color="Black">&nbsp;(<font color="Black"><font color="Black">time</font>&nbsp;:=&nbsp;<font color="Black">time</font>&nbsp;<font color="Black">not</font></font>)&nbsp;<font color="Blue">and:&nbsp;<parameter><keywordParameter>[<font color="Black">&nbsp;<font color="Black">holyBatman</font>&nbsp;<font color="Black">space</font>&nbsp;</font>]</keywordParameter></parameter></font>&nbsp;</font>]</keywordParameter></parameter></font></keywords>.&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="Black">streamOfConsciousness</font>&nbsp;<group><font color="Black">isNil</font>&nbsp;<font color="Blue">ifTrue:&nbsp;&nbsp;<parameter><keywordParameter>[<font color="Black">&nbsp;<STRONG><font color="Teal">^<font color="Teal">holyBatman</font>&nbsp;<font color="Teal">contents</font></font></STRONG>&nbsp;</font>]</keywordParameter></parameter></font>&nbsp;<BR>
&nbsp;</font></code></dd></dl>
<dl><dt><code><font fixed>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<STRONG><font color="Navy"></font></STRONG>&gt;&gt;<STRONG><font color="Blue">do:&nbsp;<font color="Black">a1block</font>&nbsp;separatedBy:&nbsp;<font color="Black">a0block</font></font></STRONG>&nbsp;</font></code></dt>
<dd><code><font fixed>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="Black">|&nbsp;<temp>r</temp>&nbsp;|</font>&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="Black"><font color="Black">r</font>&nbsp;:=&nbsp;<EM><font color="Black">self</font></EM>&nbsp;<font color="Black">spewChunks</font></font>.&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[<font color="Black">&nbsp;<font color="Black">a1block</font>&nbsp;<font color="Blue">value:&nbsp;<parameter><keywordParameter>(<font color="Black">r</font>&nbsp;<font color="Blue">bitAnd:&nbsp;<parameter><keywordParameter><font color="Black">15</font></keywordParameter></parameter></font>)</keywordParameter></parameter></font>.&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(<font color="Black"><font color="Black">r</font>&nbsp;:=&nbsp;<font color="Black">r</font>&nbsp;<font color="Blue">bitShift:&nbsp;<parameter><keywordParameter><font color="Black">-4</font></keywordParameter></parameter></font></font>)&nbsp;<accept>&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<binaryMessages><font color="Maroon">=</font>&nbsp;<binaryParameter><font color="Black">1</font></binaryParameter></binaryMessages>&nbsp;</font>&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;]&nbsp;<accept><font color="Blue">whileFalse:&nbsp;&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<parameter><keywordParameter>[<font color="Black">&nbsp;<font color="Black">a0block</font>&nbsp;<font color="Black">value</font>&nbsp;</font>]</keywordParameter></parameter></font>&nbsp;<BR>
&nbsp;</font></code></dd></dl>
<dl><dt><code><font fixed>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<STRONG><font color="Navy"></font></STRONG>&gt;&gt;<STRONG><font color="Black">spewChunks</font></STRONG>&nbsp;</font></code></dt>
<dd><code><font fixed>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="Black">|&nbsp;<temp>r</temp>&nbsp;<temp>v</temp>&nbsp;|</font>&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="Black"><font color="Black">r</font>&nbsp;:=&nbsp;<font color="Black">1</font></font>.&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="Black"><font color="Black">v</font>&nbsp;:=&nbsp;<EM><font color="Black">self</font></EM></font>.&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[<font color="Black">&nbsp;<font color="Black"><font color="Black">r</font>&nbsp;:=&nbsp;(<font color="Black">r</font>&nbsp;<font color="Blue">bitShift:&nbsp;<parameter><keywordParameter><font color="Black">4</font></keywordParameter></parameter></font>)&nbsp;<font color="Blue">bitOr:&nbsp;<parameter><keywordParameter>(<font color="Black">v</font>&nbsp;<font color="Blue">bitAnd:&nbsp;<parameter><keywordParameter><font color="Black">15</font></keywordParameter></parameter></font>)</keywordParameter></parameter></font></font>.&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(<font color="Black"><font color="Black">v</font>&nbsp;:=&nbsp;<font color="Black">v</font>&nbsp;<font color="Blue">bitShift:&nbsp;<parameter><keywordParameter><font color="Black">-4</font></keywordParameter></parameter></font></font>)&nbsp;<accept><font color="Black">isZero</font>&nbsp;</font>&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;]&nbsp;<msgsFit><font color="Black">whileFalse</font>.&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<STRONG><font color="Teal">^<font color="Teal">r</font></font></STRONG>&nbsp;<BR>
&nbsp;</font></code></dd></dl>
</td></tr></table>

]]>