home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / netz / netware / nwsynch.pa1 < prev    next >
Text File  |  1992-03-02  |  5KB  |  107 lines
  1. {!R! FONT 15; FTMD 15; EXIT;}
  2.  
  3.  
  4. {***************************************************************************}
  5. {** Program : NWSYNCH                                                     **}
  6. {***************************************************************************}
  7. {** Version : 1.3             ** Started : 11/11/91  ** Ended :   /  /    **}
  8. {***************************************************************************}
  9. {******************************** Description ******************************}
  10. {***************************************************************************}
  11. {** OOP library for Netware API                                           **}
  12. {**                                                                       **}
  13. {** This unit forms the second level object : SYNCH                       **}
  14. {** This object is a descandent of          : NETWARE                     **}
  15. {**                                                                       **}
  16. {**                                                                       **}
  17. {**                                                                       **}
  18. {**                                                                       **}
  19. {***************************************************************************}
  20. {******************************** Information ******************************}
  21. {***************************************************************************}
  22. {** Provides Netware Synchronisation Services                             **}
  23. {**                                                                       **}
  24. {**                                                                       **}
  25. {**                                                                       **}
  26. {** This code is (c) 1991,1992 Tony Covelli                               **}
  27. {** Portions (c) Novell Inc,                                              **}
  28. {**                                                                       **}
  29. {**                                                                       **}
  30. {***************************************************************************}
  31.  
  32. {$I NETWARE.INC}
  33.  
  34. UNIT NWSYNCH;
  35.  
  36. INTERFACE
  37.  
  38. USES
  39.  
  40.   netware, nwvar;
  41.  
  42. TYPE
  43.  
  44.   pSynchOBJ = ^SynchOBJ;
  45.   SynchOBJ  = object (NetwareOBJ)
  46.  
  47.     CONSTRUCTOR Init;
  48.  
  49.     FUNCTION    ClearFile             (FileName : PathNameType) : WORD;
  50.  
  51.     PROCEDURE   ClearFileSet;
  52.  
  53.     FUNCTION    ClearLogicalRecord    (LogicalRecordName : LogicalRecordNameType) : WORD;
  54.  
  55.     PROCEDURE   ClearLogicalRecordSet;
  56.  
  57.     FUNCTION    ClearPhysicalRecord   (FileHandle : WORD; RecordOffset, RecordLength : LONGINT) : WORD;
  58.  
  59.     PROCEDURE   ClearPhysicalRecordSet;
  60.  
  61.     FUNCTION    CloseSemaphore        (SemaphoreHandle : LONGINT) : WORD;
  62.  
  63.     FUNCTION    ExamineSemaphore      (SemaphoreHandle : LONGINT; VAR SemaphoreValue : WORD;
  64.                                        VAR OpenCount : WORD) : WORD;
  65.  
  66.     FUNCTION    GetLockMode : WORD;
  67.  
  68.     FUNCTION    LockFileSet           (TimeOut : WORD) : WORD;
  69.  
  70.     FUNCTION    LockLogicalRecordSet  (LockDirective : BYTE; Timeout : WORD) : WORD;
  71.  
  72.     FUNCTION    LockPhysicalRecordSet (LockDirective : BYTE; TimeOut : WORD) : WORD;
  73.  
  74.     FUNCTION    LogFile               (FileName : PathNameType; LockDirective : BYTE; TimeOut : WORD) : WORD;
  75.  
  76.     FUNCTION    LogLogicalRecord      (LogicalRecordName : LogicalRecordNameType;
  77.                                        LockDirective : BYTE; TimeOut : WORD) : WORD;
  78.  
  79.     FUNCTION    LogPhysicalRecord     (FileHandle : WORD; RecordOffSet, RecordLength : LONGINT;
  80.                                        LockDirective : BYTE; TimeOut : WORD) : WORD;
  81.  
  82.     FUNCTION    OpenSemaphore         (SemaphoreName : SemaphoreNameType; InitialValue : WORD;
  83.                                        VAR SemaphoreHandle : LONGINT; VAR OpenCount : WORD) : WORD;
  84.  
  85.     FUNCTION    ReleaseFile           (FileName : PathNameType) : WORD;
  86.  
  87.     PROCEDURE   ReleaseFileSet;
  88.  
  89.     FUNCTION    ReleaseLogicalRecord  (LogicalRecordName : LogicalRecordNameType) : WORD;
  90.  
  91.     PROCEDURE   ReleaseLogicalRecordSet;
  92.  
  93.     FUNCTION    ReleasePhysicalRecord (FileHandle : WORD; RecordOffset, RecordLength : LONGINT) : WORD;
  94.  
  95.     PROCEDURE   ReleasePhysicalRecordSet;
  96.  
  97.     FUNCTION    SetLockMode           (LockMode : BYTE) : WORD;
  98.  
  99.     FUNCTION    SignalSemaphore       (SemaphoreHandle : LONGINT) : WORD;
  100.  
  101.     FUNCTION    WaitOnSemaphore       (SemaphoreHandle : LONGINT; TimeOut : WORD) : WORD;
  102.  
  103.     DESTRUCTOR Done; VIRTUAL;
  104.  
  105.   END;
  106.  
  107.