home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / clisp / fd / dos.affi < prev    next >
Text File  |  1977-12-31  |  8KB  |  163 lines
  1. (in-package "AFFI")
  2. (declare-library-base :DOSBASE "dos.library")
  3. (format t "~&;; Warning: Please complete the prototypes for ~S manually!~%" "dos.library")
  4.  
  5. (defconstant BPTR 4)
  6.  
  7. (defflibfun 'OPEN 'DOSBASE -30 #x32 BPTR 'string -4)
  8. (defflibfun 'CLOSE 'DOSBASE -36 #x2 0 BPTR)
  9. (defflibfun 'READ 'DOSBASE -42 #x432 -4 BPTR :io -4)
  10. (defflibfun 'WRITE 'DOSBASE -48 #x432 -4 BPTR :io 4) ; :io avoids copying
  11. (defflibfun 'INPUT 'DOSBASE -54 #x0 BPTR)
  12. (defflibfun 'OUTPUT 'DOSBASE -60 #x0 BPTR)
  13. (defflibfun 'SEEK 'DOSBASE -66 #x432 -4 BPTR -4 -4)
  14. (defflibfun 'DELETEFILE 'DOSBASE -72 #x2 0 'string)
  15. (defflibfun 'RENAME 'DOSBASE -78 #x32 0 'string 'string)
  16. (defflibfun 'LOCK 'DOSBASE -84 #x32 BPTR 'string -4)
  17. (defflibfun 'UNLOCK 'DOSBASE -90 #x2 () BPTR)
  18. (defflibfun 'DUPLOCK 'DOSBASE -96 #x2 BPTR BPTR)
  19. (defflibfun 'EXAMINE 'DOSBASE -102 #x32 0 BPTR :io)
  20. (defflibfun 'EXNEXT 'DOSBASE -108 #x32 0 BPTR :io)
  21. (defflibfun 'INFO 'DOSBASE -114 #x32 '* '* '*)
  22. (defflibfun 'CREATEDIR 'DOSBASE -120 #x2 BPTR 'string)
  23. (defflibfun 'CURRENTDIR 'DOSBASE -126 #x2 '* '*)
  24. (defflibfun 'IOERR 'DOSBASE -132 #x0 -4)
  25. (defflibfun 'CREATEPROC 'DOSBASE -138 #x5432 '* '* '* '* '*)
  26. ;;(defflibfun 'EXIT 'DOSBASE -144 #x2 () -4)
  27. (defflibfun 'LOADSEG 'DOSBASE -150 #x2 '* '*)
  28. (defflibfun 'UNLOADSEG 'DOSBASE -156 #x2 '* '*)
  29. (defflibfun 'DEVICEPROC 'DOSBASE -174 #x2 '* '*)
  30. (defflibfun 'SETCOMMENT 'DOSBASE -180 #x32 '* '* '*)
  31. (defflibfun 'SETPROTECTION 'DOSBASE -186 #x32 '* '* '*)
  32. (defflibfun 'DATESTAMP 'DOSBASE -192 #x2 '* '*)
  33. (defflibfun 'DELAY 'DOSBASE -198 #x2 () 4)
  34. (defflibfun 'WAITFORCHAR 'DOSBASE -204 #x32 0 BPTR 4)
  35. (defflibfun 'PARENTDIR 'DOSBASE -210 #x2 '* '*)
  36. (defflibfun 'ISINTERACTIVE 'DOSBASE -216 #x2 0 BPTR)
  37. (defflibfun 'EXECUTE 'DOSBASE -222 #x432 0 'string BPTR BPTR)
  38. (defflibfun 'ALLOCDOSOBJECT 'DOSBASE -228 #x32 '* 4 '*)
  39. (defflibfun 'FREEDOSOBJECT 'DOSBASE -234 #x32 () 4 :external)
  40. (defflibfun 'DOPKT 'DOSBASE -240 #x8765432 -4 '* -4 -4 -4 -4 -4 -4)
  41. (defflibfun 'SENDPKT 'DOSBASE -246 #x432 '* '* '* '*)
  42. (defflibfun 'WAITPKT 'DOSBASE -252 #x0 '*)
  43. (defflibfun 'REPLYPKT 'DOSBASE -258 #x432 '* '* '* '*)
  44. (defflibfun 'ABORTPKT 'DOSBASE -264 #x32 '* '* '*)
  45. (defflibfun 'LOCKRECORD 'DOSBASE -270 #x65432 '* '* '* '* '* '*)
  46. (defflibfun 'LOCKRECORDS 'DOSBASE -276 #x32 '* '* '*)
  47. (defflibfun 'UNLOCKRECORD 'DOSBASE -282 #x432 '* '* '* '*)
  48. (defflibfun 'UNLOCKRECORDS 'DOSBASE -288 #x2 '* '*)
  49. (defflibfun 'SELECTINPUT 'DOSBASE -294 #x2 BPTR BPTR)
  50. (defflibfun 'SELECTOUTPUT 'DOSBASE -300 #x2 BPTR BPTR)
  51. (defflibfun 'FGETC 'DOSBASE -306 #x2 -2 BPTR)
  52. (defflibfun 'FPUTC 'DOSBASE -312 #x32 -2 BPTR -4)
  53. (defflibfun 'UNGETC 'DOSBASE -318 #x32 '* '* '*)
  54. (defflibfun 'FREAD 'DOSBASE -324 #x5432 '* '* '* '* '*)
  55. (defflibfun 'FWRITE 'DOSBASE -330 #x5432 '* '* '* '* '*)
  56. (defflibfun 'FGETS 'DOSBASE -336 #x432 '* BPTR :io 4)
  57. (defflibfun 'FPUTS 'DOSBASE -342 #x32 '* '* '*)
  58. (defflibfun 'VFWRITEF 'DOSBASE -348 #x432 '* '* '* '*)
  59. (defflibfun 'VFPRINTF 'DOSBASE -354 #x432 '* '* '* '*)
  60. (defflibfun 'FLUSH 'DOSBASE -360 #x2 0 BPTR)
  61. (defflibfun 'SETVBUF 'DOSBASE -366 #x5432 -4 BPTR :external -4 -4)
  62. (defflibfun 'DUPLOCKFROMFH 'DOSBASE -372 #x2 '* '*)
  63. (defflibfun 'OPENFROMLOCK 'DOSBASE -378 #x2 '* '*)
  64. (defflibfun 'PARENTOFFH 'DOSBASE -384 #x2 '* '*)
  65. (defflibfun 'EXAMINEFH 'DOSBASE -390 #x32 0 BPTR :io)
  66. (defflibfun 'SETFILEDATE 'DOSBASE -396 #x32 '* '* '*)
  67. (defflibfun 'NAMEFROMLOCK 'DOSBASE -402 #x432 0 BPTR :io 4)
  68. (defflibfun 'NAMEFROMFH 'DOSBASE -408 #x432 0 BPTR :io 4)
  69. (defflibfun 'SPLITNAME 'DOSBASE -414 #x65432 '* '* '* '* '* '*)
  70. (defflibfun 'SAMELOCK 'DOSBASE -420 #x32 '* '* '*)
  71. (defflibfun 'SETMODE 'DOSBASE -426 #x32 0 BPTR -4)
  72. (defflibfun 'EXALL 'DOSBASE -432 #x65432 0 BPTR 'string 4 -4 '*)
  73. (defflibfun 'READLINK 'DOSBASE -438 #x65432 '* '* '* '* '* '*)
  74. (defflibfun 'MAKELINK 'DOSBASE -444 #x432 '* '* '* '*)
  75. (defflibfun 'CHANGEMODE 'DOSBASE -450 #x432 '* '* '* '*)
  76. (defflibfun 'SETFILESIZE 'DOSBASE -456 #x432 '* '* '* '*)
  77. (defflibfun 'SETIOERR 'DOSBASE -462 #x2 '* '*)
  78. (defflibfun 'FAULT 'DOSBASE -468 #x5432 -4 -4 'string :io 4)
  79. (defflibfun 'PRINTFAULT 'DOSBASE -474 #x32 '* '* '*)
  80. (defflibfun 'ERRORREPORT 'DOSBASE -480 #x5432 '* '* '* '* '*)
  81. (defflibfun 'CLI 'DOSBASE -492 #x0 '*)
  82. (defflibfun 'CREATENEWPROC 'DOSBASE -498 #x2 '* '*)
  83. (defflibfun 'RUNCOMMAND 'DOSBASE -504 #x5432 '* '* '* '* '*)
  84. (defflibfun 'GETCONSOLETASK 'DOSBASE -510 #x0 '*)
  85. (defflibfun 'SETCONSOLETASK 'DOSBASE -516 #x2 '* '*)
  86. (defflibfun 'GETFILESYSTASK 'DOSBASE -522 #x0 '*)
  87. (defflibfun 'SETFILESYSTASK 'DOSBASE -528 #x2 '* '*)
  88. (defflibfun 'GETARGSTR 'DOSBASE -534 #x0 '*)
  89. (defflibfun 'SETARGSTR 'DOSBASE -540 #x2 '* '*)
  90. (defflibfun 'FINDCLIPROC 'DOSBASE -546 #x2 '* '*)
  91. (defflibfun 'MAXCLI 'DOSBASE -552 #x0 '*)
  92. (defflibfun 'SETCURRENTDIRNAME 'DOSBASE -558 #x2 '* '*)
  93. (defflibfun 'GETCURRENTDIRNAME 'DOSBASE -564 #x32 0 :io 4)
  94. (defflibfun 'SETPROGRAMNAME 'DOSBASE -570 #x2 '* '*)
  95. (defflibfun 'GETPROGRAMNAME 'DOSBASE -576 #x32 0 :io 4)
  96. (defflibfun 'SETPROMPT 'DOSBASE -582 #x2 '* '*)
  97. (defflibfun 'GETPROMPT 'DOSBASE -588 #x32 0 :io 4)
  98. (defflibfun 'SETPROGRAMDIR 'DOSBASE -594 #x2 '* '*)
  99. (defflibfun 'GETPROGRAMDIR 'DOSBASE -600 #x0 BPTR)
  100. (defflibfun 'SYSTEMTAGLIST 'DOSBASE -606 #x32 -4 'string '*)
  101. (defflibfun 'ASSIGNLOCK 'DOSBASE -612 #x32 '* '* '*)
  102. (defflibfun 'ASSIGNLATE 'DOSBASE -618 #x32 '* '* '*)
  103. (defflibfun 'ASSIGNPATH 'DOSBASE -624 #x32 '* '* '*)
  104. (defflibfun 'ASSIGNADD 'DOSBASE -630 #x32 '* '* '*)
  105. (defflibfun 'REMASSIGNLIST 'DOSBASE -636 #x32 '* '* '*)
  106. (defflibfun 'GETDEVICEPROC 'DOSBASE -642 #x32 '* '* '*)
  107. (defflibfun 'FREEDEVICEPROC 'DOSBASE -648 #x2 '* '*)
  108. (defflibfun 'LOCKDOSLIST 'DOSBASE -654 #x2 '* '*)
  109. (defflibfun 'UNLOCKDOSLIST 'DOSBASE -660 #x2 '* '*)
  110. (defflibfun 'ATTEMPTLOCKDOSLIST 'DOSBASE -666 #x2 '* '*)
  111. (defflibfun 'REMDOSENTRY 'DOSBASE -672 #x2 '* '*)
  112. (defflibfun 'ADDDOSENTRY 'DOSBASE -678 #x2 '* '*)
  113. (defflibfun 'FINDDOSENTRY 'DOSBASE -684 #x432 '* '* '* '*)
  114. (defflibfun 'NEXTDOSENTRY 'DOSBASE -690 #x32 '* '* '*)
  115. (defflibfun 'MAKEDOSENTRY 'DOSBASE -696 #x32 '* '* '*)
  116. (defflibfun 'FREEDOSENTRY 'DOSBASE -702 #x2 '* '*)
  117. (defflibfun 'ISFILESYSTEM 'DOSBASE -708 #x2 0 'string)
  118. (defflibfun 'FORMAT 'DOSBASE -714 #x432 '* '* '* '*)
  119. (defflibfun 'RELABEL 'DOSBASE -720 #x32 '* '* '*)
  120. (defflibfun 'INHIBIT 'DOSBASE -726 #x32 '* '* '*)
  121. (defflibfun 'ADDBUFFERS 'DOSBASE -732 #x32 '* '* '*)
  122. (defflibfun 'COMPAREDATES 'DOSBASE -738 #x32 '* '* '*)
  123. (defflibfun 'DATETOSTR 'DOSBASE -744 #x2 0 '*)
  124. (defflibfun 'STRTODATE 'DOSBASE -750 #x2 0 '*)
  125. (defflibfun 'INTERNALLOADSEG 'DOSBASE -756 #xBA91 '* '* '* '* '*)
  126. (defflibfun 'INTERNALUNLOADSEG 'DOSBASE -762 #xA2 '* '* '*)
  127. (defflibfun 'NEWLOADSEG 'DOSBASE -768 #x32 '* '* '*)
  128. (defflibfun 'ADDSEGMENT 'DOSBASE -774 #x432 '* '* '* '*)
  129. (defflibfun 'FINDSEGMENT 'DOSBASE -780 #x432 '* '* '* '*)
  130. (defflibfun 'REMSEGMENT 'DOSBASE -786 #x2 '* '*)
  131. (defflibfun 'CHECKSIGNAL 'DOSBASE -792 #x2 '* '*)
  132. (defflibfun 'READARGS 'DOSBASE -798 #x432 '* '* '* '*)
  133. (defflibfun 'FINDARG 'DOSBASE -804 #x32 '* '* '*)
  134. (defflibfun 'READITEM 'DOSBASE -810 #x432 '* '* '* '*)
  135. (defflibfun 'STRTOLONG 'DOSBASE -816 #x32 -4 'string '*)
  136. (defflibfun 'MATCHFIRST 'DOSBASE -822 #x32 '* '* '*)
  137. (defflibfun 'MATCHNEXT 'DOSBASE -828 #x2 '* '*)
  138. (defflibfun 'MATCHEND 'DOSBASE -834 #x2 '* '*)
  139. (defflibfun 'PARSEPATTERN 'DOSBASE -840 #x432 '* '* '* '*)
  140. (defflibfun 'MATCHPATTERN 'DOSBASE -846 #x32 '* '* '*)
  141. (defflibfun 'FREEARGS 'DOSBASE -858 #x2 '* '*)
  142. (defflibfun 'FILEPART 'DOSBASE -870 #x2 '* '*) ;dangerous: returns pointer into string
  143. (defflibfun 'PATHPART 'DOSBASE -876 #x2 '* '*)
  144. (defflibfun 'ADDPART 'DOSBASE -882 #x432 0 :io 'string 4)
  145. (defflibfun 'STARTNOTIFY 'DOSBASE -888 #x2 '* '*)
  146. (defflibfun 'ENDNOTIFY 'DOSBASE -894 #x2 '* '*)
  147. (defflibfun 'SETVAR 'DOSBASE -900 #x5432 0 'string 'string -4 4)
  148. (defflibfun 'GETVAR 'DOSBASE -906 #x5432 -4 'string 'string -4 4)
  149. (defflibfun 'DELETEVAR 'DOSBASE -912 #x32 0 'string 4)
  150. (defflibfun 'FINDVAR 'DOSBASE -918 #x32 '* 'string 4)
  151. (defflibfun 'CLIINITNEWCLI 'DOSBASE -930 #x9 '* '*)
  152. (defflibfun 'CLIINITRUN 'DOSBASE -936 #x9 '* '*)
  153. (defflibfun 'WRITECHARS 'DOSBASE -942 #x32 '* '* '*)
  154. (defflibfun 'PUTSTR 'DOSBASE -948 #x2 '* '*)
  155. (defflibfun 'VPRINTF 'DOSBASE -954 #x32 '* '* '*)
  156. (defflibfun 'PARSEPATTERNNOCASE 'DOSBASE -966 #x432 '* '* '* '*)
  157. (defflibfun 'MATCHPATTERNNOCASE 'DOSBASE -972 #x32 '* '* '*)
  158. (defflibfun 'SAMEDEVICE 'DOSBASE -984 #x32 '* '* '*)
  159. (defflibfun 'EXALLEND 'DOSBASE -990 #x65432 '* '* '* '* '* '*)
  160. (defflibfun 'SETOWNER 'DOSBASE -996 #x32 '* '* '*)
  161.  
  162. (provide "dos.library")
  163.