ReadStream.st
branchjv
changeset 19567 33f60845c4bc
parent 19478 1f5aa87f6170
parent 19560 691fcc4fe7c6
child 19948 be658f466bca
equal deleted inserted replaced
19559:d35a89d5c0ec 19567:33f60845c4bc
   581     (position >= readLimit) ifTrue:[^ self pastEndRead].
   581     (position >= readLimit) ifTrue:[^ self pastEndRead].
   582     ^ collection at:(position + 1)
   582     ^ collection at:(position + 1)
   583 !
   583 !
   584 
   584 
   585 nextUnicode16CharacterMSB:msb
   585 nextUnicode16CharacterMSB:msb
   586     ^ Character value:(self nextUnsignedShortMSB:msb)
   586     ^ Character value:(self nextUnsignedInt16MSB:msb)
   587 
   587 
   588     "
   588     "
   589      #[16r00 16r51] readStream nextUnicode16CharacterMSB:true
   589      #[16r00 16r51] readStream nextUnicode16CharacterMSB:true
   590      #[16r00 16r51] readStream nextUnicode16CharacterMSB:false
   590      #[16r00 16r51] readStream nextUnicode16CharacterMSB:false
   591     "
   591     "
   592 !
   592 !
   593 
   593 
   594 nextUnicode16Characters:count MSB:msb
   594 nextUnicode16Characters:count MSB:msb
       
   595     "easily tuned, if heavily used"
       
   596     
   595     ^ (1 to:count) 
   597     ^ (1 to:count) 
   596         collect:[:i | self nextUnicode16CharacterMSB:msb]
   598         collect:[:i | self nextUnicode16CharacterMSB:msb]
   597         as:Unicode16String
   599         as:Unicode16String
   598 
   600 
   599     "
   601     "