Packages December 2018

packages@lists.squeakfoundation.org

1 participants
51 discussions

The Trunk: Kernel-eem.1205.mcz
by commits＠source.squeak.org 12 Dec '18

12 Dec '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1205.mcz ==================== Summary ==================== Name: Kernel-eem.1205 Author: eem Time: 11 December 2018, 10:49:04.777479 pm UUID: 87be6ac9-ae74-4927-ac9d-69a076851e7b Ancestors: Kernel-eem.1204 For the benefit of proxies, avoid withArgs:executeMethod: in the debugger's core primitive evaluator. =============== Diff against Kernel-eem.1204 =============== Item was changed: ----- Method: Context>>doPrimitive:method:receiver:args: (in category 'private') ----- doPrimitive: primitiveIndex method: meth receiver: receiver args: arguments "Simulate a primitive method whose index is primitiveIndex. The simulated receiver and arguments are given as arguments to this message. If successful, push result and return resuming context, else ^ {errCode, PrimitiveFailToken}. Any primitive which provokes execution needs to be intercepted and simulated to avoid execution running away." | value | "Judicious use of primitive 19 (a null primitive that doesn't do anything) prevents the debugger from entering various run-away activities such as spawning a new process, etc. Injudicious use results in the debugger not being able to debug interesting code, such as the debugger itself. Hence use primitive 19 with care :-)" "SystemNavigation new browseAllSelect: [:m| m primitive = 19]" primitiveIndex = 19 ifTrue: [ToolSet debugContext: self label:'Code simulation error' contents: nil]. ((primitiveIndex between: 201 and: 222) and: [(self objectClass: receiver) includesBehavior: BlockClosure]) ifTrue: [(primitiveIndex = 206 or: [primitiveIndex = 208]) ifTrue: "[Full]BlockClosure>>valueWithArguments:" [^receiver simulateValueWithArguments: arguments first caller: self]. ((primitiveIndex between: 201 and: 209) "[Full]BlockClosure>>value[:value:...]" or: [primitiveIndex between: 221 and: 222]) ifTrue: "[Full]BlockClosure>>valueNoContextSwitch[:]" [^receiver simulateValueWithArguments: arguments caller: self]]. primitiveIndex = 83 ifTrue: "afr 9/11/1998 19:50" "Object>>perform:[with:...]" [^self send: arguments first to: receiver with: arguments allButFirst]. primitiveIndex = 84 ifTrue: "afr 9/11/1998 19:50 & eem 8/18/2009 17:04" "Object>>perform:withArguments:" [^self send: arguments first to: receiver with: (arguments at: 2) lookupIn: (self objectClass: receiver)]. primitiveIndex = 100 ifTrue: "eem 8/18/2009 16:57" "Object>>perform:withArguments:inSuperclass:" [^self send: arguments first to: receiver with: (arguments at: 2) lookupIn: (arguments at: 3)]. "Mutex>>primitiveEnterCriticalSection Mutex>>primitiveTestAndSetOwnershipOfCriticalSection" (primitiveIndex = 186 or: [primitiveIndex = 187]) ifTrue: [| effective | effective := Processor activeProcess effectiveProcess. "active == effective" value := primitiveIndex = 186 ifTrue: [receiver primitiveEnterCriticalSectionOnBehalfOf: effective] ifFalse: [receiver primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: effective]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]]. primitiveIndex = 188 ifTrue: "eem 5/27/2008 11:10 Object>>withArgs:executeMethod:" + [| args methodArg | + ((self objectClass: (args := arguments at: 1)) == Array + and: [(self objectClass: (methodArg := arguments at: 2)) includesBehavior: CompiledMethod]) ifFalse: - [((self objectClass: (arguments at: 1)) == Array - and: [(self objectClass: (arguments at: 2)) includesBehavior: CompiledMethod]) ifFalse: [^self class primitiveFailTokenFor: #'bad argument']. + methodArg numArgs = args size ifFalse: - (arguments at: 2) numArgs = (arguments at: 1) size ifFalse: [^self class primitiveFailTokenFor: #'bad number of arguments']. + methodArg primitive > 0 ifTrue: + [methodArg isQuick ifTrue: + [^self push: (methodArg valueWithReceiver: receiver arguments: args)]. + ^self doPrimitive: methodArg primitive method: meth receiver: receiver args: args]. - (arguments at: 2) primitive > 0 ifTrue: - [(arguments at: 2) isQuick ifTrue: - [^self push: (receiver withArgs: (arguments at: 1) executeMethod: (arguments at: 2))]. - ^self doPrimitive: (arguments at: 2) primitive method: (arguments at: 2) receiver: receiver args: (arguments at: 1)]. ^Context sender: self receiver: receiver + method: methodArg + arguments: args]. - method: (arguments at: 2) - arguments: (arguments at: 1)]. primitiveIndex = 118 ifTrue: "[receiver:]tryPrimitive:withArgs:; avoid recursing in the VM" [(arguments size = 3 and: [(self objectClass: arguments second) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifTrue: [^self doPrimitive: arguments second method: meth receiver: arguments first args: arguments last]. (arguments size = 2 and: [(self objectClass: arguments first) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifFalse: [^self class primitiveFailTokenFor: nil]. ^self doPrimitive: arguments first method: meth receiver: receiver args: arguments last]. value := primitiveIndex = 120 "FFI method" ifTrue: [(meth literalAt: 1) tryInvokeWithArguments: arguments] ifFalse: [primitiveIndex = 117 "named primitives" ifTrue: [self tryNamedPrimitiveIn: meth for: receiver withArgs: arguments] ifFalse: "should use self receiver: receiver tryPrimitive: primitiveIndex withArgs: arguments but this is only in later VMs (and appears to be broken)" [receiver tryPrimitive: primitiveIndex withArgs: arguments]]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]!

1 0

The Trunk: Tools-eem.838.mcz
by commits＠source.squeak.org 12 Dec '18

12 Dec '18

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.838.mcz ==================== Summary ==================== Name: Tools-eem.838 Author: eem Time: 11 December 2018, 10:26:23.796428 pm UUID: f6aeef1b-77ff-440c-9e16-ab6b654a9378 Ancestors: Tools-pre.837 For the benefit of proxies avoid the use of withArgs:executeMethod: in Debugger>>runUntil. =============== Diff against Tools-pre.837 =============== Item was changed: ----- Method: Debugger>>runUntil (in category 'code pane menu') ----- runUntil "Step until an expression evaluates to other than false, reporting an error if it doesn't evaluate to true. Remember the expression in an inst var. If shift is pressed when the expression is supplied, don't update the UI. If shift is pressed while stepping, stop stepping. Using a user interrupt to break out would be more natural but Squeak currently doesn't provide a UserInterrupt expection. It should do." | expression receiver context method value lastUpdate updateUI breakOnShift | expression := UIManager default request: 'run until expression is true (shift to disable ui update; shift to break).' initialAnswer: (untilExpression ifNil: 'boolean expression'). (expression isNil or: [expression isEmpty]) ifTrue: [^self]. updateUI := breakOnShift := Sensor shiftPressed not. untilExpression := expression. context := self selectedContext. receiver := context receiver. method := receiver class evaluatorClass new compiledMethodFor: untilExpression in: context to: receiver notifying: nil ifFail: [^ #failedDoit]. lastUpdate := Time millisecondClockValue. Cursor execute showWhile: [[self selectedContext == context and: [context willReturn not + and: [(value := method valueWithReceiver: receiver arguments: {context}) == false]]] whileTrue: - and: [(value := receiver with: context executeMethod: method) == false]]] whileTrue: [interruptedProcess completeStep: self selectedContext. self selectedContext == context ifTrue: [self resetContext: interruptedProcess stepToSendOrReturn changeContents: false]. Time millisecondClockValue - lastUpdate > 50 ifTrue: [updateUI ifTrue: [self changed: #contentsSelection. Project current world displayWorldSafely]. breakOnShift ifTrue: [Sensor shiftPressed ifTrue: [self changed: #contentsSelection. self updateInspectors. ^self]] ifFalse: [Sensor shiftPressed ifFalse: [breakOnShift := true]]. lastUpdate := Time millisecondClockValue]]]. self changed: #contentsSelection. self updateInspectors. (value ~~ false and: [value ~~ true]) ifTrue: [UIManager default inform: 'expression ', (untilExpression contractTo: 40), ' answered ', (value printString contractTo: 20), '!!!!']!

1 0

The Trunk: Kernel-eem.1204.mcz
by commits＠source.squeak.org 12 Dec '18

12 Dec '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1204.mcz ==================== Summary ==================== Name: Kernel-eem.1204 Author: eem Time: 11 December 2018, 10:25:21.771318 pm UUID: 6984fae9-5e2c-4093-b962-d51a825e3176 Ancestors: Kernel-nice.1203 For teh benefit of proxies avoid withArgs:executeMethod: in CompiledMethod>>valueWithReceiver:arguments:. Have CompiledMethod class>>receiver:withArguments:executeMethod: expect the primitiv e is available in that form and fail rather than fall back on withArgs:executeMethod:. =============== Diff against Kernel-nice.1203 =============== Item was changed: ----- Method: CompiledMethod class>>receiver:withArguments:executeMethod: (in category 'evaluating') ----- receiver: receiver withArguments: argArray executeMethod: compiledMethod "Execute compiledMethod against the receiver and the arguments in argArray" + <primitive: 188 error: ec> + self primitiveFailed! - <primitive: 188> - ^receiver withArgs: argArray executeMethod: compiledMethod! Item was changed: ----- Method: CompiledMethod>>valueWithReceiver:arguments: (in category 'evaluating') ----- valueWithReceiver: aReceiver arguments: anArray + ^self class receiver: aReceiver withArguments: anArray executeMethod: self! - "This should be changed after the release of Squeak 4.3 to - ^self class receiver: aReceiver withArguments: anArray executeMethod: self" - ^ aReceiver withArgs: anArray executeMethod: self!

1 0

The Trunk: Kernel-nice.1203.mcz
by commits＠source.squeak.org 12 Dec '18

12 Dec '18

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1203.mcz ==================== Summary ==================== Name: Kernel-nice.1203 Author: nice Time: 12 December 2018, 12:58:33.810289 am UUID: 1fdf8772-d764-cd42-9291-fb7464d23204 Ancestors: Kernel-nice.1202 Micro-optimization: use knowledge of SmallFloat64 representation: due to restricted exponent range, they can't be infinite nor nan (nor subnormal, but we don't ask). Let a comment be more accurate, primitive 75 does not only fail for SmallInteger, but also for any other immediate value. =============== Diff against Kernel-nice.1202 =============== Item was changed: ----- Method: ProtoObject>>identityHash (in category 'comparing') ----- identityHash "Answer a SmallInteger whose value is related to the receiver's identity. + This method must not be overridden, except by immediate values. + Primitive. Fails if the receiver is immediate. Essential. - This method must not be overridden, except by SmallInteger. - Primitive. Fails if the receiver is a SmallInteger. Essential. See Object documentation whatIsAPrimitive. Do not override." <primitive: 75> self primitiveFailed! Item was added: + ----- Method: SmallFloat64>>isFinite (in category 'testing') ----- + isFinite + "A SmallFloat64 is always finite. + Infinity or nan require large exponent that does not fit." + + ^true! Item was added: + ----- Method: SmallFloat64>>isInfinite (in category 'testing') ----- + isInfinite + "A SmallFloat64 is never infinite. + Infinity require large exponent that does not fit." + + ^false! Item was added: + ----- Method: SmallFloat64>>isNaN (in category 'testing') ----- + isNaN + "A SmallFloat64 is never nan. + nan require large exponent that does not fit." + + ^false!

1 0

The Trunk: Kernel-nice.1202.mcz
by commits＠source.squeak.org 12 Dec '18

12 Dec '18

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1202.mcz ==================== Summary ==================== Name: Kernel-nice.1202 Author: nice Time: 12 December 2018, 12:31:18.370647 am UUID: f1313d70-e185-de48-a230-53fe6f67ec59 Ancestors: Kernel-pre.1201, Kernel-nice.1200 Merge Kernel-pre.1201 + Kernel-nice.1200 =============== Diff against Kernel-pre.1201 =============== Item was changed: ----- Method: Number>>defaultLabelForInspector (in category 'printing') ----- defaultLabelForInspector "Answer the default label to be used for an Inspector window on the receiver." + ^ super defaultLabelForInspector, ': ', ([self printStringLimitedTo: 100] + ifError: ['<error cannot print this number>'])! - ^ super defaultLabelForInspector, ': ', self printString!

1 0

The Trunk: Kernel-nice.1200.mcz
by commits＠source.squeak.org 12 Dec '18

12 Dec '18

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1200.mcz ==================== Summary ==================== Name: Kernel-nice.1200 Author: nice Time: 9 December 2018, 11:17:42.830548 am UUID: 4608ee87-5859-4132-918f-df0f71dcc07e Ancestors: Kernel-eem.1199 Let's make basicInspect robust to crazy numbers. With http://www.squeaksource.com/ArbitraryPrecisionFl.html I can create crazy numbers like this: ((1 asArbitraryPrecisionFloatNumBits: 100) timesTwoPower: 1e100) But then I can't print to decimal form (a bit too many bytes to be allocated....). The problem when debugging such monster is that basicInspect is not basicEnough: it insists on printing the Number in the inspector title (label)! If we invoke basicInspect, we generally want something basic. Even if we just inspect, having a label spanning more than 100 chars is vain... So let's be robust. =============== Diff against Kernel-eem.1199 =============== Item was changed: ----- Method: Number>>defaultLabelForInspector (in category 'printing') ----- defaultLabelForInspector "Answer the default label to be used for an Inspector window on the receiver." + ^ super defaultLabelForInspector, ': ', ([self printStringLimitedTo: 100] + ifError: ['<error cannot print this number>'])! - ^ super defaultLabelForInspector, ': ', self printString!

1 0

The Trunk: TrueType-pre.51.mcz
by commits＠source.squeak.org 11 Dec '18

11 Dec '18

Patrick Rein uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-pre.51.mcz ==================== Summary ==================== Name: TrueType-pre.51 Author: pre Time: 11 December 2018, 6:01:06.345299 pm UUID: 7f055110-3ea7-430b-ab41-bcdec6a95da2 Ancestors: TrueType-kfr.50 Categorizes uncategorized messages in the TrueType package. =============== Diff against TrueType-kfr.50 =============== Item was changed: + ----- Method: LinedTTCFont class>>fromTTCFont:emphasis: (in category 'instance creation') ----- - ----- Method: LinedTTCFont class>>fromTTCFont:emphasis: (in category 'as yet unclassified') ----- fromTTCFont: aTTCFont emphasis: code | inst | inst := self new. inst ttcDescription: aTTCFont ttcDescription. inst pointSize: aTTCFont pointSize. inst emphasis: (aTTCFont emphasis bitOr: code). inst lineGlyph: (aTTCFont ttcDescription at: $_). ^ inst. ! Item was changed: + ----- Method: MultiTTCFont class>>cacheAllNil (in category 'system maintenance') ----- - ----- Method: MultiTTCFont class>>cacheAllNil (in category 'as yet unclassified') ----- cacheAllNil " self cacheAllNil " self allInstances do: [:inst | inst cache do: [:e | e third ifNotNil: [^ false]. ]. ]. ^ true. ! Item was changed: + ----- Method: MultiTTCFont>>at:put: (in category 'private') ----- - ----- Method: MultiTTCFont>>at:put: (in category 'all') ----- at: char put: form | ind triplet | triplet := Array with: char asciiValue with: foregroundColor with: form. GlyphCacheData at: (GlyphCacheIndex := GlyphCacheIndex \\ GlyphCacheSize + 1) put: triplet. ind := self indexFor: char. map at: char asciiValue put: ind. self cache at: ind put: triplet. ! Item was changed: + ----- Method: MultiTTCFont>>cache (in category 'friend') ----- - ----- Method: MultiTTCFont>>cache (in category 'all') ----- cache (cache isNil or: [cache size ~= 512]) ifTrue: [self recreateCache]. "old weak-array caching" ^cache! Item was changed: + ----- Method: MultiTTCFont>>flushCache (in category 'initialize') ----- - ----- Method: MultiTTCFont>>flushCache (in category 'all') ----- flushCache super flushCache. map := IdentityDictionary new: 512. ! Item was changed: + ----- Method: MultiTTCFont>>foregroundColor: (in category 'initialize') ----- - ----- Method: MultiTTCFont>>foregroundColor: (in category 'all') ----- foregroundColor: fgColor "Install the given foreground color" foregroundColor := fgColor.! Item was changed: + ----- Method: MultiTTCFont>>formOf: (in category 'private') ----- - ----- Method: MultiTTCFont>>formOf: (in category 'all') ----- formOf: char | newForm | cache ifNil: [ self recreateCache ]. foregroundColor ifNil: [ self foregroundColor: Color black ]. self hasCached: char ifTrue: [:form | ^ form. ]. newForm := self computeForm: char. self at: char put: newForm. ^ newForm. ! Item was changed: + ----- Method: MultiTTCFont>>glyphInfoOf:into: (in category 'private') ----- - ----- Method: MultiTTCFont>>glyphInfoOf:into: (in category 'all') ----- glyphInfoOf: char into: glyphInfoArray | newForm | self hasCached: char ifTrue: [:form | glyphInfoArray at: 1 put: form; at: 2 put: 0; at: 3 put: form width; at: 4 put: (self ascentOf: char); at: 5 put: self. ^ glyphInfoArray. ]. newForm := self computeForm: char. self at: char put: newForm. glyphInfoArray at: 1 put: newForm; at: 2 put: 0; at: 3 put: newForm width; at: 4 put: (self ascentOf: char); at: 5 put: self. ^ glyphInfoArray. ! Item was changed: + ----- Method: MultiTTCFont>>hasCached:ifTrue: (in category 'private') ----- - ----- Method: MultiTTCFont>>hasCached:ifTrue: (in category 'all') ----- hasCached: char ifTrue: aBlock | value triplet | value := char asciiValue. triplet := cache at: (map at: value ifAbsent: [^ false]). triplet ifNil: [^ false]. (triplet at: 1) ~= value ifTrue: [^ false]. (triplet at: 2) ~= foregroundColor ifTrue: [^ false]. ^ aBlock value: (triplet at: 3). ! Item was changed: + ----- Method: MultiTTCFont>>indexFor: (in category 'private') ----- - ----- Method: MultiTTCFont>>indexFor: (in category 'all') ----- indexFor: char | triplet | map size > 511 ifTrue: [ cacheIndex := 512 atRandom. triplet := self cache at: cacheIndex. triplet ifNotNil: [map removeKey: (triplet at: 1) ifAbsent: []]. ^ cacheIndex ]. ^ (cacheIndex := cacheIndex + 1 \\ 512) + 1. ! Item was changed: + ----- Method: MultiTTCFont>>initialize (in category 'friend') ----- - ----- Method: MultiTTCFont>>initialize (in category 'all') ----- initialize super initialize. cacheIndex := 511. ! Item was changed: + ----- Method: MultiTTCFont>>recreateCache (in category 'friend') ----- - ----- Method: MultiTTCFont>>recreateCache (in category 'all') ----- recreateCache cache := WeakArray new: 512. map := IdentityDictionary new: 512. ! Item was changed: + ----- Method: MultiTTCFont>>widthOf: (in category 'public') ----- - ----- Method: MultiTTCFont>>widthOf: (in category 'all') ----- widthOf: char ^ (self formOf: char) width. ! Item was changed: ----- Method: TTCFont>>derivativeFont: (in category 'friend') ----- derivativeFont: aTTCFont | index | index := self indexOfSubfamilyName: (aTTCFont subfamilyName). index < 1 ifTrue: [ ^ self "inform: 'unknown sub family name. This font will be skipped'". ]. self derivativeFont: aTTCFont at: index. self addLined: aTTCFont. ! Item was changed: + ----- Method: TTCFont>>pixelsPerInchChanged (in category 'notifications') ----- - ----- Method: TTCFont>>pixelsPerInchChanged (in category 'as yet unclassified') ----- pixelsPerInchChanged "The definition of TextStyle class>>pixelsPerInch has changed. Do whatever is necessary." self recreateCache! Item was changed: + ----- Method: TTCFontReader class>>encodingTag: (in category 'accessing') ----- - ----- Method: TTCFontReader class>>encodingTag: (in category 'as yet unclassified') ----- encodingTag: aNumber " TTCFontReader encodingTag: 6 " EncodingTag := aNumber. ! Item was changed: + ----- Method: TTCFontReader>>getTableDirEntry:from:offset: (in category 'private') ----- - ----- Method: TTCFontReader>>getTableDirEntry:from:offset: (in category 'as yet unclassified') ----- getTableDirEntry: tagString from: fontData offset: offset "Find the table named tagString in fontData and return a table directory entry for it." | nTables pos currentTag tag | nTables := fontData shortAt: 5 + offset bigEndian: true. tag := ByteArray new: 4. 1 to: 4 do:[:i| tag byteAt: i put: (tagString at: i) asInteger]. tag := tag longAt: 1 bigEndian: true. pos := 13 + offset. 1 to: nTables do:[:i| currentTag := fontData longAt: pos bigEndian: true. currentTag = tag ifTrue:[^TTFontTableDirEntry on: fontData at: pos]. pos := pos+16]. ^nil! Item was changed: + ----- Method: TTCFontReader>>parseTTCHeaderFrom: (in category 'private') ----- - ----- Method: TTCFontReader>>parseTTCHeaderFrom: (in category 'as yet unclassified') ----- parseTTCHeaderFrom: fontData | pos nTables | nTables := fontData longAt: 9 bigEndian: true. fonts := Array new: nTables. pos := 13. 1 to: nTables do: [:i | fonts at: i put: (fontData longAt: pos bigEndian: true). pos := pos + 4. ]. ^ fonts ! Item was changed: + ----- Method: TTCFontReader>>processCharMap: (in category 'processing') ----- - ----- Method: TTCFontReader>>processCharMap: (in category 'as yet unclassified') ----- processCharMap: assoc "Process the given character map" | glyph cmap encode0 encode1 char value null | cmap := assoc value. null := (glyphs at: (cmap at: Character space asUnicode + 1) + 1) copy. null contours: #(). encode0 := Array new: 256 withAll: glyphs first. encode1 := Array new: 65536 withAll: glyphs first. 0 to: 255 do: [:i | char := Character value: i. glyph := glyphs at: (cmap at: char asUnicode + 1) + 1. encode0 at: i+1 put: glyph. ]. Character separators do: [:c | encode0 at: (c asciiValue + 1) put: null. ]. 0 to: 65536 - 1 do: [:i | value := cmap at: i+1. value = 65535 ifFalse: [ "???" | g | g := glyphs at: value+1 ifAbsent: [ null. ]. (g isKindOf: TTCompositeGlyph) ifFalse: [ encode1 at: i+1 put: g. ] ifTrue: [ g basicGlyphs: (((glyphs at: value+1) basicGlyphs) collect: [:t | t key->(glyphs at: (t value glyphIndex+1))]). encode1 at: i+1 put: g ]. ] ]. ^ {encode0. encode1}. ! Item was changed: + ----- Method: TTCFontReader>>readFrom: (in category 'public') ----- - ----- Method: TTCFontReader>>readFrom: (in category 'as yet unclassified') ----- readFrom: aStream "Read the raw font byte data" | fontData | (aStream respondsTo: #binary) ifTrue:[aStream binary]. fontData := aStream contents asByteArray. fonts := self parseTTCHeaderFrom: fontData. ^ fonts gather: [:offset | fontDescription := TTCFontDescription new. self readFrom: fontData fromOffset: offset at: EncodingTag]! Item was changed: + ----- Method: TTCFontReader>>readFrom:fromOffset:at: (in category 'private') ----- - ----- 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 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. ! Item was changed: + ----- Method: TTCFontReader>>readTTFFrom: (in category 'reading') ----- - ----- Method: TTCFontReader>>readTTFFrom: (in category 'as yet unclassified') ----- readTTFFrom: aStream "Read the raw font byte data" | fontData | (aStream respondsTo: #binary) ifTrue:[aStream binary]. fontData := aStream contents asByteArray. fontDescription := TTCFontDescription new. ^ self readFrom: fontData fromOffset: 0 at: EncodingTag. !

1 0

The Trunk: ToolsTests-pre.89.mcz
by commits＠source.squeak.org 11 Dec '18

11 Dec '18

Patrick Rein uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-pre.89.mcz ==================== Summary ==================== Name: ToolsTests-pre.89 Author: pre Time: 11 December 2018, 5:07:04.160299 pm UUID: 3cc4553a-b373-47d0-ac04-875dea46ae50 Ancestors: ToolsTests-pre.88 Adds a test documenting the (intended) behavior of the class browser to reset the instance/class mode when changing the system category. Also changes three tests to be more resilient with respect to other symbols present in the image (having a symbol #cull somewhere in the image breaks the changed tests). =============== Diff against ToolsTests-pre.88 =============== Item was added: + ----- Method: BrowserTest>>testMetaClassIndicatedIsResetByChangedSystemCategory (in category 'tests') ----- + testMetaClassIndicatedIsResetByChangedSystemCategory + browser selectSystemCategory: browser class category. + browser metaClassIndicated: true. + browser selectSystemCategory: self class category. + + self deny: browser metaClassIndicated.! Item was changed: ----- Method: MessageNamesTest>>testSelectedClassOrMetaClass (in category 'tests') ----- testSelectedClassOrMetaClass | firstClass | + browser searchString: 'cull:'. - browser searchString: 'cull'. firstClass := browser messageList first actualClass. browser messageListIndex: 1. self assert: browser selectedClassOrMetaClass = firstClass. browser messageListIndex: 0. self assert: browser selectedClassOrMetaClass isNil. "And just to be sure:" browser messageListIndex: 1. self assert: browser selectedClassOrMetaClass = firstClass.! Item was changed: ----- Method: MessageNamesTest>>testSelectedMessageCategoryName (in category 'tests') ----- testSelectedMessageCategoryName + browser searchString: 'cull:'. - browser searchString: 'cull'. browser selectorListIndex: 1. browser messageListIndex: 1. self deny: browser selectedMessageCategoryName isNil. browser messageListIndex: 0. self assert: browser selectedMessageCategoryName isNil.! Item was changed: ----- Method: MessageNamesTest>>testSelection (in category 'tests') ----- testSelection + browser searchString: 'cull:'. - browser searchString: 'cull'. browser selectorListIndex: 1. browser messageListIndex: 1. self assert: (browser selection isKindOf: MethodReference). browser messageListIndex: 0. self assert: browser selection isNil.!

1 0

The Trunk: Tools-pre.837.mcz
by commits＠source.squeak.org 11 Dec '18

11 Dec '18

Patrick Rein uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-pre.837.mcz ==================== Summary ==================== Name: Tools-pre.837 Author: pre Time: 11 December 2018, 5:05:26.836299 pm UUID: ef584774-9287-4670-aa1c-1340db6367fb Ancestors: Tools-pre.836 Fixes an issue which caused the instance/class buttons in the class browser to show an inconsistent state after changing the system category. =============== Diff against Tools-pre.836 =============== Item was changed: ----- Method: Browser>>selectSystemCategory: (in category 'system category list') ----- selectSystemCategory: aSymbol "Set the selected system category. Update all other selections to be deselected." aSymbol = selectedSystemCategory ifTrue: [^ self]. selectedSystemCategory := aSymbol. selectedClassName := nil. selectedMessageCategoryName := nil. selectedMessageName := nil. self editSelection: ( aSymbol isNil ifTrue: [#none] ifFalse: [#newClass]). + self metaClassIndicated: false. - metaClassIndicated := false. self setClassOrganizer. contents := nil. + + self + changed: #systemCategorySelectionChanged; + changed: #systemCategoryListIndex; "update my selection" + changed: #classList; + changed: #messageCategoryList; + changed: #messageList; + changed: #relabel. + + self + decorateButtons; + contentsChanged! - self changed: #systemCategorySelectionChanged. - self changed: #systemCategoryListIndex. "update my selection" - self changed: #classList. - self changed: #messageCategoryList. - self changed: #messageList. - self changed: #relabel. - self contentsChanged!

1 0

The Trunk: Network-pre.228.mcz
by commits＠source.squeak.org 11 Dec '18

11 Dec '18

Patrick Rein uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-pre.228.mcz ==================== Summary ==================== Name: Network-pre.228 Author: pre Time: 11 December 2018, 4:07:36.560299 pm UUID: 1dd9f0d5-8662-4b3d-b6ba-28ac11852dd3 Ancestors: Network-pre.227 Recategorizes methods in the Network package and applies a typo fix and an indentation fix. =============== Diff against Network-pre.227 =============== Item was changed: + ----- Method: Authorizer class>>unauthorizedFor: (in category 'utilities') ----- - ----- Method: Authorizer class>>unauthorizedFor: (in category 'as yet unclassified') ----- unauthorizedFor: realm ^'HTTP/1.0 401 Unauthorized', self crlf, 'WWW-Authenticate: Basic realm="Squeak/',realm,'"', String crlfcrlf, '<html><title>Unauthorized</title><body><h2>Unauthorized for ',realm, '</h2></body></html>' ! Item was changed: + ----- Method: HttpUrl class>>shutDown (in category 'system startup') ----- - ----- Method: HttpUrl class>>shutDown (in category 'as yet unclassified') ----- shutDown "Forget all cached passwords, so they won't stay in the image" Passwords := nil.! Item was changed: Object subclass: #MIMEDocument instanceVariableNames: 'mainType subType content fields url parts' classVariableNames: 'MIMEdatabase' poolDictionaries: '' category: 'Network-Url'! + !MIMEDocument commentStamp: 'pre 7/6/2017 13:58' prior: 0! + a MIME object, along with its type and the URL it was found at (if any) + + Design decisions: + - The API for using the content of the MIME object inside Squeak returns Strings + in Squeak encoding. The serializing methods return the content serialized according + to the content-type and content-transfer-encoding --pre! - !MIMEDocument commentStamp: '<historical>' prior: 0! - a MIME object, along with its type and the URL it was found at (if any)! Item was changed: Object subclass: #Password instanceVariableNames: 'cache sequence' classVariableNames: '' poolDictionaries: '' category: 'Network-Kernel'! + !Password commentStamp: 'pre 12/11/2018 15:53' prior: 0! - !Password commentStamp: '<historical>' prior: 0! "Hold a password. There are three ways to get the password. If there is no password (sequence == nil), ask the user for it. + If the user supplied one during this session, return that. It is cleared at shutDown. - If the use supplied one during this session, return that. It is cleared at shutDown. If sequence is a number, get the server passwords off the disk. File 'sqk.info' must be in the same folder 'Squeak.sources' file. Decode the file. Return the password indexed by sequence."! Item was changed: + ----- Method: Password class>>shutDown (in category 'system startup') ----- - ----- Method: Password class>>shutDown (in category 'as yet unclassified') ----- shutDown "Forget all cached passwords, so they won't stay in the image" self allSubInstancesDo: [:each | each cache: nil].! Item was changed: + ----- Method: Password>>decode: (in category 'private') ----- - ----- Method: Password>>decode: (in category 'as yet unclassified') ----- decode: string "Xor with secret number -- just so file won't have raw password in it" | kk rand | rand := Random new seed: 234237. kk := (ByteArray new: string size) collect: [:bb | (rand next * 255) asInteger]. 1 to: kk size do: [:ii | kk at: ii put: ((kk at: ii) bitXor: (string at: ii) asciiValue)]. ^ kk asString! Item was changed: + ----- Method: Password>>serverPasswords (in category 'accessing') ----- - ----- Method: Password>>serverPasswords (in category 'as yet unclassified') ----- serverPasswords "Get the server passwords off the disk and decode them. The file 'sqk.info' must be in some folder that Squeak thinks is special (vm folder, or default directory). (Note: This code works even if you are running with no system sources file.)" | sfile | (sfile := FileDirectory lookInUsualPlaces: 'sqk.info') ifNil: [^ nil]. "If not there, Caller will ask user for password" "If you don't have this file, and you really do want to release an update, contact Ted Kaehler." ^ (self decode: (sfile contentsOfEntireFile)) lines ! Item was changed: + ----- Method: RemoteFileStream>>close (in category 'file status') ----- - ----- Method: RemoteFileStream>>close (in category 'as yet unclassified') ----- close "Write if we have data to write. FTP files are always binary to preserve the data exactly. The binary/text (ascii) flag is just for tell how the bits are delivered from a read." remoteFile writable ifTrue: [ remoteFile putFile: (self as: RWBinaryOrTextStream) reset named: remoteFile fileName]! Item was changed: + ----- Method: RemoteFileStream>>contentsOfEntireFile (in category 'accessing') ----- - ----- Method: RemoteFileStream>>contentsOfEntireFile (in category 'as yet unclassified') ----- contentsOfEntireFile "Fetch the data off the server and store it in me. But not if I already have it." readLimit := readLimit max: position. localDataValid ifTrue: [^ super contentsOfEntireFile]. collection size = 0 ifTrue: [self on: (String new: 2000)]. remoteFile getFileNamed: remoteFile fileName into: self. "sets localDataValid := true" ^ super contentsOfEntireFile! Item was changed: + ----- Method: RemoteFileStream>>dataIsValid (in category 'accessing') ----- - ----- Method: RemoteFileStream>>dataIsValid (in category 'as yet unclassified') ----- dataIsValid localDataValid := true.! Item was changed: + ----- Method: RemoteFileStream>>directory (in category 'accessing') ----- - ----- Method: RemoteFileStream>>directory (in category 'as yet unclassified') ----- directory ^ remoteFile! Item was changed: + ----- Method: RemoteFileStream>>directoryUrl (in category 'accessing') ----- - ----- Method: RemoteFileStream>>directoryUrl (in category 'as yet unclassified') ----- directoryUrl ^ remoteFile directoryUrl! Item was changed: + ----- Method: RemoteFileStream>>localName (in category 'accessing') ----- - ----- Method: RemoteFileStream>>localName (in category 'as yet unclassified') ----- localName ^ remoteFile fileName! Item was changed: + ----- Method: RemoteFileStream>>openReadOnly (in category 'accessing') ----- - ----- Method: RemoteFileStream>>openReadOnly (in category 'as yet unclassified') ----- openReadOnly "If we have data, don't reread." self readOnly. readLimit := readLimit max: position. localDataValid ifFalse: [remoteFile getFileNamed: remoteFile fileName into: self]. "sets localDataValid := true"! Item was changed: + ----- Method: RemoteFileStream>>readOnly (in category 'accessing') ----- - ----- Method: RemoteFileStream>>readOnly (in category 'as yet unclassified') ----- readOnly ^ remoteFile readOnly! Item was changed: + ----- Method: RemoteFileStream>>remoteFile (in category 'accessing') ----- - ----- Method: RemoteFileStream>>remoteFile (in category 'as yet unclassified') ----- remoteFile ^ remoteFile! Item was changed: + ----- Method: RemoteFileStream>>remoteFile: (in category 'accessing') ----- - ----- Method: RemoteFileStream>>remoteFile: (in category 'as yet unclassified') ----- remoteFile: aServerFile remoteFile := aServerFile. localDataValid := false. "need to read from the server"! Item was changed: + ----- Method: RemoteFileStream>>sleep (in category 'file directory') ----- - ----- Method: RemoteFileStream>>sleep (in category 'as yet unclassified') ----- sleep "If we are done, then let the server know" self close. remoteFile sleep.! Item was changed: + ----- Method: ServerFile>>asStream (in category 'converting') ----- - ----- Method: ServerFile>>asStream (in category 'as yet unclassified') ----- asStream "Return a RemoteFileStream (subclass of RWBinaryOrTextStream) on the contents of the remote file I represent. For reading only. This method is probably misnamed. Maybe call it makeStream" ^ self readOnlyFileNamed: self fileName! Item was changed: + ----- Method: ServerFile>>directoryUrl (in category 'accessing') ----- - ----- Method: ServerFile>>directoryUrl (in category 'as yet unclassified') ----- directoryUrl | ru | "A url to the directory this file is in" ru := self realUrl. ^ ru copyFrom: 1 to: (ru size - fileName size)! Item was changed: + ----- Method: ServerFile>>exists (in category 'file directory') ----- - ----- Method: ServerFile>>exists (in category 'as yet unclassified') ----- exists "Return true if the file exists on the server already" ^ self fileExists: fileName! Item was changed: + ----- Method: ServerFile>>fileName (in category 'accessing') ----- - ----- Method: ServerFile>>fileName (in category 'as yet unclassified') ----- fileName "should this be local or as in a url?" urlObject ifNotNil: [^ urlObject path last]. "path last encodeForHTTP ?" ^ fileName! Item was changed: + ----- Method: ServerFile>>fileName: (in category 'accessing') ----- - ----- Method: ServerFile>>fileName: (in category 'as yet unclassified') ----- fileName: aString + urlObject ~~ nil "type == #file" + ifTrue: [urlObject path at: urlObject path size put: aString] + ifFalse: [fileName := aString]! - urlObject ~~ nil "type == #file" - ifTrue: [urlObject path at: urlObject path size put: aString] - ifFalse: [fileName := aString]! Item was changed: + ----- Method: ServerFile>>fileNameRelativeTo: (in category 'accessing') ----- - ----- Method: ServerFile>>fileNameRelativeTo: (in category 'as yet unclassified') ----- fileNameRelativeTo: aServerDir "Produce an absolute fileName from me and an absolute directory" urlObject isAbsolute ifFalse: [ (aServerDir urlObject ~~ nil and: [aServerDir urlObject isAbsolute]) ifTrue: [urlObject privateInitializeFromText: urlObject pathString relativeTo: aServerDir urlObject] ifFalse: [urlObject default]]. "relative to Squeak directory" ^ urlObject pathForDirectory, self fileName! Item was changed: + ----- Method: ServerFile>>fullPath: (in category 'accessing') ----- - ----- Method: ServerFile>>fullPath: (in category 'as yet unclassified') ----- fullPath: serverAndDirectory "Parse and save a full path. Separate out fileName at the end." | delim ii | super fullPath: serverAndDirectory. "set server and directory" self isTypeFile ifTrue: [ fileName := ''. ^ self ]. delim := self pathNameDelimiter. ii := directory findLast: [:c | c = delim]. ii = 0 ifTrue: [self error: 'expecting directory and fileName'] ifFalse: [fileName := directory copyFrom: ii+1 to: directory size. directory := (directory copyFrom: 1 to: directory size - fileName size - 1)].! Item was changed: + ----- Method: ServerFile>>localName (in category 'file directory') ----- - ----- Method: ServerFile>>localName (in category 'as yet unclassified') ----- localName ^ self fileName! Item was changed: + ----- Method: ServerFile>>readOnly (in category 'file modes') ----- - ----- Method: ServerFile>>readOnly (in category 'as yet unclassified') ----- readOnly "Set the receiver to be read-only" rwmode := false! Item was changed: + ----- Method: ServerFile>>readWrite (in category 'file modes') ----- - ----- Method: ServerFile>>readWrite (in category 'as yet unclassified') ----- readWrite "Set the receiver to be writable" rwmode := true! Item was changed: + ----- Method: ServerFile>>realUrl (in category 'accessing') ----- - ----- Method: ServerFile>>realUrl (in category 'as yet unclassified') ----- realUrl "a fully expanded version of the url we represent. Prefix the path with http: or ftp: or file:" self isTypeFile ifTrue: [ self fileNameRelativeTo: self. ^ urlObject asString ]. ^ self typeWithDefault asString, '://', self pathName, '/', fileName "note difference!!" ! Item was changed: + ----- Method: ServerFile>>writable (in category 'file modes') ----- - ----- Method: ServerFile>>writable (in category 'as yet unclassified') ----- writable ^ rwmode! Item was changed: + ----- Method: SuperSwikiServer class>>currentSuperSwiki (in category 'instances') ----- - ----- Method: SuperSwikiServer class>>currentSuperSwiki (in category 'as yet unclassified') ----- currentSuperSwiki "make this return nil to disable SuperSwiki hack" ^self defaultSuperSwiki ! Item was changed: + ----- Method: SuperSwikiServer class>>defaultEncodingName (in category 'defaults') ----- - ----- Method: SuperSwikiServer class>>defaultEncodingName (in category 'as yet unclassified') ----- defaultEncodingName Locale current isoLanguage = 'ja' ifTrue: [^'shift_jis' copy] ifFalse: [^'latin1' copy]. ! Item was changed: + ----- Method: SuperSwikiServer class>>defaultSuperSwiki (in category 'instances') ----- - ----- Method: SuperSwikiServer class>>defaultSuperSwiki (in category 'as yet unclassified') ----- defaultSuperSwiki ^SuperSwikiServer new type: #http; server: self defaultSuperSwikiIPAddress; directory: '/super/SuperSwikiProj' ! Item was changed: + ----- Method: SuperSwikiServer class>>defaultSuperSwikiIPAddress (in category 'instances') ----- - ----- Method: SuperSwikiServer class>>defaultSuperSwikiIPAddress (in category 'as yet unclassified') ----- defaultSuperSwikiIPAddress ^'209.143.91.36' ! Item was changed: + ----- Method: SuperSwikiServer class>>testOnlySuperSwiki (in category 'tests') ----- - ----- Method: SuperSwikiServer class>>testOnlySuperSwiki (in category 'as yet unclassified') ----- testOnlySuperSwiki ^SuperSwikiServer new type: #http; server: self defaultSuperSwikiIPAddress; directory: '/super/SuperSwikiProj' ! Item was changed: + ----- Method: SwikiPseudoFileStream>>directory (in category 'accessing') ----- - ----- Method: SwikiPseudoFileStream>>directory (in category 'as yet unclassified') ----- directory ^directory url! Item was changed: + ----- Method: SwikiPseudoFileStream>>directory: (in category 'accessing') ----- - ----- Method: SwikiPseudoFileStream>>directory: (in category 'as yet unclassified') ----- directory: x directory := x! Item was changed: + ----- Method: SwikiPseudoFileStream>>directoryObject (in category 'accessing') ----- - ----- Method: SwikiPseudoFileStream>>directoryObject (in category 'as yet unclassified') ----- directoryObject ^directory! Item was changed: + ----- Method: SwikiPseudoFileStream>>directoryUrl (in category 'accessing') ----- - ----- Method: SwikiPseudoFileStream>>directoryUrl (in category 'as yet unclassified') ----- directoryUrl ^directory url! Item was changed: + ----- Method: SwikiPseudoFileStream>>directoryUrl: (in category 'accessing') ----- - ----- Method: SwikiPseudoFileStream>>directoryUrl: (in category 'as yet unclassified') ----- directoryUrl: x directoryUrl := x! Item was changed: + ----- Method: SwikiPseudoFileStream>>fileName (in category 'accessing') ----- - ----- Method: SwikiPseudoFileStream>>fileName (in category 'as yet unclassified') ----- fileName ^localName! Item was changed: + ----- Method: SwikiPseudoFileStream>>isTypeHTTP (in category 'testing') ----- - ----- Method: SwikiPseudoFileStream>>isTypeHTTP (in category 'as yet unclassified') ----- isTypeHTTP ^true! Item was changed: + ----- Method: SwikiPseudoFileStream>>localName (in category 'accessing') ----- - ----- Method: SwikiPseudoFileStream>>localName (in category 'as yet unclassified') ----- localName ^localName! Item was changed: + ----- Method: SwikiPseudoFileStream>>localName: (in category 'accessing') ----- - ----- Method: SwikiPseudoFileStream>>localName: (in category 'as yet unclassified') ----- localName: x localName := x!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2018