Use new abstract importer + improve names

Author: jecisc

src/FAST-Python-Tools/FASTPythonImporter.class.st

@@ -1,10 +1,11 @@
+"
+I am a FAST Python importer. 
+
+I mostly declare the TS language to use and redirect the visit to `FASTPythonVisitor`.
+"
 Class {
 	#name : 'FASTPythonImporter',
-	#superclass : 'Object',
-	#instVars : [
-		'tsParser',
-		'errorReportBlock'
-	],
+	#superclass : 'TSFASTAbstractImporter',
 	#category : 'FAST-Python-Tools',
 	#package : 'FAST-Python-Tools'
 }
@@ -103,48 +104,14 @@ FASTPythonImporter class >> parseFile: aFileReference [
 	^ self parse: aFileReference asFileReference contents
 ]
 
-{ #category : 'parsing' }
-FASTPythonImporter >> deleteTreeSitterParser [
-
-	self tsParser delete
-]
-
 { #category : 'accessing' }
-FASTPythonImporter >> errorReportBlock: aBlock [
+FASTPythonImporter >> tsLanguage [
 
-	errorReportBlock := aBlock
-]
-
-{ #category : 'as yet unclassified' }
-FASTPythonImporter >> initialiseTreeSitterParser [ 
-
-	self tsParser: TSParser new.
-	self tsParser language: TSLanguage python
-]
-
-{ #category : 'parsing' }
-FASTPythonImporter >> parse: aString [
-
-	| tsTree fastTree |
-	self initialiseTreeSitterParser.
-
-	tsTree := self tsParser parseString: aString.
-	fastTree := TSFASTPythonVisitor new
-		            originString: aString;
-		            in: [ :importer | errorReportBlock ifNotNil: [ importer errorReportBlock: errorReportBlock ] ];
-		            import: tsTree rootNode.
-
-	self deleteTreeSitterParser.
-
-	^ fastTree
+	^ TSLanguage python
 ]
 
 { #category : 'accessing' }
-FASTPythonImporter >> tsParser [
-	^ tsParser
-]
+FASTPythonImporter >> visitorClass [
 
-{ #category : 'accessing' }
-FASTPythonImporter >> tsParser: anObject [
-	tsParser := anObject
+	^ FASTPythonVisitor
 ]