fpc/rtl/palmos/sysdir.inc

{
    This file is part of the Free Pascal run time library.
    Copyright (c) 2017 by Free Pascal development team

    Low level directory functions

    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
*****************************************************************************}
{$if defined(FPC_HAS_FEATURE_ANSISTRINGS)}
procedure do_mkdir(const s: rawbytestring);
begin
  InOutRes:=3;
end;

procedure do_rmdir(const s: rawbytestring);
begin
  InOutRes:=3;
end;

procedure do_chdir(const s: rawbytestring);
begin
  InOutRes:=3;
end;

procedure do_GetDir (DriveNr: byte; var Dir: RawByteString);
begin
  InOutRes:=3;
end;

{$else FPC_HAS_FEATURE_ANSISTRINGS}

procedure mkdir(const s: shortstring);
begin
  InOutRes:=3;
end;

procedure rmdir(const s: shortstring);
begin
  InOutRes:=3;
end;

procedure chdir(const s: shortstring);
begin
  InOutRes:=3;
end;

procedure GetDir (DriveNr: byte; var Dir: ShortString);
begin
  InOutRes:=3;
end;
{$endif FPC_HAS_FEATURE_ANSISTRINGS}