Packages June 2020

packages@lists.squeakfoundation.org

1 participants
151 discussions

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

11 Jun '20

Marcel Taeumel uploaded a new version of FFI-Tools to project FFI: http://source.squeak.org/FFI/FFI-Tools-mt.15.mcz ==================== Summary ==================== Name: FFI-Tools-mt.15 Author: mt Time: 11 June 2020, 11:13:29.847059 am UUID: ae1bb806-a075-a541-8e78-a93421394155 Ancestors: FFI-Tools-mt.14 Simplify support for C-string interpretation. =============== Diff against FFI-Tools-mt.14 =============== Item was changed: ----- Method: ExternalData>>explorerContentsStructFields (in category '*FFI-Tools') ----- explorerContentsStructFields + "In case some data interpretation omitted to convert char*, which is a (null-terminated) C string, to Smalltalk string." + + ^ (self isNull not and: [type = ExternalType string]) ifFalse: [#()] ifTrue: [ - - ^ (self isNull not and: [self mightBeCString]) ifFalse: [#()] ifTrue: [ {ObjectExplorerWrapper + with: self fromCString - with: self fromCStringLimited name: 'as C string' model: self}]! Item was removed: - ----- Method: ExternalData>>fromCStringLimited (in category '*FFI-Tools') ----- - fromCStringLimited - - ^ self fromCStringLimitedTo: 50! Item was removed: - ----- Method: ExternalData>>fromCStringLimitedTo: (in category '*FFI-Tools') ----- - fromCStringLimitedTo: limit - "Limit the number of characters to fetch in case this is no C string." - - | stream index char | - type isPointerType ifFalse: [self error: 'External object is not a pointer type.']. - stream := WriteStream on: String new. - index := 1. - [index > limit or: [(char := handle unsignedCharAt: index) = 0 asCharacter]] whileFalse: [ - stream nextPut: char. - index := index + 1]. - ^stream contents! Item was changed: ----- Method: ExternalData>>hasContentsInExplorer (in category '*FFI-Tools') ----- hasContentsInExplorer ^ super hasContentsInExplorer + or: [self isNull not and: [type = ExternalType string]]! - or: [self isNull not and: [self mightBeCString]]! Item was removed: - ----- Method: ExternalData>>mightBeCString (in category '*FFI-Tools') ----- - mightBeCString - - ^ type isPointerType - and: [(type instVarNamed: #referencedType) = ExternalType char]!

1 0

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

11 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.104.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.104 Author: mt Time: 11 June 2020, 10:55:09.189855 am UUID: 4867f4c0-e2a0-3f45-8392-9445111c80c5 Ancestors: FFI-Kernel-mt.103 Adds lightweight aliases for 'long' and 'unsigned long' in C. Do not confuse it with Squeak FFI 'long', which is 'int' or rather 'int32_t'. (We might want to add a warning for programmers that want to compile methods or struct fields using 'long' instead of 'c_long' or 'int32_t'. To help them think about the issue.) =============== Diff against FFI-Kernel-mt.103 =============== Item was added: + ----- Method: ExternalType class>>c_long (in category 'type constants - extra') ----- + c_long + "Try to approximate a fitting type for 'long' in a C interface. First, note that this is not the same as 'long' in Squeak FFI, which is always 4 byte and hence corresponds to 'int' or rather 'int32_t' in C. Second, note that we do not want to expose the platforms underlying data model in Squeak because the OpenSmalltalk VM has no support for all kinds of architectures out there but only a popular subset such as x86-based ones. Still, this method is written to explicate the issue of different data models for 32-bit and 64-bit platforms." + + | platform dataModel | + platform := FFIPlatformDescription current. + dataModel := platform wordSize = 4 + ifTrue: ['ILP32'] + ifFalse: [platform isWindows + ifTrue: ['LLP64'] + ifFalse: ['LP64']]. + ^ dataModel caseOf: { + ['ILP32'] -> [self int32_t]. + ['LP64'] -> [self int64_t]. + ['LLP64'] -> [self int32_t] }! Item was added: + ----- Method: ExternalType class>>c_ulong (in category 'type constants - extra') ----- + c_ulong + "Try to approximate a fitting type for 'usigned long' in a C interface. See comment in #c_long." + + ^ self atomicTypeNamed: 'u', self c_long atomicTypeName!

1 0

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

10 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.103.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.103 Author: mt Time: 10 June 2020, 7:28:24.544848 pm UUID: dbc84b8b-2a33-ab41-a751-4620a7637ddf Ancestors: FFI-Kernel-mt.102 When generating accessors for struct fields, honor the contract that 'char*' means (null-terminated) C String, which means that Smalltalk strings can be automatically created. This already happens automatically through the FFI plugin, when an FFI call returns 'char*'. (Note that the alternative whould be to use ExternalData. You can usually exchange 'char*' or 'string' with 'byte*' or 'uint8_t*' to get such ExternalData to then manually read that data. See http://forum.world.st/FFI-Plugin-Auto-conversion-of-char-return-value-into-…) =============== Diff against FFI-Kernel-mt.102 =============== Item was changed: ----- Method: ExternalType>>readAlias (in category 'private') ----- readAlias ^ String streamContents: [:s | referentClass == nil ifTrue:[(self isAtomic and:[self isPointerType not]) ifTrue:[s nextPutAll:'^handle "', self writeFieldArgName, '"'] + ifFalse:[ | shouldReadCString | + (shouldReadCString := self = ExternalType string) + ifTrue: [s nextPutAll: '^('] + ifFalse: [s nextPutAll: '^']. + s nextPutAll: 'ExternalData fromHandle: handle'. + self isPointerType ifTrue:[s nextPutAll:' asExternalPointer']. + s nextPutAll:' type: '. + shouldReadCString + ifTrue: [s nextPutAll: 'ExternalType string) fromCString'] + ifFalse: [s nextPutAll: self asPointerType storeString]]] - ifFalse:[s nextPutAll:'^ExternalData fromHandle: handle'. - self isPointerType ifTrue:[s nextPutAll:' asExternalPointer']. - s nextPutAll:' type: '; - nextPutAll: self asPointerType storeString]] ifFalse:[s nextPutAll:'^', referentClass name,' fromHandle: handle'. self isPointerType ifTrue:[s nextPutAll:' asExternalPointer']]]! 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 shouldReadCString | - [| 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:] }. + shouldReadCString := self = ExternalType string. ^String streamContents: [:s| referentClass ifNil: + [shouldReadCString + ifTrue: [s nextPutAll: '^('] + ifFalse: [s nextPutAll: '^']. + s nextPutAll: 'ExternalData fromHandle: (handle ', accessor, ' '; - [s nextPutAll: '^ExternalData fromHandle: (handle ', accessor, ' '; print: byteOffset; + nextPutAll: ') type: ExternalType '. + shouldReadCString + ifTrue: + [s nextPutAll: 'string) fromCString'] + ifFalse: + [s nextPutAll: self atomicTypeName; + nextPutAll: ' asPointerType']] - nextPutAll: ') type: ExternalType '; - nextPutAll: self atomicTypeName; - 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:')']]. self isTypeAlias ifTrue: "alias to atomic type" [^String streamContents:[:s | s nextPutAll:'^'; print: referentClass; nextPutAll:' fromHandle: (handle '; nextPutAll: (AtomicSelectors at: self atomicType); space; print: byteOffset; nextPutAll:')']]. "Atomic non-pointer types" ^String streamContents: [:s| s nextPutAll:'^handle '; nextPutAll: (AtomicSelectors at: self atomicType); space; print: byteOffset].! Item was changed: ----- Method: ExternalType>>writeAliasWith: (in category 'private') ----- writeAliasWith: valueName ^ String streamContents: [:s | (referentClass == nil and:[self isAtomic and:[self isPointerType not]]) ifTrue:[s nextPutAll:'handle := ', valueName, '.'] + ifFalse:[ + self = ExternalType string + ifTrue: [ + s nextPutAll: 'self shouldNotImplement. "You cannot write an arbitrary String object into an external address. Maybe we can pad or trim it in the future to only use the memory that has already been allocated. Additionally, this type alias to a char* stores its external address in a byte array. So, locally storing the string in a byte array will not work either, because we cannot discriminate when reading the field again."'; crtab. + s nextPutAll: 'handle := ', valueName, ' asByteArray, #[0].'] + ifFalse: [ + s nextPutAll:'handle := ', valueName,' getHandle'. + self isPointerType ifTrue:[s nextPutAll:' asByteArrayPointer']]]]! - ifFalse:[s nextPutAll:'handle := ', valueName,' getHandle'. - self isPointerType ifTrue:[s nextPutAll:' asByteArrayPointer']]]! 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| + self = ExternalType string ifTrue: + [s nextPutAll: 'self shouldNotImplement. "You should not write a string of abitrary length into an external address. Maybe we can pad or trim it in the future to only use the memory that has already been allocated."'] + ifFalse: + [s nextPutAll:'handle ', accessor, ' '; + print: byteOffset; + nextPutAll:' put: '; + nextPutAll: valueName; + nextPutAll:' getHandle.']]]. - s nextPutAll:'handle ', accessor, ' '; - print: byteOffset; - nextPutAll:' put: '; - nextPutAll: valueName; - nextPutAll:' getHandle.']]. self isAtomic ifFalse:[ "structure type" ^String streamContents:[:s| s nextPutAll:'handle structAt: '; print: byteOffset; nextPutAll:' put: '; nextPutAll: valueName; nextPutAll:' getHandle'; nextPutAll:' length: '; print: self byteSize; nextPutAll:'.']]. self isTypeAlias ifTrue:[ "alias to atomic type" ^String streamContents:[:s| s nextPutAll:'handle '; nextPutAll: (AtomicSelectors at: self atomicType); space; print: byteOffset; nextPutAll:' put: '; nextPutAll: valueName; nextPutAll: ' getHandle']]. ^String streamContents:[:s| s nextPutAll:'handle '; nextPutAll: (AtomicSelectors at: self atomicType); space; print: byteOffset; nextPutAll:' put: '; nextPutAll: valueName].!

1 0

The Trunk: System-dtl.1164.mcz
by commits＠source.squeak.org 10 Jun '20

10 Jun '20

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.1164.mcz ==================== Summary ==================== Name: System-dtl.1164 Author: dtl Time: 8 June 2020, 9:16:15.619687 pm UUID: f4d402cd-389a-4600-abcb-6ba4486c07c4 Ancestors: System-mt.1163 Fix handling of the '--' command line token, and let command parameters be handled consistently by SmalltalkImage>>argumentAt: Discussion at http://lists.squeakfoundation.org/pipermail/squeak-dev/2020-June/209945.html =============== Diff against System-mt.1163 =============== Item was changed: ----- Method: SmalltalkImage>>argumentAt: (in category 'command line') ----- argumentAt: argumentIndex "Answer the i-th argument of the command line, or nil if not so many argument." + ^ self arguments at: argumentIndex ifAbsent: []. + ! - ^ self getSystemAttribute: - argumentIndex + - (Preferences readDocumentAtStartup - ifTrue: [ 2 ] - ifFalse: [ 1 ])! Item was changed: ----- Method: SmalltalkImage>>arguments (in category 'command line') ----- arguments "Answer an array with all the command line arguments. This does not include imagePath, documentPath nor any option." "Smalltalk commandLine arguments" + | args strm | + args := self rawArguments. + (args includes: '--') + ifTrue: [ ^args copyAfter: self imageArgumentsMarker ]. + strm := args readStream. + strm atEnd ifFalse: [ strm next. "skip image name" + strm atEnd ifFalse: [ strm next "skip startup document name" ] ]. + ^ strm upToEnd. + ! - ^Array streamContents: [:str | - | arg i | - i := 1. - [i > 998 or: [(arg := self argumentAt: i) == nil]] - whileFalse: - [str nextPut: arg. - i := i + 1]].! Item was changed: ----- Method: SmalltalkImage>>documentPath (in category 'command line') ----- documentPath + "Answer the absolute path of the document passed to the VM or nil if none." - "Answer the absolute path of the document passed to the vm or nil if none." "Smalltalk commandLine documentPath" + ^ (self getSystemAttribute: 2) + ifNotNil: [ :arg | arg = self imageArgumentsMarker + ifTrue: [nil] ifFalse: [arg]]. + + ! - ^ Preferences readDocumentAtStartup ifTrue: [ self getSystemAttribute: 2 ]! Item was added: + ----- Method: SmalltalkImage>>imageArgumentsMarker (in category 'command line') ----- + imageArgumentsMarker + "The '--' token on the command line indicates that remaining arguments should + be passed to the image without interpretation, and should not be treated as e.g. + specification of a start script." + + ^ '--'! Item was added: + ----- Method: SmalltalkImage>>rawArguments (in category 'command line') ----- + rawArguments + "Answer an array with all the command line arguments as delivered + from the VM. Any arguments for the VM itself will have been removed + (these are accessed with optionAt:)." + + "Smalltalk commandLine rawArguments" + + ^Array streamContents: [:str | + | arg i | + i := 1. + [i > 998 or: [(arg := self getSystemAttribute: i) == nil]] + whileFalse: + [str nextPut: arg. + i := i + 1]].!

1 0

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

10 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.102.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.102 Author: mt Time: 10 June 2020, 6:16:11.229765 pm UUID: 66dfe493-cd3f-d94f-98d8-6aed8a471f05 Ancestors: FFI-Kernel-mt.101 Fixes postload script. =============== Diff against FFI-Kernel-mt.101 =============== Item was changed: (PackageInfo named: 'FFI-Kernel') postscript: 'Smalltalk removeFromStartUpList: ExternalAddress. Smalltalk removeFromStartUpList: ExternalObject. "Since #pointerSize in ExternalType is never nil anymore, make the code generated for fields more specific, i.e., #shortPointerAt:(put:) or #longPointerAt:(put:)." + ExternalType platformChangedFrom: FFIPlatformDescription empty to: FFIPlatformDescription current. + ExternalStructure platformChangedFrom: FFIPlatformDescription empty to: FFIPlatformDescription current.'! - ExternalType platformChangedFrom: nil to: nil. - ExternalStructure platformChangedFrom: nil to: nil.'!

1 0

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

10 Jun '20

Marcel Taeumel uploaded a new version of FFI-Tools to project FFI: http://source.squeak.org/FFI/FFI-Tools-mt.14.mcz ==================== Summary ==================== Name: FFI-Tools-mt.14 Author: mt Time: 10 June 2020, 6:11:23.992765 pm UUID: 5cd9c909-5179-9b41-9d43-633764dc7e49 Ancestors: FFI-Tools-mt.13 Complements FFI-Kernel-mt.101 =============== Diff against FFI-Tools-mt.13 =============== Item was changed: ----- Method: ExternalStructure>>explorerContentsMetaFields (in category '*FFI-Tools') ----- explorerContentsMetaFields "Answer extra fields for the object explorer to show meta information about this structure." ^ {ObjectExplorerWrapper + with: self externalType - with: (self class externalType ifNotNil: [:type | - handle class == ExternalAddress ifTrue: [type asPointerType] ifFalse: [type]]) name: '_type' model: self}!

1 0

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

10 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.101.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.101 Author: mt Time: 10 June 2020, 6:10:37.422765 pm UUID: a5283cbb-1343-6f45-85c9-d434c38a88ac Ancestors: FFI-Kernel-mt.100 Adds a mechanism for lightweight type aliases for atomic types by looking at the messages of ExternalType class for a referenced selector. This has entails no overhead for FFI calls, only a tiny one when compiling struct fields and methods that do FFI calls. Because that's when type names are looked up to find actual instances of ExternalType. Adds such lightweight aliases for standard typedefs from stddef.h and stdint.h. This includes size_t (and similar), which makes a dynamic dispatch on the platform's #wordSize. Consequently, we have to re-compile all FFI calls when a platform change is detected, which now happens. Adds more lightweight aliases to address the #ffiLongVsInt problem in Squeak FFI. You can now use 'int' and 'uint' etc. and it will correctly map to 'long' and 'ulong'. But you may be better off using 'int32_t' and 'uint32_t'; see above. (Note that there is still no convenient alias for the platform-specific C long type yet.) =============== Diff against FFI-Kernel-mt.100 =============== Item was changed: ----- Method: ExternalStructure class>>platformChangedFrom:to: (in category 'system startup') ----- platformChangedFrom: lastPlatform to: currentPlatform + "The system is coming up on a new platform. Compile all field specs and install them in the respective struct types." + - "The system is coming up on a new platform. Clear out the existing handles." self compileAllFields.! Item was changed: + ----- Method: ExternalStructure>>externalType (in category 'accessing') ----- - ----- Method: ExternalStructure>>externalType (in category 'converting') ----- externalType + | type | + self flag: #ffiDesignSmell. "mt: Note that type aliases to pointer types store pointers via handle as ByteArray, not ExternalAddress." + type := self class externalType. + ^ handle class == ExternalAddress + ifTrue: [type asPointerType] + ifFalse: [type]! - ^ self class externalType! Item was added: + ----- Method: ExternalType class>>int (in category 'type constants') ----- + int + + self flag: #ffiLongVsInt. + ^ self long! Item was added: + ----- Method: ExternalType class>>int16_t (in category 'type constants - stdint.h') ----- + int16_t + + ^ self signedShort! Item was added: + ----- Method: ExternalType class>>int32_t (in category 'type constants - stdint.h') ----- + int32_t + + ^ self signedInt! Item was added: + ----- Method: ExternalType class>>int64_t (in category 'type constants - stdint.h') ----- + int64_t + + ^ self signedLongLong! Item was added: + ----- Method: ExternalType class>>int8_t (in category 'type constants - stdint.h') ----- + int8_t + + ^ self signedByte! Item was added: + ----- Method: ExternalType class>>intptr_t (in category 'type constants - stddef.h') ----- + intptr_t + "Answer a signed integer type that can hold a data pointer on the current platform, that is, 4-byte pointers on 32-bit und 8-byte pointers on 64-bit. Unlike actual C pointers (e.g., void*), you can do (pointer) arithmetic (e.g., #+) and bitwise manipulation (e.g., #bitOr:) on the resulting Smalltalk Integer objects. + + Note that the equivalent type for a void* yields an instance if ExternalData, whose handle is an ExternalAddress, which actually impelements #+ as of June 2020. So, you can also do pointer arithmetic using that type. + + Note that all FFI calls and struct types will be updated automatically on startup if a platform change is detected." + + ^ FFIPlatformDescription current wordSize = 4 + ifTrue: [self signedInt] + ifFalse: [self signedLongLong]! Item was changed: ----- Method: ExternalType class>>long (in category 'type constants') ----- long + + self flag: #ffiLongVsInt. + ^ self signedLong! - ^self signedLong! Item was added: + ----- Method: ExternalType class>>longlong (in category 'type constants') ----- + longlong + ^ self signedLongLong! Item was changed: ----- Method: ExternalType class>>platformChangedFrom:to: (in category 'system startup') ----- platformChangedFrom: lastPlatform to: currentPlatform "Byte size or byte alignment for atomic types might be different on the new platform." + "1) Update all atomic types for platform-specifc byte size and alignment." self initializeAtomicTypes. + + "2) Discard all compiled specs for all structure types." + self initializeStructureTypes. + + "3) Update all type-name mappings for all FFI calls." + lastPlatform wordSize ~= currentPlatform wordSize + ifTrue: [self recompileAllLibraryFunctions].! - self initializeStructureTypes.! Item was added: + ----- Method: ExternalType class>>ptrdiff_t (in category 'type constants - stddef.h') ----- + ptrdiff_t + + ^ self intptr_t! Item was added: + ----- Method: ExternalType class>>recompileAllLibraryFunctions (in category 'housekeeping') ----- + recompileAllLibraryFunctions + "Recompile all methods that do FFI calls (e.g. <apicall ... > or <cdecl ... >) to update all mappings from type name to atomic type and struct type. Note that unknown struct types will be created on-the-fly and can later be completed by defining fields in the particular structure class via #defineFields or #compileFields. Note that such a recompilation is especially useful if 'type constants' for atomic types to additional dispatch such as according to the current platform's #wordSize." + + SystemNavigation default allSelectorsAndMethodsDo: [:behavior :selector :method | + method externalLibraryFunction ifNotNil: [behavior recompile: selector]].! Item was changed: ----- Method: ExternalType class>>resetAllStructureTypes (in category 'housekeeping') ----- resetAllStructureTypes "Warning: This call is only required if you change the container for StructTypes!! Note that (2) and (3) can be swapped but that puts unnecessary pressure on the GC." StructTypes := nil. "1) Initialize the container for structure types." self initializeStructureTypes. "2) Recompile all FFI calls to create and persist structure types." + self recompileAllLibraryFunctions. - SystemNavigation default allSelectorsAndMethodsDo: [:behavior :selector :method | - method externalLibraryFunction ifNotNil: [behavior recompile: selector]]. "3) Update all structure types' spec and alignment." ExternalStructure compileAllFields. ! Item was added: + ----- Method: ExternalType class>>signedInt (in category 'type constants') ----- + signedInt + + self flag: #ffiLongVsInt. + ^ self signedLong! Item was changed: ----- Method: ExternalType class>>signedLong (in category 'type constants') ----- signedLong + + self flag: #ffiLongVsInt. ^AtomicTypes at: 'long'! Item was added: + ----- Method: ExternalType class>>size_t (in category 'type constants - stddef.h') ----- + size_t + + ^ self uintptr_t! Item was changed: ----- Method: ExternalType class>>string (in category 'type constants') ----- string + ^ self char asPointerType! - ^(AtomicTypes at: 'char') asPointerType! Item was added: + ----- Method: ExternalType class>>uint (in category 'type constants') ----- + uint + + self flag: #ffiLongVsInt. + ^ self ulong! Item was added: + ----- Method: ExternalType class>>uint16_t (in category 'type constants - stdint.h') ----- + uint16_t + + ^ self unsignedShort! Item was added: + ----- Method: ExternalType class>>uint32_t (in category 'type constants - stdint.h') ----- + uint32_t + + ^ self unsignedInt! Item was added: + ----- Method: ExternalType class>>uint64_t (in category 'type constants - stdint.h') ----- + uint64_t + + ^ self unsignedLongLong! Item was added: + ----- Method: ExternalType class>>uint8_t (in category 'type constants - stdint.h') ----- + uint8_t + + ^ self unsignedByte! Item was added: + ----- Method: ExternalType class>>uintptr_t (in category 'type constants - stddef.h') ----- + uintptr_t + "Answer an unsigned integer type that can hold a data pointer on the current platform, that is, 4-byte pointers on 32-bit und 8-byte pointers on 64-bit. Unlike actual C pointers (e.g., void*), you can do (pointer) arithmetic (e.g., #+) and bitwise manipulation (e.g., #bitOr:) on the resulting Smalltalk Integer objects. + + Note that the equivalent type for a void* yields an instance if ExternalData, whose handle is an ExternalAddress, which actually impelements #+ as of June 2020. So, you can also do pointer arithmetic using that type. + + Note that all FFI calls and struct types will be updated automatically on startup if a platform change is detected." + + ^ FFIPlatformDescription current wordSize = 4 + ifTrue: [self unsignedInt] + ifFalse: [self unsignedLongLong]! Item was changed: ----- Method: ExternalType class>>ulong (in category 'type constants') ----- ulong + + self flag: #ffiLongVsInt. + ^ self unsignedLong! - ^self unsignedLong! Item was added: + ----- Method: ExternalType class>>ulonglong (in category 'type constants') ----- + ulonglong + ^ self unsignedLongLong! Item was added: + ----- Method: ExternalType class>>unsignedInt (in category 'type constants') ----- + unsignedInt + + self flag: #ffiLongVsInt. + ^ self unsignedLong! Item was changed: ----- Method: ExternalType class>>unsignedLong (in category 'type constants') ----- unsignedLong + + self flag: #ffiLongVsInt. + ^ AtomicTypes at: 'ulong'! - ^AtomicTypes at: 'ulong'!

1 0

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

09 Jun '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.974.mcz ==================== Summary ==================== Name: Tools-mt.974 Author: mt Time: 9 June 2020, 7:38:06.607541 pm UUID: 74e1388d-f759-9c40-a4fc-18822d353360 Ancestors: Tools-mt.973 Hides "stack top" field in the debugger if there is none. =============== Diff against Tools-mt.973 =============== Item was changed: ----- Method: ContextVariablesInspector>>fieldStackTop (in category 'fields') ----- fieldStackTop - "Note that #valueGetter returns the actual printString to not confuse an empty stack top with nil or an empty string. So the value pane will just stay empty if there is no stack top and it will show 'nil' or '''' otherwise." ^ (self newFieldForType: #stackTop key: #stackTop) name: 'stack top' translated; emphasizeName; + valueGetter: [:context | context top]; - valueGetter: [:context | context actualStackSize > 0 ifTrue: [context top printString] ifFalse: ['']]; - printValueAsIs; valueGetterExpression: 'ThisContext top'; yourself! Item was removed: - ----- Method: ContextVariablesInspector>>selectionOrObject (in category 'selection - convenience') ----- - selectionOrObject - "Special treatment for #stackTop. See #fieldStackTop." - - ^ self selectedField - ifNil: [super selectionOrObject] - ifNotNil: [:field | - field key = #stackTop - ifTrue: [ - self object actualStackSize > 0 - ifTrue: [self object top] - ifFalse: [self error: 'There is nothing on stack top.']] - ifFalse: [super selectionOrObject]] - ! Item was changed: ----- Method: ContextVariablesInspector>>streamBaseFieldsOn: (in category 'fields - streaming') ----- streamBaseFieldsOn: aStream self object ifNil: [^ self]. + aStream nextPut: self fieldSelf. + self object actualStackSize > 0 + ifTrue: [aStream nextPut: self fieldStackTop]. + aStream nextPut: self fieldAllTempVars.! - aStream - nextPut: self fieldSelf; - nextPut: self fieldStackTop; - nextPut: self fieldAllTempVars.! Item was changed: ----- Method: FormInspector>>fieldPixels (in category 'fields') ----- fieldPixels ^ (self newFieldForType: #misc key: #pixels) name: 'pixels' translated; emphasizeName; + printValueAsIs; - shouldPrintValueAsIs: true; valueGetter: [:form | self embedForm: form inText: form printString]; yourself!

1 0

The Trunk: ToolBuilder-Morphic-mt.260.mcz
by commits＠source.squeak.org 09 Jun '20

09 Jun '20

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.260.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.260 Author: mt Time: 9 June 2020, 7:37:16.988541 pm UUID: 93b477b0-4faa-eb49-91b2-b1fdad459b98 Ancestors: ToolBuilder-Morphic-mt.259 Fix wrong message send. =============== Diff against ToolBuilder-Morphic-mt.259 =============== Item was changed: ----- Method: MorphInspector>>fieldScreenshot (in category 'fields') ----- fieldScreenshot ^ (self newFieldForType: #misc key: #screenshot) name: 'screenshot' translated; emphasizeName; + printValueAsIs; - shouldPrintValueAsIs: true; valueGetter: [:morph | | screenshot | screenshot := morph imageForm. FormInspector new embedForm: screenshot inText: screenshot printString]; yourself!

1 0

The Trunk: Monticello-mt.723.mcz
by commits＠source.squeak.org 09 Jun '20

09 Jun '20

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.723.mcz ==================== Summary ==================== Name: Monticello-mt.723 Author: mt Time: 9 June 2020, 4:25:51.863525 pm UUID: c851a345-4eb8-1142-bf75-29e9a04ff2d9 Ancestors: Monticello-jr.722 Try to make CI on squeak-app pass again. =============== Diff against Monticello-jr.722 =============== Item was changed: ----- Method: MCHttpRepository>>clearCredentials (in category 'accessing') ----- clearCredentials + user beWritableObject. user ifNotNil: [user atAllPut: $x]. + password beWritableObject. password ifNotNil: [password atAllPut: $x]. user := password := String empty!

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
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