Squeak-dev September 2022

squeak-dev@lists.squeakfoundation.org

29 participants
158 discussions

Virtend demo and ParrotTalk & Remote Promises.
by rabbit 10 Sep '22

10 Sep '22

Hey Ron, good morning to ya! I’ve scheduled a demo with you! Here is my ParrotTalk spec for v3.7 [1]. Here is sample code using Async msg sending with Promises, two Async sends followed by a reactor registration: ((42 eventual *10) ^ 100) whenResolved: [:result | Transcript cr; show: ‘The result is ‘, result printString] [1] ParrotTalk v3.7 protocol specification - >> We are using TCP secure sockets now with our own protocol to do an overlay network to allow for network prioritization. Do you have a protocol specification I could read? >>> The overlay network allows us to limit traffic to what is most important. Since we are not passing a huge amount of data we don't use UDP. What is this? UDP allows for more bandwidth? Very interesting! Huge amount of data? How much? Live Video? Have a Good One; Keep it, Light. Kindly, rabbit . .. … ‘…^,^ Sent from Callisto House :: decentralized mobile homeless solutions

2 3

Re: [squeak-dev] Kafka client
by rabbit 10 Sep '22

10 Sep '22

Ron, would you mind if I stuffed KAFKA Client-rabbit.8.mcz into the Cryptography repository? Have a Good One; Keep it, Light. Kindly, rabbit . .. … ‘…^,^ Sent from Callisto House :: decentralized mobile homeless solutions > On Sep 10, 2022, at 08:06, rabbit <rabbit(a)callistohouse.org> wrote: > > It initially would not load with a Parser error from the following code: > > KTopicMessageSet>>#size > > ^6 + topicName size + (partitionMessageSet inject: 0 into: [:sz :tn| sz := sz + tn size]) > > I have changed this to: > > ^6 + topicName size + (partitionMessageSet inject: 0 into: [:sz :tn| sz + tn size]) > > Cheers! > rabbit > > On 9/9/22 20:18, Ron Teitelbaum wrote: >> Hi Rob, >> >> I found this by doing a quick scan. http://www.smalltalkhub.com/cbc/KAFKAClient/index.html >> >> All the best, >> >> Ron Tetielbaum >> >> On Fri, Sep 9, 2022 at 10:35 AM rabbit <rabbit(a)callistohouse.org> wrote: >>> Hi, >>> >>> I had seen mention of a Kafka client in squeak. Anyone know where I could find this, please? >>> >>> >>> Have a good one; keep it, light. >>> Kindly, >>> rabbit >>> . .. … ‘…^,^ >>> >>> >>> Sent from Callisto House :: decentralized mobile homeless solutions > -- > Have a good one; keep it, light. > Kindly, > rabbit > . .. … ‘…^,^ > > > Sent from Callisto House :: decentralized mobile homeless solutions

2 3

Kafka client
by rabbit 10 Sep '22

10 Sep '22

Hi, I had seen mention of a Kafka client in squeak. Anyone know where I could find this, please? Have a good one; keep it, light. Kindly, rabbit . .. … ‘…^,^ Sent from Callisto House :: decentralized mobile homeless solutions

2 3

The Trunk: Tools-ct.1174.mcz
by commits＠source.squeak.org 09 Sep '22

09 Sep '22

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1174.mcz ==================== Summary ==================== Name: Tools-ct.1174 Author: ct Time: 9 September 2022, 10:59:25.805395 pm UUID: c6e6fc87-b341-c940-8993-c72b2a6bc5e4 Ancestors: Tools-ct.1171 Fixes slip in browser when defining a trait over a selected class. =============== Diff against Tools-ct.1171 =============== Item was changed: ----- Method: Browser>>defineTrait:notifying: (in category 'traits') ----- defineTrait: defString notifying: aController | defTokens keywdIx envt oldTrait newTraitName trait | oldTrait := self selectedClassOrMetaClass. + oldTrait isTrait ifFalse: [oldTrait := nil]. defTokens := defString findTokens: Character separators. keywdIx := defTokens findFirst: [:x | x = 'category']. envt := self selectedEnvironment. keywdIx := defTokens findFirst: [:x | x = 'named:']. newTraitName := (defTokens at: keywdIx+1) copyWithoutAll: '#()'. ((oldTrait isNil or: [oldTrait baseTrait name asString ~= newTraitName]) and: [envt includesKey: newTraitName asSymbol]) ifTrue: ["Attempting to define new class/trait over existing one when not looking at the original one in this browser..." (self confirm: ((newTraitName , ' is an existing class/trait in this system. Redefining it might cause serious problems. Is this really what you want to do?') asText makeBoldFrom: 1 to: newTraitName size)) ifFalse: [^ false]]. trait := envt beCurrentDuring: [Compiler evaluate: defString in: envt notifying: aController logged: true]. ^(trait isTrait) ifTrue: [ self changed: #classList. self classListIndex: (self classListIndexOf: trait baseTrait name). self clearUserEditFlag; editClass. true] ifFalse: [ false ] !

1 0

The Inbox: Kernel-ct.1294.mcz
by commits＠source.squeak.org 09 Sep '22

09 Sep '22

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-ct.1294.mcz ==================== Summary ==================== Name: Kernel-ct.1294 Author: ct Time: 9 January 2020, 3:42:36.672555 pm UUID: 7409dcc3-160e-9d44-9712-f266e0f25973 Ancestors: Kernel-nice.1292 Proposal: Add #haltOnceIf: to Object, which combines the strengths of #haltOnce and #haltIf:. Especially useful in performance-critical situations: It HaltOnce is disabled, the condition will not be evaluated at all. =============== Diff against Kernel-nice.1292 =============== Item was changed: ----- Method: Object>>haltIf: (in category 'debugging') ----- + haltIf: aCondition + "This is the typical message to use for inserting breakpoints during debugging. Param can be a block or expression, halt if true. - haltIf: condition - "This is the typical message to use for inserting breakpoints during - debugging. Param can be a block or expression, halt if true. If the Block has one arg, the receiver is bound to that. + If the condition is a selector, we look up in the callchain. Halt if any method's selector equals selector." - If the condition is a selector, we look up in the callchain. Halt if - any method's selector equals selector." - | cntxt | + ^ (self meetsHaltCondition: aCondition) + ifTrue: [self halt]! - condition isSymbol ifTrue:[ - "only halt if a method with selector symbol is in callchain" - cntxt := thisContext. - [cntxt sender isNil] whileFalse: [ - cntxt := cntxt sender. - (cntxt selector = condition) ifTrue: [Halt signal]. - ]. - ^self. - ]. - (condition isBlock - ifTrue: [condition cull: self] - ifFalse: [condition] - ) ifTrue: [ - Halt signal - ].! Item was added: + ----- Method: Object>>haltOnceIf: (in category 'debugging') ----- + haltOnceIf: aCondition + "Check aCondition and halt, unless we have already done it once. See #meetsHaltCondition:." + + self haltOnceEnabled ifFalse: [^ self]. + ^ (self meetsHaltCondition: aCondition) + ifTrue: [ + self clearHaltOnce; halt].! Item was added: + ----- Method: Object>>meetsHaltCondition: (in category 'debugging') ----- + meetsHaltCondition: aCondition + "If the Block has one arg, the receiver is bound to that. + If the condition is a selector, we look up in the callchain. Halt if any method's selector equals selector." + + aCondition isSymbol ifTrue: [ | ctxt | + "only halt if a method with selector symbol is in callchain" + ctxt := thisContext. + [(ctxt := ctxt sender) isNil] whileFalse: [ + (ctxt selector = aCondition) ifTrue: [^ true] ]. + ^ false ]. + ^ aCondition isBlock + ifTrue: [aCondition cull: self] + ifFalse: [aCondition value]!

2 1

The Trunk: Installer-Core-ct.451.mcz
by commits＠source.squeak.org 09 Sep '22

09 Sep '22

Christoph Thiede uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-ct.451.mcz ==================== Summary ==================== Name: Installer-Core-ct.451 Author: ct Time: 8 September 2022, 9:38:49.346128 pm UUID: 05f0cf03-9bef-9248-881a-a80b6c3a7b64 Ancestors: Installer-Core-eem.450 Accelerates #ensureRecentMetacello by one or two seconds by sharing the Metacello instance for #get and #load. See https://github.com/Metacello/metacello/pull/552#issuecomment-1152634032 for an argument. =============== Diff against Installer-Core-eem.450 =============== Item was changed: ----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') ----- ensureRecentMetacello "Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md" | metacello | ((Smalltalk classNamed: #WebClient) ifNil: [ false ] ifNotNil: [ :webClient | [ (webClient httpHead: 'https://github.com') isSuccess ] on: Error do: [ false ] ]) ifFalse: [ ^self inform: 'Could not connect to "https://github.com".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs ]. self isMetacelloInstalled ifFalse: [ | response | "Download base archive of Metacello." response := WebClient httpGet: 'https://files.squeak.org/metacello/metacello-squeak60.sar'. response isSuccess ifFalse: [ self error: ('Could not download Metacello archive: {1}' translated format: {response status})]. "Prepare a clean environment and install it." Smalltalk globals removeKey: #Metacello ifAbsent: ["Ignore prior attempts."]. SARInstaller new fileInFrom: response content asByteArray readStream]. metacello := Smalltalk classNamed: #Metacello. "Now load latest version of Metacello" metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; + get; - get. - metacello new - baseline: 'Metacello'; - repository: 'github://Metacello/metacello:master/repository'; load: #('default' 'Metacello-Help').!

1 0

The Inbox: ReleaseBuilder-ct.240.mcz
by commits＠source.squeak.org 09 Sep '22

09 Sep '22

A new version of ReleaseBuilder was added to project The Inbox: http://source.squeak.org/inbox/ReleaseBuilder-ct.240.mcz ==================== Summary ==================== Name: ReleaseBuilder-ct.240 Author: ct Time: 9 September 2022, 2:00:58.868909 pm UUID: 375a39ce-f867-cf44-8bdc-42a61f838c61 Ancestors: ReleaseBuilder-mt.239 Removes unused #inboxRepository. =============== Diff against ReleaseBuilder-mt.239 =============== Item was removed: - ----- Method: ReleaseBuilder class>>inboxRepository (in category 'accessing') ----- - inboxRepository - ^ MCRepository inbox!

1 0

The Trunk: Files-ct.197.mcz
by commits＠source.squeak.org 08 Sep '22

08 Sep '22

Christoph Thiede uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-ct.197.mcz ==================== Summary ==================== Name: Files-ct.197 Author: ct Time: 8 September 2022, 8:20:25.707752 pm UUID: e0f68785-4f52-1842-80d6-ac7746f120a5 Ancestors: Files-cmm.196 Fixes yellow-button menu in ZipViewer by making all file reader services robust against absent/relative file paths. =============== Diff against Files-cmm.196 =============== Item was changed: ----- Method: FileDirectory class>>fileReaderServicesForFile:suffix: (in category 'file reader services') ----- fileReaderServicesForFile: fullName suffix: suffix + ^ (self default directoryExists: fullName) - ^ (self on: fullName) exists ifTrue: [self services] ifFalse: [#()].!

1 0

The Trunk: Compression-ct.64.mcz
by commits＠source.squeak.org 08 Sep '22

08 Sep '22

Christoph Thiede uploaded a new version of Compression to project The Trunk: http://source.squeak.org/trunk/Compression-ct.64.mcz ==================== Summary ==================== Name: Compression-ct.64 Author: ct Time: 8 September 2022, 8:17:32.838752 pm UUID: a8001e9c-ecaa-664d-8cfd-773f59c9bbc9 Ancestors: Compression-xw.63 Fixes a typo. =============== Diff against Compression-xw.63 =============== Item was changed: ----- Method: GZipReadStream class>>fileReaderServicesForFile:suffix: (in category 'fileIn/Out') ----- fileReaderServicesForFile: fullName suffix: suffix | services | (suffix = 'gz') | (suffix = '*') ifFalse: [^ #()]. services := OrderedCollection new. (suffix = '*') | (fullName asLowercase endsWith: '.cs.gz') | (fullName asLowercase endsWith: '.mcs.gz') ifTrue: [services add: self serviceFileIn. + (Smalltalk includesKey: #ChangeSet) - (Smalltalk includesKey: #ChangSet) ifTrue: [services add: self serviceFileIntoNewChangeSet]]. services addAll: self services. ^ services!

1 0

The Trunk: Help-Squeak-TerseGuide-ct.16.mcz
by commits＠source.squeak.org 08 Sep '22

08 Sep '22

Christoph Thiede uploaded a new version of Help-Squeak-TerseGuide to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-TerseGuide-ct.16.mcz ==================== Summary ==================== Name: Help-Squeak-TerseGuide-ct.16 Author: ct Time: 8 September 2022, 7:22:19.321712 pm UUID: 6f446ac1-2ee0-a549-8108-8b47c90ea5a8 Ancestors: Help-Squeak-TerseGuide-mt.15 Minor refinements to terse guide. (Follow-up from https://github.com/squeak-smalltalk/squeak.org/pull/44) =============== Diff against Help-Squeak-TerseGuide-mt.15 =============== Item was changed: ----- Method: TerseGuideHelp class>>block (in category 'pages') ----- block "This method was automatically generated. Edit it using:" "TerseGuideHelp edit: #block" <generated> ^(HelpTopic title: 'Blocks' contents: '"Blocks: - blocks are objects and may be assigned to a variable - value is last expression evaluated unless explicit return - blocks may be nested - specification - [ arguments | | localvars | expressions ] - ^ expression terminates block & method (exits all nested blocks) + - blocks intended for long term storage must not contain ^, - - blocks intended for long term storage should not contain ^, as they can not return to the sender context + - up to 15 arguments are possible; + for up to 5 arguments, there are #value:, #value:value:, ...; + for more, use #valueWithArguments: + - use #cull: (and #cull:cull:...) or #valueWithEnoughArguments: + if you do not know the exact number of arguments - - use #cull: (and #cull:cull:...) if you do not know the exact number of arguments - blocks (along with polymorphism on booleans) are the basis of control structures -> See Conditional Expressions " | x y z fac | x := [ y := 1. z := 2. ]. x value. "simple block usage" x := [ :argOne :argTwo | argOne, '' and '' , argTwo.]. "set up block with argument passing" Transcript show: (x value: ''First'' value: ''Second''); cr. "use block with argument passing" x := [:e | | v | v := 1. e + v] value: 2. "local variable in a block" fac := [ :n | n > 1 ifTrue: [n * (fac value: n-1)] ifFalse: [1]]. "closure on block variable" + fac value: 5. "closure variable scoped to its block"!!' readStream nextChunkText) - fac value: 5. "closure variable scoped to its block" - - !!' readStream nextChunkText) key: #block; shouldStyle: true; yourself! Item was changed: ----- Method: TerseGuideHelp class>>introduction (in category 'pages') ----- introduction "This method was automatically generated. Edit it using:" "TerseGuideHelp edit: #introduction" + <generated> ^(HelpTopic title: 'General' contents: 'Allowable characters: - a-z - A-Z - 0-9 - .+/\*~<>@%|&? - blank, tab, cr, ff, lf Variables: - Variables must be declared before use + - Shared vars (globals, pools, and class vars) must begin with uppercase - - Shared vars must begin with uppercase - Local vars must begin with lowercase - Reserved names: self, super, thisContext, true, false, and nil Variable scope: - Global: defined in current environment (that is usually Smalltalk) and accessible by all objects in system - Special (reserved): self, super, thisContext, true, false, and nil - Method Temporary: local to a method - Block Temporary: local to a block - Pool: variables in a Dictionary object - Method Parameters: automatic local vars created as a result of message call with params - Block Parameters: automatic local vars created as a result of value: message call - Class: shared with all instances of one class & its subclasses - Class Instance: unique to each instance of a class - Instance Variables: unique to each instance "Comments are enclosed in quotes - like this" + Period (.) is the statement separator!!' readStream nextChunkText) - Period (.) is the statement separator - - !!' readStream nextChunkText) key: #introduction; shouldStyle: false; yourself!

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
16
Older →

Jump to page: