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

   1 package olecli32;
   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     "OleQueryLinkFromClip" => ["long",  ["str", "long", "long"]],
  16     "OleQueryCreateFromClip" => ["long",  ["str", "long", "long"]],
  17     "OleCreateLinkFromClip" => ["long",  ["str", "ptr", "long", "str", "ptr", "long", "long"]],
  18     "OleCreateFromClip" => ["long",  ["str", "ptr", "long", "str", "ptr", "long", "long"]],
  19     "OleQueryType" => ["long",  ["ptr", "ptr"]],
  20     "OleSetHostNames" => ["long",  ["ptr", "str", "str"]],
  21     "OleRegisterClientDoc" => ["long",  ["str", "str", "long", "ptr"]],
  22     "OleRevokeClientDoc" => ["long",  ["long"]],
  23     "OleRenameClientDoc" => ["long",  ["long", "str"]],
  24     "OleSavedClientDoc" => ["long",  ["long"]],
  25     "OleIsDcMeta" => ["long",  ["long"]]
  26 };
  27
  28 &wine::declare("olecli32",%$module_declarations);
  29 push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
  30 1;