* Wii rtl: reverted wrong commit

git-svn-id: trunk@30161 -

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;