Squeak-dev February 2019

squeak-dev@lists.squeakfoundation.org

37 participants
92 discussions

The Inbox: FFI-Tests-KenD.11.mcz
by commits＠source.squeak.org 11 Feb '19

11 Feb '19

A new version of FFI-Tests was added to project The Inbox: http://source.squeak.org/inbox/FFI-Tests-KenD.11.mcz ==================== Summary ==================== Name: FFI-Tests-KenD.11 Author: KenD Time: 10 February 2019, 11:44:54.143441 pm UUID: 52ffb72e-ce43-43a2-8b80-81f88dcf6d83 Ancestors: FFI-Tests-KenD.10 Added Bigger Structure test =============== Diff against FFI-Tests-cbc.9 =============== Item was added: + ----- Method: FFIPluginTests>>testBiggerStruct (in category 'structure tests') ----- + testBiggerStruct + "Test passing and returning up of structures > 64 bit" + | pt1 pt2 pt3 | + pt1 := FFITestPoint4 new. + pt1 x: 1. pt1 y: 2. pt1 z: 3. pt1 w: 4. + pt2 := FFITestPoint4 new. + pt2 x: 5. pt2 y: 6. pt2 z: 7. pt2 w: 8. + pt3 := FFITestLibrary ffiTestBiggerStruct: pt1 with: pt2. + self assert: pt3 x = 1. + self assert: pt3 y = 2. + self assert: pt3 z = 3. + self assert: pt3 w = 4. + self assert: pt3 r = 5. + self assert: pt3 s = 6. + self assert: pt3 t = 7. + self assert: pt3 u = 8.! Item was added: + ExternalStructure subclass: #FFITestBiggerStruct + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'FFI-Tests'! Item was added: + ----- Method: FFITestBiggerStruct class>>fields (in category 'field definition') ----- + fields + "FFITestPoint4 defineFields" + ^#( + (x 'longlong') + (y 'longlong') + (z 'longlong') + (w 'longlong') + (r 'longlong') + (s 'longlong') + (t 'longlong') + (u 'longlong') + ) + ! Item was added: + ----- Method: FFITestBiggerStruct class>>initialize (in category 'class initialization') ----- + initialize + " + self defineFields; compileFields + " + self compileFields! Item was added: + ----- Method: FFITestBiggerStruct>>r (in category 'accessing') ----- + r + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + ^handle signedLongLongAt: 33! Item was added: + ----- Method: FFITestBiggerStruct>>r: (in category 'accessing') ----- + r: anObject + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + handle signedLongLongAt: 33 put: anObject! Item was added: + ----- Method: FFITestBiggerStruct>>s (in category 'accessing') ----- + s + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + ^handle signedLongLongAt: 41! Item was added: + ----- Method: FFITestBiggerStruct>>s: (in category 'accessing') ----- + s: anObject + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + handle signedLongLongAt: 41 put: anObject! Item was added: + ----- Method: FFITestBiggerStruct>>t (in category 'accessing') ----- + t + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + ^handle signedLongLongAt: 49! Item was added: + ----- Method: FFITestBiggerStruct>>t: (in category 'accessing') ----- + t: anObject + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + handle signedLongLongAt: 49 put: anObject! Item was added: + ----- Method: FFITestBiggerStruct>>u (in category 'accessing') ----- + u + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + ^handle signedLongLongAt: 57! Item was added: + ----- Method: FFITestBiggerStruct>>u: (in category 'accessing') ----- + u: anObject + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + handle signedLongLongAt: 57 put: anObject! Item was added: + ----- Method: FFITestBiggerStruct>>w (in category 'accessing') ----- + w + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + ^handle signedLongLongAt: 25! Item was added: + ----- Method: FFITestBiggerStruct>>w: (in category 'accessing') ----- + w: anObject + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + handle signedLongLongAt: 25 put: anObject! Item was added: + ----- Method: FFITestBiggerStruct>>x (in category 'accessing') ----- + x + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + ^handle signedLongLongAt: 1! Item was added: + ----- Method: FFITestBiggerStruct>>x: (in category 'accessing') ----- + x: anObject + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + handle signedLongLongAt: 1 put: anObject! Item was added: + ----- Method: FFITestBiggerStruct>>y (in category 'accessing') ----- + y + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + ^handle signedLongLongAt: 9! Item was added: + ----- Method: FFITestBiggerStruct>>y: (in category 'accessing') ----- + y: anObject + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + handle signedLongLongAt: 9 put: anObject! Item was added: + ----- Method: FFITestBiggerStruct>>z (in category 'accessing') ----- + z + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + ^handle signedLongLongAt: 17! Item was added: + ----- Method: FFITestBiggerStruct>>z: (in category 'accessing') ----- + z: anObject + "This method was automatically generated. See FFITestBiggerStruct class>>fields." + <generated> + handle signedLongLongAt: 17 put: anObject! Item was added: + ----- Method: FFITestLibrary class>>ffiTestBiggerStruct:with: (in category 'primitives') ----- + ffiTestBiggerStruct: pt1 with: pt2 + <cdecl: FFITestBiggerStruct 'ffiTestStructBigger' (FFITestPoint4 FFITestPoint4) module:'SqueakFFIPrims'> + ^self externalCallFailed!

1 0

The Inbox: Kernel-nice.1213.mcz
by commits＠source.squeak.org 09 Feb '19

09 Feb '19

Nicolas Cellier uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/Kernel-nice.1213.mcz ==================== Summary ==================== Name: Kernel-nice.1213 Author: nice Time: 8 February 2019, 11:24:45.054968 pm UUID: d7a472c9-49dd-4b1d-b73a-13b9c7c8d4c5 Ancestors: Kernel-tonyg.1212 Provide a logarithm in base 2: log2. This (x log2) has an additional property that (x log: 2) has not: it is exact for exact powers of 2. While implementing LogarithmicInterval, I recently wanted to use log: 2, and this was getting as bad as in Python. See https://stackoverflow.com/questions/931995/inaccurate-logarithm-in-python/5… I don't know if this feature is really worth it, but whether it ends up integrated or not, at least it demonstrates how easy it is to patch Squeak. =============== Diff against Kernel-tonyg.1212 =============== Item was added: + ----- Method: Float>>log2 (in category 'mathematical functions') ----- + log2 + "Answer the base 2 logarithm of the receiver. + Arrange to answer exact result in case of exact power of 2." + + ^ self significand ln / Ln2 + self exponent! Item was added: + ----- Method: Fraction>>log2 (in category 'mathematical functions') ----- + log2 + "This function is defined because super log might overflow." + | res | + self <= 0 ifTrue: [DomainError signal: 'log2 is only defined for x > 0']. + "Test self < 1 before converting to float in order to avoid precision loss due to gradual underflow." + numerator < denominator ifTrue: [^self reciprocal log2 negated]. + res := super log2. + res isFinite ifTrue: [^res]. + ^numerator log2 - denominator log2! Item was added: + ----- Method: Integer>>log2 (in category 'mathematical functions') ----- + log2 + self > 0 ifTrue: [^super log2]. + ^DomainError signal: 'log2 is only defined for x > 0'! Item was added: + ----- Method: LargeNegativeInteger>>log2 (in category 'mathematical functions') ----- + log2 + ^DomainError signal: 'log2 is only defined for x > 0'! Item was added: + ----- Method: LargePositiveInteger>>log2 (in category 'mathematical functions') ----- + log2 + "This function is defined because super log2 might overflow." + | res h | + res := super log2. + res isFinite ifTrue: [^res]. + h := self highBit. + ^h + (self / (1 << h)) asFloat log2! Item was added: + ----- Method: Number>>log2 (in category 'mathematical functions') ----- + log2 + "Answer the base-2 log of the receiver." + + ^self asFloat log2! Item was changed: ----- Method: Number>>log: (in category 'mathematical functions') ----- log: aNumber "Answer the log base aNumber of the receiver." + aNumber = 2 ifTrue: [^self log2]. ^self ln / aNumber ln! Item was added: + ----- Method: ScaledDecimal>>log2 (in category 'mathematical functions') ----- + log2 + "Unlike super, avoid Float overflow/underflow" + + ^self asFraction log2!

3 2

The Trunk: Help-Squeak-Project-pre.66.mcz
by commits＠source.squeak.org 07 Feb '19

07 Feb '19

Patrick Rein uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-pre.66.mcz ==================== Summary ==================== Name: Help-Squeak-Project-pre.66 Author: pre Time: 7 February 2019, 8:50:02.069431 pm UUID: 230ce268-a872-4b95-98d8-2a4d6cdadf28 Ancestors: Help-Squeak-Project-pre.65 Removes an example method which did not work in a stable way and improved the presentation of the example list. =============== Diff against Help-Squeak-Project-pre.65 =============== Item was changed: ----- Method: SqueakMessageCategoriesHelp class>>addCategoryTopicsTo: (in category 'private') ----- addCategoryTopicsTo: aTopic self selectors sorted do: [:selector | | helpContents examples | examples := (self new perform: selector). examples := examples isCollection ifTrue: [examples] ifFalse: [#()]. helpContents := (self commentsAt: selector) first asText, String crlf asText , String crlf asText , ('Examples:' asText allBold; yourself) , String crlf asText , + ((examples collect: [:m | m reference]) joinSeparatedBy: ', ' , String crlf) asText. - ((examples collect: [:m | m reference]) joinSeparatedBy: ', ') asText. aTopic addSubtopic: ((HelpTopic title: (self organization categoryOfElement: selector) icon: (HelpIcons iconNamed: #pageIcon) contents: helpContents) priority: 999; yourself)]! Item was changed: ----- Method: SqueakMessageCategoriesHelp>>failures (in category 'failures') ----- failures "This category is most often used with TestCase classes. It contains any methods denoting failures for this TestCase" + ^ {"There is no stable example method for this"}! - ^ {RectangleTest>>#expectedFailures}!

1 0

Sorry about g/inbox/FFI-Tests-cbc.9.mcz
by ken.dickey＠whidbey.com 07 Feb '19

07 Feb '19

Too long since I use Squeak (mostly Cuis for some time). I was trying to submit the attached as a new package version. The added FFI unit test is for big structs and to check changes I made for the arm64/aarch64 FFI. I am only running arm+Linux and would appreciate help in getting the FFI-tests properly packaged and any testing on other systems. Also, the latest VMMaker and opensmalltalk-vm updates should pass green on the aarch64/arm64 stack+spur vm (no Cog yet). The arm64 VM should run Squeak & Cuis. Not yet Pharo. Any help appreciated! -KenD

1 0

squeak.org availability issues
by Fabio Niephaus 07 Feb '19

07 Feb '19

Hi all, Unfortunately, squeak.org wasn't renewed in time and expired today. That's why some of you might have seen a parking website. The issue has been resolved and you should see our website again as soon as DNS changes have propagated to you. Best, Fabio

1 0

The Inbox: FFI-Tests-cbc.9.mcz
by commits＠source.squeak.org 07 Feb '19

07 Feb '19

A new version of FFI-Tests was added to project The Inbox: http://source.squeak.org/inbox/FFI-Tests-cbc.9.mcz ==================== Summary ==================== Name: FFI-Tests-cbc.9 Author: cbc Time: 17 April 2017, 9:40:36.880187 am UUID: 00985020-cc08-fc49-a7fd-7279da9180c0 Ancestors: FFI-Tests-EstebanLorenzano.8 Remove test on ExternalForm (since it was removed from FFI package - and it was wrong, now, too). Currently in EToys tests. ==================== Snapshot ==================== SystemOrganization addCategory: #'FFI-Tests'! ExternalStructure subclass: #FFISmallStruct1 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Tests'! ----- Method: FFISmallStruct1 class>>fields (in category 'as yet unclassified') ----- fields "FFITestPoint2 defineFields" ^#( (x 'byte') (y 'byte') )! ----- Method: FFISmallStruct1>>x (in category 'accessing') ----- x "This method was automatically generated" ^handle unsignedByteAt: 1! ----- Method: FFISmallStruct1>>x: (in category 'accessing') ----- x: anObject "This method was automatically generated" handle unsignedByteAt: 1 put: anObject! ----- Method: FFISmallStruct1>>y (in category 'accessing') ----- y "This method was automatically generated" ^handle unsignedByteAt: 2! ----- Method: FFISmallStruct1>>y: (in category 'accessing') ----- y: anObject "This method was automatically generated" handle unsignedByteAt: 2 put: anObject! ExternalStructure subclass: #FFITestPoint2 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Tests'! !FFITestPoint2 commentStamp: 'ar 8/14/2006 23:06' prior: 0! A class used for testing structures as arguments for the FFI.! ----- Method: FFITestPoint2 class>>fields (in category 'field definition') ----- fields "FFITestPoint2 defineFields" ^#( (x 'long') (y 'long') )! ----- Method: FFITestPoint2>>x (in category 'accessing') ----- x "This method was automatically generated" ^handle signedLongAt: 1! ----- Method: FFITestPoint2>>x: (in category 'accessing') ----- x: anObject "This method was automatically generated" handle signedLongAt: 1 put: anObject! ----- Method: FFITestPoint2>>y (in category 'accessing') ----- y "This method was automatically generated" ^handle signedLongAt: 5! ----- Method: FFITestPoint2>>y: (in category 'accessing') ----- y: anObject "This method was automatically generated" handle signedLongAt: 5 put: anObject! ExternalStructure subclass: #FFITestPoint4 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Tests'! !FFITestPoint4 commentStamp: 'ar 8/14/2006 23:06' prior: 0! A class used for testing structures as arguments for the FFI.! ----- Method: FFITestPoint4 class>>fields (in category 'field definition') ----- fields "FFITestPoint4 defineFields" ^#( (x 'long') (y 'long') (z 'long') (w 'long') )! ----- Method: FFITestPoint4>>w (in category 'accessing') ----- w "This method was automatically generated" ^handle signedLongAt: 13! ----- Method: FFITestPoint4>>w: (in category 'accessing') ----- w: anObject "This method was automatically generated" handle signedLongAt: 13 put: anObject! ----- Method: FFITestPoint4>>x (in category 'accessing') ----- x "This method was automatically generated" ^handle signedLongAt: 1! ----- Method: FFITestPoint4>>x: (in category 'accessing') ----- x: anObject "This method was automatically generated" handle signedLongAt: 1 put: anObject! ----- Method: FFITestPoint4>>y (in category 'accessing') ----- y "This method was automatically generated" ^handle signedLongAt: 5! ----- Method: FFITestPoint4>>y: (in category 'accessing') ----- y: anObject "This method was automatically generated" handle signedLongAt: 5 put: anObject! ----- Method: FFITestPoint4>>z (in category 'accessing') ----- z "This method was automatically generated" ^handle signedLongAt: 9! ----- Method: FFITestPoint4>>z: (in category 'accessing') ----- z: anObject "This method was automatically generated" handle signedLongAt: 9 put: anObject! TestCase subclass: #FFIPluginTests instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Tests'! !FFIPluginTests commentStamp: '<historical>' prior: 0! SUnitized tests for the FFI (mostly the plugin side)! ----- Method: FFIPluginTests>>testConstructedCharCall (in category 'simple tests') ----- testConstructedCharCall "Test using generic FFI spec" | result meth | meth := ExternalLibraryFunction name:'ffiTestChars' module: FFITestLibrary moduleName callType: 0 returnType: ExternalType char argumentTypes: ((1 to: 4) collect:[:i| ExternalType char]). result := meth invokeWith: $A with: 65 with: 65.0 with: true. self assert: result isCharacter. self assert: result asciiValue = 130.! ----- Method: FFIPluginTests>>testConstructedDoubleCall (in category 'simple tests') ----- testConstructedDoubleCall "Test using generic FFI spec" | result meth | meth := ExternalLibraryFunction name:'ffiTestDoubles' module: FFITestLibrary moduleName callType: 0 returnType: ExternalType double argumentTypes: ((1 to: 2) collect:[:i| ExternalType double]). result := meth invokeWithArguments: (Array with: 41 with: true). self assert: result = 42.0! ----- Method: FFIPluginTests>>testConstructedFloatCall (in category 'simple tests') ----- testConstructedFloatCall "Test using generic FFI spec" | result meth | meth := ExternalLibraryFunction name:'ffiTestFloats' module: FFITestLibrary moduleName callType: 0 returnType: ExternalType float argumentTypes: ((1 to: 2) collect:[:i| ExternalType float]). result := meth invokeWith: $A with: 65.0. self assert: result = 130.0! ----- Method: FFIPluginTests>>testConstructedIntCall (in category 'simple tests') ----- testConstructedIntCall "Test using generic FFI spec" | result meth | meth := ExternalLibraryFunction name:'ffiTestInts' module: FFITestLibrary moduleName callType: 0 returnType: ExternalType long argumentTypes: ((1 to: 4) collect:[:i| ExternalType long]). result := meth invokeWith: $A with: 65 with: 65.0 with: true. self assert: result = 130.! ----- Method: FFIPluginTests>>testConstructedPrintString (in category 'simple tests') ----- testConstructedPrintString "Test using generic FFI spec" | result meth | meth := ExternalLibraryFunction name:'ffiPrintString' module: FFITestLibrary moduleName callType: 0 returnType: ExternalType string argumentTypes: ((1 to: 1) collect:[:i| ExternalType string]). result := meth invokeWith:'Hello World!!'. self assert: result = 'Hello World!!'.! ----- Method: FFIPluginTests>>testConstructedShortCall (in category 'simple tests') ----- testConstructedShortCall "Test using generic FFI spec" | result meth | meth := ExternalLibraryFunction name:'ffiTestShorts' module: FFITestLibrary moduleName callType: 0 returnType: ExternalType short argumentTypes: ((1 to: 4) collect:[:i| ExternalType short]). result := meth invokeWithArguments: (Array with: $A with: 65 with: 65.0 with: true). self assert: result = 130.! ----- Method: FFIPluginTests>>testGenericCharCall (in category 'simple tests') ----- testGenericCharCall "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestChar: $A with: 65 with: 65.0 with: true. self assert: result isCharacter. self assert: result asciiValue = 130.! ----- Method: FFIPluginTests>>testGenericDoubleCall (in category 'simple tests') ----- testGenericDoubleCall "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestDoubles: $A with: 65.0. self assert: result = 130.0! ----- Method: FFIPluginTests>>testGenericDoubleCall2 (in category 'simple tests') ----- testGenericDoubleCall2 "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestDoubles9: 1.0 d: 2.0 d: 3.0 d: 4.0 d: 5.0 d: 6.0 d: 7.0 d: 8.0 d: 9.0. self assert: result = 45.0! ----- Method: FFIPluginTests>>testGenericFloatCall (in category 'simple tests') ----- testGenericFloatCall "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestFloats: $A with: 65.0. self assert: result = 130.0! ----- Method: FFIPluginTests>>testGenericIntCall (in category 'simple tests') ----- testGenericIntCall "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestInt: $A with: 65 with: 65.0 with: true. self assert: result = 130.! ----- Method: FFIPluginTests>>testGenericMixedDoublesIntAndStruct (in category 'simple tests') ----- testGenericMixedDoublesIntAndStruct "Test using generic FFI spec" | result i struct | i := 42. struct := FFITestPoint4 new. struct x: 1. struct y: 2. struct z: 3. struct w: 4. result := FFITestLibrary ffiTestMixedDoublesIntAndStruct: 1.0 d: 2.0 d: 3.0 d: 4.0 d: 5.0 d: 6.0 d: 7.0 d: 8.0 d: 9.0 i: 42 s: struct. self assert: (result closeTo: 45.0 + 42 + 10) ! ----- Method: FFIPluginTests>>testGenericMixedFloatsAndDouble (in category 'simple tests') ----- testGenericMixedFloatsAndDouble "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestMixedFloatsAndDouble: 1.2 with: 3.4 with: 5.6 with: 7.8. self assert: (result closeTo: 1.2 + 3.4 + 5.6 + 7.8) ! ----- Method: FFIPluginTests>>testGenericPrintString (in category 'simple tests') ----- testGenericPrintString "Test using generic FFI spec" | result | result := FFITestLibrary ffiPrintString:'Hello World!!'. self assert: result = 'Hello World!!'.! ----- Method: FFIPluginTests>>testGenericShortCall (in category 'simple tests') ----- testGenericShortCall "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestShort: $A with: 65 with: 65.0 with: true. self assert: result = 130.! ----- Method: FFIPluginTests>>testLibraryCharCall (in category 'simple tests') ----- testLibraryCharCall "Test using call from ExternalLibrary" | result | result := FFITestLibrary new ffiTestChar: $A with: 65 with: 65.0 with: true. self assert: result isCharacter. self assert: result asciiValue = 130.! ----- Method: FFIPluginTests>>testLibraryDoubleCall (in category 'simple tests') ----- testLibraryDoubleCall "Test using call from ExternalLibrary" | result | result := FFITestLibrary new ffiTestDoubles: $A with: 65.0. self assert: result = 130.0! ----- Method: FFIPluginTests>>testLibraryFloatCall (in category 'simple tests') ----- testLibraryFloatCall "Test using call from ExternalLibrary" | result | result := FFITestLibrary new ffiTestFloats: $A with: 65.0. self assert: result = 130.0! ----- Method: FFIPluginTests>>testLibraryIntCall (in category 'simple tests') ----- testLibraryIntCall "Test using call from ExternalLibrary" | result | result := FFITestLibrary new ffiTestInt: $A with: 65 with: 65.0 with: true. self assert: result = 130.! ----- Method: FFIPluginTests>>testLibraryPrintString (in category 'simple tests') ----- testLibraryPrintString "Test using call from ExternalLibrary" | result | result := FFITestLibrary new ffiPrintString:'Hello World!!'. self assert: result = 'Hello World!!'.! ----- Method: FFIPluginTests>>testLoadSymbolFromModule (in category 'other tests') ----- testLoadSymbolFromModule | address | "Ok" address := ExternalAddress loadSymbol: 'ffiTestFloats' module: FFITestLibrary moduleName. self deny: address isNil. self deny: address isNull. "Symbol does not exists" self should: [ ExternalAddress loadSymbol: 'ffi_does_not_exist' module: FFITestLibrary moduleName ] raise: Error. "Module does not exists" self should: [ ExternalAddress loadSymbol: 'ffiTestFloats' module: 'NonExistingModule' ] raise: Error. ! ----- Method: FFIPluginTests>>testLongLongA1 (in category 'simple tests') ----- testLongLongA1 "Test passing a char and two longlongs." | byte long1 long2 long3 | byte := 42. long1 := 16r123456789012. long2 := (-1 << 31). long3 := FFITestLibrary ffiTestLongLongA1: byte with: long1 with: long2. self assert: long3 = (byte + long1 + long2)! ----- Method: FFIPluginTests>>testLongLongA3 (in category 'simple tests') ----- testLongLongA3 "Test passing a char, a longlong, and another char." | byte1 long1 byte2 long2 | byte1 := 3. long1 := 16r123456789012. byte2 := 4. long2 := FFITestLibrary ffiTestLongLongA3: byte1 with: long1 with: byte2. self assert: long2 = (byte1 + long1 + byte2)! ----- Method: FFIPluginTests>>testLongLongs (in category 'simple tests') ----- testLongLongs "Test passing and returning longlongs" | long1 long2 long3 | long1 := 16r123456789012. long2 := (-1 << 31). long3 := FFITestLibrary ffiTestLongLong: long1 with: long2. self assert: long3 = (long1 + long2)! ----- Method: FFIPluginTests>>testMixedIntAndStruct (in category 'structure tests') ----- testMixedIntAndStruct "Test passing an integer and two structures." | i1 pt1 pt2 result | i1 := 42. pt1 := FFITestPoint2 new. pt1 x: 3. pt1 y: 4. pt2 := FFITestPoint2 new. pt2 x: 5. pt2 y: 6. result := FFITestLibrary ffiTestMixedIntAndStruct: i1 with: pt1 with: pt2. self assert: result = 60.! ----- Method: FFIPluginTests>>testMixedIntAndStruct2 (in category 'structure tests') ----- testMixedIntAndStruct2 "Test passing an integer and two structures." | i1 pt1 result | i1 := 42. pt1 := FFITestPoint4 new. pt1 x: 3. pt1 y: 4. pt1 z: 5. pt1 w: 6. result := FFITestLibrary ffiTestMixedIntAndStruct2: i1 with: pt1. self assert: result = 60.! ----- Method: FFIPluginTests>>testMixedIntAndStruct3 (in category 'structure tests') ----- testMixedIntAndStruct3 "Test passing an integer and a small structure." | i1 pt1 result | i1 := 42. pt1 := FFISmallStruct1 new. pt1 x: 3. pt1 y: 4. result := FFITestLibrary ffiTestMixedIntAndStruct3: i1 with: pt1. self assert: result = 49! ----- Method: FFIPluginTests>>testPoint2 (in category 'structure tests') ----- testPoint2 "Test passing and returning up of structures >32bit and <= 64 bit" | pt1 pt2 pt3 | pt1 := FFITestPoint2 new. pt1 x: 1. pt1 y: 2. pt2 := FFITestPoint2 new. pt2 x: 3. pt2 y: 4. pt3 := FFITestLibrary ffiTestPoint2: pt1 with: pt2. self assert: pt3 x = 4. self assert: pt3 y = 6.! ----- Method: FFIPluginTests>>testPoint4 (in category 'structure tests') ----- testPoint4 "Test passing and returning up of structures > 64 bit" | pt1 pt2 pt3 | pt1 := FFITestPoint4 new. pt1 x: 1. pt1 y: 2. pt1 z: 3. pt1 w: 4. pt2 := FFITestPoint4 new. pt2 x: 5. pt2 y: 6. pt2 z: 7. pt2 w: 8. pt3 := FFITestLibrary ffiTestPoint4: pt1 with: pt2. self assert: pt3 x = 6. self assert: pt3 y = 8. self assert: pt3 z = 10. self assert: pt3 w = 12.! ----- Method: FFIPluginTests>>testPointers (in category 'structure tests') ----- testPointers "Test passing and returning of pointers to structs" | pt1 pt2 pt3 | pt1 := FFITestPoint4 new. pt1 x: 1. pt1 y: 2. pt1 z: 3. pt1 w: 4. pt2 := FFITestPoint4 new. pt2 x: 5. pt2 y: 6. pt2 z: 7. pt2 w: 8. pt3 := FFITestLibrary ffiTestPointers: pt1 with: pt2. self assert: pt3 x = 6. self assert: pt3 y = 8. self assert: pt3 z = 10. self assert: pt3 w = 12.! ----- Method: FFIPluginTests>>testSmallStructureReturn (in category 'structure tests') ----- testSmallStructureReturn "Test returning small structures (<4 bytes) which are returned in a register on some platforms." | pt1 | pt1 := FFITestLibrary ffiTestSmallStructReturn. self assert: pt1 x = 3. self assert: pt1 y = 4.! ----- Method: FFIPluginTests>>testUlongRange (in category 'simple tests') ----- testUlongRange "Simple test for making sure the FFI can call certain numbers in the ulong range" | result | self shouldnt:[result := FFITestLibrary ffiTestUlong: 3103854339 with: 3103854339 with: 3103854339 with: 3103854339] raise: Error. self should: result = 1912741382.! ExternalLibrary subclass: #FFITestLibrary instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Tests'! !FFITestLibrary commentStamp: 'ar 8/14/2006 23:06' prior: 0! ExternalLibrarty used in FFI tests! ----- Method: FFITestLibrary class>>ffiPrintString: (in category 'primitives') ----- ffiPrintString: aString "FFITestLibrary ffiPrintString: 'Hello'" <cdecl: char* 'ffiPrintString' (char *) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestChar:with:with:with: (in category 'primitives') ----- ffiTestChar: c1 with: c2 with: c3 with: c4 "FFITestLibrary ffiTestChar: $A with: 65 with: 65.0 with: true" <cdecl: char 'ffiTestChars' (char char char char) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestDoubles9:d:d:d:d:d:d:d:d: (in category 'primitives') ----- ffiTestDoubles9: f1 d: f2 d: f3 d: f4 d: f5 d: f6 d: f7 d: f8 d: f9 "FFITestLibrary ffiTestDoubles9: 1.0 d: 2.0 d: 3.0 d: 4.0 d: 5.0 d: 6.0 d: 7.0 d: 8.0 d: 9.0" <cdecl: double 'ffiTestDoubles9' (double double double double double double double double double) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestDoubles:with: (in category 'primitives') ----- ffiTestDoubles: f1 with: f2 "FFITestLibrary ffiTestDoubles: $A with: 65.0" <cdecl: double 'ffiTestDoubles' (double double) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestFloats:with: (in category 'primitives') ----- ffiTestFloats: f1 with: f2 "FFITestLibrary ffiTestFloats: $A with: 65.0" <cdecl: float 'ffiTestFloats' (float float) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestInt:with:with:with: (in category 'primitives') ----- ffiTestInt: c1 with: c2 with: c3 with: c4 "FFITestLibrary ffiTestInt: $A with: 65 with: 65.0 with: true" <cdecl: long 'ffiTestInts' (long long long long) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestLongLong:with: (in category 'primitives') ----- ffiTestLongLong: long1 with: long2 "FFITestLibrary ffiTestLongLong: 3 with: 4" <cdecl: longlong 'ffiTestLongLong' (longlong longlong) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestLongLongA1:with:with: (in category 'primitives') ----- ffiTestLongLongA1: byte with: long1 with: long2 "FFITestLibrary ffiTestLongLongA1: 3 with: 4 with: 5" <cdecl: longlong 'ffiTestLongLonga1' (char longlong longlong) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestLongLongA3:with:with: (in category 'primitives') ----- ffiTestLongLongA3: byte1 with: long1 with: byte2 "FFITestLibrary ffiTestLongLongA3: 3 with: 4 with: 5" <cdecl: longlong 'ffiTestLongLonga3' (char longlong char) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestMixedDoublesIntAndStruct:d:d:d:d:d:d:d:d:i:s: (in category 'primitives') ----- ffiTestMixedDoublesIntAndStruct: f1 d: f2 d: f3 d: f4 d: f5 d: f6 d: f7 d: f8 d: f9 i: i1 s: s1 "FFITestLibrary ffiTestMixedDoublesIntAndStruct: 1.0 d: 2.0 d: 3.0 d: 4.0 d: 5.0 d: 6.0 d: 7.0 d: 8.0 d: 9.0 i: 42 s: (FFITestPoint4 new x: 3; y: 4; z: 5; w:6)" <cdecl: double 'ffiTestMixedDoublesIntAndStruct' (double double double double double double double double double long FFITestPoint4) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestMixedFloatsAndDouble:with:with:with: (in category 'primitives') ----- ffiTestMixedFloatsAndDouble: f1 with: d1 with: f2 with: f3 "FFITestLibrary ffiTestMixedFloatsAndDouble: 1.2 with: 3.4 with: 5.6 with: 7.8" <cdecl: double 'ffiTestMixedFloatsAndDouble' (float double float float) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestMixedIntAndStruct2:with: (in category 'primitives') ----- ffiTestMixedIntAndStruct2: i with: pt4 "FFITestLibrary ffiTestMixedIntAndStruct2: 2 with: (FFITestPoint4 new x: 3; y: 4; z: 5; w:6)" <cdecl: long 'ffiTestMixedIntAndStruct2' (long FFITestPoint4) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestMixedIntAndStruct3:with: (in category 'primitives') ----- ffiTestMixedIntAndStruct3: i with: anFFISmallStruct1 "FFITestLibrary ffiTestMixedIntAndStruct3: 2 with: (FFISmallStruct1 new x: 3; y: 4)" <cdecl: long 'ffiTestMixedIntAndStruct3' (long FFISmallStruct1) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestMixedIntAndStruct:with:with: (in category 'primitives') ----- ffiTestMixedIntAndStruct: i with: pt1 with: pt2 "FFITestLibrary ffiTestMixedIntAndStruct: 2 with: (FFITestPoint2 new x: 3; y: 4) with: (FFITestPoint2 new x: 5; y: 6)" <cdecl: long 'ffiTestMixedIntAndStruct' (long FFITestPoint2 FFITestPoint2) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestPoint2:with: (in category 'primitives') ----- ffiTestPoint2: pt1 with: pt2 <cdecl: FFITestPoint2 'ffiTestStruct64' (FFITestPoint2 FFITestPoint2) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestPoint4:with: (in category 'primitives') ----- ffiTestPoint4: pt1 with: pt2 <cdecl: FFITestPoint4 'ffiTestStructBig' (FFITestPoint4 FFITestPoint4) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestPointers:with: (in category 'primitives') ----- ffiTestPointers: pt1 with: pt2 <cdecl: FFITestPoint4* 'ffiTestPointers' (FFITestPoint4* FFITestPoint4*) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestShort:with:with:with: (in category 'primitives') ----- ffiTestShort: c1 with: c2 with: c3 with: c4 "FFITestLibrary ffiTestShort: $A with: 65 with: 65.0 with:1" <cdecl: short 'ffiTestShorts' (short short short short) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestSmallStructReturn (in category 'primitives') ----- ffiTestSmallStructReturn "FFITestLibrary ffiTestSmallStructReturn" <cdecl: FFISmallStruct1 'ffiTestSmallStructReturn' (void) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>ffiTestUlong:with:with:with: (in category 'primitives') ----- ffiTestUlong: c1 with: c2 with: c3 with: c4 "FFITestLibrary ffiTestUlong: 3103854339 with: 3103854339 with: 3103854339 with: 3103854339" <cdecl: long 'ffiTestInts' (ulong ulong ulong ulong) module:'SqueakFFIPrims'> ^self externalCallFailed! ----- Method: FFITestLibrary class>>moduleName (in category 'accessing') ----- moduleName "Use the fully qualified VM name so we ensure testing loading a library" ^'SqueakFFIPrims'! ----- Method: FFITestLibrary>>ffiPrintString: (in category 'primitives') ----- ffiPrintString: aString "FFITestLibrary new ffiPrintString: 'Hello'" <cdecl: char* 'ffiPrintString' (char *)> ^self externalCallFailed! ----- Method: FFITestLibrary>>ffiTestChar:with:with:with: (in category 'primitives') ----- ffiTestChar: c1 with: c2 with: c3 with: c4 "FFITestLibrary new ffiTestChar: $A with: 65 with: 65.0 with: true" <cdecl: char 'ffiTestChars' (char char char char)> ^self externalCallFailed! ----- Method: FFITestLibrary>>ffiTestDoubles:with: (in category 'primitives') ----- ffiTestDoubles: f1 with: f2 "FFITestLibrary new ffiTestDoubles: $A with: 65.0" <cdecl: double 'ffiTestDoubles' (double double)> ^self externalCallFailed! ----- Method: FFITestLibrary>>ffiTestFloats:with: (in category 'primitives') ----- ffiTestFloats: f1 with: f2 "FFITestLibrary new ffiTestFloats: $A with: 65.0" <cdecl: float 'ffiTestFloats' (float float)> ^self externalCallFailed! ----- Method: FFITestLibrary>>ffiTestInt:with:with:with: (in category 'primitives') ----- ffiTestInt: c1 with: c2 with: c3 with: c4 "FFITestLibrary new ffiTestInt: $A with: 65 with: 65.0 with: $A" <cdecl: long 'ffiTestInts' (long long long long)> ^self externalCallFailed! ----- Method: FFITestLibrary>>ffiTestShort:with:with:with: (in category 'primitives') ----- ffiTestShort: c1 with: c2 with: c3 with: c4 "FFITestLibrary new ffiTestShort: $A with: 65 with: 65.0 with: $A" <cdecl: short 'ffiTestShorts' (short short short short)> ^self externalCallFailed!

1 0

Squeak Oversight Board Election 2019
by Ron Teitelbaum 06 Feb '19

06 Feb '19

Hi All, It's that time again. Time to raise your voices and elect your leaders! Can you believe it's been a year already? It's a time for you to stand up, help your community and volunteer to serve! Squeak wants you! Every year we elect the SOB (Squeak Oversight Board) consisting of seven members from our community. The current board members are: 1. Bert Freudenberg 2. Eliot Miranda 3. Tim Rowledge 4. David T. Lewis 5. Marcel Taeumel 6. Craig Latta 7. Nicolas Cellier For more info on the board please see: https://squeakboard.wordpress.com/our-mission/ Everything about the election, including schedule and more, can be tracked here: http://wiki.squeak.org/squeak/6612 Now until Monday 21nd of January 3 PM (20.00 UTC): Nominations of SOB members and campaigning! Candidates should nominate themselves and start their campaign on the squeak-dev mailing list. Or if you nominate someone else, make sure that person really wants to run. :) I will not put anyone on the candidate list until that person makes it known on squeak-dev that he/she intends to run. During this period, the candidates should ideally present themselves on squeak-dev, unless they have already done so, and the community can ask questions. I encourage you to reach out to potential candidates, people that are active in the community and represent your views, and ask them to run. Some people will not run without encouragement. Also, I know that some people wait to the last minute to run for the board to see if others will run but please consider getting this year off to a faster start and just jump right in! Schedule: Now until Monday 21nd of January 3 PM (20.00 UTC): Nominations of SOB members and campaigning! Monday 21nd of January 2019 3 PM (20.00 UTC): Candidate list is finalized. Monday 21nd of January 2019 4 PM (21.00 UTC): Online election starts. Tuesday 5th of February 2019 4 PM (23.00 UTC): Online election ends. Results will be announced immediately when the election ends. The voting period is two week long and ballots are sent out via email. And how do you end up on the voter list? See below. :) IMPORTANT: New voters will NOT be added once the election is started. You MUST try to get on the voter list before the 21st of January 2019 or you will NOT be able to vote. If your Email has changed please try to make sure it is changed on the list of voters before the election starts. -------------------------- If you were invited to vote last year you are already on the voter list, no worries! If you are a new Squeaker and wish to vote you should do ONE of the following: * Get a "known" Squeaker to vouch for you. If a known Squeaker sends an email to voters (at) squeak.org giving me a name and email for you, then I will add you. * Send an email to voters at squeak.org yourself (and CC to squeak-dev if you like) with information/arguments showing me that you are indeed serious about voting and that you are indeed a Squeaker. When the voting period starts all voters will receive an email with instructions and a link to the voting website. If there are any further questions, just reply *in this thread* and I will closely track it - or send email to voters (at) squeak.org which points to me. ...so let's get on with it! All the best, Ron Teitelbaum

12 38

HttpClient is intended to be used for...
by tim Rowledge 05 Feb '19

05 Feb '19

... what exactly? There's no class comment to help out. So far as I can work out it seems to be partially a proxy for working out if the image is running in a web browser (can we do that these days? I was under the impression that was no longer doable with current browsers) and partially a sort of shim for some network-file-fetching-putting that would be different if actually running in a browser. If we can't do the browser thing we probably ought to clean out the related code. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim "bOtHeR" said Pooh, mistaking the LSD tablet for aspirin

6 15

24-bit sound -- how??
by Jim Rosenberg 04 Feb '19

04 Feb '19

After several years of doing artistic work in Squeak (interactive poetry), I'm now working on a project where I need to integrate sound. I can load a 16-bit .wav file, play it, and everything just works. When I try to do the same thing with a 24-bit .wav file, I get a convincing example of white noise -- not exactly what I was after ... :-) Is this a codec problem? Details: I'm developing on Linux, have been working in Squeak 4.3 but just now tried a vanilla 5.2 image and get the same results. (Requires the padsp / libpulsedsp.so wrapper trick to get sound at all.) The 16-bit sound that works shows in the VLC codec display as: Type: Audio Codec: PCM S16 LE (s16l) Sample rate: 44100 Hz Bits per sample: 16 Bitrate: 1411 kb/s and the 24-bit sound that doesn't work shows as: Type: Audio Codec: PCM S24 LE (s24l) Sample rate: 44100 Hz Bits per sample: 32 (Sounds are being exported from Audacity, and play just fine with no "tricks" in VLC.) I'm a total newbie to Squeak sound, so any hints would be highly appreciated. I suppose I can live with 16-bit sound if I have to, but I'd rather have the option of the highest resolution I can get. -Thanks, Jim

2 1

Deprecate PowerManagement class?
by tim Rowledge 04 Feb '19

04 Feb '19

This ancient fudge for old Mac OS power management infelicities probably has no further purpose. Can we deprecate it? Getting rid of it would slightly simplify the VM too. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: SARTRE: (Statement has no purpose)

3 2

← Newer
1
2
3
4
5
6
7
8
9
10
Older →