home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPNET.ZIP / PASCAL.PAS next >
Encoding:
Pascal/Delphi Source File  |  1987-02-04  |  4.6 KB  |  70 lines
  1. {pasneta.pas
  2. this file contains the function and procedure declarations
  3. for the TurboPascal/Advanced NetWare interface}
  4. type
  5. Strvar = String[52];
  6.  
  7. function xtndopn(var Mode, Handle: Integer;var Filename: Strvar): Integer; external 'PASNETA.COM';
  8. function setattr(var Func, Attribute: Integer; var Filename: Strvar): Integer; external xtndopn[3];
  9. function eojstat(var Flag: Integer):integer; external xtndopn[6];
  10. function PRLH_Log(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
  11.       LoLockLen,Flags,TimeOut: Integer): Integer; external xtndopn[9];
  12. function PRLH_Rel(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
  13.       LoLockLen: Integer): Integer; external xtndopn[12];
  14. function PRLH_Clr(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
  15.       LoLockLen: Integer): Integer; external xtndopn[15];
  16. function PRLF_Log(var fcb,HiByteOffset,LoByteOffset,HiLockLen,LoLockLen,
  17.       Flags,TimeOut: Integer): Integer; external xtndopn[18];
  18. function PRLF_Rel(var fcb,HiByteOffset,LoByteOffset: Integer): Integer; external xtndopn[21];
  19. function PRLF_Clr(var fcb,HiByteOffset,LoByteOffset: Integer): Integer; external xtndopn[24];
  20. function PRLS_Lck(var Flags,TimeOut: Integer): Integer; external xtndopn[27];
  21. function PRLS_Rel: Integer; external xtndopn[30];
  22. function PRLS_Clr: Integer; external xtndopn[33];
  23. function OpenSem(var Sema4: Strvar; var SemaValu,HiHandle,LoHandle,OpenCnt: Integer): Integer; external xtndopn[36];
  24. function ExamSem(var HiHandle,LoHandle,SemaValu,OpenCnt: Integer): Integer; external xtndopn[39];
  25. function WaitSem(var HiHandle,LoHandle,TimeOut: Integer): Integer; external xtndopn[42];
  26. function SigSem(var HiHandle,LoHandle: Integer): Integer; external xtndopn[45];
  27. function ClosSem(var HiHandle,LoHandle: Integer): Integer; external xtndopn[48];
  28. function setlck(var Func: Integer): Integer; external xtndopn[51];
  29. function BakOuts(var Func: Integer): Integer; external xtndopn[54];
  30. function btrans(var Mode: Integer): Integer; external xtndopn[57];
  31. function etrans: Integer; external xtndopn[60];
  32. function exclog(var FcbAddr: Integer): Integer; external xtndopn[63];
  33. function exclcks(var Mode: Integer): Integer; external xtndopn[66];
  34. function exculkf(var FcbAddr: Integer): Integer; external xtndopn[69];
  35. function exculks: Integer; external xtndopn[72];
  36. function excclrf(var FcbAddr: Integer): Integer; external xtndopn[75];
  37. function excclrs: Integer; external xtndopn[78];
  38. function reclog(var RecStr: Strvar;var flag,TimeOut:integer): Integer; external xtndopn[81];
  39. function reclck(var Mode: Integer): Integer; external xtndopn[84];
  40. function reculk(var Semaphore: Strvar): Integer; external xtndopn[87];
  41. function reculks: Integer; external xtndopn[90];
  42. function recclr(var Semaphore: Strvar): Integer; external xtndopn[93];
  43. function recclrs: Integer; external xtndopn[96];
  44. function eoj: Integer; external xtndopn[99];
  45. function sysout: Integer; external xtndopn[102];
  46. function volstat(var volume: Integer;var reply: Strvar): Integer; external xtndopn[105];
  47. function locdrv:Integer; external xtndopn[108];
  48. function wsid: Integer; external xtndopn[111];
  49. function errmode(var mode: Integer):integer; external xtndopn[114];
  50. function bcsmode(var mode: Integer):integer; external xtndopn[117];
  51. function ctlspl(var Mode: Integer): Integer; external xtndopn[120];
  52. function splreq(var RequestBlock, Reply: Strvar): Integer; external xtndopn[123];
  53. function pipreq(var RequestBlock, Reply: Strvar): Integer; external xtndopn[126];
  54. function dpath(var RequestBlock, Reply: Strvar): Integer; external xtndopn[129];
  55. function syslog(var RequestBlock, Reply: Strvar): Integer; external xtndopn[132];
  56. function fattr(var FcbAddr, Attribute: Integer): Integer; external xtndopn[135];
  57. function updfcb(var FcbAddr: Integer): Integer; external xtndopn[138];
  58. function cpyfile(var FcbSource, FcbDest, CountLow, CountHigh: Integer): Integer; external xtndopn[141];
  59. function nettod(var time: Strvar):integer; external xtndopn[144];
  60. function clsmode(var mode: Integer):integer; external xtndopn[147];
  61. function drvmap(var drive: Integer): Integer; external xtndopn[150];
  62. function retshl(var EnvirStr: Strvar; var Mode: Integer): Integer; external xtndopn[153];
  63. function asclog(var Flags, TimeOut: Integer;var Asciiz: Strvar): Integer; external xtndopn[156];
  64. function asculkf(var Asciiz: Strvar): Integer; external xtndopn[159];
  65. function ascclrf(var Asciiz: Strvar): Integer; external xtndopn[162];
  66. function Get_PSN: Integer; external xtndopn[165];
  67. function Get_STA(var Mode,Segment,Offset: Integer):integer; external xtndopn[168];
  68. function SetServ(var Mode,NewServ: Integer): Integer; external xtndopn[171];
  69. function ModServ(var Mode,NewServ: Integer): Integer; external xtndopn[174];
  70.