Data update

Task/Create-a-file/Ada/create-a-file.ada

@@ -1,17 +0,0 @@
-with Ada.Streams.Stream_IO, Ada.Directories;
-use  Ada.Streams.Stream_IO, Ada.Directories;
-
-procedure File_Creation is
-
-   File_Handle : File_Type;
-
-begin
-
-   Create (File_Handle, Out_File, "output.txt");
-   Close (File_Handle);
-   Create_Directory("docs");
-   Create (File_Handle, Out_File, "/output.txt");
-   Close (File_Handle);
-   Create_Directory("/docs");
-
-end File_Creation;

Task/Create-a-file/Arturo/create-a-file.arturo

@@ -1,8 +1,8 @@
 output: "output.txt"
 docs:   "docs"
 
-write output ""
-write.directory docs ø
+"" >> output
+write.directory ø docs
 
-write join.path ["/" output] ""
-write.directory join.path ["/" docs] ø
+"" >> join.path ["/" output]
+write.directory ø join.path ["/" docs]

Task/Create-a-file/Batch-File/create-a-file-2.bat

@@ -1,2 +1,2 @@
-md docs
-md \docs
+fsutil file createnew output.txt 0
+fsutil file createnew \output.txt 0

Task/Create-a-file/COBOL/create-a-file.cobol

@@ -1,41 +0,0 @@
-       identification division.
-       program-id. create-a-file.
-
-       data division.
-       working-storage section.
-       01 skip                 pic 9 value 2.
-       01 file-name.
-          05 value "/output.txt".
-       01 dir-name.
-          05 value "/docs".
-       01 file-handle          usage binary-long.
-
-       procedure division.
-       files-main.
-
-      *> create in current working directory
-       perform create-file-and-dir
-
-      *> create in root of file system, will fail without privilege
-       move 1 to skip
-       perform create-file-and-dir
-
-       goback.
-
-       create-file-and-dir.
-      *> create file in current working dir, for read/write
-       call "CBL_CREATE_FILE" using file-name(skip:) 3 0 0 file-handle
-       if return-code not equal 0 then
-           display "error: CBL_CREATE_FILE " file-name(skip:) ": "
-                   file-handle ", " return-code upon syserr
-       end-if
-
-      *> create dir below current working dir, owner/group read/write
-       call "CBL_CREATE_DIR" using dir-name(skip:)
-       if return-code not equal 0 then
-           display "error: CBL_CREATE_DIR " dir-name(skip:) ": "
-                   return-code upon syserr
-       end-if
-       .
-
-       end program create-a-file.

Task/Create-a-file/Elena/create-a-file.elena

@@ -1,6 +1,6 @@
 import system'io;
 
-public program()
+public Program()
 {
     File.assign("output.txt").textwriter().close();
 

Task/Create-a-file/Emacs-Lisp/create-a-file.l

@@ -1,4 +0,0 @@
-(make-empty-file "output.txt")
-(make-directory "docs")
-(make-empty-file "/output.txt")
-(make-directory "/docs")

Task/Create-a-file/Euphoria/create-a-file.ex

@@ -1,11 +0,0 @@
-integer fn
-
--- In the current working directory
-system("mkdir docs",2)
-fn = open("output.txt","w")
-close(fn)
-
--- In the filesystem root
-system("mkdir \\docs",2)
-fn = open("\\output.txt","w")
-close(fn)

Task/Create-a-file/PowerShell/create-a-file.psh

@@ -1,4 +0,0 @@
-New-Item output.txt -ItemType File
-New-Item \output.txt -ItemType File
-New-Item docs -ItemType Directory
-New-Item \docs -ItemType Directory

Task/Create-a-file/REBOL/create-a-file.rebol

@@ -1,9 +0,0 @@
-; Creating in current directory:
-
-write %output.txt ""
-make-dir %docs/
-
-; Creating in root directory:
-
-write %/output.txt ""
-make-dir %/docs/

Task/Create-a-file/VBScript/create-a-file.vb

@@ -1,9 +0,0 @@
-Set objFSO = CreateObject("Scripting.FileSystemObject")
-
-'current directory
-objFSO.CreateFolder(".\docs")
-objFSO.CreateTextFile(".\docs\output.txt")
-
-'root directory
-objFSO.CreateFolder("\docs")
-objFSO.CreateTextFile("\docs\output.txt")