home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-midles.adb < prev    next >
Encoding:
Text File  |  1995-11-17  |  1.8 KB  |  45 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-midles.adb,v $ 
  2. -- $Revision: 1.2 $ $Date: 95/02/02 15:55:15 $ $Author: mg $ 
  3. -------------------------------------------------------------------------------
  4. --
  5. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS FURNISHED "AS IS" WITHOUT 
  6. -- WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED 
  7. -- TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR 
  8. -- PURPOSE.  The user assumes the entire risk as to the accuracy and the 
  9. -- use of this file.
  10. --
  11. -- Copyright (c) Intermetrics, Inc. 1995
  12. -- Royalty-free, unlimited, worldwide, non-exclusive use, modification, 
  13. -- reproduction and further distribution of this file is permitted.
  14. --
  15. -------------------------------------------------------------------------------
  16.  
  17.  
  18. with Stdarg.Impl;
  19.  
  20. package body Win32.Midles is
  21.  
  22.     use Stdarg.Impl;
  23.  
  24.     function "&" is new Stdarg.Concat(Win32.Rpcdce.handle_t);
  25.     function "&" is new Stdarg.Concat(Win32.Rpcndr.PMIDL_STUB_DESC);
  26.     function "&" is new Stdarg.Concat(Win32.Rpcndr.PFORMAT_STRING);
  27.     
  28.     procedure NdrMesProcEncodeDecode(
  29.                 Handle       : Win32.Rpcdce.handle_t;
  30.                 pStubDesc    : Win32.Rpcndr.PMIDL_STUB_DESC;
  31.                 pFormatString: Win32.Rpcndr.PFORMAT_STRING;
  32.         Args         : Stdarg.ArgList := Stdarg.Empty) is 
  33.                                 -- midles.h:209
  34.     ArgList : Stdarg.ArgList := Stdarg.Empty & Handle & pStubDesc & 
  35.                     pFormatString & Args;
  36.     procedure C_NdrMesProcEncodeDecode;
  37.     pragma Import(Stdcall, C_NdrMesProcEncodeDecode, "NdrMesProcEncodeDecode");
  38.     begin
  39.     Do_Varargs(C_NdrMesProcEncodeDecode'Address,
  40.           ArgCount(ArgList),
  41.               Address_of_First_Arg(ArgList));
  42.     end NdrMesProcEncodeDecode;
  43.  
  44. end Win32.Midles;
  45.