home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-midles.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  11.2 KB  |  229 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-midles.ads,v $ 
  2. -- $Revision: 1.11 $ $Date: 95/11/18 19:01:35 $ $Author: jj $ 
  3. -- See end of file for Copyright (c) information.
  4.  
  5. with Stdarg;
  6. with Win32.Rpc;
  7. with Win32.Rpcdce;
  8. with Win32.Rpcdcep;
  9. with Win32.Rpcndr;
  10. with Win32.Strings;
  11.  
  12. package Win32.Midles is
  13.  
  14.     type MIDL_ES_CODE is (                                  -- midles.h:48
  15.         MES_ENCODE,                                         -- midles.h:46
  16.         MES_DECODE                                          -- midles.h:48
  17.     );
  18.     for MIDL_ES_CODE'size use 32;                           -- midles.h:48
  19.  
  20.     type MIDL_ES_HANDLE_STYLE is (                          -- midles.h:55
  21.         MES_INCREMENTAL_HANDLE,                             -- midles.h:52
  22.         MES_FIXED_BUFFER_HANDLE,                            -- midles.h:53
  23.         MES_DYNAMIC_BUFFER_HANDLE                           -- midles.h:55
  24.     );
  25.     for MIDL_ES_HANDLE_STYLE'size use 32;                   -- midles.h:55
  26.  
  27.     type MIDL_ES_MESSAGE;                                   -- midles.h:73
  28.  
  29.     type PMIDL_ES_MESSAGE is access all MIDL_ES_MESSAGE;    -- midles.h:94
  30.     type MIDL_ES_HANDLE is new PMIDL_ES_MESSAGE;            -- midles.h:96
  31.  
  32.     type MIDL_ES_ALLOC is access procedure (
  33.                 state  : Win32.PVOID;
  34.                 pbuffer: access Win32.PCHAR;
  35.                 psize  : access Win32.UINT);                -- midles.h:58
  36.     pragma Convention(Stdcall, MIDL_ES_ALLOC);
  37.  
  38.     type MIDL_ES_WRITE is access procedure (
  39.                 state : Win32.PVOID;
  40.                 buffer: Win32.PCHAR;
  41.                 size  : Win32.UINT);                        -- midles.h:63
  42.     pragma Convention(Stdcall, MIDL_ES_WRITE);
  43.  
  44.     type MIDL_ES_READ is access procedure (
  45.                 state  : Win32.PVOID;
  46.                 pbuffer: access Win32.PCHAR;
  47.                 psize  : access Win32.UINT);                -- midles.h:68
  48.     pragma Convention(Stdcall, MIDL_ES_READ);
  49.  
  50.     type PPUCHAR is access all Win32.PUCHAR;                -- midles.h:87
  51.  
  52.     type MIDL_ES_MESSAGE is                                 -- midles.h:73
  53.         record
  54.             StubMsg     : Win32.Rpcndr.MIDL_STUB_MESSAGE;   -- midles.h:75
  55.             Operation   : MIDL_ES_CODE;                     -- midles.h:76
  56.             UserState   : Win32.PVOID;                      -- midles.h:77
  57.             MesVersion  : Win32.bits8;                      -- midles.h:78
  58.             HandleStyle : Win32.bits8;                      -- midles.h:79
  59.             HandleFlags : Win32.bits8;                      -- midles.h:80
  60.             Reserve     : Win32.bits8;                      -- midles.h:81
  61.             Alloc       : MIDL_ES_ALLOC;                    -- midles.h:82
  62.             Write       : MIDL_ES_WRITE;                    -- midles.h:83
  63.             Read        : MIDL_ES_READ;                     -- midles.h:84
  64.             Buffer      : Win32.PUCHAR;                     -- midles.h:85
  65.             BufferSize  : Win32.ULONG;                      -- midles.h:86
  66.             pDynBuffer  : PPUCHAR;                          -- midles.h:87
  67.             pEncodedSize: Win32.PULONG;                     -- midles.h:88
  68.             InterfaceId : Win32.Rpcdcep.RPC_SYNTAX_IDENTIFIER;
  69.                                                             -- midles.h:89
  70.             ProcNumber  : Win32.ULONG;                      -- midles.h:90
  71.             AlienDataRep: Win32.ULONG;                      -- midles.h:91
  72.             IncrDataSize: Win32.ULONG;                      -- midles.h:92
  73.             ByteCount   : Win32.ULONG;                      -- midles.h:93
  74.         end record;
  75.  
  76.     function MesEncodeIncrementalHandleCreate(
  77.                 UserState: Win32.PVOID;
  78.                 AllocFn  : MIDL_ES_ALLOC;
  79.                 WriteFn  : MIDL_ES_WRITE;
  80.                 pHandle  : access Win32.Rpcdce.handle_t)
  81.                return Win32.Rpc.RPC_STATUS;                 -- midles.h:99
  82.  
  83.     function MesDecodeIncrementalHandleCreate(
  84.                 UserState: Win32.PVOID;
  85.                 ReadFn   : MIDL_ES_READ;
  86.                 pHandle  : access Win32.Rpcdce.handle_t)
  87.                return Win32.Rpc.RPC_STATUS;                 -- midles.h:106
  88.  
  89.     function MesIncrementalHandleReset(
  90.                 Handle   : Win32.Rpcdce.handle_t;
  91.                 UserState: Win32.PVOID;
  92.                 AllocFn  : MIDL_ES_ALLOC;
  93.                 WriteFn  : MIDL_ES_WRITE;
  94.                 ReadFn   : MIDL_ES_READ;
  95.                 Operation: MIDL_ES_CODE)
  96.                return Win32.Rpc.RPC_STATUS;                 -- midles.h:113
  97.  
  98.     function MesEncodeFixedBufferHandleCreate(
  99.                 pBuffer     : Win32.PCHAR;
  100.                 BufferSize  : Win32.ULONG;
  101.                 pEncodedSize: access Win32.ULONG;
  102.                 pHandle     : access Win32.Rpcdce.handle_t)
  103.                return Win32.Rpc.RPC_STATUS;                 -- midles.h:123
  104.  
  105.     function MesEncodeDynBufferHandleCreate(
  106.                 pBuffer     : access Win32.PCHAR;
  107.                 pEncodedSize: access Win32.ULONG;
  108.                 pHandle     : access Win32.Rpcdce.handle_t)
  109.                return Win32.Rpc.RPC_STATUS;                 -- midles.h:130
  110.  
  111.     function MesDecodeBufferHandleCreate(
  112.                 pBuffer   : Win32.PCHAR;
  113.                 BufferSize: Win32.ULONG;
  114.                 pHandle   : access Win32.Rpcdce.handle_t)
  115.                return Win32.Rpc.RPC_STATUS;                 -- midles.h:136
  116.  
  117.     function MesBufferHandleReset(
  118.                 Handle      : Win32.Rpcdce.handle_t;
  119.                 HandleStyle : Win32.ULONG;
  120.                 Operation   : MIDL_ES_CODE;
  121.                 pBuffer     : access Win32.PCHAR;
  122.                 BufferSize  : Win32.ULONG;
  123.                 pEncodedSize: access Win32.ULONG)
  124.                return Win32.Rpc.RPC_STATUS;                 -- midles.h:143
  125.  
  126.     function MesHandleFree(
  127.                 Handle: Win32.Rpcdce.handle_t)
  128.                return Win32.Rpc.RPC_STATUS;                 -- midles.h:153
  129.  
  130.     function MesInqProcEncodingId(
  131.                 Handle      : Win32.Rpcdce.handle_t;
  132.                 pInterfaceId: Win32.Rpcdcep.PRPC_SYNTAX_IDENTIFIER;
  133.                 pProcNum    : access Win32.ULONG)
  134.                return Win32.Rpc.RPC_STATUS;                 -- midles.h:156
  135.  
  136.     procedure I_NdrMesMessageInit(
  137.                 pStubMsg: Win32.Rpcndr.PMIDL_STUB_MESSAGE); -- midles.h:168
  138.  
  139.     function NdrMesSimpleTypeAlignSize(
  140.                 Handle: Win32.Rpcdce.handle_t)
  141.                return Win32.Strings.size_t;                 -- midles.h:171
  142.  
  143.     procedure NdrMesSimpleTypeDecode(
  144.                 Handle : Win32.Rpcdce.handle_t;
  145.                 pObject: Win32.PVOID;
  146.                 Size   : Win32.SHORT);                      -- midles.h:174
  147.  
  148.     procedure NdrMesSimpleTypeEncode(
  149.                 Handle   : Win32.Rpcdce.handle_t;
  150.                 pStubDesc: Win32.Rpcndr.PMIDL_STUB_DESC;
  151.                 pObject  : Win32.PVOID;
  152.                 Size     : Win32.SHORT);                    -- midles.h:180
  153.  
  154.     function NdrMesTypeAlignSize(
  155.                 Handle       : Win32.Rpcdce.handle_t;
  156.                 pStubDesc    : Win32.Rpcndr.PMIDL_STUB_DESC;
  157.                 pFormatString: Win32.Rpcndr.PFORMAT_STRING;
  158.                 pObject      : Win32.PVOID)
  159.                return Win32.Strings.size_t;                 -- midles.h:188
  160.  
  161.     procedure NdrMesTypeEncode(
  162.                 Handle       : Win32.Rpcdce.handle_t;
  163.                 pStubDesc    : Win32.Rpcndr.PMIDL_STUB_DESC;
  164.                 pFormatString: Win32.Rpcndr.PFORMAT_STRING;
  165.                 pObject      : Win32.PVOID);                -- midles.h:195
  166.  
  167.     procedure NdrMesTypeDecode(
  168.                 Handle       : Win32.Rpcdce.handle_t;
  169.                 pStubDesc    : Win32.Rpcndr.PMIDL_STUB_DESC;
  170.                 pFormatString: Win32.Rpcndr.PFORMAT_STRING;
  171.                 pObject      : Win32.PVOID);                -- midles.h:202
  172.  
  173.     procedure NdrMesProcEncodeDecode(
  174.                 Handle       : Win32.Rpcdce.handle_t;
  175.                 pStubDesc    : Win32.Rpcndr.PMIDL_STUB_DESC;
  176.                 pFormatString: Win32.Rpcndr.PFORMAT_STRING;
  177.                 Args         : Stdarg.ArgList := Stdarg.Empty);
  178.                                                             -- midles.h:209
  179.  
  180. private
  181.  
  182.     pragma Convention(C, MIDL_ES_MESSAGE);                  -- midles.h:73
  183.  
  184.     pragma Import(Stdcall, MesEncodeIncrementalHandleCreate, 
  185.                      "MesEncodeIncrementalHandleCreate");   -- midles.h:99
  186.     pragma Import(Stdcall, MesDecodeIncrementalHandleCreate, 
  187.                      "MesDecodeIncrementalHandleCreate");   -- midles.h:106
  188.     pragma Import(Stdcall, MesIncrementalHandleReset, "MesIncrementalHandleReset");
  189.                                                             -- midles.h:113
  190.     pragma Import(Stdcall, MesEncodeFixedBufferHandleCreate, 
  191.                      "MesEncodeFixedBufferHandleCreate");   -- midles.h:123
  192.     pragma Import(Stdcall, MesEncodeDynBufferHandleCreate, 
  193.                      "MesEncodeDynBufferHandleCreate");     -- midles.h:130
  194.     pragma Import(Stdcall, MesDecodeBufferHandleCreate, 
  195.                      "MesDecodeBufferHandleCreate");        -- midles.h:136
  196.     pragma Import(Stdcall, MesBufferHandleReset, "MesBufferHandleReset");
  197.                                                             -- midles.h:143
  198.     pragma Import(Stdcall, MesHandleFree, "MesHandleFree");       -- midles.h:153
  199.     pragma Import(Stdcall, MesInqProcEncodingId, "MesInqProcEncodingId");
  200.                                                             -- midles.h:156
  201.     pragma Import(Stdcall, I_NdrMesMessageInit, "I_NdrMesMessageInit");
  202.                                                             -- midles.h:168
  203.     pragma Import(Stdcall, NdrMesSimpleTypeAlignSize, "NdrMesSimpleTypeAlignSize");
  204.                                                             -- midles.h:171
  205.     pragma Import(Stdcall, NdrMesSimpleTypeDecode, "NdrMesSimpleTypeDecode");
  206.                                                             -- midles.h:174
  207.     pragma Import(Stdcall, NdrMesSimpleTypeEncode, "NdrMesSimpleTypeEncode");
  208.                                                             -- midles.h:180
  209.     pragma Import(Stdcall, NdrMesTypeAlignSize, "NdrMesTypeAlignSize");
  210.                                                             -- midles.h:188
  211.     pragma Import(Stdcall, NdrMesTypeEncode, "NdrMesTypeEncode"); -- midles.h:195
  212.     pragma Import(Stdcall, NdrMesTypeDecode, "NdrMesTypeDecode"); -- midles.h:202
  213.  
  214. -------------------------------------------------------------------------------
  215. --
  216. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS FURNISHED "AS IS" WITHOUT 
  217. -- WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED 
  218. -- TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR 
  219. -- PURPOSE.  The user assumes the entire risk as to the accuracy and the 
  220. -- use of this file.
  221. --
  222. -- Copyright (c) Intermetrics, Inc. 1995
  223. -- Royalty-free, unlimited, worldwide, non-exclusive use, modification, 
  224. -- reproduction and further distribution of this file is permitted.
  225. --
  226. -------------------------------------------------------------------------------
  227.  
  228. end Win32.Midles;
  229.