if1632/relay32.c

   1 /*
   2  * Copyright 1995 Martin von Loewis
   3  */
   4
   5 #include <stdio.h>
   6 #include <stdlib.h>
   7 #include <string.h>
   8 #include <sys/types.h>
   9 #include <sys/stat.h>
  10 #include <fcntl.h>
  11 #include <unistd.h>
  12 #include <errno.h>
  13 #include "windows.h"
  14 #include "dlls.h"
  15 #include "pe_image.h"
  16 #include "peexe.h"
  17 #include "relay32.h"
  18 #include "xmalloc.h"
  19 #include "stddebug.h"
  20 #include "debug.h"
  21
  22 WIN32_builtin   *WIN32_builtin_list;
  23
  24 /* Functions are in generated code */
  25 void ADVAPI32_Init();
  26 void COMDLG32_Init();
  27 void GDI32_Init();
  28 void KERNEL32_Init();
  29 void SHELL32_Init();
  30 void USER32_Init();
  31 void WINPROCS32_Init();
  32
  33 int RELAY32_Init(void)
  34 {
  35 #ifndef WINELIB
  36         /* Add a call for each DLL */
  37         ADVAPI32_Init();
  38         COMDLG32_Init();
  39         GDI32_Init();
  40         KERNEL32_Init();
  41         SHELL32_Init();
  42         USER32_Init();
  43         WINPROCS32_Init();
  44 #endif
  45         /* Why should it fail, anyways? */
  46         return 1;
  47 }
  48
  49 WIN32_builtin *RELAY32_GetBuiltinDLL(char *name)
  50 {
  51         WIN32_builtin *it;
  52         size_t len;
  53         char *cp;
  54
  55         len = (cp=strchr(name,'.')) ? (cp-name) : strlen(name);
  56         for(it=WIN32_builtin_list;it;it=it->next)
  57         if(lstrncmpi(name,it->name,len)==0)
  58                 return it;
  59         return NULL;
  60 }
  61
  62 void RELAY32_Unimplemented(char *dll, int item)
  63 {
  64         WIN32_builtin *Dll;
  65         fprintf( stderr, "No handler for routine %s.%d", dll, item);
  66         Dll=RELAY32_GetBuiltinDLL(dll);
  67         if(Dll && Dll->functions[item].name)
  68                 fprintf(stderr, "(%s?)\n", Dll->functions[item].name);
  69         else
  70                 fprintf(stderr, "\n");
  71         fflush(stderr);
  72         exit(1);
  73 }
  74
  75 void *RELAY32_GetEntryPoint(char *dll_name, char *item, int hint)
  76 {
  77         WIN32_builtin *dll;
  78         int i;
  79         u_short * ordinal;
  80         u_long * function;
  81         u_char ** name;
  82         struct PE_Export_Directory * pe_exports;
  83         unsigned int load_addr;
  84
  85         dprintf_module(stddeb, "Looking for %s in %s, hint %x\n",
  86                 item ? item: "(no name)", dll_name, hint);
  87         dll=RELAY32_GetBuiltinDLL(dll_name);
  88         /* This should deal with built-in DLLs only. See pe_module on loading
  89            PE DLLs */
  90 #if 0
  91         if(!dll) {
  92                 if(!wine_files || !wine_files->name ||
  93                    lstrcmpi(dll_name, wine_files->name)) {
  94                         LoadModule(dll_name, (LPVOID) -1);
  95                         if(!wine_files || !wine_files->name ||
  96                            lstrcmpi(dll_name, wine_files->name))
  97                                 return 0;
  98                 }
  99                 load_addr = wine_files->load_addr;
 100                 pe_exports = wine_files->pe->pe_export;
 101                 ordinal = (u_short *) (((char *) load_addr) + (int) pe_exports->Address_Of_Name_Ordinals);
 102                 function = (u_long *)  (((char *) load_addr) + (int) pe_exports->AddressOfFunctions);
 103                 name = (u_char **)  (((char *) load_addr) + (int) pe_exports->AddressOfNames);
 104                 /* import by ordinal */
 105                 if(!item){
 106                         return 0;
 107                 }
 108                 /* hint is correct */
 109                 #if 0
 110                 if(hint && hint<dll->size &&
 111                         dll->functions[hint].name &&
 112                         strcmp(item,dll->functions[hint].name)==0)
 113                         return dll->functions[hint].definition;
 114                 #endif
 115                 /* hint is incorrect, search for name */
 116                 for(i=0;i<pe_exports->Number_Of_Functions;i++)
 117                     if (name[i] && !strcmp(item,name[i]+load_addr))
 118                         return function[i]+(char *)load_addr;
 119
 120                 /* function at hint has no name (unimplemented) */
 121                 #if 0
 122                 if(hint && hint<dll->size && !dll->functions[hint].name)
 123                 {
 124                         dll->functions[hint].name=xstrdup(item);
 125                         dprintf_module(stddeb, "Returning unimplemented function %s.%d\n",
 126                                 dll_name,hint);
 127                         return dll->functions[hint].definition;
 128                 }
 129                 #endif
 130                 printf("Not found\n");
 131                 return 0;
 132         }
 133 #endif
 134         /* import by ordinal */
 135         if(!item){
 136                 if(hint && hint<dll->size)return dll->functions[hint].definition;
 137                 return 0;
 138         }
 139         /* hint is correct */
 140         if(hint && hint<dll->size &&
 141                 dll->functions[hint].name &&
 142                 strcmp(item,dll->functions[hint].name)==0)
 143                 return dll->functions[hint].definition;
 144         /* hint is incorrect, search for name */
 145         for(i=0;i<dll->size;i++)
 146             if (dll->functions[i].name && !strcmp(item,dll->functions[i].name))
 147                 return dll->functions[i].definition;
 148
 149         /* function at hint has no name (unimplemented) */
 150         if(hint && hint<dll->size && !dll->functions[hint].name)
 151         {
 152                 dll->functions[hint].name=xstrdup(item);
 153                 dprintf_module(stddeb, "Returning unimplemented function %s.%d\n",
 154                         dll_name,hint);
 155                 return dll->functions[hint].definition;
 156         }
 157         return 0;
 158 }
 159
 160 void RELAY32_DebugEnter(char *dll,char *name)
 161 {
 162         dprintf_relay(stddeb, "Entering %s.%s\n",dll,name);
 163 }
 164
 165 LONG RELAY32_CallWindowProc( WNDPROC func, int hwnd, int message,
 166              int wParam, int lParam )
 167 {
 168         int ret;
 169 __asm__ (
 170                 "push %1;"
 171                 "push %2;"
 172                 "push %3;"
 173                 "push %4;"
 174                 "call %5;"
 175                 : "=a" (ret)
 176                 : "g" (lParam), "g" (wParam), "g" (message), "g" (hwnd), "g" (func)
 177         );
 178         return ret;
 179 }