Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Tree: c5f2f79dbf
Branches Tags
fpc
/
rtl
/
aros
/
i386
/
doslibf.inc

doslibf.inc 4.1 KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475 
  1. {
    2. 

  2.     This file is part of the Free Pascal run time library.
    3. 

  3.     Copyright (c) 2011 by Marcus Sackrow
    4. 

  4. 

  5.     dos.library functions for AROS
    6. 

  6. 

  7.     See the file COPYING.FPC, included in this distribution,
    8. 

  8.     for details about the copyright.
    9. 

  9. 

  10.     This program is distributed in the hope that it will be useful,
    11. 

  11.     but WITHOUT ANY WARRANTY; without even the implied warranty of
    12. 

  12.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
    13. 

  13. 

  14.  **********************************************************************}
    15. 

  15. 

  16. function Open(name: PAnsiChar; accessMode: longint): BPTR; syscall AOS_DOSBase 5;
    17. 

  17. function dosClose(_file: BPTR): LongBool;  syscall AOS_DOSBase 6;
    18. 

  18. function dosRead(_file: BPTR; buffer: Pointer; length: longint): longint; syscall AOS_DOSBase 7;
    19. 

  19. function dosWrite(_file: BPTR; buffer: Pointer; length: longint): longint;  syscall AOS_DOSBase 8;
    20. 

  20. function dosInput: BPTR; syscall AOS_DOSBase 9;
    21. 

  21. function dosOutput: BPTR; syscall AOS_DOSBase 10;
    22. 

  22. {$ifdef AROS_ABIv0}
    23. 

  23. function DosError1: BPTR;  syscall AOS_DOSBase 142;
    24. 

  24. {$endif}
    25. 

  25. function dosSeek(_file: BPTR; position: longint;offset: longint): longint; syscall AOS_DOSBase 11;
    26. 

  26. function dosDeleteFile(const name: PAnsiChar): LongBool; syscall AOS_DOSBase 12;
    27. 

  27. function dosRename(const oldName: PAnsiChar;newName: PAnsiChar): LongInt; syscall AOS_DOSBase 13;
    28. 

  28. function Lock(const name: PAnsiChar;_type: longint): BPTR; syscall AOS_DOSBase 14;
    29. 

  29. function UnLock(lock: BPTR): LongInt; syscall AOS_DOSBase 15;
    30. 

  30. function DupLock(Lock: BPTR): BPTR; syscall AOS_DOSBase 16;
    31. 

  31. function Examine(lock: BPTR; fileInfoBlock: PFileInfoBlock): LongInt; syscall AOS_DOSBase 17;
    32. 

  32. function Info(lock: BPTR; parameterBlock: PInfoData): LongInt; syscall AOS_DOSBase 19;
    33. 

  33. function dosCreateDir(const name: PAnsiChar): BPTR; syscall AOS_DOSBase 20;
    34. 

  34. function CurrentDir(lock: BPTR): BPTR; syscall AOS_DOSBase 21;
    35. 

  35. function IoErr: longint; syscall AOS_DOSBase 22;
    36. 

  36. procedure dosExit(ErrCode: longint); syscall AOS_DOSBase 24;
    37. 

  37. function SetProtection(const name: PAnsiChar; protect: longword): LongInt; syscall AOS_DOSBase 31;
    38. 

  38. function DateStamp(date: PDateStamp): PDateStamp; syscall AOS_DOSBase 32;
    39. 

  39. procedure dosDelay(ticks: LongWord); syscall AOS_DOSBase 33;
    40. 

  40. function AllocDosObject(Type_: LongWord; const Tags: PTagItem): Pointer; syscall AOS_DOSBase 38;
    41. 

  41. procedure FreeDosObject(Type_: LongWord; Ptr: Pointer); syscall AOS_DOSBase 39;
    42. 

  42. function SetFileDate(name: PAnsiChar; date: PDateStamp): LongBool; syscall AOS_DOSBase 66;
    43. 

  43. function NameFromLock(lock: BPTR; buffer: PAnsiChar; len: longint): LongBool; syscall AOS_DOSBase 67;
    44. 

  44. function SetFileSize(fh: BPTR; pos: longint; mode: longint): longint; syscall AOS_DOSBase 76;
    45. 

  45. function Cli : pCommandLineInterface; syscall AOS_DOSBase 82;
    46. 

  46. function CreateNewProc(const Tags: PTagItem): PProcess; syscall AOS_DOSBase 83;
    47. 

  47. function GetArgStr: PAnsiChar; syscall AOS_DOSBase 89;
    48. 

  48. function GetCurrentDirName(buf: PAnsiChar; len: longint): LongBool; syscall AOS_DOSBase 94;
    49. 

  49. function GetProgramName(buf: PAnsiChar; len: longint): LongBool; syscall AOS_DOSBase 96;
    50. 

  50. function GetProgramDir: BPTR; syscall AOS_DOSBase 100;
    51. 

  51. function SystemTagList(command: PAnsiChar; tags: PTagItem): longint; syscall AOS_DOSBase 101;
    52. 

  52. function LockDosList(flags: longword): PDosList; syscall AOS_DOSBase 109;
    53. 

  53. procedure UnLockDosList(flags: longword); syscall AOS_DOSBase 110;
    54. 

  54. function NextDosEntry(dlist: PDosList; flags: longword): PDosList; syscall AOS_DOSBase 115;
    55. 

  55. function MatchFirst(pat: PAnsiChar; anchor: PAnchorPath): longint; syscall AOS_DOSBase 137;
    56. 

  56. function MatchNext(anchor: PAnchorPath): longint; syscall AOS_DOSBase 138;
    57. 

  57. procedure MatchEnd(anchor: PAnchorPath); syscall AOS_DOSBase 139;
    58. 

  58. function GetVar(name: PAnsiChar; buffer: PAnsiChar; size: longint; flags: longword): longint; syscall AOS_DOSBase 151;
    59. 

  59. function ExamineFH(Fh: BPTR; Fib: PFileInfoBlock): LongBool; syscall AOS_DOSBase 65;
    60. 

  60. function NameFromFH(Fh: BPTR; Buffer: PAnsiChar; Length: LongInt): LongBool; syscall AOS_DOSBase 68;
    61. 

  61. 

  62. 

  63. {$ifdef AROS_ABIv1}
    64. 

  64. function DosError1(): BPTR;
    65. 

  65. var
    66. 

  66.   P: PProcess;
    67. 

  67. begin
    68. 

  68.   DosError1 := 0;
    69. 

  69.   P := PProcess(FindTask(nil));
    70. 

  70.   if Assigned(P) then
    71. 

  71.     DosError1 := P^.pr_CES;
    72. 

  72.   if DosError1 = 0 then
    73. 

  73.     DosError1 := DosOutput();
    74. 

  74. end;
    75. 

  75. {$endif}
    76.