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

Add `FSFileDirectoryAdapter >> #deleteDirectory:`
squeak-smalltalk · Oct 31, 2021 · fc71c7e · fc71c7e
2 parents 48b9e04 + 461d009
commit fc71c7e
Show file tree

Hide file tree

Showing 7 changed files with 12 additions and 4 deletions.
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/...-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/createDirectory..st b/...-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/...-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/deleteDirectory..st b/...-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/deleteDirectory..st
@@ -0,0 +1,3 @@
+file directory
+deleteDirectory: aString
+	(reference resolve: aString) delete.
diff --git a/...S-FileDirectory-Adapters.package/FSFileDirectoryAdapter.class/instance/recursiveDelete.st b/...S-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.