git.oblomov.eu Git - wine/blob - programs/winetest/include/rpcrt4.pm

   1 package rpcrt4;
   2
   3 use strict;
   4
   5 require Exporter;
   6
   7 use wine;
   8 use vars qw(@ISA @EXPORT @EXPORT_OK);
   9
  10 @ISA = qw(Exporter);
  11 @EXPORT = qw();
  12 @EXPORT_OK = qw();
  13
  14 my $module_declarations = {
  15     "DllRegisterServer" => ["long",  []],
  16     "NdrDllCanUnloadNow" => ["long",  ["ptr"]],
  17     "NdrDllGetClassObject" => ["long",  ["ptr", "ptr", "ptr", "ptr", "ptr", "ptr"]],
  18     "NdrDllRegisterProxy" => ["long",  ["long", "ptr", "ptr"]],
  19     "RpcBindingFree" => ["long",  ["ptr"]],
  20     "RpcBindingFromStringBindingA" => ["long",  ["str", "ptr"]],
  21     "RpcBindingFromStringBindingW" => ["long",  ["wstr", "ptr"]],
  22     "RpcServerListen" => ["long",  ["long", "long", "long"]],
  23     "RpcServerRegisterAuthInfoA" => ["long",  ["str", "long", "ptr", "ptr"]],
  24     "RpcServerRegisterAuthInfoW" => ["long",  ["wstr", "long", "ptr", "ptr"]],
  25     "RpcServerRegisterIf" => ["long",  ["long", "ptr", "ptr"]],
  26     "RpcServerRegisterIf2" => ["long",  ["long", "ptr", "ptr", "long", "long", "long", "ptr"]],
  27     "RpcServerRegisterIfEx" => ["long",  ["long", "ptr", "ptr", "long", "long", "ptr"]],
  28     "RpcServerUseProtseqEpA" => ["long",  ["str", "long", "str", "ptr"]],
  29     "RpcServerUseProtseqEpExA" => ["long",  ["str", "long", "str", "ptr", "ptr"]],
  30     "RpcServerUseProtseqEpExW" => ["long",  ["wstr", "long", "wstr", "ptr", "ptr"]],
  31     "RpcServerUseProtseqEpW" => ["long",  ["wstr", "long", "wstr", "ptr"]],
  32     "RpcStringBindingComposeA" => ["long",  ["str", "str", "str", "str", "str", "ptr"]],
  33     "RpcStringBindingComposeW" => ["long",  ["wstr", "wstr", "wstr", "wstr", "wstr", "ptr"]],
  34     "RpcStringFreeA" => ["long",  ["ptr"]],
  35     "UuidCreate" => ["long",  ["ptr"]],
  36     "UuidCreateSequential" => ["long",  ["ptr"]],
  37     "UuidFromStringA" => ["long",  ["str", "ptr"]],
  38     "UuidFromStringW" => ["long",  ["wstr", "ptr"]],
  39     "UuidHash" => ["long",  ["ptr", "ptr"]],
  40     "UuidToStringA" => ["long",  ["ptr", "ptr"]]
  41 };
  42
  43 &wine::declare("rpcrt4",%$module_declarations);
  44 push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
  45 1;