Add CallTargetBrowserPython

src/TruffleSqueak-Utilities.package/CallTargetBrowserPython.class/class/callTargetFor.of..st

@@ -0,0 +1,9 @@
+helpers
+callTargetFor: aMethodName of: aModuleName
+	| vmObject |
+	vmObject := (self methodFor: aMethodName of: aModuleName) vmObject.
+	^ (vmObject respondsTo: #function) 
+		ifTrue: [ (vmObject function respondsTo: #callTarget)
+				ifTrue: [ vmObject function callTarget ]
+				ifFalse: nil ]
+		ifFalse: nil

src/TruffleSqueak-Utilities.package/CallTargetBrowserPython.class/class/methodGetter.st

@@ -0,0 +1,5 @@
+helpers
+methodGetter
+	"MethodGetter := nil"
+	^ MethodGetter ifNil: [ MethodGetter := Polyglot eval: #python string:
+		'import sys; lambda mod_name, meth_name : getattr(sys.modules[str(mod_name)], str(meth_name))' ]

src/TruffleSqueak-Utilities.package/CallTargetBrowserPython.class/class/methodListGetter.st

@@ -0,0 +1,5 @@
+helpers
+methodListGetter
+	"MethodListGetter := nil"
+	^ MethodListGetter ifNil: [ MethodListGetter := Polyglot eval: #python string:
+		'import sys; lambda mod_name : [x for x in dir(sys.modules[str(mod_name)]) if x[0].islower()]' ]

src/TruffleSqueak-Utilities.package/CallTargetBrowserPython.class/instance/labelString.st

@@ -0,0 +1,7 @@
+toolbuilder
+labelString
+	| label |
+	label := 'CallTargetBrowser for GraalPython'.
+	self selectedModuleName
+		ifNotNil: [ :name | label := label, ': ', name ].
+	^ label

src/TruffleSqueak-Utilities.package/CallTargetBrowserPython.class/instance/moduleAndClassList.st

@@ -0,0 +1,4 @@
+toolbuilder
+moduleAndClassList
+	^ ((Polyglot eval: #python string: 'import sys; list(sys.modules.keys())')
+			asCollection collect: [ :ea | ea asString ]) sorted

src/TruffleSqueak-Utilities.package/CallTargetBrowserPython.class/methodProperties.json

@@ -0,0 +1,8 @@
+{
+	"class" : {
+		"callTargetFor:of:" : "fn 10/1/2021 13:15",
+		"methodGetter" : "fn 10/1/2021 13:00",
+		"methodListGetter" : "fn 10/1/2021 13:16" },
+	"instance" : {
+		"labelString" : "fn 10/1/2021 13:04",
+		"moduleAndClassList" : "fn 10/1/2021 13:05" } }

src/TruffleSqueak-Utilities.package/CallTargetBrowserPython.class/properties.json

@@ -0,0 +1,14 @@
+{
+	"category" : "TruffleSqueak-Utilities",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "CallTargetBrowserPython",
+	"pools" : [
+		 ],
+	"super" : "CallTargetBrowserRuby",
+	"type" : "normal" }