The one I have reads this below, what is the copy you have from vmmaker?
ls 11/4/2000 13:58
primitiveMPEG3EndOfVideo: fileHandle stream: aNumber | file result |
"int mpeg3_end_of_video(mpeg3_t *file, int stream)" self var: #file declareC: 'mpeg3_t * file'. self primitive: 'primitiveMPEG3EndOfVideo' parameters: #(Oop SmallInteger).
file := self mpeg3tValueOf: fileHandle. file = nil ifTrue: [^0]. aNumber < 0 ifTrue: [interpreterProxy success: false. ^nil]. aNumber >= (self cCode: 'result = mpeg3_total_vstreams(file)') ifTrue: [ interpreterProxy success: false. ^0 ].
self cCode: 'result = mpeg3_end_of_video(file,aNumber)'. ^result asOop: Boolean
On 25-Mar-06, at 8:11 PM, Andreas Raab wrote:
primitiveMPEG3EndOfVideo
-- ======================================================================== === John M. McIntosh johnmci@smalltalkconsulting.com 1-800-477-2659 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com ======================================================================== ===