home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-lmremutl.adb < prev    next >
Encoding:
Text File  |  1995-11-17  |  2.1 KB  |  54 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-lmremutl.adb,v $ 
  2. -- $Revision: 1.2 $ $Date: 95/02/02 15:54:30 $ $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. use Stdarg.Impl;
  20.  
  21. package body Win32.Lmremutl is
  22.  
  23.     function "&" is new Stdarg.Concat(Win32.DWORD);
  24.     function "&" is new Stdarg.Concat(Win32.Winnt.LPTSTR);
  25.     function "&" is new Stdarg.Concat(LPDESC);
  26.  
  27.     function RxRemoteApi(                
  28.                 ApiNumber     : Win32.DWORD;        
  29.                 UncServerName : Win32.Winnt.LPTSTR;    
  30.                 ParmDescString: LPDESC;            
  31.                 DataDesc16    : LPDESC;            
  32.                 DataDesc32    : LPDESC;            
  33.                 DataDescSmb   : LPDESC;            
  34.                 AuxDesc16     : LPDESC;            
  35.                 AuxDesc32     : LPDESC;            
  36.                 AuxDescSmb    : LPDESC;            
  37.                 Flags         : Win32.DWORD;
  38.         Args          : Stdarg.ArgList := Stdarg.Empty)        
  39.                return Win32.DWORD is    
  40.     
  41.     ArgList : Stdarg.ArgList := Stdarg.Empty & ApiNumber & UncServerName & 
  42.         ParmDescString & DataDesc16 & DataDesc32 & DataDescSmb & 
  43.         AuxDesc16 & AuxDesc32 & AuxDescSmb & Flags & Args;
  44.     procedure C_RxRemoteApi;
  45.     pragma Import(Stdcall, C_RxRemoteApi, "RxRemoteApi");       -- lmremutl.h:87
  46.  
  47.     begin
  48.     return(Win32.DWORD(F_Varargs(C_RxRemoteApi'address, 
  49.                          ArgCount(ArgList),
  50.                              Address_of_First_Arg(ArgList))));
  51.     end RxRemoteApi;
  52.     
  53. end Win32.Lmremutl;
  54.