Squeak-dev January 2011

squeak-dev@lists.squeakfoundation.org

94 participants
379 discussions

The Trunk: Multilingual-ul.133.mcz
by commits＠source.squeak.org 29 Jan '11

29 Jan '11

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.133.mcz ==================== Summary ==================== Name: Multilingual-ul.133 Author: ul Time: 24 January 2011, 3:40:52.355 am UUID: e8de6a53-b209-c442-911b-4f711ca326aa Ancestors: Multilingual-mtf.132, Multilingual-sn.131 - merged Multilingual-sn.131 to fix #defaultSystemConverter if using Latin1Environment - make sure that the converter (#defaultSystemConverter) and line end convention (crlf for windows, lf for other platforms) is properly initialized for multi-byte stdio streams - fixed MultiByteFileStream >> #setConverterForCode which tried to save and restore the stream's state while the converter (which decides how to store the state) was changed - use the converter variable instead of the message with the same name from MultiByteFileStream - deprecated #bareNext, inlined it to it's two senders which were also refactored a bit - initialize MultiByteFileStream instances for stdio via #newForStdio instead of #openOnHandle:name:forWrite: which is removed. =============== Diff against Multilingual-mtf.132 =============== Item was changed: ----- Method: Latin1Environment class>>fileNameConverterClass (in category 'subclass responsibilities') ----- fileNameConverterClass + ^ self systemConverterClass - ^ Latin1TextConverter ! Item was changed: ----- Method: Latin1Environment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass | platformName osVersion | platformName := SmalltalkImage current platformName. osVersion := SmalltalkImage current osVersion. (platformName = 'Win32' and: [osVersion ~= 'CE']) ifTrue: [^ (self win32VMUsesUnicode) ifTrue: [UTF32InputInterpreter] ifFalse: [MacRomanInputInterpreter]]. platformName = 'Mac OS' + ifTrue: [^ MacUnicodeInputInterpreter]. - ifTrue: [^ MacRomanInputInterpreter]. platformName = 'unix' ifTrue: [^ UTF32InputInterpreter]. + ^ MacUnicodeInputInterpreter! - ^ MacRomanInputInterpreter! Item was changed: ----- Method: Latin1Environment class>>systemConverterClass (in category 'subclass responsibilities') ----- systemConverterClass + | platformName osVersion | + platformName := SmalltalkImage current platformName. + osVersion := SmalltalkImage current getSystemAttribute: 1002. + (platformName = 'Win32' + and: [osVersion = 'CE']) + ifTrue: [^ MacRomanTextConverter]. + platformName = 'Win32' + ifTrue: [^ (self win32VMUsesUnicode) ifTrue: [UTF8TextConverter] ifFalse: [Latin1TextConverter]]. + platformName = 'Mac OS' + ifTrue: [^ ('10*' match: SmalltalkImage current osVersion) + ifTrue: [UTF8TextConverter] + ifFalse: [MacRomanTextConverter]]. + platformName = 'unix' + ifTrue: [^ UTF8TextConverter]. + ^ MacRomanTextConverter! - ^ Latin1TextConverter. - ! Item was changed: ----- Method: MacUnicodeInputInterpreter>>initialize (in category 'initialization') ----- initialize | satisfiesVersion | satisfiesVersion := self majorMinorBuildFrom: SmalltalkImage current vmVersion + satisfies: [:major :minor :build | + major >= 4 or: [ + major >= 3 and: [minor >= 8 and: [build >= 7]]]]. - satisfies: [:major :minor :build | (major >= 3 - and: [minor >= 8 - and: [build >= 7]]) or: [major >= 4]]. - satisfiesVersion ifTrue: [keyValueIndex := 6] ifFalse: [keyValueIndex := 3]! Item was added: + ----- Method: MultiByteFileStream class>>newForStdio (in category 'as yet unclassified') ----- + newForStdio + "Use crlf as line end convention on windows, lf on all other platforms. Also make sure that the converter is initialized." + + | lineEndConvention | + lineEndConvention := self lineEndDefault. + lineEndConvention == #crlf ifFalse: [ + lineEndConvention := #lf ]. + ^self new + lineEndConvention: lineEndConvention; + initializeConverter; + yourself! Item was changed: ----- Method: MultiByteFileStream>>bareNext (in category 'crlf private') ----- bareNext + self deprecated: 'Don''t use this method anymore.'. + ^converter nextFromStream: self. - ^ self converter nextFromStream: self. ! Item was changed: ----- Method: MultiByteFileStream>>converter (in category 'accessing') ----- converter + ^converter ifNil: [ + self initializeConverter. + converter ]! - converter ifNil: [self converter: TextConverter defaultSystemConverter]. - ^ converter - ! Item was added: + ----- Method: MultiByteFileStream>>initializeConverter (in category 'initialize-release') ----- + initializeConverter + + self converter: TextConverter defaultSystemConverter! Item was changed: ----- Method: MultiByteFileStream>>next (in category 'public') ----- next + | char | - | char secondChar state | char := converter nextFromStream: self. + "#doConversion is inlined here" + (wantsLineEndConversion == true and: [ lineEndConvention notNil ]) ifTrue: [ + char == Cr ifTrue: [ + | state | + state := converter saveStateOf: self. + (converter nextFromStream: self) ifNotNil: [ :secondChar | + secondChar == Lf ifFalse: [ + converter restoreStateOf: self with: state ] ]. + ^Cr ]. + char == Lf ifTrue: [ + ^Cr ] ]. - (wantsLineEndConversion == true and: [ lineEndConvention notNil ]) "#doConversion is inlined here" - ifTrue: [ - char == Cr ifTrue: [ - state := converter saveStateOf: self. - secondChar := self bareNext. - secondChar ifNotNil: [ - secondChar == Lf ifFalse: [ converter restoreStateOf: self with: state ] ]. - ^Cr ]. - char == Lf ifTrue: [ - ^Cr ] ]. ^char. ! Item was changed: ----- Method: MultiByteFileStream>>next:innerFor: (in category 'crlf private') ----- next: n innerFor: aString - | peekChar state | - "if we just read a CR, and the next character is an LF, then skip the LF" aString size = 0 ifTrue: [^ aString]. + "if we just read a CR, and the next character is an LF, then skip the LF" + aString last == Cr ifTrue: [ + | state | - (aString last = Character cr) ifTrue: [ state := converter saveStateOf: self. + (converter nextFromStream: self) ifNotNil: [ :peekChar | + peekChar == Lf ifFalse: [ + converter restoreStateOf: self with: state ] ] ]. + ^aString withSqueakLineEndings - peekChar := self bareNext. "super peek doesn't work because it relies on #next" - (peekChar notNil and: [peekChar ~= Character lf]) ifTrue: [ - converter restoreStateOf: self with: state. - ]. - ]. - - ^ aString withSqueakLineEndings. ! Item was changed: ----- Method: MultiByteFileStream>>nextPut: (in category 'public') ----- nextPut: aCharacter aCharacter isInteger ifTrue: [ ^super nextPut: aCharacter ]. (wantsLineEndConversion == true and: [ lineEndConvention notNil ]) "#doConversion is inlined here" ifTrue: [ + aCharacter == Cr - aCharacter = Cr ifTrue: [ + converter + nextPutAll: (LineEndStrings at: lineEndConvention) + toStream: self ] - (LineEndStrings at: lineEndConvention) do: [ :each | - converter nextPut: each toStream: self ] ] ifFalse: [ converter nextPut: aCharacter toStream: self ]. ^aCharacter ]. + converter nextPut: aCharacter toStream: self. + ^aCharacter! - self converter nextPut: aCharacter toStream: self. - ^aCharacter - ! Item was changed: ----- Method: MultiByteFileStream>>nextPutAll: (in category 'public') ----- nextPutAll: aCollection (self isBinary or: [aCollection class == ByteArray]) ifTrue: [ ^ super nextPutAll: aCollection. ]. + converter nextPutAll: aCollection toStream: self. - self converter nextPutAll: aCollection toStream: self. ^aCollection! Item was removed: - ----- Method: MultiByteFileStream>>openOnHandle:name:forWrite: (in category 'open/close') ----- - openOnHandle: aFileID name: streamName forWrite: writeMode - - super openOnHandle: aFileID name: streamName forWrite: writeMode. - self converter "Make sure that converter is initialized."! Item was changed: ----- Method: MultiByteFileStream>>setConverterForCode (in category 'private') ----- setConverterForCode + | currentPosition | - | current | (SourceFiles at: 2) ifNotNil: [self fullName = (SourceFiles at: 2) fullName ifTrue: [^ self]]. + currentPosition := self position. - current := self converter saveStateOf: self. self position: 0. self binary. ((self next: 3) = #[ 16rEF 16rBB 16rBF ]) ifTrue: [ self converter: UTF8TextConverter new ] ifFalse: [ self converter: MacRomanTextConverter new. ]. + self position: currentPosition. - converter restoreStateOf: self with: current. self text. !

1 0

Daily Commit Log
by commits＠source.squeak.org 29 Jan '11

29 Jan '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-January/004171.ht… Name: ShoutCore-ul.28 Ancestors: ShoutCore-ul.27 - mark ByteArray literals as ByteArrays instead of Arrays ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-January/004173.ht… Name: SystemReporter-dtl.3 Ancestors: SystemReporter-laza.2 If the VM reports source revisions via #primitivePlatformSourceVersion and #primitiveInterpreterSourceVersion, include this information in SystemReporter "VM General". Example output: Virtual Machine --------------- Squeak4.1 of 17 April 2010 [latest update: #9957] /usr/local/lib/squeak/4.4.7-2356/squeakvm platform sources revision 2356 VMMaker versionString 4.4.7 ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-January/004174.ht… Name: SystemReporter-dtl.5 Ancestors: SystemReporter-laza.4, SystemReporter-dtl.3 Merge SystemReporter-dtl.3 ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-January/004176.ht… Name: SystemReporter-laza.6 Ancestors: SystemReporter-dtl.5 - fixed full image path name - added build date for vm - used canonical names for system attributes if possible - changed indexing of parameters and options to match argumentAt: and optionAt: =============================================

1 0

Pragma support in Squeak/Pharo/Cuis
by Torsten Bergmann 28 Jan '11

28 Jan '11

Hi, I would like to port the recent changes made to HelpSystem (for instance to be able to mark a method with a pragma like <wikiStyleHelp: 'My Book'>) This would allow to define and load help contents without any dependency on the help system. Unfortunately Squeak now differs (a little bit?) from Pharo regarding the Pragma support. There is no PragmaCollector class, ... Dont know if there are more differences, any ideas/experiences? What about Cuis? Would'nt it make sense to use a similar implementation in all worlds? Comments appreciated. Thx T. -- NEU: FreePhone - kostenlos mobil telefonieren und surfen! Jetzt informieren: http://www.gmx.net/de/go/freephone

6 9

Re: Pragma support in Squeak/Pharo/Cuis
by Chris Cunnington 28 Jan '11

28 Jan '11

>Method annotations are not pragmas. It might be easier to say that method annotations never had a class to identify them with before Lukas created class Pragma in 2006. Chris

4 3

The Trunk: SystemReporter-laza.6.mcz
by commits＠source.squeak.org 28 Jan '11

28 Jan '11

Alexander Lazarević uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-laza.6.mcz ==================== Summary ==================== Name: SystemReporter-laza.6 Author: laza Time: 28 January 2011, 10:27:05.638 am UUID: 7ed9fa46-bf91-6541-82e2-9a74f36fc098 Ancestors: SystemReporter-dtl.5 - fixed full image path name - added build date for vm - used canonical names for system attributes if possible - changed indexing of parameters and options to match argumentAt: and optionAt: =============== Diff against SystemReporter-dtl.5 =============== Item was added: + ----- Method: SystemReporter>>enumerate:on: (in category 'private') ----- + enumerate: aBlock on: aStream + self enumerate: aBlock startAt: 0 on: aStream! Item was added: + ----- Method: SystemReporter>>enumerate:startAt:on: (in category 'private') ----- + enumerate: aBlock startAt: first on: aStream + "Utilitymethod to enumerate Options or Parameters from first to 1000" + | idx value | + idx := first. + [value := aBlock value: idx. + value = nil or: [idx > 1000]] whileFalse: [ + aStream + nextPut: $#; + nextPutAll: idx printString; + tab; + nextPutAll: value; cr. + idx := idx + 1 + ]. + idx = first ifTrue: [aStream nextPutAll: 'none'; cr]! Item was changed: ----- Method: SystemReporter>>reportINI: (in category 'reporting') ----- reportINI: aStream | exePath iniData iniPath | self header: 'VM Configuration' on: aStream. + exePath := Smalltalk vm vmFileName. - exePath := SmalltalkImage current getSystemAttribute: 0. iniPath := (exePath copyUpToLast: $.), '.ini'. aStream nextPutAll: iniPath; cr. iniData := [ (FileStream readOnlyFileNamed: iniPath) contentsOfEntireFile ] on: Error do:[:ex| ex return: ex printString]. aStream nextPutAll: iniData! Item was changed: ----- Method: SystemReporter>>reportImage: (in category 'reporting') ----- reportImage: aStream self header: 'Image' on: aStream. aStream nextPutAll: SystemVersion current version; cr; + nextPutAll: Smalltalk image lastUpdateString; cr; + nextPutAll: Smalltalk image currentChangeSetString; cr; + nextPutAll: Smalltalk image imageName; cr! - nextPutAll: SmalltalkImage current lastUpdateString; cr; - nextPutAll: SmalltalkImage current currentChangeSetString; cr; - nextPutAll: (SmalltalkImage current getSystemAttribute: 1); cr! Item was changed: ----- Method: SystemReporter>>reportImageParameters: (in category 'reporting') ----- reportImageParameters: aStream - | id value | self header: 'Image Commandline Parameters' on: aStream. + self enumerate: [:idx | Smalltalk image argumentAt: idx] on: aStream.! - id := 2. - [value := (SmalltalkImage current getSystemAttribute: id). - value = nil or: [id > 1000]] whileFalse: [ - aStream - nextPut: $#; - nextPutAll: (id - 1) printString; - tab; - nextPutAll: value; cr. - id := id + 1 - ]. - id = 2 ifTrue: [aStream nextPutAll: 'none'; cr] - ! Item was changed: ----- Method: SystemReporter>>reportOS: (in category 'reporting') ----- reportOS: aStream self header: 'Operating System/Hardware' on: aStream. aStream + nextPutAll: Smalltalk os platformName; space; + nextPutAll: Smalltalk os osVersion; space; + nextPutAll: Smalltalk os platformSubtype; cr - nextPutAll: (SmalltalkImage current getSystemAttribute: 1001); space; - nextPutAll: (SmalltalkImage current getSystemAttribute: 1002); space; - nextPutAll: (SmalltalkImage current getSystemAttribute: 1003); cr ! Item was changed: ----- Method: SystemReporter>>reportVM: (in category 'reporting') ----- reportVM: aStream self header: 'Virtual Machine' on: aStream. aStream + nextPutAll: (Smalltalk vm vmVersion); cr; + nextPutAll: (Smalltalk vm vmFileName); cr. + Smalltalk vm buildDate + ifNotNilDo: [:string | aStream nextPutAll: string; cr]. - nextPutAll: (SmalltalkImage current getSystemAttribute: 1004); cr; - nextPutAll: (SmalltalkImage current getSystemAttribute: 0); cr. [Smalltalk vm platformSourceVersion ifNotNilDo: [:v | aStream nextPutAll: 'platform sources revision ', v; cr]] on: Warning do: ["unsupported primitive"]. [Smalltalk vm interpreterSourceVersion ifNotNilDo: [:v | aStream nextPutAll: 'VMMaker versionString ', v; cr]] on: Warning do: ["unsupported primitive"]! Item was changed: ----- Method: SystemReporter>>reportVMOptions: (in category 'reporting') ----- reportVMOptions: aStream - | id value | self header: 'Virtual Machine Commandline Options' on: aStream. + self enumerate: [:idx | Smalltalk vm optionAt: idx] startAt: 1 on: aStream! - id := -1. - [value := (SmalltalkImage current getSystemAttribute: id). - value = nil or: [id < -1000]] whileFalse: [ - aStream - nextPut: $#; - nextPutAll: id negated printString; - tab; - nextPutAll: value; cr. - id := id - 1 - ]. - id = -1 ifTrue: [aStream nextPutAll: 'none'; cr] - - !

1 0

Fwd: [squeak-dev] About Squeak 4.1 Language Support
by Eric 28 Jan '11

28 Jan '11

FYI ---------- Forwarded message ---------- From: Eric <ericqiu(a)gmail.com> Date: 2011/1/28 Subject: Re: [squeak-dev] About Squeak 4.1 Language Support To: kksubbu.ml(a)gmail.com Thanks Subbu, As you mentioned, I tried the CNGBTextConverter existing in Squeak4.1 and I assume that it will invoke the languageEnvironment to SimplifiedChineseEnvironment, am i right? I tried following code like: (MultiByteFileStream fileNamed: 'file.txt') converter: (CNGBTextConverter new); contents. And it still doesn't work, does it mean i need to import some fonts for it or other ways? Also another question is in Squeak4.1 what could i do to make sure the the language environment I use is chinese or some others? My understanding now in Squeak4.1 that the default language is UTF8 or Unicode, where could i do the switch? I am just a beginner on Squeak Smalltalk, please correct me if I make any mistakes on understanding Eric 2011/1/27 K. K. Subramaniam <kksubbu.ml(a)gmail.com> On Thursday 27 Jan 2011 3:22:37 pm Eric wrote: > > Now Squeak 4.1 has supported Chinese from Code level, I have tried to > read > > a file containing Chinese character from attached file, it showed up ?? > > for chinese character. > > > > Note: run > > > > (MultiByteFileStream fileNamed: 'file.txt') contents > > in the workspace > > > > Any one know some about it? > > LanguageEnvironment defaultSystemConverter > > determines the text converter used for reading text files for your > environment. > Inspect > (MultiByteFileStream fileNamed: 'file.txt') converter > and make sure it is UTF8TextConverter. If not, you may need to override the > converter before reading its contents. e.g. > (MultiByteFileStream fileNamed: 'file.txt') > converter: (UTF8TextConverter new); > contents. > > If the characters are being decoded correctly then you may need specific > language support (fonts, rendering engine etc.) for your dialect. See > language > support classes in Multilingual-Languages for more details. > > Subbu >

1 0

Re: [squeak-dev] The Trunk: SystemReporter-dtl.5.mcz
by David T. Lewis 28 Jan '11

28 Jan '11

Note - I had intended to keep this in the inbox until after 4.2 release, but it's a minor change and best not to get out of sync with the other SystemReporter updates (which are also small changes). Dave On Fri, Jan 28, 2011 at 02:23:22AM +0000, commits(a)source.squeak.org wrote: > David T. Lewis uploaded a new version of SystemReporter to project The Trunk: > http://source.squeak.org/trunk/SystemReporter-dtl.5.mcz > > ==================== Summary ==================== > > Name: SystemReporter-dtl.5 > Author: dtl > Time: 27 January 2011, 9:22:26.473 pm > UUID: 0f6c58a2-18e7-4809-92db-e5688406758c > Ancestors: SystemReporter-laza.4, SystemReporter-dtl.3 > > Merge SystemReporter-dtl.3 > > =============== Diff against SystemReporter-laza.4 =============== > > Item was changed: > ----- Method: SystemReporter>>reportVM: (in category 'reporting') ----- > reportVM: aStream > self header: 'Virtual Machine' on: aStream. > aStream > nextPutAll: (SmalltalkImage current getSystemAttribute: 1004); cr; > + nextPutAll: (SmalltalkImage current getSystemAttribute: 0); cr. > + [Smalltalk vm platformSourceVersion > + ifNotNilDo: [:v | aStream nextPutAll: 'platform sources revision ', v; cr]] > + on: Warning do: ["unsupported primitive"]. > + [Smalltalk vm interpreterSourceVersion > + ifNotNilDo: [:v | aStream nextPutAll: 'VMMaker versionString ', v; cr]] > + on: Warning do: ["unsupported primitive"]! > - nextPutAll: (SmalltalkImage current getSystemAttribute: 0); cr! >

1 0

The Trunk: SystemReporter-dtl.5.mcz
by commits＠source.squeak.org 28 Jan '11

28 Jan '11

David T. Lewis uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-dtl.5.mcz ==================== Summary ==================== Name: SystemReporter-dtl.5 Author: dtl Time: 27 January 2011, 9:22:26.473 pm UUID: 0f6c58a2-18e7-4809-92db-e5688406758c Ancestors: SystemReporter-laza.4, SystemReporter-dtl.3 Merge SystemReporter-dtl.3 =============== Diff against SystemReporter-laza.4 =============== Item was changed: ----- Method: SystemReporter>>reportVM: (in category 'reporting') ----- reportVM: aStream self header: 'Virtual Machine' on: aStream. aStream nextPutAll: (SmalltalkImage current getSystemAttribute: 1004); cr; + nextPutAll: (SmalltalkImage current getSystemAttribute: 0); cr. + [Smalltalk vm platformSourceVersion + ifNotNilDo: [:v | aStream nextPutAll: 'platform sources revision ', v; cr]] + on: Warning do: ["unsupported primitive"]. + [Smalltalk vm interpreterSourceVersion + ifNotNilDo: [:v | aStream nextPutAll: 'VMMaker versionString ', v; cr]] + on: Warning do: ["unsupported primitive"]! - nextPutAll: (SmalltalkImage current getSystemAttribute: 0); cr!

1 0

The Trunk: SystemReporter-dtl.3.mcz
by commits＠source.squeak.org 28 Jan '11

28 Jan '11

David T. Lewis uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-dtl.3.mcz ==================== Summary ==================== Name: SystemReporter-dtl.3 Author: dtl Time: 23 January 2011, 11:13:46.093 am UUID: f59d0651-2dee-4b52-a4d2-9474d5462973 Ancestors: SystemReporter-laza.2 If the VM reports source revisions via #primitivePlatformSourceVersion and #primitiveInterpreterSourceVersion, include this information in SystemReporter "VM General". Example output: Virtual Machine --------------- Squeak4.1 of 17 April 2010 [latest update: #9957] /usr/local/lib/squeak/4.4.7-2356/squeakvm platform sources revision 2356 VMMaker versionString 4.4.7 =============== Diff against SystemReporter-laza.2 =============== Item was changed: ----- Method: SystemReporter>>reportVM: (in category 'reporting') ----- reportVM: aStream self header: 'Virtual Machine' on: aStream. aStream nextPutAll: (SmalltalkImage current getSystemAttribute: 1004); cr; + nextPutAll: (SmalltalkImage current getSystemAttribute: 0); cr. + [Smalltalk vm platformSourceVersion + ifNotNilDo: [:v | aStream nextPutAll: 'platform sources revision ', v; cr]] + on: Warning do: ["unsupported primitive"]. + [Smalltalk vm interpreterSourceVersion + ifNotNilDo: [:v | aStream nextPutAll: 'VMMaker versionString ', v; cr]] + on: Warning do: ["unsupported primitive"]! - nextPutAll: (SmalltalkImage current getSystemAttribute: 0); cr!

1 0

The Trunk: ShoutCore-ul.28.mcz
by commits＠source.squeak.org 28 Jan '11

28 Jan '11

Levente Uzonyi uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-ul.28.mcz ==================== Summary ==================== Name: ShoutCore-ul.28 Author: ul Time: 28 January 2011, 1:17:21.77 am UUID: 29ed9d42-0ccc-fc49-a38d-57214f045916 Ancestors: ShoutCore-ul.27 - mark ByteArray literals as ByteArrays instead of Arrays =============== Diff against ShoutCore-ul.27 =============== Item was changed: ----- Method: SHParserST80>>parseByteArray (in category 'parse') ----- parseByteArray [currentTokenFirst == $]] whileFalse: [ currentTokenFirst isDigit ifTrue: [ "do not parse the number, can be time consuming" self scanPast: #number] ifFalse: [ self failWhen: currentTokenFirst == $. . self error]]. + self scanPast: #byteArrayEnd! - self scanPast: #arrayEnd! Item was changed: ----- Method: SHParserST80>>parseSymbol (in category 'parse') ----- parseSymbol | c | currentToken = '#' ifTrue: [ "if token is just the #, then scan whitespace and comments and then process the next character. Squeak allows space between the # and the start of the symbol e.g. # (), # a, # 'sym' " self rangeType: #symbol. self scanWhitespace]. c := self currentChar. self failWhen: (c isNil or: [c isSeparator]). c == $( ifTrue: [ self nextChar. self scanPast: #arrayStart start: currentTokenSourcePosition end: currentTokenSourcePosition + 1. ^self parseArray]. c == $' ifTrue: [^self parseSymbolString]. c == $[ ifTrue: [ self nextChar. + self scanPast: #byteArrayStart start: currentTokenSourcePosition end: currentTokenSourcePosition + 1. - self scanPast: #arrayStart start: currentTokenSourcePosition end: currentTokenSourcePosition + 1. ^self parseByteArray]. ((self isSelectorCharacter: c) or: [c == $-]) ifTrue: [^self parseSymbolSelector]. (c isLetter or: [ c == $: or: [ c == $_ and: [self allowUnderscoreSelectors] ] ]) ifTrue: [^self parseSymbolIdentifier]. ^self parseCharSymbol! Item was changed: ----- Method: SHTextStylerST80 class>>defaultStyleTable (in category 'style table') ----- defaultStyleTable "color can be a valid argument to Color class>>colorFrom: , or nil to use the editor text color. Multiple emphases can be specified using an array e.g. #(bold italic). If emphasis is not specified, #normal will be used. if pixel height is not specified , then the editor font size will be used. " ^#( "(symbol color [emphasisSymbolOrArray [textStyleName [pixelHeight]]])" (default black ) (invalid red ) (excessCode red ) (comment (green muchDarker) italic) (unfinishedComment (red muchDarker) italic) (#'$' (red muchDarker) ) (character (red muchDarker) ) (integer (red muchDarker) ) (number (red muchDarker) ) (#- (red muchDarker) ) (symbol (blue muchDarker) bold) (stringSymbol (blue muchDarker) bold) (literalArray (blue muchDarker) bold) (string (magenta muchDarker) normal) (unfinishedString red normal ) (assignment nil bold ) (ansiAssignment nil bold) (literal nil italic) (keyword (blue muchDarker) ) (binary (blue muchDarker) ) (unary (blue muchDarker) ) (incompleteKeyword (gray muchDarker) underlined) (incompleteBinary (gray muchDarker) underlined) (incompleteUnary (gray muchDarker) underlined) (undefinedKeyword red ) (undefinedBinary red ) (undefinedUnary red ) (patternKeyword nil bold) (patternBinary nil bold) (patternUnary nil bold) (#self (red muchDarker) bold) (#super (red muchDarker) bold) (#true (red muchDarker) bold) (#false (red muchDarker) bold) (#nil (red muchDarker) bold) (#thisContext (red muchDarker) bold) (#return (red muchDarker) bold) (patternArg (blue muchDarker) italic) (methodArg (blue muchDarker) italic) (blockPatternArg (blue muchDarker) italic) (blockArg (blue muchDarker) italic) (argument (blue muchDarker) italic) (blockArgColon black ) (leftParenthesis black ) (rightParenthesis black ) (leftParenthesis1 (green muchDarker) ) (rightParenthesis1 (green muchDarker) ) (leftParenthesis2 (magenta muchDarker) ) (rightParenthesis2 (magenta muchDarker) ) (leftParenthesis3 (red muchDarker) ) (rightParenthesis3 (red muchDarker) ) (leftParenthesis4 (green darker) ) (rightParenthesis4 (green darker) ) (leftParenthesis5 (orange darker) ) (rightParenthesis5 (orange darker) ) (leftParenthesis6 (magenta darker) ) (rightParenthesis6 (magenta darker) ) (leftParenthesis7 blue ) (rightParenthesis7 blue ) (blockStart black ) (blockEnd black ) (blockStart1 (green muchDarker) ) (blockEnd1 (green muchDarker) ) (blockStart2 (magenta muchDarker) ) (blockEnd2 (magenta muchDarker) ) (blockStart3 (red muchDarker) ) (blockEnd3 (red muchDarker) ) (blockStart4 (green darker) ) (blockEnd4 (green darker) ) (blockStart5 (orange darker) ) (blockEnd5 (orange darker) ) (blockStart6 (magenta darker) ) (blockEnd6 (magenta darker) ) (blockStart7 blue ) (blockEnd7 blue ) (arrayStart black ) (arrayEnd black ) (arrayStart1 black ) (arrayEnd1 black ) + (byteArrayStart black ) + (byteArrayEnd black ) + (byteArrayStart1 black ) + (byteArrayEnd1 black ) (leftBrace black ) (rightBrace black ) (cascadeSeparator black ) (statementSeparator black ) (externalCallType black ) (externalCallTypePointerIndicator black ) (primitiveOrExternalCallStart black bold ) (primitiveOrExternalCallEnd black bold ) (methodTempBar gray ) (blockTempBar gray ) (blockArgsBar gray ) (primitive (green muchDarker) bold) (pragmaKeyword (green muchDarker) bold) (pragmaUnary (green muchDarker) bold) (pragmaBinary (green muchDarker) bold) (externalFunctionCallingConvention (green muchDarker) bold) (module (green muchDarker) bold) (blockTempVar gray italic) (blockPatternTempVar gray italic) (instVar black bold) (workspaceVar black bold) (undefinedIdentifier red bold) (incompleteIdentifier (gray darker) (italic underlined)) (tempVar (gray darker) italic) (patternTempVar (gray darker) italic) (poolConstant (gray darker) italic) (classVar (gray darker) bold) (globalVar black bold) ) ! Item was changed: ----- Method: SHTextStylerST80 class>>subduedStyleTable (in category 'style table') ----- subduedStyleTable "color can be a valid argument to Color class>>colorFrom: , or nil to use the editor text color. Multiple emphases can be specified using an array e.g. #(bold italic). If emphasis is not specified, #normal will be used. if pixel height is not specified , then the editor font size will be used. " ^#( "(symbol color [emphasisSymbolOrArray [textStyleName [pixelHeight]]])" (default black ) (invalid red ) (excessCode red ) (comment (cyan muchDarker) ) (unfinishedComment (red muchDarker) italic) (#'$' (red muchDarker) ) (character (red muchDarker) ) (integer (red muchDarker) ) (number (red muchDarker) ) (#- (red muchDarker) ) (symbol (blue muchDarker) ) (stringSymbol (blue muchDarker) ) (literalArray (blue muchDarker) ) (string (magenta muchDarker) normal ) (unfinishedString red normal ) (assignment nil bold ) (ansiAssignment nil bold) (literal nil italic) (keyword (blue muchDarker) ) (binary (blue muchDarker) ) (unary (blue muchDarker) ) (incompleteKeyword (gray muchDarker) underlined) (incompleteBinary (gray muchDarker) underlined) (incompleteUnary (gray muchDarker) underlined) (undefinedKeyword red ) (undefinedBinary red ) (undefinedUnary red ) (patternKeyword nil bold) (patternBinary nil bold) (patternUnary nil bold) (#self (red muchDarker) ) (#super (red muchDarker) ) (#true (red muchDarker) ) (#false (red muchDarker) ) (#nil (red muchDarker) ) (#thisContext (red muchDarker) ) (#return (red muchDarker) ) (patternArg (blue muchDarker) ) (methodArg (blue muchDarker) ) (blockPatternArg (blue muchDarker) ) (blockArg (blue muchDarker) ) (argument (blue muchDarker) ) (blockArgColon black ) (leftParenthesis black ) (rightParenthesis black ) (leftParenthesis1 (green muchDarker) ) (rightParenthesis1 (green muchDarker) ) (leftParenthesis2 (magenta muchDarker) ) (rightParenthesis2 (magenta muchDarker) ) (leftParenthesis3 (red muchDarker) ) (rightParenthesis3 (red muchDarker) ) (leftParenthesis4 (green darker) ) (rightParenthesis4 (green darker) ) (leftParenthesis5 (orange darker) ) (rightParenthesis5 (orange darker) ) (leftParenthesis6 (magenta darker) ) (rightParenthesis6 (magenta darker) ) (leftParenthesis7 blue ) (rightParenthesis7 blue ) (blockStart black ) (blockEnd black ) (blockStart1 (green muchDarker) ) (blockEnd1 (green muchDarker) ) (blockStart2 (magenta muchDarker) ) (blockEnd2 (magenta muchDarker) ) (blockStart3 (red muchDarker) ) (blockEnd3 (red muchDarker) ) (blockStart4 (green darker) ) (blockEnd4 (green darker) ) (blockStart5 (orange darker) ) (blockEnd5 (orange darker) ) (blockStart6 (magenta darker) ) (blockEnd6 (magenta darker) ) (blockStart7 blue ) (blockEnd7 blue ) (arrayStart black ) (arrayEnd black ) (arrayStart1 black ) (arrayEnd1 black ) + (byteArrayStart black ) + (byteArrayEnd black ) + (byteArrayStart1 black ) + (byteArrayEnd1 black ) (leftBrace black ) (rightBrace black ) (cascadeSeparator black ) (statementSeparator black ) (externalCallType black ) (externalCallTypePointerIndicator black ) (primitiveOrExternalCallStart black ) (primitiveOrExternalCallEnd black ) (methodTempBar gray ) (blockTempBar gray ) (blockArgsBar gray ) (primitive (green muchDarker) bold) (pragmaKeyword (green muchDarker) bold) (pragmaUnary (green muchDarker) bold) (pragmaBinary (green muchDarker) bold) (externalFunctionCallingConvention (green muchDarker) bold) (module (green muchDarker) bold) (blockTempVar gray ) (blockPatternTempVar gray ) (instVar black ) (workspaceVar black ) (undefinedIdentifier red ) (incompleteIdentifier (gray darker) (italic underlined)) (tempVar (gray darker) ) (patternTempVar (gray darker) ) (poolConstant (gray muchDarker) ) (classVar (gray muchDarker) ) (globalVar black ) )! Item was changed: + (PackageInfo named: 'ShoutCore') postscript: 'SHTextStylerST80 initialize. "Changed the postscript to run it one more time."'! - (PackageInfo named: 'ShoutCore') postscript: 'SHTextStylerST80 initialize'!

1 0

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

Jump to page: