forked from KolibriOS/kolibrios
36 lines
685 B
FASM
36 lines
685 B
FASM
{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;
|