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

   1 package msvfw32;
   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     "VideoForWindowsVersion" => ["long",  []],
  16     "DrawDibBegin" => ["long",  ["long", "long", "long", "long", "ptr", "long", "long", "long"]],
  17     "DrawDibClose" => ["long",  ["long"]],
  18     "DrawDibDraw" => ["long",  ["long", "long", "long", "long", "long", "long", "ptr", "ptr", "long", "long", "long", "long", "long"]],
  19     "DrawDibEnd" => ["long",  ["long"]],
  20     "DrawDibGetPalette" => ["long",  ["long"]],
  21     "DrawDibOpen" => ["long",  []],
  22     "DrawDibRealize" => ["long",  ["long", "long", "long"]],
  23     "DrawDibSetPalette" => ["long",  ["long", "long"]],
  24     "DrawDibStart" => ["long",  ["long", "long"]],
  25     "DrawDibStop" => ["long",  ["long"]],
  26     "ICClose" => ["long",  ["long"]],
  27     "ICGetDisplayFormat" => ["long",  ["long", "ptr", "ptr", "long", "long", "long"]],
  28     "ICGetInfo" => ["long",  ["long", "ptr", "long"]],
  29     "ICImageCompress" => ["long",  ["long", "long", "ptr", "ptr", "ptr", "long", "ptr"]],
  30     "ICImageDecompress" => ["long",  ["long", "long", "ptr", "ptr", "ptr"]],
  31     "ICInfo" => ["long",  ["long", "long", "ptr"]],
  32     "ICLocate" => ["long",  ["long", "long", "ptr", "ptr", "long"]],
  33     "ICOpenFunction" => ["long",  ["long", "long", "long", "ptr"]],
  34     "ICSendMessage" => ["long",  ["long", "long", "long", "long"]],
  35     "MCIWndRegisterClass" => ["long",  ["long"]]
  36 };
  37
  38 &wine::declare("msvfw32",%$module_declarations);
  39 push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
  40 1;