Multiple changes:

- Recategorize package
- Add application skeleton

src/Carp/CarpApplication.class.st

@@ -0,0 +1,27 @@
+Class {
+	#name : #CarpApplication,
+	#superclass : #LanguageLinkApplication,
+	#instVars : [
+		'uniqueInstance'
+	],
+	#category : #'Carp-LanguageLink'
+}
+
+{ #category : #'start-stop' }
+CarpApplication class >> start [
+
+	^ self startWith: LanguageLinkSettings jsDefaultSettings.
+]
+
+{ #category : #accessing }
+CarpApplication >> baseApplication [
+	^ CarpApplication
+]
+
+{ #category : #accessing }
+CarpApplication >> initializeHandlers [
+	loggingHandler := LanguageLinkLoggingHandler application: self.
+	communicationHandler := LanguageLinkCommunicationHandler application: self.
+	processHandler := LanguageLinkServerHandler application: self.
+	"executionHandler := CarpExecutionHandler application: self"
+]

src/Carp/CarpArrayNode.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'expressions'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpCharacterNode.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'value'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpDerefNode.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'value'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpExpressionNode.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #CarpExpressionNode,
 	#superclass : #SmaCCParseNode,
-	#category : #'Carp-Carp'
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpExpressionNodeVisitor.class.st

@@ -3,5 +3,5 @@ Class {
 	#superclass : #Object,
 	#traits : 'TCarpExpressionNodeVisitor',
 	#classTraits : 'TCarpExpressionNodeVisitor classTrait',
-	#category : #Carp
+	#category : #'Carp-Parser'
 }

src/Carp/CarpFile.class.st

@@ -5,7 +5,7 @@ Class {
 		'fileName',
 		'contents'
 	],
-	#category : #Carp
+	#category : #'Carp-Parser'
 }
 
 { #category : #'instance creation' }

src/Carp/CarpListNode.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'expressions'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpMapNode.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'pairs'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpModuleOrTypeNode.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'value'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpNumberNode.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'value'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpPairNode.class.st

@@ -5,7 +5,7 @@ Class {
 		'key',
 		'value'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpParser.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #CarpParser,
 	#superclass : #SmaCCGLRParser,
-	#category : #Carp
+	#category : #'Carp-Parser'
 }
 
 { #category : #'generated-accessing' }

src/Carp/CarpPatternNode.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'value'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpQuoteNode.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'value'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpRefCallNode.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'value'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpRefNode.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'value'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpScanner.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #CarpScanner,
 	#superclass : #SmaCCScanner,
-	#category : #Carp
+	#category : #'Carp-Parser'
 }
 
 { #category : #generated }

src/Carp/CarpStartNode.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'expressions'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpStringNode.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'value'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpUnquoteNode.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'value'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/CarpVariableNode.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'value'
 	],
-	#category : #Carp
+	#category : #'Carp-AST'
 }
 
 { #category : #generated }

src/Carp/LanguageLinkSettings.extension.st

@@ -0,0 +1,20 @@
+Extension { #name : #LanguageLinkSettings }
+
+{ #category : #'*Carp' }
+LanguageLinkSettings class >> carpDefaultSettings [
+
+	^ self new 
+		clientSocketAddress: (LanguageLinkSocketAddress 
+				ipOrName: 'localhost' port: (9000 + 99 atRandom));
+		serverSocketAddress: (LanguageLinkSocketAddress 
+				ipOrName: 'localhost' port: (9900 + 99 atRandom));
+		messageBrokerStrategy: LanguageLinkHttpMessageBroker;
+		serverProcessClass: JSLinkPharoNodejsProcess;
+		platform: JSLinkPharoPlatform new;
+		commandFactoryClass: JSLinkCommandFactory;
+		commandClass: LanguageLinkCommand;
+		serializerClass: LanguageLinkSerializer;
+		deserializerClass: JSLinkDeserializer;
+		parserClass: CarpParser;
+		yourself
+]

src/Carp/TCarpExpressionNodeVisitor.trait.st

@@ -2,7 +2,7 @@ Trait {
 	#name : #TCarpExpressionNodeVisitor,
 	#traits : 'TSmaCCParseNodeVisitor',
 	#classTraits : 'TSmaCCParseNodeVisitor classTrait',
-	#category : #Carp
+	#category : #'Carp-Parser'
 }
 
 { #category : #generated }