36 lines
685 B
PHP
36 lines
685 B
PHP
|
{TODO}
|
|||
|
|
|
|||
|
|
procedure mkdir(const s: String); [IOCHECK];
|
|||
|
|
begin
|
|||
|
|
InOutRes := 211;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure rmdir(const s: String); [IOCHECK];
|
|||
|
|
begin
|
|||
|
|
InOutRes := 211;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure chdir(const s: String); [IOCHECK];
|
|||
|
|
var
|
|||
|
|
Path: array[Byte] of Char;
|
|||
|
|
begin
|
|||
|
|
Path := s;
|
|||
|
|
kos_setdir(Path);
|
|||
|
|
InOutRes := 0;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure getdir(DriveNr: Byte; var Dir: ShortString);
|
|||
|
|
{ DriveNr <EFBFBD><EFBFBD> <EFBFBD>ᯮ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD> <EFBFBD>ᥣ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠢ<EFBFBD><EFBFBD> 0 }
|
|||
|
|
var
|
|||
|
|
Path: array[Byte] of Char;
|
|||
|
|
Size: Longword;
|
|||
|
|
begin
|
|||
|
|
if DriveNr <> 0 then
|
|||
|
|
InOutRes := 15 { Invalid drive number (<EFBFBD><EFBFBD><EFBFBD>ࠢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ன<EFBFBD>⢠) } else
|
|||
|
|
begin
|
|||
|
|
Size := kos_getdir(@Path, SizeOf(Path));
|
|||
|
|
Dir := StrPas(Path);
|
|||
|
|
InOutRes := 0;
|
|||
|
|
end;
|
|||
|
|
end;
|