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

   1 package psapi;
   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     "QueryWorkingSet" => ["long",  ["long", "ptr", "long"]],
  16     "EmptyWorkingSet" => ["long",  ["long"]],
  17     "EnumDeviceDrivers" => ["long",  ["ptr", "long", "ptr"]],
  18     "EnumProcessModules" => ["long",  ["long", "ptr", "long", "ptr"]],
  19     "EnumProcesses" => ["long",  ["ptr", "long", "ptr"]],
  20     "GetDeviceDriverBaseNameA" => ["long",  ["ptr", "str", "long"]],
  21     "GetDeviceDriverBaseNameW" => ["long",  ["ptr", "wstr", "long"]],
  22     "GetDeviceDriverFileNameA" => ["long",  ["ptr", "str", "long"]],
  23     "GetDeviceDriverFileNameW" => ["long",  ["ptr", "wstr", "long"]],
  24     "GetMappedFileNameA" => ["long",  ["long", "ptr", "str", "long"]],
  25     "GetMappedFileNameW" => ["long",  ["long", "ptr", "wstr", "long"]],
  26     "GetModuleBaseNameA" => ["long",  ["long", "long", "str", "long"]],
  27     "GetModuleBaseNameW" => ["long",  ["long", "long", "wstr", "long"]],
  28     "GetModuleFileNameExA" => ["long",  ["long", "long", "str", "long"]],
  29     "GetModuleFileNameExW" => ["long",  ["long", "long", "wstr", "long"]],
  30     "GetModuleInformation" => ["long",  ["long", "long", "ptr", "long"]],
  31     "GetProcessMemoryInfo" => ["long",  ["long", "ptr", "long"]],
  32     "GetWsChanges" => ["long",  ["long", "ptr", "long"]],
  33     "InitializeProcessForWsWatch" => ["long",  ["long"]]
  34 };
  35
  36 &wine::declare("psapi",%$module_declarations);
  37 push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
  38 1;