Squeak-dev October 2022

squeak-dev@lists.squeakfoundation.org

22 participants
146 discussions

The Trunk: Regex-Tests-Core-ct.32.mcz
by commits＠source.squeak.org 12 Oct '22

12 Oct '22

Christoph Thiede uploaded a new version of Regex-Tests-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Tests-Core-ct.32.mcz ==================== Summary ==================== Name: Regex-Tests-Core-ct.32 Author: ct Time: 12 October 2022, 3:43:55.590412 pm UUID: a5d9868e-f796-6741-940e-fb354d590aea Ancestors: Regex-Tests-Core-ct.31 Complements Regex-Core-ct.84 (ordering of keyed subexpression ranges). =============== Diff against Regex-Tests-Core-ct.31 =============== Item was changed: ----- Method: RxMatcherTest>>testKeyedSubexpressions (in category 'testing-protocol') ----- testKeyedSubexpressions { #('abc' () ()). #('(\w)+' () ()). {'(?<foo>a)b(c)'. #(foo ('a')). {#foo. {1 to: 1}}}. {'(?<foo>\w+)'. #(foo ('abc')). {#foo. {1 to: 3}}}. {'(?<foo>\w)+'. #(foo ('a' 'b' 'c')). {#foo. {1 to: 1. 2 to: 2. 3 to: 3}}}. + {'(?<foo>((?<foo>b)|(?<foo>[^b]))+)'. #(foo ('a' 'b' 'c' 'abc' )). {#foo. {1 to: 1. 2 to: 2. 3 to: 3. 1 to: 3}}}. #('abc(?<foo>\w)?' (foo ()) (foo ())) } do: [:spec | | matcher | matcher := spec first asRegex. self assert: (matcher matches: 'abc'). self assert: (Dictionary newFromPairs: spec second) equals: matcher allKeyedSubexpressions. self assert: (Dictionary newFromPairs: spec third) associations equals: (matcher keyedMarkers collect: [:key | key -> (matcher keyedSubexpressionRanges: key) asArray])].!

1 0

The Trunk: Regex-Core-ct.84.mcz
by commits＠source.squeak.org 12 Oct '22

12 Oct '22

Christoph Thiede uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ct.84.mcz ==================== Summary ==================== Name: Regex-Core-ct.84 Author: ct Time: 12 October 2022, 3:43:39.287412 pm UUID: 5d80a0f0-0d3e-a84f-92af-0aec4b5512db Ancestors: Regex-Core-ct.83 Fixes ordering of keyed subexpression ranges. =============== Diff against Regex-Core-ct.83 =============== Item was changed: ----- Method: RxMatcher>>keyedSubexpressionRanges: (in category 'accessing') ----- keyedSubexpressionRanges: key "Answer an array of all match ranges (inclusiveStart -> inclusiveStop) of the subexpression at the given key." + ^ ((keyedMarkerPositions at: key) gather: [:pair | - ^ (keyedMarkerPositions at: key) gather: [:pair | (markerPositions at: pair first) with: (markerPositions at: pair second) + collect: [:start :stop | start + 1 to: stop]]) + "Since the same key can be defined for multiple markers, ordering the matches is non-trivial." + sort: [:range | range stop] ascending! - collect: [:start :stop | start + 1 to: stop]]!

1 0

The Trunk: Regex-Core-ct.83.mcz
by commits＠source.squeak.org 12 Oct '22

12 Oct '22

Christoph Thiede uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ct.83.mcz ==================== Summary ==================== Name: Regex-Core-ct.83 Author: ct Time: 12 October 2022, 3:20:39.299412 pm UUID: c683e8df-5bf8-8748-9241-aabd0f884932 Ancestors: Regex-Core-ct.82 Repairs UIManager>>#request:regex:. =============== Diff against Regex-Core-ct.82 =============== Item was changed: ----- Method: UIManager>>request:regex: (in category '*Regex-Core') ----- request: aTitleString regex: initialRegexString "Prompt the user for a valid regex. Return nil on cancel or a valid RxMatcher" | regex | regex := initialRegexString. "loop until we get a valid regex string back" [ + regex := self - regex := UIManager default multiLineRequest: aTitleString + centerAt: Sensor cursorPoint initialAnswer: regex answerHeight: 200. "cancelled dialog ==> nil" regex ifNil: [ ^ nil ]. + [ ^ regex asRegex ] on: Error do: [ :regexParsingError | + self inform: 'Bad Regex: ', regexParsingError asString ]. - [ ^ regex asRegex ] on: Error do: [ :regexParsingError| - self defer: [ self inform: 'Bad Regex: ', regexParsingError asString ]]. ] repeat.!

1 0

The Trunk: Regex-Core-ct.82.mcz
by commits＠source.squeak.org 12 Oct '22

12 Oct '22

Christoph Thiede uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ct.82.mcz ==================== Summary ==================== Name: Regex-Core-ct.82 Author: ct Time: 12 October 2022, 3:07:26.700412 pm UUID: 9854ef71-758d-6e44-8761-0fe1f5681198 Ancestors: Regex-Core-ct.81 Minor refactoring: In #syntaxLookaround:, only pass receiver like in other dispatch selectors. Slightly recategorizes RxmLink and RxsNode hierarchy and adds missing abstract #dispatchTo:. Removes unused private initialization selectors from RxsLookaround and RxsMessagePredicate. Renames RxsMessagePredicate>>#negated into #isNegated to avoid confusion with #negated implementation of RxsCharacter et al. =============== Diff against Regex-Core-ct.81 =============== Item was added: + ----- Method: RxMatchOptimizer>>syntaxLookaround: (in category 'double dispatch') ----- + syntaxLookaround: lookaroundNode + "Do nothing."! Item was removed: - ----- Method: RxMatchOptimizer>>syntaxLookaround:forward:positive: (in category 'double dispatch') ----- - syntaxLookaround: lookaroundNode forward: forward positive: positive - "Do nothing."! Item was changed: ----- Method: RxMatchOptimizer>>syntaxMessagePredicate: (in category 'double dispatch') ----- syntaxMessagePredicate: messagePredicateNode + messagePredicateNode isNegated ifTrue: [ - messagePredicateNode negated ifTrue: [ ^self addNonMethodPredicate: messagePredicateNode selector ]. self addMethodPredicate: messagePredicateNode selector! Item was added: + ----- Method: RxMatcher>>syntaxLookaround: (in category 'double dispatch') ----- + syntaxLookaround: lookaroundNode + "Double dispatch from the syntax tree. + Special link can handle lookarounds (look ahead and look behind, positive and negative)." + | piece | + piece := lookaroundNode piece dispatchTo: self. + piece terminateWith: RxmTerminator new. "see commment in RxmLookaround>>#terminateWith:" + ^ RxmLookaround + with: piece + forward: lookaroundNode forward + positive: lookaroundNode positive! Item was removed: - ----- Method: RxMatcher>>syntaxLookaround:forward:positive: (in category 'double dispatch') ----- - syntaxLookaround: lookaroundNode forward: forwardBoolean positive: positiveBoolean - "Double dispatch from the syntax tree. - Special link can handle lookarounds (look ahead and look behind, positive and negative)." - | piece | - piece := lookaroundNode piece dispatchTo: self. - piece terminateWith: RxmTerminator new. "see commment in RxmLookaround>>#terminateWith:" - ^ RxmLookaround with: piece forward: forwardBoolean positive: positiveBoolean! Item was changed: ----- Method: RxMatcher>>syntaxMessagePredicate: (in category 'double dispatch') ----- syntaxMessagePredicate: messagePredicateNode "Double dispatch from the syntax tree. Special link can handle predicates." + ^messagePredicateNode isNegated - ^messagePredicateNode negated ifTrue: [RxmPredicate new bePerformNot: messagePredicateNode selector] ifFalse: [RxmPredicate new bePerform: messagePredicateNode selector]! Item was changed: + ----- Method: RxmLink>>printOn: (in category 'printing') ----- - ----- Method: RxmLink>>printOn: (in category 'as yet unclassified') ----- printOn: stream super printOn: stream. stream nextPut: $(; print: self identityHash; nextPutAll: ', '; print: (next ifNotNil: [ next identityHash ]); nextPut: $)! Item was changed: ----- Method: RxmLookaround>>terminateWith: (in category 'building') ----- terminateWith: aNode "Documentation only. The inner lookaround piece is terminated separately during the construction of the receiver. Lookaround links may not receive #terminateWith: if they are located in a loopback branch, but the inner piece does *not* contain a path to the next link of the receiver." + ^super terminateWith: aNode! - super terminateWith: aNode! Item was changed: + ----- Method: RxsBranch>>dispatchTo: (in category 'building') ----- - ----- Method: RxsBranch>>dispatchTo: (in category 'accessing') ----- dispatchTo: aMatcher "Inform the matcher of the kind of the node, and it will do whatever it has to." ^aMatcher syntaxBranch: self! Item was changed: + ----- Method: RxsCharSet>>dispatchTo: (in category 'building') ----- - ----- Method: RxsCharSet>>dispatchTo: (in category 'accessing') ----- dispatchTo: aMatcher "Inform the matcher of the kind of the node, and it will do whatever it has to." ^aMatcher syntaxCharSet: self! Item was changed: + ----- Method: RxsCharSet>>enumerateTo: (in category 'building') ----- - ----- Method: RxsCharSet>>enumerateTo: (in category 'accessing') ----- enumerateTo: aSet negated ifTrue: [^ self "Not enumerable"]. ^ elements do: [:each | each enumerateTo: aSet]! Item was changed: + ----- Method: RxsCharacter>>dispatchTo: (in category 'building') ----- - ----- Method: RxsCharacter>>dispatchTo: (in category 'accessing') ----- dispatchTo: aMatcher "Inform the matcher of the kind of the node, and it will do whatever it has to." ^aMatcher syntaxCharacter: self! Item was changed: + ----- Method: RxsCharacter>>enumerateTo: (in category 'building') ----- - ----- Method: RxsCharacter>>enumerateTo: (in category 'accessing') ----- enumerateTo: aSet ^aSet add: character! Item was changed: + ----- Method: RxsContextCondition>>dispatchTo: (in category 'building') ----- - ----- Method: RxsContextCondition>>dispatchTo: (in category 'accessing') ----- dispatchTo: aBuilder ^aBuilder perform: kind! Item was removed: - ----- Method: RxsLookaround>>beLookahead (in category 'initialize-release') ----- - beLookahead - forward := true! Item was removed: - ----- Method: RxsLookaround>>beLookbehind (in category 'initialize-release') ----- - beLookbehind - forward := false! Item was removed: - ----- Method: RxsLookaround>>beNegative (in category 'initialize-release') ----- - beNegative - positive := false! Item was removed: - ----- Method: RxsLookaround>>bePositive (in category 'initialize-release') ----- - bePositive - positive := true! Item was changed: + ----- Method: RxsLookaround>>dispatchTo: (in category 'building') ----- - ----- Method: RxsLookaround>>dispatchTo: (in category 'accessing') ----- dispatchTo: aBuilder "Inform the matcher of the kind of the node, and it will do whatever it has to." + ^aBuilder syntaxLookaround: self! - ^aBuilder syntaxLookaround: self forward: self forward positive: self positive! Item was changed: ----- Method: RxsLookaround>>initialize (in category 'initialize-release') ----- initialize super initialize. + positive := true.! - self bePositive.! Item was changed: + ----- Method: RxsMessagePredicate>>dispatchTo: (in category 'building') ----- - ----- Method: RxsMessagePredicate>>dispatchTo: (in category 'accessing') ----- dispatchTo: aBuilder "Inform the matcher of the kind of the node, and it will do whatever it has to." ^aBuilder syntaxMessagePredicate: self! Item was removed: - ----- Method: RxsMessagePredicate>>initializeSelector: (in category 'initialize-release') ----- - initializeSelector: aSelector - "The selector must be a one-argument message understood by Character." - - selector := aSelector! Item was added: + ----- Method: RxsMessagePredicate>>isNegated (in category 'accessing') ----- + isNegated + + ^negated! Item was removed: - ----- Method: RxsMessagePredicate>>negated (in category 'accessing') ----- - negated - - ^negated! Item was added: + ----- Method: RxsNode>>dispatchTo: (in category 'building') ----- + dispatchTo: aMatcher + "Inform the matcher of the kind of the node, and it will do whatever it has to." + + ^ self subclassResponsibility! Item was changed: + ----- Method: RxsPiece>>dispatchTo: (in category 'building') ----- - ----- Method: RxsPiece>>dispatchTo: (in category 'accessing') ----- dispatchTo: aMatcher "Inform the matcher of the kind of the node, and it will do whatever it has to." ^aMatcher syntaxPiece: self! Item was changed: + ----- Method: RxsPredicate>>dispatchTo: (in category 'building') ----- - ----- Method: RxsPredicate>>dispatchTo: (in category 'accessing') ----- dispatchTo: anObject ^anObject syntaxPredicate: self! Item was changed: + ----- Method: RxsPredicate>>enumerateTo: (in category 'building') ----- - ----- Method: RxsPredicate>>enumerateTo: (in category 'accessing') ----- enumerateTo: aSet ^self "Not enumerable"! Item was changed: + ----- Method: RxsPredicate>>negated (in category 'converting') ----- - ----- Method: RxsPredicate>>negated (in category 'accessing') ----- negated ^self copy negate! Item was added: + ----- Method: RxsRange>>dispatchTo: (in category 'building') ----- + dispatchTo: aMatcher + "To be wrapped into a RxsCharSet first." + + ^self shouldNotImplement! Item was changed: + ----- Method: RxsRange>>enumerateTo: (in category 'building') ----- - ----- Method: RxsRange>>enumerateTo: (in category 'accessing') ----- enumerateTo: aSet "Add all of the elements I represent to the collection." first asInteger to: last asInteger do: [ :charCode | aSet add: charCode asCharacter ]. ^self! Item was changed: + ----- Method: RxsRegex>>beNonCapturing (in category 'initialize-release') ----- - ----- Method: RxsRegex>>beNonCapturing (in category 'accessing') ----- beNonCapturing isCapturing := false.! Item was changed: + ----- Method: RxsRegex>>dispatchTo: (in category 'building') ----- - ----- Method: RxsRegex>>dispatchTo: (in category 'accessing') ----- dispatchTo: aMatcher "Inform the matcher of the kind of the node, and it will do whatever it has to." ^aMatcher syntaxRegex: self!

1 0

The Trunk: Regex-Core-ct.81.mcz
by commits＠source.squeak.org 12 Oct '22

12 Oct '22

Christoph Thiede uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ct.81.mcz ==================== Summary ==================== Name: Regex-Core-ct.81 Author: ct Time: 12 October 2022, 2:42:12.805412 pm UUID: 5daa8bb4-0f9b-d34f-9cc0-2e0316ccd4ff Ancestors: Regex-Core-ct.80 Documentation only: Minor refactoring to EBNF specification in parsers. Unifies use of spaces and escaping. =============== Diff against Regex-Core-ct.80 =============== Item was changed: ----- Method: RxAbstractParser>>codePoint: (in category 'recursive descent') ----- codePoint: size "Matches a character that has the given code codepoint with the specified size of hex digits, unless braced. + <codePoint> ::= \x ( '{' <hex> '}' | size * <hex> ) " - <codePoint> ::= \x ({<hex>} | <hex>[size])" | braced codeString codePoint codeStream | braced := self tryMatch: ${. codeString := braced ifFalse: [self input: size errorMessage: 'invalid codepoint'] ifTrue: [self inputUpTo: $} errorMessage: 'no terminating "}"']. codeStream := codeString readStream. codePoint := ((ExtendedNumberParser on: codeStream) defaultBase: 16; nextInteger "allow the stream to change the base -- beware: any new base is specified in base 16!!") ifNil: [ self signalParseError: 'invalid codepoint']. codeStream atEnd ifFalse: [ self signalParseError: 'invalid codepoint']. braced ifTrue: [ self match: $}]. ^ RxsCharacter with: (Character codePoint: codePoint)! Item was changed: ----- Method: RxAbstractParser>>unicodeCategory (in category 'recursive descent') ----- unicodeCategory "Matches a character that belongs to the given unicode category. + <unicodeCategory> ::= \p '{' <categoryName> '}' " - <unicodeCategory> ::= \p '{' <categoryName> '}'" | category | self match: ${. category := self inputUpTo: $} errorMessage: 'no terminating "}"'. self match: $}. RxsPredicate supportsUnicode ifFalse: [self signalParseError: 'unicode support is not available']. (RxsPredicate isValidUnicodeCategory: category) ifFalse: [self signalParseError: 'unknown unicode category: ' , category]. ^ RxsPredicate new beUnicodeCategory: category! Item was changed: ----- Method: RxParser>>piece (in category 'recursive descent') ----- piece + "<piece> ::= <atom> + | <atom> '*' | <atom> '+' | <atom> '?' + | <atom> '{' <number> ',' <number> '}' " - "<piece> ::= <atom> | <atom>* | <atom>+ | <atom>? | <atom>{<number>,<number>}" | atom | atom := self atom. lookahead == $* ifTrue: [ self next. ^ RxsPiece new initializeStarAtom: atom ]. lookahead == $+ ifTrue: [ self next. ^ RxsPiece new initializePlusAtom: atom ]. lookahead == $? ifTrue: [ self next. ^ RxsPiece new initializeOptionalAtom: atom ]. lookahead == ${ ifTrue: [ ^ self quantifiedAtom: atom ]. ^ RxsPiece new initializeAtom: atom! Item was changed: ----- Method: RxParser>>regex (in category 'recursive descent') ----- regex + "<regex> ::= e | <branch> '|' <regex> " - "<regex> ::= e | <branch> `|' <regex>" | branch regex | branch := self branch. (lookahead == nil or: [ lookahead == $) ]) ifTrue: [ regex := nil ] ifFalse: [ self match: $|. regex := self regex ]. ^RxsRegex new initializeBranch: branch regex: regex!

1 0

Traits use to provide class protocol in a browser?
by rabbit 12 Oct '22

12 Oct '22

Currently inspecting and selecting an eventual ref blows up the image. The cause is unknown. Selecting ‘all inst variables’ does not. I’ll need to look 👀 into this. An eref references a remote class, so if an eref needs to display in the browser the protocol for that class. Can a class trait be attached to an instance to allow this? Will the trait means calls to a method on that classTrait runs that method? Is there a way to have a classTrait to provide the message interface without the methods being implemented on that eref, such that those classTrait protocol methods get forwarded to the eventualeé? I know so little about Traits! Are they similar to Java’s interfaces? Have a good one; keep it, light. Kindly, rabbit . .. … ‘…^,^ Sent from Callisto House Mobile :: decentralized mobile homeless solutions Der Anführer kontrolliert alles, 🐇🐇🐇🐇🐇🐇

2 20

Who dem? When?
by rabbit 12 Oct '22

12 Oct '22

Revelations 11:1-6 [1 And there was given me a reed like unto a rod: and the angel stood, saying, Rise, and measure the temple of God, and the altar, and them that worship therein. 2 But the court which is without the temple leave out, and measure it not; for it is given unto the Gentiles: and the holy city shall they tread under foot forty and two months. 3 And I will give power unto my two witnesses, and they shall prophesy a thousand two hundred and threescore days, clothed in sackcloth. 4 These are the two olive trees, and the two candlesticks standing before the God of the earth. 5 And if any man will hurt them, fire proceedeth out of their mouth, and devoureth their enemies: and if any man will hurt them, he must in this manner be killed. 6 These have power to shut heaven, that it rain not in the days of their prophecy: and have power over waters to turn them to blood, and to smite the earth with all plagues, as often as they will.] — Have a good one; keep it, light. Kindly, rabbit . .. … ‘…^,^ 🐇🐇🐇🐇🐇🐇 <𝙃𝙖𝙨𝙝𝙏𝙖𝙜: #𝙎𝙦𝙪𝙚𝙖𝙠𝙀𝙖𝙯𝙮𝙎𝙦𝙒𝙖𝙮𝙎𝙦𝙒𝙚𝙎𝙦𝙒𝙖𝙡𝙡> ———- #SqueakEazy “(…𝙛𝙤𝙧𝙩𝙝𝙘𝙤𝙢𝙞𝙣𝙜 𝙢𝙚𝙩𝙖𝙫𝙚𝙧𝙨𝙚…)” - - - - - - “Bootsattap” <#SqueakEazy𝗜𝗶𝗻𝘀𝘁𝗮𝗻𝘁𝗜𝗶𝗮𝘁𝗜𝗶𝗻𝗴𝗣𝗲𝗻𝗱𝗜𝗶𝗻𝗴> “𝗥𝗲𝗽𝗹𝗶𝗰𝗮𝘁𝗶𝗻𝗴 𝘁𝗵𝗲 𝗦𝗶𝘀𝘁𝗲𝗿𝘀” <#𝗗𝗶𝗲𝗔𝗻𝗳𝘂̈𝗵𝗿𝗲𝗿𝗞𝗼𝗻𝘁𝗿𝗼𝗹𝗹𝗶𝗲𝗿𝘁𝗔𝗹𝗹𝗲𝘀 . .. …. ‘…^,^> <#𝗗𝗶𝗲𝗔𝗻𝗳𝘂̈𝗵𝗿𝗲𝗿𝗞𝗼𝗻𝘁𝗿𝗼𝗹𝗹𝗶𝗲𝗿𝘁𝗔𝗹𝗹𝗲𝘀 . .. …. ‘…^,^> <#𝗗𝗶𝗲𝗔𝗻𝗳𝘂̈𝗵𝗿𝗲𝗿𝗞𝗼𝗻𝘁𝗿𝗼𝗹𝗹𝗶𝗲𝗿𝘁𝗔𝗹𝗹𝗲𝘀 . .. …. ‘…^,^> ————— 𝙒𝙝𝙚𝙧𝙚’𝙨 𝙒𝙤𝙤𝙙𝙮 𝙛𝙧𝙤𝙢 𝙢𝙖𝙧𝙠𝙚𝙩𝙞𝙣𝙜? ^,^ ————— 𝙎𝙚𝙣𝙩 𝙛𝙧𝙤𝙢 𝘾𝙖𝙡𝙡𝙞𝙨𝙩𝙤 𝙃𝙤𝙪𝙨𝙚 𝙈𝙤𝙗𝙞𝙡𝙚 :: 𝙙𝙚𝙘𝙚𝙣𝙩𝙧𝙖𝙡𝙞𝙯𝙚𝙙 𝙢𝙤𝙗𝙞𝙡𝙚 𝙝𝙤𝙢𝙚𝙡𝙚𝙨𝙨 𝙨𝙤𝙡𝙪𝙩𝙞𝙤𝙣𝙨 —————

1 4

Squeak mapping, active plotting, gauge displays and accelerometer gps data integration?
by rabbit 12 Oct '22

12 Oct '22

Callisto, virginal nymph of Artemis’ crew, begat Arcus, through Zeus. Hera, pissed, turned her into a bear. Upon her imminent hunting death, Zeus transformed her into Ursa Major. Their son, Arcus, Ursa Minor, which holds the Polaris, around which we all rotate. The Axis of our universal perspectives, in circular fashion. Joe, which would you say would calculate the rotational momentum of the Universe? A magnetic motor. Which Way is Which What? I wonder if we’ve a magnetic mapping of our visible universe… or a charge/electric field estimate distribution of the universe. There are all sorts of Magnetic artifacts in the universe, the sun, and the earth for instances… Magnetic fields driving electric fields driving magnetic fields… happens in a vacuum, no need for any medium. Psychics are overrated. — Have a good one; keep it, light. Kindly, rabbit . .. … ‘…^,^ 🐇🐇🐇🐇🐇🐇 <𝙃𝙖𝙨𝙝𝙏𝙖𝙜: #𝙎𝙦𝙪𝙚𝙖𝙠𝙀𝙖𝙯𝙮𝙎𝙦𝙒𝙖𝙮𝙎𝙦𝙒𝙚𝙎𝙦𝙒𝙖𝙡𝙡> ———- #SqueakEazy “(…𝙛𝙤𝙧𝙩𝙝𝙘𝙤𝙢𝙞𝙣𝙜 𝙢𝙚𝙩𝙖𝙫𝙚𝙧𝙨𝙚…)” - - - - - - “ 𝐁𝐨𝐨𝐭𝐬𝐚𝐭𝐫𝐚𝐩” <#𝐒𝐪𝐮𝐞𝐚𝐤𝐄𝐚𝐳𝐲𝗜𝗶𝗻𝘀𝘁𝗮𝗻𝘁𝗜𝗶𝗮𝘁𝗜𝗶𝗻𝗴𝗣𝗲𝗻𝗱𝗜𝗶𝗻𝗴> “𝗥𝗲𝗽𝗹𝗶𝗰𝗮𝘁𝗶𝗻𝗴 𝘁𝗵𝗲 𝗦𝗶𝘀𝘁𝗲𝗿𝘀” <#𝑫𝒊𝒆𝑨𝒏𝒇𝒖̈𝒉𝒓𝒆𝒓𝗞𝗼𝗻𝘁𝗿𝗼𝗹𝗹𝗶𝗲𝗿𝘁𝗔𝗹𝗹𝗲𝘀 . .. …. ‘…^,^> <#𝑫𝒊𝒆𝑨𝒏𝒇𝒖̈𝒉𝒓𝒆𝒓𝗞𝗼𝗻𝘁𝗿𝗼𝗹𝗹𝗶𝗲𝗿𝘁𝗔𝗹𝗹𝗲𝘀 . .. …. ‘…^,^> <#𝑫𝒊𝒆𝑨𝒏𝒇𝒖̈𝒉𝒓𝒆𝒓𝗞𝗼𝗻𝘁𝗿𝗼𝗹𝗹𝗶𝗲𝗿𝘁𝗔𝗹𝗹𝗲𝘀 . .. …. ‘…^,^> ————— 𝙒𝙝𝙚𝙧𝙚’𝙨 𝙒𝙤𝙤𝙙𝙮 𝙛𝙧𝙤𝙢 𝙢𝙖𝙧𝙠𝙚𝙩𝙞𝙣𝙜? ^,^ ————— 𝙎𝙚𝙣𝙩 𝙛𝙧𝙤𝙢 𝘾𝙖𝙡𝙡𝙞𝙨𝙩𝙤 𝙃𝙤𝙪𝙨𝙚 𝙈𝙤𝙗𝙞𝙡𝙚 :: 𝙙𝙚𝙘𝙚𝙣𝙩𝙧𝙖𝙡𝙞𝙯𝙚𝙙 𝙢𝙤𝙗𝙞𝙡𝙚 𝙝𝙤𝙢𝙚𝙡𝙚𝙨𝙨 𝙨𝙤𝙡𝙪𝙩𝙞𝙤𝙣𝙨 —————

1 0

The Inbox: System-ct.1373.mcz
by commits＠source.squeak.org 12 Oct '22

12 Oct '22

Christoph Thiede uploaded a new version of System to project The Inbox: http://source.squeak.org/inbox/System-ct.1373.mcz ==================== Summary ==================== Name: System-ct.1373 Author: ct Time: 12 October 2022, 10:23:28.580894 am UUID: 3305a796-cbc2-ac4e-a29f-0c3050d6b258 Ancestors: System-ct.1372 Proposal: When failing to open the sources or changes files, make it possible to retry from the dialog. Improves multilingual support. =============== Diff against System-ct.1372 =============== Item was changed: ----- Method: SmalltalkImage>>openSourcesAndChanges:forImage: (in category 'image, changes names') ----- openSourcesAndChanges: changesName forImage: imageName "Open the changes and sources files and install them in SourceFiles. Inform the user of problems regarding write permissions or CR/CRLF mixups." "Note: SourcesName and imageName are full paths; changesName is a local name." + | sources changes rmsg wmsg msgBlock | + rmsg := 'Squeak cannot locate {1}. - | sources changes msg wmsg | - msg := 'Squeak cannot locate {1}. + Please check that the file is named properly and is in the same directory as this image.' translated. - Please check that the file is named properly and is in the same directory as this image.'. wmsg := 'Squeak cannot write to {1}. Please check that you have write permission for this file. + You won''t be able to save this image correctly until you fix this.' translated. + msgBlock := [:msg | (Project uiManager + chooseOptionFromLabeledValues: (OrderedDictionary new + at: 'retry' translated put: [ + self closeSourceFiles. + ^ self openSourcesAndChanges: changesName forImage: imageName]; + at: 'ignore' translated put: []; + yourself) + title: msg) + value]. + - You won''t be able to save this image correctly until you fix this.'. - sources := Smalltalk openSources. sources ifNotNil: [sources setConverterForCode]. changes := Smalltalk openChanges: changesName forImage: imageName. changes ifNotNil: [changes setConverterForCode]. + - ((sources == nil or: [sources atEnd]) + and: [Preferences valueOfFlag: #warnIfNoSourcesFile]) + ifTrue: [ + Smalltalk platformName = 'Mac OS' + ifTrue: [rmsg := rmsg , ' + Make sure the sources file is not an Alias.' translated]. + msgBlock value: (rmsg format: { 'the sources file named {1}' translated format: {self sourcesName} })]. + - and: [Preferences valueOfFlag: #warnIfNoSourcesFile]) - ifTrue: [Smalltalk platformName = 'Mac OS' - ifTrue: [msg := msg , ' - Make sure the sources file is not an Alias.']. - self inform: (msg format: { 'the sources file named ' , self sourcesName })]. - (changes == nil + and: [Preferences valueOfFlag: #warnIfNoChangesFile]) + ifTrue: [msgBlock value: (rmsg format: { 'the changes file named {1}' translated format: {changesName} })]. + - and: [Preferences valueOfFlag: #warnIfNoChangesFile]) - ifTrue: [self inform: (msg format: { 'the changes file named ' , changesName })]. - ((Preferences valueOfFlag: #warnIfNoChangesFile) and: [changes notNil]) + ifTrue: [ + changes isReadOnly + ifTrue: [msgBlock value: (wmsg format: { 'the changes file named ' , changesName })]. + + ((changes next: 200) includesSubstring: String crlf) + ifTrue: [msgBlock value: ('The changes file named {1} has been injured by an unpacking utility. Line endings were changed from Cr to CrLf. Please set the preferences in your decompressing program to - ifTrue: [changes isReadOnly - ifTrue: [self inform: (wmsg format: { 'the changes file named ' , changesName })]. - - ((changes next: 200) - includesSubstring: String crlf) - ifTrue: [self inform: ('The changes file named {1} has been injured by an unpacking utility. Line endings were changed from Cr to CrLf. Please set the preferences in your decompressing program to do not convert text files and unpack the system again.' translated format: { changesName }) asTextFromHtml]]. + - SourceFiles := Array with: sources with: changes!

1 0

The Trunk: Regex-Core-ct.79.mcz
by commits＠source.squeak.org 11 Oct '22

11 Oct '22

Christoph Thiede uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ct.79.mcz ==================== Summary ==================== Name: Regex-Core-ct.79 Author: ct Time: 11 October 2022, 3:09:29.215455 pm UUID: b733e45e-0504-774d-967a-7e4c4bb892cd Ancestors: Regex-Core-ct.78 Fixes regression in lookarounds with branches. See Regex-Tests-Core-ct.31. =============== Diff against Regex-Core-ct.78 =============== Item was changed: ----- Method: RxMatcher>>syntaxRegex: (in category 'double dispatch') ----- syntaxRegex: regexNode "Double dispatch from the syntax tree. Regex node is a chain of branches to be tried. Should compile this into a bundle of parallel branches, between two marker nodes." | startNode endNode alternatives | + regexNode isCapturing + ifTrue: [ + startNode := RxmMarker new index: self allocateMarker. + endNode := RxmMarker new index: self allocateMarker] + ifFalse: [ + endNode := RxmLink new "A single endNode is required that all branches of the answer must point to for termination."]. - regexNode isCapturing ifFalse: [ - ^ regexNode branch dispatchTo: self]. - startNode := RxmMarker new index: self allocateMarker. - endNode := RxmMarker new index: self allocateMarker. - regexNode key ifNotNil: [:key | self registerMarkerKey: key from: startNode index to: endNode index]. alternatives := self hookBranchOf: regexNode onto: endNode. + startNode ifNil: [^ alternatives]. ^ startNode pointTailTo: alternatives; yourself!

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
15
Older →

Jump to page: