Packages March 2021

packages@lists.squeakfoundation.org

1 participants
89 discussions

The Trunk: Multilingual-mt.256.mcz
by commits＠source.squeak.org 17 Mar '21

17 Mar '21

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.256.mcz ==================== Summary ==================== Name: Multilingual-mt.256 Author: mt Time: 17 March 2021, 9:43:06.41861 am UUID: 6f033acc-a184-ed43-9a20-375a849bcfc0 Ancestors: Multilingual-eem.255 Complements EToys-mt.434 =============== Diff against Multilingual-eem.255 =============== Item was added: + TextConverter subclass: #KOI8RTextConverter + instanceVariableNames: '' + classVariableNames: 'FromTable' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! Item was added: + ----- Method: KOI8RTextConverter class>>encodingNames (in category 'as yet unclassified') ----- + encodingNames + + ^ #('koi8-r') copy + ! Item was added: + ----- Method: KOI8RTextConverter class>>initialize (in category 'as yet unclassified') ----- + initialize + " + KOI8RTextConverter initialize + " + FromTable := Dictionary new. + FromTable at: 16r2500 put: 16r80. + FromTable at: 16r2502 put: 16r81. + FromTable at: 16r250C put: 16r82. + FromTable at: 16r2510 put: 16r83. + FromTable at: 16r2514 put: 16r84. + FromTable at: 16r2518 put: 16r85. + FromTable at: 16r251C put: 16r86. + FromTable at: 16r2524 put: 16r87. + FromTable at: 16r252C put: 16r88. + FromTable at: 16r2534 put: 16r89. + FromTable at: 16r253C put: 16r8A. + FromTable at: 16r2580 put: 16r8B. + FromTable at: 16r2584 put: 16r8C. + FromTable at: 16r2588 put: 16r8D. + FromTable at: 16r258C put: 16r8E. + FromTable at: 16r2590 put: 16r8F. + FromTable at: 16r2591 put: 16r90. + FromTable at: 16r2592 put: 16r91. + FromTable at: 16r2593 put: 16r92. + FromTable at: 16r2320 put: 16r93. + FromTable at: 16r25A0 put: 16r94. + FromTable at: 16r2219 put: 16r95. + FromTable at: 16r221A put: 16r96. + FromTable at: 16r2248 put: 16r97. + FromTable at: 16r2264 put: 16r98. + FromTable at: 16r2265 put: 16r99. + FromTable at: 16r00A0 put: 16r9A. + FromTable at: 16r2321 put: 16r9B. + FromTable at: 16r00B0 put: 16r9C. + FromTable at: 16r00B2 put: 16r9D. + FromTable at: 16r00B7 put: 16r9E. + FromTable at: 16r00F7 put: 16r9F. + FromTable at: 16r2550 put: 16rA0. + FromTable at: 16r2551 put: 16rA1. + FromTable at: 16r2552 put: 16rA2. + FromTable at: 16r0451 put: 16rA3. + FromTable at: 16r2553 put: 16rA4. + FromTable at: 16r2554 put: 16rA5. + FromTable at: 16r2555 put: 16rA6. + FromTable at: 16r2556 put: 16rA7. + FromTable at: 16r2557 put: 16rA8. + FromTable at: 16r2558 put: 16rA9. + FromTable at: 16r2559 put: 16rAA. + FromTable at: 16r255A put: 16rAB. + FromTable at: 16r255B put: 16rAC. + FromTable at: 16r255C put: 16rAD. + FromTable at: 16r255D put: 16rAE. + FromTable at: 16r255E put: 16rAF. + FromTable at: 16r255F put: 16rB0. + FromTable at: 16r2560 put: 16rB1. + FromTable at: 16r2561 put: 16rB2. + FromTable at: 16r0401 put: 16rB3. + FromTable at: 16r2562 put: 16rB4. + FromTable at: 16r2563 put: 16rB5. + FromTable at: 16r2564 put: 16rB6. + FromTable at: 16r2565 put: 16rB7. + FromTable at: 16r2566 put: 16rB8. + FromTable at: 16r2567 put: 16rB9. + FromTable at: 16r2568 put: 16rBA. + FromTable at: 16r2569 put: 16rBB. + FromTable at: 16r256A put: 16rBC. + FromTable at: 16r256B put: 16rBD. + FromTable at: 16r256C put: 16rBE. + FromTable at: 16r00A9 put: 16rBF. + FromTable at: 16r044E put: 16rC0. + FromTable at: 16r0430 put: 16rC1. + FromTable at: 16r0431 put: 16rC2. + FromTable at: 16r0446 put: 16rC3. + FromTable at: 16r0434 put: 16rC4. + FromTable at: 16r0435 put: 16rC5. + FromTable at: 16r0444 put: 16rC6. + FromTable at: 16r0433 put: 16rC7. + FromTable at: 16r0445 put: 16rC8. + FromTable at: 16r0438 put: 16rC9. + FromTable at: 16r0439 put: 16rCA. + FromTable at: 16r043A put: 16rCB. + FromTable at: 16r043B put: 16rCC. + FromTable at: 16r043C put: 16rCD. + FromTable at: 16r043D put: 16rCE. + FromTable at: 16r043E put: 16rCF. + FromTable at: 16r043F put: 16rD0. + FromTable at: 16r044F put: 16rD1. + FromTable at: 16r0440 put: 16rD2. + FromTable at: 16r0441 put: 16rD3. + FromTable at: 16r0442 put: 16rD4. + FromTable at: 16r0443 put: 16rD5. + FromTable at: 16r0436 put: 16rD6. + FromTable at: 16r0432 put: 16rD7. + FromTable at: 16r044C put: 16rD8. + FromTable at: 16r044B put: 16rD9. + FromTable at: 16r0437 put: 16rDA. + FromTable at: 16r0448 put: 16rDB. + FromTable at: 16r044D put: 16rDC. + FromTable at: 16r0449 put: 16rDD. + FromTable at: 16r0447 put: 16rDE. + FromTable at: 16r044A put: 16rDF. + FromTable at: 16r042E put: 16rE0. + FromTable at: 16r0410 put: 16rE1. + FromTable at: 16r0411 put: 16rE2. + FromTable at: 16r0426 put: 16rE3. + FromTable at: 16r0414 put: 16rE4. + FromTable at: 16r0415 put: 16rE5. + FromTable at: 16r0424 put: 16rE6. + FromTable at: 16r0413 put: 16rE7. + FromTable at: 16r0425 put: 16rE8. + FromTable at: 16r0418 put: 16rE9. + FromTable at: 16r0419 put: 16rEA. + FromTable at: 16r041A put: 16rEB. + FromTable at: 16r041B put: 16rEC. + FromTable at: 16r041C put: 16rED. + FromTable at: 16r041D put: 16rEE. + FromTable at: 16r041E put: 16rEF. + FromTable at: 16r041F put: 16rF0. + FromTable at: 16r042F put: 16rF1. + FromTable at: 16r0420 put: 16rF2. + FromTable at: 16r0421 put: 16rF3. + FromTable at: 16r0422 put: 16rF4. + FromTable at: 16r0423 put: 16rF5. + FromTable at: 16r0416 put: 16rF6. + FromTable at: 16r0412 put: 16rF7. + FromTable at: 16r042C put: 16rF8. + FromTable at: 16r042B put: 16rF9. + FromTable at: 16r0417 put: 16rFA. + FromTable at: 16r0428 put: 16rFB. + FromTable at: 16r042D put: 16rFC. + FromTable at: 16r0429 put: 16rFD. + FromTable at: 16r0427 put: 16rFE. + FromTable at: 16r042A put: 16rFF. + ! Item was added: + ----- Method: KOI8RTextConverter>>fromSqueak: (in category 'as yet unclassified') ----- + fromSqueak: char + + ^ Character value: (FromTable at: char charCode ifAbsent: [char asciiValue])! Item was added: + ----- Method: KOI8RTextConverter>>nextFromStream: (in category 'as yet unclassified') ----- + nextFromStream: aStream + + | character1 | + aStream isBinary ifTrue: [^ aStream basicNext]. + character1 := aStream basicNext. + character1 isNil ifTrue: [^ nil]. + ^ self toSqueak: character1. + ! Item was added: + ----- Method: KOI8RTextConverter>>nextPut:toStream: (in category 'as yet unclassified') ----- + nextPut: aCharacter toStream: aStream + + | charCode | + aStream isBinary ifTrue: [ ^aCharacter storeBinaryOn: aStream ]. + (charCode := aCharacter charCode) < 256 + ifFalse: [ aStream basicNextPut: ((Character value: (self fromSqueak: aCharacter) charCode)) ] + ifTrue: [ + (latin1Encodings at: charCode + 1) + ifNil: [ aStream basicNextPut: aCharacter ] + ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ] ]. + ^aCharacter + ! Item was added: + ----- Method: KOI8RTextConverter>>toSqueak: (in category 'as yet unclassified') ----- + toSqueak: char + + | value | + value := char charCode. + + value < 128 ifTrue: [^ char]. + value > 255 ifTrue: [^ char]. + ^ Character leadingChar: RussianEnvironment leadingChar code: (#( + 16r2500 16r2502 16r250C 16r2510 16r2514 16r2518 16r251C 16r2524 + 16r252C 16r2534 16r253C 16r2580 16r2584 16r2588 16r258C 16r2590 + 16r2591 16r2592 16r2593 16r2320 16r25A0 16r2219 16r221A 16r2248 + 16r2264 16r2265 16r00A0 16r2321 16r00B0 16r00B2 16r00B7 16r00F7 + 16r2550 16r2551 16r2552 16r0451 16r2553 16r2554 16r2555 16r2556 + 16r2557 16r2558 16r2559 16r255A 16r255B 16r255C 16r255D 16r255E + 16r255F 16r2560 16r2561 16r0401 16r2562 16r2563 16r2564 16r2565 + 16r2566 16r2567 16r2568 16r2569 16r256A 16r256B 16r256C 16r00A9 + 16r044E 16r0430 16r0431 16r0446 16r0434 16r0435 16r0444 16r0433 + 16r0445 16r0438 16r0439 16r043A 16r043B 16r043C 16r043D 16r043E + 16r043F 16r044F 16r0440 16r0441 16r0442 16r0443 16r0436 16r0432 + 16r044C 16r044B 16r0437 16r0448 16r044D 16r0449 16r0447 16r044A + 16r042E 16r0410 16r0411 16r0426 16r0414 16r0415 16r0424 16r0413 + 16r0425 16r0418 16r0419 16r041A 16r041B 16r041C 16r041D 16r041E + 16r041F 16r042F 16r0420 16r0421 16r0422 16r0423 16r0416 16r0412 + 16r042C 16r042B 16r0417 16r0428 16r042D 16r0429 16r0427 16r042A + ) at: (value - 128 + 1)). + !

1 0

The Trunk: EToys-mt.434.mcz
by commits＠source.squeak.org 17 Mar '21

17 Mar '21

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.434.mcz ==================== Summary ==================== Name: EToys-mt.434 Author: mt Time: 17 March 2021, 9:42:26.74561 am UUID: ea5e558c-a97f-5248-934a-3e61edede972 Ancestors: EToys-mt.433 Moves KOI8-R text converter to "Multilingual" package to avoid EToys dependency in tests. =============== Diff against EToys-mt.433 =============== Item was removed: - TextConverter subclass: #KOI8RTextConverter - instanceVariableNames: '' - classVariableNames: 'FromTable' - poolDictionaries: '' - category: 'Etoys-Squeakland-Multilingual-TextConversion'! Item was removed: - ----- Method: KOI8RTextConverter class>>encodingNames (in category 'as yet unclassified') ----- - encodingNames - - ^ #('koi8-r') copy - ! Item was removed: - ----- Method: KOI8RTextConverter class>>initialize (in category 'as yet unclassified') ----- - initialize - " - KOI8RTextConverter initialize - " - FromTable := Dictionary new. - FromTable at: 16r2500 put: 16r80. - FromTable at: 16r2502 put: 16r81. - FromTable at: 16r250C put: 16r82. - FromTable at: 16r2510 put: 16r83. - FromTable at: 16r2514 put: 16r84. - FromTable at: 16r2518 put: 16r85. - FromTable at: 16r251C put: 16r86. - FromTable at: 16r2524 put: 16r87. - FromTable at: 16r252C put: 16r88. - FromTable at: 16r2534 put: 16r89. - FromTable at: 16r253C put: 16r8A. - FromTable at: 16r2580 put: 16r8B. - FromTable at: 16r2584 put: 16r8C. - FromTable at: 16r2588 put: 16r8D. - FromTable at: 16r258C put: 16r8E. - FromTable at: 16r2590 put: 16r8F. - FromTable at: 16r2591 put: 16r90. - FromTable at: 16r2592 put: 16r91. - FromTable at: 16r2593 put: 16r92. - FromTable at: 16r2320 put: 16r93. - FromTable at: 16r25A0 put: 16r94. - FromTable at: 16r2219 put: 16r95. - FromTable at: 16r221A put: 16r96. - FromTable at: 16r2248 put: 16r97. - FromTable at: 16r2264 put: 16r98. - FromTable at: 16r2265 put: 16r99. - FromTable at: 16r00A0 put: 16r9A. - FromTable at: 16r2321 put: 16r9B. - FromTable at: 16r00B0 put: 16r9C. - FromTable at: 16r00B2 put: 16r9D. - FromTable at: 16r00B7 put: 16r9E. - FromTable at: 16r00F7 put: 16r9F. - FromTable at: 16r2550 put: 16rA0. - FromTable at: 16r2551 put: 16rA1. - FromTable at: 16r2552 put: 16rA2. - FromTable at: 16r0451 put: 16rA3. - FromTable at: 16r2553 put: 16rA4. - FromTable at: 16r2554 put: 16rA5. - FromTable at: 16r2555 put: 16rA6. - FromTable at: 16r2556 put: 16rA7. - FromTable at: 16r2557 put: 16rA8. - FromTable at: 16r2558 put: 16rA9. - FromTable at: 16r2559 put: 16rAA. - FromTable at: 16r255A put: 16rAB. - FromTable at: 16r255B put: 16rAC. - FromTable at: 16r255C put: 16rAD. - FromTable at: 16r255D put: 16rAE. - FromTable at: 16r255E put: 16rAF. - FromTable at: 16r255F put: 16rB0. - FromTable at: 16r2560 put: 16rB1. - FromTable at: 16r2561 put: 16rB2. - FromTable at: 16r0401 put: 16rB3. - FromTable at: 16r2562 put: 16rB4. - FromTable at: 16r2563 put: 16rB5. - FromTable at: 16r2564 put: 16rB6. - FromTable at: 16r2565 put: 16rB7. - FromTable at: 16r2566 put: 16rB8. - FromTable at: 16r2567 put: 16rB9. - FromTable at: 16r2568 put: 16rBA. - FromTable at: 16r2569 put: 16rBB. - FromTable at: 16r256A put: 16rBC. - FromTable at: 16r256B put: 16rBD. - FromTable at: 16r256C put: 16rBE. - FromTable at: 16r00A9 put: 16rBF. - FromTable at: 16r044E put: 16rC0. - FromTable at: 16r0430 put: 16rC1. - FromTable at: 16r0431 put: 16rC2. - FromTable at: 16r0446 put: 16rC3. - FromTable at: 16r0434 put: 16rC4. - FromTable at: 16r0435 put: 16rC5. - FromTable at: 16r0444 put: 16rC6. - FromTable at: 16r0433 put: 16rC7. - FromTable at: 16r0445 put: 16rC8. - FromTable at: 16r0438 put: 16rC9. - FromTable at: 16r0439 put: 16rCA. - FromTable at: 16r043A put: 16rCB. - FromTable at: 16r043B put: 16rCC. - FromTable at: 16r043C put: 16rCD. - FromTable at: 16r043D put: 16rCE. - FromTable at: 16r043E put: 16rCF. - FromTable at: 16r043F put: 16rD0. - FromTable at: 16r044F put: 16rD1. - FromTable at: 16r0440 put: 16rD2. - FromTable at: 16r0441 put: 16rD3. - FromTable at: 16r0442 put: 16rD4. - FromTable at: 16r0443 put: 16rD5. - FromTable at: 16r0436 put: 16rD6. - FromTable at: 16r0432 put: 16rD7. - FromTable at: 16r044C put: 16rD8. - FromTable at: 16r044B put: 16rD9. - FromTable at: 16r0437 put: 16rDA. - FromTable at: 16r0448 put: 16rDB. - FromTable at: 16r044D put: 16rDC. - FromTable at: 16r0449 put: 16rDD. - FromTable at: 16r0447 put: 16rDE. - FromTable at: 16r044A put: 16rDF. - FromTable at: 16r042E put: 16rE0. - FromTable at: 16r0410 put: 16rE1. - FromTable at: 16r0411 put: 16rE2. - FromTable at: 16r0426 put: 16rE3. - FromTable at: 16r0414 put: 16rE4. - FromTable at: 16r0415 put: 16rE5. - FromTable at: 16r0424 put: 16rE6. - FromTable at: 16r0413 put: 16rE7. - FromTable at: 16r0425 put: 16rE8. - FromTable at: 16r0418 put: 16rE9. - FromTable at: 16r0419 put: 16rEA. - FromTable at: 16r041A put: 16rEB. - FromTable at: 16r041B put: 16rEC. - FromTable at: 16r041C put: 16rED. - FromTable at: 16r041D put: 16rEE. - FromTable at: 16r041E put: 16rEF. - FromTable at: 16r041F put: 16rF0. - FromTable at: 16r042F put: 16rF1. - FromTable at: 16r0420 put: 16rF2. - FromTable at: 16r0421 put: 16rF3. - FromTable at: 16r0422 put: 16rF4. - FromTable at: 16r0423 put: 16rF5. - FromTable at: 16r0416 put: 16rF6. - FromTable at: 16r0412 put: 16rF7. - FromTable at: 16r042C put: 16rF8. - FromTable at: 16r042B put: 16rF9. - FromTable at: 16r0417 put: 16rFA. - FromTable at: 16r0428 put: 16rFB. - FromTable at: 16r042D put: 16rFC. - FromTable at: 16r0429 put: 16rFD. - FromTable at: 16r0427 put: 16rFE. - FromTable at: 16r042A put: 16rFF. - ! Item was removed: - ----- Method: KOI8RTextConverter>>fromSqueak: (in category 'as yet unclassified') ----- - fromSqueak: char - - ^ Character value: (FromTable at: char charCode ifAbsent: [char asciiValue])! Item was removed: - ----- Method: KOI8RTextConverter>>nextFromStream: (in category 'as yet unclassified') ----- - nextFromStream: aStream - - | character1 | - aStream isBinary ifTrue: [^ aStream basicNext]. - character1 := aStream basicNext. - character1 isNil ifTrue: [^ nil]. - ^ self toSqueak: character1. - ! Item was removed: - ----- Method: KOI8RTextConverter>>nextPut:toStream: (in category 'as yet unclassified') ----- - nextPut: aCharacter toStream: aStream - - | charCode | - aStream isBinary ifTrue: [ ^aCharacter storeBinaryOn: aStream ]. - (charCode := aCharacter charCode) < 256 - ifFalse: [ aStream basicNextPut: ((Character value: (self fromSqueak: aCharacter) charCode)) ] - ifTrue: [ - (latin1Encodings at: charCode + 1) - ifNil: [ aStream basicNextPut: aCharacter ] - ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ] ]. - ^aCharacter - ! Item was removed: - ----- Method: KOI8RTextConverter>>toSqueak: (in category 'as yet unclassified') ----- - toSqueak: char - - | value | - value := char charCode. - - value < 128 ifTrue: [^ char]. - value > 255 ifTrue: [^ char]. - ^ Character leadingChar: RussianEnvironment leadingChar code: (#( - 16r2500 16r2502 16r250C 16r2510 16r2514 16r2518 16r251C 16r2524 - 16r252C 16r2534 16r253C 16r2580 16r2584 16r2588 16r258C 16r2590 - 16r2591 16r2592 16r2593 16r2320 16r25A0 16r2219 16r221A 16r2248 - 16r2264 16r2265 16r00A0 16r2321 16r00B0 16r00B2 16r00B7 16r00F7 - 16r2550 16r2551 16r2552 16r0451 16r2553 16r2554 16r2555 16r2556 - 16r2557 16r2558 16r2559 16r255A 16r255B 16r255C 16r255D 16r255E - 16r255F 16r2560 16r2561 16r0401 16r2562 16r2563 16r2564 16r2565 - 16r2566 16r2567 16r2568 16r2569 16r256A 16r256B 16r256C 16r00A9 - 16r044E 16r0430 16r0431 16r0446 16r0434 16r0435 16r0444 16r0433 - 16r0445 16r0438 16r0439 16r043A 16r043B 16r043C 16r043D 16r043E - 16r043F 16r044F 16r0440 16r0441 16r0442 16r0443 16r0436 16r0432 - 16r044C 16r044B 16r0437 16r0448 16r044D 16r0449 16r0447 16r044A - 16r042E 16r0410 16r0411 16r0426 16r0414 16r0415 16r0424 16r0413 - 16r0425 16r0418 16r0419 16r041A 16r041B 16r041C 16r041D 16r041E - 16r041F 16r042F 16r0420 16r0421 16r0422 16r0423 16r0416 16r0412 - 16r042C 16r042B 16r0417 16r0428 16r042D 16r0429 16r0427 16r042A - ) at: (value - 128 + 1)). - !

1 0

The Trunk: Tests-tobe.445.mcz
by commits＠source.squeak.org 15 Mar '21

15 Mar '21

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-tobe.445.mcz ==================== Summary ==================== Name: Tests-tobe.445 Author: tobe Time: 11 March 2021, 1:51:19.457627 pm UUID: e5547bc0-8f7f-4880-b3bc-a18fdb625c3b Ancestors: Tests-mt.444 Complements Compiler-tobe.455 =============== Diff against Tests-mt.444 =============== Item was added: + ----- Method: ScannerTest>>testScanTokensRepeatingComment (in category 'tests') ----- + testScanTokensRepeatingComment + + | ranges | + ranges := Array streamContents: [:stream | + Scanner new scanTokenPositionsIn: '''packages''. "packages" 222' into: [:start :end | stream nextPut: (start to: end)]]. + + self assert: (ranges hasEqualElements: {1 to: 10. 11 to: 11. 13 to: 22. 24 to: 26. (27 to: 26)})!

1 0

The Trunk: Compiler-tobe.455.mcz
by commits＠source.squeak.org 15 Mar '21

15 Mar '21

Marcel Taeumel uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-tobe.455.mcz ==================== Summary ==================== Name: Compiler-tobe.455 Author: tobe Time: 11 March 2021, 1:50:12.615385 pm UUID: ba3e2f61-8c2a-4dcf-a288-f6e81db4eda1 Ancestors: Compiler-codefrau.454 Fix scanAllTokenPositionsInto: when the text of a comment happened to appear just before it. See testScanTokensRepeatComment for an example. =============== Diff against Compiler-codefrau.454 =============== Item was changed: ----- Method: Scanner>>scanAllTokenPositionsInto: (in category 'expression types') ----- scanAllTokenPositionsInto: aBlock "Evaluate aBlock with the start and end positions of all separate non-white-space tokens, including comments." | lastMark | lastMark := 1. [currentComment ifNotNil: [currentComment do: [:cmnt| | idx | + idx := source originalContents findLastOccurrenceOfString: cmnt startingAt: lastMark. - idx := source originalContents indexOfSubCollection: cmnt startingAt: lastMark. (idx > 0 and: [idx < mark]) ifTrue: [aBlock value: idx - 1 value: (lastMark := idx + cmnt size)]]. currentComment := nil]. mark ifNotNil: [(token == #- and: [(self typeTableAt: hereChar) == #xDigit]) ifTrue: [| savedMark | savedMark := mark. self scanToken. token := token negated. mark := savedMark]. "Compensate for the fact that the parser uses two character lookahead. Normally we must remove the extra two characters. But this mustn't happen for the last token at the end of stream." aBlock value: mark value: source position - (aheadChar == DoItCharacter ifTrue: [hereChar == DoItCharacter ifTrue: [0] ifFalse: [1]] ifFalse: [2])]. (tokenType == #rightParenthesis or: [tokenType == #doIt]) ifTrue: [^self]. tokenType == #leftParenthesis ifTrue: [self scanToken; scanAllTokenPositionsInto: aBlock] ifFalse: [(tokenType == #word or: [tokenType == #keyword or: [tokenType == #colon]]) ifTrue: [self scanLitWord. token == #true ifTrue: [token := true]. token == #false ifTrue: [token := false]. token == #nil ifTrue: [token := nil]] ifFalse: [(token == #- and: [(self typeTableAt: hereChar) == #xDigit]) ifTrue: [self scanToken. token := token negated]]]. self scanToken ] repeat!

1 0

The Trunk: ToolsTests-mt.102.mcz
by commits＠source.squeak.org 15 Mar '21

15 Mar '21

Marcel Taeumel uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-mt.102.mcz ==================== Summary ==================== Name: ToolsTests-mt.102 Author: mt Time: 15 March 2021, 11:26:23.080586 am UUID: cd7ffa73-b283-8244-85fd-0eef99f698b4 Ancestors: ToolsTests-eem.101 Complements Kernel-mt.1381 Fixes for debugger invocation during code simulation. See http://forum.world.st/Please-try-out-Fixes-for-debugger-invocation-during-c… =============== Diff against ToolsTests-eem.101 =============== Item was changed: ----- Method: DebuggerTests>>test06DebugSpecificContext (in category 'tests') ----- test06DebugSpecificContext | context | process := [ #(1 2 3) collect: [:ea | ea odd ifTrue: [ ea ] ifFalse: [ Processor activeProcess suspend ] ] ] newProcess. process priority: Processor activeProcess priority + 1. process resume. "Find specific context by following #sender chain." context := process suspendedContext. [context selector = #collect: ] whileFalse: [context := context sender]. + debugger := ToolSet debugProcess: process context: context label: nil contents: nil fullView: true. - debugger := process debug: context. self assert: debugger contextStackTop = context.! Item was changed: ----- Method: DebuggerTests>>test09DebuggerNotifierOrFull (in category 'tests') ----- test09DebuggerNotifierOrFull "Test the defaults." process := [ 3+4 ] newProcess. debugger := process debug. self assert: debugger isFull. debugger close. process := [ 3+4 ] newProcess. debugger := process debugWithTitle: 'Test'. self assert: debugger isFull. debugger close. process := [ 3+4 ] newProcess. + debugger := process debugWithTitle: 'Test 2' full: false. - debugger := process debug: process suspendedContext. self assert: debugger isNotifier.! Item was added: + ----- Method: DebuggerTests>>test16HandleSimulationError (in category 'tests') ----- + test16HandleSimulationError + "Regression test. In the past, the scenario below led to an infinite debugger chain freezing your image. Be careful when running this test in an unpatched image!! For more information, see http://forum.world.st/I-broke-the-debugger-td5110752.html." + + | userProcess | + process := Process forBlock: [ + "the faulty user code" + thisContext pc: nil]. + debugger := process debug. + + [userProcess := [debugger stepThrough] fork. + Processor yield. + + self deny: [process isTerminated]. + self assert: [userProcess isSuspended]] + + ensure: [ + process suspendedContext: nil; terminate. + debugger close. + process := userProcess. + self findDebugger "for correct tearDown"].! Item was added: + ----- Method: DebuggerTests>>test17HandleBlockCannotReturn (in category 'tests') ----- + test17HandleBlockCannotReturn + "Regression test. In the past, the scenario below led to an infinite debugger chain freezing your image. Be careful when running this test in an unpatched image!! For more information, see http://forum.world.st/I-broke-the-debugger-td5110752.html." + + | userProcess | + process := Process forBlock: [ + "the faulty user code" + [] ensure: [thisContext privSender: nil]]. + debugger := process debug. + + [userProcess := [debugger stepOver] fork. + Processor yield. + + self assert: [process isTerminated]. + self deny: [userProcess isRunnable]] + + ensure: [ + process terminate. + debugger close. + process := userProcess. + self findDebugger "for correct tearDown"].! Item was added: + ----- Method: DebuggerTests>>test18HandleNestedBlockCannotReturn (in category 'tests') ----- + test18HandleNestedBlockCannotReturn + "Regression test. In the past, the scenario below led to an infinite debugger chain freezing your image. Be careful when running this test in an unpatched image!! For more information, see http://forum.world.st/I-broke-the-debugger-td5110752.html." + + | metaProcess metaDebugger userProcess | + process := Process forBlock: [ + "the faulty user code" + [] ensure: [thisContext privSender: nil]]. + debugger := process debug. + metaProcess := Process forBlock: [ + debugger stepOver]. + metaDebugger := metaProcess debug. + + [userProcess := [metaDebugger stepOver] fork. + Processor yield. + + self assert: [process isTerminated]. + self deny: [userProcess isRunnable]] + + ensure: [ + process terminate. + debugger close. + metaProcess terminate. + metaDebugger close. + process := userProcess. + self findDebugger "for correct tearDown"].!

1 0

The Trunk: KernelTests-mt.394.mcz
by commits＠source.squeak.org 15 Mar '21

15 Mar '21

Marcel Taeumel uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-mt.394.mcz ==================== Summary ==================== Name: KernelTests-mt.394 Author: mt Time: 15 March 2021, 11:25:56.023586 am UUID: 1abf5d7e-b62f-ee4d-94ea-25d3330a2905 Ancestors: KernelTests-nice.393 Complements Kernel-mt.1381 Fixes for debugger invocation during code simulation. See http://forum.world.st/Please-try-out-Fixes-for-debugger-invocation-during-c… =============== Diff against KernelTests-nice.393 =============== Item was added: + ----- Method: ProcessTest>>genuineProcess (in category 'support') ----- + genuineProcess + + "Usually, we don't want to expose this from the class under test." + ^ Processor instVarNamed: 'genuineProcess'! Item was added: + ----- Method: ProcessTest>>testEvaluateOnBehalfOf (in category 'tests') ----- + testEvaluateOnBehalfOf + + | p1 p2 sem results | + self genuineProcess == Processor activeProcess + ifFalse: [self fail: 'Cannot debug this test']. + + sem := Semaphore new. + p1 := [] newProcess. + p1 environmentAt: #foo put: 1. + p2 := [ + Processor activeProcess environmentAt: #foo put: 2. + results := { + Processor activeProcess environmentAt: #foo. + self genuineProcess environmentAt: #foo. + Processor activeProcess + evaluate: [Processor activeProcess environmentAt: #foo] + onBehalfOf: p1. + Processor activeProcess + evaluate: [self genuineProcess environmentAt: #foo] + onBehalfOf: p1. + Processor activeProcess environmentAt: #foo }. + sem signal + ] newProcess. + + p2 resume. + sem wait. + + self assert: {2. 2. 1. 2. 2} equals: results.! Item was added: + ----- Method: ProcessTest>>testProcessFaithfulRunning (in category 'tests') ----- + testProcessFaithfulRunning + "While simulating a process using #runUntilErrorOrReturnFrom:, process variables should be looked up in the process being simulated. Acceptance test for process-faithful debugging, see #evaluate:onBehalfOf:." + + | process result | + process := Process forBlock: [ + result := Processor activeProcess environmentAt: #foo]. + process environmentAt: #foo put: 42. + + process complete: process suspendedContext. + + self assert: 42 equals: result.! Item was added: + ----- Method: ProcessTest>>testProcessFaithfulSimulation (in category 'tests') ----- + testProcessFaithfulSimulation + "While simulating a process using the bytecode simulation machinery, process variables should be looked up in the process being simulated. Acceptance test for process-faithful debugging, see #evaluate:onBehalfOf:." + + | process result | + process := Process forBlock: [ + result := Processor activeProcess environmentAt: #foo]. + process environmentAt: #foo put: 42. + + process runUntil: [:context | context isDead]. + + self assert: 42 equals: result.!

1 0

The Trunk: ST80Tools-mt.13.mcz
by commits＠source.squeak.org 15 Mar '21

15 Mar '21

Marcel Taeumel uploaded a new version of ST80Tools to project The Trunk: http://source.squeak.org/trunk/ST80Tools-mt.13.mcz ==================== Summary ==================== Name: ST80Tools-mt.13 Author: mt Time: 15 March 2021, 11:25:18.388586 am UUID: 21c1bd8b-9aa9-af45-82ad-dc592a3f9333 Ancestors: ST80Tools-mt.12 Complements Kernel-mt.1381 Fixes for debugger invocation during code simulation. See http://forum.world.st/Please-try-out-Fixes-for-debugger-invocation-during-c… =============== Diff against ST80Tools-mt.12 =============== Item was changed: ----- Method: ParagraphEditor>>debugIt (in category '*ST80Tools') ----- debugIt | receiver context helperProcess | self lineSelectAndEmptyCheck: [^self]. (model respondsTo: #doItReceiver) ifTrue: [receiver := model doItReceiver]. (model respondsTo: #doItContext) ifTrue: [context := model doItContext]. (self compileSelectionFor: receiver in: context) ifNotNil: [:doItMethod | helperProcess := context ifNil: [self assert: doItMethod selector = #DoIt. Process forMethod: doItMethod receiver: receiver] ifNotNil: [self assert: doItMethod selector = #DoItIn:. Process forMethod: doItMethod receiver: receiver arguments: {context}]. + helperProcess debugWithTitle: 'Debug it' translated].! - helperProcess debugWithTitle: 'Debug it'].!

1 0

The Trunk: EToys-mt.433.mcz
by commits＠source.squeak.org 15 Mar '21

15 Mar '21

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.433.mcz ==================== Summary ==================== Name: EToys-mt.433 Author: mt Time: 15 March 2021, 11:24:26.084586 am UUID: 1972c4e4-1366-0d4d-81de-238053de5fa0 Ancestors: EToys-eem.432 Complements Kernel-mt.1381 Fixes for debugger invocation during code simulation. See http://forum.world.st/Please-try-out-Fixes-for-debugger-invocation-during-c… =============== Diff against EToys-eem.432 =============== Item was changed: ----- Method: EtoysUnhandledError>>devDefaultAction (in category 'priv handling') ----- devDefaultAction + ^ Processor + debugContext: exception signalerContext - Processor activeProcess - debug: exception signalerContext title: exception description full: false + contents: exception messageText! - contents: exception messageText - !

1 0

The Trunk: SUnit-mt.125.mcz
by commits＠source.squeak.org 15 Mar '21

15 Mar '21

Marcel Taeumel uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-mt.125.mcz ==================== Summary ==================== Name: SUnit-mt.125 Author: mt Time: 15 March 2021, 11:23:58.176586 am UUID: 07cb8b1a-bf52-274c-b9a4-322a23206152 Ancestors: SUnit-nice.124 Complements Kernel-mt.1381 Fixes for debugger invocation during code simulation. See http://forum.world.st/Please-try-out-Fixes-for-debugger-invocation-during-c… =============== Diff against SUnit-nice.124 =============== Item was changed: ----- Method: TestFailure>>defaultAction (in category 'camp smalltalk') ----- defaultAction + ^ Processor + debugContext: self signalerContext + title: self description + full: false + contents: nil! - Processor activeProcess - debug: self signalerContext - title: self description!

1 0

The Trunk: Morphic-mt.1741.mcz
by commits＠source.squeak.org 15 Mar '21

15 Mar '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1741.mcz ==================== Summary ==================== Name: Morphic-mt.1741 Author: mt Time: 15 March 2021, 11:23:13.100586 am UUID: 2e5a5c44-9fab-6d41-ba67-e94d99da9a07 Ancestors: Morphic-mt.1740 Complements Kernel-mt.1381 Fixes for debugger invocation during code simulation. See http://forum.world.st/Please-try-out-Fixes-for-debugger-invocation-during-c… =============== Diff against Morphic-mt.1740 =============== Item was added: + ----- Method: DialogWindow>>browseInvocation (in category 'running') ----- + browseInvocation + "Browse the first meaningful invocation method of the receiver." + + self exclusive: false. + + (thisContext findContextSuchThat: self invocationContextPredicate) method browse.! Item was changed: ----- Method: DialogWindow>>debugInvocation (in category 'running') ----- debugInvocation + "Bring up a debugger on the active process, displaying the invocation of the receiver. Strip off irrelevant stack frames that are an implementation detail of the invocation." + self exclusive: false. + + ^ Processor + debugContextThat: self invocationContextPredicate + title: 'Dialog invocation' translated + full: true! - Processor activeProcess - debug: self findInvocationContext - title: 'Dialog invocation'! Item was removed: - ----- Method: DialogWindow>>exploreInvocation (in category 'running') ----- - exploreInvocation - - self exclusive: false. - (self findInvocationContext stack collect: #method) - explore! Item was removed: - ----- Method: DialogWindow>>findInvocationContext (in category 'running') ----- - findInvocationContext - - | context | - context := thisContext. - [context method selector = #getUserResponse and: [context isMethodContext]] - whileFalse: [context := context sender]. - ^ context! Item was added: + ----- Method: DialogWindow>>invocationContextPredicate (in category 'private') ----- + invocationContextPredicate + + | searchPhase hiddenCategories | + self flag: #todo. "ct: Currently, this might cut away a few contexts too much when a dialog window is opened from Morphic code (e.g., SystemWindow>>relabel) directly. With the introduction of UserNotifications, however, this problem will be solved because there will be always an external context between the client and the receiver. See http://forum.world.st/Discussion-Warning-vs-Halt-or-quot-Why-is-a-warning-a… and others." + + searchPhase := true. + hiddenCategories := #('Morphic-Windows' 'ToolBuilder-Kernel' 'ToolBuilder-Morphic' 'ToolBuilder-Morphic-Tools'). + ^ [:ctx | + searchPhase + ifTrue: [ "search invocation context" + (ctx isMethodContext and: [ctx method selector = #getUserResponse]) + ifTrue: [searchPhase := false]. + false] + ifFalse: [ "filter out irrelevant contexts" + (hiddenCategories includes: ctx receiver class category) not]]! Item was changed: ----- Method: DialogWindow>>offerDialogMenu (in category 'running') ----- offerDialogMenu | menu | menu := MenuMorph new defaultTarget: self. menu add: (exclusive == true ifTrue: ['<yes>'] ifFalse: ['<no>']), 'be modally exclusive' translated action: #toggleExclusive; addLine; + add: 'browse invocation' translated + action: #browseInvocation; + add: 'debug invocation' translated - add: 'explore dialog invocation' translated - action: #exploreInvocation; - add: 'debug dialog invocation' translated action: #debugInvocation. menu popUpEvent: self currentEvent in: self world. [menu isInWorld] whileTrue: [self world doOneSubCycle]. self exclusive ifTrue: [self activeHand newMouseFocus: self].!

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2021