home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPNET5.ZIP / PASNETA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-03-04  |  7.4 KB  |  159 lines
  1. {$V-}
  2.  
  3. UNIT PASNETA;
  4.  
  5. {
  6. Turbo Pascal 5.0 unit for Novell Netware interface
  7.  
  8. based on TPNET.ZIP for versions of Turbo Pascal prior to 4.0
  9.  
  10. Donald M. DeLapp
  11. 485 S. Sheridan Ave.
  12. Sheridan, WY 82801
  13. 307-674-6841
  14. }
  15.  
  16. INTERFACE
  17.  
  18. USES Dos;
  19.  
  20. {pasneta.pas
  21. this file contains the function and procedure declarations
  22. for the TurboPascal/Advanced NetWare interface}
  23.  
  24. type
  25. Strvar = String[52];
  26.  
  27. function xtndopn(var Mode, Handle: Integer;var Filename: Strvar): Integer;
  28. function setattr(var Func, Attribute: Integer; var Filename: Strvar): Integer;
  29. function eojstat(var Flag: Integer):integer;
  30. function PRLH_Log(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
  31.       LoLockLen,Flags,TimeOut: Integer): Integer;
  32. function PRLH_Rel(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
  33.       LoLockLen: Integer): Integer;
  34. function PRLH_Clr(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
  35.       LoLockLen: Integer): Integer;
  36. function PRLF_Log(var fcb,HiByteOffset,LoByteOffset,HiLockLen,LoLockLen,
  37.       Flags,TimeOut: Integer): Integer;
  38. function PRLF_Rel(var fcb,HiByteOffset,LoByteOffset: Integer): Integer;
  39. function PRLF_Clr(var fcb,HiByteOffset,LoByteOffset: Integer): Integer;
  40. function PRLS_Lck(var Flags,TimeOut: Integer): Integer;
  41. function PRLS_Rel: Integer;
  42. function PRLS_Clr: Integer;
  43. function OpenSem(var Sema4: Strvar; var SemaValu,HiHandle,LoHandle,OpenCnt: Integer): Integer;
  44. function ExamSem(var HiHandle,LoHandle,SemaValu,OpenCnt: Integer): Integer;
  45. function WaitSem(var HiHandle,LoHandle,TimeOut: Integer): Integer;
  46. function SigSem(var HiHandle,LoHandle: Integer): Integer;
  47. function ClosSem(var HiHandle,LoHandle: Integer): Integer;
  48. function setlck(var Func: Integer): Integer;
  49. function BakOuts(var Func: Integer): Integer;
  50. function btrans(var Mode: Integer): Integer;
  51. function etrans: Integer;
  52. function exclog(var FcbAddr: Integer): Integer;
  53. function exclcks(var Mode: Integer): Integer;
  54. function exculkf(var FcbAddr: Integer): Integer;
  55. function exculks: Integer;
  56. function excclrf(var FcbAddr: Integer): Integer;
  57. function excclrs: Integer;
  58. function reclog(var RecStr: Strvar;var flag,TimeOut:integer): Integer;
  59. function reclck(var Mode: Integer): Integer;
  60. function reculk(var Semaphore: Strvar): Integer;
  61. function reculks: Integer;
  62. function recclr(var Semaphore: Strvar): Integer;
  63. function recclrs: Integer;
  64. function eoj: Integer;
  65. function sysout: Integer;
  66. function volstat(var volume: Integer;var reply: Strvar): Integer;
  67. function locdrv:Integer;
  68. function wsid: Integer;
  69. function errmode(var mode: Integer):integer;
  70. function bcsmode(var mode: Integer):integer;
  71. function ctlspl(var Mode: Integer): Integer;
  72. function splreq(var RequestBlock, Reply: Strvar): Integer;
  73. function pipreq(var RequestBlock, Reply: Strvar): Integer;
  74. function dpath(var RequestBlock, Reply: Strvar): Integer;
  75. function syslog(var RequestBlock, Reply: Strvar): Integer;
  76. function fattr(var FcbAddr, Attribute: Integer): Integer;
  77. function updfcb(var FcbAddr: Integer): Integer;
  78. function cpyfile(var FcbSource, FcbDest, CountLow, CountHigh: Integer): Integer;
  79. function nettod(var time: Strvar):integer;
  80. function clsmode(var mode: Integer):integer;
  81. function drvmap(var drive: Integer): Integer;
  82. function retshl(var EnvirStr: Strvar; var Mode: Integer): Integer;
  83. function asclog(var Flags, TimeOut: Integer;var Asciiz: Strvar): Integer;
  84. function asculkf(var Asciiz: Strvar): Integer;
  85. function ascclrf(var Asciiz: Strvar): Integer;
  86. function Get_PSN: Integer;
  87. function Get_STA(var Mode,Segment,Offset: Integer):integer;
  88. function SetServ(var Mode,NewServ: Integer): Integer;
  89. function ModServ(var Mode,NewServ: Integer): Integer;
  90.  
  91. IMPLEMENTATION
  92.  
  93. {$L PASNETA.OBJ}
  94. function xtndopn(var Mode, Handle: Integer;var Filename: Strvar): Integer; external;
  95. function setattr(var Func, Attribute: Integer; var Filename: Strvar): Integer; external;
  96. function eojstat(var Flag: Integer):integer; external;
  97. function PRLH_Log(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
  98.       LoLockLen,Flags,TimeOut: Integer): Integer; external;
  99. function PRLH_Rel(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
  100.       LoLockLen: Integer): Integer; external;
  101. function PRLH_Clr(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
  102.       LoLockLen: Integer): Integer; external;
  103. function PRLF_Log(var fcb,HiByteOffset,LoByteOffset,HiLockLen,LoLockLen,
  104.       Flags,TimeOut: Integer): Integer; external;
  105. function PRLF_Rel(var fcb,HiByteOffset,LoByteOffset: Integer): Integer; external;
  106. function PRLF_Clr(var fcb,HiByteOffset,LoByteOffset: Integer): Integer; external;
  107. function PRLS_Lck(var Flags,TimeOut: Integer): Integer; external;
  108. function PRLS_Rel: Integer; external;
  109. function PRLS_Clr: Integer; external;
  110. function OpenSem(var Sema4: Strvar; var SemaValu,HiHandle,LoHandle,OpenCnt: Integer): Integer; external;
  111. function ExamSem(var HiHandle,LoHandle,SemaValu,OpenCnt: Integer): Integer; external;
  112. function WaitSem(var HiHandle,LoHandle,TimeOut: Integer): Integer; external;
  113. function SigSem(var HiHandle,LoHandle: Integer): Integer; external;
  114. function ClosSem(var HiHandle,LoHandle: Integer): Integer; external;
  115. function setlck(var Func: Integer): Integer; external;
  116. function BakOuts(var Func: Integer): Integer; external;
  117. function btrans(var Mode: Integer): Integer; external;
  118. function etrans: Integer; external;
  119. function exclog(var FcbAddr: Integer): Integer; external;
  120. function exclcks(var Mode: Integer): Integer; external;
  121. function exculkf(var FcbAddr: Integer): Integer; external;
  122. function exculks: Integer; external;
  123. function excclrf(var FcbAddr: Integer): Integer; external;
  124. function excclrs: Integer; external;
  125. function reclog(var RecStr: Strvar;var flag,TimeOut:integer): Integer; external;
  126. function reclck(var Mode: Integer): Integer; external;
  127. function reculk(var Semaphore: Strvar): Integer; external;
  128. function reculks: Integer; external;
  129. function recclr(var Semaphore: Strvar): Integer; external;
  130. function recclrs: Integer; external;
  131. function eoj: Integer; external;
  132. function sysout: Integer; external;
  133. function volstat(var volume: Integer;var reply: Strvar): Integer; external;
  134. function locdrv:Integer; external;
  135. function wsid: Integer; external;
  136. function errmode(var mode: Integer):integer; external;
  137. function bcsmode(var mode: Integer):integer; external;
  138. function ctlspl(var Mode: Integer): Integer; external;
  139. function splreq(var RequestBlock, Reply: Strvar): Integer; external;
  140. function pipreq(var RequestBlock, Reply: Strvar): Integer; external;
  141. function dpath(var RequestBlock, Reply: Strvar): Integer; external;
  142. function syslog(var RequestBlock, Reply: Strvar): Integer; external;
  143. function fattr(var FcbAddr, Attribute: Integer): Integer; external;
  144. function updfcb(var FcbAddr: Integer): Integer; external;
  145. function cpyfile(var FcbSource, FcbDest, CountLow, CountHigh: Integer): Integer; external;
  146. function nettod(var time: Strvar):integer; external;
  147. function clsmode(var mode: Integer):integer; external;
  148. function drvmap(var drive: Integer): Integer; external;
  149. function retshl(var EnvirStr: Strvar; var Mode: Integer): Integer; external;
  150. function asclog(var Flags, TimeOut: Integer;var Asciiz: Strvar): Integer; external;
  151. function asculkf(var Asciiz: Strvar): Integer; external;
  152. function ascclrf(var Asciiz: Strvar): Integer; external;
  153. function Get_PSN: Integer; external;
  154. function Get_STA(var Mode,Segment,Offset: Integer):integer; external;
  155. function SetServ(var Mode,NewServ: Integer): Integer; external;
  156. function ModServ(var Mode,NewServ: Integer): Integer; external;
  157.  
  158. END.
  159.