Merge pull request #123 from jecisc/error-messages

Improve error messages

Author: jecisc

.github/scripts/preLoading.st

@@ -1,4 +1,2 @@
 IceRepository registry remove: (IceRepository repositoryNamed: #tonel).
-#( 'BaselineOfTonel' ) do: [ :each | 
-	(RPackageOrganizer default packageNamed: each ifAbsent: [ nil ]) 
-		ifNotNil: [ :aPackage | aPackage removeFromSystem ] ]
+#( 'BaselineOfTonel' ) do: [ :each | (each asPackageIfAbsent: [ nil ]) ifNotNil: #removeFromSystem ]

.gitignore

@@ -0,0 +1,3 @@
+
+**/.DS_Store
+

MonticelloTonel-Core.package/TonelReader.class/instance/loadDefinitions.st

@@ -3,9 +3,10 @@ loadDefinitions
 
 	| definitionOrders newDefinitions tagNames |
 	definitionOrders := self class definitionOrders.
-	newDefinitions := ((self packageDirectory entries select: [ :each | self canBeLoaded: each ]) collect: [ :each |
-		                   each readStreamDo: [ :s | TonelParser parseStream: s ] ]) flattened sort: [ :a :b |
-		                  (definitionOrders at: a class) < (definitionOrders at: b class) ].
+
+	newDefinitions := ((self packageDirectory entries select: [ :file | self canBeLoaded: file ]) collect: [ :file | self parseTonelFile: file ]) flattened sort: [
+		                  :a
+		                  :b | (definitionOrders at: a class) < (definitionOrders at: b class) ].
 
 	self ensurePackagesAndTagsOfDefinitions: newDefinitions.
 

MonticelloTonel-Core.package/TonelReader.class/instance/parseTonelFile..st

@@ -0,0 +1,9 @@
+loading
+parseTonelFile: file
+	"In case of error we add the info of the file that produced the error for a better debugging experience."
+
+	^ [ file readStreamDo: [ :aStream | TonelParser parseStream: aStream ] ]
+		  on: TonelParseError
+		  do: [ :error |
+			  error messageText: 'Error while parsing ' , file basename , ': ' , error messageText.
+			  error pass ]