home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PASNET.ZIP / PASNET.PAS next >
Encoding:
Pascal/Delphi Source File  |  1988-06-28  |  6.9 KB  |  167 lines
  1. unit PasNet;
  2.  
  3.  
  4. {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
  5. {-    This is a old Pascal 3.0 include file that I modified into a TP4.0 -}
  6. {- unit.  I seems to work alright, in that it compiles.  I will be able  -}
  7. {- to test it more completly when my current project needs to me made    -}
  8. {- network friendly.                                                     -}
  9. {-                                                                       -}
  10. {-    Randall Scott Wert                                                 -}
  11. {-    GENIE         R.WERT                                               -}
  12. {-    CIS           72167,3425                                           -}
  13. {-    BIX           rwert                                                -}
  14. {-    Phone         (219) 637-6852                                       -}
  15. {-                  4908 Crawford Road                                   -}
  16. {-                  Fort Wayne,  IN  46845                               -}
  17. {-                                                                       -}
  18. {-   If you have any suggestions or complients feel free to contact me   -}
  19. {- at the above locations.                                               -}
  20. {-                                Thanks                                 -}
  21. {-                                Randall Wert                           -}
  22. {-                                6/20/88                                -}
  23. {-                                                                       -}
  24. {- PASNET.PAS                                                            -}
  25. {- this file contains the function and procedure declarations            -}
  26. {- for the TurboPascal/Advanced NetWare interface                        -}
  27. {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
  28.  
  29. interface
  30.  
  31. type
  32. Strvar = String[52];
  33.  
  34. function xtndopn(var Mode, Handle: Integer;var Filename: Strvar): Integer;
  35. function setattr(var Func, Attribute: Integer; var Filename: Strvar): Integer;
  36. function eojstat(var Flag: Integer):integer;
  37. function PRLH_Log(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
  38.       LoLockLen,Flags,TimeOut: Integer): Integer;
  39. function PRLH_Rel(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
  40.       LoLockLen: Integer): Integer;
  41. function PRLH_Clr(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
  42.       LoLockLen: Integer): Integer;
  43. function PRLF_Log(var fcb,HiByteOffset,LoByteOffset,HiLockLen,LoLockLen,
  44.       Flags,TimeOut: Integer): Integer;
  45. function PRLF_Rel(var fcb,HiByteOffset,LoByteOffset: Integer): Integer;
  46. function PRLF_Clr(var fcb,HiByteOffset,LoByteOffset: Integer): Integer;
  47. function PRLS_Lck(var Flags,TimeOut: Integer): Integer;
  48. function PRLS_Rel: Integer;
  49. function PRLS_Clr: Integer;
  50. function OpenSem(var Sema4: Strvar; var SemaValu,HiHandle,LoHandle,OpenCnt: Integer): Integer;
  51. function ExamSem(var HiHandle,LoHandle,SemaValu,OpenCnt: Integer): Integer;
  52. function WaitSem(var HiHandle,LoHandle,TimeOut: Integer): Integer;
  53. function SigSem(var HiHandle,LoHandle: Integer): Integer;
  54. function ClosSem(var HiHandle,LoHandle: Integer): Integer;
  55. function setlck(var Func: Integer): Integer;
  56. function BakOuts(var Func: Integer): Integer;
  57. function btrans(var Mode: Integer): Integer;
  58. function etrans: Integer;
  59. function exclog(var FcbAddr: Integer): Integer;
  60. function exclcks(var Mode: Integer): Integer;
  61. function exculkf(var FcbAddr: Integer): Integer;
  62. function exculks: Integer;
  63. function excclrf(var FcbAddr: Integer): Integer;
  64. function excclrs: Integer;
  65. function reclog(var RecStr: Strvar;var flag,TimeOut:integer): Integer;
  66. function reclck(var Mode: Integer): Integer;
  67. function reculk(var Semaphore: Strvar): Integer;
  68. function reculks: Integer;
  69. function recclr(var Semaphore: Strvar): Integer;
  70. function recclrs: Integer;
  71. function eoj: Integer;
  72. function sysout: Integer;
  73. function volstat(var volume: Integer;var reply: Strvar): Integer;
  74. function locdrv:Integer;
  75. function wsid: Integer;
  76. function errmode(var mode: Integer):integer;
  77. function bcsmode(var mode: Integer):integer;
  78. function ctlspl(var Mode: Integer): Integer;
  79. function splreq(var RequestBlock, Reply: Strvar): Integer;
  80. function pipreq(var RequestBlock, Reply: Strvar): Integer;
  81. function dpath(var RequestBlock, Reply: Strvar): Integer;
  82. function syslog(var RequestBlock, Reply: Strvar): Integer;
  83. function fattr(var FcbAddr, Attribute: Integer): Integer;
  84. function updfcb(var FcbAddr: Integer): Integer;
  85. function cpyfile(var FcbSource, FcbDest, CountLow, CountHigh: Integer): Integer;
  86. function nettod(var time: Strvar):integer;
  87.  
  88. function clsmode(var mode: Integer):integer;
  89. function drvmap(var drive: Integer): Integer;
  90. function retshl(var EnvirStr: Strvar; var Mode: Integer): Integer;
  91. function asclog(var Flags, TimeOut: Integer;var Asciiz: Strvar): Integer;
  92. function asculkf(var Asciiz: Strvar): Integer;
  93. function ascclrf(var Asciiz: Strvar): Integer;
  94. function Get_PSN: Integer;
  95. function Get_STA(var Mode,Segment,Offset: Integer):integer;
  96. function SetServ(var Mode,NewServ: Integer): Integer;
  97. function ModServ(var Mode,NewServ: Integer): Integer;
  98.  
  99.  
  100. implementation
  101. {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
  102. {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
  103.  
  104. {$L PASNETA.OBJ}
  105. function xtndopn; external;
  106. function setattr; external;
  107. function eojstat; external;
  108. function PRLH_Log; external;
  109. function PRLH_Rel; external;
  110. function PRLH_Clr; external;
  111. function PRLF_Log; external;
  112. function PRLF_Rel; external;
  113. function PRLF_Clr; external;
  114. function PRLS_Lck; external;
  115. function PRLS_Rel; external;
  116. function PRLS_Clr; external;
  117. function OpenSem; external;
  118. function ExamSem; external;
  119. function WaitSem; external;
  120. function SigSem; external;
  121. function ClosSem; external;
  122. function setlck; external;
  123. function BakOuts; external;
  124. function btrans; external;
  125. function etrans; external;
  126. function exclog; external;
  127. function exclcks; external;
  128. function exculkf; external;
  129. function exculks; external;
  130. function excclrf; external;
  131. function excclrs; external;
  132. function reclog; external;
  133. function reclck; external;
  134. function reculk; external;
  135. function reculks; external;
  136. function recclr; external;
  137. function recclrs; external;
  138. function eoj; external;
  139. function sysout; external;
  140. function volstat; external;
  141. function locdrv; external;
  142. function wsid; external;
  143. function errmode; external;
  144. function bcsmode; external;
  145. function ctlspl; external;
  146. function splreq; external;
  147. function pipreq; external;
  148. function dpath; external;
  149. function syslog; external;
  150. function fattr; external;
  151. function updfcb; external;
  152. function cpyfile; external;
  153. function nettod; external;
  154. function clsmode; external;
  155. function drvmap; external;
  156. function retshl; external;
  157. function asclog; external;
  158. function asculkf; external;
  159. function ascclrf; external;
  160. function Get_PSN; external;
  161. function Get_STA; external;
  162. function SetServ; external;
  163. function ModServ; external;
  164.  
  165. begin
  166. end
  167. .