Packages June 2020

packages@lists.squeakfoundation.org

1 participants
151 discussions

FFI: FFI-Examples-mt.6.mcz
by commits＠source.squeak.org 02 Jun '20

02 Jun '20

Marcel Taeumel uploaded a new version of FFI-Examples to project FFI: http://source.squeak.org/FFI/FFI-Examples-mt.6.mcz ==================== Summary ==================== Name: FFI-Examples-mt.6 Author: mt Time: 2 June 2020, 7:46:53.373821 pm UUID: 3defdf98-0ee7-1949-a9f4-6cde06858a2a Ancestors: FFI-Examples-mt.5 Updates example structs with up-to-date code generation format. =============== Diff against FFI-Examples-mt.5 =============== Item was changed: ----- Method: X64TestStruct>>eight (in category 'accessing') ----- eight "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle doubleAt: 57! Item was changed: ----- Method: X64TestStruct>>eight: (in category 'accessing') ----- eight: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle doubleAt: 57 put: anObject! Item was changed: ----- Method: X64TestStruct>>eleven (in category 'accessing') ----- eleven "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle signedLongLongAt: 81! Item was changed: ----- Method: X64TestStruct>>eleven: (in category 'accessing') ----- eleven: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle signedLongLongAt: 81 put: anObject! Item was changed: ----- Method: X64TestStruct>>fifteen (in category 'accessing') ----- fifteen "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle signedLongLongAt: 113! Item was changed: ----- Method: X64TestStruct>>fifteen: (in category 'accessing') ----- fifteen: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle signedLongLongAt: 113 put: anObject! Item was changed: ----- Method: X64TestStruct>>five (in category 'accessing') ----- five "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle signedLongLongAt: 33! Item was changed: ----- Method: X64TestStruct>>five: (in category 'accessing') ----- five: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle signedLongLongAt: 33 put: anObject! Item was changed: ----- Method: X64TestStruct>>four (in category 'accessing') ----- four "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle doubleAt: 25! Item was changed: ----- Method: X64TestStruct>>four: (in category 'accessing') ----- four: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle doubleAt: 25 put: anObject! Item was changed: ----- Method: X64TestStruct>>fourteen (in category 'accessing') ----- fourteen "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle doubleAt: 105! Item was changed: ----- Method: X64TestStruct>>fourteen: (in category 'accessing') ----- fourteen: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle doubleAt: 105 put: anObject! Item was changed: ----- Method: X64TestStruct>>nine (in category 'accessing') ----- nine "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle signedLongLongAt: 65! Item was changed: ----- Method: X64TestStruct>>nine: (in category 'accessing') ----- nine: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle signedLongLongAt: 65 put: anObject! Item was changed: ----- Method: X64TestStruct>>one (in category 'accessing') ----- one "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle signedLongLongAt: 1! Item was changed: ----- Method: X64TestStruct>>one: (in category 'accessing') ----- one: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle signedLongLongAt: 1 put: anObject! Item was changed: ----- Method: X64TestStruct>>seven (in category 'accessing') ----- seven "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle signedLongLongAt: 49! Item was changed: ----- Method: X64TestStruct>>seven: (in category 'accessing') ----- seven: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle signedLongLongAt: 49 put: anObject! Item was changed: ----- Method: X64TestStruct>>six (in category 'accessing') ----- six "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle doubleAt: 41! Item was changed: ----- Method: X64TestStruct>>six: (in category 'accessing') ----- six: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle doubleAt: 41 put: anObject! Item was changed: ----- Method: X64TestStruct>>sixteen (in category 'accessing') ----- sixteen "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle doubleAt: 121! Item was changed: ----- Method: X64TestStruct>>sixteen: (in category 'accessing') ----- sixteen: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle doubleAt: 121 put: anObject! Item was changed: ----- Method: X64TestStruct>>ten (in category 'accessing') ----- ten "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle doubleAt: 73! Item was changed: ----- Method: X64TestStruct>>ten: (in category 'accessing') ----- ten: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle doubleAt: 73 put: anObject! Item was changed: ----- Method: X64TestStruct>>thirteen (in category 'accessing') ----- thirteen "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle signedLongLongAt: 97! Item was changed: ----- Method: X64TestStruct>>thirteen: (in category 'accessing') ----- thirteen: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle signedLongLongAt: 97 put: anObject! Item was changed: ----- Method: X64TestStruct>>three (in category 'accessing') ----- three "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle signedLongLongAt: 17! Item was changed: ----- Method: X64TestStruct>>three: (in category 'accessing') ----- three: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle signedLongLongAt: 17 put: anObject! Item was changed: ----- Method: X64TestStruct>>twelve (in category 'accessing') ----- twelve "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle doubleAt: 89! Item was changed: ----- Method: X64TestStruct>>twelve: (in category 'accessing') ----- twelve: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle doubleAt: 89 put: anObject! Item was changed: ----- Method: X64TestStruct>>two (in category 'accessing') ----- two "This method was automatically generated. See X64TestStruct class>>fields." + <generated> ^handle doubleAt: 9! Item was changed: ----- Method: X64TestStruct>>two: (in category 'accessing') ----- two: anObject "This method was automatically generated. See X64TestStruct class>>fields." + <generated> handle doubleAt: 9 put: anObject! Item was changed: ----- Method: X64TestStruct2>>one (in category 'accessing') ----- one "This method was automatically generated. See X64TestStruct2 class>>fields." + <generated> ^X64TestStruct fromHandle: (handle structAt: 1 length: 128)! Item was changed: ----- Method: X64TestStruct2>>one: (in category 'accessing') ----- one: anObject "This method was automatically generated. See X64TestStruct2 class>>fields." + <generated> handle structAt: 1 put: anObject getHandle length: 128.! Item was changed: ----- Method: X64TestStruct2>>two (in category 'accessing') ----- two "This method was automatically generated. See X64TestStruct2 class>>fields." + <generated> ^X64TestStruct fromHandle: (handle structAt: 129 length: 128)! Item was changed: ----- Method: X64TestStruct2>>two: (in category 'accessing') ----- two: anObject "This method was automatically generated. See X64TestStruct2 class>>fields." + <generated> handle structAt: 129 put: anObject getHandle length: 128.! Item was changed: ----- Method: X64TestStruct3>>eight (in category 'accessing') ----- eight "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle doubleAt: 57! Item was changed: ----- Method: X64TestStruct3>>eight: (in category 'accessing') ----- eight: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle doubleAt: 57 put: anObject! Item was changed: ----- Method: X64TestStruct3>>eighteen (in category 'accessing') ----- eighteen "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^X64TestStruct2 fromHandle: (handle structAt: 257 length: 256)! Item was changed: ----- Method: X64TestStruct3>>eighteen: (in category 'accessing') ----- eighteen: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle structAt: 257 put: anObject getHandle length: 256.! Item was changed: ----- Method: X64TestStruct3>>eleven (in category 'accessing') ----- eleven "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle signedLongLongAt: 81! Item was changed: ----- Method: X64TestStruct3>>eleven: (in category 'accessing') ----- eleven: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle signedLongLongAt: 81 put: anObject! Item was changed: ----- Method: X64TestStruct3>>fifteen (in category 'accessing') ----- fifteen "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle signedLongLongAt: 113! Item was changed: ----- Method: X64TestStruct3>>fifteen: (in category 'accessing') ----- fifteen: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle signedLongLongAt: 113 put: anObject! Item was changed: ----- Method: X64TestStruct3>>five (in category 'accessing') ----- five "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle signedLongLongAt: 33! Item was changed: ----- Method: X64TestStruct3>>five: (in category 'accessing') ----- five: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle signedLongLongAt: 33 put: anObject! Item was changed: ----- Method: X64TestStruct3>>four (in category 'accessing') ----- four "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle doubleAt: 25! Item was changed: ----- Method: X64TestStruct3>>four: (in category 'accessing') ----- four: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle doubleAt: 25 put: anObject! Item was changed: ----- Method: X64TestStruct3>>fourteen (in category 'accessing') ----- fourteen "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle doubleAt: 105! Item was changed: ----- Method: X64TestStruct3>>fourteen: (in category 'accessing') ----- fourteen: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle doubleAt: 105 put: anObject! Item was changed: ----- Method: X64TestStruct3>>nine (in category 'accessing') ----- nine "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle signedLongLongAt: 65! Item was changed: ----- Method: X64TestStruct3>>nine: (in category 'accessing') ----- nine: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle signedLongLongAt: 65 put: anObject! Item was changed: ----- Method: X64TestStruct3>>nineteen (in category 'accessing') ----- nineteen "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> + ^X64TestStruct fromHandle: (handle shortPointerAt: 513)! - ^X64TestStruct fromHandle: (handle pointerAt: 513)! Item was changed: ----- Method: X64TestStruct3>>nineteen: (in category 'accessing') ----- nineteen: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> + handle shortPointerAt: 513 put: anObject getHandle.! - handle pointerAt: 513 put: anObject getHandle.! Item was changed: ----- Method: X64TestStruct3>>one (in category 'accessing') ----- one "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle signedLongLongAt: 1! Item was changed: ----- Method: X64TestStruct3>>one: (in category 'accessing') ----- one: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle signedLongLongAt: 1 put: anObject! Item was changed: ----- Method: X64TestStruct3>>seven (in category 'accessing') ----- seven "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle signedLongLongAt: 49! Item was changed: ----- Method: X64TestStruct3>>seven: (in category 'accessing') ----- seven: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle signedLongLongAt: 49 put: anObject! Item was changed: ----- Method: X64TestStruct3>>seventeen (in category 'accessing') ----- seventeen "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^X64TestStruct fromHandle: (handle structAt: 129 length: 128)! Item was changed: ----- Method: X64TestStruct3>>seventeen: (in category 'accessing') ----- seventeen: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle structAt: 129 put: anObject getHandle length: 128.! Item was changed: ----- Method: X64TestStruct3>>six (in category 'accessing') ----- six "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle doubleAt: 41! Item was changed: ----- Method: X64TestStruct3>>six: (in category 'accessing') ----- six: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle doubleAt: 41 put: anObject! Item was changed: ----- Method: X64TestStruct3>>sixteen (in category 'accessing') ----- sixteen "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle doubleAt: 121! Item was changed: ----- Method: X64TestStruct3>>sixteen: (in category 'accessing') ----- sixteen: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle doubleAt: 121 put: anObject! Item was changed: ----- Method: X64TestStruct3>>ten (in category 'accessing') ----- ten "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle doubleAt: 73! Item was changed: ----- Method: X64TestStruct3>>ten: (in category 'accessing') ----- ten: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle doubleAt: 73 put: anObject! Item was changed: ----- Method: X64TestStruct3>>thirteen (in category 'accessing') ----- thirteen "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle signedLongLongAt: 97! Item was changed: ----- Method: X64TestStruct3>>thirteen: (in category 'accessing') ----- thirteen: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle signedLongLongAt: 97 put: anObject! Item was changed: ----- Method: X64TestStruct3>>three (in category 'accessing') ----- three "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle signedLongLongAt: 17! Item was changed: ----- Method: X64TestStruct3>>three: (in category 'accessing') ----- three: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle signedLongLongAt: 17 put: anObject! Item was changed: ----- Method: X64TestStruct3>>twelve (in category 'accessing') ----- twelve "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle doubleAt: 89! Item was changed: ----- Method: X64TestStruct3>>twelve: (in category 'accessing') ----- twelve: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle doubleAt: 89 put: anObject! Item was changed: ----- Method: X64TestStruct3>>twenty (in category 'accessing') ----- twenty "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> + ^X64TestStruct2 fromHandle: (handle shortPointerAt: 517)! - ^X64TestStruct2 fromHandle: (handle pointerAt: 517)! Item was changed: ----- Method: X64TestStruct3>>twenty: (in category 'accessing') ----- twenty: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> + handle shortPointerAt: 517 put: anObject getHandle.! - handle pointerAt: 517 put: anObject getHandle.! Item was changed: ----- Method: X64TestStruct3>>two (in category 'accessing') ----- two "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> ^handle doubleAt: 9! Item was changed: ----- Method: X64TestStruct3>>two: (in category 'accessing') ----- two: anObject "This method was automatically generated. See X64TestStruct3 class>>fields." + <generated> handle doubleAt: 9 put: anObject!

1 0

FFI: FFI-Kernel-eem.86.mcz
by commits＠source.squeak.org 01 Jun '20

01 Jun '20

Eliot Miranda uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-eem.86.mcz ==================== Summary ==================== Name: FFI-Kernel-eem.86 Author: eem Time: 1 June 2020, 11:39:53.443746 am UUID: 0c4fa218-d5d5-45ec-b39d-84f9b5bbfc81 Ancestors: FFI-Kernel-mt.85 lioiminate Undeclared reference in unsent method, by nuking method :-) =============== Diff against FFI-Kernel-mt.85 =============== Item was removed: - ----- Method: ExternalType>>pointerSize: (in category 'private') ----- - pointerSize: anInteger - | spec | - pointerSize := anInteger. - (((spec := compiledSpec at: 1) anyMask: FFIFlagPointer) - and: [(spec bitAnd: FFIStructSizeMask) ~= anInteger]) ifTrue: - [compiledSpec := compiledSpec shallowCopy. - compiledSpec at: 1 put: (spec bitClear: FFIStructSizeMask) + anInteger]!

1 0

FFI: FFI-Tools-mt.8.mcz
by commits＠source.squeak.org 01 Jun '20

01 Jun '20

Marcel Taeumel uploaded a new version of FFI-Tools to project FFI: http://source.squeak.org/FFI/FFI-Tools-mt.8.mcz ==================== Summary ==================== Name: FFI-Tools-mt.8 Author: mt Time: 1 June 2020, 10:20:08.633523 am UUID: 9d767c70-03f1-8c4d-a7cf-e30f2228a41e Ancestors: FFI-Tools-mt.7 Complements FFI-Kernel-mt.85. =============== Diff against FFI-Tools-mt.7 =============== Item was added: + ----- Method: ExternalStructure class>>compositeKindName (in category '*FFI-Tools-printing') ----- + compositeKindName + ^'struct'! Item was added: + ----- Method: ExternalStructure>>compositeKindName (in category '*FFI-Tools-printing') ----- + compositeKindName + ^self class compositeKindName! Item was added: + ----- Method: ExternalType>>subStructureClassFor:in: (in category '*FFI-Tools-printing') ----- + subStructureClassFor: fieldName in: structureClass + "fieldName is some field name within a structure that should be the selector of + the accessor method for the field within some structureClass. Find the class for + the field by searching the defining class's accessor method." + | subStructureClassBinding | + subStructureClassBinding := (structureClass + compiledMethodAt: fieldName + ifAbsent: [self error: 'cannot find ', fieldName, ' in ', structureClass name, '. Perhaps ', structureClass name, ' definieFields is needed.']) + literals detect: + [:l| l isVariableBinding and: [l value inheritsFrom: ExternalStructure]]. + ^subStructureClassBinding value! Item was added: + ----- Method: ExternalUnion class>>compositeKindName (in category '*FFI-Tools-printing') ----- + compositeKindName + ^'union'!

1 0

FFI: FFI-Kernel-mt.85.mcz
by commits＠source.squeak.org 01 Jun '20

01 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.85.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.85 Author: mt Time: 1 June 2020, 10:19:39.682523 am UUID: 98694c2e-0239-1d4e-b27d-2ece5515a6be Ancestors: FFI-Kernel-mt.84 Moves more tool methods to the FFI-Tools package. Note that if we need one of those for FFI-Kernel functions, we can move it back. (Sorry for the noise. ^__^ Coffee was too strong. Hitting the commit button way too often.) =============== Diff against FFI-Kernel-mt.84 =============== Item was removed: - ----- Method: ExternalStructure class>>compositeKindName (in category 'converting') ----- - compositeKindName - ^'struct'! Item was removed: - ----- Method: ExternalStructure>>compositeKindName (in category 'printing') ----- - compositeKindName - ^self class compositeKindName! Item was removed: - ----- Method: ExternalType>>subStructureClassFor:in: (in category 'private') ----- - subStructureClassFor: fieldName in: structureClass - "fieldName is some field name within a structure that should be the selector of - the accessor method for the field within some structureClass. Find the class for - the field by searching the defining class's accessor method." - | subStructureClassBinding | - subStructureClassBinding := (structureClass - compiledMethodAt: fieldName - ifAbsent: [self error: 'cannot find ', fieldName, ' in ', structureClass name, '. Perhaps ', structureClass name, ' definieFields is needed.']) - literals detect: - [:l| l isVariableBinding and: [l value inheritsFrom: ExternalStructure]]. - ^subStructureClassBinding value! Item was removed: - ----- Method: ExternalUnion class>>compositeKindName (in category 'converting') ----- - compositeKindName - ^'union'!

1 0

FFI: FFI-Tools-mt.7.mcz
by commits＠source.squeak.org 01 Jun '20

01 Jun '20

Marcel Taeumel uploaded a new version of FFI-Tools to project FFI: http://source.squeak.org/FFI/FFI-Tools-mt.7.mcz ==================== Summary ==================== Name: FFI-Tools-mt.7 Author: mt Time: 1 June 2020, 10:11:28.674523 am UUID: a5902180-6fdf-ed47-b02a-0945a0774b63 Ancestors: FFI-Tools-mt.6 Complements FFI-Kernel-mt.84. =============== Diff against FFI-Tools-mt.6 =============== Item was added: + ----- Method: ExternalStructure class>>typedef (in category '*FFI-Tools-printing') ----- + typedef + ^self externalType typedef!

1 0

FFI: FFI-Kernel-mt.84.mcz
by commits＠source.squeak.org 01 Jun '20

01 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.84.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.84 Author: mt Time: 1 June 2020, 10:11:15.683523 am UUID: f479d8e8-50e0-9c45-96f5-38138001b6c4 Ancestors: FFI-Kernel-mt.83 Moves more C code generation for typedefs to FFI-Tools package, because it is a debugging tool and not required to keep FFI working. =============== Diff against FFI-Kernel-mt.83 =============== Item was removed: - ----- Method: ExternalStructure class>>typedef (in category 'converting') ----- - typedef - ^self externalType typedef!

1 0

FFI: FFI-Tools-mt.6.mcz
by commits＠source.squeak.org 01 Jun '20

01 Jun '20

Marcel Taeumel uploaded a new version of FFI-Tools to project FFI: http://source.squeak.org/FFI/FFI-Tools-mt.6.mcz ==================== Summary ==================== Name: FFI-Tools-mt.6 Author: mt Time: 1 June 2020, 10:07:54.246523 am UUID: ecaa6159-1abb-7f4f-b725-22098f843230 Ancestors: FFI-Tools-mt.5 Complements FFI-Kernel-mt.83. =============== Diff against FFI-Tools-mt.5 =============== Item was added: + ----- Method: ExternalType>>printAtomicType:on: (in category '*FFI-Tools-printing') ----- + printAtomicType: spec on: aStream + self assert: (spec anyMask: FFIFlagAtomic). + aStream nextPutAll: (#( 'void' 'unsigned char' 'unsigned char' 'signed char' + 'unsigned short' 'short' 'unsigned long' 'long' + 'unsigned long long' 'long long' 'char' 'signed char' + 'float' 'double') at: ((spec bitAnd: FFIAtomicTypeMask) bitShift: FFIAtomicTypeShift negated) + 1). + aStream space. + (spec anyMask: FFIFlagPointer) ifTrue: + [aStream nextPut: $*]! Item was added: + ----- Method: ExternalType>>printStructureField:at:inClass:on:indent: (in category '*FFI-Tools-printing') ----- + printStructureField: typeTuple at: initialSpecIndex inClass: structureClass on: aStream indent: indent + "Print the structure's field starting at initialSpecIndex and answer the index in compiledSpec of the subsequent type." + | typeName spec subStructureClass | + aStream tab: indent. + typeName := typeTuple first. + spec := compiledSpec at: initialSpecIndex. + (spec anyMask: FFIFlagAtomic) ifTrue: + [self printAtomicType: spec on: aStream. + aStream nextPutAll: (typeName ifNotNil: [typeName] ifNil: ['foo']). + ^initialSpecIndex + 1]. + subStructureClass := self subStructureClassFor: typeName in: structureClass. + (spec bitClear: FFIStructSizeMask) = FFIFlagStructure ifTrue: + [| next | + next := initialSpecIndex + 1. + aStream + nextPutAll: subStructureClass compositeKindName; + nextPutAll: ' {'. + subStructureClass fields withIndexDo: + [:tuple :i| + aStream cr. + next := self printStructureField: tuple + at: next + inClass: subStructureClass + on: aStream + indent: indent + 1. + aStream nextPut: $;]. + aStream crtab: indent; nextPut: $}. + typeName ifNotNil: [aStream space; nextPutAll: typeName]. + self assert: (next - 1 = compiledSpec size or: [(compiledSpec at: next) = FFIFlagStructure]). + ^next <= compiledSpec size ifTrue: [next + 1] ifFalse: [next]]. + self assert: (spec anyMask: FFIFlagPointer). + (subStructureClass isKindOf: ExternalUnion) + ifTrue: [aStream nextPutAll: 'union '] + ifFalse: [aStream nextPutAll: 'struct ']. + aStream nextPutAll: subStructureClass name; nextPutAll: ' *'; nextPutAll: typeName. + ^initialSpecIndex + 1! Item was added: + ----- Method: ExternalType>>printTypedefOn: (in category '*FFI-Tools-printing') ----- + printTypedefOn: s + s nextPutAll: 'typedef '. + referentClass + ifNotNil: + [(compiledSpec first bitClear: FFIStructSizeMask) = FFIFlagStructure + ifTrue: + [| next | + next := 2. + s + nextPutAll: referentClass compositeKindName; + nextPutAll: ' {'. + referentClass fields withIndexDo: + [:tuple :i| + s cr. + next := self printStructureField: tuple + at: next + inClass: referentClass + on: s + indent: 1. + s nextPut: $;]. + s cr; nextPutAll: '} '. + self assert: (next - 1 = compiledSpec size or: [(compiledSpec at: next) = FFIFlagStructure])] + ifFalse: + [self assert: (compiledSpec first bitClear: FFIStructSizeMask) = FFIFlagPointer. + s nextPutAll: referentClass name; nextPutAll: ' *foo'. + ^self]] + ifNil: + [self printAtomicType: compiledSpec first on: s]. + s nextPutAll: (referentClass ifNotNil: [referentClass name] ifNil: ['foo'])! Item was added: + ----- Method: ExternalType>>typedef (in category '*FFI-Tools-printing') ----- + typedef + ^String streamContents: [:s| self printTypedefOn: s]!

1 0

FFI: FFI-Kernel-mt.83.mcz
by commits＠source.squeak.org 01 Jun '20

01 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.83.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.83 Author: mt Time: 1 June 2020, 10:07:38.001523 am UUID: 6a3601c2-a649-2a4e-a6ad-ddba52738605 Ancestors: FFI-Kernel-mt.82 Moves C code generation for typedefs to FFI-Tools package. =============== Diff against FFI-Kernel-mt.82 =============== Item was removed: - ----- Method: ExternalType>>printAtomicType:on: (in category 'printing') ----- - printAtomicType: spec on: aStream - self assert: (spec anyMask: FFIFlagAtomic). - aStream nextPutAll: (#( 'void' 'unsigned char' 'unsigned char' 'signed char' - 'unsigned short' 'short' 'unsigned long' 'long' - 'unsigned long long' 'long long' 'char' 'signed char' - 'float' 'double') at: ((spec bitAnd: FFIAtomicTypeMask) bitShift: FFIAtomicTypeShift negated) + 1). - aStream space. - (spec anyMask: FFIFlagPointer) ifTrue: - [aStream nextPut: $*]! Item was removed: - ----- Method: ExternalType>>printStructureField:at:inClass:on:indent: (in category 'printing') ----- - printStructureField: typeTuple at: initialSpecIndex inClass: structureClass on: aStream indent: indent - "Print the structure's field starting at initialSpecIndex and answer the index in compiledSpec of the subsequent type." - | typeName spec subStructureClass | - aStream tab: indent. - typeName := typeTuple first. - spec := compiledSpec at: initialSpecIndex. - (spec anyMask: FFIFlagAtomic) ifTrue: - [self printAtomicType: spec on: aStream. - aStream nextPutAll: (typeName ifNotNil: [typeName] ifNil: ['foo']). - ^initialSpecIndex + 1]. - subStructureClass := self subStructureClassFor: typeName in: structureClass. - (spec bitClear: FFIStructSizeMask) = FFIFlagStructure ifTrue: - [| next | - next := initialSpecIndex + 1. - aStream - nextPutAll: subStructureClass compositeKindName; - nextPutAll: ' {'. - subStructureClass fields withIndexDo: - [:tuple :i| - aStream cr. - next := self printStructureField: tuple - at: next - inClass: subStructureClass - on: aStream - indent: indent + 1. - aStream nextPut: $;]. - aStream crtab: indent; nextPut: $}. - typeName ifNotNil: [aStream space; nextPutAll: typeName]. - self assert: (next - 1 = compiledSpec size or: [(compiledSpec at: next) = FFIFlagStructure]). - ^next <= compiledSpec size ifTrue: [next + 1] ifFalse: [next]]. - self assert: (spec anyMask: FFIFlagPointer). - (subStructureClass isKindOf: ExternalUnion) - ifTrue: [aStream nextPutAll: 'union '] - ifFalse: [aStream nextPutAll: 'struct ']. - aStream nextPutAll: subStructureClass name; nextPutAll: ' *'; nextPutAll: typeName. - ^initialSpecIndex + 1! Item was removed: - ----- Method: ExternalType>>printTypedefOn: (in category 'printing') ----- - printTypedefOn: s - s nextPutAll: 'typedef '. - referentClass - ifNotNil: - [(compiledSpec first bitClear: FFIStructSizeMask) = FFIFlagStructure - ifTrue: - [| next | - next := 2. - s - nextPutAll: referentClass compositeKindName; - nextPutAll: ' {'. - referentClass fields withIndexDo: - [:tuple :i| - s cr. - next := self printStructureField: tuple - at: next - inClass: referentClass - on: s - indent: 1. - s nextPut: $;]. - s cr; nextPutAll: '} '. - self assert: (next - 1 = compiledSpec size or: [(compiledSpec at: next) = FFIFlagStructure])] - ifFalse: - [self assert: (compiledSpec first bitClear: FFIStructSizeMask) = FFIFlagPointer. - s nextPutAll: referentClass name; nextPutAll: ' *foo'. - ^self]] - ifNil: - [self printAtomicType: compiledSpec first on: s]. - s nextPutAll: (referentClass ifNotNil: [referentClass name] ifNil: ['foo'])! Item was removed: - ----- Method: ExternalType>>typedef (in category 'printing') ----- - typedef - ^String streamContents: [:s| self printTypedefOn: s]!

1 0

FFI: FFI-Kernel-mt.82.mcz
by commits＠source.squeak.org 01 Jun '20

01 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.82.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.82 Author: mt Time: 1 June 2020, 9:58:11.800523 am UUID: ace0c4b6-24ce-a847-ae5f-6f2e281592f4 Ancestors: FFI-Kernel-mt.81 Fixes bug in external type's #storeOn:. Removes ambiguous #externalTypeName, which actually generated a #storeString for the pointer type. =============== Diff against FFI-Kernel-mt.81 =============== Item was changed: ----- Method: ExternalStructure class>>defineAliasAccessorsFor:type: (in category 'field definition') ----- defineAliasAccessorsFor: fieldName type: type "Define read/write accessors for the given field" | code refClass argName | (type isVoid and:[type isPointerType not]) ifTrue:[^self]. refClass := type referentClass. code := String streamContents:[:s| s nextPutAll: fieldName; crtab; nextPutAll:'"This method was automatically generated"'; crtab; nextPut: $<; nextPutAll: #generated; nextPut: $>; crtab. refClass == nil ifTrue:[(type isAtomic and:[type isPointerType not]) ifTrue:[s nextPutAll:'^handle'] ifFalse:[s nextPutAll:'^ExternalData fromHandle: handle'. type isPointerType ifTrue:[s nextPutAll:' asExternalPointer']. s nextPutAll:' type: '; + nextPutAll: type asPointerType storeString]] - nextPutAll: type externalTypeName]] ifFalse:[s nextPutAll:'^', refClass name,' fromHandle: handle'. type isPointerType ifTrue:[s nextPutAll:' asExternalPointer']]]. self compile: code classified: 'accessing'. code := String streamContents:[:s| argName := refClass == nil ifTrue:[(type isAtomic and:[type isPointerType not]) ifTrue:['anObject'] ifFalse:['anExternalData']] ifFalse:['a',refClass name]. s nextPutAll: fieldName,': '; nextPutAll: argName; crtab; nextPutAll:'"This method was automatically generated"'; crtab; nextPut: $<; nextPutAll: #generated; nextPut: $>; crtab. (refClass == nil and:[type isAtomic and:[type isPointerType not]]) ifTrue:[s nextPutAll:'handle := ', argName] ifFalse:[s nextPutAll:'handle := ', argName,' getHandle'. type isPointerType ifTrue:[s nextPutAll:' asByteArrayPointer']]]. self compile: code classified: 'accessing'.! Item was removed: - ----- Method: ExternalType>>externalTypeName (in category 'private') ----- - externalTypeName - ^'ExternalType ', (AtomicTypeNames at: self atomicType), ' asPointerType'! Item was changed: ----- Method: ExternalType>>storeOn: (in category 'printing') ----- storeOn: aStream referentClass == nil ifTrue:[aStream nextPutAll: ExternalType name; space; nextPutAll: (AtomicTypeNames at: self atomicType)] ifFalse:[aStream nextPut: $(; nextPutAll: ExternalType name; space; nextPutAll: #structTypeNamed:; space; store: referentClass name; nextPut: $)]. + self isPointerType ifTrue: [aStream space; nextPutAll: #asPointerType].! - self isPointerType ifTrue: [aStream space; nextPutAll: #asPointer].!

1 0

FFI: FFI-Kernel-mt.81.mcz
by commits＠source.squeak.org 01 Jun '20

01 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.81.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.81 Author: mt Time: 1 June 2020, 9:06:23.085523 am UUID: 32229562-fe90-5b42-8d0d-926e8bc4da7a Ancestors: FFI-Kernel-mt.80 More flags to document #ffiLongVsInt -- which is an intersting clash of vocabularies. :-) =============== Diff against FFI-Kernel-mt.80 =============== Item was changed: ----- Method: ByteArray>>pointerAt: (in category '*FFI-Kernel') ----- pointerAt: byteOffset "Answer a pointer object stored at the given byte address" + self flag: #ffiLongVsInt. "mt: Here short means 'long', which is actually 'int', and long means 'longlong'. Sigh." ^ ExternalAddress wordSize caseOf: { [4] -> [self shortPointerAt: byteOffset]. [8] -> [self longPointerAt: byteOffset] }! Item was changed: ----- Method: ByteArray>>pointerAt:put: (in category '*FFI-Kernel') ----- pointerAt: byteOffset put: value "Store a pointer object at the given byte address" + self flag: #ffiLongVsInt. "mt: Here short means 'long', which is actually 'int', and long means 'longlong'. Sigh." ^ ExternalAddress wordSize caseOf: { [4] -> [self shortPointerAt: byteOffset put: value]. [8] -> [self longPointerAt: byteOffset put: value] }! Item was changed: ----- Method: ExternalType class>>initializeFFIConstants (in category 'class initialization') ----- initializeFFIConstants "ExternalType initialize" FFIConstants initialize. "ensure proper initialization" AtomicTypeNames := IdentityDictionary new. AtomicSelectors := IdentityDictionary new. AtomicTypeNames at: FFITypeVoid put: 'void'; at: FFITypeBool put: 'bool'; at: FFITypeUnsignedByte put: 'byte'; at: FFITypeSignedByte put: 'sbyte'; at: FFITypeUnsignedShort put: 'ushort'; at: FFITypeSignedShort put: 'short'; + flag: #ffiLongVsInt; at: FFITypeUnsignedInt put: 'ulong'; at: FFITypeSignedInt put: 'long'; at: FFITypeUnsignedLongLong put: 'ulonglong'; at: FFITypeSignedLongLong put: 'longlong'; at: FFITypeUnsignedChar put: 'char'; at: FFITypeSignedChar put: 'schar'; at: FFITypeSingleFloat put: 'float'; at: FFITypeDoubleFloat put: 'double'; yourself. AtomicSelectors at: FFITypeVoid put: #voidAt:; at: FFITypeBool put: #booleanAt:; at: FFITypeUnsignedByte put: #unsignedByteAt:; at: FFITypeSignedByte put: #signedByteAt:; at: FFITypeUnsignedShort put: #unsignedShortAt:; at: FFITypeSignedShort put: #signedShortAt:; + flag: #ffiLongVsInt; at: FFITypeUnsignedInt put: #unsignedLongAt:; at: FFITypeSignedInt put: #signedLongAt:; at: FFITypeUnsignedLongLong put: #unsignedLongLongAt:; at: FFITypeSignedLongLong put: #signedLongLongAt:; at: FFITypeUnsignedChar put: #unsignedCharAt:; at: FFITypeSignedChar put: #signedCharAt:; at: FFITypeSingleFloat put: #floatAt:; at: FFITypeDoubleFloat put: #doubleAt:; yourself! Item was changed: ----- Method: ExternalType>>readFieldAt: (in category 'private') ----- readFieldAt: byteOffset "Answer a string defining the accessor to an entity of the receiver type starting at the given byte offset. Private. Used for field definition only." self isPointerType ifTrue: [| accessor | + self flag: #ffiLongVsInt. "mt: Here short means 'long', which is actually 'int', and long means 'longlong'. Sigh." accessor := self pointerSize caseOf: { [4] -> [#shortPointerAt:]. [8] -> [#longPointerAt:] }. ^String streamContents: [:s| referentClass ifNil: [s nextPutAll: '^ExternalData fromHandle: (handle ', accessor, ' '; print: byteOffset; nextPutAll: ') type: ExternalType '; nextPutAll: (AtomicTypeNames at: self atomicType); nextPutAll: ' asPointerType'] ifNotNil: [s nextPutAll: '^'; print: referentClass; nextPutAll: ' fromHandle: (handle ', accessor, ' '; print: byteOffset; nextPut: $)]]]. self isAtomic ifFalse: "structure type" [^String streamContents:[:s| s nextPutAll:'^'; print: referentClass; nextPutAll:' fromHandle: (handle structAt: '; print: byteOffset; nextPutAll:' length: '; print: self byteSize; nextPutAll:')']]. "Atomic non-pointer types" ^String streamContents: [:s| s nextPutAll:'^handle '; nextPutAll: (AtomicSelectors at: self atomicType); space; print: byteOffset].! Item was changed: ----- Method: ExternalType>>writeFieldAt:with: (in category 'private') ----- writeFieldAt: byteOffset with: valueName "Answer a string defining the accessor to an entity of the receiver type starting at the given byte offset. Private. Used for field definition only." self isPointerType ifTrue: [| accessor | + self flag: #ffiLongVsInt. "mt: Here short means 'long', which is actually 'int', and long means 'longlong'. Sigh." accessor := self pointerSize caseOf: { [4] -> [#shortPointerAt:]. [8] -> [#longPointerAt:] }. ^String streamContents: [:s| s nextPutAll:'handle ', accessor, ' '; print: byteOffset; nextPutAll:' put: '; nextPutAll: valueName; nextPutAll:' getHandle.']]. self isAtomic ifFalse:[ ^String streamContents:[:s| s nextPutAll:'handle structAt: '; print: byteOffset; nextPutAll:' put: '; nextPutAll: valueName; nextPutAll:' getHandle'; nextPutAll:' length: '; print: self byteSize; nextPutAll:'.']]. ^String streamContents:[:s| s nextPutAll:'handle '; nextPutAll: (AtomicSelectors at: self atomicType); space; print: byteOffset; nextPutAll:' put: '; nextPutAll: valueName].!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2020