Add new checker MicSecondaryRoot

src/Microdown-Tests/MicSecondaryRootBlockTest.class.st

@@ -0,0 +1,55 @@
+Class {
+	#name : 'MicSecondaryRootBlockTest',
+	#superclass : 'TestCase',
+	#category : 'Microdown-Tests-Model',
+	#package : 'Microdown-Tests',
+	#tag : 'Model'
+}
+
+{ #category : 'tests' }
+MicSecondaryRootBlockTest >> testAcceptDoubleDispatch [
+
+	| block visitor |
+	block := MicSecondaryRootBlock new.
+	visitor := MicrodownVisitor new.
+	self shouldnt: [ block accept: visitor ] raise: Error
+]
+
+{ #category : 'tests' }
+MicSecondaryRootBlockTest >> testCanHoldChildren [
+
+	| root child |
+	root := MicSecondaryRootBlock new.
+	child := MicParagraphBlock new.
+
+	root addChild: child.
+
+	self assert: root children size equals: 1.
+	self assert: root children first equals: child
+]
+
+{ #category : 'tests' }
+MicSecondaryRootBlockTest >> testFileProperty [
+
+	| root fileRef |
+	root := MicSecondaryRootBlock new.
+	fileRef := 'fichierInclus.md'.
+
+	root file: fileRef.
+
+	self assert: root file equals: fileRef
+]
+
+{ #category : 'tests' }
+MicSecondaryRootBlockTest >> testIsSecondaryRoot [
+
+	| mainRoot secondaryRoot |
+	mainRoot := MicRootBlock new.
+	secondaryRoot := MicSecondaryRootBlock new.
+
+	self deny: mainRoot isSecondaryRoot.
+
+	secondaryRoot parent: mainRoot.
+
+	self assert: secondaryRoot isSecondaryRoot
+]

src/Microdown-Transformer/MicFileIncluder.class.st

@@ -113,14 +113,18 @@ MicFileIncluder >> topFile: aFileReference [
 MicFileIncluder >> visitInputFile: anInputFileAnnotation [
 	"I load the file and if the file exist I replace the node of the annotation by the content of the file."
 
-	| inputRef inputDoc |
+	| inputRef inputDoc newRoot |
 	inputRef := anInputFileAnnotation path.
 	[ inputDoc := inputRef loadMicrodown inlineInputFiles]
 	on: MicResourceReferenceError 
 	do: [ :error | isStrict 
 			ifFalse: [ ^ self ]
 			ifTrue: [ error pass  ]].
 
-	self replaceCurrentNodeBy: inputDoc children
+	newRoot := MicSecondaryRootBlock new.
+	newRoot file: inputRef.
+	newRoot children: inputDoc children.
+
+	self replaceCurrentNodeBy: { newRoot }
 
 ]

src/Microdown/MicRootBlock.class.st

@@ -105,6 +105,12 @@ MicRootBlock >> initialize [
 	debugId := self class nextDebugId.
 ]
 
+{ #category : 'debugging' }
+MicRootBlock >> isSecondaryRoot [
+
+	^ parent notNil
+]
+
 { #category : 'hooks' }
 MicRootBlock >> massageLine: aLine [
 	"In some cases an element may want to massage the line such as removing leading tab. By default we delegate to the parent because environments may contain nodes such as code block and this is this nesting that will determine what should be done with the tab. In such a case the environment should remov the tabs. Here on the root we do nothing special."

src/Microdown/MicSecondaryRootBlock.class.st

@@ -0,0 +1,28 @@
+Class {
+	#name : 'MicSecondaryRootBlock',
+	#superclass : 'MicRootBlock',
+	#instVars : [
+		'file'
+	],
+	#category : 'Microdown-Model',
+	#package : 'Microdown',
+	#tag : 'Model'
+}
+
+{ #category : 'testing' }
+MicSecondaryRootBlock >> accept: aVisitor [
+
+	^ aVisitor visitSecondaryRootBlock: self
+]
+
+{ #category : 'testing' }
+MicSecondaryRootBlock >> file [
+
+	^ file
+]
+
+{ #category : 'testing' }
+MicSecondaryRootBlock >> file: aFileReference [
+
+	file := aFileReference
+]

src/Microdown/MicrodownVisitor.class.st

@@ -265,6 +265,12 @@ MicrodownVisitor >> visitScript: aSlide [
 	^ self visitChildrenOf: aSlide
 ]
 
+{ #category : 'visiting' }
+MicrodownVisitor >> visitSecondaryRootBlock: aSecondaryRootBlock [
+
+	^ self visitRoot: aSecondaryRootBlock
+]
+
 { #category : 'visiting' }
 MicrodownVisitor >> visitSegment: aSegment [
 	"subclassResponsibility"