Add parsing

src/Carp/CarpFile.class.st

@@ -0,0 +1,36 @@
+Class {
+	#name : #CarpFile,
+	#superclass : #Object,
+	#instVars : [
+		'fileName',
+		'contents'
+	],
+	#category : #Carp
+}
+
+{ #category : #'instance creation' }
+CarpFile class >> for: aFileName [
+	^ self new for: aFileName
+]
+
+{ #category : #accessing }
+CarpFile >> contents [
+
+	^ contents
+]
+
+{ #category : #accessing }
+CarpFile >> contents: aString [
+	contents := aString
+]
+
+{ #category : #accessing }
+CarpFile >> fileName: aFileName [
+	fileName := aFileName
+]
+
+{ #category : #accessing }
+CarpFile >> for: aFileName [
+	self fileName: aFileName.
+	self contents: (CarpParser parse: aFileName asFileReference contents).
+]