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

   1 package urlmon;
   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     "CoInternetGetSession" => ["long",  ["long", "ptr", "long"]],
  16     "CreateAsyncBindCtxEx" => ["long",  ["ptr", "long", "ptr", "ptr", "ptr", "long"]],
  17     "CreateURLMoniker" => ["long",  ["ptr", "wstr", "ptr"]],
  18     "DllCanUnloadNow" => ["long",  []],
  19     "DllGetClassObject" => ["long",  ["ptr", "ptr", "ptr"]],
  20     "DllInstall" => ["long",  ["long", "wstr"]],
  21     "DllRegisterServer" => ["long",  []],
  22     "DllRegisterServerEx" => ["long",  []],
  23     "DllUnregisterServer" => ["long",  []],
  24     "Extract" => ["long",  ["long", "long"]],
  25     "ObtainUserAgentString" => ["long",  ["long", "str", "ptr"]],
  26     "RegisterBindStatusCallback" => ["long",  ["ptr", "ptr", "ptr", "long"]],
  27     "RevokeBindStatusCallback" => ["long",  ["ptr", "ptr"]],
  28     "UrlMkSetSessionOption" => ["long",  ["long", "ptr", "long", "long"]]
  29 };
  30
  31 &wine::declare("urlmon",%$module_declarations);
  32 push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
  33 1;