Timothy M uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-tty.749.mcz
==================== Summary ====================
Name: VMMaker.oscog-tty.749 Author: tty Time: 2 June 2014, 1:29:16.384 pm UUID: b38bc9f8-523a-4862-b0c9-0e1d90bb786c Ancestors: VMMaker.oscog-eem.748
ClipboardExtendedPlugin added from changeset at
http://squeakvm.org/svn/squeak/trunk/platforms/Mac%20OS/plugins/ClipboardExt...
=============== Diff against VMMaker.oscog-eem.748 ===============
Item was added: + SmartSyntaxInterpreterPlugin subclass: #ClipboardExtendedPlugin + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'VMMaker-Plugins'!
Item was added: + ----- Method: ClipboardExtendedPlugin>>ioAddClipboardData:data:dataFormat: (in category 'io') ----- + ioAddClipboardData: clipboard data: data dataFormat: aFormat + | clipboardAddress formatLength dataLength | + self primitive: 'ioAddClipboardData' parameters: #(Oop ByteArray String). + + clipboardAddress := interpreterProxy positive32BitValueOf: clipboard. + + dataLength := interpreterProxy slotSizeOf: data cPtrAsOop. + formatLength := interpreterProxy slotSizeOf: aFormat cPtrAsOop. + + self sqPasteboardPutItemFlavor: clipboardAddress data: data length: dataLength formatType: aFormat formatLength: formatLength. + !
Item was added: + ----- Method: ClipboardExtendedPlugin>>ioClearClipboard: (in category 'io') ----- + ioClearClipboard: clipboard + | clipboardAddress | + self primitive: 'ioClearClipboard' parameters: #(Oop). + clipboardAddress := interpreterProxy positive32BitValueOf: clipboard. + self sqPasteboardClear: clipboardAddress.!
Item was added: + ----- Method: ClipboardExtendedPlugin>>ioCreateClipboard (in category 'io') ----- + ioCreateClipboard + | clipboardAddress | + self primitive: 'ioCreateClipboard' parameters: #(). + + clipboardAddress := interpreterProxy positive32BitIntegerFor: self sqCreateClipboard. + + ^ clipboardAddress.!
Item was added: + ----- Method: ClipboardExtendedPlugin>>ioGetClipboardFormat:formatNumber: (in category 'io') ----- + ioGetClipboardFormat: clipboard formatNumber: formatNumber + | clipboardAddress itemCount | + self primitive: 'ioGetClipboardFormat' parameters: #(#Oop #SmallInteger ). + clipboardAddress := interpreterProxy positive32BitValueOf: clipboard. + itemCount := self sqPasteboardGetItemCount: clipboardAddress. + itemCount > 0 + ifTrue: [^ self sqPasteboardCopyItemFlavors: clipboardAddress itemNumber: formatNumber]. + ^ interpreterProxy nilObject!
Item was added: + ----- Method: ClipboardExtendedPlugin>>ioReadClipboardData:format: (in category 'io') ----- + ioReadClipboardData: clipboard format: format + | clipboardAddress formatLength | + self primitive: 'ioReadClipboardData' parameters: #(Oop String). + clipboardAddress := interpreterProxy positive32BitValueOf: clipboard. + formatLength := interpreterProxy slotSizeOf: format cPtrAsOop. + ^ self sqPasteboardCopyItemFlavorData: clipboardAddress format: format formatLength: formatLength. + !
vm-dev@lists.squeakfoundation.org