new files

Task/Delete-a-file/0DESCRIPTION

@@ -0,0 +1 @@
+In this task, the job is to delete a file called "input.txt" and delete a directory called "docs". This should be done twice: once "here", i.e. in the current working directory and once in the filesystem root.

Task/Delete-a-file/1META.yaml

@@ -0,0 +1,2 @@
+---
+note: File System Operations

Task/Delete-a-file/AWK/delete-a-file.awk

@@ -0,0 +1,4 @@
+system("rm input.txt");
+system("rm /input.txt");
+system("rm -rf docs");
+system("rm -rf /docs");

Task/Delete-a-file/Ada/delete-a-file-1.ada

@@ -0,0 +1 @@
+with Ada.Directories;  use Ada.Directories;

Task/Delete-a-file/Ada/delete-a-file-2.ada

@@ -0,0 +1,4 @@
+Delete_File ("input.txt");
+Delete_File ("/input.txt");
+Delete_Tree ("docs");
+Delete_Tree ("/docs");

Task/Delete-a-file/BASIC/delete-a-file-1.bas

@@ -0,0 +1,4 @@
+KILL "INPUT.TXT"
+KILL "C:\INPUT.TXT"
+SHELL "RMDIR /S /Q DIR"
+SHELL "RMDIR /S /Q C:\DIR"

Task/Delete-a-file/BASIC/delete-a-file-2.bas

@@ -0,0 +1 @@
+ERASE "m"; 1; "INPUTTXT"

Task/Delete-a-file/C/delete-a-file-1.c

@@ -0,0 +1,9 @@
+#include <stdio.h>
+
+int main() {
+  remove("input.txt");
+  remove("/input.txt");
+  remove("docs");
+  remove("/docs");
+  return 0;
+}

Task/Delete-a-file/C/delete-a-file-2.c

@@ -0,0 +1,9 @@
+#include <unistd.h>
+
+int main() {
+  unlink("input.txt");
+  unlink("/input.txt");
+  rmdir("docs");
+  rmdir("/docs");
+  return 0;
+}

Task/Delete-a-file/Clojure/delete-a-file.clj

@@ -0,0 +1,6 @@
+(import '(java.io File))
+(.delete (File. "output.txt"))
+(.delete (File. "docs"))
+
+(.delete (new File (str (File/separator) "output.txt")))
+(.delete (new File (str (File/separator) "docs")))

Task/Delete-a-file/Erlang/delete-a-file.erl

@@ -0,0 +1 @@
+file:delete("file.txt").

Task/Delete-a-file/Forth/delete-a-file.fth

@@ -0,0 +1,2 @@
+ s" input.txt" delete-file throw
+s" /input.txt" delete-file throw

Task/Delete-a-file/Fortran/delete-a-file.f

@@ -0,0 +1,4 @@
+OPEN (UNIT=5, FILE="input.txt", STATUS="OLD")   ! Current directory
+CLOSE (UNIT=5, STATUS="DELETE")
+OPEN (UNIT=5, FILE="/input.txt", STATUS="OLD")  ! Root directory
+CLOSE (UNIT=5, STATUS="DELETE")

Task/Delete-a-file/Go/delete-a-file.go

@@ -0,0 +1,12 @@
+package main
+import "os"
+
+func main() {
+  os.Remove("input.txt")
+  os.Remove("/input.txt")
+  os.Remove("docs")
+  os.Remove("/docs")
+  // recursively removes contents:
+  os.RemoveAll("docs")
+  os.RemoveAll("/docs")
+}

Task/Delete-a-file/Haskell/delete-a-file.hs

@@ -0,0 +1,8 @@
+import System.IO
+import System.Directory
+
+main = do
+  removeFile "output.txt"
+  removeDirectory "docs"
+  removeFile "/output.txt"
+  removeDirectory "/docs"

Task/Delete-a-file/Java/delete-a-file.java

@@ -0,0 +1,18 @@
+import java.util.File;
+public class FileDeleteTest {
+   public static boolean deleteFile(String filename) {
+       boolean exists = new File(filename).delete();
+       return exists;
+   }
+   public static void test(String type, String filename) {
+       System.out.println("The following " + type + " called " + filename +
+           (deleteFile(filename) ? " was deleted." : " could not be deleted.")
+       );
+   }
+   public static void main(String args[]) {
+        test("file", "input.txt");
+        test("file", File.seperator + "input.txt");
+        test("directory", "docs");
+        test("directory", File.seperator + "docs" + File.seperator);
+   }
+}

Task/Delete-a-file/JavaScript/delete-a-file-1.js

@@ -0,0 +1,7 @@
+var fso = new ActiveXObject("Scripting.FileSystemObject");
+
+fso.DeleteFile('input.txt');
+fso.DeleteFile('c:/input.txt');
+
+fso.DeleteFolder('docs');
+fso.DeleteFolder('c:/docs');

Task/Delete-a-file/JavaScript/delete-a-file-2.js

@@ -0,0 +1,10 @@
+var fso = new ActiveXObject("Scripting.FileSystemObject");
+var f;
+f = fso.GetFile('input.txt');
+f.Delete();
+f = fso.GetFile('c:/input.txt');
+f.Delete();
+f = fso.GetFolder('docs');
+f.Delete();
+f = fso.GetFolder('c:/docs');
+f.Delete();

Task/Delete-a-file/Lua/delete-a-file.lua

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

Task/Delete-a-file/PHP/delete-a-file.php

@@ -0,0 +1,6 @@
+<?php
+unlink('input.txt');
+unlink('/input.txt');
+rmdir('docs');
+rmdir('/docs');
+?>

Task/Delete-a-file/Perl/delete-a-file.pl

@@ -0,0 +1,7 @@
+use File::Spec::Functions qw(catfile rootdir);
+# here
+unlink 'input.txt';
+rmdir 'docs';
+# root dir
+unlink catfile rootdir, 'input.txt';
+rmdir catfile rootdir, 'docs';

Task/Delete-a-file/PicoLisp/delete-a-file.l

@@ -0,0 +1,4 @@
+(call 'rm "input.txt")
+(call 'rmdir "docs")
+(call 'rm "/input.txt")
+(call 'rmdir "/docs")

Task/Delete-a-file/Python/delete-a-file-1.py

@@ -0,0 +1,7 @@
+import os
+# current directory
+os.remove("output.txt")
+os.rmdir("docs")
+# root directory
+os.remove("/output.txt")
+os.rmdir("/docs")

Task/Delete-a-file/Python/delete-a-file-2.py

@@ -0,0 +1,2 @@
+import shutil
+shutil.rmtree("docs")

Task/Delete-a-file/R/delete-a-file.r

@@ -0,0 +1,12 @@
+file.remove("input.txt")
+file.remove("/input.txt")
+
+# or
+file.remove("input.txt", "/input.txt")
+
+# or
+unlink("input.txt"); unlink("/input.txt")
+
+# directories needs the recursive flag
+unlink("docs", recursive = TRUE)
+unlink("/docs", recursive = TRUE)

Task/Delete-a-file/Ruby/delete-a-file.rb

@@ -0,0 +1,3 @@
+File.delete("output.txt", "/output.txt")
+Dir.delete("docs")
+Dir.delete("/docs")

Task/Delete-a-file/Scheme/delete-a-file.ss

@@ -0,0 +1 @@
+(delete-file filename)

Task/Delete-a-file/Smalltalk/delete-a-file.st

@@ -0,0 +1,4 @@
+File remove: 'input.txt'.
+File remove: 'docs'.
+File remove: '/input.txt'.
+File remove: '/docs'

Task/Delete-a-file/Tcl/delete-a-file.tcl

@@ -0,0 +1,7 @@
+file delete input.txt /input.txt
+
+# preserve directory if non-empty
+file delete docs /docs
+
+# delete even if non-empty
+file delete -force docs /docs