Skip to content

Commit

Permalink
time to start getting serious about tode environments
Browse files Browse the repository at this point in the history
  • Loading branch information
dalehenrich committed Dec 26, 2016
1 parent 68dcef7 commit 566d11a
Show file tree
Hide file tree
Showing 51 changed files with 256 additions and 3 deletions.
@@ -0,0 +1,8 @@
*topez-server-3x-core
_compile: aString inContext: compilationContext symbolList: symbolList envId: envId
^ aString
_compileInContext: compilationContext
symbolList: symbolList
oldLitVars: nil
environmentId: envId
flags: 0
@@ -0,0 +1,5 @@
{
"class" : {
},
"instance" : {
"_compile:inContext:symbolList:envId:" : "dkh 12/26/2016 06:23" } }
@@ -0,0 +1,2 @@
{
"name" : "TDAbstractEnvironment" }
@@ -1 +1 @@
(name 'Topez-Server-3x-Core-dkh.4' message 'repackage CharacterCollection>>_compileInContext:symbolList:oldLitVars:environmentId: in Tode-GemStone-Core331x' id '712bcea3-8050-4a0a-97f8-ca728c3927e3' date '05/23/2016' time '15:20:40' author 'dkh' ancestors ((name 'Topez-Server-3x-Core-dkh.3' message 'need CharacterCollection>>_compileInContext:symbolList:oldLitVars:environmentId: defined in 3.3.1 ...' id '8d5137c6-a710-4f50-9889-c52520d8dd46' date '05/23/2016' time '14:38:25' author 'dkh' ancestors ((name 'Topez-Server-3x-Core-dkh.2' message 'Not all of the defs in Topez-Server-31x-Core package were appropriate for 3.0- move the defs appropriate for 3.0 to Topez-Server-3x-Core (where they belonged in the first place)' id '73757d7d-8ac9-4f1a-a5f7-fe1fc1eb7d56' date '05/24/2014' time '09:34:52' author 'dkh' ancestors ((name 'Topez-Server-3x-Core-dkh.1' message '- fix up `eval` command ... different implementation between 2.4 and 3.x- add Topez-Server-3x-Core package' id '658145b0-179d-43f6-96f1-add0a28eeeb1' date '05/05/2014' time '22:16:03' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
(name 'Topez-Server-3x-Core-dkh.5' message 'time to start getting serious about tode environments' id '062ce0af-7357-4241-8ea6-ad58925e4bbe' date '12/26/2016' time '06:33:12' author 'dkh' ancestors ((name 'Topez-Server-3x-Core-dkh.4' message 'repackage CharacterCollection>>_compileInContext:symbolList:oldLitVars:environmentId: in Tode-GemStone-Core331x' id '712bcea3-8050-4a0a-97f8-ca728c3927e3' date '05/23/2016' time '15:20:40' author 'dkh' ancestors ((name 'Topez-Server-3x-Core-dkh.3' message 'need CharacterCollection>>_compileInContext:symbolList:oldLitVars:environmentId: defined in 3.3.1 ...' id '8d5137c6-a710-4f50-9889-c52520d8dd46' date '05/23/2016' time '14:38:25' author 'dkh' ancestors ((name 'Topez-Server-3x-Core-dkh.2' message 'Not all of the defs in Topez-Server-31x-Core package were appropriate for 3.0- move the defs appropriate for 3.0 to Topez-Server-3x-Core (where they belonged in the first place)' id '73757d7d-8ac9-4f1a-a5f7-fe1fc1eb7d56' date '05/24/2014' time '09:34:52' author 'dkh' ancestors ((name 'Topez-Server-3x-Core-dkh.1' message '- fix up `eval` command ... different implementation between 2.4 and 3.x- add Topez-Server-3x-Core package' id '658145b0-179d-43f6-96f1-add0a28eeeb1' date '05/05/2014' time '22:16:03' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
Expand Down
Empty file.
@@ -0,0 +1,3 @@
accessing
classLookupEnvironmentId
self subclassResponsibility
@@ -0,0 +1,3 @@
accessing
classLookupSymbolList
self subclassResponsibility
@@ -0,0 +1,7 @@
compilation
compile: aString inContext: compilationContext
^ self
_compile: aString
inContext: compilationContext
symbolList: self methodCompilationSymbolList
envId: self methodCompilationEnvironmentId
@@ -0,0 +1,7 @@
compilation
compile: aString inContext: compilationContext symbolList: symbolList
^ self
_compile: aString
inContext: compilationContext
symbolList: symbolList
envId: self methodCompilationEnvironmentId
@@ -0,0 +1,7 @@
compilation
compile: aString inContext: compilationContext symbolList: symbolList envId: envId
^ self
_compile: aString
inContext: compilationContext
symbolList: symbolList
envId: envId
@@ -0,0 +1,4 @@
evaluation
evaluate: aString in: evalContext
^ (self compile: aString inContext: evalContext)
_executeInContext: evalContext
@@ -0,0 +1,4 @@
evaluation
evaluate: aString in: evalContext compilationContext: compilationContext
^ (self compile: aString inContext: compilationContext)
_executeInContext: evalContext
@@ -0,0 +1,4 @@
evaluation
evaluate: aString in: evalContext compilationContext: compilationContext symbolList: symbolList
^ (self compile: aString inContext: compilationContext symbolList: symbolList)
_executeInContext: evalContext
@@ -0,0 +1,7 @@
evaluation
evaluate: aString in: evalContext compilationContext: compilationContext symbolList: symbolList envId: envId
^ (self
compile: aString
inContext: compilationContext
symbolList: symbolList
envId: envId) _executeInContext: evalContext
@@ -0,0 +1,3 @@
accessing
methodCompilationEnvironmentId
self subclassResponsibility
@@ -0,0 +1,3 @@
accessing
methodCompilationSymbolList
self subclassResponsibility
@@ -0,0 +1,15 @@
{
"class" : {
},
"instance" : {
"classLookupEnvironmentId" : "dkh 12/26/2016 05:15",
"classLookupSymbolList" : "dkh 12/26/2016 05:15",
"compile:inContext:" : "dkh 12/26/2016 06:28",
"compile:inContext:symbolList:" : "dkh 12/26/2016 06:28",
"compile:inContext:symbolList:envId:" : "dkh 12/26/2016 06:24",
"evaluate:in:" : "dkh 12/26/2016 06:29",
"evaluate:in:compilationContext:" : "dkh 12/26/2016 06:29",
"evaluate:in:compilationContext:symbolList:" : "dkh 12/26/2016 06:28",
"evaluate:in:compilationContext:symbolList:envId:" : "dkh 12/26/2016 06:26",
"methodCompilationEnvironmentId" : "dkh 12/26/2016 05:14",
"methodCompilationSymbolList" : "dkh 12/26/2016 05:15" } }
@@ -0,0 +1,14 @@
{
"category" : "Topez-Server-Core",
"classinstvars" : [
"selectedDefinition" ],
"classvars" : [
],
"commentStamp" : "",
"instvars" : [
],
"name" : "TDAbstractEnvironment",
"pools" : [
],
"super" : "Object",
"type" : "normal" }
Empty file.
@@ -0,0 +1,4 @@
accessing
classLookupEnvironmentId: anObject

classLookupEnvironmentId := anObject
@@ -0,0 +1,4 @@
accessing
classLookupEnvironmentId

^classLookupEnvironmentId
@@ -0,0 +1,4 @@
accessing
classLookupSymbolList: anObject

classLookupSymbolList := anObject
@@ -0,0 +1,4 @@
accessing
classLookupSymbolList

^classLookupSymbolList
@@ -0,0 +1,4 @@
accessing
methodComiliationSymbolList: anObject

methodComiliationSymbolList := anObject
@@ -0,0 +1,4 @@
accessing
methodComiliationSymbolList

^methodComiliationSymbolList
@@ -0,0 +1,4 @@
accessing
methodCompilationEnvironmentId: anObject

methodCompilationEnvironmentId := anObject
@@ -0,0 +1,4 @@
accessing
methodCompilationEnvironmentId

^methodCompilationEnvironmentId
@@ -0,0 +1,12 @@
{
"class" : {
},
"instance" : {
"classLookupEnvironmentId" : "dkh 12/26/2016 05:33",
"classLookupEnvironmentId:" : "dkh 12/26/2016 05:33",
"classLookupSymbolList" : "dkh 12/26/2016 05:33",
"classLookupSymbolList:" : "dkh 12/26/2016 05:33",
"methodComiliationSymbolList" : "dkh 12/26/2016 05:33",
"methodComiliationSymbolList:" : "dkh 12/26/2016 05:33",
"methodCompilationEnvironmentId" : "dkh 12/26/2016 05:33",
"methodCompilationEnvironmentId:" : "dkh 12/26/2016 05:33" } }
@@ -0,0 +1,17 @@
{
"category" : "Topez-Server-Core",
"classinstvars" : [
],
"classvars" : [
],
"commentStamp" : "",
"instvars" : [
"classLookupEnvironmentId",
"classLookupSymbolList",
"methodCompilationEnvironmentId",
"methodComiliationSymbolList" ],
"name" : "TDCustomEnvironment",
"pools" : [
],
"super" : "TDAbstractEnvironment",
"type" : "normal" }
Empty file.
@@ -0,0 +1,3 @@
accessing
classLookupEnvironmentId
^ self standardEnvironment
@@ -0,0 +1,3 @@
accessing
classLookupSymbolList
^ self standardSymbolList
@@ -0,0 +1,3 @@
accessing
methodCompilationEnvironmentId
^ self standardEnvironment
@@ -0,0 +1,3 @@
accessing
methodCompilationSymbolList
^ self standardSymbolList
@@ -0,0 +1,3 @@
private
standardEnvironment
^ 0
@@ -0,0 +1,3 @@
private
standardSymbolList
^ GsSession currentSession symbolList
@@ -0,0 +1,10 @@
{
"class" : {
},
"instance" : {
"classLookupEnvironmentId" : "dkh 12/26/2016 05:20",
"classLookupSymbolList" : "dkh 12/26/2016 05:23",
"methodCompilationEnvironmentId" : "dkh 12/26/2016 05:20",
"methodCompilationSymbolList" : "dkh 12/26/2016 05:23",
"standardEnvironment" : "dkh 12/26/2016 05:19",
"standardSymbolList" : "dkh 12/26/2016 05:22" } }
@@ -0,0 +1,14 @@
{
"category" : "Topez-Server-Core",
"classinstvars" : [
],
"classvars" : [
],
"commentStamp" : "",
"instvars" : [
],
"name" : "TDStandardEnvironment",
"pools" : [
],
"super" : "TDAbstractEnvironment",
"type" : "normal" }
Empty file.
@@ -0,0 +1,7 @@
private
standardSymbolList
userId ifNil: [ ^ super standardSymbolList ].
^ (AllUsers
userWithId: self userId
ifAbsent: [ self error: 'User ' , self userId printString , ' not found' ])
symbolList
@@ -0,0 +1,4 @@
accessing
userId: anObject

userId := anObject
@@ -0,0 +1,4 @@
accessing
userId

^userId
@@ -0,0 +1,7 @@
{
"class" : {
},
"instance" : {
"standardSymbolList" : "dkh 12/26/2016 05:27",
"userId" : "dkh 12/26/2016 05:26",
"userId:" : "dkh 12/26/2016 05:26" } }
@@ -0,0 +1,14 @@
{
"category" : "Topez-Server-Core",
"classinstvars" : [
],
"classvars" : [
],
"commentStamp" : "",
"instvars" : [
"userId" ],
"name" : "TDStandardUserEnvironment",
"pools" : [
],
"super" : "TDStandardEnvironment",
"type" : "normal" }
@@ -0,0 +1,3 @@
environment
todeDevEnvironment: aTDEnvironment
^ todeDevEnvironment aTDEnvironment
@@ -0,0 +1,3 @@
environment
todeDevEnvironment
^ todeDevEnvironment ifNil: [ self todeEnvironment ]
@@ -0,0 +1,3 @@
environment
todeEnvironment: aTDEnvironment
^ todeEnvironment aTDEnvironment
@@ -0,0 +1,3 @@
environment
todeEnvironment
^ todeEnvironment ifNil: [ todeEnvironment := TDStandardEnvironment new ]
Expand Up @@ -157,6 +157,10 @@
"symbolList" : "dkh 12/23/2016 17:49",
"tabCompletion:" : "dkh 12/19/2014 15:30",
"toString:" : "dkh 06/25/2015 16:12",
"todeDevEnvironment" : "dkh 12/26/2016 05:39",
"todeDevEnvironment:" : "dkh 12/26/2016 05:40",
"todeEnvironment" : "dkh 12/26/2016 05:37",
"todeEnvironment:" : "dkh 12/26/2016 05:38",
"toolInstanceFor:" : "dkh 04/02/2014 10:23",
"topezClientForwarder" : "DataCurator 11/18/2012 15:35",
"topezClientForwarder:" : "DataCurator 11/18/2012 15:35",
Expand Down
Expand Up @@ -25,7 +25,9 @@
"serverTodeRoot",
"objectSerializer",
"persistentElementCache",
"effectiveApiVersion" ],
"effectiveApiVersion",
"todeEnvironment",
"todeDevEnvironment" ],
"name" : "TDTopezServer",
"pools" : [
],
Expand Down

Large diffs are not rendered by default.

0 comments on commit 566d11a

Please sign in to comment.