Migrate packages to Tonel v3 format

ba-st · May 9, 2024 · a3c3f6f · a3c3f6f
1 parent c940229
commit a3c3f6f
Show file tree

Hide file tree

Showing 11 changed files with 59 additions and 55 deletions.
diff --git a/source/Buoy-Chronology-GS64-Extensions/DateAndTimeANSI.extension.st b/source/Buoy-Chronology-GS64-Extensions/DateAndTimeANSI.extension.st
@@ -9,7 +9,7 @@ DateAndTimeANSI >> monthIndex [
 { #category : '*Buoy-Chronology-GS64-Extensions' }
 DateAndTimeANSI >> printHMSOn: aStream [
 
-	self printHMSOn:  aStream separatedBy: $:
+	self printHMSOn: aStream separatedBy: $:
 ]
 
 { #category : '*Buoy-Chronology-GS64-Extensions' }

diff --git a/source/Buoy-Math-GS64-Base-Extensions/BinaryFloat.extension.st b/source/Buoy-Math-GS64-Base-Extensions/BinaryFloat.extension.st
@@ -1,13 +1,13 @@
-Extension { #name : #BinaryFloat }
+Extension { #name : 'BinaryFloat' }
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 BinaryFloat >> closeTo: num [
 	"Tell whether the receiver and arguments are close from each."
 
 	^ self closeTo: num precision: 0.0001
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 BinaryFloat >> closeTo: num precision: aPrecision [
 	"Tell whether the receiver and arguments are close from each other given a precision"
 
@@ -16,51 +16,51 @@ BinaryFloat >> closeTo: num precision: aPrecision [
 	^ self = num asFloat or: [ (self - num) abs <= aPrecision ]
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 BinaryFloat class >> infinity [
 
 	^ PlusInfinity
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 BinaryFloat >> isFinite [
 
 	^ #( #normal #subnormal #zero ) includes: self kind
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 BinaryFloat >> isInfinite [
 
 	^ self kind = #infinity
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 BinaryFloat >> isNaN [
 
 	^ #( #quietNaN #signalingNaN ) includes: self kind
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 BinaryFloat class >> nan [
 
 	^ MinusQuietNaN
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 BinaryFloat class >> negativeInfinity [
 
 	^ MinusInfinity
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 BinaryFloat class >> readFrom: aStringOrStream [
 
 	^ aStringOrStream isString
 		  ifTrue: [ self fromString: aStringOrStream ]
 		  ifFalse: [ self fromStream: aStringOrStream ]
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 BinaryFloat class >> zero [
 	^ 0.0
 ]
diff --git a/source/Buoy-Math-GS64-Base-Extensions/DomainError.class.st b/source/Buoy-Math-GS64-Base-Extensions/DomainError.class.st
@@ -4,39 +4,40 @@ I am DomainError, an ArithmeticException indicating that some argument falls out
 When my valid interval is left- or right-open, use signal: creation protocol to provide a custom messageText rather than the default [from, to] notation.
 "
 Class {
-	#name : #DomainError,
-	#superclass : #ArithmeticError,
+	#name : 'DomainError',
+	#superclass : 'ArithmeticError',
 	#instVars : [
 		'from',
 		'to'
 	],
-	#category : #'Buoy-Math-GS64-Base-Extensions'
+	#category : 'Buoy-Math-GS64-Base-Extensions',
+	#package : 'Buoy-Math-GS64-Base-Extensions'
 }
 
-{ #category : #signaling }
+{ #category : 'signaling' }
 DomainError class >> signal: signallerText from: start [
 	^ self signal: signallerText from: start to: Float infinity
 ]
 
-{ #category : #signaling }
+{ #category : 'signaling' }
 DomainError class >> signal: signallerText from: start to: end [
 	^ self new
 		from: start;
 		to: end;
 		signal: signallerText
 ]
 
-{ #category : #signaling }
+{ #category : 'signaling' }
 DomainError class >> signal: signallerText to: end [
 	^ self signal: signallerText from: Float infinity negated to: end
 ]
 
-{ #category : #signaling }
+{ #category : 'signaling' }
 DomainError class >> signalFrom: start [
 	^ self signalFrom: start to: Float infinity
 ]
 
-{ #category : #signaling }
+{ #category : 'signaling' }
 DomainError class >> signalFrom: start to: end [
 	| msgStart msgEnd |
 	msgStart := (start isFloat and: [start isFinite not]) ifTrue: ['(-infinity'] ifFalse: ['[', start printString].
@@ -46,27 +47,31 @@ DomainError class >> signalFrom: start to: end [
 		to: end
 ]
 
-{ #category : #signaling }
+{ #category : 'signaling' }
 DomainError class >> signalTo: end [
 	^ self signalFrom: Float infinity negated to: end
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 DomainError >> from [
+
 	^ from
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 DomainError >> from: start [
+
 	from := start
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 DomainError >> to [
+
 	^ to
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 DomainError >> to: end [
+
 	to := end
 ]
diff --git a/source/Buoy-Math-GS64-Base-Extensions/Integer.extension.st b/source/Buoy-Math-GS64-Base-Extensions/Integer.extension.st
@@ -1,39 +1,39 @@
-Extension { #name : #Integer }
+Extension { #name : 'Integer' }
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 Integer >> asHexStringPaddedTo: minimum [
 
 	^ (self asHexStringWithLength: minimum) asUppercase
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 Integer >> atRandom [
 
 	self = 0 ifTrue: [ ^ 0 ].
 	^ Random new integerBetween: 1 and: self abs
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 Integer >> hashMultiply [
 	"No need to do something special in GS64"
 
 	^ self
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 Integer >> isInteger [
 	"True for all subclasses of Integer."
 
 	^ true
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 Integer >> printStringHex [
 
 	^ self asHexString asUppercase
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 Integer >> printStringLength: minimum padded: zeroFlag [
 
 	| numberPrintString preffix |
@@ -52,7 +52,7 @@ Integer >> printStringLength: minimum padded: zeroFlag [
 		  stream nextPutAll: numberPrintString ]
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 Integer class >> readFrom: aStringOrStream ifFail: aBlock [
 
 	^ [

diff --git a/source/Buoy-Math-GS64-Base-Extensions/Number.extension.st b/source/Buoy-Math-GS64-Base-Extensions/Number.extension.st
@@ -1,42 +1,42 @@
-Extension { #name : #Number }
+Extension { #name : 'Number' }
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 Number >> asNumber [
 
 	^ self
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 Number >> closeTo: num [
 	"Tell whether the receiver and arguments are close from each."
 
 	^ self asFloat closeTo: num
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 Number >> isInteger [
 
 	^ false
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 Number >> isNaN [
 	^ false
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 Number >> isZero [
 
 	^ self = 0
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 Number >> nthRoot: aPositiveInteger [
 
 	^ self raisedTo: aPositiveInteger reciprocal
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 Number class >> readFrom: aStringOrStream ifFail: aBlock [
 
 	^ [
@@ -51,7 +51,7 @@ Number class >> readFrom: aStringOrStream ifFail: aBlock [
 		  do: [ :error | error return: aBlock value ]
 ]
 
-{ #category : #'*Buoy-Math-GS64-Base-Extensions' }
+{ #category : '*Buoy-Math-GS64-Base-Extensions' }
 Number >> round: numberOfWishedDecimal [
 
 	^ self roundTo: (10 raisedTo: numberOfWishedDecimal negated)

diff --git a/source/Buoy-Math-GS64-Base-Extensions/package.st b/source/Buoy-Math-GS64-Base-Extensions/package.st
@@ -1 +1 @@
-Package { #name : #'Buoy-Math-GS64-Base-Extensions' }
+Package { #name : 'Buoy-Math-GS64-Base-Extensions' }
diff --git a/source/Buoy-Math-GS64-Extensions/PartsPerFraction.extension.st b/source/Buoy-Math-GS64-Extensions/PartsPerFraction.extension.st
@@ -1,24 +1,24 @@
-Extension { #name : #PartsPerFraction }
+Extension { #name : 'PartsPerFraction' }
 
-{ #category : #'*Buoy-Math-GS64-Extensions' }
+{ #category : '*Buoy-Math-GS64-Extensions' }
 PartsPerFraction >> _coerce: aNumber [
 
-	^self class ratio: (ratio _coerce: aNumber)
+	^ self class ratio: ( ratio _coerce: aNumber )
 ]
 
-{ #category : #'*Buoy-Math-GS64-Extensions' }
+{ #category : '*Buoy-Math-GS64-Extensions' }
 PartsPerFraction >> _generality [
 
 	^ ratio _generality + 1
 ]
 
-{ #category : #'*Buoy-Math-GS64-Extensions' }
+{ #category : '*Buoy-Math-GS64-Extensions' }
 PartsPerFraction >> printOn: stream [
 
 	self value printOn: stream
 ]
 
-{ #category : #'*Buoy-Math-GS64-Extensions' }
+{ #category : '*Buoy-Math-GS64-Extensions' }
 PartsPerFraction >> printString [
 
 	^ String streamContents: [ :stream | self printOn: stream ]

diff --git a/source/Buoy-Math-GS64-Extensions/PerMille.extension.st b/source/Buoy-Math-GS64-Extensions/PerMille.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #PerMille }
+Extension { #name : 'PerMille' }
 
-{ #category : #'*Buoy-Math-GS64-Extensions' }
+{ #category : '*Buoy-Math-GS64-Extensions' }
 PerMille >> printOn: stream [
 
 	super printOn: stream.

diff --git a/source/Buoy-Math-GS64-Extensions/Percentage.extension.st b/source/Buoy-Math-GS64-Extensions/Percentage.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #Percentage }
+Extension { #name : 'Percentage' }
 
-{ #category : #'*Buoy-Math-GS64-Extensions' }
+{ #category : '*Buoy-Math-GS64-Extensions' }
 Percentage >> printOn: stream [
 
 	super printOn: stream.

diff --git a/source/Buoy-Math-GS64-Extensions/package.st b/source/Buoy-Math-GS64-Extensions/package.st
@@ -1 +1 @@
-Package { #name : #'Buoy-Math-GS64-Extensions' }
+Package { #name : 'Buoy-Math-GS64-Extensions' }
diff --git a/source/Buoy-SUnit-GS64-Extensions/TestAsserter.extension.st b/source/Buoy-SUnit-GS64-Extensions/TestAsserter.extension.st
@@ -41,7 +41,6 @@ TestAsserter >> deny: actual identicalTo: expected [
 
 { #category : '*Buoy-SUnit-GS64-Extensions' }
 TestAsserter >> fail [
-	"I make my receiver fail with TestFailure"
 
 	^ self assert: false
 ]