[etoys-dev] Etoys: MorphicExtras-kfr.35.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys:
http://source.squeak.org/etoys/MorphicExtras-kfr.35.mcz

==================== Summary ====================

Name: MorphicExtras-kfr.35
Author: kfr
Time: 11 October 2011, 8:45:40 pm
UUID: f89b4118-4482-f249-82ac-6ad2c8927a31
Ancestors: MorphicExtras-kfr.34

Removing instance side primitive methods in CameraInterface

=============== Diff against MorphicExtras-kfr.34 ===============

Item was removed:
- ----- Method: CameraInterface>>primCameraName (in category 'primitives') -----
- primCameraName
- 	"Get the name for the camera with the given number. Fail if the camera number is greater than the number of available cameras."
- 
- 	| cameraNum nameStr count resultOop dst |
- 	self export: true.
- 	self var: 'nameStr' declareC: 'char* nameStr'.
- 	self var: 'dst' declareC: 'char* dst'.
- 
- 	cameraNum := interpreterProxy stackIntegerValue: 0.
- 	interpreterProxy failed ifTrue: [^ 0].
- 
- 	nameStr := self cCode: 'CameraName(cameraNum)'.
- 	nameStr = nil ifTrue: [
- 		interpreterProxy success: false.
- 		^ 0].
- 
- 	count := self cCode: '(int) strlen(nameStr)'.
- 	resultOop := interpreterProxy instantiateClass: interpreterProxy classString indexableSize: count.
- 	dst := self cCoerce: (interpreterProxy firstIndexableField: resultOop) to: 'char *'.
- 	0 to: count - 1 do: [:i | dst at: i put: (nameStr at: i)].
- 
- 	interpreterProxy pop: 2 thenPush: resultOop.  "pop arg and rcvr, push result"
- 	^ 0
- !

Item was removed:
- ----- Method: CameraInterface>>primCloseCamera (in category 'primitives') -----
- primCloseCamera
- 	"Close the camera. Do nothing if it was not open."
- 
- 	| cameraNum |
- 	self export: true.
- 	cameraNum := interpreterProxy stackIntegerValue: 0.
- 	interpreterProxy failed ifTrue: [^ 0].
- 
- 	self cCode: 'CameraClose(cameraNum)'.
- 
- 	interpreterProxy pop: 1.  "pop arg, leave rcvr on stack"
- 	^ 0
- !

Item was removed:
- ----- Method: CameraInterface>>primFrameExtent (in category 'primitives') -----
- primFrameExtent
- 	"Answer the frame extent of the given camera, or zero if the camera is not open. The extent is 16 bits of width and height packed into a single integer."
- 
- 	| cameraNum e |
- 	self export: true.
- 	cameraNum := interpreterProxy stackIntegerValue: 0.
- 	interpreterProxy failed ifTrue: [^ 0].
- 
- 	e := self cCode: 'CameraExtent(cameraNum)'.
- 
- 	interpreterProxy pop: 2 thenPush: (interpreterProxy integerObjectOf: e).  "pop rcvr & arg, push int result"
- 	^ 0
- !

Item was removed:
- ----- Method: CameraInterface>>primGetFrame (in category 'primitives') -----
- primGetFrame
- 	"Copy a camera frame into the given Bitmap. The Bitmap should be for a Form of depth 32 that is the same width and height as the current camera frame. Fail if the camera is not open or if the bitmap is not the right size. If successful, answer the number of frames received from the camera since the last call. If this is zero, then there has been no change."
- 
- 	| cameraNum bitmapOop bitmap pixCount result |
- 	self export: true.
- 	self var: 'bitmap' declareC: 'unsigned char *bitmap'.
- 
- 	cameraNum := interpreterProxy stackIntegerValue: 1.
- 	bitmapOop := interpreterProxy stackValue: 0.
- 	((interpreterProxy isIntegerObject: bitmapOop) or:
- 	 [(interpreterProxy isWords: bitmapOop) not]) ifTrue: [
- 		interpreterProxy success: false.
- 		^ 0].
- 	bitmap := self cCoerce: (interpreterProxy firstIndexableField: bitmapOop) to: 'unsigned char *'.
- 	pixCount := interpreterProxy stSizeOf: bitmapOop.
- 
- 	result := self cCode: 'CameraGetFrame(cameraNum, bitmap, pixCount)'.
- 	result < 0 ifTrue: [
- 		interpreterProxy success: false.
- 		^ 0].
- 
- 	interpreterProxy pop: 3 thenPush: (interpreterProxy integerObjectOf: result).  "pop rcvr & args, push int result"
- 	^ 0
- 
- !

Item was removed:
- ----- Method: CameraInterface>>primGetParam (in category 'primitives') -----
- primGetParam
- 	"Answer the given integer parameter of the given camera."
- 
- 	| cameraNum paramNum result |
- 	self export: true.
- 	cameraNum := interpreterProxy stackIntegerValue: 1.
- 	paramNum := interpreterProxy stackIntegerValue: 0.
- 	interpreterProxy failed ifTrue: [^ 0].
- 
- 	result := self cCode: 'CameraGetParam(cameraNum, paramNum)'.
- 
- 	interpreterProxy pop: 3 thenPush: (interpreterProxy integerObjectOf: result).  "pop rcvr & args, push int result"
- 	^ 0
- !

Item was removed:
- ----- Method: CameraInterface>>primOpenCamera (in category 'primitives') -----
- primOpenCamera
- 	"Open a camera. Takes one argument, the index of the device to open."
- 
- 	| cameraNum desiredFrameWidth desiredFrameHeight ok |
- 	self export: true.
- 
- 	cameraNum := interpreterProxy stackIntegerValue: 2.
- 	desiredFrameWidth := interpreterProxy stackIntegerValue: 1.
- 	desiredFrameHeight := interpreterProxy stackIntegerValue: 0.
- 	interpreterProxy failed ifTrue: [^ 0].
- 
- 	ok := self cCode: 'CameraOpen(cameraNum, desiredFrameWidth, desiredFrameHeight)'.
- 	ok = 0 ifTrue: [
- 		interpreterProxy success: false.
- 		^ 0].
- 
- 	interpreterProxy pop: 3.  "pop args, leave rcvr on stack"
- 	^ 0
- !