BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /programs/develop/fp/rtl/dos.pp @ 618

  → /programs/develop/fp/rtl/dos.pp @ 619

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 618 → Rev 619

/programs/develop/fp/rtl/dos.pp
1,9 → 1,80
unit Dos;
interface
{$i filerec.inc}
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.