A-M baby

Task/Delete-a-file/Factor/delete-a-file.factor

@@ -0,0 +1,2 @@
+"docs" "/docs" [ delete-tree ] bi@
+"input.txt" "/input.txt" [ delete-file ] bi@

Task/Delete-a-file/GAP/delete-a-file.gap

@@ -0,0 +1,5 @@
+# Apparently GAP can only remove a file, not a directory
+RemoveFile("input.txt");
+# true
+RemoveFile("docs");
+# fail

Task/Delete-a-file/HicEst/delete-a-file.hicest

@@ -0,0 +1,7 @@
+SYSTEM(DIR="docs")   ! create docs in current directory (if not existent), make it current
+OPEN (FILE="input.txt", "NEW")    ! in current directory = docs
+WRITE(FIle="input.txt", DELETE=1) ! no command to DELETE a DIRECTORY in HicEst
+
+SYSTEM(DIR="C:\docs")             ! create C:\docs (if not existent), make it current
+OPEN (FILE="input.txt", "NEW")    ! in current directory = C:\docs
+WRITE(FIle="input.txt", DELETE=1)

Task/Delete-a-file/Icon/delete-a-file.icon

@@ -0,0 +1,4 @@
+every dir := !["./","/"] do {
+   remove(f := dir || "input.txt")  |stop("failure for file remove ",f)
+   rmdir(f := dir || "docs")        |stop("failure for directory remove ",f)
+   }

Task/Delete-a-file/Io/delete-a-file-1.io

@@ -0,0 +1,5 @@
+Directory fileNamed("input.txt") remove
+Directory directoryNamed("docs") remove
+RootDir := Directory clone setPath("/")
+RootDir fileNamed("input.txt") remove
+RootDir directoryNamed("docs") remove

Task/Delete-a-file/Io/delete-a-file-2.io

@@ -0,0 +1,4 @@
+File with("input.txt") remove
+Directory with("docs") remove
+File with("/input.txt") remove
+Directory with("/docs") remove

Task/Delete-a-file/J/delete-a-file-1.j

@@ -0,0 +1,8 @@
+   load 'files'
+   ferase 'input.txt'
+   ferase '\input.txt'
+   ferase 'docs'
+   ferase '\docs'
+
+NB. Or all at once...
+   ferase 'input.txt';'/input.txt';'docs';'/docs'

Task/Delete-a-file/J/delete-a-file-2.j

@@ -0,0 +1,4 @@
+NB. =========================================================
+NB.*ferase v erases a file
+NB. Returns 1 if successful, otherwise _1
+ferase=: (1!:55 :: _1:) @ (fboxname &>) @ boxopen

Task/Delete-a-file/J/delete-a-file-3.j

@@ -0,0 +1,4 @@
+1!:55 <'input.txt'
+1!:55 <'\input.txt'
+1!:55 <'docs'
+1!:55 <'\docs'

Task/Delete-a-file/Liberty-BASIC/delete-a-file.liberty

@@ -0,0 +1,10 @@
+' show where we are
+print DefaultDir$
+
+' in here
+kill "input.txt"
+result=rmdir("Docs")
+
+' from root
+kill "\input.txt"
+result=rmdir("\Docs")

Task/Delete-a-file/Locomotive-Basic/delete-a-file.bas

@@ -0,0 +1 @@
+|era,"input.txt"

Task/Delete-a-file/Logo/delete-a-file.logo

@@ -0,0 +1,2 @@
+erasefile "input.txt
+erasefile "/input.txt

Task/Delete-a-file/MAXScript/delete-a-file.max

@@ -0,0 +1,4 @@
+-- Here
+deleteFile "input.txt"
+-- Root
+deleteFile "\input.txt"

Task/Delete-a-file/Mathematica/delete-a-file.mathematica

@@ -0,0 +1,5 @@
+wd = NotebookDirectory[];
+DeleteFile[wd <> "input.txt"]
+DeleteFile["/" <> "input.txt"]
+DeleteDirectory[wd <> "docs"]
+DeleteDirectory["/" <> "docs"]