int sqMIDIPortReadInto(int portNum, int count, char * bufferPtr) {
/* bufferPtr is the address of the first byte of a Smalltalk
ByteArray of the given length. Copy up to (length - 4) bytes
of incoming MIDI data into that buffer, preceded by a 4-byte
timestamp in the units of the MIDI clock, most significant byte
first. Implementations that do not support timestamping of
incoming data as it arrives (see sqMIDIHasInputClock) simply
set the timestamp to the value of the MIDI clock when this
function is called. Return the total number of bytes read,
including the timestamp bytes. Return zero if no data is
available. Fail if the buffer is shorter than five bytes,
since there must be enough room for the timestamp plus at
least one data byte. */
int bytesRead;
if (count < 5) return interpreterProxy->success(false);
if (serialPortReadIntoFn == 0) {
return interpreterProxy->success(false);
}
bytesRead = ((int (*) (int , int , int )) serialPortReadIntoFn)(portNum, count - 4, bufferPtr + 4);
if (bytesRead == 0) return 0;
*((int *) bufferPtr) = sqMIDIGetClock(); /* set timestamp */
return bytesRead + 4;
}
EXPORT(sqInt) primitiveMIDIGetClock(void) {
sqInt clockValue;
sqInt _return_value;
clockValue = (sqMIDIGetClock()) & 536870911;
_return_value = interpreterProxy->integerObjectOf(clockValue);
if (interpreterProxy->failed()) {
return null;
}
interpreterProxy->popthenPush(1, _return_value);
return null;
}
