freepascal.compiler/rtl/wasi/sysdir.inc

{
    This file is part of the Free Pascal run time library.

    Main OS dependant body of the system unit, loosely modelled
    after POSIX.  *BSD version (Linux version is near identical)

    See the file COPYING.FPC, included in this distribution,
    for details about the copyright.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

 **********************************************************************}


{*****************************************************************************
                           Directory Handling
*****************************************************************************}

procedure Do_MkDir(s: rawbytestring);
begin
  DebugWriteLn('Do_MkDir');
end;

procedure Do_RmDir(s: rawbytestring);
begin
  DebugWriteLn('Do_RmDir');
end;

procedure do_ChDir(s: rawbytestring);
begin
  DebugWriteLn('do_ChDir');
end;

procedure do_getdir(drivenr : byte;var dir : rawbytestring);
begin
  DebugWriteLn('do_getdir');
end;