Squeak-dev October 2023

squeak-dev@lists.squeakfoundation.org

24 participants
148 discussions

UKSTUG meeting - Marten Feldtmann - GPAS: GemStone/PUM Application Stack - 25 October 2023
by Giovanni Corriga 24 Oct '23

24 Oct '23

The next UK Smalltalk User Group meeting will be on 25 October (tomorrow). Marten Feldtmann ( https://schrievkrom.wordpress.com/ ) will talk to us about his project GPAS: a GemStone/PUM Application Stack. This will be an online meeting from home. If you'd like to join us, please sign up in advance on the meeting's Meetup page ( https://www.meetup.com/ukstug/events/296563100/ ) to receive the meeting details. Don’t forget to bring your laptop and drinks!

1 0

The Trunk: System-tpr.1429.mcz
by commits＠source.squeak.org 24 Oct '23

24 Oct '23

tim Rowledge uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-tpr.1429.mcz ==================== Summary ==================== Name: System-tpr.1429 Author: tpr Time: 23 October 2023, 4:39:10.130433 pm UUID: e6333383-06b2-4957-b68f-c0a43c688d79 Ancestors: System-ct.1428 Drop the deprecated #os send from a couple of methods =============== Diff against System-ct.1428 =============== Item was changed: ----- Method: SmalltalkImage>>platformName (in category 'os') ----- platformName "Answer the name of the platform we're running on." + "Smalltalk platformName" - "Smalltalk os platformName" ^PlatformNameCache ifNil: [PlatformNameCache := self getSystemAttribute: 1001]! Item was changed: ----- Method: SmalltalkImage>>windowSystemName (in category 'os') ----- windowSystemName "Return the name of the window system currently being used for display." + "Smalltalk windowSystemName" - "Smalltalk os windowSystemName" ^self getSystemAttribute: 1005!

1 0

The Trunk: SqueakSSL-Tests-tpr.27.mcz
by commits＠source.squeak.org 24 Oct '23

24 Oct '23

tim Rowledge uploaded a new version of SqueakSSL-Tests to project The Trunk: http://source.squeak.org/trunk/SqueakSSL-Tests-tpr.27.mcz ==================== Summary ==================== Name: SqueakSSL-Tests-tpr.27 Author: tpr Time: 23 October 2023, 4:38:32.962248 pm UUID: 4ae53b81-182d-46ae-9b52-07e1edcbee00 Ancestors: SqueakSSL-Tests-mt.26 Use the simple (and cached) "Smalltalk platformName" instead of several roundabout methods =============== Diff against SqueakSSL-Tests-mt.26 =============== Item was changed: ----- Method: SqueakSSLTest>>expectedFailures (in category 'failures') ----- expectedFailures "If we don't have a cert all the tests fail" + Smalltalk platformName = 'Mac OS' ifTrue:[ - SqueakSSL platformName = 'Mac OS' ifTrue:[ "The following tests all need certificate selection to work properly." ^#( testConnectAccept testEncryptDecrypt testMultiFrameDecrypt testSingleByteDecrypt testSplitTlsFrameRead testStreamAccept testStreamConnect testStreamTransfer testSSLSockets testSocketAccept testSocketConnect ) ] ifFalse:[^#()].! Item was changed: ----- Method: SqueakSSLTest>>testFaceBookAPI (in category 'tests') ----- testFaceBookAPI "Facebook sends incomplete data during SSL handshake. Useful for testing an edge condition in SqueakSSL." self timeout: 90; ensureInternetConnectionTo: 'http://www.facebook.com'. Smalltalk at: #WebClient ifPresent:[:webClient| self shouldnt:[ [webClient httpGet: 'https://graph.facebook.com/oauth/access_token'] "Allow certificate errors on the Mac since cert validation isn't implemented yet." on: SqueakSSLCertificateError do:[:ex| + Smalltalk platformName = 'Mac OS' - SqueakSSL platformName = 'Mac OS' ifTrue:[ex resume] ifFalse:[ex pass]]. ] raise: Error. ].. !

1 0

The Trunk: WebClient-Core-tpr.134.mcz
by commits＠source.squeak.org 24 Oct '23

24 Oct '23

tim Rowledge uploaded a new version of WebClient-Core to project The Trunk: http://source.squeak.org/trunk/WebClient-Core-tpr.134.mcz ==================== Summary ==================== Name: WebClient-Core-tpr.134 Author: tpr Time: 23 October 2023, 4:37:33.991338 pm UUID: b9becdc8-3565-4125-b613-cdcef937eac9 Ancestors: WebClient-Core-ul.133 Use the simple (and cached) "Smalltalk platformName" instead of several roundabout methods =============== Diff against WebClient-Core-ul.133 =============== Item was changed: ----- Method: WebClient>>canVerify (in category 'testing') ----- canVerify ^ (stream respondsTo: #canVerify) ifTrue: [stream canVerify] + ifFalse: [Smalltalk platformName ~= 'Mac OS']! - ifFalse: [WebUtils platformName ~= 'Mac OS']! Item was changed: ----- Method: WebClient>>defaultUserAgent (in category 'initialize') ----- defaultUserAgent "Answer the default User-Agent string to use for WebClient" ^'WebClient/1.5 (', WebUtils mcVersion, '; ', SystemVersion current version,'-', SystemVersion current highestUpdate printString, '; ', + Smalltalk platformName,')'. - WebUtils platformName,')'. ! Item was changed: ----- Method: WebServer class>>serverString (in category 'accessing') ----- serverString "Returns the server string to be used in responses" ^'WebServer/1.5 (', WebUtils mcVersion, '; ', SystemVersion current version,'-', SystemVersion current highestUpdate printString, '; ', + Smalltalk platformName,')'. - WebUtils platformName,')'. ! Item was changed: ----- Method: WebServer>>systemInfoOn: (in category 'errors') ----- systemInfoOn: strm "Provides system information for a server error report" strm nextPutAll: 'VM: '; + nextPutAll: Smalltalk platformName; - nextPutAll: WebUtils platformName; nextPutAll: ' - '; + nextPutAll: Smalltalk vmVersion; - nextPutAll: WebUtils vmVersion; cr. strm nextPutAll: 'Image: '; nextPutAll: SystemVersion current version asString; nextPutAll: ' ['; + nextPutAll: Smalltalk lastUpdateString asString; - nextPutAll: SmalltalkImage current lastUpdateString asString; nextPutAll: ']'; cr. strm cr. SecurityManager default printStateOn: strm. "Additional info available from the windows VM" + Smalltalk platformName = 'Win32' ifTrue:[ - WebUtils platformName = 'Win32' ifTrue:[ 10001 to: 10003 do:[:i| | info | + info := (Smalltalk getSystemAttribute: i) ifNil:['']. - info := (SmalltalkImage current getSystemAttribute: i) ifNil:['']. info := info copyReplaceAll: String lf with: String cr. info isEmpty ifFalse:[strm cr; nextPutAll: info]]]. ! Item was changed: ----- Method: WebUtils class>>platformName (in category 'misc') ----- platformName "Return the name of the platform we're running on." + ^Smalltalk platformName! - ^Smalltalk getSystemAttribute: 1001! Item was changed: ----- Method: WebUtils class>>vmVersion (in category 'misc') ----- vmVersion "Return a string identifying the interpreter version" + ^Smalltalk vmVersion! - ^Smalltalk getSystemAttribute: 1004!

1 0

The Trunk: SqueakSSL-Core-tpr.35.mcz
by commits＠source.squeak.org 24 Oct '23

24 Oct '23

tim Rowledge uploaded a new version of SqueakSSL-Core to project The Trunk: http://source.squeak.org/trunk/SqueakSSL-Core-tpr.35.mcz ==================== Summary ==================== Name: SqueakSSL-Core-tpr.35 Author: tpr Time: 23 October 2023, 4:34:50.645901 pm UUID: 9f4c4bae-a267-439e-a8c1-a29e3b07b470 Ancestors: SqueakSSL-Core-mt.34 Use the simple (and cached) "Smalltalk platformName" instead of several roundabout methods =============== Diff against SqueakSSL-Core-mt.34 =============== Item was changed: ----- Method: SqueakSSL class>>ensureSampleCert (in category 'examples') ----- ensureSampleCert "Ensure that we have a sample certificate for the tests" + Smalltalk platformName caseOf: { - SqueakSSL platformName caseOf: { ['unix'] -> [^self ensureSampleCertFile]. ['Win32'] -> [^self ensureSampleCertInStore]. } otherwise: [^nil]. ! Item was changed: ----- Method: SqueakSSL class>>ensureSampleCertFile (in category 'examples') ----- ensureSampleCertFile "On Unix, we can simply create a valid cert file" | certName file | + Smalltalk platformName = 'unix' ifFalse:[^self]. - SqueakSSL platformName = 'unix' ifFalse:[^self]. certName := self name, 'Cert.pem'. (FileDirectory default fileExists: certName) ifFalse:[ file := FileDirectory default newFileNamed: certName. [file nextPutAll: self exampleCertFile withUnixLineEndings] ensure:[file close]. ]. ^FileDirectory default fullNameFor: certName. ! Item was changed: ----- Method: SqueakSSL class>>ensureSampleCertInStore (in category 'examples') ----- ensureSampleCertInStore "Ensure that we have a valid certificate in the Windows certificate store" + Smalltalk platformName = 'Win32' ifFalse:[^self]. - SqueakSSL platformName = 'Win32' ifFalse:[^self]. "Undocumented. Allows importing a pfx w/o password. For the sole purpose of being able to run tests reliably" SqueakSSL new setStringProperty: 10001 to: self exampleCertPFX. ^'testcert'. "Friendly name of test cert" ! Item was changed: ----- Method: SqueakSSL class>>platformName (in category 'utilities') ----- platformName "Return the name of the platform we're running on." + ^Smalltalk platformName! - ^Smalltalk getSystemAttribute: 1001! Item was changed: ----- Method: SqueakSSL>>canVerify (in category 'testing') ----- canVerify + ^ (Smalltalk platformName = 'Mac OS' and: [self pluginVersion < 3]) not. - ^ (WebUtils platformName = 'Mac OS' and: [self pluginVersion < 3]) not. !

1 0

The Trunk: Sound-tpr.95.mcz
by commits＠source.squeak.org 24 Oct '23

24 Oct '23

tim Rowledge uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-tpr.95.mcz ==================== Summary ==================== Name: Sound-tpr.95 Author: tpr Time: 23 October 2023, 4:33:18.064631 pm UUID: 0932640d-e32d-4222-9026-8485f9bf6714 Ancestors: Sound-ct.94 Drop the deprecated #os send from a couple of methods =============== Diff against Sound-ct.94 =============== Item was changed: ----- Method: SoundPlayer class>>defaultQuickStartForPlatform (in category 'preferences') ----- defaultQuickStartForPlatform + ^ Smalltalk platformName = 'Mac OS' - ^ Smalltalk os platformName = 'Mac OS'. ! Item was changed: ----- Method: SoundPlayer class>>defaultStopSoundForPlatform (in category 'preferences') ----- defaultStopSoundForPlatform + ^(Smalltalk platformName = 'Mac OS') not - ^(Smalltalk os platformName = 'Mac OS') not ! Item was changed: ----- Method: SoundRecorder>>recordLoop (in category 'private') ----- recordLoop "Record process loop that records samples." | n sampleCount linuxWorkaroundBlock | n := 0. + linuxWorkaroundBlock := Smalltalk platformName = 'unix' - linuxWorkaroundBlock := Smalltalk os platformName = 'unix' ifTrue: [ [ (Delay forMilliseconds: 20) wait ] ] ifFalse: [ nil ]. [ n = 0 ifTrue: [bufferAvailableSema wait]. paused ifTrue: [ n := self primRecordSamplesInto: meteringBuffer startingAt: 1. self meterFrom: 1 count: n in: meteringBuffer] ifFalse: [ n := self primRecordSamplesInto: currentBuffer startingAt: nextIndex. self meterFrom: nextIndex count: n in: currentBuffer. nextIndex := nextIndex + n. stereo ifTrue: [sampleCount := currentBuffer stereoSampleCount] ifFalse: [sampleCount := currentBuffer monoSampleCount]. nextIndex > sampleCount ifTrue: [ self emitBuffer: currentBuffer. self allocateBuffer]]. "workaround for OSS emulation on top on ALSA (on Linux environments)" linuxWorkaroundBlock ifNotNil: [ linuxWorkaroundBlock value ] ] repeat !

1 0

The Trunk: SystemReporter-tpr.64.mcz
by commits＠source.squeak.org 24 Oct '23

24 Oct '23

tim Rowledge uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-tpr.64.mcz ==================== Summary ==================== Name: SystemReporter-tpr.64 Author: tpr Time: 23 October 2023, 4:32:38.030476 pm UUID: 77d006d7-25f5-43ff-93fe-c0d51eb7b3eb Ancestors: SystemReporter-ct.63 Drop the deprecated #os send from a couple of methods =============== Diff against SystemReporter-ct.63 =============== Item was changed: ----- Method: SystemReporter>>initialize (in category 'initialize-release') ----- initialize self add: #'Contributors' method: #reportContributors; add: #Image method: #reportImage; add: #'Image Parameters' method: #reportImageParameters; add: #'Image Sources' method: #reportSources; add: #'Image Locale' method: #reportImageLocale; add: #'Image Fonts' method: #reportImageFonts; add: #'Image Preferences' method: #reportPreferences; add: #'Image Packages' method: #reportImagePackages; add: #'MC Repositories' method: #reportRepositories; add: #'MC Working Copies' method: #reportWorkingCopies; add: #'VM General' method: #reportVM; add: #'VM Options' method: #reportVMOptions; add: #'VM Modules' method: #reportModules; add: #'VM Parameters' method: #reportVMParameters; add: #'VM Stats' method: #reportVMStats. + Smalltalk platformName = 'Win32' ifTrue: [ - Smalltalk os platformName = 'Win32' ifTrue: [ self add: #'VM Configuration' method: #reportWin32VMConfig. ]. self add: #'OS General' method: #reportOS. + Smalltalk platformName = 'Win32' ifTrue: [ - Smalltalk os platformName = 'Win32' ifTrue: [ self add: #'OS Details' method: #reportWin32OSDetails; add: #'Hardware Details' method: #reportWin32HardwareDetails; add: #'GFX Hardware Details' method: #reportWin32GFXDetails. ]. + Smalltalk osVersion = 'linux' ifTrue: [ - Smalltalk os osVersion = 'linux' ifTrue: [ self add: #'OS Details' method: #reportLinuxOSDetails ]. self add: #'Tiny Benchmarks' method: #reportTinyBenchmarks; add: #'Space Analysis' method: #reportSpaceAnalysis; add: #'SUnit' method: #reportTestRunner; add: #'Debug Log' method: #reportDebugLog. categoriesSelected := Set with: #Image with: #'VM General'. self updateReport ! Item was changed: ----- Method: SystemReporter>>reportOS: (in category 'reporting') ----- reportOS: aStream self header: 'Operating System/Hardware' on: aStream. aStream + nextPutAll: Smalltalk platformName; space; + nextPutAll: Smalltalk osVersion; space; + nextPutAll: Smalltalk platformSubtype; cr - nextPutAll: Smalltalk os platformName; space; - nextPutAll: Smalltalk os osVersion; space; - nextPutAll: Smalltalk os platformSubtype; cr !

1 0

The Trunk: Morphic-tpr.2136.mcz
by commits＠source.squeak.org 24 Oct '23

24 Oct '23

tim Rowledge uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tpr.2136.mcz ==================== Summary ==================== Name: Morphic-tpr.2136 Author: tpr Time: 23 October 2023, 4:31:48.024821 pm UUID: eef5afc1-785d-4325-b211-e1db57a8b85d Ancestors: Morphic-mt.2135 Drop the deprecated #os send from TheWorldMainDockingBar>>#sendFeedback =============== Diff against Morphic-mt.2135 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>sendFeedback (in category 'menu actions') ----- sendFeedback | url os vm hash image | url := 'https://bugs.squeak.org/'. ([Smalltalk vm platformSourceVersion] on: Warning do: ["Ignore"]) ifNotNil: [:info | | tokens | tokens := info findTokens. vm := tokens at: 2. hash := tokens atLast: 4]. + os := Smalltalk platformName, ' ', Smalltalk osVersion, ' ', Smalltalk platformSubtype. - os := Smalltalk os platformName, ' ', Smalltalk os osVersion, ' ', Smalltalk os platformSubtype. image := SystemVersion current version, ' #', SystemVersion current highestUpdate. self inform: ('Please visit the following website to report on bugs, requests, and other issues: <a href="{1}">{1}</a> Make sure that you always include information about your current environment such as: OS: {2} VM: {3} ({4}) SQ: {5} ({6} bit) You can find more in the <a href="code://SystemReporter open">System Reporter</a>.' translated format: {url. os. vm. hash. image. Smalltalk image wordSize * 8}) asTextFromHtml!

1 0

The Trunk: Monticello-tpr.802.mcz
by commits＠source.squeak.org 24 Oct '23

24 Oct '23

tim Rowledge uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-tpr.802.mcz ==================== Summary ==================== Name: Monticello-tpr.802 Author: tpr Time: 23 October 2023, 4:30:19.172223 pm UUID: f14d457c-c2b2-4f37-ab6c-7f3611de11e2 Ancestors: Monticello-ct.801 Drop the deprecated #os send from MCHttpRepository class>>#useSharedWebClientInstance =============== Diff against Monticello-ct.801 =============== Item was changed: ----- Method: MCHttpRepository class>>useSharedWebClientInstance (in category 'preferences') ----- useSharedWebClientInstance <preference: 'Use shared WebClient instance' category: 'Monticello' description: 'When true, use a shared WebClient instance to speed up downloads from MCHttpRepositories. Requires WebClient to be present.' type: #Boolean> ^UseSharedWebClientInstance ifNil: [ "There is some issue on Windows and Macos, so don't use it there by default. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2019-September/threa… for details." + Smalltalk platformName ~= 'Win32' and: [Smalltalk platformName ~= 'Mac OS']]! - Smalltalk os platformName ~= 'Win32' and: [Smalltalk os platformName ~= 'Mac OS']]!

1 0

Pi 5 coming soon
by Tim Rowledge 23 Oct '23

23 Oct '23

The Raspberry Pi 5 has been announced and looks likely to be about 3X faster for our purposes. We should probably see around 1.5Gbytecode/sec and 130million sends/sec, for example. It also includes a PCIE connector that will support (with a HAT) M2 type SSDs, so storage should be much faster. I don't know about but I find the idea that we can get tiny computers for ~$80 with 8Gb ram and so on quite mind-boggling. That's about ¼ the cost of my first mouse... tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim dilate - live long

6 17

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

Jump to page: