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 ¥ ¨á¯®«ì§ã¥âáï, ® ¢á¥£¤ ¤®«¦¥ ¡ëâì à ¢¥ 0 }
|
|
var
|
|
Path: array[Byte] of Char;
|
|
Size: Longword;
|
|
begin
|
|
if DriveNr <> 0 then
|
|
InOutRes := 15 { Invalid drive number (¥¯à ¢¨«ìë© ®¬¥à ãáâனá⢠) } else
|
|
begin
|
|
Size := kos_getdir(@Path, SizeOf(Path));
|
|
Dir := StrPas(Path);
|
|
InOutRes := 0;
|
|
end;
|
|
end;
|