Packages January 2022

packages@lists.squeakfoundation.org

1 participants
209 discussions

The Trunk: System-ct.1296.mcz
by commits＠source.squeak.org 29 Jan '22

29 Jan '22

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1296.mcz ==================== Summary ==================== Name: System-ct.1296 Author: ct Time: 29 January 2022, 11:51:13.257085 pm UUID: 711e138b-a97e-2440-a43d-77c823d87ee4 Ancestors: System-mt.1295 Accelerates "browse my changes" by caching source files. Treats Environments-ct.84. =============== Diff against System-mt.1295 =============== Item was changed: ----- Method: SystemNavigation>>browseMyChanges (in category 'browse') ----- browseMyChanges "Browse only the changes (in the changes file) by the current author." "SystemNavigation default browseMyChanges" + ^ CurrentReadOnlySourceFiles cacheDuring: [ + self browseAllSelect: [ :method | + method fileIndex > 1 "only look at changes file" + and: [ method timeStamp beginsWith: Utilities authorInitials ]]]! - ^ self browseAllSelect: [ :method | - method fileIndex > 1 "only look at changes file" - and: [ method timeStamp beginsWith: Utilities authorInitials ]]!

1 0

The Trunk: Collections-ct.982.mcz
by commits＠source.squeak.org 29 Jan '22

29 Jan '22

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.982.mcz ==================== Summary ==================== Name: Collections-ct.982 Author: ct Time: 29 January 2022, 9:53:27.446695 pm UUID: 2ec70a0d-4921-1e4b-997a-3aae713f2754 Ancestors: Collections-cmm.981 Reverts Collections-ct.980 (convenience selectors on Stream for Collections polymorphy). We do not want to promote this redundant pattern further. Clients should combine the single selectors instead, i.e., (aCollectionOrStream select: [...]) do: [...] rather than aCollectionOrStream select: [...] thenDo: [...]. =============== Diff against Collections-cmm.981 =============== Item was removed: - ----- Method: Stream>>collect:thenDo: (in category 'collections - enumerating') ----- - collect: collectBlock thenDo: doBlock - - ^ (self collect: collectBlock) do: doBlock! Item was removed: - ----- Method: Stream>>collect:thenSelect: (in category 'collections - enumerating') ----- - collect: collectBlock thenSelect: selectBlock - - ^ (self collect: collectBlock) select: selectBlock! Item was removed: - ----- Method: Stream>>reject:thenDo: (in category 'collections - enumerating') ----- - reject: rejectBlock thenDo: doBlock - - ^ (self reject: rejectBlock) do: doBlock! Item was removed: - ----- Method: Stream>>select:thenDo: (in category 'collections - enumerating') ----- - select: selectBlock thenDo: doBlock - - ^ (self select: selectBlock) do: doBlock!

1 0

The Trunk: Tools-ct.1119.mcz
by commits＠source.squeak.org 29 Jan '22

29 Jan '22

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1119.mcz ==================== Summary ==================== Name: Tools-ct.1119 Author: ct Time: 29 January 2022, 6:52:15.107695 pm UUID: 8d4822ff-359b-d245-b692-d3dbd9326d8c Ancestors: Tools-mt.1118 Fixes the do-it receiver in plain code holders and eliminates duplication. =============== Diff against Tools-mt.1118 =============== Item was removed: - ----- Method: Browser>>doItReceiver (in category 'accessing') ----- - doItReceiver - "This class's classPool has been jimmied to be the classPool of the class - being browsed. A doIt in the code pane will let the user see the value of - the class variables." - - ^ self selectedClass! Item was added: + ----- Method: CodeHolder>>doItReceiver (in category 'accessing') ----- + doItReceiver + "If there is an instance associated with me, answer it, for true mapping of self. If not, then do what other code-bearing tools do, viz. give access to the class vars." + + ^ self selectedClass! Item was removed: - ----- Method: MessageSet>>doItReceiver (in category 'accessing') ----- - doItReceiver - ^ self selectedClass! Item was removed: - ----- Method: MethodHolder>>doItReceiver (in category 'menu') ----- - doItReceiver - "If there is an instance associated with me, answer it, for true mapping of self. If not, then do what other code-bearing tools do, viz. give access to the class vars." - ^ self selectedClass!

1 0

The Trunk: Tools-mt.1118.mcz
by commits＠source.squeak.org 29 Jan '22

29 Jan '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1118.mcz ==================== Summary ==================== Name: Tools-mt.1118 Author: mt Time: 29 January 2022, 12:26:50.298306 pm UUID: 60dc6fe1-c374-f941-9ea2-51a514ffe136 Ancestors: Tools-mt.1117 Adds a simple way to browse method sources and class comments that either benefit from UTF8 or suffer from Squeak's #leadingChar encoding, i.e., code-point > 255. non-ASCII method sources: 62 non-ASCII class comments: 7 leading-char method sources: 6 leading-char class comments: 0 See method commentary for more information. =============== Diff against Tools-mt.1117 =============== Item was added: + ----- Method: Unicode class>>browseClassCommentsWithLeadingCharEncoding (in category '*Tools-Browsing') ----- + browseClassCommentsWithLeadingCharEncoding + "See commentary in browseMethodsWithLeadingCharEncoding." + + ^ self systemNavigation + browseMessageList: (Array streamContents: [:s | + self systemNavigation + allClassesDo: [:cls | + (cls comment asString anySatisfy: [:each | each codePoint > 255]) + ifTrue: [s nextPut: (MethodReference class: cls selector: #Comment)] ]]) + name: 'Class comments affected by #leadingChar'! Item was added: + ----- Method: Unicode class>>browseClassCommentsWithNonAsciiEncoding (in category '*Tools-Browsing') ----- + browseClassCommentsWithNonAsciiEncoding + "See commentary in browseMethodsWithNonAsciiEncoding." + + ^ self systemNavigation + browseMessageList: (Array streamContents: [:s | + self systemNavigation + allClassesDo: [:cls | cls comment asString isAsciiString + ifFalse: [s nextPut: (MethodReference class: cls selector: #Comment)] ]]) + name: 'Class comments with non-ASCII contents'! Item was added: + ----- Method: Unicode class>>browseMethodsWithLeadingCharEncoding (in category '*Tools-Browsing') ----- + browseMethodsWithLeadingCharEncoding + "Browse a list of methods whose sources are affected by Squeak's #leadingChar magic, which can confuse tools such as TextDiff depending on your current encoding (i.e., EncodedCharSet or LanguageEnvironment). NOTE THAT if you want to change those methods, ensure that your current encoding uses a leadingChar of 0, e.g., locale en-US and Latin1Environment. See UTF8TextConverter class >> #decodeByteString: and Unicode class >> #value:." + + ^ self systemNavigation + browseMessageList: (self systemNavigation + allMethodsSelect: [:method | method getSource asString + anySatisfy: [:each | each codePoint > 255]]) + name: 'Methods sources affected by #leadingChar'! Item was added: + ----- Method: Unicode class>>browseMethodsWithNonAsciiEncoding (in category '*Tools-Browsing') ----- + browseMethodsWithNonAsciiEncoding + "Browse a list of methods whose sources benefit from UTF8 encoding." + + ^ self systemNavigation + browseMessageList: (self systemNavigation + allMethodsSelect: [:method | method getSource asString isAsciiString not]) + name: 'Methods with non-ASCII sources'!

1 0

The Trunk: Monticello-mt.770.mcz
by commits＠source.squeak.org 29 Jan '22

29 Jan '22

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.770.mcz ==================== Summary ==================== Name: Monticello-mt.770 Author: mt Time: 29 January 2022, 11:01:45.317024 am UUID: 5c68eef4-9384-ee45-b945-07e9b835c188 Ancestors: Monticello-mt.769 Complements Multilingual-mt.261 =============== Diff against Monticello-mt.769 =============== Item was changed: ----- Method: MCMczReader>>contentsForMember: (in category 'private') ----- contentsForMember: member ^[(member contentStreamFromEncoding: 'utf8') text contents] on: InvalidUTF8 do: [:exc | "Case of legacy encoding, presumably it is latin-1. But if contents starts with a null character, it might be a case of WideString encoded in UTF-32BE" | str | + self flag: #discuss. "mt: Isn't our mac-roman legacy more likely than latin-1?" str := (member contentStreamFromEncoding: 'latin1') text. exc return: ((str peek = Character null and: [ str size \\ 4 = 0 ]) ifTrue: [WideString fromByteArray: str contents asByteArray] ifFalse: [str contents])]!

1 0

The Trunk: Tools-mt.1117.mcz
by commits＠source.squeak.org 29 Jan '22

29 Jan '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1117.mcz ==================== Summary ==================== Name: Tools-mt.1117 Author: mt Time: 29 January 2022, 11:01:21.856024 am UUID: fc3e3c9c-6252-7a43-a8d9-2815b8648925 Ancestors: Tools-mt.1116 Complements Multilingual-mt.261 =============== Diff against Tools-mt.1116 =============== Item was changed: ----- Method: ChangeList class>>browseCompressedChangesFile: (in category 'fileIn/Out') ----- browseCompressedChangesFile: fullName "Browse the selected file in fileIn format." + | unzipped | - | unzipped stream | fullName ifNil: [^Beeper beep]. + FileStream readOnlyFileNamed: fullName do: [:stream | + unzipped := (GZipReadStream on: stream) contents]. + ChangeList browseStream: (MultiByteBinaryOrTextStream with: unzipped asString)! - stream := FileStream readOnlyFileNamed: fullName. - [ | zipped |stream converter: Latin1TextConverter new. - zipped := GZipReadStream on: stream. - unzipped := zipped contents asString] - ensure: [stream close]. - stream := (MultiByteBinaryOrTextStream with: unzipped) reset. - ChangeList browseStream: stream! Item was changed: ----- Method: ChangeList class>>browseMethodVersions (in category 'public access') ----- browseMethodVersions | changeList end changesFile filteredRecords | changesFile := (SourceFiles at: 2) readOnlyCopy. - changesFile setConverterForCode. end := changesFile size. changeList := self new. Cursor read showWhile: [ + changeList scanFile: changesFile from: 0 to: end]. - [changeList scanFile: changesFile from: 0 to: end] - on: InvalidUTF8 do: [:err | err resume: '']]. changesFile close. filteredRecords := Dictionary new. changeList changeList do: [:changeRecord | changeRecord methodSelector ifNotNil: [:selector | | class | class := changeRecord methodClass. "Only collect records that point to not-installed methods." (class isNil or: [(class includesSelector: selector) not]) ifTrue: [ (filteredRecords at: selector ifAbsentPut: [OrderedCollection new]) add: changeRecord]]] displayingProgress: [:changeRecord | 'Parsing source code at {1}...' translated format: {changeRecord position}]. filteredRecords explore. "Open explorer to allow user to repeat the following step manually." self browseMethodVersions: filteredRecords.! Item was changed: ----- Method: ChangeList>>scanFile:from:to: (in category 'scanning') ----- scanFile: aFile from: startPosition to: stopPosition file := aFile. changeList := OrderedCollection new. list := OrderedCollection new. listIndex := 0. file position: startPosition. ('Scanning {1}...' translated format: {aFile localName}) displayProgressFrom: startPosition to: stopPosition during: [:bar | | prevChar itemPosition item | + [ [file position < stopPosition] - [file position < stopPosition] whileTrue: [bar value: file position. [file atEnd not and: [file peek isSeparator]] whileTrue: [prevChar := file next]. (file peekFor: $!!) ifTrue: [(prevChar = Character cr or: [prevChar = Character lf]) ifTrue: [self scanCategory]] ifFalse: [itemPosition := file position. item := file nextChunk. file skipStyleChunk. item size > 0 ifTrue: [(item beginsWith: '----') ifTrue: [self addItem: (ChangeRecord new file: file position: itemPosition type: #misc) text: 'misc: ' , (item contractTo: 50)] ifFalse: [self addItem: (ChangeRecord new file: file position: itemPosition type: #doIt) + text: 'do it: ' , (item contractTo: 50)]]]] + ] on: InvalidUTF8 do: [:ex | + aFile isSourceFile ifTrue: [ex pass] ifFalse: [ + self notify: ex messageText, '\\Proceed to try the legacy MacRoman encoding.' translated withCRs. + aFile reset; setConverterForOldCode. + ^ self scanFile: aFile from: startPosition to: stopPosition]] ]. - text: 'do it: ' , (item contractTo: 50)]]]]]. self resetListSelections.! Item was removed: - ----- Method: FileList>>defaultEncoderFor: (in category 'private') ----- - defaultEncoderFor: aFileName - - "This method just illustrates the stupidest possible implementation of encoder selection." - | l | - l := aFileName asLowercase. - " ((l endsWith: FileStream multiCs) or: [ - l endsWith: FileStream multiSt]) ifTrue: [ - ^ UTF8TextConverter new. - ]. - " - ((l endsWith: FileStream cs) or: [ - l endsWith: FileStream st]) ifTrue: [ - ^ MacRomanTextConverter new. - ]. - - ^ Latin1TextConverter new. - - ! Item was changed: ----- Method: FileList>>readContentsBrief: (in category 'private') ----- readContentsBrief: brevityFlag "Read the contents of the receiver's selected file, unless it is too long, in which case show just the first 5000 characters. Don't create a file if it doesn't already exist." | f fileSize first5000 | brevityFlag ifTrue: [ directory isRemoteDirectory ifTrue: [^ self readServerBrief]]. f := directory oldFileOrNoneNamed: self fullName. f ifNil: [^ 'For some reason, this file cannot be read' translated]. + self setDefaultEncoderFor: f. - f converter: (self defaultEncoderFor: self fullName). (brevityFlag not or: [(fileSize := f size) <= 100000]) ifTrue: [contents := f contentsOfEntireFile. brevityState := #fullFile. "don't change till actually read" ^ contents]. "if brevityFlag is true, don't display long files when first selected" first5000 := f next: 5000. f close. contents := 'File ''{1}'' is {2} bytes long. You may use the ''get'' command to read the entire file. Here are the first 5000 characters... ------------------------------------------ {3} ------------------------------------------ ... end of the first 5000 characters.' translated format: {fileName. fileSize. first5000}. brevityState := #briefFile. "don't change till actually read" ^ contents. ! Item was added: + ----- Method: FileList>>setDefaultEncoderFor: (in category 'private') ----- + setDefaultEncoderFor: fileStream + "Based on former #defaultEncoderFor:." + + | l | + l := fileStream fullName asLowercase. + " ((l endsWith: FileStream multiCs) or: [ + l endsWith: FileStream multiSt]) ifTrue: [ + ^ UTF8TextConverter new. + ]. + " + ((l endsWith: FileStream cs) or: [l endsWith: FileStream st]) + ifTrue: [fileStream setConverterForCode] + ifFalse: [fileStream converter: ISO88591TextConverter new].!

1 0

The Trunk: System-mt.1294.mcz
by commits＠source.squeak.org 29 Jan '22

29 Jan '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1294.mcz ==================== Summary ==================== Name: System-mt.1294 Author: mt Time: 29 January 2022, 11:00:35.415024 am UUID: 7058e5d6-9433-cb4f-a362-f011386f5164 Ancestors: System-mt.1293 Complements Multilingual-mt.261 =============== Diff against System-mt.1293 =============== Item was changed: ----- Method: ChangeSet class>>scanFile:from:to: (in category 'scanning') ----- scanFile: file from: startPosition to: stopPosition | changeList | changeList := OrderedCollection new. file position: startPosition. 'Scanning ', file localName, '...' displayProgressFrom: startPosition to: stopPosition during: [:bar | | itemPosition item prevChar | + [ [file position < stopPosition] whileTrue:[ - [file position < stopPosition] whileTrue:[ bar value: file position. [file atEnd not and: [file peek isSeparator]] whileTrue: [prevChar := file next]. (file peekFor: $!!) ifTrue:[ (prevChar = Character cr or: [prevChar = Character lf]) ifTrue: [changeList addAll: (self scanCategory: file)]. ] ifFalse:[ itemPosition := file position. item := file nextChunk. file skipStyleChunk. item size > 0 ifTrue:[ + changeList add: (ChangeRecord new file: file position: itemPosition type: #doIt)]]] + ] on: InvalidUTF8 do: [:ex | + file isSourceFile ifTrue: [ex pass] ifFalse: [ + self notify: ex messageText, '\\Proceed to try the legacy MacRoman encoding.' translated withCRs. + file reset; setConverterForOldCode. + ^ self scanFile: file from: startPosition to: stopPosition]] ]. - changeList add: (ChangeRecord new file: file position: itemPosition type: #doIt). - ]. - ]. - ]]. ^changeList! Item was changed: ----- Method: FileDirectory class>>openSources:andChanges:forImage: (in category '*System-Files') ----- openSources: sourcesName andChanges: 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 msg wmsg | msg := 'Squeak cannot locate &fileRef. Please check that the file is named properly and is in the same directory as this image.'. wmsg := 'Squeak cannot write to &fileRef. Please check that you have write permission for this file. You won''t be able to save this image correctly until you fix this.'. sources := self openSources: sourcesName forImage: imageName. + sources ifNotNil: [sources setConverterForCode]. changes := self openChanges: changesName forImage: imageName. + changes ifNotNil: [changes setConverterForCode]. ((sources == nil or: [sources atEnd]) and: [Preferences valueOfFlag: #warnIfNoSourcesFile]) ifTrue: [Smalltalk platformName = 'Mac OS' ifTrue: [msg := msg , ' Make sure the sources file is not an Alias.']. self inform: (msg copyReplaceAll: '&fileRef' with: 'the sources file named ' , sourcesName)]. (changes == nil and: [Preferences valueOfFlag: #warnIfNoChangesFile]) ifTrue: [self inform: (msg copyReplaceAll: '&fileRef' with: 'the changes file named ' , changesName)]. ((Preferences valueOfFlag: #warnIfNoChangesFile) and: [changes notNil]) ifTrue: [changes isReadOnly ifTrue: [self inform: (wmsg copyReplaceAll: '&fileRef' with: 'the changes file named ' , changesName)]. ((changes next: 200) includesSubstring: String crlf) ifTrue: [self inform: 'The changes file named ' , changesName , ' has been injured by an unpacking utility. Crs were changed to CrLfs. Please set the preferences in your decompressing program to "do not convert text files" and unpack the system again.']]. SourceFiles := Array with: sources with: changes! Item was changed: ----- Method: InternalTranslator>>fileOutHeaderOn: (in category 'user interface') ----- fileOutHeaderOn: aStream + aStream nextPutUTF8BOM. - aStream binary. - UTF8TextConverter writeBOMOn: aStream. - aStream text. aStream nextChunkPut: self fileOutHeader; cr. aStream timeStamp; cr. aStream nextPut: $!!. aStream nextChunkPut: '(' , self class name , ' localeID: ' , id storeString , ')'. aStream cr! Item was changed: ----- Method: InternalTranslator>>fileOutHeaderOn:withBOM: (in category 'user interface') ----- fileOutHeaderOn: aStream withBOM: bomFlag + bomFlag ifTrue: [aStream nextPutUTF8BOM]. - bomFlag ifTrue: [ - aStream binary. - UTF8TextConverter writeBOMOn: aStream. - aStream text. - ]. aStream nextChunkPut: self fileOutHeader; cr. aStream timeStamp; cr. aStream nextPut: $!!. aStream nextChunkPut: '(' , self class name , ' localeID: ' , id storeString , ')'. aStream cr! Item was changed: ----- Method: MczInstaller>>contentsForMember: (in category 'private') ----- contentsForMember: member ^[(member contentStreamFromEncoding: 'utf8') text contents] on: InvalidUTF8 do: [:exc | "Case of legacy encoding, presumably it is latin-1. But if contents starts with a null character, it might be a case of WideString encoded in UTF-32BE" | str | + self flag: #discuss. "mt: Isn't our mac-roman legacy more likely than latin-1?" str := (member contentStreamFromEncoding: 'latin1') text.. exc return: ((str peek = Character null and: [ str size \\ 4 = 0 ]) ifTrue: [WideString fromByteArray: str contents asByteArray] ifFalse: [str contents])]! Item was changed: ----- Method: PositionableStream>>fileInFor:announcing: (in category '*System-Changes-fileIn/Out') ----- fileInFor: client announcing: announcement "This is special for reading expressions from text that has been formatted with exclamation delimitors. The expressions are read and passed to the Compiler. Answer the result of compilation. Put up a progress report with the given announcement as the title." | val | announcement displayProgressFrom: 0 to: self size during: [:bar | + [ [self atEnd] whileFalse: - [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [ | chunk | val := (self peekFor: $!!) ifTrue: [ | ch | ch := self nextChunk. (self shouldIgnore: ch) ifTrue: [Transcript showln: 'Ignoring chunk: ', ch] ifFalse: [(Compiler evaluate: ch for: client logged: true) scanFrom: self]] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. Compiler evaluate: chunk for: client logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. + self skipStyleChunk] + ] on: InvalidUTF8 do: [:ex | + self notify: ex messageText, '\\Proceed to try the legacy MacRoman encoding.' translated withCRs. + self reset; setConverterForOldCode. + ^ self fileInFor: client announcing: announcement]. - self skipStyleChunk]. self close]. "Note: The main purpose of this banner is to flush the changes file." Smalltalk logChange: '----End fileIn of ' , self name , '----'. self flag: #ThisMethodShouldNotBeThere. "sd" ^val!

1 0

The Trunk: Multilingual-mt.261.mcz
by commits＠source.squeak.org 29 Jan '22

29 Jan '22

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.261.mcz ==================== Summary ==================== Name: Multilingual-mt.261 Author: mt Time: 29 January 2022, 10:59:27.832024 am UUID: c87a7c62-86fe-204d-b0cf-12e891df09e2 Ancestors: Multilingual-mt.260 Fixes file-in/out (.cs .st) regression. Always use UTF8 but allow for trying MacRoman on InvalidUTF8 error. Still write out that UTF8 BOM to make new file-outs again compatible with older images' file-in code. Since 2018, we are filing-out UTF8 only - assuming that nobody played around with Locale and LanguageEnvironment because the defaults for MultiByteFileStream are derived from there. So, let's hope that "TextConverter defaultSystemConverter" answered an UTF8 converter for all (or most) file-outs since 2018. Same goes for our .sources and .changes file, which now default to UTF8 explicitely, not by accident. Regardless of any Locale's LanguageEnvironment's #systemConverterClass, which is actually useful for non-code text-file access. Note that if there are any .cs or .st files out there with an encoding other than MacRoman or UTF8, there are ways to re-encode them before filing them in. Yet, I don't think that it's an actual issue at this point. Maybe Latin1, but this was never used as a file-out encoding. This commit is a coherent part of a slightly larger Locale cleanup. It's almost ready. Then we can update those translations for the next release. :-) =============== Diff against Multilingual-mt.260 =============== Item was changed: ----- Method: MultiByteBinaryOrTextStream>>fileOutClass:andObject: (in category 'fileIn/Out') ----- fileOutClass: extraClass andObject: theObject + + self nextPutUTF8BOM. - UTF8TextConverter writeBOMOn: self. ^ super fileOutClass: extraClass andObject: theObject! Item was added: + ----- Method: MultiByteBinaryOrTextStream>>nextPutUTF8BOM (in category 'fileIn/Out') ----- + nextPutUTF8BOM + "Backwards compatibility. BOM was used in older file-outs to switch from mac-roman to utf-8 on file-in. Nowadays we always expect utf-8 on file-in and fall back only on InvalidUTF8 exception." + + self binary. + UTF8TextConverter writeBOMOn: self. + self text.! Item was changed: ----- Method: MultiByteBinaryOrTextStream>>setConverterForCode (in category 'fileIn/Out') ----- setConverterForCode + "Always use and expect UTF-8 encoding for source code so that we can share those files. Any existing BOM should be skipped automatically when decoding content. See #writeBOMOn: and #decodeByteString:." + self converter: UTF8TextConverter new.! - | current | - current := converter saveStateOf: self. - self position: 0. - self binary. - ((self next: 3) = #[ 16rEF 16rBB 16rBF ]) ifTrue: [ - self converter: UTF8TextConverter new - ] ifFalse: [ - self converter: MacRomanTextConverter new. - ]. - converter restoreStateOf: self with: current. - self text. - ! Item was added: + ----- Method: MultiByteBinaryOrTextStream>>setConverterForOldCode (in category 'fileIn/Out') ----- + setConverterForOldCode + + self converter: MacRomanTextConverter new.! Item was changed: ----- Method: MultiByteBinaryOrTextStream>>setEncoderForSourceCodeNamed: (in category 'fileIn/Out') ----- setEncoderForSourceCodeNamed: streamName + self deprecated. + self setConverterForCode.! - | l | - l := streamName asLowercase. - " ((l endsWith: FileStream multiCs) or: [ - (l endsWith: FileStream multiSt) or: [ - (l endsWith: (FileStream multiSt, '.gz')) or: [ - (l endsWith: (FileStream multiCs, '.gz'))]]]) ifTrue: [ - self converter: UTF8TextConverter new. - ^ self. - ]. - " - ((l endsWith: FileStream cs) or: [ - (l endsWith: FileStream st) or: [ - (l endsWith: (FileStream st, '.gz')) or: [ - (l endsWith: (FileStream cs, '.gz'))]]]) ifTrue: [ - self converter: MacRomanTextConverter new. - ^ self. - ]. - - self converter: UTF8TextConverter new. - ! Item was changed: ----- Method: MultiByteFileStream>>fileOutClass:andObject: (in category 'fileIn/Out') ----- fileOutClass: extraClass andObject: theObject + + self nextPutUTF8BOM. - self binary. - UTF8TextConverter writeBOMOn: self. - self text. ^ super fileOutClass: extraClass andObject: theObject! Item was added: + ----- Method: MultiByteFileStream>>isSourceFile (in category 'private') ----- + isSourceFile + + self flag: #InvalidUTF8. "Ignore source files. Those MUST BE valid utf-8. Broken chunks cannot be fixed by changing converters in the middle of file reading." + (SourceFiles at: 1) ifNotNil: [self fullName = (SourceFiles at: 1) fullName ifTrue: [^ true]]. + (SourceFiles at: 2) ifNotNil: [self fullName = (SourceFiles at: 2) fullName ifTrue: [^ true]]. + + ^ false! Item was added: + ----- Method: MultiByteFileStream>>nextPutUTF8BOM (in category 'fileIn/Out') ----- + nextPutUTF8BOM + "Backwards compatibility. BOM was used in older file-outs to switch from mac-roman to utf-8 on file-in. Nowadays we always expect utf-8 on file-in and fall back only on InvalidUTF8 exception." + + self binary. + UTF8TextConverter writeBOMOn: self. + self text.! Item was changed: + ----- Method: MultiByteFileStream>>setConverterForCode (in category 'fileIn/Out') ----- - ----- Method: MultiByteFileStream>>setConverterForCode (in category 'private') ----- setConverterForCode + "Always use and expect UTF-8 encoding for source code so that we can share those files. Any existing BOM should be skipped automatically when decoding content. See #writeBOMOn: and #decodeByteString:." + + self converter: UTF8TextConverter new.! - - | currentPosition | - (SourceFiles at: 2) - ifNotNil: [self fullName = (SourceFiles at: 2) fullName ifTrue: [^ self]]. - currentPosition := self position. - self position: 0. - self binary. - ((self next: 3) = #[ 16rEF 16rBB 16rBF ]) ifTrue: [ - self converter: UTF8TextConverter new - ] ifFalse: [ - self converter: MacRomanTextConverter new. - ]. - self position: currentPosition. - self text. - ! Item was added: + ----- Method: MultiByteFileStream>>setConverterForOldCode (in category 'fileIn/Out') ----- + setConverterForOldCode + + self isSourceFile ifTrue: [^ self]. + self converter: MacRomanTextConverter new.!

1 0

The Trunk: Compression-cmm.60.mcz
by commits＠source.squeak.org 29 Jan '22

29 Jan '22

Chris Muller uploaded a new version of Compression to project The Trunk: http://source.squeak.org/trunk/Compression-cmm.60.mcz ==================== Summary ==================== Name: Compression-cmm.60 Author: cmm Time: 28 January 2022, 7:29:13.629831 pm UUID: da1f9ad9-51bb-4815-83ba-706af4137db0 Ancestors: Compression-dtl.59, Compression-cmm.9 Don't leave open file-handles for each file added to a ZipArchive. Only open them when needed, and close them as soon as possible so the function isn't limited by availability of that resource. =============== Diff against Compression-dtl.59 =============== Item was changed: ----- Method: ZipArchive>>writeTo: (in category 'writing') ----- + writeTo: stream - writeTo: stream stream binary. + members do: [ : member | + [ member writeTo: stream. + member endRead ] ensure: [ member close ] ]. - members do: [ :member | - member writeTo: stream. - member endRead. - ]. writeCentralDirectoryOffset := stream position. + self writeCentralDirectoryTo: stream! - self writeCentralDirectoryTo: stream. - ! Item was changed: ----- Method: ZipFileMember>>readRawChunk: (in category 'private-reading') ----- readRawChunk: n + ^stream ensureOpen next: n! - ^stream next: n! Item was changed: ----- Method: ZipFileMember>>rewindData (in category 'private-reading') ----- rewindData super rewindData. + stream isNil ifTrue: [ self error: 'stream missing' ]. + stream ensureOpen. + stream position: localHeaderRelativeOffset + 4. + self skipLocalDirectoryFileHeaderFrom: stream! - (stream isNil or: [ stream closed ]) - ifTrue: [ self error: 'stream missing or closed' ]. - stream position: (localHeaderRelativeOffset + 4). - self skipLocalDirectoryFileHeaderFrom: stream.! Item was changed: ----- Method: ZipFileMember>>uncompressDataTo: (in category 'private-writing') ----- uncompressDataTo: aStream | decoder buffer crcErrorMessage | + decoder := ZipReadStream on: stream ensureOpen. - decoder := ZipReadStream on: stream. decoder expectedCrc: self crc32. buffer := ByteArray new: (32768 min: readDataRemaining). crcErrorMessage := nil. [[ readDataRemaining > 0 ] whileTrue: [ | chunkSize | chunkSize := 32768 min: readDataRemaining. buffer := decoder next: chunkSize into: buffer startingAt: 1. aStream next: chunkSize putAll: buffer startingAt: 1. readDataRemaining := readDataRemaining - chunkSize. ]] on: CRCError do: [ :ex | crcErrorMessage := ex messageText. ex proceed ]. crcErrorMessage ifNotNil: [ self isCorrupt: true. CRCError signal: crcErrorMessage ] ! Item was changed: ----- Method: ZipFileMember>>uncompressDataTo:from:to: (in category 'private-writing') ----- uncompressDataTo: aStream from: start to: finish | decoder buffer chunkSize | + decoder := FastInflateStream on: stream ensureOpen. - decoder := FastInflateStream on: stream. readDataRemaining := readDataRemaining min: finish - start + 1. buffer := ByteArray new: (32768 min: readDataRemaining). decoder next: start - 1. [ readDataRemaining > 0 ] whileTrue: [ chunkSize := 32768 min: readDataRemaining. buffer := decoder next: chunkSize into: buffer startingAt: 1. aStream next: chunkSize putAll: buffer startingAt: 1. readDataRemaining := readDataRemaining - chunkSize. ]. ! Item was changed: ----- Method: ZipNewFileMember>>from: (in category 'initialization') ----- from: aFileName | entry | compressionMethod := CompressionStored. "Now get the size, attributes, and timestamps, and see if the file exists" + stream := (StandardFileStream readOnlyFileNamed: aFileName) close. - stream := StandardFileStream readOnlyFileNamed: aFileName. self localFileName: (externalFileName := stream name). entry := stream directoryEntry. compressedSize := uncompressedSize := entry fileSize. desiredCompressionMethod := compressedSize > 0 ifTrue: [ CompressionDeflated ] ifFalse: [ CompressionStored ]. + self setLastModFileDateTimeFrom: entry modificationTime + ! - self setLastModFileDateTimeFrom: entry modificationTime. - stream close! Item was changed: ----- Method: ZipNewFileMember>>rewindData (in category 'private-writing') ----- rewindData super rewindData. + readDataRemaining := stream ensureOpen size. - readDataRemaining := stream size. stream position: 0.!

1 0

The Trunk: Collections-cmm.981.mcz
by commits＠source.squeak.org 29 Jan '22

29 Jan '22

Chris Muller uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-cmm.981.mcz ==================== Summary ==================== Name: Collections-cmm.981 Author: cmm Time: 28 January 2022, 7:28:17.843333 pm UUID: f7d931d8-11ea-4e5e-bb7d-6e4f5b46f4b8 Ancestors: Collections-ct.980 Better API compatibility between file-based and non file-based streams. =============== Diff against Collections-ct.980 =============== Item was added: + ----- Method: Stream>>ensureOpen (in category 'file open/close') ----- + ensureOpen + "API compatibility with FileBased streams."! Item was added: + ----- Method: Stream>>open (in category 'file open/close') ----- + open + "API compatibility with FileBased streaams." + ^ self! Item was changed: + ----- Method: Stream>>openReadOnly (in category 'file open/close') ----- - ----- Method: Stream>>openReadOnly (in category 'accessing') ----- openReadOnly ^self!

1 0

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2022