Add Lepiter snippets for Carp

2022-04-16 18:32:16 +02:00
parent 60321973fb
commit f1cac9749e
34 changed files with 597 additions and 61 deletions
--- a/src/Carp/CarpFile.class.st
+++ b/src/Carp/CarpFile.class.st
@@ -1,36 +0,0 @@
-Class {
-	#name : #CarpFile,
-	#superclass : #Object,
-	#instVars : [
-		'fileName',
-		'contents'
-	],
-	#category : #'Carp-Parser'
-}
-
-{ #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).
-]