[Vm-dev] VM Maker: VMMaker.oscog-tty.749.mcz

[commits at source.squeak.org]

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/ClipboardExtended/JMMExtendedClipBoardPlugin.1.cs

=============== 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.
+ !