home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / dos.lib < prev    next >
Encoding:
Text File  |  1994-07-25  |  10.3 KB  |  207 lines
  1. {$if not def DOS_LIB_H} CONST DOS_LIB_H=0;
  2.  
  3. { *********************************************************
  4.   ** KickPascal-Include-Datei "dos.lib" zu Kickstart 3.0 **
  5.   ********************************************************* }
  6.  
  7. {$if not def DOS_DOS_H;incl "dos/dos.h";endif}
  8. {$if not def DOS_DOSTAGS_H;incl "dos/dostags.h";endif}
  9. {$if not def DOS_DOSEXTENS_H;incl "dos/dosextens.h";endif}
  10. {$if not def DOS_RECORD_H;incl "dos/record.h";endif}
  11. {$if not def DOS_RDARGS_H;incl "dos/rdargs.h";endif}
  12. {$if not def DOS_DOSASL_H;incl "dos/dosasl.h";endif}
  13. {$if not def DOS_VAR_H;incl "dos/var.h";endif}
  14. {$if not def DOS_EXALL_H;incl "dos/exall.h";endif}
  15. {$if not def DOS_NOTIFY_H;incl "dos/notify.h";endif}
  16. {$if not def DOS_DATETIME_H;incl "dos/datetime.h";endif}
  17. {$if not def UNTILITY_TAGITEM_H;incl "utility/tagitem.h";endif}
  18.  
  19. LIBRARY DosBase :
  20.  
  21.  -30 : FUNCTION  Open(D1:Str; D2:LongInt): BPTR;
  22.  -30 : FUNCTION  _Open(D1:Str; D2:LongInt): BPTR;
  23.  -30 : FUNCTION  DOSOpen(D1:Str; D2:LongInt): BPTR;
  24.  -36 : FUNCTION  _Close(D1:BPTR): LongInt;
  25.  -36 : FUNCTION  DOSClose(D1:BPTR): LongInt;
  26.  -42 : FUNCTION  _Read(D1:BPTR; D2:Ptr; D3:LongInt): LongInt;
  27.  -42 : FUNCTION  DOSRead(D1:BPTR; D2:Ptr; D3:LongInt): LongInt;
  28.  -48 : FUNCTION  _Write(D1:BPTR; D2:Ptr; D3:LongInt): LongInt;
  29.  -48 : FUNCTION  DOSWrite(D1:BPTR; D2:Ptr; D3:LongInt): LongInt;
  30.  -54 : FUNCTION  _Input: BPTR;
  31.  -54 : FUNCTION  DOSInput: BPTR;
  32.  -60 : FUNCTION  _Output: BPTR;
  33.  -60 : FUNCTION  DOSOutput: BPTR;
  34.  -66 : FUNCTION  _Seek(D1:BPTR; D2,D3:LongInt): LongInt;
  35.  -66 : FUNCTION  DOSSeek(D1:BPTR; D2,D3:LongInt): LongInt;
  36.  -72 : FUNCTION  DeleteFile(D1:Str): LongInt;
  37.  -78 : FUNCTION  Rename(D1,D2:Str): LongInt;
  38.  -84 : FUNCTION  Lock(D1:Str; D2:LongInt): BPTR;
  39.  -90 : PROCEDURE UnLock(D1:BPTR);
  40.  -96 : FUNCTION  DupLock(D1:BPTR): BPTR;
  41. -102 : FUNCTION  Examine(D1:BPTR; D2:p_FileInfoBlock): LongInt;
  42. -108 : FUNCTION  ExNext(D1:BPTR; D2:p_FileInfoBlock): LongInt;
  43. -114 : FUNCTION  Info(D1:BPTR; D2:p_InfoData): LongInt;
  44. -120 : FUNCTION  CreateDir(D1:Str): BPTR;
  45. -126 : FUNCTION  CurrentDir(D1:BPTR): BPTR;
  46. -132 : FUNCTION  IoErr: LongInt;
  47. -138 : FUNCTION  CreateProc(D1:Str; D2:LongInt; D3:BPTR; D4:LongInt): p_MsgPort;
  48. -144 : PROCEDURE _Exit(D1:LongInt);
  49. -144 : PROCEDURE DOSExit(D1:LongInt);
  50. -150 : FUNCTION  LoadSeg(D1:Str): BPTR;
  51. -156 : PROCEDURE UnLoadSeg(D1:BPTR);
  52. { *** private Routinen *** }
  53. -174 : FUNCTION  DeviceProc(D1:Str): p_MsgPort;
  54. -180 : FUNCTION  SetComment(D1,D2:Str): LongInt;
  55. -186 : FUNCTION  SetProtection(D1:Str; D2:LongInt): LongInt;
  56. -192 : FUNCTION  _DateStamp(D1:p_DateStamp): p_DateStamp;
  57. -192 : FUNCTION  DOSDateStamp(D1:p_DateStamp): p_DateStamp;
  58. -198 : PROCEDURE _Delay(D1:LongInt);
  59. -198 : PROCEDURE DOSDelay(D1:LongInt);
  60. -204 : FUNCTION  WaitForChar(D1:BPTR; D2:LongInt): LongInt;
  61. -210 : FUNCTION  ParentDir(D1:BPTR): BPTR;
  62. -216 : FUNCTION  IsInteractive(D1:BPTR): LongInt;
  63. -222 : FUNCTION  Execute(D1:Str; D2,D3:BPTR): LongInt;
  64.  
  65. { **** Routinen ab V36 / Kickstart Release 2.0  **** }
  66.  
  67. -228 : FUNCTION  AllocDosObject(D0:Long; D1:p_TagItem): Ptr;
  68. -228 : FUNCTION  AllocDosObjectTagList(D0:Long; D1:p_TagItem): Ptr;
  69. -234 : PROCEDURE FreeDosObject(D1:Long; D2:Ptr);
  70. -240 : FUNCTION  DoPkt(D1:p_MsgPort; D2,D3,D4,D5,D6,D7:LongInt): LongInt;
  71. -246 : PROCEDURE SendPkt(D1:p_DosPacket; D2,D3:p_MsgPort);
  72. -252 : FUNCTION  WaitPkt: p_DosPacket;
  73. -258 : PROCEDURE ReplyPkt(D1:p_DosPacket; D2,D3:LongInt);
  74. -264 : PROCEDURE AbortPkt(D1:p_MsgPort; D2:p_DosPacket);
  75. -270 : FUNCTION  LockRecord(D1:BPTR; D2,D3,D4,D5:Long): Boolean;
  76. -276 : FUNCTION  LockRecords(D1:p_RecordLock; D2:Long): Boolean;
  77. -282 : FUNCTION  UnLockRecord(D1:BPTR; D2,D3:Long): Boolean;
  78. -288 : FUNCTION  UnLockRecords(D1:p_RecordLock): Boolean;
  79. -294 : FUNCTION  SelectInput(D1:BPTR): BPTR;
  80. -300 : FUNCTION  SelectOutput(D1:BPTR): BPTR;
  81. -306 : FUNCTION  FGetC(D1:BPTR): LongInt;
  82. -312 : PROCEDURE FPutC(D1:BPTR; D2:Long);
  83. -318 : FUNCTION  UnGetC(D1:BPTR; D2:LongInt): LongInt;
  84. -324 : FUNCTION  FRead(D1:BPTR; D2:Ptr; D3,D4:Long): LongInt;
  85. -330 : FUNCTION  FWrite(D1:BPTR; D2:Ptr; D3,D4:Long): LongInt;
  86. -336 : FUNCTION  FGets(D1:BPTR; D2:Ptr; D3:Long): Ptr;
  87. -342 : FUNCTION  FPuts(D1:BPTR; D2:Ptr): LongInt;
  88. -348 : PROCEDURE VFWritef(D1:BPTR; D2:Ptr; D3:Ptr);
  89. -354 : FUNCTION  VFPrintf(D1:BPTR; D2:Ptr; D3:Ptr): LongInt;
  90. -360 : PROCEDURE Flush(D1:BPTR);
  91. -366 : FUNCTION  SetVBuf(D1:BPTR; D2:Ptr; D3,D4:LongInt): LongInt;
  92. -372 : FUNCTION  DupLockFromFH(D1:BPTR): BPTR;
  93. -378 : FUNCTION  OpenFromLock(D1:BPTR): BPTR;
  94. -384 : FUNCTION  ParentOfFH(D1:BPTR): BPTR;
  95. -390 : FUNCTION  ExamineFH(D1:BPTR; D2:p_FileInfoBlock): Boolean;
  96. -396 : FUNCTION  SetFileDate(D1:Str; D2:p_DateStamp): LongInt;
  97. -402 : FUNCTION  NameFromLock(D1:BPTR; D2:Str; D3:LongInt): LongInt;
  98. -408 : FUNCTION  NameFromFH(D1:BPTR; D2:Str; D3:LongInt): LongInt;
  99. -414 : FUNCTION  SplitName(D1:Str; D2:Long; D3:Ptr; D4,D5:LongInt): Integer;
  100. -420 : FUNCTION  SameLock(D1,D2:BPTR): LongInt;
  101. -426 : FUNCTION  SetMode(D1:BPTR; D2:LongInt): LongInt;
  102. -432 : FUNCTION  ExAll(D1:BPTR; D2:p_ExAllData; D3,D4:LongInt; D5:p_ExAllControl): LongInt;
  103. -438 : FUNCTION  ReadLink(D1:p_MsgPort; D2:BPTR; D3,D4: Ptr; D5:Long): LongInt;
  104. -444 : FUNCTION  MakeLink(D1:Str; D2,D3:LongInt): LongInt;
  105. -450 : FUNCTION  ChangeMode(D1:LongInt; D2:BPTR; D3:LongInt): LongInt;
  106. -456 : FUNCTION  SetFileSize(D1:BPTR; D2,D3:LongInt): LongInt;
  107. -462 : FUNCTION  SetIoErr(D1:LongInt): LongInt;
  108. -468 : FUNCTION  Fault(D1:LongInt; D2,D3:Ptr; D4:LongInt): Boolean;
  109. -474 : FUNCTION  PrintFault(D1:LongInt; D2:Ptr): Boolean;
  110. -480 : FUNCTION  ErrorReport(D1,D2:LongInt, D3:Long; D4:p_MsgPort): LongInt;
  111. { *** ein "Slot" reserviert *** }
  112. -492 : FUNCTION  Cli: p_CommandLineInterface;
  113. -498 : FUNCTION  CreateNewProc(D1:p_TagItem): p_Process;
  114. -498 : FUNCTION  CreateNewProcTagList(D1:p_TagItem): p_Process;
  115. -504 : FUNCTION  RunCommand(D1:BPTR; D2:LongInt; D3:Str; D4:LongInt):LongInt;
  116. -510 : FUNCTION  GetConsoleTask: p_MsgPort;
  117. -516 : FUNCTION  SetConsoleTask(D1:p_MsgPort): p_MsgPort;
  118. -522 : FUNCTION  GetFileSysTask: p_MsgPort;
  119. -528 : FUNCTION  SetFileSysTask(D1:p_MsgPort): p_MsgPort;
  120. -534 : FUNCTION  GetArgStr: Str;
  121. -540 : FUNCTION  SetArgStr(D1:Str): Str;
  122. -546 : FUNCTION  FindCliProc(D1:Long): p_Process;
  123. -552 : FUNCTION  MaxCli: Long;
  124. -558 : FUNCTION  SetCurrentDirName(D1:Str): Boolean;
  125. -564 : FUNCTION  GetCurrentDirName(D1:Str; D2:LongInt): Boolean;
  126. -570 : FUNCTION  SetProgramName(D1:Str): Boolean;
  127. -576 : FUNCTION  GetProgramName(D1:Str; D2:LongInt): Boolean;
  128. -582 : FUNCTION  SetPrompt(D1:Str): Boolean;
  129. -588 : FUNCTION  GetPrompt(D1:Str; D2:LongInt): Boolean;
  130. -594 : FUNCTION  SetProgramDir(D1:BPTR): BPTR;
  131. -600 : FUNCTION  GetProgramDir: BPTR;
  132. -606 : FUNCTION  SystemTagList(D1: Str; D2:p_TagItem): LongInt;
  133. -606 : FUNCTION  System(D1: Str; D2:p_TagItem): LongInt;
  134. -612 : FUNCTION  AssignLock(D1:Str; D2:BPTR): LongInt;
  135. -618 : FUNCTION  AssignLate(D1,D2:Str): Boolean;
  136. -624 : FUNCTION  AssignPath(D1,D2:Str): Boolean;
  137. -630 : FUNCTION  AssignAdd(D1:Str; D2:BPTR): Boolean;
  138. -636 : FUNCTION  RemAssignList(D1:Str; D2:BPTR): LongInt;
  139. -642 : FUNCTION  GetDeviceProc(D1:Str; D2:p_DevProc): p_DevProc;
  140. -648 : PROCEDURE FreeDeviceProc(D1:p_DevProc);
  141. -654 : FUNCTION  LockDosList(D1:Long): p_DosList;
  142. -660 : PROCEDURE UnLockDosList(D1:Long);
  143. -666 : FUNCTION  AttemptLockDosList(D1:Long): p_DosList;
  144. -672 : FUNCTION  RemDosEntry(D1:p_DosList): Boolean;
  145. -678 : FUNCTION  AddDosEntry(D1:p_DosList): p_DosList;
  146. -684 : FUNCTION  FindDosEntry(D1:p_DosList; D2:Str; D3:Long): p_DosList;
  147. -690 : FUNCTION  NextDosEntry(D1:p_DosList; D2:Long): p_DosList;
  148. -696 : FUNCTION  MakeDosEntry(D1:Str; D2:LongInt): p_DosList;
  149. -702 : PROCEDURE FreeDosEntry(D1:p_DosList);
  150. -708 : FUNCTION  IsFileSystem(D1:Str): Boolean;
  151. -714 : FUNCTION  Format(D1:Ptr; D2:Str; D3:Long): Boolean;
  152. -720 : FUNCTION  Relabel(D1:Ptr; D2:Str): LongInt;
  153. -726 : FUNCTION  Inhibit(D1:Str; D2:LongInt): LongInt;
  154. -732 : FUNCTION  AddBuffers(D1:Str; D2:LongInt): LongInt;
  155. -738 : FUNCTION  CompareDates(D1,D2:p_DateStamp): LongInt;
  156. -744 : FUNCTION  DateToStr(d1:p_DateTime): LongInt;
  157. -750 : FUNCTION  StrToDate(d1:p_DateTime): LongInt;
  158. -756 : FUNCTION  InternalLoadSeg(D0:BPTR; A0:BPTR; A1,A2:Ptr): BPTR;
  159. -762 : PROCEDURE InternalUnLoadSeg(D1:BPTR; A1:Ptr);
  160. -768 : FUNCTION  NewLoadSeg(D1:Str; D2:p_TagItem): BPTR;
  161. -768 : FUNCTION  NewLoadSegTagList(D1:Str; D2:p_TagItem): BPTR;
  162. -774 : FUNCTION  AddSegment(D1:Str; D2:BPTR; D3:LongInt): LongInt;
  163. -780 : FUNCTION  FindSegment(D1:Str; D2:p_Segment; D3:LongInt): p_Segment;
  164. -786 : FUNCTION  RemSegment(D1:p_Segment): LongInt;
  165. -792 : FUNCTION  CheckSignal(D1:LongInt): LongInt;
  166. -798 : FUNCTION  ReadArgs(D1:Ptr; D2:Ptr; D3:p_RDArgs): p_RDArgs;
  167. -804 : FUNCTION  FindArg(D1,D2:Ptr): LongInt;
  168. -810 : FUNCTION  ReadItem(D1:Ptr; D2:LongInt; D3:p_CSource): LongInt;
  169. -816 : FUNCTION  StrToLong(D1:Str; D2:Ptr): LONG;
  170. -822 : FUNCTION  MatchFirst(D1:Ptr; D2:AnchorPath): LongInt;
  171. -828 : FUNCTION  MatchNext(D1:p_AnchorPath): LongInt;
  172. -834 : PROCEDURE MatchEnd(D1:AnchorPath);
  173. -840 : FUNCTION  ParsePattern(D1,D2:Ptr; D3:LongInt): LongInt;
  174. -846 : FUNCTION  MatchPattern(D1,D2:Ptr): Boolean;
  175. { *** noch nicht funtionsfähige Routine *** }
  176. -858 : PROCEDURE FreeArgs(D1:p_RDArgs);
  177. { *** ein "Slot" reserviert *** }
  178. -870 : FUNCTION  FilePart(D1:Str): Str;
  179. -876 : FUNCTION  PathPart(D1:Str): Str;
  180. -882 : FUNCTION  AddPart(D1,D2:Str; D3:Long): Boolean;
  181. -888 : FUNCTION  StartNotify(D1:p_NotifyRequest): Boolean;
  182. -894 : PROCEDURE EndNotify(D1:p_NotifyRequest);
  183. -900 : FUNCTION  SetVar(D1:Str; D2:Ptr; D3,D4:LongInt): Boolean;
  184. -906 : FUNCTION  GetVar(D1:Str; D2:Ptr; D3,D4:LongInt): LongInt;
  185. -912 : FUNCTION  DeleteVar(D1:Str; D2:Long): LongInt;
  186. -918 : FUNCTION  FindVar(D1:Str; D2:Long): p_LocalVar;
  187. -924 : FUNCTION  CliInit(D1:p_DosPacket): LongInt;
  188. -930 : FUNCTION  CliInitNewcli(D1:p_DosPacket): LongInt;
  189. -936 : FUNCTION  CliInitRun(D1:p_DosPacket): LongInt;
  190. -942 : FUNCTION  WriteChars(D1:Ptr; D2:Long): LongInt;
  191. -948 : FUNCTION  PutStr(D1:Str): LongInt;
  192. -954 : FUNCTION  VPrintf(D1:Str; D2:Ptr): LongInt;
  193. { *** ein "Slot" reserviert *** }
  194. { --- Routinen erst ab DOS 36.147 --- }
  195. -966 : FUNCTION  ParsePatternNoCase(D1,D2: Ptr; D3:LongInt): LongInt;
  196. -972 : FUNCTION  MatchPatternNoCase(D1,D2: Ptr): Boolean;
  197. { *** private Routine *** }
  198. { **** Routinen ab V37 / Kickstart 2.04  **** }
  199. -984 : FUNCTION  SameDevice(D1,D2: BPTR): Boolean;
  200. { **** Routinen ab V39 / Kickstart 3.0 **** }
  201. -990 : PROCEDURE ExAllEnd(D1: BPTR; D2: p_ExAllData; D3: LongInt; D4: LongInt; D5: p_ExAllControl);
  202. -996 : FUNCTION  SetOwner(D1: Str; D2: LongInt): Boolean;
  203. { *** private Routinen *** }
  204.  
  205. END;
  206. {$endif}
  207.