From 0e93481dbf8c60f491ff304a4e6e599e55d739dd Mon Sep 17 00:00:00 2001
From: Legolas <legolas@idefix.freepascal.org>
Date: Tue, 10 Mar 2015 19:30:37 +0000
Subject: [PATCH]  * Wii rtl: reverted wrong commit

git-svn-id: trunk@30161 -
---
 rtl/wii/sysdir.inc | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

diff --git a/rtl/wii/sysdir.inc b/rtl/wii/sysdir.inc
index 4cbd8ea523..a96a8ac6cc 100644
--- a/rtl/wii/sysdir.inc
+++ b/rtl/wii/sysdir.inc
@@ -20,22 +20,36 @@
 *****************************************************************************}
 procedure do_mkdir(const s: rawbytestring);
 begin
-
+  { TODO: convert callback to use rawbytestring to avoid conversion }
+  if FileIODevice.DirIO.DoMkdir <> nil then
+    FileIODevice.DirIO.DoMkdir(s);
 end;
 
 procedure do_rmdir(const s: rawbytestring);
 begin
-
+  { TODO: convert callback to use rawbytestring to avoid conversion }
+  if FileIODevice.DirIO.DoRmdir <> nil then
+    FileIODevice.DirIO.DoRmdir(s);
 end;
 
 procedure do_chdir(const s: rawbytestring);
 begin
-
+  { TODO: convert callback to use rawbytestring to avoid conversion }
+  if FileIODevice.DirIO.DoChdir <> nil then
+    FileIODevice.DirIO.DoChdir(pchar(s));
 end;
 
 procedure do_GetDir(DriveNr: byte; var Dir: RawByteString);
+var
+  TmpDir: ShortString;
 begin
-
+  { TODO: convert callback to use rawbytestring to avoid conversion }
+  if FileIODevice.DirIO.DoGetdir <> nil then
+    begin
+      FileIODevice.DirIO.DoGetdir(DriveNr, TmpDir);
+      Dir:=TmpDir;
+      SetCodePage(Dir,DefaultFileSystemCodePage,false);
+    end;
 end;