tasks a-s

Task/Rename-a-file/0DESCRIPTION

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

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

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

Task/Rename-a-file/ALGOL-68/rename-a-file.alg

@@ -0,0 +1,22 @@
+main:(
+  PROC rename = (STRING source name, dest name)INT:
+  BEGIN
+    FILE actual file;
+    INT errno = open(actual file, source name, stand back channel);
+    IF errno NE 0 THEN
+      errno
+    ELSE
+      IF reidf possible(actual file) THEN
+        reidf(actual file, dest name); # change the identification of the book #
+        errno
+      ELSE
+        close(actual file);
+        -1
+      FI
+    FI
+  END;
+  rename("input.txt", "output.txt");
+  rename("/input.txt", "/output.txt");
+  rename("docs", "mydocs");
+  rename("/docs", "/mydocs")
+)

Task/Rename-a-file/AWK/rename-a-file.awk

@@ -0,0 +1,4 @@
+$ awk 'BEGIN{system("mv input.txt output.txt")}'
+$ awk 'BEGIN{system("mv docs mydocs")}'
+$ awk 'BEGIN{system("mv /input.txt /output.txt")}'
+$ awk 'BEGIN{system("mv docs mydocs")}'

Task/Rename-a-file/Ada/rename-a-file.ada

@@ -0,0 +1,6 @@
+with Ada.Directories;  use Ada.Directories;
+   ...
+Rename ("input.txt", "output.txt");
+Rename ("docs", "mydocs");
+Rename ("/input.txt", "/output.txt");
+Rename ("/docs", "/mydocs");

Task/Rename-a-file/AutoHotkey/rename-a-file.ahk

@@ -0,0 +1 @@
+FileMove, oldname, newname

Task/Rename-a-file/BASIC/rename-a-file-1.basic

@@ -0,0 +1,4 @@
+NAME "input.txt" AS "output.txt"
+NAME "\input.txt" AS "\output.txt"
+NAME "docs" AS "mydocs"
+NAME "\docs" AS "\mydocs"

Task/Rename-a-file/BASIC/rename-a-file-2.basic

@@ -0,0 +1 @@
+RENAME INPUT.TXT,OUTPUT.TXT

Task/Rename-a-file/BASIC/rename-a-file-3.basic

@@ -0,0 +1 @@
+10  PRINT  CHR$ (4)"RENAME INPUT.TXT,OUTPUT.TXT"

Task/Rename-a-file/BASIC/rename-a-file-4.basic

@@ -0,0 +1,5 @@
+10  PRINT  CHR$ (4)"RENAME INPUT.TXT,OUTPUT.TXT"
+20  PRINT  CHR$ (4)"RENAME DOCS,MYDOCS"
+30  PRINT  CHR$ (4)"PREFIX /"
+40  PRINT  CHR$ (4)"RENAME INPUT.TXT,OUTPUT.TXT"
+50  PRINT  CHR$ (4)"RENAME DOCS,MYDOCS"

Task/Rename-a-file/BBC-BASIC/rename-a-file-1.bbc

@@ -0,0 +1,4 @@
+      *RENAME input.txt output.txt
+      *RENAME \input.txt \output.txt
+      *RENAME docs. mydocs.
+      *RENAME \docs. \mydocs.

Task/Rename-a-file/BBC-BASIC/rename-a-file-2.bbc

@@ -0,0 +1,4 @@
+      OSCLI "RENAME input.txt output.txt"
+      OSCLI "RENAME \input.txt \output.txt"
+      OSCLI "RENAME docs. mydocs."
+      OSCLI "RENAME \docs. \mydocs."

Task/Rename-a-file/Batch-File/rename-a-file.bat

@@ -0,0 +1,4 @@
+ren input.txt output.txt
+ren \input.txt output.txt
+ren docs mydocs
+ren \docs mydocs

Task/Rename-a-file/Bracmat/rename-a-file.bracmat

@@ -0,0 +1,4 @@
+ren$("input.txt"."output.txt")         { 'ren' is based on standard C function 'rename()' }
+ren$(docs.mydocs)                      { No quotes needed: names don't contain dots or colons. }
+ren$("d:\\input.txt"."d:\\output.txt") { Backslash is escape character, so we need to escape it. }
+ren$(@"d:\docs".@"d:\mydocs")          { @ used as syntactic sugar as in C# for inhibiting escape. }

Task/Rename-a-file/C++/rename-a-file-1.cpp

@@ -0,0 +1,10 @@
+#include <cstdio>
+
+int main()
+{
+    std::rename("input.txt", "output.txt");
+    std::rename("docs", "mydocs");
+    std::rename("/input.txt", "/output.txt");
+    std::rename("/docs", "/mydocs");
+    return 0;
+}

Task/Rename-a-file/C++/rename-a-file-2.cpp

@@ -0,0 +1,18 @@
+#include "boost/filesystem.hpp"
+
+int main()
+{
+    boost::filesystem::rename(
+        boost::filesystem::path("input.txt"),
+        boost::filesystem::path("output.txt"));
+    boost::filesystem::rename(
+        boost::filesystem::path("docs"),
+        boost::filesystem::path("mydocs"));
+    boost::filesystem::rename(
+        boost::filesystem::path("/input.txt"),
+        boost::filesystem::path("/output.txt"));
+    boost::filesystem::rename(
+        boost::filesystem::path("/docs"),
+        boost::filesystem::path("/mydocs"));*/
+    return 0;
+}

Task/Rename-a-file/C-sharp/rename-a-file.cs

@@ -0,0 +1,12 @@
+using System;
+using System.IO;
+
+class Program {
+    static void Main(string[] args) {
+        File.Move("input.txt","output.txt");
+        File.Move(@"\input.txt",@"\output.txt");
+
+        Directory.Move("docs","mydocs");
+        Directory.Move(@"\docs",@"\mydocs");
+    }
+}

Task/Rename-a-file/C/rename-a-file.c

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

Task/Rename-a-file/Clojure/rename-a-file.clj

@@ -0,0 +1,11 @@
+(import '(java.io File))
+
+(.renameTo (File. "input.txt") (File. "output.txt"))
+(.renameTo (File. "docs") (File. "mydocs"))
+
+(.renameTo
+ (File. (str (File/separator) "input.txt"))
+ (File. (str (File/separator) "output.txt")))
+(.renameTo
+ (File. (str (File/separator) "docs"))
+ (File. (str (File/separator) "mydocs")))

Task/Rename-a-file/Common-Lisp/rename-a-file.lisp

@@ -0,0 +1,4 @@
+(rename-file "input.txt" "output.txt")
+(rename-file "docs" "mydocs")
+(rename-file "/input.txt" "/output.txt")
+(rename-file "/docs" "/mydocs")

Task/Rename-a-file/D/rename-a-file.d

@@ -0,0 +1,4 @@
+std.file.rename("input.txt","output.txt");
+std.file.rename("/input.txt","/output.txt");
+std.file.rename("docs","mydocs");
+std.file.rename("/docs","/mydocs");

Task/Rename-a-file/DCL/rename-a-file.dcl

@@ -0,0 +1,4 @@
+rename input.txt output.txt
+rename docs.dir mydocs.dir
+rename [000000]input.txt [000000]output.txt
+rename [000000]docs.dir [000000]mydocs.dir

Task/Rename-a-file/Delphi/rename-a-file.delphi

@@ -0,0 +1,14 @@
+program RenameFile;
+
+{$APPTYPE CONSOLE}
+
+uses SysUtils;
+
+begin
+  SysUtils.RenameFile('input.txt', 'output.txt');
+  SysUtils.RenameFile('\input.txt', '\output.txt');
+
+  // RenameFile works for both files and folders
+  SysUtils.RenameFile('docs', 'MyDocs');
+  SysUtils.RenameFile('\docs', '\MyDocs');
+end.

Task/Rename-a-file/E/rename-a-file.e

@@ -0,0 +1,4 @@
+for where in [<file:.>, <file:///>] {
+  where["input.txt"].renameTo(where["output.txt"], null)
+  where["docs"].renameTo(where["mydocs"], null)
+}

Task/Rename-a-file/Erlang/rename-a-file.erl

@@ -0,0 +1 @@
+file:rename("input.txt","output.txt").

Task/Rename-a-file/Factor/rename-a-file.factor

@@ -0,0 +1,3 @@
+"" "/" [
+    [ "input.txt" "output.txt" move-file "docs" "mydocs" move-file ] with-directory
+] bi@

Task/Rename-a-file/Fantom/rename-a-file.fantom

@@ -0,0 +1,12 @@
+class Rename
+{
+  public static Void main ()
+  {
+    // rename file/dir in current directory
+    File.rename("input.txt".toUri).rename("output.txt")
+    File.rename("docs/".toUri).rename("mydocs/")
+    // rename file/dir in root directory
+    File.rename("/input.txt".toUri).rename("/output.txt")
+    File.rename("/docs/".toUri).rename("/mydocs/")
+  }
+}

Task/Rename-a-file/Forth/rename-a-file.fth

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

Task/Rename-a-file/Fortran/rename-a-file.f

@@ -0,0 +1,6 @@
+      PROGRAM EX_RENAME
+      CALL RENAME('input.txt','output.txt')
+      CALL RENAME('docs','mydocs')
+      CALL RENAME('/input.txt','/output.txt')
+      CALL RENAME('/docs','/mydocs')
+      END

Task/Rename-a-file/Go/rename-a-file.go

@@ -0,0 +1,9 @@
+package main
+import "os"
+
+func main() {
+  os.Rename("input.txt", "output.txt")
+  os.Rename("docs", "mydocs")
+  os.Rename("/input.txt", "/output.txt")
+  os.Rename("/docs", "/mydocs")
+}

Task/Rename-a-file/Groovy/rename-a-file-1.groovy

@@ -0,0 +1,5 @@
+['input.txt':'output.txt', 'docs':'mydocs'].each { src, dst ->
+  ['.', ''].each { dir ->
+    new File("$dir/$src").renameTo(new File("$dir/$dst"))
+  }
+}

Task/Rename-a-file/Groovy/rename-a-file-2.groovy

@@ -0,0 +1,5 @@
+['input.txt':'output.txt', 'docs':'mydocs'].each { src, dst ->
+  ['.', ''].each { dir ->
+    new AntBuilder().move(file:"$dir/$src", toFile:"$dir/$dst")
+  }
+}

Task/Rename-a-file/Haskell/rename-a-file.hs

@@ -0,0 +1,8 @@
+import System.IO
+import System.Directory
+
+main = do
+  renameFile "input.txt" "output.txt"
+  renameDirectory "docs" "mydocs"
+  renameFile "/input.txt" "/output.txt"
+  renameDirectory "/docs" "/mydocs"

Task/Rename-a-file/HicEst/rename-a-file.hicest

@@ -0,0 +1,7 @@
+WRITE(FIle='input.txt', REName='.\output.txt')
+SYSTEM(DIR='E:\HicEst\Rosetta')
+WRITE(FIle='.\docs', REName='.\mydocs')
+
+WRITE(FIle='\input.txt', REName='\output.txt')
+SYSTEM(DIR='\')
+WRITE(FIle='\docs', REName='\mydocs')

Task/Rename-a-file/Icon/rename-a-file.icon

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

Task/Rename-a-file/Io/rename-a-file.io

@@ -0,0 +1,15 @@
+// rename file in current directory
+f := File with("input.txt")
+f moveTo("output.txt")
+
+// rename file in root directory
+f := File with("/input.txt")
+f moveTo("/output.txt")
+
+// rename directory in current directory
+d := Directory with("docs")
+d moveTo("mydocs")
+
+// rename directory in root directory
+d := Directory with("/docs")
+d moveTo("/mydocs")

Task/Rename-a-file/J/rename-a-file-1.j

@@ -0,0 +1,9 @@
+frename=: 4 : 0
+ if. x -: y do. return. end.
+ if. IFUNIX do.
+   hostcmd=. [: 2!:0 '('"_ , ] , ' || true)'"_
+   hostcmd 'mv "',y,'" "',x,'"'
+ else.
+   'kernel32 MoveFileA i *c *c' 15!:0 y;x
+ end.
+)

Task/Rename-a-file/J/rename-a-file-2.j

@@ -0,0 +1,4 @@
+'output.txt' frename 'input.txt'
+'/output.txt' frename '/input.txt'
+'mydocs' frename 'docs'
+'/mydocs' frename '/docs'

Task/Rename-a-file/Java/rename-a-file.java

@@ -0,0 +1,26 @@
+import java.util.File;
+public class FileRenameTest {
+   public static boolean renameFile(String oldname, String newname) {
+       // File (or directory) with old name
+       File file = new File(oldname);
+
+       // File (or directory) with new name
+       File file2 = new File(newname);
+
+       // Rename file (or directory)
+       boolean success = file.renameTo(file2);
+       return success;
+   }
+   public static void test(String type, String oldname, String newname) {
+       System.out.println("The following " + type + " called " + oldname +
+           ( renameFile(oldname, newname) ? " was renamed as " : " could not be renamed into ")
+           + newname + "."
+       );
+   }
+   public static void main(String args[]) {
+        test("file", "input.txt", "output.txt");
+        test("file", File.separator + "input.txt", File.separator + "output.txt");
+        test("directory", "docs", "mydocs");
+        test("directory", File.separator + "docs" + File.separator, File.separator + "mydocs" + File.separator);
+   }
+}

Task/Rename-a-file/JavaScript/rename-a-file.js

@@ -0,0 +1,5 @@
+var fso = new ActiveXObject("Scripting.FileSystemObject");
+fso.MoveFile('input.txt', 'output.txt');
+fso.MoveFile('c:/input.txt', 'c:/output.txt');
+fso.MoveFolder('docs', 'mydocs');
+fso.MoveFolder('c:/docs', 'c:/mydocs');

Task/Rename-a-file/Joy/rename-a-file.joy

@@ -0,0 +1,4 @@
+"input.txt" "output.txt" frename
+"/input.txt" "/output.txt" frename
+"docs" "mydocs" frename
+"/docs" "/mydocs" frename.

Task/Rename-a-file/Liberty-BASIC/rename-a-file.liberty

@@ -0,0 +1,10 @@
+'   LB has inbuilt 'name' command, but can also run batch files
+
+nomainwin
+
+name "input.txt" as "output.txt"
+run "cmd.exe /c ren docs mydocs", HIDE
+name "C:\input.txt" as "C:\output.txt"
+run "cmd.exe /c ren C:\docs mydocs", HIDE
+
+end

Task/Rename-a-file/Locomotive-Basic/rename-a-file.locomotive

@@ -0,0 +1 @@
+|ren,"input.txt","output.txt"

Task/Rename-a-file/Lua/rename-a-file.lua

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

Task/Rename-a-file/MATLAB/rename-a-file.m

@@ -0,0 +1 @@
+ [STATUS, MSG, MSGID] = movefile (F1, F2);

Task/Rename-a-file/MAXScript/rename-a-file.maxscript

@@ -0,0 +1,4 @@
+-- Here
+renameFile "input.txt" "output.txt"
+-- Root
+renameFile "/input.txt" "/output.txt"

Task/Rename-a-file/MUMPS/rename-a-file.mumps

@@ -0,0 +1,6 @@
+ ;Local
+ S X=$ZF(-1,"rename input.txt output.txt")
+ S X=$ZF(-1,"rename docs.dir mydocs.dir")
+  ;Root of current device
+ S X=$ZF(-1,"rename [000000]input.txt [000000]output.txt")
+ S X=$ZF(-1,"rename [000000]docs.dir [000000]mydocs.dir")

Task/Rename-a-file/Maple/rename-a-file.maple

@@ -0,0 +1,6 @@
+use FileTools in
+  Rename( "input.txt", "output.txt" );
+  Rename( "docs", "mydocs" );
+  Rename( "/input.txt", "/output.txt" ); # assuming permissions in /
+  Rename( "/docs", "/mydocs" )           # assuming permissions in /
+end use:

Task/Rename-a-file/Mathematica/rename-a-file.math

@@ -0,0 +1,6 @@
+SetDirectory[NotebookDirectory[]]
+RenameFile["input.txt", "output.txt"]
+RenameDirectory["docs", "mydocs"]
+SetDirectory[$RootDirectory]
+RenameFile["input.txt", "output.txt"]
+RenameDirectory["docs", "mydocs"]

Task/Rename-a-file/NewLISP/rename-a-file.newlisp

@@ -0,0 +1,4 @@
+(rename-file "./input.txt" "./output.txt")
+(rename-file "./docs" "./mydocs")
+(rename-file "/input.txt" "/output.txt")
+(rename-file "/docs" "/mydocs")

Task/Rename-a-file/OCaml/rename-a-file.ocaml

@@ -0,0 +1,4 @@
+Sys.rename "input.txt" "output.txt";;
+Sys.rename "docs" "mydocs";;
+Sys.rename "/input.txt" "/output.txt";;
+Sys.rename "/docs" "/mydocs";;

Task/Rename-a-file/Objeck/rename-a-file.objeck

@@ -0,0 +1,11 @@
+use IO;
+bundle Default {
+  class FileExample {
+    function : Main(args : String[]) ~ Nil {
+      File->Rename("input.txt", "output.txt");
+      File->Rename("docs", "mydocs");
+      File->Rename("/input.txt", "/output.txt");
+      File->Rename("/docs", "/mydocs");
+    }
+  }
+}

Task/Rename-a-file/Objective-C/rename-a-file.m

@@ -0,0 +1,9 @@
+NSFileManager *fm = [NSFileManager defaultManager];
+
+// Pre-OS X 10.5
+[fm movePath:@"input.txt" toPath:@"output.txt" handler:nil];
+[fm movePath:@"docs" toPath:@"mydocs" handler:nil];
+
+// OS X 10.5+
+[fm moveItemAtPath:@"input.txt" toPath:@"output.txt" error:NULL];
+[fm moveItemAtPath:@"docs" toPath:@"mydocs" error:NULL];

Task/Rename-a-file/Octave/rename-a-file.octave

@@ -0,0 +1,3 @@
+ rename('docs','mydocs');
+rename('input.txt','/output.txt');
+rename('/docs','/mydocs');

Task/Rename-a-file/PARI-GP/rename-a-file.pari

@@ -0,0 +1,4 @@
+system("mv input.txt output.txt");
+system("mv /input.txt /output.txt");
+system("mv docs mydocs");
+system("mv /docs /mydocs");

Task/Rename-a-file/PHP/rename-a-file.php

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

Task/Rename-a-file/Pascal/rename-a-file.pascal

@@ -0,0 +1,22 @@
+  var
+    f : file ; // Untyped file
+ begin
+
+  // as current directory
+  AssignFile(f,'input.doc');
+  Rename(f,'output.doc');
+
+  // as root directory
+  AssignFile(f,'\input.doc');
+  Rename(f,'\output.doc');
+
+  // rename a directory
+  AssignFile(f,'docs');
+  Rename(f,'mydocs');
+
+  //rename a directory off the root
+
+  AssignFile(f,'\docs');
+  Rename(f,'\mydocs');
+
+end;

Task/Rename-a-file/Perl-6/rename-a-file.pl6

@@ -0,0 +1,4 @@
+rename 'input.txt', 'output.txt';
+rename 'docs', 'mydocs';
+rename '/input.txt', '/output.txt';
+rename '/docs', '/mydocs';

Task/Rename-a-file/Perl/rename-a-file.pl

@@ -0,0 +1,8 @@
+use File::Copy qw(move);
+use File::Spec::Functions qw(catfile rootdir);
+# here
+move 'input.txt', 'output.txt';
+move 'docs', 'mydocs';
+# root dir
+move (catfile rootdir, 'input.txt'), (catfile rootdir, 'output.txt');
+move (catfile rootdir, 'docs'), (catfile rootdir, 'mydocs');

Task/Rename-a-file/PicoLisp/rename-a-file.l

@@ -0,0 +1,4 @@
+(call 'mv "input.txt" "output.txt")
+(call 'mv "docs" "mydocs")
+(call 'mv "/input.txt" "/output.txt")
+(call 'mv "/docs" "/mydocs")

Task/Rename-a-file/Pike/rename-a-file.pike

@@ -0,0 +1,6 @@
+int main(){
+   mv("input.txt", "output.txt");
+   mv("/input.txt", "/output.txt");
+   mv("docs", "mydocs");
+   mv("/docs", "/mydocs");
+}

Task/Rename-a-file/Pop11/rename-a-file.pop11

@@ -0,0 +1,4 @@
+sys_file_move('inputs.txt', 'output.txt');
+sys_file_move('docs', 'mydocs');
+sys_file_move('/inputs.txt', '/output.txt');
+sys_file_move(/'docs', '/mydocs');

Task/Rename-a-file/PowerShell/rename-a-file.psh

@@ -0,0 +1,4 @@
+Rename-Item input.txt output.txt
+
+# The Rename-item has the alias ren
+ren input.txt output.txt

Task/Rename-a-file/ProDOS/rename-a-file.dos

@@ -0,0 +1,2 @@
+rename input.txt to output.txt
+rename docs to mydocs

Task/Rename-a-file/PureBasic/rename-a-file.purebasic

@@ -0,0 +1,5 @@
+RenameFile("input.txt", "output.txt")
+RenameFile("docs\", "mydocs\")
+
+RenameFile("/input.txt","/output.txt")
+RenameFile("/docs\","/mydocs\")

Task/Rename-a-file/Python/rename-a-file-1.py

@@ -0,0 +1,7 @@
+import os
+
+os.rename("input.txt", "output.txt")
+os.rename("docs", "mydocs")
+
+os.rename(os.sep + "input.txt", os.sep + "output.txt")
+os.rename(os.sep + "docs", os.sep + "mydocs")

Task/Rename-a-file/Python/rename-a-file-2.py

@@ -0,0 +1,7 @@
+import shutil
+
+shutil.move("input.txt", "output.txt")
+shutil.move("docs", "mydocs")
+
+shutil.move("/input.txt", "/output.txt")
+shutil.move("/docs", "/mydocs")

Task/Rename-a-file/R/rename-a-file.r

@@ -0,0 +1,4 @@
+file.rename("input.txt", "output.txt")
+file.rename("/input.txt", "/output.txt")
+file.rename("docs", "mydocs")
+file.rename("/docs", "/mydocs")

Task/Rename-a-file/REALbasic/rename-a-file.realbasic

@@ -0,0 +1,29 @@
+Sub Renamer()
+    Dim f As FolderItem, r As FolderItem
+
+    f = GetFolderItem("input.txt")
+    'Changing a FolderItem's Name attribute renames the file or directory.
+    If f.Exists Then f.Name = "output.txt"
+    'Files and directories are handled almost identically in RB.
+    f = GetFolderItem("docs")
+    If f.Exists Then f.Name = "mydocs"
+
+    'Jump through hoops to find the root directory.
+    r = RootDir(GetFolderItem("."))
+
+    f = r.Child("input.txt")
+    'Renaming in a different directory identical to renaming in current directory.
+    If f.Exists Then f.Name = "output.txt"
+    f = r.Child("docs")
+    If f.Exists Then f.Name = "mydocs"
+End Sub
+
+Function RootDir(what As FolderItem) As FolderItem
+    'RB doesn't have an easy way to find the root of the current drive;
+    'not an issue under *nix but troublesome under Windows.
+    If what.Parent <> Nil Then  'Nil = no parent = root.
+        Return RootDir(what.Parent) 'Recursive.
+    Else
+        Return what
+    End If
+End Function

Task/Rename-a-file/REBOL/rename-a-file.rebol

@@ -0,0 +1,19 @@
+rename %input.txt %output.txt
+rename %docs/ %mydocs/
+
+; Unix. Note that there's no path specification used for the
+; new name. "Rename" is not "move".
+
+rename %/input.txt %output.txt
+rename %/docs/ %mydocs/
+
+; DOS/Windows:
+
+rename %/c/input.txt %output.txt
+rename %/c/docs/ %mydocs/
+
+; Because REBOL treats data access schemes as uniformly as possible,
+; you can do tricks like this:
+
+rename ftp://username:password@ftp.site.com/www/input.txt %output.txt
+rename ftp://username:password@ftp.site.com/www/docs/ %mydocs/

Task/Rename-a-file/REXX/rename-a-file-1.rexx

@@ -0,0 +1,5 @@
+  do 2
+  'RENAME' "input.txt"  "output.txt"
+  'CD'     "\"
+  'MOVE'   "\docs"  "\mydocs"
+  end

Task/Rename-a-file/REXX/rename-a-file-2.rexx

@@ -0,0 +1,5 @@
+  do 2
+  'RENAME' "input.txt  output.txt"
+  'CD'     "\"
+  'MOVE'   "\docs  \mydocs"
+  end

Task/Rename-a-file/Racket/rename-a-file.rkt

@@ -0,0 +1,12 @@
+#lang racket
+
+(rename-file-or-directory "input.txt" "output.txt")
+(rename-file-or-directory "docs" "mydocs")
+
+;; find the filesystem roots, and pick the first one
+(define root (first (filesystem-root-list)))
+
+(rename-file-or-directory (build-path root "input.txt")
+                          (build-path root "output.txt"))
+(rename-file-or-directory (build-path root "docs")
+                          (build-path root "mydocs"))

Task/Rename-a-file/Ruby/rename-a-file-1.rb

@@ -0,0 +1,4 @@
+File.rename('input.txt', 'output.txt')
+File.rename('/input.txt', '/output.txt')
+File.rename('docs', 'mydocs')
+File.rename('/docs', '/mydocs')

Task/Rename-a-file/Ruby/rename-a-file-2.rb

@@ -0,0 +1,3 @@
+require 'fileutils'
+moves = { "input.txt" => "output.txt", "/input.txt" => "/output.txt", "docs" => "mydocs","/docs" => "/mydocs"}
+moves.each{ |src, dest| FileUtils.move( src, dest, :verbose => true ) }

Task/Rename-a-file/Run-BASIC/rename-a-file.run

@@ -0,0 +1,4 @@
+a$ = shell$("RENAME input.txt output.txt")
+a$ = shell$("RENAME docs mydocs")
+a$ = shell$("RENAME \input.txt \output.txt")
+a$ = shell$("RENAME \docs \mydocs")

Task/Rename-a-file/Scala/rename-a-file.scala

@@ -0,0 +1,9 @@
+object rename {
+  def main(args: Array[String]) {
+    implicit def file(s: String) = new File(s)
+    "myfile.txt" renameTo "anotherfile.txt"
+    "/tmp/myfile.txt" renameTo "/tmp/anotherfile.txt"
+    "mydir" renameTo "anotherdir"
+    "/tmp/mydir" renameTo "/tmp/anotherdir"
+  }
+}

Task/Rename-a-file/Scheme/rename-a-file.ss

@@ -0,0 +1,4 @@
+(rename-file "input.txt" "output.txt")
+(rename-file "docs" "mydocs")
+(rename-file "/input.txt" "/output.txt")
+(rename-file "/docs" "/mydocs")

Task/Rename-a-file/Seed7/rename-a-file.seed7

@@ -0,0 +1,10 @@
+$ include "seed7_05.s7i";
+  include "osfiles.s7i";
+
+const proc: main is func
+  begin
+    moveFile("input.txt", "output.txt");
+    moveFile("docs", "mydocs");
+    moveFile("/input.txt", "/output.txt");
+    moveFile("/docs", "/mydocs");
+  end func;

Task/Rename-a-file/Slate/rename-a-file.slate

@@ -0,0 +1,4 @@
+(File newNamed: 'input.txt') renameTo: 'output.txt'.
+(File newNamed: '/input.txt') renameTo: '/output.txt'.
+(Directory newNamed: 'docs') renameTo: 'mydocs'.
+(Directory newNamed: '/docs') renameTo: '/mydocs'.

Task/Rename-a-file/Smalltalk/rename-a-file-1.st

@@ -0,0 +1,6 @@
+File rename: 'input.txt' to: 'output.txt'.
+File rename: 'docs' to: 'mydocs'.
+"as for other example, this works on systems
+ where the root is / ..."
+File rename: '/input.txt' to: '/output.txt'.
+File rename: '/docs' to: '/mydocs'

Task/Rename-a-file/Smalltalk/rename-a-file-2.st

@@ -0,0 +1,4 @@
+'input.txt' asFilename renameTo: 'output.txt'.
+'docs' asFilename renameTo: 'mydocs'.
+'/input.txt' asFilename renameTo: '/output.txt'.
+'/docs' asFilename renameTo: '/mydocs'

Task/Rename-a-file/Standard-ML/rename-a-file.ml

@@ -0,0 +1,4 @@
+OS.FileSys.rename {old = "input.txt", new = "output.txt"};
+OS.FileSys.rename {old = "docs", new = "mydocs"};
+OS.FileSys.rename {old = "/input.txt", new = "/output.txt"};
+OS.FileSys.rename {old = "/docs", new = "/mydocs"};

Task/Rename-a-file/TUSCRIPT/rename-a-file.tuscript

@@ -0,0 +1,5 @@
+$$ MODE TUSCRIPT
+- rename file
+ERROR/STOP RENAME ("input.txt","output.txt")
+- rename directory
+ERROR/STOP RENAME ("docs","mydocs",-std-)

Task/Rename-a-file/Tcl/rename-a-file-1.tcl

@@ -0,0 +1,5 @@
+file rename inputs.txt output.txt
+file rename docs mydocs
+
+file rename [file nativename /inputs.txt] [file nativename /output.txt]
+file rename [file nativename /docs] [file nativename /mydocs]

Task/Rename-a-file/Tcl/rename-a-file-2.tcl

@@ -0,0 +1,5 @@
+file rename inputs.txt output.txt
+file rename docs mydocs
+
+file rename /inputs.txt /output.txt
+file rename /docs /mydocs

Task/Rename-a-file/Toka/rename-a-file.toka

@@ -0,0 +1,6 @@
+needs shell
+" input.txt"  " output.txt"  rename
+" /input.txt"  " /output.txt"  rename
+
+" docs"  " mydocs"  rename
+" /docs"  " /mydocs"  rename

Task/Rename-a-file/TorqueScript/rename-a-file.torquescript

@@ -0,0 +1,8 @@
+fileCopy("Input.txt", "Output.txt");
+fileDelete("Input.txt");
+
+for(%File = FindFirstFile("Path/*.*"); %File !$= ""; %File = FindNextFile("Path/*.*"))
+{
+	fileCopy(%File, "OtherPath/" @ %File);
+	fileDelete(%File);
+}

Task/Rename-a-file/UNIX-Shell/rename-a-file.sh

@@ -0,0 +1,4 @@
+mv input.txt output.txt
+mv /input.txt /output.txt
+mv docs mydocs
+mv /docs /mydocs

Task/Rename-a-file/Vedit-macro-language/rename-a-file.vedit

@@ -0,0 +1,7 @@
+// In current directory
+File_Rename("input.txt", "output.txt")
+File_Rename("docs", "mydocs")
+
+// In the root directory
+File_Rename("/input.txt", "/output.txt")
+File_Rename("/docs", "/mydocs")

Task/Rename-a-file/Visual-Basic-.NET/rename-a-file.visual

@@ -0,0 +1,13 @@
+'Current Directory
+IO.Directory.Move("docs", "mydocs")
+IO.File.Move("input.txt", "output.txt")
+
+'Root
+IO.Directory.Move("\docs", "\mydocs")
+IO.File.Move("\input.txt", "\output.txt")
+
+'Root, platform independent
+IO.Directory.Move(IO.Path.DirectorySeparatorChar & "docs", _
+ IO.Path.DirectorySeparatorChar & "mydocs")
+IO.File.Move(IO.Path.DirectorySeparatorChar & "input.txt", _
+  IO.Path.DirectorySeparatorChar & "output.txt")

Task/Rename-a-file/Yorick/rename-a-file.yorick

@@ -0,0 +1,4 @@
+rename, "input.txt", "output.txt";
+rename, "/input.txt", "/output.txt";
+rename, "docs", "mydocs";
+rename, "/docs", "/mydocs";