93 lines
1.7 KiB
Smalltalk
93 lines
1.7 KiB
Smalltalk
Class {
|
|
#name : #PPCMDelegateNode,
|
|
#superclass : #PPCMNode,
|
|
#instVars : [
|
|
'children'
|
|
],
|
|
#category : #'PetitMarkdown-AST'
|
|
}
|
|
|
|
{ #category : #visiting }
|
|
PPCMDelegateNode >> accept: visitor [
|
|
^ visitor visitDelegate: self
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
PPCMDelegateNode >> addChild: node [
|
|
self assert: node isCommonMarkNode.
|
|
|
|
self children add: node.
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
PPCMDelegateNode >> addChildFirst: node [
|
|
self assert: node isCommonMarkNode.
|
|
|
|
self children addFirst: node.
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
PPCMDelegateNode >> addChildren: nodes [
|
|
nodes do: [ :node | self addChild: node ]
|
|
]
|
|
|
|
{ #category : #enumerating }
|
|
PPCMDelegateNode >> allChildren [
|
|
| retval |
|
|
retval := OrderedCollection new.
|
|
self children do: [ :child | retval addAll: child allChildren ].
|
|
^ retval
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
PPCMDelegateNode >> child [
|
|
self assert: children size = 1.
|
|
^ children first
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
PPCMDelegateNode >> child: whatever [
|
|
children at: 1 put: whatever
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
PPCMDelegateNode >> children [
|
|
^ children
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
PPCMDelegateNode >> children: whatever [
|
|
children := whatever
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
PPCMDelegateNode >> firstChild [
|
|
^ children at: 1
|
|
]
|
|
|
|
{ #category : #initialization }
|
|
PPCMDelegateNode >> initialize [
|
|
children := OrderedCollection new
|
|
]
|
|
|
|
{ #category : #replacing }
|
|
PPCMDelegateNode >> replace: child with: anotherChild [
|
|
children doWithIndex: [ :ch :index |
|
|
(ch == child) ifTrue: [
|
|
children at: index put: anotherChild .
|
|
^ true
|
|
]
|
|
].
|
|
^ false
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
PPCMDelegateNode >> secondChild [
|
|
^ children at: 2
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
PPCMDelegateNode >> thirdChild [
|
|
^ children at: 3
|
|
]
|