Improve TSSymbolExplorerPresenter to display number of children by fields

In the TSSymbolExplorerPresenter, next to the field name, I now dispaly the min and max number of children I found in the node. This allows to know easily multiple things:
- If the node is optional
- If the node always has the same value
- If the node has un undefined number of values

Author: jecisc

src/TreeSitter-Spec/TSFieldExplorerWrapper.class.st

@@ -9,7 +9,8 @@ Class {
 	#instVars : [
 		'field',
 		'symbolsAndCode',
-		'isOptional'
+		'minSize',
+		'maxSize'
 	],
 	#category : 'TreeSitter-Spec',
 	#package : 'TreeSitter-Spec'
@@ -26,6 +27,13 @@ TSFieldExplorerWrapper class >> field: aSymbol [
 { #category : 'adding' }
 TSFieldExplorerWrapper >> addAll: aColl code: aString [
 
+	"I save the min and max number of children I can have to display this info to the user."
+	minSize := minSize
+		           ifNil: [ aColl size ]
+		           ifNotNil: [ minSize min: aColl size ].
+	maxSize := maxSize
+		           ifNil: [ aColl size ]
+		           ifNotNil: [ maxSize max: aColl size ].
 	aColl do: [ :node | (symbolsAndCode keys includes: node type) ifFalse: [ symbolsAndCode at: node type put: (node parent textFromSourceText: aString) ] ]
 ]
 
@@ -49,18 +57,29 @@ TSFieldExplorerWrapper >> field: anObject [
 TSFieldExplorerWrapper >> initialize [
 
 	super initialize.
-	symbolsAndCode := OrderedDictionary new.
-	isOptional := false
+	symbolsAndCode := OrderedDictionary new
 ]
 
 { #category : 'accessing' }
 TSFieldExplorerWrapper >> isOptional [
-	^ isOptional
+
+	^ minSize isNotNil and: [ minSize = 0 ]
 ]
 
 { #category : 'accessing' }
 TSFieldExplorerWrapper >> isOptional: anObject [
-	isOptional := anObject
+
+	anObject ifTrue: [ minSize := 0 ]
+]
+
+{ #category : 'accessing' }
+TSFieldExplorerWrapper >> maxSize [
+	^ maxSize
+]
+
+{ #category : 'accessing' }
+TSFieldExplorerWrapper >> minSize [
+	^ minSize
 ]
 
 { #category : 'accessing' }

src/TreeSitter-Spec/TSSymbolExplorerPresenter.class.st

@@ -2,7 +2,7 @@
 I am a presenter used by `TSSymbolExplorerPresenter` to display its result in the inspector.
 
 I display the list of symbols present in the project. And when one is selected I show two other panes:
-- A tree with all the fields that the symbol can have and their possible contents
+- A tree with all the fields that the symbol can have and their possible contents. For each fields I display the min and max number of children I found in the code provided.
 - A list of possible symbols that can be the parents of this symbol
 "
 Class {
@@ -148,9 +148,9 @@ TSSymbolExplorerPresenter >> initializePresenters [
 		display: [ :item |
 				item class = TSFieldExplorerWrapper
 					ifTrue: [
-							'Field: ' , item field , (item isOptional
-									 ifTrue: [ ' (optional)' ]
-									 ifFalse: [ '' ]) ]
+							'Field: ' , item field , ' (Size: ' , (item minSize = item maxSize
+									 ifTrue: [ item minSize asString ]
+									 ifFalse: [ item minSize asString , '..' , item maxSize asString ]) , ')' ]
 					ifFalse: [ item ] ];
 		children: [ :item |
 				item class = TSFieldExplorerWrapper

src/TreeSitter-Spec/TSSymbolsBuilderVisitor.class.st

@@ -101,7 +101,7 @@ TSSymbolsBuilderVisitor >> visitNode: aTSNode [
 	"This needs to be done here and not in the bloc for nodes that cannot have a child"
 	fields := symbolDictionary
 		          at: aTSNode type
-		          ifPresent: [ :flds | "We check if some fields are missing in the current node to mark them as optional"
+		          ifPresent: [ :flds | "We check if some fields are missing in the current node to mark them as optional, meaning the minimal number of nodes for this field can be 0"
 				          flds
 					          reject: [ :field | aTSNode collectFieldNameOfNamedChild keys includes: field field ]
 					          thenDo: [ :field | field isOptional: true ] ]