begin support setTrace

Author: badetitou

src/PharoLanguageServer/PLSAbstractServer.class.st

@@ -297,12 +297,9 @@ PLSAbstractServer >> serverShutdown [
 
 { #category : 'lsp - trace' }
 PLSAbstractServer >> setTrace: setTraceParam [
-	<jrpc: #'$/setTrace'>
-]
 
-{ #category : 'lsp - trace' }
-PLSAbstractServer >> setTraceNotification: value [
-	<jrpc: #'$/setTraceNotification'>
+	<jrpc: #'$/setTrace' >
+	self context traceValue: (setTraceParam at: #value)
 ]
 
 { #category : 'lsp - show document' }

src/PharoLanguageServer/PLSContext.class.st

@@ -1,5 +1,7 @@
 "
-The server use me to store informations such as the text item 
+The server use me to store informations such as the text item.
+
+- `traceValue` represent the level of trace sent to the client
 "
 Class {
 	#name : 'PLSContext',
@@ -8,7 +10,8 @@ Class {
 		'textItems',
 		'messageProcesses',
 		'clientContext',
-		'server'
+		'server',
+		'traceValue'
 	],
 	#category : 'PharoLanguageServer-Context',
 	#package : 'PharoLanguageServer',
@@ -37,8 +40,10 @@ PLSContext >> clientContext: anObject [
 
 { #category : 'initialization' }
 PLSContext >> initialize [
+
 	textItems := Dictionary new.
-	messageProcesses := Dictionary new
+	messageProcesses := Dictionary new.
+	traceValue := PLSTraceValue messages
 ]
 
 { #category : 'message processing' }
@@ -106,3 +111,15 @@ PLSContext >> textItems [
 PLSContext >> textItems: anObject [
 	textItems := anObject
 ]
+
+{ #category : 'accessing' }
+PLSContext >> traceValue [
+
+	^ traceValue
+]
+
+{ #category : 'accessing' }
+PLSContext >> traceValue: anObject [
+
+	traceValue := anObject
+]

src/PharoLanguageServer/PLSServer.class.st

@@ -264,6 +264,7 @@ PLSServer >> onInitializeTrace: trace processId: processId locale: locale client
 			 capabilities: (PLPClientCapabilities from: capabilities);
 			 rootUri: rootUri;
 			 yourself).
+	trace ifNotNil: [ self context traceValue: trace ].
 	^ PLSInitializeResult new
 ]
 

src/PharoLanguageServer/PLSTraceValue.class.st

@@ -0,0 +1,28 @@
+"
+[https://microsoft.github.io/language-server-protocol/specifications/lsp/3.17/specification/#traceValue](https://microsoft.github.io/language-server-protocol/specifications/lsp/3.17/specification/#traceValue)
+"
+Class {
+	#name : 'PLSTraceValue',
+	#superclass : 'Object',
+	#category : 'PharoLanguageServer-Structure-Trace',
+	#package : 'PharoLanguageServer',
+	#tag : 'Structure-Trace'
+}
+
+{ #category : 'as yet unclassified' }
+PLSTraceValue class >> messages [
+
+	^ 'messages'
+]
+
+{ #category : 'as yet unclassified' }
+PLSTraceValue class >> off [
+
+	^ 'off'
+]
+
+{ #category : 'as yet unclassified' }
+PLSTraceValue class >> verbose [
+
+	^ 'verbose'
+]