home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-atalkwsh.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  10.3 KB  |  185 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-atalkwsh.ads,v $ 
  2. -- $Revision: 1.11 $ $Date: 96/03/15 12:51:26 $ $Author: stm $ 
  3. -- See end of file for Copyright (c) information.
  4.  
  5. package Win32.Atalkwsh is
  6.  
  7.     DECIMAL_BASE                 : constant := 10;          -- atalkwsh.h:32
  8.     ATPROTO_BASE                 : constant := 16000;       -- atalkwsh.h:38
  9.     SOL_APPLETALK                : constant := 16000;       -- atalkwsh.h:39
  10.     DDPPROTO_RTMP                : constant := 16001;       -- atalkwsh.h:41
  11.     DDPPROTO_NBP                 : constant := 16002;       -- atalkwsh.h:42
  12.     DDPPROTO_ATP                 : constant := 16003;       -- atalkwsh.h:43
  13.     DDPPROTO_AEP                 : constant := 16004;       -- atalkwsh.h:44
  14.     DDPPROTO_RTMPRQ              : constant := 16005;       -- atalkwsh.h:45
  15.     DDPPROTO_ZIP                 : constant := 16006;       -- atalkwsh.h:46
  16.     DDPPROTO_ADSP                : constant := 16007;       -- atalkwsh.h:47
  17.     DDPPROTO_MAX                 : constant := 16255;       -- atalkwsh.h:49
  18.     ATPROTO_ADSP                 : constant := 16256;       -- atalkwsh.h:55
  19.     ATPROTO_ATP                  : constant := 16257;       -- atalkwsh.h:56
  20.     ATPROTO_ASP                  : constant := 16258;       -- atalkwsh.h:57
  21.     ATPROTO_PAP                  : constant := 16259;       -- atalkwsh.h:58
  22.     SO_REGISTER_NAME             : constant := 16#a000#;    -- atalkwsh.h:60
  23.     SO_DEREGISTER_NAME           : constant := 16#a001#;    -- atalkwsh.h:61
  24.     SO_REMOVE_NAME               : constant := 16#a001#;    -- atalkwsh.h:62
  25.     SO_LOOKUP_NAME               : constant := 16#a002#;    -- atalkwsh.h:63
  26.     SO_CONFIRM_NAME              : constant := 16#a003#;    -- atalkwsh.h:64
  27.     SO_LOOKUP_MYZONE             : constant := 16#a004#;    -- atalkwsh.h:65
  28.     SO_GETMYZONE                 : constant := 16#a004#;    -- atalkwsh.h:66
  29.     SO_LOOKUP_ZONES              : constant := 16#a005#;    -- atalkwsh.h:67
  30.     SO_GETZONELIST               : constant := 16#a005#;    -- atalkwsh.h:68
  31.     SO_LOOKUP_ZONES_ON_ADAPTER   : constant := 16#a006#;    -- atalkwsh.h:69
  32.     SO_GETLOCALZONES             : constant := 16#a006#;    -- atalkwsh.h:70
  33.     SO_LOOKUP_NETDEF_ON_ADAPTER  : constant := 16#a007#;    -- atalkwsh.h:71
  34.     SO_GETNETINFO                : constant := 16#a007#;    -- atalkwsh.h:72
  35.     SO_PAP_SET_SERVER_STATUS     : constant := 16#a007#;    -- atalkwsh.h:78
  36.     SO_PAP_GET_SERVER_STATUS     : constant := 16#a008#;    -- atalkwsh.h:79
  37.     SO_PAP_PRIME_READ            : constant := 16#a009#;    -- atalkwsh.h:80
  38.     ATADDR_ANY                   : constant := 0;           -- atalkwsh.h:83
  39.     ATADDR_BROADCAST             : constant := 16#ff#;      -- atalkwsh.h:84
  40.     WSAEMSGPARTIAL               : constant := 10100;       -- atalkwsh.h:90
  41.     MAX_PAP_STATUS_SIZE          : constant := 255;         -- atalkwsh.h:94
  42.     MIN_PAP_READ_BUF_SIZE        : constant := 4096;        -- atalkwsh.h:95
  43.     PAP_UNUSED_STATUS_BYTES      : constant := 4;           -- atalkwsh.h:99
  44.     MAX_ENTITY                   : constant := 32;          -- atalkwsh.h:141
  45.  
  46.     type SOCKADDR_AT;                                       -- atalkwsh.h:106
  47.     type WSH_ATALK_ADDRESS;                                 -- atalkwsh.h:130
  48.     type WSH_NBP_NAME;                                      -- atalkwsh.h:150
  49.     type WSH_NBP_TUPLE;                                     -- atalkwsh.h:157
  50.     type WSH_LOOKUP_ZONES;                                  -- atalkwsh.h:163
  51.     type WSH_LOOKUP_NETDEF_ON_ADAPTER;                      -- atalkwsh.h:173
  52.     type WSH_LOOKUP_NAME;                                   -- atalkwsh.h:183
  53.     type WSH_PAP_GET_SERVER_STATUS;                         -- atalkwsh.h:194
  54.  
  55.     type PSOCKADDR_AT is access all SOCKADDR_AT;            -- atalkwsh.h:112
  56.     type PWSH_ATALK_ADDRESS is access all WSH_ATALK_ADDRESS;-- atalkwsh.h:130
  57.     type PWSH_NBP_NAME is access all WSH_NBP_NAME;          -- atalkwsh.h:150
  58.     type PWSH_NBP_TUPLE is access all WSH_NBP_TUPLE;        -- atalkwsh.h:157
  59.     type PWSH_REGISTER_NAME is access all WSH_NBP_NAME;     -- atalkwsh.h:159
  60.     type PWSH_DEREGISTER_NAME is access all WSH_NBP_NAME;   -- atalkwsh.h:160
  61.     type PWSH_REMOVE_NAME is access all WSH_NBP_NAME;       -- atalkwsh.h:161
  62.     type PWSH_LOOKUP_ZONES is access all WSH_LOOKUP_ZONES;  -- atalkwsh.h:171
  63.     type PWSH_LOOKUP_NETDEF_ON_ADAPTER is 
  64.         access all WSH_LOOKUP_NETDEF_ON_ADAPTER;            -- atalkwsh.h:181
  65.     type PWSH_LOOKUP_NAME is access all WSH_LOOKUP_NAME;    -- atalkwsh.h:192
  66.     type PWSH_PAP_GET_SERVER_STATUS is access all WSH_PAP_GET_SERVER_STATUS;
  67.                                                             -- atalkwsh.h:200
  68.  
  69.     type SOCKADDR_AT is                                     -- atalkwsh.h:106
  70.         record
  71.             sat_family: Win32.USHORT;                       -- atalkwsh.h:108
  72.             sat_net   : Win32.USHORT;                       -- atalkwsh.h:109
  73.             sat_node  : Win32.UCHAR;                        -- atalkwsh.h:110
  74.             sat_socket: Win32.UCHAR;                        -- atalkwsh.h:111
  75.         end record;
  76.  
  77.     type struct_anonymous0_t is                             -- atalkwsh.h:128
  78.         record
  79.             Network: Win32.USHORT;                          -- atalkwsh.h:125
  80.             Node   : Win32.UCHAR;                           -- atalkwsh.h:126
  81.             Socket : Win32.UCHAR;                           -- atalkwsh.h:127
  82.         end record;
  83.  
  84.     type WSH_ATALK_ADDRESS_kind is (                        -- atalkwsh.h:130
  85.         ATALK_ADDRESS_PIECES_kind,
  86.         Address_kind
  87.     );
  88.  
  89.     type WSH_ATALK_ADDRESS (
  90.         Which: WSH_ATALK_ADDRESS_kind := ATALK_ADDRESS_PIECES_kind) is
  91.                                                             -- atalkwsh.h:130
  92.         record
  93.             case Which is
  94.                 when ATALK_ADDRESS_PIECES_kind =>
  95.                     ATALK_ADDRESS_PIECES: struct_anonymous0_t;
  96.                                                             -- atalkwsh.h:128
  97.                 when Address_kind =>
  98.                     Address     : Win32.ULONG;              -- atalkwsh.h:129
  99.             end case;
  100.         end record;
  101.  
  102.     pragma Convention(C, WSH_ATALK_ADDRESS);
  103.     pragma Unchecked_Union(WSH_ATALK_ADDRESS);
  104.  
  105.     type WSH_NBP_NAME is                                    -- atalkwsh.h:150
  106.         record
  107.             ObjectNameLen: Win32.CHAR;                      -- atalkwsh.h:144
  108.             ObjectName   : Win32.CHAR_Array(0..31);         -- atalkwsh.h:145
  109.             TypeNameLen  : Win32.CHAR;                      -- atalkwsh.h:146
  110.             TypeName     : Win32.CHAR_Array(0..31);         -- atalkwsh.h:147
  111.             ZoneNameLen  : Win32.CHAR;                      -- atalkwsh.h:148
  112.             ZoneName     : Win32.CHAR_Array(0..31);         -- atalkwsh.h:149
  113.         end record;
  114.  
  115.     type WSH_NBP_TUPLE is                                   -- atalkwsh.h:157
  116.         record
  117.             Address   : WSH_ATALK_ADDRESS;                  -- atalkwsh.h:154
  118.             Enumerator: Win32.USHORT;                       -- atalkwsh.h:155
  119.             NbpName   : WSH_NBP_NAME;                       -- atalkwsh.h:156
  120.         end record;
  121.  
  122.     subtype WSH_REGISTER_NAME is WSH_NBP_NAME;              -- atalkwsh.h:159
  123.  
  124.     subtype WSH_DEREGISTER_NAME is WSH_NBP_NAME;            -- atalkwsh.h:160
  125.  
  126.     subtype WSH_REMOVE_NAME is WSH_NBP_NAME;                -- atalkwsh.h:161
  127.  
  128.     type WSH_LOOKUP_ZONES is                                -- atalkwsh.h:163
  129.         record
  130.             NoZones: Win32.ULONG;                           -- atalkwsh.h:165
  131.         end record;
  132.  
  133.     type WSH_LOOKUP_NETDEF_ON_ADAPTER is                    -- atalkwsh.h:173
  134.         record
  135.             NetworkRangeLowerEnd: Win32.USHORT;             -- atalkwsh.h:175
  136.             NetworkRangeUpperEnd: Win32.USHORT;             -- atalkwsh.h:176
  137.         end record;
  138.  
  139.     type WSH_LOOKUP_NAME is                                 -- atalkwsh.h:183
  140.         record
  141.             LookupTuple: WSH_NBP_TUPLE;                     -- atalkwsh.h:185
  142.             NoTuples   : Win32.ULONG;                       -- atalkwsh.h:186
  143.         end record;
  144.  
  145.     type WSH_PAP_GET_SERVER_STATUS is                       -- atalkwsh.h:194
  146.         record
  147.             ServerAddr  : SOCKADDR_AT;                      -- atalkwsh.h:196
  148.             Reserved    : Win32.UCHAR_Array(0..PAP_UNUSED_STATUS_BYTES-1);
  149.                                                             -- atalkwsh.h:197
  150.             ServerStatus: Win32.UCHAR_Array(0..MAX_PAP_STATUS_SIZE);
  151.                                                             -- atalkwsh.h:198
  152.         end record;
  153.  
  154. private
  155.  
  156.     pragma Convention(C, SOCKADDR_AT);                      -- atalkwsh.h:106
  157.     pragma Convention(C, struct_anonymous0_t);              -- atalkwsh.h:128
  158.     pragma Convention(C, WSH_NBP_NAME);                     -- atalkwsh.h:150
  159.     pragma Convention(C, WSH_NBP_TUPLE);                    -- atalkwsh.h:157
  160.     pragma Convention(C, WSH_LOOKUP_ZONES);                 -- atalkwsh.h:163
  161.     pragma Convention(C, WSH_LOOKUP_NETDEF_ON_ADAPTER);     -- atalkwsh.h:173
  162.     pragma Convention(C, WSH_LOOKUP_NAME);                  -- atalkwsh.h:183
  163.     pragma Convention(C, WSH_PAP_GET_SERVER_STATUS);        -- atalkwsh.h:194
  164.  
  165. -------------------------------------------------------------------------------
  166. --
  167. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  168. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  169. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  170. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  171. -- the accuracy and the use of this file.  This file may be used, copied,
  172. -- modified and distributed only by licensees of Microsoft Corporation's
  173. -- WIN32 Software Development Kit in accordance with the terms of the 
  174. -- licensee's End-User License Agreement for Microsoft Software for the
  175. -- WIN32 Development Kit.
  176. --
  177. -- Copyright (c) Intermetrics, Inc. 1995
  178. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  179. -- Microsoft is a registered trademark and Windows and Windows NT are
  180. -- trademarks of Microsoft Corporation.
  181. --
  182. -------------------------------------------------------------------------------
  183.  
  184. end Win32.Atalkwsh;
  185.