home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpnetlnk.def < prev    next >
Text File  |  1994-05-24  |  3KB  |  98 lines

  1. DEFINITION MODULE WPNETLNK;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPNetLink;
  5.  
  6.   Copyright (c) 1994 by Juergen Neuhoff
  7. ****************************************************************************)
  8.  
  9. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  10. (*$CDECL+    C-style procedures                                         *)
  11. (*$A         default alignment for record fields                        *)
  12.  
  13. IMPORT SOM;
  14. IMPORT WPSHADOW;
  15. IMPORT OS2DEF;
  16.  
  17. TYPE PSOMClass              = SOM.PSOMClass;
  18. TYPE INTEGER4               = SOM.INTEGER4;
  19. TYPE somMToken              = SOM.somMToken;
  20. TYPE somDToken              = SOM.somDToken;
  21. TYPE somMethodProc          = SOM.somMethodProc;
  22. TYPE PWPNetLink             = POINTER TO WPNetLink;
  23. TYPE PM_WPNetLink           = POINTER TO M_WPNetLink;
  24.  
  25. (************************************************************************
  26.   Additional TYPE- and CONST-declarations supporting WPNetLink
  27. *************************************************************************)
  28.  
  29. TYPE PSZ                    = OS2DEF.PSZ;
  30.  
  31. (*************************************************************************
  32.   SOM class API for WPNetLink, including type-bound procedures
  33. **************************************************************************)
  34.  
  35. CONST
  36.   WPNetLink_MajorVersion     = 1;
  37.   WPNetLink_MinorVersion     = 2;
  38.  
  39. TYPE
  40.   WPNetLinkClassDataStructure  = RECORD
  41.     classObject                  : PSOMClass;
  42.     wpSetObjectNetId             : somMToken;
  43.     wpQueryObjectNetId           : somMToken;
  44.                                  END;
  45.  
  46. VAR
  47.   WPNetLinkClassData : WPNetLinkClassDataStructure;
  48.  
  49. TYPE
  50.   (*$SOM+ *)
  51.   WPNetLink = RECORD( WPSHADOW.WPShadow ) END;
  52.   (*$SOM- *)
  53.  
  54.  
  55. PROCEDURE WPNetLinkNewClass
  56. (
  57.   majorVersion  : INTEGER4;
  58.   minorVersion  : INTEGER4
  59. )               : PSOMClass;
  60.  
  61. PROCEDURE( Self : PWPNetLink ) wpSetObjectNetId
  62. (
  63.   szNetIdentity : ARRAY OF CHAR
  64. )               : BOOLEAN;
  65.  
  66. PROCEDURE( Self : PWPNetLink ) wpQueryObjectNetId( ) : PSZ;
  67.  
  68.  
  69. (*************************************************************************
  70.   SOM class API for M_WPNetLink, including type-bound procedures
  71. **************************************************************************)
  72.  
  73. CONST
  74.   M_WPNetLink_MajorVersion   = 1;
  75.   M_WPNetLink_MinorVersion   = 2;
  76.  
  77. TYPE
  78.   M_WPNetLinkClassDataStructure   = RECORD
  79.     classObject                     : PSOMClass;
  80.                                     END;
  81.  
  82. VAR
  83.   M_WPNetLinkClassData : M_WPNetLinkClassDataStructure;
  84.  
  85. TYPE
  86.   (*$SOM+ *)
  87.   M_WPNetLink = RECORD( WPSHADOW.M_WPShadow ) END;
  88.   (*$SOM- *)
  89.  
  90.  
  91. PROCEDURE M_WPNetLinkNewClass
  92. (
  93.   majorVersion : INTEGER4;
  94.   minorVersion : INTEGER4
  95. )              : PSOMClass;
  96.  
  97. END WPNETLNK.
  98.