home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-snmp.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  18.7 KB  |  395 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-snmp.ads,v $ 
  2. -- $Revision: 1.13 $ $Date: 96/03/15 12:55:53 $ $Author: stm $ 
  3. -- See end of file for Copyright (c) information.
  4.  
  5. with Win32.Malloc;
  6. with Win32.Strings;
  7.  
  8. package Win32.Snmp is
  9.  
  10.     SNMPAPI_NOERROR                : constant := 1;         -- snmp.h:42
  11.     SNMPAPI_ERROR                  : constant := 0;         -- snmp.h:43
  12.     ASN_UNIVERSAL                  : constant := 16#0#;     -- snmp.h:47
  13.     ASN_APPLICATION                : constant := 16#40#;    -- snmp.h:48
  14.     ASN_CONTEXTSPECIFIC            : constant := 16#80#;    -- snmp.h:49
  15.     ASN_PRIVATE                    : constant := 16#c0#;    -- snmp.h:50
  16.     ASN_PRIMATIVE                  : constant := 16#0#;     -- snmp.h:53
  17.     ASN_CONSTRUCTOR                : constant := 16#20#;    -- snmp.h:54
  18.     ASN_INTEGER                    : constant := 16#2#;     -- snmp.h:58
  19.     ASN_OCTETSTRING                : constant := 16#4#;     -- snmp.h:59
  20.     ASN_NULL                       : constant := 16#5#;     -- snmp.h:60
  21.     ASN_OBJECTIDENTIFIER           : constant := 16#6#;     -- snmp.h:61
  22.     ASN_SEQUENCE                   : constant := 16#30#;    -- snmp.h:64
  23.     ASN_SEQUENCEOF                 : constant := 16#30#;    -- snmp.h:65
  24.     ASN_RFC1155_IPADDRESS          : constant := 16#40#;    -- snmp.h:68
  25.     ASN_RFC1155_COUNTER            : constant := 16#41#;    -- snmp.h:69
  26.     ASN_RFC1155_GAUGE              : constant := 16#42#;    -- snmp.h:70
  27.     ASN_RFC1155_TIMETICKS          : constant := 16#43#;    -- snmp.h:71
  28.     ASN_RFC1155_OPAQUE             : constant := 16#44#;    -- snmp.h:72
  29.     ASN_RFC1213_DISPSTRING         : constant := 16#4#;     -- snmp.h:73
  30.     ASN_RFC1157_GETREQUEST         : constant := 16#a0#;    -- snmp.h:76
  31.     ASN_RFC1157_GETNEXTREQUEST     : constant := 16#a1#;    -- snmp.h:78
  32.     ASN_RFC1157_GETRESPONSE        : constant := 16#a2#;    -- snmp.h:80
  33.     ASN_RFC1157_SETREQUEST         : constant := 16#a3#;    -- snmp.h:82
  34.     ASN_RFC1157_TRAP               : constant := 16#a4#;    -- snmp.h:84
  35.     SNMP_ERRORSTATUS_NOERROR       : constant := 0;         -- snmp.h:89
  36.     SNMP_ERRORSTATUS_TOOBIG        : constant := 1;         -- snmp.h:90
  37.     SNMP_ERRORSTATUS_NOSUCHNAME    : constant := 2;         -- snmp.h:91
  38.     SNMP_ERRORSTATUS_BADVALUE      : constant := 3;         -- snmp.h:92
  39.     SNMP_ERRORSTATUS_READONLY      : constant := 4;         -- snmp.h:93
  40.     SNMP_ERRORSTATUS_GENERR        : constant := 5;         -- snmp.h:94
  41.     SNMP_GENERICTRAP_COLDSTART     : constant := 0;         -- snmp.h:98
  42.     SNMP_GENERICTRAP_WARMSTART     : constant := 1;         -- snmp.h:99
  43.     SNMP_GENERICTRAP_LINKDOWN      : constant := 2;         -- snmp.h:100
  44.     SNMP_GENERICTRAP_LINKUP        : constant := 3;         -- snmp.h:101
  45.     SNMP_GENERICTRAP_AUTHFAILURE   : constant := 4;         -- snmp.h:102
  46.     SNMP_GENERICTRAP_EGPNEIGHLOSS  : constant := 5;         -- snmp.h:103
  47.     SNMP_GENERICTRAP_ENTERSPECIFIC : constant := 6;         -- snmp.h:104
  48.     SNMP_MEM_ALLOC_ERROR           : constant := 1;         -- snmp.h:113
  49.     SNMP_BERAPI_INVALID_LENGTH     : constant := 10;        -- snmp.h:116
  50.     SNMP_BERAPI_INVALID_TAG        : constant := 11;        -- snmp.h:117
  51.     SNMP_BERAPI_OVERFLOW           : constant := 12;        -- snmp.h:118
  52.     SNMP_BERAPI_SHORT_BUFFER       : constant := 13;        -- snmp.h:119
  53.     SNMP_BERAPI_INVALID_OBJELEM    : constant := 14;        -- snmp.h:120
  54.     SNMP_PDUAPI_UNRECOGNIZED_PDU   : constant := 20;        -- snmp.h:123
  55.     SNMP_PDUAPI_INVALID_ES         : constant := 21;        -- snmp.h:124
  56.     SNMP_PDUAPI_INVALID_GT         : constant := 22;        -- snmp.h:125
  57.     SNMP_AUTHAPI_INVALID_VERSION   : constant := 30;        -- snmp.h:128
  58.     SNMP_AUTHAPI_INVALID_MSG_TYPE  : constant := 31;        -- snmp.h:129
  59.     SNMP_AUTHAPI_TRIV_AUTH_FAILED  : constant := 32;        -- snmp.h:130
  60.  
  61.     type AsnInteger is new Win32.LONG;                      -- snmp.h:138
  62.     type AsnCounter is new Win32.DWORD;                     -- snmp.h:154
  63.     type AsnGauge is new Win32.DWORD;                       -- snmp.h:155
  64.     type AsnTimeticks is new Win32.DWORD;                   -- snmp.h:156
  65.  
  66.     type AsnOctetString;                                    -- snmp.h:143
  67.     type AsnObjectIdentifier;                               -- snmp.h:147
  68.     type union_anonymous2_t;                                -- snmp.h:176
  69.     type AsnAny;                                            -- snmp.h:177
  70.     type RFC1157VarBind;                                    -- snmp.h:183
  71.     type RFC1157VarBindList;                                -- snmp.h:191
  72.     type RFC1157Pdu;                                        -- snmp.h:199
  73.     type RFC1157TrapPdu;                                    -- snmp.h:208
  74.     type union_anonymous7_t;                                -- snmp.h:215
  75.     type RFC1157Pdus;                                       -- snmp.h:216
  76.     type SnmpMgmtCom;                                       -- snmp.h:223
  77.  
  78.     type a_RFC1157VarBind_t is access all RFC1157VarBind;   -- snmp.h:189
  79.  
  80.     type AsnOctetString is                                  -- snmp.h:143
  81.         record
  82.             stream : Win32.PBYTE;                           -- snmp.h:140
  83.             length : Win32.UINT;                            -- snmp.h:141
  84.             dynamic: Win32.BOOL;                            -- snmp.h:142
  85.         end record;
  86.  
  87.     type AsnObjectIdentifier is                             -- snmp.h:147
  88.         record
  89.             idLength: Win32.UINT;                           -- snmp.h:145
  90.             ids     : Win32.PUINT;                          -- snmp.h:146
  91.         end record;
  92.  
  93.     subtype AsnSequence is AsnOctetString;                  -- snmp.h:149
  94.  
  95.     subtype AsnImplicitSequence is AsnSequence;             -- snmp.h:150
  96.  
  97.     subtype AsnIPAddress is AsnOctetString;                 -- snmp.h:152
  98.  
  99.     subtype AsnDisplayString is AsnOctetString;             -- snmp.h:153
  100.  
  101.     subtype AsnOpaque is AsnOctetString;                    -- snmp.h:157
  102.  
  103.     type union_anonymous2_t_kind is (                       -- snmp.h:176
  104.         number_kind,
  105.         string_kind,
  106.         object_kind,
  107.         sequence_kind,
  108.         address_kind,
  109.         counter_kind,
  110.         gauge_kind,
  111.         ticks_kind,
  112.         arbitrary_kind
  113.     );
  114.  
  115.     type union_anonymous2_t (Which: union_anonymous2_t_kind := string_kind) is
  116.                                                             -- snmp.h:176
  117.         record
  118.             case Which is
  119.                 when number_kind =>
  120.                     number: AsnInteger;                     -- snmp.h:163
  121.                 when string_kind =>
  122.                     string: AsnOctetString;                 -- snmp.h:164
  123.                 when object_kind =>
  124.                     object: AsnObjectIdentifier;            -- snmp.h:165
  125.                 when sequence_kind =>
  126.                     sequence: AsnSequence;                  -- snmp.h:168
  127.                 when address_kind =>
  128.                     address: AsnIPAddress;                  -- snmp.h:171
  129.                 when counter_kind =>
  130.                     counter: AsnCounter;                    -- snmp.h:172
  131.                 when gauge_kind =>
  132.                     gauge: AsnGauge;                        -- snmp.h:173
  133.                 when ticks_kind =>
  134.                     ticks: AsnTimeticks;                    -- snmp.h:174
  135.                 when arbitrary_kind =>
  136.                     arbitrary: AsnOpaque;                   -- snmp.h:175
  137.             end case;
  138.         end record;
  139.  
  140.     pragma Convention(C, union_anonymous2_t);
  141.     pragma Unchecked_Union(union_anonymous2_t);
  142.  
  143.     type AsnAny is                                          -- snmp.h:177
  144.         record
  145.             asnType : Win32.BYTE;                           -- snmp.h:160
  146.             asnValue: union_anonymous2_t;                   -- snmp.h:176
  147.         end record;
  148.  
  149.     subtype AsnObjectName is AsnObjectIdentifier;           -- snmp.h:179
  150.  
  151.     subtype AsnObjectSyntax is AsnAny;                      -- snmp.h:180
  152.  
  153.     subtype AsnNetworkAddress is AsnIPAddress;              -- snmp.h:181
  154.  
  155.     type RFC1157VarBind is                                  -- snmp.h:183
  156.         record
  157.             name : AsnObjectName;                           -- snmp.h:184
  158.             value: AsnObjectSyntax;                         -- snmp.h:185
  159.         end record;
  160.  
  161.     type RFC1157VarBindList is                              -- snmp.h:191
  162.         record
  163.             list: a_RFC1157VarBind_t;                       -- snmp.h:189
  164.             len : Win32.UINT;                               -- snmp.h:190
  165.         end record;
  166.  
  167.     type RFC1157Pdu is                                      -- snmp.h:199
  168.         record
  169.             varBinds   : RFC1157VarBindList;                -- snmp.h:194
  170.             requestType: AsnInteger;                        -- snmp.h:195
  171.             requestId  : AsnInteger;                        -- snmp.h:196
  172.             errorStatus: AsnInteger;                        -- snmp.h:197
  173.             errorIndex : AsnInteger;                        -- snmp.h:198
  174.         end record;
  175.  
  176.     type RFC1157TrapPdu is                                  -- snmp.h:208
  177.         record
  178.             varBinds    : RFC1157VarBindList;               -- snmp.h:202
  179.             enterprise  : AsnObjectIdentifier;              -- snmp.h:203
  180.             agentAddr   : AsnNetworkAddress;                -- snmp.h:204
  181.             genericTrap : AsnInteger;                       -- snmp.h:205
  182.             specificTrap: AsnInteger;                       -- snmp.h:206
  183.             timeStamp   : AsnTimeticks;                     -- snmp.h:207
  184.         end record;
  185.  
  186.     type union_anonymous7_t_kind is (                       -- snmp.h:215
  187.         pdu_kind,
  188.         trap_kind
  189.     );
  190.  
  191.     type union_anonymous7_t (Which: union_anonymous7_t_kind := trap_kind) is
  192.                                                             -- snmp.h:215
  193.         record
  194.             case Which is
  195.                 when pdu_kind =>
  196.                     pdu: RFC1157Pdu;                        -- snmp.h:213
  197.                 when trap_kind =>
  198.                     trap: RFC1157TrapPdu;                   -- snmp.h:214
  199.             end case;
  200.         end record;
  201.  
  202.     pragma Convention(C, union_anonymous7_t);
  203.     pragma Unchecked_Union(union_anonymous7_t);
  204.  
  205.     type RFC1157Pdus is                                     -- snmp.h:216
  206.         record
  207.             pduType : Win32.BYTE;                           -- snmp.h:211
  208.             pduValue: union_anonymous7_t;                   -- snmp.h:215
  209.         end record;
  210.  
  211.     type SnmpMgmtCom is                                     -- snmp.h:223
  212.         record
  213.             dstParty : AsnObjectIdentifier;                 -- snmp.h:219
  214.             srcParty : AsnObjectIdentifier;                 -- snmp.h:220
  215.             pdu      : RFC1157Pdus;                         -- snmp.h:221
  216.             community: AsnOctetString;                      -- snmp.h:222
  217.         end record;
  218.  
  219.  
  220.     procedure SNMP_DBG_free(
  221.                 x   : Win32.PVOID;
  222.                 line: Win32.INT;
  223.                 file: Win32.PSTR);                          -- snmp.h:262
  224.  
  225.     function SNMP_DBG_malloc(
  226.                 x   : Win32.UINT;
  227.                 line: Win32.INT;
  228.                 file: Win32.PSTR)
  229.                return Win32.PVOID;                          -- snmp.h:269
  230.  
  231.     function SNMP_DBG_realloc(
  232.                 x   : Win32.PVOID;
  233.                 y   : Win32.UINT;
  234.                 line: Win32.INT;
  235.                 file: Win32.PSTR)
  236.                return Win32.PVOID;                          -- snmp.h:276
  237.  
  238.     function SNMP_oidcpy(
  239.                 DestObjId: access AsnObjectIdentifier;
  240.                 SrcObjId : access AsnObjectIdentifier)
  241.                return Win32.INT;                            -- snmp.h:284
  242.  
  243.     function SnmpUtilOidCpy(
  244.                 DestObjId: access AsnObjectIdentifier;
  245.                 SrcObjId : access AsnObjectIdentifier)
  246.                return Win32.INT
  247.                renames  SNMP_oidcpy;                        -- snmp.h:234
  248.  
  249.     function SNMP_oidappend(
  250.                 DestObjId: access AsnObjectIdentifier;
  251.                 SrcObjId : access AsnObjectIdentifier)
  252.                return Win32.INT;                            -- snmp.h:290
  253.  
  254.     function SnmpUtilOidAppend(
  255.                 DestObjId: access AsnObjectIdentifier;
  256.                 SrcObjId : access AsnObjectIdentifier)
  257.                 return Win32.INT
  258.                 renames  SNMP_oidappend;                    -- snmp.h:235
  259.  
  260.     function SNMP_oidncmp(
  261.                 A  : access AsnObjectIdentifier;
  262.                 B  : access AsnObjectIdentifier;
  263.                 Len: Win32.UINT)
  264.                 return Win32.INT;                           -- snmp.h:296
  265.  
  266.     function SnmpUtilOidNCmp(
  267.                 A  : access AsnObjectIdentifier;
  268.                 B  : access AsnObjectIdentifier;
  269.                 Len: Win32.UINT)
  270.                 return Win32.INT
  271.                 renames  SNMP_oidncmp;                      -- snmp.h:236
  272.  
  273.     procedure SNMP_oidfree(
  274.                 Obj: access AsnObjectIdentifier);           -- snmp.h:305
  275.  
  276.     procedure SnmpUtilOidFree(
  277.                 Obj: access AsnObjectIdentifier)
  278.                 renames SNMP_oidfree;                       -- snmp.h:238
  279.  
  280.     function SNMP_CopyVarBindList(
  281.                 dst: access RFC1157VarBindList;
  282.                 src: access RFC1157VarBindList)
  283.                return Win32.INT;                            -- snmp.h:310
  284.  
  285.     function SnmpUtilVarBindListCpy(
  286.                 dst: access RFC1157VarBindList;
  287.                 src: access RFC1157VarBindList)
  288.                 return Win32.INT
  289.                 renames SNMP_CopyVarBindList;               -- snmp.h:240
  290.  
  291.     function SNMP_CopyVarBind(
  292.                 dst: access RFC1157VarBind;
  293.                 src: access RFC1157VarBind)
  294.                return Win32.INT;                            -- snmp.h:316
  295.  
  296.     function SnmpUtilVarBindCpy(
  297.                 dst: access RFC1157VarBind;
  298.                 src: access RFC1157VarBind)
  299.                return Win32.INT
  300.                 renames SNMP_CopyVarBind;                   -- snmp.h:241
  301.  
  302.     procedure SNMP_FreeVarBindList(
  303.                 VarBindList: access RFC1157VarBindList);    -- snmp.h:323
  304.  
  305.     procedure SnmpUtilVarBindListFree(
  306.                 VarBindList: access RFC1157VarBindList)
  307.                 renames SNMP_FreeVarBindList;               -- snmp.h:242
  308.  
  309.     procedure SNMP_FreeVarBind(
  310.                 VarBind: access RFC1157VarBind);            -- snmp.h:328
  311.  
  312.     procedure SnmpUtilVarBindFree(
  313.                 VarBind: access RFC1157VarBind)
  314.                 renames SNMP_FreeVarBind;                   -- snmp.h:243
  315.  
  316.     
  317.     procedure SNMP_free(memblock: Win32.PVOID)
  318.                 renames Win32.Malloc.free;                  -- snmp.h:252
  319.  
  320.     function SNMP_malloc(size: Win32.Strings.size_t)
  321.                 return Win32.PVOID
  322.                 renames Win32.Malloc.malloc;                -- snmp.h:253
  323.  
  324.     function SNMP_realloc(memblock: Win32.PVOID;
  325.                           size    : Win32.Strings.size_t)
  326.                           return Win32.PVOID
  327.                           renames Win32.Malloc.realloc;     -- snmp.h:254    
  328.    
  329.     function SNMP_oidcmp(
  330.                 A  : access AsnObjectIdentifier;
  331.                 B  : access AsnObjectIdentifier)
  332.                 return Win32.INT;                           -- snmp.h:302
  333.  
  334.    
  335.     function SnmpUtilOidCmp(
  336.                 A  : access AsnObjectIdentifier;
  337.                 B  : access AsnObjectIdentifier)
  338.                 return Win32.INT
  339.                 renames SNMP_oidcmp;                        -- snmp.h:237
  340.  
  341.     procedure SNMP_printany(
  342.                 Any: access AsnAny);                        -- snmp.h:334
  343.  
  344.     procedure SnmpUtilPrintAsnAny(
  345.                 Any: access AsnAny)
  346.                 renames SNMP_printany;                      -- snmp.h:245
  347.  
  348. private
  349.  
  350.     pragma Convention(C, AsnOctetString);                   -- snmp.h:143
  351.     pragma Convention(C, AsnObjectIdentifier);              -- snmp.h:147
  352.     pragma Convention(C, AsnAny);                           -- snmp.h:177
  353.     pragma Convention(C, RFC1157VarBind);                   -- snmp.h:183
  354.     pragma Convention(C, RFC1157VarBindList);               -- snmp.h:191
  355.     pragma Convention(C, RFC1157Pdu);                       -- snmp.h:199
  356.     pragma Convention(C, RFC1157TrapPdu);                   -- snmp.h:208
  357.     pragma Convention(C, RFC1157Pdus);                      -- snmp.h:216
  358.     pragma Convention(C, SnmpMgmtCom);                      -- snmp.h:223
  359.  
  360.     pragma Import(Stdcall, SNMP_DBG_free, "SNMP_DBG_free");       -- snmp.h:262
  361.     pragma Import(Stdcall, SNMP_DBG_malloc, "SNMP_DBG_malloc");   -- snmp.h:269
  362.     pragma Import(Stdcall, SNMP_DBG_realloc, "SNMP_DBG_realloc"); -- snmp.h:276
  363.     pragma Import(Stdcall, SNMP_oidcpy, "SNMP_oidcpy");           -- snmp.h:284
  364.     pragma Import(Stdcall, SNMP_oidappend, "SNMP_oidappend");     -- snmp.h:290
  365.     pragma Import(Stdcall, SNMP_oidncmp, "SNMP_oidncmp");         -- snmp.h:296
  366.     pragma Import(Stdcall, SNMP_oidfree, "SNMP_oidfree");         -- snmp.h:305
  367.     pragma Import(Stdcall, SNMP_CopyVarBindList, "SNMP_CopyVarBindList");
  368.                                                             -- snmp.h:310
  369.     pragma Import(Stdcall, SNMP_CopyVarBind, "SNMP_CopyVarBind"); -- snmp.h:316
  370.     pragma Import(Stdcall, SNMP_FreeVarBindList, "SNMP_FreeVarBindList");
  371.                                                             -- snmp.h:323
  372.     pragma Import(Stdcall, SNMP_FreeVarBind, "SNMP_FreeVarBind"); -- snmp.h:328
  373.     pragma Import(Stdcall, SNMP_printany, "SNMP_printany");       -- snmp.h:334
  374.  
  375. -------------------------------------------------------------------------------
  376. --
  377. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  378. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  379. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  380. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  381. -- the accuracy and the use of this file.  This file may be used, copied,
  382. -- modified and distributed only by licensees of Microsoft Corporation's
  383. -- WIN32 Software Development Kit in accordance with the terms of the 
  384. -- licensee's End-User License Agreement for Microsoft Software for the
  385. -- WIN32 Development Kit.
  386. --
  387. -- Copyright (c) Intermetrics, Inc. 1995
  388. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  389. -- Microsoft is a registered trademark and Windows and Windows NT are
  390. -- trademarks of Microsoft Corporation.
  391. --
  392. -------------------------------------------------------------------------------
  393.  
  394. end Win32.Snmp;
  395.