Skip to content

Commit

Permalink
make arrangements to be able to add/remove methods to/from classes de…
Browse files Browse the repository at this point in the history
…fined in another users symbolList ... using remote sessions to do the compile and removal
  • Loading branch information
dalehenrich committed Sep 23, 2016
1 parent b749802 commit bacfa34
Show file tree
Hide file tree
Showing 33 changed files with 150 additions and 51 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ replaceMatchWith: replacementString topez: topez
copyReplaceFrom: matchingRange _from
to: matchingRange _to
with: replacementString.
self theBehavior
self
compile: newSource withGemstoneLineEndings
classified: self methodCategory.
matchingRanges := nil.
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -11,5 +11,5 @@
"matchIndex" : "dkh 08/14/2013 23:14",
"matchingRange" : "dkh 08/14/2013 23:15",
"matchingRanges" : "dkh 08/14/2013 23:13",
"replaceMatchWith:topez:" : "dkh 10/10/2013 05:04",
"replaceMatchWith:topez:" : "dkh 09/23/2016 09:57",
"selectNextMatch:" : "dkh 08/15/2013 00:18" } }
Original file line number Diff line number Diff line change
@@ -1 +1 @@
(name 'Tode-BatchEdit-Tool-dkh.4' message 'Issue #121: better label on renamed class reference definition window ... ALT-o in protocol window with nothing selected was not pretty either' id 'ebf2ff43-3604-4aa7-8e1a-c90f896f31f3' date '10/22/2015' time '19:46:25' author 'dkh' ancestors ((name 'Tode-BatchEdit-Tool-dkh.3' message 'Issue #74: all class-related menu items implemented' id '36661d15-d1ae-4e9a-a943-f007b739ac57' date '07/08/2014' time '10:20:20' author 'dkh' ancestors ((name 'Tode-BatchEdit-Tool-dkh.2' message 'Issue #75: rip up all of the old keyboard block support' id '65331077-c922-44d5-bb55-e15ba56e4537' date '06/18/2014' time '17:08:42' author 'dkh' ancestors ((name 'Tode-BatchEdit-Tool-dkh.1' message '- split TDBatchEditTool and friends into separate package ... this is a useful tool, but it needs to be re-written a bit before it becomes part of standard tool set ...' id '14340a92-64e6-47e7-b3ee-ba4e7ff1b2fb' date '04/26/2014' time '08:26:35' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
(name 'Tode-BatchEdit-Tool-dkh.5' message 'make arrangements to be able to add/remove methods to/from classes defined in another users symbolList ... using remote sessions to do the compile and removal' id 'c63dcf1a-961d-4a0b-a9af-0d3e12950fab' date '09/23/2016' time '10:54:39' author 'dkh' ancestors ((name 'Tode-BatchEdit-Tool-dkh.4' message 'Issue #121: better label on renamed class reference definition window ... ALT-o in protocol window with nothing selected was not pretty either' id 'ebf2ff43-3604-4aa7-8e1a-c90f896f31f3' date '10/22/2015' time '19:46:25' author 'dkh' ancestors ((name 'Tode-BatchEdit-Tool-dkh.3' message 'Issue #74: all class-related menu items implemented' id '36661d15-d1ae-4e9a-a943-f007b739ac57' date '07/08/2014' time '10:20:20' author 'dkh' ancestors ((name 'Tode-BatchEdit-Tool-dkh.2' message 'Issue #75: rip up all of the old keyboard block support' id '65331077-c922-44d5-bb55-e15ba56e4537' date '06/18/2014' time '17:08:42' author 'dkh' ancestors ((name 'Tode-BatchEdit-Tool-dkh.1' message '- split TDBatchEditTool and friends into separate package ... this is a useful tool, but it needs to be re-written a bit before it becomes part of standard tool set ...' id '14340a92-64e6-47e7-b3ee-ba4e7ff1b2fb' date '04/26/2014' time '08:26:35' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())

This file was deleted.

Original file line number Diff line number Diff line change
Expand Up @@ -9,7 +9,6 @@
"clientSourceElement" : "dkh 09/12/2016 06:47",
"clientSourceElementClass" : "dkh 09/09/2016 16:40",
"compareElementSource:toMethod:" : "dkh 09/09/2016 16:40",
"compileSource:" : "dkh 09/09/2016 16:52",
"defaultEditorWindowLocation" : "dkh 09/09/2016 16:40",
"defaultProtocol" : "dkh 09/09/2016 16:40",
"differentMethodCreated:" : "dkh 09/09/2016 16:40",
Expand Down
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
instance creation
sessionForStone: stonename userName: username password: password
| session sessionDescription |
(FileDirectory on: '$GS_HOME/sys/local/sessions/')
readOnlyFileNamed: stonename
do: [ :fs | sessionDescription := (STON fromString: fs contents) asTDSessionDescription ].
session := TDGsExternalSession
gemNRS: sessionDescription gemNRS
stoneNRS: sessionDescription stoneNRS
username: username
password: password.
^ session
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
compilation
compile: sourceString inClass: aClass classified: methodProtocol
^ self
compile: sourceString
inClassOop: aClass asOop
classified: methodProtocol
Original file line number Diff line number Diff line change
@@ -0,0 +1,16 @@
compilation
compile: sourceString inClassOop: aClassOop classified: methodProtocol
| selector |
^ self
executeBlock: [ :behaviorOop :source :protocol |
| gsNMethod |
gsNMethod := (Object _objectForOop: behaviorOop)
compileMethod: source
dictionaries: GsSession currentSession symbolList
category: protocol
environmentId: 0.
gsNMethod selector ]
withArguments:
{aClassOop.
sourceString.
methodProtocol}
Original file line number Diff line number Diff line change
@@ -1,11 +1,14 @@
{
"class" : {
"sessionClass" : "dkh 09/07/2016 17:00" },
"sessionClass" : "dkh 09/07/2016 17:00",
"sessionForStone:userName:password:" : "dkh 09/23/2016 10:09" },
"instance" : {
"_signalIfError" : "dkh 09/20/2016 15:23",
"compile:inClass:classified:" : "dkh 09/23/2016 10:26",
"compile:inClassOop:classified:" : "dkh 09/23/2016 10:49",
"continue:" : "dkh 09/20/2016 11:41",
"continue:replacingTopOfStackWithOop:" : "dkh 09/10/2016 10:30",
"handlingError" : "dkh 09/08/2016 14:17",
"handlingError" : "dkh 09/20/2016 11:41",
"minPrintOn:" : "dkh 09/20/2016 15:53",
"resetHandlingError" : "dkh 09/20/2016 11:42",
"topez" : "dkh 09/20/2016 15:20",
Expand Down
Original file line number Diff line number Diff line change
@@ -1,16 +1,6 @@
accessing
compile: sourceString classified: methodProtocol
| selector |
^ self session
executeBlock: [ :classOop :source :protocol |
| gsNMethod |
gsNMethod := (Object _objectForOop: classOop)
compileMethod: source
dictionaries: GsSession currentSession symbolList
category: protocol
environmentId: 0.
gsNMethod selector ]
withArguments:
{(self inClassOop).
sourceString.
methodProtocol}
compile: sourceString
inClassOop: self inClassOop
classified: methodProtocol
Original file line number Diff line number Diff line change
Expand Up @@ -11,7 +11,7 @@
"baseNodeNames" : "dkh 09/08/2016 06:22",
"calculateSelectionRange" : "dkh 09/08/2016 16:02",
"calculateSourceRangeEnd:in:" : "dkh 09/08/2016 06:22",
"compile:classified:" : "dkh 09/10/2016 08:26",
"compile:classified:" : "dkh 09/23/2016 10:27",
"dotSelfLiteralArray" : "dkh 09/08/2016 06:22",
"dotSelfObject" : "dkh 09/09/2016 13:47",
"dotSelfWorkspace:" : "dkh 09/08/2016 06:22",
Expand Down
Original file line number Diff line number Diff line change
@@ -1 +1 @@
(name 'Tode-GemStone-Remote-Server-dkh.17' message 'fix a couple of remote debugger issues' id '9898f891-0fc2-4f61-8e7d-cc46a014bbc7' date '09/22/2016' time '15:57:20' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.16' message 'stepping code is different between GemStone 3.3.0 and 3.4.0 ' id '5c98d6aa-763e-48b3-a142-4c667ab06c90' date '09/20/2016' time '18:42:31' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.15' message 'refactor the debugger invocation stack ... TDExceptionDuringStep respnsible for opening debugger, etc. ... hopefully debugger errors will bring up another debugger ...' id '3518a886-8e90-4e7d-9a7b-5db93156b05b' date '09/20/2016' time '15:54:50' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.14' message 'switch step logic to use the direct methods on GsProcess instead of GciStep_ call' id '6fe9b769-4510-4c8b-b5d0-c22c4d8a1011' date '09/20/2016' time '14:51:33' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.13' message 'get process termination logic straightened out ...' id '8974c6bf-01f6-4924-8c10-02120082e12c' date '09/20/2016' time '12:33:29' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.12' message 'fiddle a bit with the step logic ... step works now, but need proper process termination logic' id 'ee5c72dd-bac6-4f2a-9ed2-406556addfe6' date '09/20/2016' time '12:14:09' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.11' message 'clean up TDRemoteDebugger>>dbFinishStep logic' id '70b2e07e-a191-4894-a4b7-44403cbd8283' date '09/20/2016' time '11:58:12' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.10' message 'need to be able to single step in remote debugger ... first cut' id '6dc8f46a-e975-45fd-9e9c-483393a5ebc6' date '09/20/2016' time '11:48:24' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.9' message 'tweaks for remote debugger inspector ...' id 'a62204e4-9d43-4f2b-acc0-8b848d28ba9d' date '09/14/2016' time '07:03:16' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.8' message 'properly implement TDRemoteDebugger>>processOop' id '53f42a3a-72ec-4014-83b7-ab87b023ff2e' date '09/12/2016' time '17:36:44' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.7' message 'Cannot use remote debugger to debug 4000 series error numbers because the session is not alive' id '1d0c7d59-e15e-4e41-92f0-b3fa829b7859' date '09/12/2016' time '11:19:10' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.6' message 'tweak TDRemoteStackFrame>>inClassName' id '63e8e9de-0ec8-4575-861a-5a2659ced80a' date '09/12/2016' time '10:59:36' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.5' message 'reset error handling when remote debugger closed ... clean up TDRemoteStackFrame>>baseNodeMap' id 'a4689fd0-ab40-4f87-a427-8cb71bc8d255' date '09/12/2016' time '07:10:14' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.4' message 'do not log out of remote session when debugger is closed ' id '96e8fc7c-8941-458d-b72d-4711b65592eb' date '09/12/2016' time '06:55:01' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.3' message 'patch TDClientMethodElementBuilder>>clientSourceElement' id '8a743984-d74c-4893-a130-9be6f21d6684' date '09/12/2016' time '06:53:04' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.2' message 'more debugger work ... bugfixes' id '351e6feb-363a-4f69-9beb-e6a65c0fd265' date '09/12/2016' time '06:33:14' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.1' message 'add package Tode-GemStone-Remote-Server for the tode server side remote server code' id '75f3c430-e79f-423d-ae8e-4a0635514a26' date '09/10/2016' time '10:20:58' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
(name 'Tode-GemStone-Remote-Server-dkh.18' message 'make arrangements to be able to add/remove methods to/from classes defined in another users symbolList ... using remote sessions to do the compile and removal' id '9e971ca9-038c-4f71-b52a-0ee9ad189771' date '09/23/2016' time '10:54:40' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.17' message 'fix a couple of remote debugger issues' id '9898f891-0fc2-4f61-8e7d-cc46a014bbc7' date '09/22/2016' time '15:57:20' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.16' message 'stepping code is different between GemStone 3.3.0 and 3.4.0 ' id '5c98d6aa-763e-48b3-a142-4c667ab06c90' date '09/20/2016' time '18:42:31' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.15' message 'refactor the debugger invocation stack ... TDExceptionDuringStep respnsible for opening debugger, etc. ... hopefully debugger errors will bring up another debugger ...' id '3518a886-8e90-4e7d-9a7b-5db93156b05b' date '09/20/2016' time '15:54:50' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.14' message 'switch step logic to use the direct methods on GsProcess instead of GciStep_ call' id '6fe9b769-4510-4c8b-b5d0-c22c4d8a1011' date '09/20/2016' time '14:51:33' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.13' message 'get process termination logic straightened out ...' id '8974c6bf-01f6-4924-8c10-02120082e12c' date '09/20/2016' time '12:33:29' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.12' message 'fiddle a bit with the step logic ... step works now, but need proper process termination logic' id 'ee5c72dd-bac6-4f2a-9ed2-406556addfe6' date '09/20/2016' time '12:14:09' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.11' message 'clean up TDRemoteDebugger>>dbFinishStep logic' id '70b2e07e-a191-4894-a4b7-44403cbd8283' date '09/20/2016' time '11:58:12' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.10' message 'need to be able to single step in remote debugger ... first cut' id '6dc8f46a-e975-45fd-9e9c-483393a5ebc6' date '09/20/2016' time '11:48:24' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.9' message 'tweaks for remote debugger inspector ...' id 'a62204e4-9d43-4f2b-acc0-8b848d28ba9d' date '09/14/2016' time '07:03:16' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.8' message 'properly implement TDRemoteDebugger>>processOop' id '53f42a3a-72ec-4014-83b7-ab87b023ff2e' date '09/12/2016' time '17:36:44' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.7' message 'Cannot use remote debugger to debug 4000 series error numbers because the session is not alive' id '1d0c7d59-e15e-4e41-92f0-b3fa829b7859' date '09/12/2016' time '11:19:10' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.6' message 'tweak TDRemoteStackFrame>>inClassName' id '63e8e9de-0ec8-4575-861a-5a2659ced80a' date '09/12/2016' time '10:59:36' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.5' message 'reset error handling when remote debugger closed ... clean up TDRemoteStackFrame>>baseNodeMap' id 'a4689fd0-ab40-4f87-a427-8cb71bc8d255' date '09/12/2016' time '07:10:14' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.4' message 'do not log out of remote session when debugger is closed ' id '96e8fc7c-8941-458d-b72d-4711b65592eb' date '09/12/2016' time '06:55:01' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.3' message 'patch TDClientMethodElementBuilder>>clientSourceElement' id '8a743984-d74c-4893-a130-9be6f21d6684' date '09/12/2016' time '06:53:04' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.2' message 'more debugger work ... bugfixes' id '351e6feb-363a-4f69-9beb-e6a65c0fd265' date '09/12/2016' time '06:33:14' author 'dkh' ancestors ((name 'Tode-GemStone-Remote-Server-dkh.1' message 'add package Tode-GemStone-Remote-Server for the tode server side remote server code' id '75f3c430-e79f-423d-ae8e-4a0635514a26' date '09/10/2016' time '10:20:58' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
as yet unclassified
compile: sourceString classified: methodProtocol
^ self inClass compile: sourceString classified: methodProtocol
Original file line number Diff line number Diff line change
Expand Up @@ -8,6 +8,7 @@
"baseNodeNames" : "DataCurator 12/16/2012 08:10",
"calculateSelectionRange" : "dkh 09/07/2016 18:43",
"calculateSourceRangeEnd:in:" : "DataCurator 12/17/2012 08:11",
"compile:classified:" : "dkh 09/23/2016 10:33",
"dotSelfLiteralArray" : "dkh 06/28/2014 09:53",
"dotSelfObject" : "dkh 06/28/2014 09:59",
"dotSelfWorkspace:" : "dkh 06/28/2014 12:16",
Expand Down
Loading

0 comments on commit bacfa34

Please sign in to comment.