Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Add extensions needed for Superluminal #116

Merged
merged 2 commits into from
Feb 27, 2024
Merged

Add extensions needed for Superluminal #116

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
9a4f07f
Add extensions needed for Superluminal in GS64
gcotelli Feb 27, 2024
ae9b7f3
Add CollectionIsEmpty class alias for GS64
gcotelli Feb 27, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions rowan/components/scripts/defineClassAliases.st
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -12,5 +12,6 @@ symbolDictionary at: #NotFound put: LookupError.
symbolDictionary at: #SubscriptOutOfBounds put: OffsetError.
symbolDictionary at: #SmallDictionary put: Dictionary.
symbolDictionary at: #Exit put: ExitClientError.
symbolDictionary at: #CollectionIsEmpty put: ImproperOperation.
"Temporary, it will be fixed in a post load script"
symbolDictionary at: #AssertionFailure put: nil.
8 changes: 4 additions & 4 deletions source/Buoy-Chronology-GS64-Extensions/Date.extension.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,18 +1,18 @@
Extension { #name : #Date }
Extension { #name : 'Date' }

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Date >> asDateAndTime [

^ DateAndTime year: self year month: self monthIndex day: self dayOfMonth
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Date class >> year: year month: month day: day [

^ self newDay: day monthNumber: month year: year
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Date >> yyyymmdd [
"Format the date in ISO 8601 standard like '2002-10-22'
The result is of fixed size 10 characters long."
Expand Down
4 changes: 2 additions & 2 deletions source/Buoy-Chronology-GS64-Extensions/DateAndTime.extension.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Extension { #name : #DateAndTime }
Extension { #name : 'DateAndTime' }

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
DateAndTime >> asDateAndTime [

^ self
Expand Down
14 changes: 7 additions & 7 deletions source/Buoy-Chronology-GS64-Extensions/DateAndTimeANSI.extension.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,18 +1,18 @@
Extension { #name : #DateAndTimeANSI }
Extension { #name : 'DateAndTimeANSI' }

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
DateAndTimeANSI >> monthIndex [

^ self month
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
DateAndTimeANSI >> printHMSOn: aStream [

self printHMSOn: aStream separatedBy: $:
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
DateAndTimeANSI >> printHMSOn: aStream separatedBy: separator [

aStream
Expand All @@ -23,7 +23,7 @@ DateAndTimeANSI >> printHMSOn: aStream separatedBy: separator [
nextPutAll: (self second asInteger printStringLength: 2 padded: true)
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
DateAndTimeANSI >> printYMDOn: aStream [

aStream
Expand All @@ -34,13 +34,13 @@ DateAndTimeANSI >> printYMDOn: aStream [
nextPutAll: (self dayOfMonth printStringLength: 2 padded: true)
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
DateAndTimeANSI class >> unixEpoch [

^ self posixSeconds: 0 offset: Duration zero
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
DateAndTimeANSI class >> year: year month: month day: day [
"Return a DateAndTime, midnight local time"

Expand Down
22 changes: 14 additions & 8 deletions source/Buoy-Chronology-GS64-Extensions/Duration.extension.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,37 +1,43 @@
Extension { #name : #Duration }
Extension { #name : 'Duration' }

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Duration >> asMilliSeconds [

^ self asSeconds * 1000
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Duration class >> days: aNumber [

^ self seconds: aNumber * 86400
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Duration class >> hours: aNumber [

^ self seconds: aNumber * 3600
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Duration class >> milliSeconds: aNumber [

^ self seconds: aNumber / 1000
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Duration class >> minutes: aNumber [

^ self seconds: aNumber * 60
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Duration >> totalSeconds [

^self asSeconds
]

{ #category : '*Buoy-Chronology-GS64-Extensions' }
Duration >> wait [

^ Delay waitForMilliseconds: self seconds * 1000
^ Delay waitForMilliseconds: (self seconds * 1000) rounded
]
18 changes: 9 additions & 9 deletions source/Buoy-Chronology-GS64-Extensions/Integer.extension.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,48 +1,48 @@
Extension { #name : #Integer }
Extension { #name : 'Integer' }

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Integer >> day [

^ self days
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Integer >> days [

^ Duration days: self
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Integer >> hour [

^ self hours
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Integer >> hours [

^ Duration hours: self
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Integer >> milliSecond [

^ self milliSeconds
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Integer >> milliSeconds [

^ Duration milliSeconds: self
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Integer >> minute [

^ self minutes
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Integer >> minutes [

^ Duration minutes: self
Expand Down
8 changes: 4 additions & 4 deletions source/Buoy-Chronology-GS64-Extensions/Number.extension.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,20 +1,20 @@
Extension { #name : #Number }
Extension { #name : 'Number' }

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Number >> asDuration [

^ Duration seconds: self asInteger
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Number >> second [
"1 second printString >>> '0:00:00:01'"
"(1 minute + 1 second) printString >>> '0:00:01:01'"

^ self seconds
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Number >> seconds [

^ Duration seconds: self
Expand Down
10 changes: 5 additions & 5 deletions source/Buoy-Chronology-GS64-Extensions/Time.extension.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Extension { #name : #Time }
Extension { #name : 'Time' }

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Time class >> milliseconds: currentTime since: lastTime [
"Answer the elapsed time since last recorded in milliseconds.
Compensate for rollover."
Expand All @@ -12,21 +12,21 @@ Time class >> milliseconds: currentTime since: lastTime [
ifFalse: [delta]
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Time class >> millisecondsSince: lastTime [
"Answer the elapsed time since last recorded in milliseconds.
Compensate for rollover."

^self milliseconds: self millisecondClockValue since: lastTime
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Time class >> millisecondsToRun: timedBlock [

^ self millisecondsElapsedTime: timedBlock
]

{ #category : #'*Buoy-Chronology-GS64-Extensions' }
{ #category : '*Buoy-Chronology-GS64-Extensions' }
Time class >> totalSeconds [
"Answer the total seconds ellapsed since the epoch: 1 January 1901 00:00 UTC"

Expand Down
2 changes: 1 addition & 1 deletion source/Buoy-Chronology-GS64-Extensions/package.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1 +1 @@
Package { #name : #'Buoy-Chronology-GS64-Extensions' }
Package { #name : 'Buoy-Chronology-GS64-Extensions' }
11 changes: 6 additions & 5 deletions source/Buoy-Chronology-Tests/DateAndTimeExtensionsTest.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,10 +1,11 @@
Class {
#name : #DateAndTimeExtensionsTest,
#superclass : #TestCase,
#category : #'Buoy-Chronology-Tests'
#name : 'DateAndTimeExtensionsTest',
#superclass : 'TestCase',
#category : 'Buoy-Chronology-Tests',
#package : 'Buoy-Chronology-Tests'
}

{ #category : #tests }
{ #category : 'tests' }
DateAndTimeExtensionsTest >> testPrintHMS [

| dateAndTime |
Expand All @@ -21,7 +22,7 @@ DateAndTimeExtensionsTest >> testPrintHMS [
equals: '04:06:01'
]

{ #category : #tests }
{ #category : 'tests' }
DateAndTimeExtensionsTest >> testPrintYMD [

| dateAndTime |
Expand Down
11 changes: 6 additions & 5 deletions source/Buoy-Chronology-Tests/DateExtensionsTest.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,10 +1,11 @@
Class {
#name : #DateExtensionsTest,
#superclass : #TestCase,
#category : #'Buoy-Chronology-Tests'
#name : 'DateExtensionsTest',
#superclass : 'TestCase',
#category : 'Buoy-Chronology-Tests',
#package : 'Buoy-Chronology-Tests'
}

{ #category : #tests }
{ #category : 'tests' }
DateExtensionsTest >> testAsDateAndTime [

| date dateAndTime |
Expand All @@ -20,7 +21,7 @@ DateExtensionsTest >> testAsDateAndTime [
assert: dateAndTime second isZero
]

{ #category : #tests }
{ #category : 'tests' }
DateExtensionsTest >> testCreation [

| date |
Expand Down
27 changes: 27 additions & 0 deletions source/Buoy-Chronology-Tests/DurationChronologyExtensionsTest.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,27 @@
Class {
#name : 'DurationChronologyExtensionsTest',
#superclass : 'TestCase',
#category : 'Buoy-Chronology-Tests',
#package : 'Buoy-Chronology-Tests'
}

{ #category : 'tests' }
DurationChronologyExtensionsTest >> testTotalSeconds [

self assert: 0 seconds totalSeconds equals: 0.
self assert: 1 second totalSeconds equals: 1.
self assert: 100 second totalSeconds equals: 100.
self assert: 500 milliSeconds totalSeconds equals: 1 / 2.
self assert: 1500 milliSeconds totalSeconds equals: 3 / 2.
self assert: 2500 milliSeconds totalSeconds equals: 5 / 2.
self assert: 1 second negated totalSeconds equals: -1
]

{ #category : 'tests' }
DurationChronologyExtensionsTest >> testWait [

| ms |

ms := Time millisecondsToRun: [ 2.1 seconds wait ].
self assert: ms >= 2100
]
15 changes: 8 additions & 7 deletions source/Buoy-Chronology-Tests/NumberChronologyExtensionsTest.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,34 +1,35 @@
Class {
#name : #NumberChronologyExtensionsTest,
#superclass : #TestCase,
#category : #'Buoy-Chronology-Tests'
#name : 'NumberChronologyExtensionsTest',
#superclass : 'TestCase',
#category : 'Buoy-Chronology-Tests',
#package : 'Buoy-Chronology-Tests'
}

{ #category : #tests }
{ #category : 'tests' }
NumberChronologyExtensionsTest >> testDays [

self
assert: 1 day equals: (Duration days: 1);
assert: 2 days equals: (Duration days: 2)
]

{ #category : #tests }
{ #category : 'tests' }
NumberChronologyExtensionsTest >> testHours [

self
assert: 1 hour equals: (Duration hours: 1);
assert: 2 hours equals: (Duration hours: 2)
]

{ #category : #tests }
{ #category : 'tests' }
NumberChronologyExtensionsTest >> testMilliSeconds [

self
assert: 1000 milliSeconds equals: 1 second;
assert: 2000 milliSeconds equals: 2 seconds
]

{ #category : #tests }
{ #category : 'tests' }
NumberChronologyExtensionsTest >> testSeconds [

self
Expand Down
2 changes: 1 addition & 1 deletion source/Buoy-Chronology-Tests/package.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1 +1 @@
Package { #name : #'Buoy-Chronology-Tests' }
Package { #name : 'Buoy-Chronology-Tests' }
6 changes: 6 additions & 0 deletions source/Buoy-Collections-GS64-Extensions/Collection.extension.st
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -91,6 +91,12 @@ Collection >> detect: aBlock ifFound: foundBlock ifNone: exceptionBlock [
^ exceptionBlock value
]

{ #category : '*Buoy-Collections-GS64-Extensions' }
Collection >> errorEmptyCollection [

CollectionIsEmpty signal: 'Collection is empty'
]

{ #category : '*Buoy-Collections-GS64-Extensions' }
Collection >> fillFrom: aCollection with: aBlock [
"Private.
Expand Down
Loading
Loading