--- a/RIFFReader.st Sat Dec 30 20:27:56 2000 +0100
+++ b/RIFFReader.st Sat Dec 30 20:40:49 2000 +0100
@@ -13,7 +13,7 @@
"{ Package: 'stx:libview2' }"
Object subclass:#RIFFReader
- instanceVariableNames:'inStream fileType streamTypes client'
+ instanceVariableNames:'inStream fileType streamTypes client msb'
classVariableNames:'UnsupportedFormatErrorSignal'
poolDictionaries:''
category:'System-Support-FileFormats'
@@ -161,6 +161,18 @@
client := something.
!
+msb
+ "return the value of the instance variable 'msb' (automatically generated)"
+
+ ^ msb
+!
+
+msb:something
+ "set the value of the instance variable 'msb' (automatically generated)"
+
+ msb := something.
+!
+
streamTypes:something
"set the value of the instance variable 'streamTypes' (automatically generated)"
@@ -200,7 +212,7 @@
self error:'short chunk' mayProceed:true.
^ self
].
- chunkSize := inStream nextLongMSB:false.
+ chunkSize := inStream nextLongMSB:msb.
(id at:1) == $0 ifTrue:[
sTyp := '_Unknown'.
@@ -304,6 +316,7 @@
inStream := aStream.
inStream binary.
+ msb := false.
[inStream atEnd] whileFalse:[
client perform:#getChunk ifNotUnderstood:[self getChunk].
@@ -336,6 +349,6 @@
!RIFFReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/RIFFReader.st,v 1.7 2000-12-30 19:27:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/RIFFReader.st,v 1.8 2000-12-30 19:40:49 cg Exp $'
! !
RIFFReader initialize!