kolibrios/programs/develop/fp/rtl/dos.pp

unit Dos;


interface


type
  SearchRec = record
    {FindHandle  : THandle;
    WinFindData : TWinFindData;
    ExcludeAttr : longint;}
    Time : longint;
    Size : longint;
    Attr : longint;
    Name : string;
  end;


{$i dosh.inc}


implementation


procedure Intr(intno: byte; var regs: registers); begin end;
procedure MSDos(var regs: registers); begin end;


function  DosVersion: Word; begin end;
procedure GetDate(var year, month, mday, wday: word); begin end;
procedure GetTime(var hour, minute, second, sec100: word); begin end;
procedure SetDate(year,month,day: word); begin end;
procedure SetTime(hour,minute,second,sec100: word); begin end;
procedure UnpackTime(p: longint; var t: datetime); begin end;
procedure PackTime(var t: datetime; var p: longint); begin end;


procedure Exec(const path: pathstr; const comline: comstr); begin end;
function  DosExitCode: word; begin end;


function  DiskFree(drive: byte) : int64; begin end;
function  DiskSize(drive: byte) : int64; begin end;
procedure FindFirst(const path: pathstr; attr: word; var f: searchRec); begin end;
procedure FindNext(var f: searchRec); begin end;
procedure FindClose(Var f: SearchRec); begin end;


procedure GetFAttr(var f; var attr: word); begin end;
procedure GetFTime(var f; var time: longint); begin end;
function  FSearch(path: pathstr; dirlist: string): pathstr; begin end;
function  FExpand(const path: pathstr): pathstr; begin end;
procedure FSplit(path: pathstr; var dir: dirstr; var name: namestr; var ext: extstr); begin end;
function  GetShortName(var p : String) : boolean; begin end;
function  GetLongName(var p : String) : boolean; begin end;


function  EnvCount: longint; begin end;
function  EnvStr (Index: longint): string; begin end;
function  GetEnv(envvar: string): string; begin end;


procedure SetFAttr(var f; attr: word); begin end;
procedure SetFTime(var f; time: longint); begin end;
procedure GetCBreak(var breakvalue: boolean); begin end;
procedure SetCBreak(breakvalue: boolean); begin end;
procedure GetVerify(var verify: boolean); begin end;
procedure SetVerify(verify: boolean); begin end;


procedure SwapVectors; begin end;
procedure GetIntVec(intno: byte; var vector: pointer); begin end;
procedure SetIntVec(intno: byte; vector: pointer); begin end;
procedure Keep(exitcode: word); begin end;


function  GetMsCount: int64; begin end;


end.