[Pkg] The Trunk: Kernel-ar.407.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Feb 24 14:04:43 UTC 2010


Andreas Raab uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-ar.407.mcz

==================== Summary ====================

Name: Kernel-ar.407
Author: ar
Time: 24 February 2010, 3:03:06.161 pm
UUID: 7a8e9c26-6571-2e48-88b9-a31af15e914d
Ancestors: Kernel-ar.404, Kernel-ul.406

Merging Kernel-ar.404 and Kernel-ul.406

=============== Diff against Kernel-ar.404 ===============

Item was added:
+ ----- Method: BlockClosure>>cull:cull: (in category 'evaluating') -----
+ cull: firstArg cull: secondArg
+ 	"Activate the receiver, with two or less arguments."
+ 	
+ 	numArgs >= 2 ifTrue: [ ^self value: firstArg value: secondArg ].	
+ 	numArgs = 1 ifTrue: [ ^self value: firstArg ].
+ 	^self value!

Item was changed:
  ----- Method: Integer class>>readFrom:ifFail: (in category 'instance creation') -----
  readFrom: aStringOrStream ifFail: aBlock
  	"Answer an instance of one of the concrete subclasses if Integer. 
+ 	Initial plus or minus sign accepted.
+ 	Imbedded radix specifiers not allowed;  use Number class readFrom: for that.
- 	Initial minus sign accepted.
- 	Imbedded radix specifiers not allowed;  use Number 
- 	class readFrom: for that.
  	Execute aBlock if there are no digits."
  
+ 	^(ExtendedNumberParser on: aStringOrStream) nextIntegerBase: 10 ifFail: aBlock!
- 	^(SqNumberParser on: aStringOrStream) nextIntegerBase: 10 ifFail: aBlock!

Item was added:
+ ----- Method: BlockClosure>>cull:cull:cull:cull: (in category 'evaluating') -----
+ cull: firstArg cull: secondArg cull: thirdArg cull: fourthArg
+ 	"Activate the receiver, with four or less arguments."
+ 	
+ 	numArgs >= 3 ifTrue: [
+ 		numArgs >= 4 ifTrue: [
+ 			^self value: firstArg value: secondArg value: thirdArg value: fourthArg ].
+ 		^self value: firstArg value: secondArg value: thirdArg ].
+ 	numArgs = 2 ifTrue: [ ^self value: firstArg value: secondArg ].	
+ 	numArgs = 1 ifTrue: [ ^self value: firstArg ].
+ 	^self value!

Item was added:
+ ----- Method: BlockClosure>>cull:cull:cull: (in category 'evaluating') -----
+ cull: firstArg cull: secondArg cull: thirdArg
+ 	"Activate the receiver, with three or less arguments."
+ 	
+ 	numArgs >= 2 ifTrue: [ 
+ 		numArgs >= 3 ifTrue: [ ^self value: firstArg value: secondArg value: thirdArg ].
+ 		^self value: firstArg value: secondArg ].
+ 	numArgs = 1 ifTrue: [ ^self value: firstArg ].
+ 	^self value!

Item was changed:
  ----- Method: Number class>>readFrom: (in category 'instance creation') -----
  readFrom: stringOrStream 
  	"Answer a number as described on aStream.  The number may
  	be any accepted Smalltalk literal Number format.
  	It can include a leading radix specification, as in 16rFADE.
  	It can as well be NaN, Infinity or -Infinity for conveniency.
  	If stringOrStream does not start with a valid number description, fail."
  	
+ 	^(ExtendedNumberParser on: stringOrStream) nextNumber!
- 	^(SqNumberParser on: stringOrStream) nextNumber!

Item was changed:
  ----- Method: Number class>>readFrom:ifFail: (in category 'instance creation') -----
  readFrom: stringOrStream ifFail: aBlock
  	"Answer a number as described on aStream.  The number may
  	be any accepted Smalltalk literal Number format.
  	It can include a leading radix specification, as in 16rFADE.
  	It can as well be NaN, Infinity or -Infinity for conveniency.
  	If input does not represent a valid number, then execute fail block
  	and leave the stream positioned before offending character"
  	
+ 	^(ExtendedNumberParser on: stringOrStream) failBlock: aBlock; nextNumber!
- 	^(SqNumberParser on: stringOrStream) failBlock: aBlock; nextNumber!

Item was changed:
  ----- Method: Integer class>>readFrom:base: (in category 'instance creation') -----
  readFrom: aStringOrStream base: base 
  	"Answer an instance of one of the concrete subclasses if Integer. 
+ 	Initial plus or minus sign accepted, and bases > 10 use letters A-Z.
+ 	Imbedded radix specifiers not allowed;  use Number class readFrom: for that.
- 	Initial minus sign accepted, and bases > 10 use letters A-Z.
- 	Imbedded radix specifiers not allowed;  use Number 
- 	class readFrom: for that.
  	Raise an Error if there are no digits."
  
+ 	^(ExtendedNumberParser on: aStringOrStream) nextIntegerBase: base!
- 	^(SqNumberParser on: aStringOrStream) nextIntegerBase: base!

Item was added:
+ ----- Method: BlockClosure>>cull: (in category 'evaluating') -----
+ cull: firstArg
+ 	"Activate the receiver, with one or zero arguments."
+ 	
+ 	numArgs >= 1 ifTrue: [ ^self value: firstArg ].
+ 	^self value!

Item was removed:
- ----- Method: Number class>>readExactlyFrom: (in category 'instance creation') -----
- readExactlyFrom: stringOrStream 
- 	"Answer a number as described on aStream. The number may
- 	include a leading radix specification, as in 16rFADE"
- 	
- 	^(SqNumberParser on: stringOrStream) nextNumber!



More information about the Packages mailing list