Merge pull request #6 from LinqLover/feat/FSFileDirectoryAdapter-delete

j4yk · web-flow · commit fc71c7e5d109 · 2021-10-31T18:50:49.000+01:00
Add `FSFileDirectoryAdapter &gt;&gt; #deleteDirectory:`
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/^slash.st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/^slash.st
@@ -1,3 +1,3 @@
-as yet unclassified
+path access
 / aString
 	^ self class directoryOrEntry: (reference / aString)
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/asFSReference.st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/asFSReference.st
@@ -1,3 +1,3 @@
-as yet unclassified
+converting
 asFSReference
 	^ reference
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/createDirectory..st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/createDirectory..st
@@ -1,3 +1,3 @@
-as yet unclassified
+file directory
 createDirectory: aString
 	(reference resolve: aString) createDirectory.
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/deleteDirectory..st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/deleteDirectory..st
@@ -0,0 +1,3 @@
+file directory
+deleteDirectory: aString
+	(reference resolve: aString) delete.
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/recursiveDelete.st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/recursiveDelete.st
@@ -0,0 +1,3 @@
+file operations
+recursiveDelete
+	reference deleteAll.
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/methodProperties.json b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/methodProperties.json
@@ -8,6 +8,7 @@
 		"asFSReference" : "jr 4/6/2018 21:44",
 		"containingDirectory" : "jr 5/14/2021 11:26",
 		"createDirectory:" : "jr 6/29/2017 16:06",
+		"deleteDirectory:" : "ct 10/26/2021 19:26",
 		"directoryNamed:" : "jr 4/23/2017 23:10",
 		"directoryNames" : "jr 4/23/2017 23:09",
 		"entries" : "jr 4/23/2017 23:23",
@@ -19,5 +20,6 @@
 		"pathName" : "jr 4/23/2017 23:28",
 		"pathParts" : "jr 4/23/2017 23:22",
 		"printOn:" : "jr 9/6/2020 12:49",
+		"recursiveDelete" : "ct 10/30/2021 23:36",
 		"reference:" : "jr 4/23/2017 23:03",
 		"sleep" : "jr 4/23/2017 23:29" } }
diff --git a/src/FS-FileDirectory-Adapters.package/FSFileDirectoryEntryAdapter.class/instance/entry..st b/src/FS-FileDirectory-Adapters.package/FSFileDirectoryEntryAdapter.class/instance/entry..st
@@ -1,3 +1,3 @@
-as yet unclassified
+accessing
 entry: aFSEntry
 	reference := aFSEntry asReference.

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+file directory`
	`2`	`+deleteDirectory: aString`
	`3`	`+ (reference resolve: aString) delete.`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+file operations`
	`2`	`+recursiveDelete`
	`3`	`+ reference deleteAll.`