Squeak-dev April 2017

squeak-dev@lists.squeakfoundation.org

48 participants
221 discussions

The Trunk: EToys-ul.294.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ul.294.mcz ==================== Summary ==================== Name: EToys-ul.294 Author: ul Time: 24 April 2017, 6:45:53.242181 pm UUID: e5de2bdd-eb92-463c-a91e-1cdd166b8e6e Ancestors: EToys-ul.293 - removed the #vmParameterAt:put: sends from KedamaMorph >> #calcTurtlesCount, and simplified it =============== Diff against EToys-ul.293 =============== Item was changed: ----- Method: KedamaMorph>>calcTurtlesCount (in category 'turtles') ----- calcTurtlesCount + turtleCount := turtlesDict detectSum: [ :each | each size ]! - turtleCount := 0. - turtlesDict do: [:a | turtleCount := turtleCount + a size]. - - Smalltalk vmParameterAt: 5 put: ((turtleCount * 3) min: 16000 max: 4000). - Smalltalk vmParameterAt: 6 put: ((turtleCount * 6) min: 32000 max: 8000). - !

1 0

- Update stream broken? Multilingual changes...
by Chris Cunningham 24 Apr '17

24 Apr '17

Hi. Just trying to update to latest, and ran into: [image: Inline image 1] while updating package Multilingual-pre.220.mcz. -cbc

5 6

The Trunk: Collections-ul.750.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.750.mcz ==================== Summary ==================== Name: Collections-ul.750 Author: ul Time: 24 April 2017, 3:36:04.668235 pm UUID: 766fe870-89dd-455b-b0e9-8b14c7ab8548 Ancestors: Collections-ul.749 SequenceableCollection changes: - #indexOfSubCollection:startingAt:ifAbsent: sends indexOfSubCollection:startingAt: - fix: #identityIndexOf:startingAt:ifAbsent: didn't use startIndex =============== Diff against Collections-ul.749 =============== Item was changed: ----- Method: SequenceableCollection>>identityIndexOf:startingAt:ifAbsent: (in category 'accessing') ----- identityIndexOf: anElement startingAt: startIndex ifAbsent: exceptionBlock "Answer the index of anElement within the receiver starting at startIndex. If the receiver does not contain anElement, answer the result of evaluating the argument, exceptionBlock." | index | + (index := self identityIndexOf: anElement startingAt: startIndex) = 0 ifFalse: [ ^index ]. - (index := self identityIndexOf: anElement startingAt: 1) = 0 ifFalse: [ ^index ]. ^exceptionBlock value! Item was changed: ----- Method: SequenceableCollection>>indexOfSubCollection:startingAt:ifAbsent: (in category 'accessing') ----- indexOfSubCollection: sub startingAt: start ifAbsent: exceptionBlock "Answer the index of the receiver's first element, such that that element equals the first element of sub, and the next elements equal the rest of the elements of sub. Begin the search at element start of the receiver. If no such match is found, answer the result of evaluating argument, exceptionBlock." + + | index | + (index := self indexOfSubCollection: sub startingAt: start) = 0 ifFalse: [ ^index ]. - | first index | - sub isEmpty ifTrue: [^ exceptionBlock value]. - first := sub first. - (start max: 1) to: self size - sub size + 1 do: - [:startIndex | - (self at: startIndex) = first ifTrue: - [index := 1. - [(self at: startIndex+index-1) = (sub at: index)] - whileTrue: - [index = sub size ifTrue: [^startIndex]. - index := index+1]]]. ^ exceptionBlock value!

1 0

The Trunk: UpdateStream-ul.10.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of UpdateStream to project The Trunk: http://source.squeak.org/trunk/UpdateStream-ul.10.mcz ==================== Summary ==================== Name: UpdateStream-ul.10 Author: ul Time: 24 April 2017, 1:17:07.109447 pm UUID: a7ad436f-7226-4d9b-98b2-e2541a7aa84e Ancestors: UpdateStream-ul.9 - rewrote senders of #clone to use #shallowCopy =============== Diff against UpdateStream-ul.9 =============== Item was changed: ----- Method: UpdateStreamDownloader class>>serverUrls (in category 'server urls') ----- serverUrls "Return the current list of server URLs. For code updates. Format of UpdateUrlLists is #( ('squeak updates' ('url1' 'url2')) ('some other updates' ('url3' 'url4')))" | list | list := UpdateUrlLists first last. "If there is a dead server, return a copy with that server last" Socket deadServer ifNotNil: [ + list shallowCopy withIndexDo: [:aName :ind | - list clone withIndexDo: [:aName :ind | (aName beginsWith: Socket deadServer) ifTrue: [ list := list asOrderedCollection. "and it's a copy" list removeAt: ind. list addLast: aName]] ]. ^ list asArray!

1 0

The Trunk: TrueType-ul.49.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-ul.49.mcz ==================== Summary ==================== Name: TrueType-ul.49 Author: ul Time: 24 April 2017, 1:16:55.146396 pm UUID: 872ce35f-3479-4c01-8c43-4acd73e74843 Ancestors: TrueType-ul.48 - rewrote senders of #clone to use #shallowCopy =============== Diff against TrueType-ul.48 =============== Item was changed: ----- Method: TTCFontReader>>readFrom:fromOffset:at: (in category 'as yet unclassified') ----- readFrom: fontData fromOffset: offset at: encodingTag | headerEntry maxProfileEntry nameEntry indexLocEntry charMapEntry glyphEntry horzHeaderEntry horzMetricsEntry kerningEntry glyphOffset cmap numHMetrics indexToLocFormat fontDescription0 fontDescription1 array result | "Search the tables required to build the font" (headerEntry := self getTableDirEntry: 'head' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a header table']. (maxProfileEntry := self getTableDirEntry: 'maxp' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a maximum profile table']. (nameEntry := self getTableDirEntry: 'name' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a name table']. (indexLocEntry := self getTableDirEntry: 'loca' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a relocation table']. (charMapEntry := self getTableDirEntry: 'cmap' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a character map table']. (glyphEntry := self getTableDirEntry: 'glyf' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a glyph table']. (horzHeaderEntry := self getTableDirEntry: 'hhea' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a horizontal header table']. (horzMetricsEntry := self getTableDirEntry: 'hmtx' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a horizontal metrics table']. (kerningEntry := self getTableDirEntry: 'kern' from: fontData offset: offset) == nil ifTrue:[ Transcript cr; show:'This font does not have a kerning table';endEntry]. "Process the data" indexToLocFormat := self processFontHeaderTable: headerEntry. self processMaximumProfileTable: maxProfileEntry. self processNamingTable: nameEntry. glyphOffset := self processIndexToLocationTable: indexLocEntry format: indexToLocFormat. cmap := self processCharacterMappingTable: charMapEntry. (cmap == nil or:[cmap value == nil]) ifTrue:[^self error:'This font has no suitable character mappings']. self processGlyphDataTable: glyphEntry offsets: glyphOffset. numHMetrics := self processHorizontalHeaderTable: horzHeaderEntry. self processHorizontalMetricsTable: horzMetricsEntry length: numHMetrics. kerningEntry isNil ifTrue:[kernPairs := #()] ifFalse:[self processKerningTable: kerningEntry]. array := self processCharMap: cmap. + fontDescription0 := fontDescription shallowCopy. + fontDescription1 := fontDescription shallowCopy. - fontDescription0 := fontDescription clone. - fontDescription1 := fontDescription clone. fontDescription0 setGlyphs: (array at: 1) mapping: (array at: 1).. fontDescription1 setGlyphs: (array at: 2) mapping: (array at: 2).. fontDescription0 setKernPairs: kernPairs. fontDescription1 setKernPairs: kernPairs. result := OrderedCollection new. (encodingTag = nil or: [encodingTag = 0]) ifTrue: [^ Array with: fontDescription1]. result add: fontDescription0. encodingTag -1 timesRepeat: [result add: nil]. result add: fontDescription1. ^ result asArray. !

1 0

The Trunk: Tools-ul.758.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.758.mcz ==================== Summary ==================== Name: Tools-ul.758 Author: ul Time: 24 April 2017, 1:16:28.553014 pm UUID: 48605681-865d-4eab-abd2-d8e5299d772d Ancestors: Tools-eem.757 - rewrote senders of #clone to use #shallowCopy =============== Diff against Tools-eem.757 =============== Item was changed: ----- Method: MethodFinder>>testFromTuple: (in category 'initialize') ----- testFromTuple: nth "verify that the methods allowed don't crash the system. Try N of each of the fundamental types. up to 4 of each kind." | objects nonRepeating even other aa cnt | objects := #((1 4 17 42) ($a $b $c $d) ('one' 'two' 'three' 'four') (x + rect: new) ((a b 1 4) (c 1 5) ($a 3 d) ()) (4.5 0.0 3.2 100.3) ). objects := objects, {{true. false. true. false}. {Point. SmallInteger. Association. Array}. {Point class. SmallInteger class. Association class. Array class}. "{ 4 blocks }." {Date today. '1 Jan 1950' asDate. '25 Aug 1987' asDate. '1 Jan 2000' asDate}. {'15:16' asTime. '1:56' asTime. '4:01' asTime. '6:23' asTime}. {Dictionary new. Dictionary new. Dictionary new. Dictionary new}. {#(a b 1 4) asOrderedCollection. #(c 1 5) asOrderedCollection. #($a 3 d) asOrderedCollection. #() asOrderedCollection}. {3 -> true. 5.6 -> $a. #x -> 2. 'abcd' -> false}. {9 @ 3 extent: 5 @ 4. 0 @ 0 extent: 45 @ 9. -3 @ -7 extent: 2 @ 2. 4 @ 4 extent: 16 @ 16}. {Color red. Color blue. Color black. Color gray}}. self test2: objects. "rec+0, rec+1, rec+2, rec+3 need to be tested. " cnt := 0. nth to: 4 do: [:take | nonRepeating := OrderedCollection new. objects do: [:each | nonRepeating addAll: (each copyFrom: 1 to: take)]. "all combinations of take, from nonRepeating" even := true. nonRepeating combinations: take atATimeDo: [:tuple | + even ifTrue: [other := tuple shallowCopy] - even ifTrue: [other := tuple clone] ifFalse: [self load: (aa := Array with: tuple with: 1 with: other with: 7). (cnt := cnt + 1) \\ 50 = 0 ifTrue: [ Transcript cr; show: aa first printString]. self search: true. self test2: aa. self test2: nonRepeating. "self test2: objects"]. even := even not]. ].! Item was changed: ----- Method: SavedMultiWindowState>>addNewWindow (in category 'operations') ----- addNewWindow + self addWindow: prototype shallowCopy! - self addWindow: prototype clone! Item was changed: ----- Method: SavedMultiWindowState>>on: (in category 'initialize-release') ----- on: aModel + prototype := aModel shallowCopy. - prototype := aModel clone. self addWindow: aModel!

1 0

The Trunk: System-ul.947.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.947.mcz ==================== Summary ==================== Name: System-ul.947 Author: ul Time: 24 April 2017, 1:15:54.622643 pm UUID: 58e89632-762c-42f4-a3d0-55c1d1dd9dba Ancestors: System-eem.946 - rewrote senders of #clone to use #shallowCopy =============== Diff against System-eem.946 =============== Item was changed: ----- Method: DeepCopier>>mapUniClasses (in category 'like fullCopy') ----- mapUniClasses "For new Uniclasses, map their class vars to the new objects. And their additional class instance vars. (scripts slotInfo) and cross references like (player321)." "Players also refer to each other using associations in the References dictionary. Search the methods of our Players for those. Make new entries in References and point to them." | pp newKey | newUniClasses ifFalse: [^ self]. "All will be siblings. uniClasses is empty" "Uniclasses use class vars to hold onto siblings who are referred to in code" pp := (Smalltalk at: #Player ifAbsent:[^self]) class superclass instSize. uniClasses do: [:playersClass | "values = new ones" playersClass classPool associationsDo: [:assoc | assoc value: (assoc value veryDeepCopyWith: self)]. playersClass scripts: (playersClass privateScripts veryDeepCopyWith: self). "pp+1" "(pp+2) slotInfo was deepCopied in copyUniClass and that's all it needs" pp+3 to: playersClass class instSize do: [:ii | playersClass instVarAt: ii put: ((playersClass instVarAt: ii) veryDeepCopyWith: self)]. ]. "Make new entries in References and point to them." References keys "copy" do: [:playerName | | oldPlayer | oldPlayer := References at: playerName. (references includesKey: oldPlayer) ifTrue: [ newKey := (references at: oldPlayer) "new player" uniqueNameForReference. "now installed in References" (references at: oldPlayer) renameTo: newKey]]. uniClasses "values" do: [:newClass | | newSelList oldSelList | oldSelList := OrderedCollection new. newSelList := OrderedCollection new. newClass selectorsAndMethodsDo: [:sel :m | m literals do: [:assoc | | newAssoc | assoc isVariableBinding ifTrue: [ (References associationAt: assoc key ifAbsent: [nil]) == assoc ifTrue: [ newKey := (references at: assoc value ifAbsent: [assoc value]) externalName asSymbol. (assoc key ~= newKey) & (References includesKey: newKey) ifTrue: [ newAssoc := References associationAt: newKey. newClass methodDictionary at: sel put: + (newClass compiledMethodAt: sel) shallowCopy. "were sharing it" - (newClass compiledMethodAt: sel) clone. "were sharing it" (newClass compiledMethodAt: sel) literalAt: ((newClass compiledMethodAt: sel) literals indexOf: assoc) put: newAssoc. (oldSelList includes: assoc key) ifFalse: [ oldSelList add: assoc key. newSelList add: newKey]]]]]]. oldSelList with: newSelList do: [:old :new | newClass replaceSilently: old to: new]]. "This is text replacement and can be wrong"! Item was changed: ----- Method: Project class>>sweep: (in category 'squeaklet on server') ----- sweep: aServerDirectory | repository list parts ind entry projectName versions | "On the server, move all but the three most recent versions of each Squeaklet to a folder called 'older'" "Project sweep: ((ServerDirectory serverNamed: 'DaniOnJumbo') clone directory: '/vol0/people/dani/Squeaklets/2.7')" "Ensure the 'older' directory" (aServerDirectory includesKey: 'older') ifFalse: [aServerDirectory createDirectory: 'older']. + repository := aServerDirectory shallowCopy directory: aServerDirectory directory, '/older'. - repository := aServerDirectory clone directory: aServerDirectory directory, '/older'. "Collect each name, and decide on versions" list := aServerDirectory fileNames. list isString ifTrue: [^ self inform: 'server is unavailable' translated]. list sort. parts := list collect: [:en | Project parseProjectFileName: en]. parts := parts select: [:en | en third = 'pr']. ind := 1. [entry := list at: ind. projectName := entry first asLowercase. versions := OrderedCollection new. versions add: entry. [(ind := ind + 1) > list size ifFalse: [(parts at: ind) first asLowercase = projectName ifTrue: [versions add: (parts at: ind). true] ifFalse: [false]] ifTrue: [false]] whileTrue. aServerDirectory moveYoungest: 3 in: versions to: repository. ind > list size] whileFalse. ! Item was changed: ----- Method: Project>>enter:revert:saveForRevert: (in category 'enter') ----- enter: returningFlag revert: revertFlag saveForRevert: saveForRevert "Install my ChangeSet, Transcript, and scheduled views as current globals. If returningFlag is true, we will return to the project from whence the current project was entered; don't change its previousProject link in this case. If saveForRevert is true, save the ImageSegment of the project being left. If revertFlag is true, make stubs for the world of the project being left. If revertWithoutAsking is true in the project being left, then always revert." | leavingProject forceRevert response seg | self isIncompletelyLoaded ifTrue: [^ self loadFromServer: true]. self isCurrentProject ifTrue: [^ self]. forceRevert := false. CurrentProject rawParameters ifNil: [revertFlag ifTrue: [^ self inform: 'nothing to revert to' translated]] ifNotNil: [saveForRevert ifFalse: [ forceRevert := CurrentProject projectParameters at: #revertWithoutAsking ifAbsent: [false]]]. forceRevert not & revertFlag ifTrue: [ response := (UIManager default chooseFrom: { 'Revert to saved version' translated. 'Cancel' translated. } title: 'Are you sure you want to destroy this Project\ and revert to an older version?\\(From the parent project, click on this project''s thumbnail.)' translated withCRs) = 1. response ifFalse: [^ self]]. revertFlag | forceRevert ifTrue: [seg := CurrentProject projectParameters at: #revertToMe ifAbsent: [ ^ self inform: 'nothing to revert to' translated]] ifFalse: [ CurrentProject makeThumbnail. returningFlag == #specialReturn ifTrue: [ProjectHistory forget: CurrentProject. "this guy is irrelevant" Project forget: CurrentProject] ifFalse: [ProjectHistory remember: CurrentProject]]. (revertFlag | saveForRevert | forceRevert) ifFalse: [ (Preferences valueOfFlag: #projectsSentToDisk) ifTrue: [ self inform: 'Project serialization via image segments\does not work at the moment. Disabling the\preference #projectsSentToDisk now...' withCRs. Preferences disable: #projectsSentToDisk. "self storeToMakeRoom"]]. "Update display depth for leaving and entring project." CurrentProject displayDepth: Display depth. displayDepth == nil ifTrue: [displayDepth := Display depth]. self installNewDisplay: Display extent depth: displayDepth. returningFlag == #specialReturn ifTrue: [ CurrentProject removeChangeSetIfPossible. "keep this stuff from accumulating" nextProject := nil ] ifFalse: [ returningFlag ifTrue: [nextProject := CurrentProject] ifFalse: [previousProject := CurrentProject]. ]. CurrentProject world triggerEvent: #aboutToLeaveWorld. CurrentProject abortResourceLoading. CurrentProject finalExitActions: self. CurrentProject saveState. "********** SWITCHING CURRENT PROJECT **********" leavingProject := CurrentProject. CurrentProject := self. ProjectHistory remember: self. "********** SWITCHING CURRENT PROJECT **********" self loadState. self finalEnterActions: leavingProject. self addDeferredUIMessage: [self startResourceLoading]. self world triggerEvent: #aboutToEnterWorld. "Save project for revert." saveForRevert ifTrue: [ Smalltalk garbageCollect. "let go of pointers" leavingProject storeSegment. "result :=" leavingProject world isInMemory ifTrue: ['Can''t seem to write the project.'] ifFalse: [leavingProject projectParameters at: #revertToMe put: + leavingProject world xxxSegment shallowCopy]. - leavingProject world xxxSegment clone]. 'Project written.']. "original is for coming back in and continuing." revertFlag | forceRevert ifTrue: [ + seg shallowCopy revert]. "non-cloned one is for reverting again later" - seg clone revert]. "non-cloned one is for reverting again later" self removeParameter: #exportState. "Now that everything is set up, we can show zoom animation." self showZoom ifTrue: [self displayZoom: leavingProject parent ~~ self "Entering?"] ifFalse: [self restore]. "Update processes at last." self scheduleProcessForEnter. leavingProject terminateProcessForLeave. ! Item was changed: ----- Method: ResourceManager>>installResource:from:locator: (in category 'loading') ----- installResource: aResource from: aStream locator: loc | repl | aResource ifNil:[^false]. "it went away, so somebody might have deleted it" (aStream == nil or:[aStream size = 0]) ifTrue:[^false]. "error?!!" + repl := aResource shallowCopy readResourceFrom: aStream asUnZippedStream. - repl := aResource clone readResourceFrom: aStream asUnZippedStream. repl ifNotNil:[ aResource replaceByResource: repl. unloaded remove: loc. loaded add: loc. ^true ]. ^false!

1 0

The Trunk: Sound-ul.61.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-ul.61.mcz ==================== Summary ==================== Name: Sound-ul.61 Author: ul Time: 24 April 2017, 1:12:18.671166 pm UUID: 6e04eba9-2b83-416d-bb58-188fa0aa77f1 Ancestors: Sound-ul.60 - rewrote senders of #clone to use #shallowCopy =============== Diff against Sound-ul.60 =============== Item was changed: ----- Method: ReverbSound>>copySound (in category 'copying') ----- copySound "Private!! Support for copying. Copy my component sound." sound := sound copy. + leftBuffer := leftBuffer shallowCopy. + rightBuffer := rightBuffer shallowCopy. - leftBuffer := leftBuffer clone. - rightBuffer := rightBuffer clone. ! Item was changed: ----- Method: SoundBuffer>>lowPassFiltered (in category 'utilities') ----- lowPassFiltered "Answer a simple low-pass filtered copy of this buffer. Assume it is monophonic." | sz out last this | sz := self monoSampleCount. + out := self shallowCopy. - out := self clone. last := self at: 1. 2 to: sz do: [:i | this := self at: i. out at: i put: (this + last) // 2. last := this]. ^ out !

1 0

The Trunk: Services-Base-ul.62.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-ul.62.mcz ==================== Summary ==================== Name: Services-Base-ul.62 Author: ul Time: 24 April 2017, 1:11:43.659972 pm UUID: 7b52364a-ab0b-498c-9704-a716eef0e8ed Ancestors: Services-Base-ul.61 - ServiceAction's #execute and #executeCondition don't have to clone their blocks anymore - BlockContext >> #valueWithRequestor: was an extension method, but without BlockContext it got auto-removed. =============== Diff against Services-Base-ul.61 =============== Item was removed: - ----- Method: BlockContext>>valueWithRequestor: (in category '*services-base') ----- - valueWithRequestor: aRequestor - "To do later: make the fillInTheBlank display more informative captions. - Include the description of the service, and maybe record steps" - - ^ self numArgs isZero - ifTrue: [self value] - ifFalse: [self value: aRequestor]! Item was changed: ----- Method: ServiceAction>>execute (in category 'executing') ----- execute + ^ action valueWithRequestor: World focusedRequestor! - ^ action clone valueWithRequestor: World focusedRequestor! Item was changed: ----- Method: ServiceAction>>executeCondition (in category 'executing') ----- executeCondition + ^ [condition valueWithRequestor: World focusedRequestor] - ^ [condition clone valueWithRequestor: World focusedRequestor] on: Error do: [false]!

1 0

The Trunk: Multilingual-ul.224.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.224.mcz ==================== Summary ==================== Name: Multilingual-ul.224 Author: ul Time: 24 April 2017, 1:05:20.241257 pm UUID: 5c20047f-883b-41a7-8355-cf1aa3b58a47 Ancestors: Multilingual-pre.223 - rewrote senders of #clone to use #shallowCopy =============== Diff against Multilingual-pre.223 =============== Item was changed: ----- Method: CompoundTextConverter>>saveStateOf: (in category 'friend') ----- saveStateOf: aStream | inst | + inst := state shallowCopy. - inst := state clone. inst streamPosition: aStream position. ^ inst. ! Item was changed: ----- Method: EFontBDFFontReaderForRanges>>override:with:ranges:transcodingTable:additionalRange: (in category 'as yet unclassified') ----- override: chars with: otherFileName ranges: pairArray transcodingTable: table additionalRange: additionalRange | other rangeStream newChars currentRange | other := BDFFontReader openFileNamed: otherFileName. rangeStream := ReadStream on: pairArray. currentRange := rangeStream next. newChars := PluggableSet new. newChars hashBlock: [:elem | (elem at: 2) hash]. newChars equalBlock: [:a :b | (a at: 2) = (b at: 2)]. other readChars do: [:array | | code u j form | code := array at: 2. "code printStringHex printString displayAt: 0@0." code > currentRange last ifTrue: [ [rangeStream atEnd not and: [currentRange := rangeStream next. currentRange last < code]] whileTrue. rangeStream atEnd ifTrue: [ newChars addAll: chars. ^ newChars. ]. ]. (code between: currentRange first and: currentRange last) ifTrue: [ form := array at: 1. form ifNotNil: [ j := array at: 2. u := table at: (((j // 256) - 33 * 94 + ((j \\ 256) - 33)) + 1). u ~= -1 ifTrue: [ array at: 2 put: u. newChars add: array. additionalRange do: [:e | | newArray | e first = (array at: 2) ifTrue: [ + newArray := array shallowCopy. - newArray := array clone. newArray at: 2 put: e second. newChars add: newArray ]. ] ]. ]. ]. ]. self error: 'should not reach here'. !

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
23
Older →

Jump to page: