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

   1 package winedos;
   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     "ASPIHandler" => ["void",  ["ptr"]],
  16     "AllocRMCB" => ["void",  ["ptr"]],
  17     "CallRMInt" => ["void",  ["ptr"]],
  18     "CallRMProc" => ["void",  ["undef"]],
  19     "Enter" => ["long",  ["ptr"]],
  20     "FreeRMCB" => ["void",  ["ptr"]],
  21     "GetTimer" => ["long",  []],
  22     "KbdReadScan" => ["long",  ["ptr"]],
  23     "LoadDosExe" => ["void",  ["str", "long"]],
  24     "OutPIC" => ["void",  ["long", "long"]],
  25     "QueueEvent" => ["void",  ["long", "long", "undef", "ptr"]],
  26     "SetTimer" => ["void",  ["long"]],
  27     "Wait" => ["void",  ["long", "long"]]
  28 };
  29
  30 &wine::declare("winedos",%$module_declarations);
  31 push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
  32 1;