Packages June 2020

packages@lists.squeakfoundation.org

1 participants
151 discussions

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

12 Jun '20

Marcel Taeumel uploaded a new version of FFI-Tools to project FFI: http://source.squeak.org/FFI/FFI-Tools-mt.16.mcz ==================== Summary ==================== Name: FFI-Tools-mt.16 Author: mt Time: 12 June 2020, 4:14:04.573744 pm UUID: 10f4bfcc-c8d7-2045-9a7e-7bac630fe09e Ancestors: FFI-Tools-mt.15 Re-use C type names when printing a typedef for an external type's compiledSpec. =============== Diff against FFI-Tools-mt.15 =============== Item was changed: ----- Method: ExternalType>>printAtomicType:on: (in category '*FFI-Tools-printing') ----- printAtomicType: spec on: aStream + + | atomicTypeName atomicType | + atomicTypeName := AtomicTypeNames at: ((spec bitAnd: FFIAtomicTypeMask) bitShift: FFIAtomicTypeShift negated). + atomicType := AtomicTypes at: atomicTypeName. + (spec anyMask: FFIFlagPointer) + ifTrue: [atomicType := atomicType asPointerType]. + + aStream nextPutAll: (ExternalPoolReadWriter cTypeNameFor: atomicType). + atomicType isPointerType + ifFalse: [aStream space].! - 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: $*]!

1 0

FFI: FFI-Pools-mt.23.mcz
by commits＠source.squeak.org 12 Jun '20

12 Jun '20

Marcel Taeumel uploaded a new version of FFI-Pools to project FFI: http://source.squeak.org/FFI/FFI-Pools-mt.23.mcz ==================== Summary ==================== Name: FFI-Pools-mt.23 Author: mt Time: 12 June 2020, 4:12:31.231744 pm UUID: 6438a62d-b9fe-da46-9a0b-ae178c90edff Ancestors: FFI-Pools-mt.22 Make conversion of Squeak FFI atomic types to C type names accessible to FFI-Tools package. =============== Diff against FFI-Pools-mt.22 =============== Item was added: + ----- Method: ExternalPoolReadWriter class>>cFormatPlaceholderFor: (in category 'code generation') ----- + cFormatPlaceholderFor: externalType + + AtomicCFormatPlaceholders ifNil: [self class initializeAtomicTypesExtra]. + + ^ externalType isPointerType + ifTrue: ['%p'] + ifFalse: [ + AtomicCFormatPlaceholders + at: externalType atomicType + ifAbsent: [nil]]! Item was added: + ----- Method: ExternalPoolReadWriter class>>cTypeNameFor: (in category 'code generation') ----- + cTypeNameFor: externalType + + | cTypeName | + AtomicCTypeNames ifNil: [self class initializeAtomicTypesExtra]. + + cTypeName := AtomicCTypeNames + at: externalType atomicType + ifAbsent: [nil]. + + ^ externalType isPointerType + ifTrue: [cTypeName, ' *'] + ifFalse: [cTypeName]! Item was changed: ----- Method: ExternalPoolReadWriter>>cFormatPlaceholderFor: (in category 'writing - support') ----- cFormatPlaceholderFor: externalType - "Limit access to printf format placeholders to instances of pool read-writers only." + ^ self class cFormatPlaceholderFor: externalType! - AtomicCFormatPlaceholders ifNil: [self class initializeAtomicTypesExtra]. - - ^ externalType isPointerType - ifTrue: ['%p'] - ifFalse: [ - AtomicCFormatPlaceholders - at: externalType atomicType - ifAbsent: [nil]]! Item was changed: ----- Method: ExternalPoolReadWriter>>cTypeNameFor: (in category 'writing - support') ----- cTypeNameFor: externalType - "Limit access to C type names to instances of pool read-writers only." + ^ self class cTypeNameFor: externalType! - | cTypeName | - AtomicCTypeNames ifNil: [self class initializeAtomicTypesExtra]. - - cTypeName := AtomicCTypeNames - at: externalType atomicType - ifAbsent: [nil]. - - ^ externalType isPointerType - ifTrue: [cTypeName, ' *'] - ifFalse: [cTypeName]!

1 0

The Trunk: Collections-ul.897.mcz
by commits＠source.squeak.org 12 Jun '20

12 Jun '20

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.897.mcz ==================== Summary ==================== Name: Collections-ul.897 Author: ul Time: 31 May 2020, 12:23:26.517191 am UUID: 16d2c780-9e9c-4012-8149-fee4227d45bc Ancestors: Collections-ul.896 WeakIdentityDictionary: - made it work as other weak hashed collections: - no modification during element lookup - simpler code - same runtime complexity Other: - removed ByteArray >> #atAllPut: because it was same the as in its superclass =============== Diff against Collections-nice.895 =============== Item was removed: - ----- Method: ByteArray>>atAllPut: (in category 'accessing') ----- - atAllPut: value - "Fill the receiver with the given value" - - <primitive: 145> - super atAllPut: value! Item was changed: ----- Method: String>>< (in category 'comparing') ----- < aString "Answer whether the receiver sorts before aString. The collation order is simple ascii (with case differences)." + ^(self compareWith: aString) < 0! - ^ (self compare: self with: aString collated: AsciiOrder) = 1! Item was changed: ----- Method: String>><= (in category 'comparing') ----- <= aString "Answer whether the receiver sorts before or equal to aString. The collation order is simple ascii (with case differences)." + ^(self compareWith: aString) <= 0! - ^ (self compare: self with: aString collated: AsciiOrder) <= 2! Item was changed: ----- Method: String>>= (in category 'comparing') ----- = aString "Answer whether the receiver sorts equally as aString. The collation order is simple ascii (with case differences)." self == aString ifTrue: [ ^true ]. aString isString ifFalse: [ ^false ]. self size = aString size ifFalse: [ ^false ]. + ^ (self compareWith: aString) = 0! - ^ (self compare: self with: aString collated: AsciiOrder) = 2! Item was changed: ----- Method: String>>> (in category 'comparing') ----- > aString "Answer whether the receiver sorts after aString. The collation order is simple ascii (with case differences)." + ^(self compareWith: aString) > 0! - ^ (self compare: self with: aString collated: AsciiOrder) = 3! Item was changed: ----- Method: String>>>= (in category 'comparing') ----- >= aString "Answer whether the receiver sorts after or equal to aString. The collation order is simple ascii (with case differences)." + ^(self compareWith: aString) >= 0! - ^ (self compare: self with: aString collated: AsciiOrder) >= 2! Item was changed: ----- Method: String>>compare:caseSensitive: (in category 'comparing') ----- compare: aString caseSensitive: aBool "Answer a comparison code telling how the receiver sorts relative to aString: 1 - before 2 - equal 3 - after. " | map | map := aBool ifTrue:[CaseSensitiveOrder] ifFalse:[CaseInsensitiveOrder]. + ^(self compareWith: aString collated: map) + 2! - ^self compare: self with: aString collated: map! Item was added: + ----- Method: String>>compareWith: (in category 'comparing') ----- + compareWith: aString + + "<primitive: 158>" + ^(self compare: self with: aString collated: AsciiOrder) - 2! Item was added: + ----- Method: String>>compareWith:collated: (in category 'comparing') ----- + compareWith: aString collated: collation + + "<primitive: 158>" + ^(self compare: self with: aString collated: collation) - 2! Item was removed: - ----- Method: WeakIdentityDictionary>>cleanupIndex: (in category 'private') ----- - cleanupIndex: anInteger - array at: anInteger put: vacuum. - tally := tally - 1. - self fixCollisionsFrom: anInteger.! Item was changed: ----- Method: WeakIdentityDictionary>>fixCollisionsFrom: (in category 'private') ----- fixCollisionsFrom: start "The element at start has been removed and replaced by vacuum. This method moves forward from there, relocating any entries that had been placed below due to collisions with this one." | element index | index := start. [ (element := array at: (index := index \\ array size + 1)) == vacuum ] whileFalse: [ element ifNil: [ "The binding at this slot was reclaimed - finish the cleanup" array at: index put: vacuum. tally := tally - 1 ] ifNotNil: [| newIndex | + (newIndex := self scanFor: element key) = index ifFalse: [ - (newIndex := self scanWithoutGarbagingFor: element key) = index ifFalse: [ array at: newIndex put: element; at: index put: vacuum ] ] ]! Item was changed: ----- Method: WeakIdentityDictionary>>removeKey:ifAbsent: (in category 'removing') ----- removeKey: key ifAbsent: aBlock "Remove key (and its associated value) from the receiver. If key is not in the receiver, answer the result of evaluating aBlock. Otherwise, answer the value externally named by key." | index association | index := self scanFor: key. (association := (array at: index)) == vacuum ifTrue: [ ^aBlock value ]. + array at: index put: vacuum. + tally := tally - 1. + self fixCollisionsFrom: index. - self cleanupIndex: index. ^association value! Item was changed: ----- Method: WeakIdentityDictionary>>scanFor: (in category 'private') ----- scanFor: anObject "Scan the array for the first slot containing either - a vacuum object indicating an empty slot - or a binding whose key matches anObject. + Answer the index of that slot or raise an error if no slot is found which should never happen." - Answer the index of that slot or raise an error if no slot is found. - When garbage collected slots are encountered, perform a clean-up." + | index start size | + index := start := anObject scaledIdentityHash \\ (size := array size) + 1. + [ + (array at: index) ifNotNil: [ :element | + (element == vacuum or: [ element key == anObject ]) + ifTrue: [ ^index ] ]. + (index := index \\ size + 1) = start ] whileFalse. - | index start rescan | - [ - rescan := false. - index := start := anObject scaledIdentityHash \\ array size + 1. - [ - (array at: index) - ifNil: - ["Object at this slot has been garbage collected. - A rescan is necessary because fixing collisions - might have moved the target before current index." - self cleanupIndex: index. - rescan := true] - ifNotNil: - [:element | (element == vacuum or: [ element key == anObject ]) - ifTrue: [ ^index ]. - (index := index \\ array size + 1) = start ] ] whileFalse. - rescan ] whileTrue. self errorNoFreeSpace! Item was changed: ----- Method: WeakIdentityDictionary>>scanForEmptySlotFor: (in category 'private') ----- scanForEmptySlotFor: anObject + "Scan the array for the first empty slot marked by vacuum object or nil. + Answer the index of that slot or raise an error if no slot is found, which should never happen." - "Scan the array for the first empty slot marked by vacuum object. - Answer the index of that slot or raise an error if no slot is found. - Ignore the slots that have been garbage collected (those containing nil)." | index start | index := start := anObject scaledIdentityHash \\ array size + 1. [ + | element | + ((element := array at: index) == vacuum or: [ element == nil ]) ifTrue: [ ^index ]. - (array at: index) - ifNotNil: - [:element | element == vacuum ifTrue: [ ^index ] ]. (index := index \\ array size + 1) = start ] whileFalse. self errorNoFreeSpace! Item was removed: - ----- Method: WeakIdentityDictionary>>scanWithoutGarbagingFor: (in category 'private') ----- - scanWithoutGarbagingFor: anObject - "Scan the array for the first slot containing either - - a vacuum object indicating an empty slot - - or a binding whose key matches anObject. - Answer the index of that slot or raise an error if no slot is found. - Ignore the slots that have been garbage collected (those containing nil)" - - | index start | - index := start := anObject scaledIdentityHash \\ array size + 1. - [ - (array at: index) - ifNotNil: - [:element | (element == vacuum or: [ element key == anObject ]) - ifTrue: [ ^index ] ]. - (index := index \\ array size + 1) = start ] whileFalse. - self errorNoFreeSpace!

1 0

The Trunk: Tools-mt.977.mcz
by commits＠source.squeak.org 12 Jun '20

12 Jun '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.977.mcz ==================== Summary ==================== Name: Tools-mt.977 Author: mt Time: 12 June 2020, 1:52:00.818744 pm UUID: b2d453ea-2f37-0942-8e9b-13b80b6fc093 Ancestors: Tools-mt.976 Update annotation pane when browsing code in the dependency browser. =============== Diff against Tools-mt.976 =============== Item was changed: ----- Method: DependencyBrowser>>messageListIndex: (in category 'message list') ----- messageListIndex: idx "Message list selection" messageListIndex := idx. self changed: #messageListIndex. + self changed: #contents. + self changed: #annotation.! - self changed: #contents.!

1 0

The Trunk: PreferenceBrowser-mt.104.mcz
by commits＠source.squeak.org 12 Jun '20

12 Jun '20

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.104.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.104 Author: mt Time: 12 June 2020, 1:20:12.829814 pm UUID: 9e740902-4a89-1147-afe2-b34b165aa87a Ancestors: PreferenceBrowser-mt.103 Until we fix the Metacello script for FFI for Trunk, install FFI "manually" via Installer through the preference wizard. =============== Diff against PreferenceBrowser-mt.103 =============== Item was changed: ----- Method: PreferenceWizardMorph>>installFFI (in category 'actions - packages') ----- installFFI + " Metacello new - Metacello new configuration: 'FFI'; + load." + (Installer squeak) + project: 'FFI'; + install: 'FFI-Pools'; + install: 'FFI-Kernel'; + install: 'FFI-Tools'; + install: 'FFI-Tests'; + install: 'FFI-PoolsTests'.! - load.!

1 0

The Trunk: Tools-mt.976.mcz
by commits＠source.squeak.org 12 Jun '20

12 Jun '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.976.mcz ==================== Summary ==================== Name: Tools-mt.976 Author: mt Time: 12 June 2020, 1:13:51.421703 pm UUID: 93a72e1b-d5ca-ab44-963c-c7eb910c646f Ancestors: Tools-mt.975 Fixes performance issue in last commit. =============== Diff against Tools-mt.975 =============== Item was changed: ----- Method: DependencyBrowser>>depsForPackageNamed:do: (in category 'enumerating') ----- depsForPackageNamed: packageName do: workBlock + packageDeps ifNil: [^ self]. + (packageDeps at: packageName) do: [:className | + self + depsForClassNamed: className + do: workBlock]! - classDeps ifNil: [^ self]. - classDeps keysAndValuesDo: [:className :dependencies | - (self selectedEnvironment classNamed: className) ifNotNil: [:class | - class packageInfo name = packageName ifTrue: [ - dependencies do: workBlock]]].!

1 0

The Trunk: ToolsTests-mt.97.mcz
by commits＠source.squeak.org 12 Jun '20

12 Jun '20

Marcel Taeumel uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-mt.97.mcz ==================== Summary ==================== Name: ToolsTests-mt.97 Author: mt Time: 12 June 2020, 12:53:45.299703 pm UUID: fdb31778-cee3-5442-ba38-e3c12f80f610 Ancestors: ToolsTests-mt.96 Complements Tools-mt.975 =============== Diff against ToolsTests-mt.96 =============== Item was changed: ----- Method: DependencyBrowserTest>>testClassList (in category 'tests - class list') ----- testClassList "Warning!! When Collections' dependencies change, this test may start to fail!!" self assert: #() equals: browser classList description: 'classList before package selection'. browser packageListIndex: (browser packageList indexOf: #Collections). self assert: #() + equals: browser classList - equals: browser classList description: 'classList after selecting Collections'. browser packageDepsIndex: (browser packageDeps indexOf: #Compiler). self + assert: browser classList notEmpty - assert: #() - equals: browser classList description: 'classList after selecting Compiler'. browser classDepsIndex: (browser classDeps indexOf: #Scanner). self assert: #(Character String Symbol 'Symbol class') equals: browser classList description: 'classList after selecting Scanner class'. browser classListIndex: (browser classList indexOf: #Symbol). self assert: #(Character String Symbol 'Symbol class') equals: browser classList description: 'classList after selecting Symbol class'.! Item was changed: ----- Method: DependencyBrowserTest>>testSelectedMessageName (in category 'tests - message list') ----- testSelectedMessageName "Warning!! When Collections' dependencies change, this test may start to fail!!" self assert: browser selectedMessageName isNil. browser packageListIndex: (browser packageList indexOf: #Collections). self assert: browser selectedMessageName isNil. browser packageDepsIndex: (browser packageDeps indexOf: #Compiler). self assert: browser selectedMessageName isNil. browser classDepsIndex: (browser classDeps indexOf: #Scanner). self assert: browser selectedMessageName isNil. browser classListIndex: (browser classList indexOf: #Symbol). + self assert: browser selectedMessageName == #storeOn:. - self assert: browser selectedMessageName isNil. browser messageListIndex: 1. self assert: browser selectedMessageName == #storeOn:. browser messageListIndex: 0. self assert: browser selectedMessageName isNil.! Item was changed: ----- Method: DependencyBrowserTest>>testSelectedMessageNameClassSide (in category 'tests - message list') ----- testSelectedMessageNameClassSide "Warning!! When Collections' dependencies change, this test may start to fail!!" self assert: browser selectedMessageName isNil. browser packageListIndex: (browser packageList indexOf: #'Chronology-Core'). self assert: browser selectedMessageName isNil. browser packageDepsIndex: (browser packageDeps indexOf: #Collections). self assert: browser selectedMessageName isNil. browser classDepsIndex: (browser classDeps indexOf: #Array). self assert: browser selectedMessageName isNil. browser classListIndex: (browser classList indexOf: #'DateAndTime'). + self assert: browser selectedMessageName == #ticks. - self assert: browser selectedMessageName isNil. browser messageListIndex: 1. self assert: browser selectedMessageName == #ticks. !

1 0

The Trunk: Tools-mt.975.mcz
by commits＠source.squeak.org 12 Jun '20

12 Jun '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.975.mcz ==================== Summary ==================== Name: Tools-mt.975 Author: mt Time: 12 June 2020, 12:52:57.245703 pm UUID: c79c0e69-43cf-1d48-9f95-7fd4f4435bb7 Ancestors: Tools-mt.974 - adds support for extension methods to dep browser - adds support for shared pools to dep browser - reveal nature of deps in labels early on - pre-select the first item in lists to speed up dependency browsing =============== Diff against Tools-mt.974 =============== Item was changed: CodeHolder subclass: #DependencyBrowser + instanceVariableNames: 'packageList packageDeps packageDepsList classDeps classDepsList classList messageList packageListIndex packageDepsIndex classDepsIndex classListIndex messageListIndex' - instanceVariableNames: 'packageList packageDeps classDeps classList messageList packageListIndex packageDepsIndex classDepsIndex classListIndex messageListIndex' classVariableNames: '' poolDictionaries: '' category: 'Tools-Browser'! !DependencyBrowser commentStamp: 'fbs 5/6/2011 11:29' prior: 0! A simple dependency browser showing five panes: [1]: Packages: The list of available packages in the system. [2]: Package Dependencies: The dependent packages of the currently selected package. [3]: Class Dependencies: The classes causing the dependencies. [4]: Class List: The classes introducing the dependencies. [5]: Messages: The messages introducing the dependencies.! Item was changed: ----- Method: DependencyBrowser>>buildClassDepsWith: (in category 'toolbuilder') ----- buildClassDepsWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; name: 'Required Classes' ; + list: #classDepsList; - list: #classDeps; getIndex: #classDepsIndex; setIndex: #classDepsIndex:; menu: #classDepsMenu:; keyPress: #classDepsKey:from:. ^listSpec ! Item was changed: ----- Method: DependencyBrowser>>buildPackageDepsWith: (in category 'toolbuilder') ----- buildPackageDepsWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; name: 'Required Packages' ; + list: #packageDepsList; - list: #packageDeps; getIndex: #packageDepsIndex; setIndex: #packageDepsIndex:; menu: #packageDepsMenu:; keyPress: #packageDepsKey:from:. ^listSpec ! Item was changed: ----- Method: DependencyBrowser>>classDepsIndex: (in category 'class deps') ----- classDepsIndex: idx "Class dependency selection" classDepsIndex := idx. - self classListIndex: 0. self changed: #classDepsIndex. + classList := nil. self changed: #classList. + self classListIndex: (idx = 0 ifTrue: [0] ifFalse: [1]).! - ! Item was added: + ----- Method: DependencyBrowser>>classDepsList (in category 'class deps') ----- + classDepsList + "Class dependencies for the currently selected package" + + ^ classDepsList ifNil: [ + classDepsList := self classDeps. + classDepsList := classDepsList collect: [:className | + (self + depsForClassNamed: className + allSatisfy: [:mref | mref selector = #Definition]) + ifTrue: [className, ' (defs only)'] + ifFalse: [(self + depsForClassNamed: className + allSatisfy: [:mref | mref category notNil and: [mref category first = $*]]) + ifTrue: [className, ' *ext only*'] + ifFalse: [className]]]. + classDepsList]! Item was changed: ----- Method: DependencyBrowser>>classList (in category 'class list') ----- classList "List of classes that refer to dependencies" + | selectedPackage | classDeps ifNil: [^ #()]. + self classDepsSelection ifNil: [^ #()]. + selectedPackage := PackageOrganizer default + packageNamed: self packageListSelection ifAbsent: [nil]. - "classList stores the actual classes displayed in my class list, corresponding to the collection of Strings returned by self classList. This allows us to unambiguously determine the class or metaclass currently being browsed simply by knowing the index of the selected class." - classList := ((classDeps at: self classDepsSelection ifAbsent:[#()]) - collect:[:mref| mref actualClass] as: Set) asArray sort: [:a :b | a name < b name]. + classList := (classDeps at: self classDepsSelection ifAbsent: [#()]) + collect: [:mref | + mref selector = #Definition + ifTrue: [mref actualClass name, ' (class definition)'] + ifFalse: [mref category first = $* + ifTrue: ['*extensions'] + ifFalse: [mref actualClass name]]] + as: Set. + + ^ classList := classList asArray sort! - ^ classList collect: #name.! Item was changed: ----- Method: DependencyBrowser>>classListIndex: (in category 'class list') ----- classListIndex: idx "Class list selection" classListIndex := idx. - self messageListIndex: 0. self changed: #classListIndex. self changed: #messageList. + self messageListIndex: (idx = 0 ifTrue: [0] ifFalse: [1]). ! Item was changed: ----- Method: DependencyBrowser>>classListSelection (in category 'class list') ----- classListSelection "Class list selection" + ^ self selectedClassOrMetaClass name! - ^(self classListIndex between: 1 and: self classList size) - ifTrue:[self classList at: self classListIndex]! Item was changed: ----- Method: DependencyBrowser>>computePackageDependencies: (in category 'package deps') ----- computePackageDependencies: pkgName "Compute the dependencies for the given package" | pi | classDeps := Dictionary new. packageDeps := Dictionary new. pkgName ifNil:[^self]. pi := PackageOrganizer default packageNamed: pkgName ifAbsent:[^self]. "unloaded" + pi classes do:[:pkgClass | - pi classes do:[:pkgClass| (classDeps at: (pkgClass superclass ifNil:[ProtoObject]) name ifAbsentPut:[OrderedCollection new]) add: + (MethodReference class: pkgClass selector: #Definition). + pkgClass sharedPools do: [:sharedPool | + sharedPool isBehavior ifTrue: [ + (classDeps at: sharedPool name + ifAbsentPut:[OrderedCollection new]) add: + (MethodReference class: pkgClass selector: #Definition)]]]. - (MethodReference class: pkgClass selector: #Definition)]. + pi coreMethods do:[:mref| - pi methods do:[:mref| mref compiledMethod allLiteralsDo:[:lit | (lit isVariableBinding and: [lit value isBehavior]) ifTrue:[ (classDeps at: lit value name ifAbsentPut:[OrderedCollection new]) add: mref]]]. + pi extensionMethods do:[:mref| + (classDeps at: mref actualClass name ifAbsentPut: [OrderedCollection new]) + add: mref]. + classDeps keys do:[:className| | aClass pkg | aClass := Smalltalk classNamed: className. pkg := aClass ifNil: [nil] ifNotNil: [PackageOrganizer default packageOfClass: aClass ifNone:[nil]]. pkg ifNil:[ Transcript cr; show: 'WARNING: No package for ', className. (classDeps removeKey: className) do:[:each| Transcript crtab; show: each]. ] ifNotNil:[ (packageDeps at: pkg name ifAbsentPut:[OrderedCollection new]) add: className. ]. ]. (packageDeps removeKey: pkgName ifAbsent:[#()]) do:[:each| classDeps removeKey: each ifAbsent:[]. ].! Item was added: + ----- Method: DependencyBrowser>>depsForClassNamed:allSatisfy: (in category 'enumerating') ----- + depsForClassNamed: className allSatisfy: workBlock + + self + depsForClassNamed: className + do: [:mref | (workBlock value: mref) ifFalse: [^ false]]. + ^ true! Item was added: + ----- Method: DependencyBrowser>>depsForClassNamed:do: (in category 'enumerating') ----- + depsForClassNamed: className do: workBlock + + classDeps ifNil: [^ self]. + (classDeps at: className ifAbsent: [^ self]) do: workBlock.! Item was added: + ----- Method: DependencyBrowser>>depsForPackageNamed:allSatisfy: (in category 'enumerating') ----- + depsForPackageNamed: packageName allSatisfy: workBlock + + self + depsForPackageNamed: packageName + do: [:mref | (workBlock value: mref) ifFalse: [^ false]]. + ^ true! Item was added: + ----- Method: DependencyBrowser>>depsForPackageNamed:do: (in category 'enumerating') ----- + depsForPackageNamed: packageName do: workBlock + + classDeps ifNil: [^ self]. + classDeps keysAndValuesDo: [:className :dependencies | + (self selectedEnvironment classNamed: className) ifNotNil: [:class | + class packageInfo name = packageName ifTrue: [ + dependencies do: workBlock]]].! Item was changed: ----- Method: DependencyBrowser>>messageList (in category 'message list') ----- messageList "List of messages creating dependencies" + | selectedClass label filter | - | selectedClass | classDeps ifNil: [^ #()]. + classList ifNil: [^ #()]. selectedClass := self classListSelection. + label := classList at: classListIndex ifAbsent: ['']. + + filter := label ifEmpty: [ [:mref | false] ] ifNotEmpty: [ + (label first = $* or: [(label endsWith: '(class definition)') not]) + ifTrue: [ [:mref | mref selector ~= #Definition and: [mref actualClass name = selectedClass]] ] + ifFalse: [ [:mref | mref selector = #Definition and: [mref actualClass name = selectedClass]] ]]. + ^((classDeps at: self classDepsSelection ifAbsent:[#()]) + select: filter + thenCollect:[:mref| mref methodSymbol]) asSet asArray sort! - select:[:each| each actualClass name = selectedClass] - thenCollect:[:mref| mref methodSymbol]) asArray sort! Item was changed: ----- Method: DependencyBrowser>>packageDepsIndex: (in category 'package deps') ----- packageDepsIndex: aNumber "Current package dependencies selection" packageDepsIndex := aNumber. - self classDepsIndex: 0. self changed: #packageDepsIndex. + + classDepsList := nil. + self changed: #classDepsList. + self classDepsIndex: (aNumber = 0 ifTrue: [0] ifFalse: [1]). - self changed: #classDeps. ! Item was added: + ----- Method: DependencyBrowser>>packageDepsList (in category 'package deps') ----- + packageDepsList + "Package dependencies for the currently selected package" + + ^ packageDepsList ifNil: [ + packageDepsList := self packageDeps. + packageDepsList := packageDepsList collect: [:packageName | + (self + depsForPackageNamed: packageName + allSatisfy: [:mref | mref selector = #Definition]) + ifTrue: [packageName, ' (defs only)'] + ifFalse: [(self + depsForPackageNamed: packageName + allSatisfy: [:mref | mref category notNil and: [mref category first = $*]]) + ifTrue: [packageName, ' *ext only*'] + ifFalse: [packageName]]]. + packageDepsList]! Item was changed: ----- Method: DependencyBrowser>>packageListIndex: (in category 'package list') ----- packageListIndex: aNumber "Current package list selection" packageListIndex := aNumber. self changed: #packageListIndex. - self packageDepsIndex: 0. packageDeps := nil. + packageDepsList := nil. + self changed: #packageDepsList. + self packageDepsIndex: (aNumber = 0 ifTrue: [0] ifFalse: [1]). - self changed: #packageDeps. ! Item was changed: ----- Method: DependencyBrowser>>selectedClass (in category 'class list') ----- selectedClass + "Answer the class that is currently selected. Answer nil if no selection exists." - "Answer the class that is currently selected. Answer nil if no selection - exists." + ^ self selectedClassOrMetaClass - | name envt nonMetaClass nonMetaName | - (name := self selectedClassName) ifNil: [^ nil]. - (envt := self selectedEnvironment) ifNil: [^ nil]. - nonMetaName := (name endsWith: ' class') ifTrue: [name allButLast: 6] ifFalse: [name]. - nonMetaClass := envt at: nonMetaName asSymbol ifAbsent: [^ nil]. - ^ nonMetaName = name ifTrue: [nonMetaClass] ifFalse: [nonMetaClass class]. ! Item was changed: ----- Method: DependencyBrowser>>selectedClassName (in category 'class list') ----- selectedClassName | idx | idx := classListIndex ifNil: [0]. + ^ (classList ifNotNil: [ :l | l at: idx ifAbsent: [nil]]) + ifNotNil: [:label | + label first = $* + ifTrue: [nil "extension methods"] + ifFalse: [(label endsWith: '(class definition)') + ifTrue: [label findTokens first] + ifFalse: [label "e.g., 'String' or 'String class'"]]]! - ^ self classList ifNotNil: [ :l | l at: idx ifAbsent: [nil]]! Item was changed: ----- Method: DependencyBrowser>>selectedClassOrMetaClass (in category 'class list') ----- selectedClassOrMetaClass "Answer the class or metaclass that is currently selected. Answer nil if no selection exists." classList ifNil: [^nil]. + ^ (self selectedEnvironment classNamed: (self selectedClassName ifNil: [''])) + ifNil: [classListIndex > 0 ifFalse: [nil] ifTrue: [ + "Use the class the current selection is depending on such as for method extensions or (base) class definitions." + self selectedEnvironment classNamed: (self classDepsSelection ifNil: [''])]]! - ^ classList at: classListIndex ifAbsent: [nil].!

1 0

The Trunk: EToys-mt.396.mcz
by commits＠source.squeak.org 12 Jun '20

12 Jun '20

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.396.mcz ==================== Summary ==================== Name: EToys-mt.396 Author: mt Time: 12 June 2020, 9:06:51.265703 am UUID: f2b7ed01-4050-6940-a3e6-b3ffa53fcda2 Ancestors: EToys-mt.395 Removes unused parser extension from Etoys package. =============== Diff against EToys-mt.395 =============== Item was changed: SystemOrganization addCategory: #'Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-CustomEvents'! SystemOrganization addCategory: #'Etoys-Experimental'! SystemOrganization addCategory: #'Etoys-OLPC-Display'! SystemOrganization addCategory: #'Etoys-Outliner'! SystemOrganization addCategory: #'Etoys-Protocols'! SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'! SystemOrganization addCategory: #'Etoys-ReleaseBuilder'! SystemOrganization addCategory: #'Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-BroomMorphs-Base'! SystemOrganization addCategory: #'Etoys-Squeakland-BroomMorphs-Connectors'! SystemOrganization addCategory: #'Etoys-Squeakland-EToys-Kedama'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Calendar'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Debugger'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Help'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Input'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-SpeechBubbles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Text'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Intersection'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Simplification'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Triangulation'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Basic'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Books'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Components'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Demo'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Experimental'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games-Chess'! + SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games-Chess960'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-GeeMail'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Mentoring'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Navigators'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PDA'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PartsBin'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Windows'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Worlds'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-AdditionalMorphs'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Charts'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Postscript Filters'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-WebCam'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Multilingual-Languages'! SystemOrganization addCategory: #'Etoys-Squeakland-Multilingual-TextConversion'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Formatter'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Forms'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser Entities'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Tokenizer'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-MIME'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-TelNet WordNet'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-UI'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-Url'! SystemOrganization addCategory: #'Etoys-Squeakland-Protocols-Type Vocabularies'! SystemOrganization addCategory: #'Etoys-Squeakland-SISS-Serialization'! SystemOrganization addCategory: #'Etoys-Squeakland-ST80-Morphic'! SystemOrganization addCategory: #'Etoys-Squeakland-SUnit'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Interface'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Ogg'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Scores'! SystemOrganization addCategory: #'Etoys-Squeakland-Sugar'! SystemOrganization addCategory: #'Etoys-Squeakland-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Clipboard-Extended'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Compiler'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Exceptions Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Changes'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Explorer'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Process Browser'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ObjectVectors'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTree-AttributeDefinition'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTreeTransformer'! SystemOrganization addCategory: #'Etoys-Stacks'! SystemOrganization addCategory: #'Etoys-StarSqueak'! SystemOrganization addCategory: #'Etoys-Support'! SystemOrganization addCategory: #'Etoys-Tests'! SystemOrganization addCategory: #'Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-UserInterfaceTheme'! SystemOrganization addCategory: #'Etoys-Widgets'! - SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games-Chess960'! Item was removed: - ----- Method: Parser>>primitive (in category '*Etoys-Squeakland-primitives') ----- - primitive - | n | - (self matchToken: #<) ifFalse: [^ 0]. - n := self primitiveDeclarations. - (self matchToken: #>) ifFalse: [^ self expected: '>']. - ^ n!

1 0

FFI: FFI-Tests-mt.18.mcz
by commits＠source.squeak.org 11 Jun '20

11 Jun '20

Marcel Taeumel uploaded a new version of FFI-Tests to project FFI: http://source.squeak.org/FFI/FFI-Tests-mt.18.mcz ==================== Summary ==================== Name: FFI-Tests-mt.18 Author: mt Time: 11 June 2020, 11:23:10.390059 am UUID: 468e6185-2cb9-c248-9288-e67137e7b144 Ancestors: FFI-Tests-mt.17 - Adds tests for type-name lookup, which is used during struct-field and FFI-call compilation. Organize fixtures in "FFI-Tests-Fixtures". - Explicates #ffiLongVsInt issue. - Fixes one test that actually called to a 'long' in C to use 'c_long' instead of 'long'. - Adds tests for 'bool' support, which maps to 'unsigned int' in the FFI plugin, which you can see in ByteArray>>#booleanAt:(put:). - Exposes new functions, which are already exported in the current FFI plugin: ffiTest4IntSum, ffiTest8IntSum. =============== Diff against FFI-Tests-mt.17 =============== Item was changed: SystemOrganization addCategory: #'FFI-Tests'! + SystemOrganization addCategory: #'FFI-Tests-Fixtures'! Item was added: + ----- Method: FFIPluginTests>>testGenericBoolCall (in category 'simple tests') ----- + testGenericBoolCall + "Test using generic FFI spec" + | result | + result := FFITestLibrary ffiTestBool: true with: false with: true with: false. + self assert: result.! Item was added: + ----- Method: FFIPluginTests>>testGenericBoolCall2 (in category 'simple tests') ----- + testGenericBoolCall2 + "Test using generic FFI spec" + | result | + result := FFITestLibrary ffiTestBool: false with: false with: true with: true. + self deny: result.! Item was added: + ----- Method: FFIPluginTests>>testGenericBoolCall3 (in category 'simple tests') ----- + testGenericBoolCall3 + "Test using generic FFI spec" + | result | + result := FFITestLibrary ffiTestBool: -1 with: 1 with: 0 with: 0. + self deny: result.! Item was changed: ----- Method: FFIPluginTests>>testGenericIntCall (in category 'simple tests') ----- testGenericIntCall "Test using generic FFI spec" | result | + self flag: #ffiLongVsInt. result := FFITestLibrary ffiTestInt: $A with: 65 with: 65.0 with: true. self assert: result = 130.! Item was added: + ----- Method: FFIPluginTests>>testGenericLongCall (in category 'simple tests') ----- + testGenericLongCall + "Test using generic FFI spec" + | result | + self flag: #ffiLongVsInt. + result := FFITestLibrary ffiTestLong: $A with: 65 with: 65.0 with: true. + self assert: result = 130.! Item was changed: ----- Method: FFIPluginTests>>testMixedDoublesAndLongsSum (in category 'simple tests') ----- testMixedDoublesAndLongsSum "Test using generic FFI spec" | result meth n args | meth := ExternalLibraryFunction name:'ffiTestMixedDoublesAndLongs' module: FFITestLibrary moduleName callType: 0 returnType: ExternalType double + argumentTypes: ((1 to: (n := 20)) collect:[:i| i odd ifTrue: [ExternalType double] ifFalse: [ExternalType c_long]]). - argumentTypes: ((1 to: (n := 20)) collect:[:i| i odd ifTrue: [ExternalType double] ifFalse: [ExternalType long]]). args := (1 to: n) collect: [:i| i odd ifTrue: [(i // 2) odd ifTrue: [123.456 * (10 raisedTo: i)] ifFalse: [-654.321 * (10 raisedTo: i)]] ifFalse: [(i // 2) odd ifTrue: [54321 * i] ifFalse: [-54321 * i]]]. result := meth invokeWithArguments: args asArray. self assert: args sum equals: result! Item was added: + ----- Method: FFIPluginTests>>testUintRange (in category 'simple tests') ----- + testUintRange + "Simple test for making sure the FFI can call certain numbers in the uint range." + | result | + self flag: #ffiLongVsInt. + self shouldnt:[result := FFITestLibrary ffiTestUint: 3894967296 "1<<32-4e8 " with: 3894967296 with: 3103854339 with: 3103854339] raise: Error. + self should: result = -8e8.! Item was changed: ----- Method: FFIPluginTests>>testUlongRange (in category 'simple tests') ----- testUlongRange "Simple test for making sure the FFI can call certain numbers in the ulong range. + Note: since primitive is using unsigned int under the hood, avoid an integer overflow by choosing appropriate unsigned values. - Note: since primitive is using signed int under the hood, avoid an integer overflow by choosing appropriate unsigned values. Note: only first two parameters are added" | result | + self flag: #ffiLongVsInt. self shouldnt:[result := FFITestLibrary ffiTestUlong: 3894967296 "1<<32-4e8 " with: 3894967296 with: 3103854339 with: 3103854339] raise: Error. self should: result = -8e8.! Item was changed: ExternalStructure subclass: #FFISmallStruct1 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestBiggerStruct instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestCompoundStruct instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalLibrary subclass: #FFITestLibrary instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! !FFITestLibrary commentStamp: 'ar 8/14/2006 23:06' prior: 0! ExternalLibrarty used in FFI tests! Item was added: + ----- Method: FFITestLibrary class>>ffiTest4IntSum:with:with:with: (in category 'primitives - long vs. int') ----- + ffiTest4IntSum: c1 with: c2 with: c3 with: c4 + "FFITestLibrary ffiTest4IntSum: 1 with: 2 with: 3 with: 4" + <cdecl: int 'ffiTest4IntSum' (int int int int) module:'SqueakFFIPrims'> + self flag: #ffiLongVsInt. + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTest4LongSum:with:with:with: (in category 'primitives - long vs. int') ----- + ffiTest4LongSum: c1 with: c2 with: c3 with: c4 + "FFITestLibrary ffiTest4LongSum: 1 with: 2 with: 3 with: 4" + <cdecl: long 'ffiTest4IntSum' (long long long long) module:'SqueakFFIPrims'> + self flag: #ffiLongVsInt. + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTest8IntSum:with:with:with:with:with:with:with: (in category 'primitives - long vs. int') ----- + ffiTest8IntSum: c1 with: c2 with: c3 with: c4 with: c5 with: c6 with: c7 with: c8 + "FFITestLibrary ffiTest8IntSum: 1 with: 2 with: 3 with: 4 with: 5 with: 6 with: 7 with: 8" + <cdecl: int 'ffiTest8IntSum' (int int int int int int int int) module:'SqueakFFIPrims'> + self flag: #ffiLongVsInt. + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTest8LongSum:with:with:with:with:with:with:with: (in category 'primitives - long vs. int') ----- + ffiTest8LongSum: c1 with: c2 with: c3 with: c4 with: c5 with: c6 with: c7 with: c8 + "FFITestLibrary ffiTest8LongSum: 1 with: 2 with: 3 with: 4 with: 5 with: 6 with: 7 with: 8" + <cdecl: long 'ffiTest8IntSum' (long long long long long long long long) module:'SqueakFFIPrims'> + self flag: #ffiLongVsInt. + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestBool:with:with:with: (in category 'primitives') ----- + ffiTestBool: b1 with: b2 with: b3 with: b4 + "FFITestLibrary ffiTestBool: true with: false with: true with: false" + <cdecl: bool 'ffiTestInts' (bool bool bool bool) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestInt:with:with:with: (in category 'primitives - long vs. int') ----- - ----- 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: int 'ffiTestInts' (int int int int) module:'SqueakFFIPrims'> + self flag: #ffiLongVsInt. - <cdecl: long 'ffiTestInts' (long long long long) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestLong:with:with:with: (in category 'primitives - long vs. int') ----- + ffiTestLong: c1 with: c2 with: c3 with: c4 + "FFITestLibrary ffiTestLong: $A with: 65 with: 65.0 with: true" + <cdecl: long 'ffiTestInts' (long long long long) module:'SqueakFFIPrims'> + self flag: #ffiLongVsInt. + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestUint:with:with:with: (in category 'primitives - long vs. int') ----- + ffiTestUint: c1 with: c2 with: c3 with: c4 + "FFITestLibrary ffiTestUint: 3103854339 with: 3103854339 with: 3103854339 with: 3103854339" + <cdecl: int 'ffiTestInts' (uint uint uint uint) module:'SqueakFFIPrims'> + self flag: #ffiLongVsInt. + ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestUlong:with:with:with: (in category 'primitives - long vs. int') ----- - ----- 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 flag: #ffiLongVsInt. ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestVoid (in category 'mocks') ----- + ffiTestVoid + "Note that ffiTestVoid does exist in the module." + <cdecl: void 'ffiTestVoid' (void) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestVoidPointer (in category 'mocks') ----- + ffiTestVoidPointer + "Note that ffiTestVoidPointer does exist in the module." + <cdecl: void* 'ffiTestVoidPointer' (void*) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was changed: ExternalStructure subclass: #FFITestMisalignedCompoundStruct instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestMisalignedStruct instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestPoint2 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! !FFITestPoint2 commentStamp: 'ar 8/14/2006 23:06' prior: 0! A class used for testing structures as arguments for the FFI.! Item was changed: ExternalStructure subclass: #FFITestPoint4 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! !FFITestPoint4 commentStamp: 'ar 8/14/2006 23:06' prior: 0! A class used for testing structures as arguments for the FFI.! Item was changed: ExternalStructure subclass: #FFITestSSdi5 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSUfdUdSi2 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSUfdUfi instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSd2 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSdi instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSf2 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSf2d instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSf4 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSfd instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSfdf instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSfi instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSi2 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSl2 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSs2 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSs2i instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSs4 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSsSsf instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSsSsi instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSsf instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSsi instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSsis instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSslf instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalStructure subclass: #FFITestSsls instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalUnion subclass: #FFITestUdSi2 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalUnion subclass: #FFITestUfd instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was changed: ExternalUnion subclass: #FFITestUfi instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! - category: 'FFI-Tests'! Item was added: + TestCase subclass: #FFITypeNameTests + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'FFI-Tests'! Item was added: + ----- Method: FFITypeNameTests>>argTypesAt: (in category 'support') ----- + argTypesAt: selector + + ^ (FFITestLibrary class >> selector) externalLibraryFunction argTypes! Item was added: + ----- Method: FFITypeNameTests>>testAtomicBool (in category 'tests') ----- + testAtomicBool + + self + flag: #ffiLongVsInt; + assert: (self argTypesAt: #ffiTestBool:with:with:with:) + equals: (Array new: 5 withAll: ExternalType bool).! Item was added: + ----- Method: FFITypeNameTests>>testAtomicChar (in category 'tests') ----- + testAtomicChar + + self + flag: #ffiLongVsInt; + assert: (self argTypesAt: #ffiTestChar:with:with:with:) + equals: (Array new: 5 withAll: ExternalType char).! Item was added: + ----- Method: FFITypeNameTests>>testAtomicCharPointer (in category 'tests') ----- + testAtomicCharPointer + + self + assert: (self argTypesAt: #ffiPrintString:) + equals: (Array new: 2 withAll: ExternalType char asPointerType).! Item was added: + ----- Method: FFITypeNameTests>>testAtomicDouble (in category 'tests') ----- + testAtomicDouble + + self + assert: (self argTypesAt: #ffiTestDoubles:with:) + equals: (Array new: 3 withAll: ExternalType double).! Item was added: + ----- Method: FFITypeNameTests>>testAtomicFloat (in category 'tests') ----- + testAtomicFloat + + self + assert: (self argTypesAt: #ffiTestFloats:with:) + equals: (Array new: 3 withAll: ExternalType float).! Item was added: + ----- Method: FFITypeNameTests>>testAtomicInt (in category 'tests') ----- + testAtomicInt + + self + flag: #ffiLongVsInt; + assert: (self argTypesAt: #ffiTestInt:with:with:with:) + equals: (Array new: 5 withAll: ExternalType int).! Item was added: + ----- Method: FFITypeNameTests>>testAtomicLong (in category 'tests') ----- + testAtomicLong + + self + flag: #ffiLongVsInt; + assert: (self argTypesAt: #ffiTestLong:with:with:with:) + equals: (Array new: 5 withAll: ExternalType long).! Item was added: + ----- Method: FFITypeNameTests>>testAtomicLongLong (in category 'tests') ----- + testAtomicLongLong + + self + assert: (self argTypesAt: #ffiTestLongLong:with:) + equals: (Array new: 3 withAll: ExternalType longlong).! Item was added: + ----- Method: FFITypeNameTests>>testAtomicString (in category 'tests') ----- + testAtomicString + + self + assert: (self argTypesAt: #ffiPrintString:) + equals: (Array new: 2 withAll: ExternalType string).! Item was added: + ----- Method: FFITypeNameTests>>testAtomicUint (in category 'tests') ----- + testAtomicUint + + self + flag: #ffiLongVsInt; + assert: (self argTypesAt: #ffiTestUint:with:with:with:) allButFirst + equals: (Array new: 4 withAll: ExternalType uint).! Item was added: + ----- Method: FFITypeNameTests>>testAtomicUlong (in category 'tests') ----- + testAtomicUlong + + self + flag: #ffiLongVsInt; + assert: (self argTypesAt: #ffiTestUlong:with:with:with:) allButFirst + equals: (Array new: 4 withAll: ExternalType ulong).! Item was added: + ----- Method: FFITypeNameTests>>testAtomicVoid (in category 'tests') ----- + testAtomicVoid + "Only test for return type since argument 'void' means 'no argument' in C." + + self + assert: (self argTypesAt: #ffiTestVoid) + equals: {ExternalType void}.! Item was added: + ----- Method: FFITypeNameTests>>testAtomicVoidPointer (in category 'tests') ----- + testAtomicVoidPointer + + self + assert: (self argTypesAt: #ffiTestVoidPointer) + equals: (Array new: 2 withAll: ExternalType void asPointerType).! Item was added: + ----- Method: FFITypeNameTests>>testStruct (in category 'tests') ----- + testStruct + + self + assert: (self argTypesAt: #ffiTestPoint2:with:) + equals: (Array new: 3 withAll: FFITestPoint2 externalType).! Item was added: + ----- Method: FFITypeNameTests>>testStructPointer (in category 'tests') ----- + testStructPointer + + self + assert: (self argTypesAt: #ffiTestPointers:with:) + equals: (Array new: 3 withAll: FFITestPoint4 externalType asPointerType).!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
16
Older →

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