@@ -8,69 +8,71 @@ Visitor.
88
99"
1010Class {
11- #name : # JEBSPPFVisitor ,
12- #superclass : # Object ,
11+ #name : ' JEBSPPFVisitor' ,
12+ #superclass : ' Object' ,
1313 #instVars : [
1414 ' postOrderFamilyBlock' ,
1515 ' postOrderNodeBlock' ,
1616 ' preOrderFamilyBlock' ,
1717 ' preOrderNodeBlock'
1818 ],
19- #category : #' EarleyParser-Core-BSPPForest'
19+ #category : ' EarleyParser-Core-BSPPForest' ,
20+ #package : ' EarleyParser-Core' ,
21+ #tag : ' BSPPForest'
2022}
2123
22- { #category : # initialization }
24+ { #category : ' initialization' }
2325JEBSPPFVisitor >> postOrderFamilyBlock: aBlockWithOneArgument [
2426 postOrderFamilyBlock := aBlockWithOneArgument
2527]
2628
27- { #category : # initialization }
29+ { #category : ' initialization' }
2830JEBSPPFVisitor >> postOrderNodeBlock: aBlockWithOneArgument [
2931 postOrderNodeBlock := aBlockWithOneArgument
3032]
3133
32- { #category : # initialization }
34+ { #category : ' initialization' }
3335JEBSPPFVisitor >> preOrderFamilyBlock: aBlockWithOneArgument [
3436 preOrderFamilyBlock := aBlockWithOneArgument
3537]
3638
37- { #category : # initialization }
39+ { #category : ' initialization' }
3840JEBSPPFVisitor >> preOrderNodeBlock: aBlockWithOneArgument [
3941 preOrderNodeBlock := aBlockWithOneArgument
4042]
4143
42- { #category : # visiting }
44+ { #category : ' visiting' }
4345JEBSPPFVisitor >> visit: aBSPPForest [
4446 aBSPPForest acceptVisitor: self
4547]
4648
47- { #category : # visiting }
49+ { #category : ' visiting' }
4850JEBSPPFVisitor >> visitNode: aPackedOrFamilyNode [
4951 self subclassResponsibility
5052]
5153
52- { #category : # visiting }
54+ { #category : ' visiting' }
5355JEBSPPFVisitor >> visitPostOrderFamily: aFamily [
5456 " visit in post-order a family"
5557
5658 postOrderFamilyBlock ifNotNil: [ postOrderFamilyBlock cull: aFamily ]
5759]
5860
59- { #category : # visiting }
61+ { #category : ' visiting' }
6062JEBSPPFVisitor >> visitPostOrderPackedNode: aPackedNode [
6163 " visit in post-order a node"
6264
6365 postOrderNodeBlock ifNotNil: [ postOrderNodeBlock cull: aPackedNode ]
6466]
6567
66- { #category : # visiting }
68+ { #category : ' visiting' }
6769JEBSPPFVisitor >> visitPreOrderFamily: aFamily [
6870 " visit in pre-order a family"
6971
7072 preOrderFamilyBlock ifNotNil: [ preOrderFamilyBlock cull: aFamily ]
7173]
7274
73- { #category : # visiting }
75+ { #category : ' visiting' }
7476JEBSPPFVisitor >> visitPreOrderPackedNode: aPackedNode [
7577 " visit in pre-order a node"
7678
0 commit comments