X Tutup
Skip to content

Commit dec1099

Browse files
author
Johan Brichau
committed
Moved GsContext from Seaside-GemStone-Core to Grease-GemStone-Core and implemented GRGemStonePlatform>>thisContext
1 parent 44fe773 commit dec1099

File tree

111 files changed

+916
-776
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

111 files changed

+916
-776
lines changed

‎repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
*grease-gemstone-core
2+
thisContext
3+
^ (GsContext fromLevel: 1) sender sender

‎repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/methodProperties.json‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -42,6 +42,7 @@
4242
"smtpServer" : "dkh 11/06/2009 08:41",
4343
"stackDepth" : "DaleHenrichs 01/18/2011 12:47",
4444
"terminateProcess:" : "dkh 11/06/2009 08:41",
45+
"thisContext" : "JohanBrichau 09/11/2018 01:32",
4546
"transactionMutex" : "dkh 11/06/2009 08:41",
4647
"weakDictionaryOfSize:" : "dkh 11/06/2009 08:41",
4748
"write:toFile:inFolder:" : "DaleHenrichs 12/03/2010 16:29",

‎repository/Grease-GemStone-Core.package/GsContext.class/README.md‎

Whitespace-only changes.

‎repository/Grease-GemStone-Core.package/GsContext.class/class/fromContinuation.atLevel..st‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
instance creation
2+
fromContinuation: aContinuation atLevel: anInteger
3+
4+
^self new continuation: aContinuation level: anInteger

‎repository/Grease-GemStone-Core.package/GsContext.class/class/fromLevel..st‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
instance creation
2+
fromLevel: anInteger
3+
4+
^self new continuation: (GsProcess continuationFromLevel: anInteger) level: 1

‎repository/Grease-GemStone-Core.package/GsContext.class/instance/^equals.st‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
comparing
2+
= anObject
3+
^ anObject class == self class
4+
and: [ anObject receiver == receiver and: [ anObject method == method ] ]

‎repository/Grease-GemStone-Core.package/GsContext.class/instance/asString.st‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
formatting
2+
asString
3+
4+
^self fullPrintString

‎repository/Grease-GemStone-Core.package/GsContext.class/instance/continuation.level..st‎

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
initialization
2+
continuation: aContinuation level: anInteger
3+
continuation := aContinuation.
4+
level := anInteger. "these instance variables are populated for the WAWalkback use"
5+
method := (continuation _frameContentsAt: level) at: 1.
6+
source := method sourceString.
7+
receiver := (continuation _frameContentsAt: level) at: 10.
8+
mySelf := (continuation _frameContentsAt: level) at: 8

‎repository/Grease-GemStone-Core.package/GsContext.class/instance/fullPrintString.st‎

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
accessing
2+
fullPrintString
3+
4+
5+
^continuation _reportAt: level

‎repository/Grease-GemStone-Core.package/GsContext.class/instance/greaseString.st‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
formatting
2+
greaseString
3+
4+
^self fullPrintString

0 commit comments

Comments
 (0)
X Tutup