Squeak-dev June 2023

squeak-dev@lists.squeakfoundation.org

23 participants
127 discussions

[ANN] New development snapshot of Roguerrants available
by Stéphane Rollandin 16 Jun '23

16 Jun '23

It's there: http://www.zogotounga.net/comp/squeak/rogue.htm Roguerrants is a game engine for procedurally generated, interrupted real-time, tactical 2D games, with an emphasis on abstraction, extensibility, ecosystemic architecture and geometry - this is still a work in progress. Recent said progress includes overall better peformance, quite a few new game mechanics, advancement on the strategic overworld layer, more items, improved handling of group of agents, and much more. All of this is demonstrated and documentated in the image. Stef

1 0

FFI: FFI-Kernel-mt.230.mcz
by commits＠source.squeak.org 16 Jun '23

16 Jun '23

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.230.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.230 Author: mt Time: 16 June 2023, 1:53:15.667813 pm UUID: a4c0f4c0-a674-2c48-8ac0-f73251d7aa69 Ancestors: FFI-Kernel-mt.229 Revise FFI-Kernel-eem.228 by just updating the check in ExternalType >> #platformChangedFrom:to:. Reverts the extra update logic that was introduced by FFI-Kernel-eem.228. =============== Diff against FFI-Kernel-mt.229 =============== Item was changed: ExternalFunction subclass: #ExternalLibraryFunction instanceVariableNames: 'name module errorCodeName' + classVariableNames: '' - classVariableNames: 'Instances' poolDictionaries: '' category: 'FFI-Kernel'! !ExternalLibraryFunction commentStamp: '' prior: 0! An ExternalLibraryFunction specifies a fully qualified function from an external library. Instance variables: name <String | Integer> name or ordinal of function module <String | nil> name of module (nil if bound in the VM). errorCodeName <String | nil> name of temp receiving error code, if any! Item was removed: - ----- Method: ExternalLibraryFunction class>>instances (in category 'private') ----- - instances - "Cache our instances for faster reinitialization." - ^Instances ifNil: [Instances := WeakSet withAll: self allInstances]! Item was removed: - ----- Method: ExternalLibraryFunction class>>new (in category 'instance creation') ----- - new - ^self instances add: super new! Item was removed: - ----- Method: ExternalLibraryFunction class>>platformChangedFrom:to: (in category 'instance initialization') ----- - platformChangedFrom: lastPlatform to: currentPlatform - "Byte size or byte alignment for atomic types might be different on the new platform." - - "Make sure that the cache of all instances is up-to-date before using it..." - Instances ifNil: [self new]. - - "Get all instances to update their compiledSpecs so that FFI calls work." - self updateArgTypeSpecs! Item was removed: - ----- Method: ExternalLibraryFunction class>>updateArgTypeSpecs (in category 'instance initialization') ----- - updateArgTypeSpecs - self instances do: [:elf| elf updateArgTypeSpecs]! Item was removed: - ----- Method: ExternalLibraryFunction>>updateArgTypeSpecs (in category 'instance initialization') ----- - updateArgTypeSpecs - argTypes ifNotNil: - [:typeArray| typeArray do: [:argType| argType updateFromReferentClass]]! 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." lastPlatform pluginVersion ~= currentPlatform pluginVersion ifTrue: ["Type codes might have changed. Re-init thoroughly. Preserve type identity." self initialize "Slower but necessary for new type codes"] + ifFalse: ["Byte alignment of double and int64_t might have changed. Re-init quickly. Preserve type identity. Also updates all struct types and thus all library function calls." + self flag: #performance. "mt: Maybe cache ExternalAtomicType atomicTypeSpecs and compare it to actually detect changes? Well, #initializeFast is even faster if nothing changed for the atomic types, so..." + self initializeFast]. - ifFalse: ["Byte alignment of double and int64_t might have changed. Re-init quickly. Preserve type identity." - currentPlatform wordSize = 4 ifTrue: [self initializeFast]]. self flag: #todo. "mt: Update all critical aliases for atomic types, i.e., intptr_t, uintptr_t. But what about 'c_long' between 64-bit platforms?!!" "lastPlatform wordSize ~= currentPlatform wordSize ifTrue: [self recompileAllLibraryFunctions]."! Item was removed: - ----- Method: ExternalType>>updateFromReferentClass (in category 'instance initialization') ----- - updateFromReferentClass - "If I have a referentClass update my compiledSpec to reflect the new state of the system, e.g. after a platform change." - - referentClass ifNotNil: [:refClass| self newReferentClass: refClass]! Item was changed: ----- Method: FFIPlatformDescription class>>startUp: (in category 'system startup') ----- startUp: resuming "Notify all FFI classes about platform changes." resuming ifTrue: [ LastPlatform in: [:lastPlatform | self newCurrent in: [:currentPlatform | lastPlatform = currentPlatform ifTrue: [ self flag: #discuss. "mt: Maybe add #platformResuming?" ExternalAddress allBeNull ] ifFalse: [ LastPlatform := currentPlatform. "Update now. See #current." + { ExternalAddress. ExternalType. ExternalPool. ExternalLibrary } - { ExternalAddress. ExternalType. ExternalPool. ExternalLibrary. ExternalLibraryFunction } do: [:cls | cls platformChangedFrom: lastPlatform to: currentPlatform] ]]]. + self checkFFIOnStartUp ifTrue: [self checkFFI]].! - self checkFFIOnStartUp ifTrue: [self checkFFI]]!

1 0

The Trunk: Tools-mt.1222.mcz
by commits＠source.squeak.org 16 Jun '23

16 Jun '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1222.mcz ==================== Summary ==================== Name: Tools-mt.1222 Author: mt Time: 16 June 2023, 11:29:52.59957 am UUID: 8a41b3f4-0db1-3b48-9d8d-bb5278d431f2 Ancestors: Tools-mt.1221 Fixes optimized class-icon access. The default of #showBlankClassIcons is true, so we have to compare against false. =============== Diff against Tools-mt.1221 =============== Item was changed: ----- Method: TreeBrowser>>classIcon: (in category 'class tree') ----- classIcon: aClass "Answer 'nil' instead of blank icon to keep the tree widget compact." | iconName | self class showClassIcons ifFalse: [^ nil]. + ^ ((iconName := ToolIcons iconForClass: aClass name) ~~ #blank or: [ShowBlankClassIcons ~~ false]) - ^ ((iconName := ToolIcons iconForClass: aClass name) ~~ #blank or: [ShowBlankClassIcons == true]) ifTrue: [ToolIcons iconNamed: (iconName == #blank ifTrue: [#genericClass] ifFalse: [iconName])]!

1 0

FFI: FFI-Kernel-mt.229.mcz
by commits＠source.squeak.org 16 Jun '23

16 Jun '23

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.229.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.229 Author: mt Time: 16 June 2023, 10:02:47.730285 am UUID: ea58cc5d-3288-9345-8f5d-2b8455dd53ac Ancestors: FFI-Kernel-eem.228 Improve commentary for FFI-Kernel-eem.226 changes. =============== Diff against FFI-Kernel-eem.228 =============== Item was changed: ----- Method: ExternalUnknownType>>typeName (in category 'accessing') ----- typeName + "Overwritten to support intermediate state where referentClass is just that class' name at the moment. See #newTypeForStructureClass:. Both cases are important since #becomeUnknownType exists." + + ^ referentClass isSymbol + ifTrue: [referentClass] + ifFalse: [referentClass name]! - referentClass isBehavior ifTrue: - [^referentClass name]. - self assert: [referentClass isSymbol]. - ^ referentClass "Usually just the name of the class."!

1 0

Squeak on Apple's new Vision Pro
by LawsonEnglish 16 Jun '23

16 Jun '23

I realize the SDK isn’t even out yet, but is it even feasible? I’m talking about directly calling (or indirectly through a C interface library) the VisionOS API so we can at least experiment with realtime programming rather than go through the typical compile, install, run, test cycle that XCode requires. Yes I know that they give 3 static living rooms to look at your code in, but there’s no mention of seeing how look and feel in a live environment, which is a glaring oversight on Apple’s part, and a golden opportunity for Squeak if it is doable. L

2 1

The Trunk: System-mt.1416.mcz
by commits＠source.squeak.org 16 Jun '23

16 Jun '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1416.mcz ==================== Summary ==================== Name: System-mt.1416 Author: mt Time: 16 June 2023, 9:14:18.416484 am UUID: 9bdd0613-8cb2-ff41-bb40-a6c1a1d83ceb Ancestors: System-eem.1415 Fixes regression from System-eem.1415. We must clear the PlatformNameCache directly before snapshotting. Here, Cursor class >> #currentCursor: needs #platformName again but is called after the shutdown code. Might happen elsewhere. This fix documents the issue and brings system-attribute cache-invalidation closer to the snapshot primitive. A VM-based cache might even be better for certain values of primitive 149. =============== Diff against System-eem.1415 =============== Item was added: + ----- Method: SmalltalkImage>>cleanUpSystemAttributeCaches (in category 'housekeeping') ----- + cleanUpSystemAttributeCaches + "Reset platform-specific values. This MUST BE called directly before the image is snapshotted. Note that this can't safely be done on start-up because Smalltalk is too late in the start-up sequence. See commentary in #getSystemAttribute:." + + self flag: #discuss. "mt: Such caches might better be managed by the VM itself. A primitive-based cache protocol could help. On a fresh (VM) start-up, those values would then be nil (or uninitialized) automatically." + + EndianCache := PlatformNameCache := nil.! Item was changed: ----- Method: SmalltalkImage>>getSystemAttribute: (in category 'private') ----- getSystemAttribute: attributeID "Optional. Answer the string for the system attribute with the given integer ID. Answer nil if the given attribute is not defined on this platform. On platforms that support invoking programs from command lines (e.g., Unix), this mechanism can be used to pass command line arguments to programs written in Squeak. + + NOTE THAT the answered string needs to be allocated. It might thus + be useful to cache it for the current session to not stress the scavenger + too much. For example, see #platformName. By convention, the first command line argument that is not a VM configuration option is considered a 'document' to be filed in. Such a document can add methods and classes, can contain a serialized object, can include code to be executed, or any combination of these. Currently defined attributes include: -1000 1000th command line argument that specify VM options ... -1 first command line argument that specify VM options 0 the full path name for currently executing VM (or, on some platforms, just the path name of the VM's directory) 1 full path name of this image (better use primImageName instead) 2 first command-line argument for Squeak programs. + Note: if Preferences readDocumentAtStartup is set, this first + argument is treated as a URL to a Squeak document to open. - Note: if Preferences readDocumentAtStartup is set, this first argument is treated as a URL to a Squeak document to open. 3 second command-line argument for Squeak programs ... 1000 1000th command line argument for Squeak programs 1001 this platform's operating system 'Mac OS', 'Win32', 'unix', ... 1002 operating system version 1003 this platform's processor type 1004 vm version 1005 window system name 1006 vm build id 1007 Interpreter class (Cog VM only) 1008 Cogit class (Cog VM only) 1009 Platform source version (Cog VM only?) 1201 max filename length (Mac OS only) 1202 file last error (Mac OS only) 10001 hardware details (Win32 only) 10002 operating system details (Win32 only) 10003 graphics hardware details (Win32 only) " <primitive: 149> ^ nil! Item was changed: ----- Method: SmalltalkImage>>processShutDownList: (in category 'snapshot and quit') ----- processShutDownList: quitting + "Send #shutDown to each class that needs to wrap up before a snapshot." - "Send #shutDown to each class that needs to wrap up before a snapshot. - Also void the various caches; this can't safely be done on start-up because - Smalltalk is too late in the start-up sequence." + self send: #shutDown: toClassesNamedIn: ShutDownList with: quitting.! - self send: #shutDown: toClassesNamedIn: ShutDownList with: quitting. - EndianCache := PlatformNameCache := nil! Item was changed: ----- Method: SmalltalkImage>>snapshot:andQuit:withExitCode:embedded: (in category 'snapshot and quit') ----- snapshot: save andQuit: quit withExitCode: exitCode embedded: embeddedFlag "Mark the changes file and close all files as part of #processShutdownList. If save is true, save the current state of this Smalltalk in the image file. If quit is true, then exit to the outer OS shell. If exitCode is not nil, then use it as exit code. The latter part of this method runs when resuming a previously saved image. This resume logic checks for a document file to process when starting up." | resuming msg | Object flushDependents. Object flushEvents. (SourceFiles at: 2) ifNotNil:[ msg := String streamContents: [ :s | s nextPutAll: '----'; nextPutAll: (save ifTrue: [ quit ifTrue: [ 'QUIT' ] ifFalse: [ 'SNAPSHOT' ] ] ifFalse: [quit ifTrue: [ 'QUIT/NOSAVE' ] ifFalse: [ 'NOP' ]]); nextPutAll: '----'; print: Date dateAndTimeNow; space; nextPutAll: (FileDirectory default localNameFor: self imageName); nextPutAll: ' priorSource: '; print: LastQuitLogPosition ]. self assureStartupStampLogged. save ifTrue: [ LastQuitLogPosition := (SourceFiles at: 2) setToEnd; position ]. self logChange: msg. Transcript cr; show: msg]. self processShutDownList: quit. Cursor write show. + save ifTrue: [ + self cleanUpSystemAttributeCaches. + resuming := embeddedFlag + ifTrue: [self snapshotEmbeddedPrimitive] + ifFalse: [self snapshotPrimitive]] "<-- PC frozen here on image file" - save ifTrue: [resuming := embeddedFlag - ifTrue: [self snapshotEmbeddedPrimitive] - ifFalse: [self snapshotPrimitive]] "<-- PC frozen here on image file" ifFalse: [resuming := false]. (quit and: [resuming == false]) ifTrue: [exitCode ifNil: [ self quitPrimitive ] ifNotNil: [ self quitPrimitive: exitCode ] ]. Cursor normal show. self startUpPostSnapshot: resuming == true. Project current wakeUpTopWindow. "Now it's time to raise an error" resuming == nil ifTrue: [self error:'Failed to write image file (disk full?)']. ^ resuming!

1 0

The Trunk: Collections-ct.1044.mcz
by commits＠source.squeak.org 15 Jun '23

15 Jun '23

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.1044.mcz ==================== Summary ==================== Name: Collections-ct.1044 Author: ct Time: 13 June 2023, 11:07:20.689003 pm UUID: 4944371b-f79b-5540-b1af-b1bb641f6a6f Ancestors: Collections-mt.1043, Collections-ct.930 Merges Collections-ct.930: Uses oxford comma in #asCommaStringAnd. =============== Diff against Collections-mt.1043 =============== Item was changed: ----- Method: Collection>>asCommaStringAnd (in category 'printing - obsolete') ----- asCommaStringAnd "Return collection printed as 'a, b and c' " self flag: #deprecate. + ^String streamContents: [:s | self asStringOn: s delimiter: ', ' last: ', and '] - ^String streamContents: [:s | self asStringOn: s delimiter: ', ' last: ' and '] !

6 6

The Trunk: CollectionsTests-ct.398.mcz
by commits＠source.squeak.org 15 Jun '23

15 Jun '23

Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.398.mcz ==================== Summary ==================== Name: CollectionsTests-ct.398 Author: ct Time: 15 June 2023, 7:07:32.23428 pm UUID: be6c58ec-7565-3047-9008-a3291c3fa04e Ancestors: CollectionsTests-ct.397 Complements Collections-ct.1046 (#commaStringAnd for 2 items). =============== Diff against CollectionsTests-ct.397 =============== Item was changed: ----- Method: CollectionTest>>testAsCommaStringAnd (in category 'tests') ----- testAsCommaStringAnd {OrderedCollection new. Set new.} do: [ :coll | self assert: coll asCommaStringAnd = ''. + - coll add: 1. self assert: coll asCommaStringAnd = '1'. + + coll add: 2. + self assert: coll asCommaStringAnd = '1 and 2'. + + coll add: 3. - - coll add: 2; add: 3. self assert: coll asCommaStringAnd = '1, 2, and 3'].!

1 0

The Trunk: Collections-ct.1046.mcz
by commits＠source.squeak.org 15 Jun '23

15 Jun '23

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.1046.mcz ==================== Summary ==================== Name: Collections-ct.1046 Author: ct Time: 15 June 2023, 7:07:03.73828 pm UUID: de94f084-3e97-de4c-a498-39a097a8ebd9 Ancestors: Collections-ct.1045 Fixes regression in #asCommaStringAnd for two-item collections. Thanks to Levente (ul) for the report! =============== Diff against Collections-ct.1045 =============== Item was changed: ----- Method: Collection>>asCommaStringAnd (in category 'printing - obsolete') ----- asCommaStringAnd + "Return collection printed as 'a, b, and c' (Oxford comma)" - "Return collection printed as 'a, b, and c' " self flag: #deprecate. + ^ String streamContents: [:s | + self size = 2 + ifTrue: [self asStringOn: s delimiter: ' and '] + ifFalse: [self asStringOn: s delimiter: ', ' last: ', and ']]! - ^String streamContents: [:s | self asStringOn: s delimiter: ', ' last: ', and '] - !

1 0

The Trunk: ToolsTests-mt.122.mcz
by commits＠source.squeak.org 14 Jun '23

14 Jun '23

Marcel Taeumel uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-mt.122.mcz ==================== Summary ==================== Name: ToolsTests-mt.122 Author: mt Time: 14 June 2023, 9:23:31.13519 am UUID: fad51405-ac66-8b4b-bc0c-a9c86b77c64a Ancestors: ToolsTests-ct.121 Fixes #textBrowseHierarchy* tests. =============== Diff against ToolsTests-ct.121 =============== Item was changed: ----- Method: BrowseTest>>currentHierarchyBrowsers (in category 'private') ----- currentHierarchyBrowsers ^ (Project current world submorphsSatisfying: [:each | + each isSystemWindow + and: [each model respondsTo: #isHierarchy] + and: [each model isHierarchy]]) asSet! - (each isKindOf: SystemWindow) - and: [each model isKindOf: HierarchyBrowser]]) asSet!

1 0

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