Squeak-dev October 2023

squeak-dev@lists.squeakfoundation.org

24 participants
148 discussions

Start a nNew thread

swiki
by Hal Eden 01 Nov '23

01 Nov '23

who manages the squeak wiki? hal

3 7

The Trunk: Kernel-tpr.1530.mcz
by commits＠source.squeak.org 30 Oct '23

30 Oct '23

tim Rowledge uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-tpr.1530.mcz ==================== Summary ==================== Name: Kernel-tpr.1530 Author: tpr Time: 30 October 2023, 1:39:08.316176 pm UUID: 28d9d8c3-293a-4a31-8950-7ef0d5c5a803 Ancestors: Kernel-mt.1529 LPI needs #asByteArray to support Seaside. Arguably, several other classes need an equivalent to support Magnitude>>#putOn: correctly. Baby steps. =============== Diff against Kernel-mt.1529 =============== Item was added: + ----- Method: LargePositiveInteger>>asByteArray (in category 'converting') ----- + asByteArray + + ^self as: ByteArray!

1 0

The Trunk: 61Deprecated-ul.10.mcz
by commits＠source.squeak.org 30 Oct '23

30 Oct '23

Levente Uzonyi uploaded a new version of 61Deprecated to project The Trunk: http://source.squeak.org/trunk/61Deprecated-ul.10.mcz ==================== Summary ==================== Name: 61Deprecated-ul.10 Author: ul Time: 7 October 2023, 10:31:14.012496 am UUID: 13110127-70a1-43b6-b291-29dbd27133b2 Ancestors: 61Deprecated-ul.9 Some methods of MVCDebugger and MorphicDebugger are not in the 61Deprecated monticello package even though the classes are in the 61Deprecated category. This is an attempt to fix that. Move to trunk if it works for you as well. =============== Diff against 61Deprecated-ul.9 =============== Item was added: + ----- Method: MVCDebugger class>>openOn:context:label:contents:fullView: (in category 'opening') ----- + openOn: processToDebug context: context label: title contents: contentsStringOrNil fullView: full + "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger." + + | debugger cm ac acp wasActive | + cm := Project current world. "controller manager" + ac := cm activeController. + acp := cm activeControllerProcess. "the ui process" + wasActive := cm inActiveControllerProcess. + + debugger := self new + process: processToDebug + "Keep track of the controller if it matches." + controller: (acp == processToDebug ifTrue: [ac]) + context: context. + + full + ifTrue: [debugger openFullNoSuspendLabel: title] + ifFalse: [debugger openNotifierNoSuspendContents: contentsStringOrNil label: title]. + + "Try drawing the debugger tool at least once to avoid freeze." + Project current restoreDisplay. + + "If we are in a helper process, #openNoTerminate WILL NOT activate the debugger's controller. Example: user-interrupt request (cmd+dot)." + (acp == processToDebug and: [wasActive not]) + ifTrue: [ [cm searchForActiveController] fork ]. + + "Be sure to suspend the process we want to debug now." + processToDebug suspend. + + "If we are NOT in a helper process, #openNoTerminate WILL NOT terminate the active controller's process." + (acp ~~ processToDebug and: [wasActive]) + ifTrue: [ Processor terminateActive ]. + + "Get here only if active process is not the process-to-debug. Use helper process if you want to access this return value." + ^ debugger! Item was added: + ----- Method: MVCDebugger>>context: (in category 'initialize') ----- + context: aContext + + self + process: Processor activeProcess + controller: (ScheduledControllers inActiveControllerProcess + ifTrue: [ScheduledControllers activeController]) + context: aContext.! Item was added: + ----- Method: MVCDebugger>>openFullFromNotifier: (in category 'initialize') ----- + openFullFromNotifier: notifierView + "Create, schedule and answer a full debugger with the given label. Do not terminate the current active process." + + | fullView | + super openFullFromNotifier: notifierView. + + fullView := ToolBuilder default build: self. + fullView label: notifierView label. "Keep the label." + fullView controller openNoTerminate. + + notifierView controller closeAndUnscheduleNoTerminate. + Processor terminateActive.! Item was added: + ----- Method: MVCDebugger>>openFullNoSuspendLabel: (in category 'initialize') ----- + openFullNoSuspendLabel: aString + "Create, schedule and answer a full debugger with the given label. Do not terminate the current active process." + + | fullView | + super openFullNoSuspendLabel: aString. + + fullView := ToolBuilder default build: self. + fullView label: aString. + fullView controller openNoTerminate. + + ^ fullView! Item was added: + ----- Method: MVCDebugger>>openNotifierNoSuspendContents:label: (in category 'initialize') ----- + openNotifierNoSuspendContents: msgString label: label + + | builder spec view | + EventSensor default flushEvents. + super openNotifierNoSuspendContents: msgString label: label. + + builder := ToolBuilder default. + spec := self buildNotifierWith: builder label: label message: msgString. + + view := builder build: spec. + view controller openNoTerminate. + + ^ view! Item was added: + ----- Method: MVCDebugger>>process:controller:context: (in category 'initialize') ----- + process: aProcess controller: aController context: aContext + + self process: aProcess context: aContext. + + interruptedController := aController.! Item was added: + ----- Method: MVCDebugger>>resumeProcess: (in category 'private') ----- + resumeProcess: processToResume + "Finally free the reference to the controller if any. We cannot do this in #windowIsClosing." + + | controllerToReschedule | + controllerToReschedule := interruptedController. + interruptedController := nil. + + ScheduledControllers + activeController: controllerToReschedule + andProcess: processToResume.! Item was added: + ----- Method: MorphicDebugger class>>openOn:context:label:contents:fullView: (in category 'opening') ----- + openOn: processToDebug context: context label: title contents: contentsStringOrNil fullView: full + + | debugger uiBlock | + debugger := self new + process: processToDebug context: context; + errorWasInUIProcess: (Project current spawnNewProcessIfThisIsUI: processToDebug). + + uiBlock := [ + full + ifTrue: [debugger openFullNoSuspendLabel: title] + ifFalse: [debugger openNotifierNoSuspendContents: contentsStringOrNil label: title]. + + "Try layouting the debugger tool at least once to avoid freeze." + debugger topView ifNotNil: [:window | + "There are way too many #fullBounds sends. Layout errors might already have happened." + window allMorphsDo: [:m | (m hasProperty: #errorOnLayout) ifTrue: [self error: 'Layout error']]. + window world doLayout. "Not safely!!"]. + "Try drawing the debugger tool at least once to avoid freeze." + debugger topView ifNotNil: [:window | window world displayWorld. "Not safely!!"]. + ]. + + "Schedule debugging in a deferred UI message if necessary. Note that only the ui process should execute ui code." + (Project current uiProcess isActiveProcess not or: [processToDebug isActiveProcess]) + ifFalse: uiBlock + ifTrue: [ | event | + self flag: #discuss. "mt: We need to preserve the currentEvent for #openToolsAttachedToMouseCursor ..." + event := self currentEvent. + Project current addDeferredUIMessage: [event becomeActiveDuring: uiBlock]]. + + processToDebug suspend. + + "Get here only if active process is not the process-to-debug. So in tests, use a helper process if you want to access this return value." + ^ debugger! Item was added: + ----- Method: MorphicDebugger>>openFullFromNotifier: (in category 'initialize') ----- + openFullFromNotifier: notifierWindow + "Create, schedule and answer a full debugger with the given label. Do not terminate the current active process." + + super openFullFromNotifier: notifierWindow. + + notifierWindow delete. + + ^ ToolBuilder default + open: self + label: notifierWindow label! Item was added: + ----- Method: MorphicDebugger>>openFullNoSuspendLabel: (in category 'initialize') ----- + openFullNoSuspendLabel: aString + "Create, schedule and answer a full debugger with the given label. Do not terminate the current active process." + + super openFullNoSuspendLabel: aString. + + ^ ToolBuilder default + open: self + label: aString! Item was added: + ----- Method: MorphicDebugger>>openNotifierNoSuspendContents:label: (in category 'initialize') ----- + openNotifierNoSuspendContents: msgString label: label + + | builder spec | + super openNotifierNoSuspendContents: msgString label: label. + + builder := ToolBuilder default. + spec := self buildNotifierWith: builder label: label message: msgString. + + ^ ToolBuilder default open: spec! Item was added: + ----- Method: MorphicDebugger>>resumeProcess: (in category 'private') ----- + resumeProcess: processToResume + + processToResume isTerminated ifFalse: [ + errorWasInUIProcess ifTrue: [Project current uiProcess: processToResume]. + processToResume resume. + errorWasInUIProcess ifTrue: [Processor terminateActive]].! Item was added: + ----- Method: MorphicDebugger>>windowIsClosing (in category 'initialize') ----- + windowIsClosing + "Keep track of last debugger extent." + + interruptedProcess ifNil: [ ^ self ]. + + SavedExtent ifNotNil: + [ self dependents + detect: + [ : each | each isWindowForModel: self ] + ifFound: + [ : topWindow | | isDebuggerNotNotifier | + isDebuggerNotNotifier := self dependents anySatisfy: + [ : each | each isTextView ]. + isDebuggerNotNotifier ifTrue: [ + SavedExtent := (topWindow extent / RealEstateAgent scaleFactor) rounded ] ] + ifNone: [ "do nothing" ] ]. + + super windowIsClosing.!

1 0

The Inbox: WebClient-Tests-tpr.64.mcz
by commits＠source.squeak.org 30 Oct '23

30 Oct '23

A new version of WebClient-Tests was added to project The Inbox: http://source.squeak.org/inbox/WebClient-Tests-tpr.64.mcz ==================== Summary ==================== Name: WebClient-Tests-tpr.64 Author: tpr Time: 29 October 2023, 6:00:45.760151 pm UUID: 0cd122d2-a7b8-443a-b449-77f0da833bc4 Ancestors: WebClient-Tests-mt.63 Update json related WebClient tests. Some are simply redundant if we have changed to use Json instead of the older internal code. Some still require a little thought. Some of the number tests might be good to move to the JsonTests class since they extend the testing in #testAtomNumber. There's still some possible debate about when and how wide character containing String should be dealt with. What about those \u escaped non-ascii chars? =============== Diff against WebClient-Tests-mt.63 =============== Item was removed: - ----- Method: WebClientServerTest>>testArrays (in category 'tests - json') ----- - testArrays - "Test array encodings" - - self assert: (self decode: '[]') = #(). - self assert: (self decode: '[[]]') = #(#()). - self assert: (self decode: '[[], []]') = #(#() #()). - self assert: (self decode: '["hello", "world", 123]') = #('hello' 'world' 123). - self assert: (self decode: '[["true", false, null]]') = #(('true' false nil)). - - self assert: (self encode: #()) = '[]'. - self assert: (self encode: #(#())) = '[[]]'. - self assert: (self encode: #(#() #()) ) = '[[], []]'. - self assert: (self encode: #('hello' 'world' 123)) = '["hello", "world", 123]'. - self assert: (self encode: #(('true' false nil))) = '[["true", false, null]]'. - - self should: [self decode: '['] raise: Error. - self should: [self decode: '[}'] raise: Error. - self should: [self decode: '{[}'] raise: Error. - self should: [self decode: '[[[]]'] raise: Error. - ! Item was removed: - ----- Method: WebClientServerTest>>testDictionaries (in category 'tests - json') ----- - testDictionaries - "Test dictionary encodings" - - self assert: (self decode: '{}') = (Dictionary new). - - self assert: (self decode: '{"foo" : "bar"}') - equals: (Dictionary newFromPairs: { - 'foo'. 'bar' - }). - - self assert: (self decode: '{"stuff" : [[], 42, "hello"]}') - equals: (Dictionary newFromPairs: { - 'stuff'. #(() 42 'hello') - }). - - self assert: (self decode: '{"x" : 42, "y": "77", "z": 0.1}') - equals: (Dictionary newFromPairs: { - 'x'. 42. - 'y'. '77'. - 'z'. 0.1 - }). - - - self assert: (self encode: Dictionary new) = '{}'. - - self assert: (self encode: (Dictionary newFromPairs: { - 'foo'. 'bar' - })) equals: '{"foo": "bar"}'. - - self assert: (self encode: (Dictionary newFromPairs: { - 'stuff'. #(() 42 'hello') - })) equals: '{"stuff": [[], 42, "hello"]}'. - - self assert: (self encode: (Dictionary newFromPairs: { - 'x'. 42. - 'y'. '77'. - 'z'. 0.1 - })) equals: '{"x": 42, "y": "77", "z": 0.1}'. - - self should: [self decode: '{'] raise: Error. - self should: [self decode: '{]'] raise: Error. - self should: [self decode: '[{]'] raise: Error. - self should: [self decode: '{"a"}'] raise: Error. - self should: [self decode: '{42: "hello"}'] raise: Error. - self should: [self decode: '{"a" : 42,}'] raise: Error. - self should: [self decode: '{"a" : 42 "b": 33}'] raise: Error. - - self should: [self encode: (Dictionary newFromPairs: {1. 1})] raise: Error.! Item was removed: - ----- Method: WebClientServerTest>>testNilTrueFalse (in category 'tests - json') ----- - testNilTrueFalse - "Test encodings of nil, true, false" - - self assert: (self decode: 'true') = true. - self assert: (self decode: 'false') = false. - self assert: (self decode: 'null') = nil. - - self assert: (self encode: true) = 'true'. - self assert: (self encode: false) = 'false'. - self assert: (self encode: nil) = 'null'. - - self should: [self decode: 'nul'] raise: Error. - self should: [self decode: 'nullll'] raise: Error. - self should: [self decode: 'tru'] raise: Error. - self should: [self decode: 'falsef'] raise: Error. - self should: [self decode: 'truefalse'] raise: Error. - ! Item was changed: ----- Method: WebClientServerTest>>testNumbers (in category 'tests - json') ----- testNumbers "Test the encodings of numbers" self assert: 42 classAndValueEquals: (self decode: '42'). + self assert: -123 classAndValueEquals: (self decode: '-123'). - self assert: -123 classAndValueEquals: (self decode: '-0123'). self assert: 42.3 classAndValueEquals: (self decode: '42.3'). self assert: -42.9e44 classAndValueEquals: (self decode: '-42.9e44'). self assert: -42.95e-44 classAndValueEquals: (self decode: '-42.95e-44'). + self assert: 0 classAndValueEquals: (self decode: '-0.0e0'). "Looks like the standard is to return plain zero" - self assert: -0.0 classAndValueEquals: (self decode: '-0.0e0'). + self assert: 100 classAndValueEquals: (self decode: '1.0e+2'). "Standard appears to be produce integer" - self assert: 1.0 classAndValueEquals: (self decode: '1.'). - self assert: 100.0 classAndValueEquals: (self decode: '1.e+2'). self assert: 1000 classAndValueEquals: (self decode: '1e3'). "This remains an Integer like in Squeak, though questionable" self assert: 0.01 classAndValueEquals: (self decode: '1e-2'). self assert: '42' equals: (self encode: 42). self assert: '-123' equals: (self encode: -123). self assert: '42.3' equals: (self encode: 42.3). self assert: '-4.29e45' equals: (self encode: -42.9e44). self assert: '-4.295e-43' equals: (self encode: -42.95e-44). self assert: '-0.0' equals: (self encode: -0.0e0). + self should: [self decode: '0x123'] raise: JsonSyntaxError. + self should: [self decode: '0123'] raise: JsonSyntaxError. + self should: [self decode: '1.'] raise: JsonSyntaxError. + self should: [self decode: '1.e2'] raise: JsonSyntaxError. + self should: [self decode: '-.e'] raise: JsonSyntaxError. - self should: [self decode: '0x123'] raise: Error. - self should: [self decode: '-.e'] raise: Error. ! Item was changed: ----- Method: WebClientServerTest>>testStrings (in category 'tests - json') ----- testStrings + "Test string encodings. + These ones are still contentious" - "Test string encodings" - self assert: (self decode: '"Hello World"') = 'Hello World'. - self assert: (self decode: '"\"Hello World\""') = '"Hello World"'. - self assert: (self decode: '"foo\\bar\/baz"') = 'foo\bar/baz'. - self assert: (self decode: '""') = ''. - self assert: (self decode: '"foo \u0026 bar"') = 'foo & bar'. - self assert: (self decode: '"\r\n"') = String crlf. self assert: (self decode: '"\u041F\u0440\u0430\u0432\u0434\u0430"') equals: #[208 159 209 128 208 176 208 178 208 180 208 176] asString utf8ToSqueak. - - self assert: (self encode: 'Hello World') = '"Hello World"'. - self assert: (self encode: '"Hello World"') = '"\"Hello World\""'. - self assert: (self encode: 'foo\bar/baz') = '"foo\\bar\/baz"'. - self assert: (self encode: '') = '""'. self assert: (self encode: 'foo ', (Character value: 257),' bar') = '"foo \u0101 bar"'. - self assert: (self encode: String crlf) = '"\r\n"'. - self assert: (self encode: #[208 159 209 128 208 176 208 178 208 180 208 176] asString utf8ToSqueak) equals: '"\u041F\u0440\u0430\u0432\u0434\u0430"'. + ! - - self should: [self decode: '"hello'] raise: Error. - self should: [self decode: '"\'] raise: Error. - self should: [self decode: '"\"'] raise: Error.!

1 0

The Inbox: WebClient-Core-tpr.135.mcz
by commits＠source.squeak.org 30 Oct '23

30 Oct '23

A new version of WebClient-Core was added to project The Inbox: http://source.squeak.org/inbox/WebClient-Core-tpr.135.mcz ==================== Summary ==================== Name: WebClient-Core-tpr.135 Author: tpr Time: 29 October 2023, 5:55:50.903884 pm UUID: 04c4b5e6-fe5a-4d04-b6d1-1b3e25a0d85c Ancestors: WebClient-Core-tpr.134 A proposal to convert WebUtils to use Json instead of the older internal code. - divert #jsonEncode: to use Json render: - divert #jsonDecode: to use Json readFrom and check at the end for potential single-atom issue - divert #jsonFromString to String parseAsJson - remove all the theoretically now-unused methods. Relies upon JSON-ul.57 NB: we also seem to have some json related code deep in monticello classes. Maybe they should be looked at. =============== Diff against WebClient-Core-tpr.134 =============== Item was removed: - ----- Method: WebUtils class>>jsonArray:on: (in category 'json-encode') ----- - jsonArray: anArray on: stream - "Encodes an array" - - stream nextPut: $[. - anArray - do:[:each| self jsonObj: each on: stream] - separatedBy:[stream nextPutAll:', ']. - stream nextPut:$]. - ! Item was removed: - ----- Method: WebUtils class>>jsonArrayFrom: (in category 'json-decode') ----- - jsonArrayFrom: stream - "Decodes a JSON [value, *] array from the stream" - - | ch result | - (ch := stream next) = $[ ifFalse:[^self error: 'JSON Array expected']. - stream skipSeparators. - stream peek = $] ifTrue:[stream next. ^#()]. - result := WriteStream on: (Array new: 10). - ["Decode the next value" - stream skipSeparators. - result nextPut: (self jsonDecode: stream). - stream skipSeparators. - (ch := stream next) = $]] whileFalse:[ - ch = $, ifFalse:[^self error: 'Comma expected']. - ]. - - ^result contents! Item was removed: - ----- Method: WebUtils class>>jsonChar:on: (in category 'json-encode') ----- - jsonChar: aCharacter on: stream - "Writes a single encoded character" - - | ascii | - ascii := aCharacter asciiValue. - - ascii < 32 ifTrue:["Control character" - ascii caseOf: { - [13] -> [^stream nextPutAll: '\r']. - [12] -> [^stream nextPutAll: '\f']. - [10] -> [^stream nextPutAll: '\n']. - [9] -> [^stream nextPutAll: '\t']. - [8] -> [^stream nextPutAll: '\b']. - } otherwise:[ - ^stream nextPutAll: '\u'; nextPutAll: - ((ascii printStringBase: 16) padded: #left to: 4 with: $0) - ]. - ]. - - (ascii >= 32 and:[ascii <=127]) ifTrue:["Ascii character" - (ascii = 34 or:[ascii = 92 or:[ascii = 47]]) ifTrue:[stream nextPut: $\]. - ^stream nextPut: aCharacter - ]. - - "Encode other characters (control chars, accents, umlauts, unicode)" - stream nextPutAll: - '\u', (((ascii bitAnd: 16rFFFF) printStringBase: 16) padded: #left to: 4 with: $0). - ! Item was removed: - ----- Method: WebUtils class>>jsonCharFrom: (in category 'json-decode') ----- - jsonCharFrom: stream - "Decodes a backslash-escaped character" - - | ch | - ^(ch := stream next) caseOf: { - [$u] -> [Unicode value: - (Integer readFrom: (stream next: 4) readStream base: 16)]. - [$r] -> [Character cr]. - [$n] -> [Character lf]. - [$t] -> [Character tab]. - [$b] -> [Character backspace]. - [$f] -> [Character newPage]. - } otherwise:[ch]. - ! Item was changed: ----- Method: WebUtils class>>jsonDecode: (in category 'json-decode') ----- jsonDecode: stream + "Decodes an arbitrary JSON encoded value from the given stream. + Checks the stream atEnd in order to catch some mildly obscure single-atom input errors" - "Decodes an arbitrary JSON encoded value from the given stream" + | parser result | + parser := Json new. + result := parser readFrom: stream. + stream atEnd ifFalse: [ parser invalid: 'Unexpected data at end of input' ]. + ^result! - stream skipSeparators. - ^stream peek caseOf: { - [$"] -> [self jsonStringFrom: stream]. - [$t] -> [self jsonTrueFrom: stream]. - [$f] -> [self jsonFalseFrom: stream]. - [$n] -> [self jsonNullFrom: stream]. - [${] -> [self jsonMapFrom: stream]. - [$[] -> [self jsonArrayFrom: stream]. - } otherwise:[self jsonNumberFrom: stream]. - ! Item was changed: ----- Method: WebUtils class>>jsonEncode: (in category 'json-encode') ----- jsonEncode: anObject "Encode the given object as JSON" + ^Json render: anObject! - ^String streamContents:[:s| self jsonObj: anObject on: s]! Item was removed: - ----- Method: WebUtils class>>jsonFalseFrom: (in category 'json-decode') ----- - jsonFalseFrom: stream - "Decodes 'false' from aStream" - - ((stream next: 5) = 'false' - and:[stream atEnd or:[stream peek isAlphaNumeric not]]) - ifFalse:[^self error: 'Expected ''false''']. - ^false! Item was removed: - ----- Method: WebUtils class>>jsonFloatSignificand:exp10: (in category 'json-decode') ----- - jsonFloatSignificand: value exp10: exponent - "Take care to convert to nearest Float" - ^self jsonFloatSignificand: value exp10: exponent scale: (10 raisedTo: exponent abs)! Item was removed: - ----- Method: WebUtils class>>jsonFloatSignificand:exp10:scale: (in category 'json-decode') ----- - jsonFloatSignificand: value exp10: exponent scale: scale - "Take care to convert to nearest Float" - "self assert: scale = (10 raisedTo: exponent abs)." - ^(value isAnExactFloat and: ["scale isAnExactFloat" - exponent between: -22 and: 22 - "(1 to: 100) detect: [:i | (10 raisedTo: i) isAnExactFloat not]"]) - ifTrue: [exponent >= 0 - ifTrue: [value asExactFloat * scale asExactFloat] - ifFalse: [value asExactFloat / scale asExactFloat]] - ifFalse: [exponent >= 0 - ifTrue: [(value * scale) asFloat] - ifFalse: [(Fraction numerator: value denominator: scale) asFloat]]! Item was changed: ----- Method: WebUtils class>>jsonFromString: (in category 'json-decode') ----- jsonFromString: aString + ^aString parseAsJson! - ^ self jsonDecode: aString readStream! Item was removed: - ----- Method: WebUtils class>>jsonMap:on: (in category 'json-encode') ----- - jsonMap: aDictionary on: stream - "Encodes a dictionary" - - stream nextPut: ${. - "Sorting keys ensures deterministic order" - aDictionary keys asArray sort do:[:key| - self jsonString: key on: stream. - stream nextPutAll:': '. - self jsonObj: (aDictionary at: key) on: stream. - ] separatedBy:[stream nextPutAll: ', ']. - stream nextPut: $}.! Item was removed: - ----- Method: WebUtils class>>jsonMapFrom: (in category 'json-decode') ----- - jsonMapFrom: stream - "Decodes a JSON {key:value, *} object from the stream" - - | map ch key value | - map := Dictionary new. - (ch := stream next) = ${ ifFalse:[^self error: 'JSON Object expected']. - stream skipSeparators. - stream peek = $} ifTrue:[^map]. - - ["Decode the next key:value pair" - stream skipSeparators. - key := self jsonStringFrom: stream. - stream skipSeparators. - stream next = $: ifFalse:[^self error: 'Key-value pair expected']. - value := self jsonDecode: stream. - map at: key put: value. - stream skipSeparators. - (ch := stream next) = $}] whileFalse:[ - ch = $, ifFalse:[^self error: 'Comma expected']. - ]. - - ^map! Item was removed: - ----- Method: WebUtils class>>jsonNullFrom: (in category 'json-decode') ----- - jsonNullFrom: stream - "Decodes 'null' from aStream" - - ((stream next: 4) = 'null' - and:[stream atEnd or:[stream peek isAlphaNumeric not]]) - ifFalse:[^self error: 'Expected ''null''']. - ^nil! Item was removed: - ----- Method: WebUtils class>>jsonNumber:on: (in category 'json-encode') ----- - jsonNumber: aNumber on: stream - "Encodes a number" - - | value | - value := aNumber. - value isInteger ifFalse:[value := aNumber asFloat]. - stream print: aNumber. - ! Item was removed: - ----- Method: WebUtils class>>jsonNumberFrom: (in category 'json-decode') ----- - jsonNumberFrom: stream - "Decodes a JSON number from the stream" - - | ascii ch integer fraction scale sign expSign exponent exp value beFloat | - integer := fraction := exponent := exp := 0. sign := scale := expSign := 1. - ascii := stream next asciiValue. - ascii = 45 "$- asciiValue" ifTrue:[ - sign := -1. - ascii := stream next asciiValue. - ]. - "JSON requires at least one digit" - (ascii >= 48 and:[ascii <= 57]) ifFalse:[^self error: 'Digit expected']. - - "Read the integer part" - integer := ascii - 48. - [ch := stream next ifNil:[^integer * sign]. - ascii := ch asciiValue. - ascii >= 48 and:[ascii <= 57]] whileTrue:[ - integer := (integer * 10) + (ascii - 48). - ]. - - (beFloat := ascii = 46) "$. asciiValue" ifTrue:[ - "Read the fraction part" - [ch := stream next ifNil: - [value := integer * scale + fraction * sign. - ^self jsonFloatSignificand: value exp10: exponent scale: scale]. - ascii := ch asciiValue. - ascii >= 48 and:[ascii <= 57]] whileTrue:[ - fraction := (fraction * 10) + (ascii - 48). - exponent := exponent - 1. - scale := scale * 10. - ]. - value := integer * scale + fraction * sign. - ] ifFalse:[value := integer * sign]. - (ascii = 69 "$E asciiValue" or:[ascii = 101 "$e asciiValue"]) ifTrue:[ - "Read exponent" - ascii := stream next asciiValue. - ascii = 45 "$- asciiValue" ifTrue:[ - expSign := -1. - ascii := stream next asciiValue. - ] ifFalse:[ascii = 43 "$+ asciiValue" ifTrue:[ascii := stream next asciiValue]]. - exp := ascii - 48. - [ch := stream next ifNil: - [exponent := exp * expSign + exponent. - (beFloat or: [expSign = -1]) ifTrue: [^self jsonFloatSignificand: value exp10: exponent]. - ^value * (10 raisedTo: exponent)]. - ascii := ch asciiValue. - ascii >= 48 and:[ascii <= 57]] whileTrue:[ - exp := (exp * 10) + (ascii - 48). - ]. - exponent := exp * expSign + exponent - ]. - - "Skip back before last character since number might be part of a sequence - like 1, 2, 3, 4, etc (which would eat the trailing comma)" - ch isAlphaNumeric ifTrue:[^self error: 'Delimiter expected']. - stream skip: -1. - - (beFloat or: [expSign = -1]) ifTrue: [^self jsonFloatSignificand: value exp10: exponent]. - ^value * (10 raisedTo: exponent)! Item was removed: - ----- Method: WebUtils class>>jsonObj:on: (in category 'json-encode') ----- - jsonObj: anObject on: stream - "Encode a generic object" - - anObject isString ifTrue:[^self jsonString: anObject on: stream]. - anObject isNumber ifTrue:[^self jsonNumber: anObject on: stream]. - anObject == nil ifTrue:[^stream nextPutAll: 'null']. - anObject == true ifTrue:[^stream nextPutAll: 'true']. - anObject == false ifTrue:[^stream nextPutAll: 'false']. - anObject isArray ifTrue:[^self jsonArray: anObject on: stream]. - anObject isDictionary ifTrue:[^self jsonMap: anObject on: stream]. - - self error: 'Cannot encode: ', anObject! Item was removed: - ----- Method: WebUtils class>>jsonString:on: (in category 'json-encode') ----- - jsonString: aString on: stream - "Encodes a string" - - stream nextPut: $". - aString do:[:ch| self jsonChar: ch on: stream]. - stream nextPut: $". - ! Item was removed: - ----- Method: WebUtils class>>jsonStringFrom: (in category 'json-decode') ----- - jsonStringFrom: stream - "Decodes a JSON encoded string" - - | ch result | - (ch := stream next) = $" - ifFalse:[^self error: 'String expected']. - result := WriteStream on: (String new: 20). - [(ch := stream next) == nil] whileFalse:[ - ch = $" ifTrue:[^result contents]. - ch = $\ ifTrue:[ch := self jsonCharFrom: stream]. - result nextPut: ch. - ]. - ^self error: 'Unterminated string'! Item was removed: - ----- Method: WebUtils class>>jsonTrueFrom: (in category 'json-decode') ----- - jsonTrueFrom: stream - "Decodes 'true' from aStream" - - ((stream next: 4) = 'true' - and:[stream atEnd or:[stream peek isAlphaNumeric not]]) - ifFalse:[^self error: 'Expected ''true''']. - ^true!

1 0

MQTT, PostgreSQL, PlotMorphs, and the WeatherStation project
by Tim Rowledge 29 Oct '23

29 Oct '23

I've been enjoying bringing some packages up to date recently and the WeatherStation project is much improved. I know a few people out there have either used it or been inspired by some of the code ideas, so it seems like a good time to update everyone. First job was to connect up a proper database for storing the data, rather than the "leave it in the image and hope" approach. Since I had been using Levente's PostgresV3 package for work (more on that later) it seemed an obvious thing to use in a less... convoluted... manner as a learning exercise. The current system is using a simple pair of SQL tables, one small table for a list of sensors in use, and a rather bigger table with the sensor readings. I chose to have a 'type' column to discriminate between temperature, humidity, pressure, windspeed, rainfall & wind direction readings, though I imagine there might be good reasons to have separate tables for each despite the fact they would be of the same layout. One column for each reading is a foreign key pointing to the relevant sensor entry and I can't tell you how smug I felt when I got that to work. Those of you that know me well, know I've worked *quite hard* to avoid dealing with databases for about 40 years, so all this was quite an adventure. No. 2 was making sure the MQTT system still works in Squeak 6.1alpha - which it seems to do perfectly well. Which is nice. I hope to update it to the MQTT v5.0 spec sometime. Part 3 was making a subclass of PlotMorph that reads the data from a database, which turns out to be quite effective. Having a query that fetches all the data and timestamps within a range and for a specific sensor & reading type is pretty neat, and the performance is, frankly, amazing. A few tens of thousands of rows can be read and instantiated in 50mS or so *on a Raspberry Pi*. Combine this with having a step time of 60 seconds and the cost of the DB read is negligible. Even fetching 1.5million rows as a test only takes about 12 seconds. So, the PlotMorphs package has been slightly updated to support the DB subclass, the MQTT package is 'certified' as being 6.1 compatible, and the Weather Station package is updated quite a bit. Thing is, there's a *lot* of stuff you could monitor and track with some MQTT and a database and a way to display it. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: SEOB: Set Every Other Bit

9 19

Re: [Newbies] how to scan files and folders
by lewis＠mail.msen.com 29 Oct '23

29 Oct '23

Hi, This is a very good question. I do not have a good answer, but I am replying here with CC to the squeak-dev list because I would like to get a response to this question. In my own personal experience, when I want to traverse the files and directories, I am in the habit of just using the traditional unix 'find' utility because it does a very good job of this, and it knows how to handle file system dependencies such as links and symlinks. I can use the results of the 'find' command in Squeak, so that works well for me. But if I want to traverse a file system tree directly in Squeak, is there a good simple way to do it? Presumably one would want to visit each node in the tree and evaluate a block to do something. In the example below, we would want the block to create an instance of class Card for each file node that is visited. For folks replying on squeak-dev please keep in mind that the question originates from the beginners list, so we are looking for a clear and simple answer :-) Thanks, Dave On 2023-10-24 18:27, ruivianapereira(a)gmail.com wrote: > I'm not a programmer of any kind or language; I'm an amateur. > I have a personal digital library with thousands of documents, which > are useless unless I manage to classify them. > I thought it would be an easy task with Squeak, since it is a quite > simple problem, but I'm lacking some solutions, as a beginner. > My general cenario: > I made a class, lets call it card, to hold information about each work, > each author, their location on disk and the relations between authors > and works: > Object>>#Card (instance var : name, location, notes, tags ... ) Author > Work Object>>#MyLibrary (instance var : authors <aCollection>, works <aCollection>, myLibraryBase <aPath?>) Than I initialize #MyLibrary instances with a UIManager directoryChooser to establish from the begining a reference to the directory where all the relevant files are. But, because it is thousands of files, I would need an automatic method to «scan» all the relevant files in the directories and subdirectories. Meaning: the method should make a collection of all the files, recursively in subdirectories, and for each one it should create a card. And that's where I got stuck: how do I scan recursively the subdirectories? Most of the new tools are quite confusing for me, namely classes and tools to deal with files. Can anyone point me in the wright direction, please? Thanks _______________________________________________ Beginners mailing list -- beginners(a)lists.squeakfoundation.org To unsubscribe send an email to beginners-leave(a)lists.squeakfoundation.org

4 6

[Unable to load Git] Attempting to get back into the swing...
by rabbit 25 Oct '23

25 Oct '23

Good morning! I am trying to get back into Squeak and I was looking to load the Squeak Inbox Talk and Croquet. Unfortunately I am unable to load Git. My image is updated Alpha to #22804. I have VMMaker loaded. > Installer ensureRecentMetacello. Fails with the following: I appreciate any guidance you could provide. Peace, -- ••• rabbit ❤️‍🔥🐰

2 2

Inbox Talk error
by Michael Engelhart 25 Oct '23

25 Oct '23

Hi all - I apologize if this isn’t the right forum for this but I’ve been lurking here for a few months trying to find time to learn Squeak/Smalltalk and I was wondering where to send bug reports? I was just trying to browse the Inbox for this mailing list and when I tried to download the list to Squeak I received a ByteArray error with a subscript is out of bounds error. I was able to download the beginners list though so my guess is there’s a specific message that’s got something wonky in it but I’m not familiar enough with Smalltalk to be able to debug this properly. Is there a GitHub Issue or other place to submit a bug report? Thanks and again apologies if this isn’t the right place to post this. Mike

2 1

The Trunk: Monticello-eem.803.mcz
by commits＠source.squeak.org 25 Oct '23

25 Oct '23

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.803.mcz ==================== Summary ==================== Name: Monticello-eem.803 Author: eem Time: 24 October 2023, 3:23:48.418415 pm UUID: 46cf509a-7643-40fa-ab24-7c7b4cbe9796 Ancestors: Monticello-tpr.802 Finally understand what was wrong with my fileOut theirs scheme. In normal snapshot browsers "fileOut theirs" means "fileOutDefinition". But in a save dialog "fileOut theirs" means "fileOutInverse". =============== Diff against Monticello-tpr.802 =============== Item was changed: ----- Method: MCCodeTool>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu "Build the menu for the selected method, if any." self selectedMessageName ifNil: [items notEmpty ifTrue: [aMenu addList:#( ('fileOut ours (o)' fileOutMessage) + ('fileOut theirs' fileOutDefinition))]] - ('fileOut theirs' fileOutInverse))]] ifNotNil: [ aMenu addList:#( ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' browseClassHierarchy) ('browse protocol (p)' browseFullProtocol) - ('fileOut ours (o)' fileOutMessage) ('fileOut theirs' fileOutDefinition) ('printOut' printOutMessage) ('copy selector (c)' copySelector) ('copy reference (C)' copyReference)). aMenu addList: #( - ('browse senders (n)' browseSendersOfMessages) ('browse implementors (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) ('change sets with this method' findMethodInChangeSets) " ('x revert to previous version' revertToPreviousVersion)" ('remove from current change set' removeFromCurrentChanges) " ('x revert & remove from changes' revertAndForget)" ('add to current change set' adoptMessageInCurrentChangeset) " ('x copy up or copy down...' copyUpOrCopyDown)" " ('x remove method (x)' removeMessage)" "-" ). ]. " aMenu addList: #( ('x inst var refs...' browseInstVarRefs) ('x inst var defs...' browseInstVarDefs) ('x class var refs...' browseClassVarRefs) ('x class variables' browseClassVariables) ('x class refs (N)' browseClassRefs) ). " ^ aMenu ! Item was changed: ----- Method: MCSaveVersionDialog>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu super methodListMenu: aMenu. + "In save dialogs fileOut theirs means file out the inverse" + aMenu items do: + [:item| + item selector == #fileOutDefinition ifTrue: + [item selector: #fileOutInverse]]. aMenu addList:#(- ('ignore (I)' ignoreSelection 'Toggle inclusion of this change when saving.') ('refresh (e)' refresh 'Refresh the list of changes to this package.')). ^aMenu!

1 0

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

Jump to page: