Add Lepiter snippets for Carp

src/Carp-Parser/CarpArrayNode.class.st

@@ -0,0 +1,72 @@
+Class {
+	#name : #CarpArrayNode,
+	#superclass : #CarpExpressionNode,
+	#instVars : [
+		'leftBracket',
+		'expressions',
+		'rightBracket'
+	],
+	#category : #'Carp-Parser'
+}
+
+{ #category : #generated }
+CarpArrayNode >> acceptVisitor: anExpressionVisitor [
+
+	^ anExpressionVisitor visitArray: self
+]
+
+{ #category : #generated }
+CarpArrayNode >> compositeNodeVariables [
+
+	^ #( #expressions )
+]
+
+{ #category : #generated }
+CarpArrayNode >> expressions [
+
+	^ expressions
+]
+
+{ #category : #generated }
+CarpArrayNode >> expressions: anOrderedCollection [
+
+	self setParents: self expressions to: nil.
+	expressions := anOrderedCollection.
+	self setParents: self expressions to: self
+]
+
+{ #category : #'generated-initialize-release' }
+CarpArrayNode >> initialize [
+	super initialize.
+	expressions := OrderedCollection new: 2.
+]
+
+{ #category : #generated }
+CarpArrayNode >> leftBracket [
+
+	^ leftBracket
+]
+
+{ #category : #generated }
+CarpArrayNode >> leftBracket: aSmaCCToken [
+
+	leftBracket := aSmaCCToken
+]
+
+{ #category : #generated }
+CarpArrayNode >> rightBracket [
+
+	^ rightBracket
+]
+
+{ #category : #generated }
+CarpArrayNode >> rightBracket: aSmaCCToken [
+
+	rightBracket := aSmaCCToken
+]
+
+{ #category : #generated }
+CarpArrayNode >> tokenVariables [
+
+	^ #( #leftBracket #rightBracket )
+]