Merge pull request #744 from melkiyasser/-fileParser

File parser

src/Microdown/MicRootBlock.class.st

@@ -33,12 +33,12 @@ MicRootBlock >> canConsumeLine: line [
 ]
 
 { #category : 'visiting' }
-MicRootBlock >> fromFile [ 
+MicRootBlock >> fromFile [ " retieve "
 	^ self propertyAt: #file .  
 ]
 
 { #category : 'visiting' }
-MicRootBlock >> fromFile: aFile [ 
+MicRootBlock >> fromFile: aFile [ " put file object in the root"
 	self propertyAt: #file put: aFile .  
 ]
 

src/Microdown/Microdown.class.st

@@ -156,7 +156,7 @@ Microdown >> parse: aStreamOrString [
 Microdown >> parseFile: aFile [
 
 		|root|
-		root := MicrodownParser parse:((FileSystem workingDirectory / aFile ) readStream contents) . 
+		root := MicrodownParser parse:(aFile  contents) . 
 		root fromFile: aFile .
 		^ root .
 

src/microdown-fileParser/FileParser.class.st

@@ -0,0 +1,30 @@
+Class {
+	#name : 'FileParser',
+	#superclass : 'TestCase',
+	#category : 'microdown-fileParser',
+	#package : 'microdown-fileParser'
+}
+
+{ #category : 'as yet unclassified' }
+FileParser >> testCreatingFileAndParsingtheContent [
+
+	| file root |
+	file := (FileSystem workingDirectory / 'myFile.txt') asFileReference.
+   file ensureCreateFile.
+
+
+
+	file writeStreamDo: [ :stream | stream nextPutAll: '
+	### title 
+	@first 
+	
+	just talking about somthing @*first*@ ' ] .
+
+	root := Microdown parseFile: file contents .
+
+	self assert: (root isKindOf: MicRootBlock ) .
+   self assert: root fromFile equals: file contents .
+	file ensureDelete .
+
+
+]

src/microdown-fileParser/package.st

@@ -0,0 +1 @@
+Package { #name : 'microdown-fileParser' }