Release 20010216.
[wine/multimedia.git] / if1632 / builtin.c
blob374593bca30f4d22c033d7e4abde79bcca449772
1 /*
2 * Built-in modules
4 * Copyright 1996 Alexandre Julliard
5 */
7 #include <assert.h>
8 #include <ctype.h>
9 #include <string.h>
10 #include <stdio.h>
11 #include "winbase.h"
12 #include "wine/winbase16.h"
13 #include "builtin16.h"
14 #include "global.h"
15 #include "heap.h"
16 #include "file.h"
17 #include "module.h"
18 #include "miscemu.h"
19 #include "stackframe.h"
20 #include "debugtools.h"
21 #include "toolhelp.h"
23 DEFAULT_DEBUG_CHANNEL(module);
25 /* Table of all built-in DLLs */
27 #define MAX_DLLS 50
29 static const BUILTIN16_DESCRIPTOR *builtin_dlls[MAX_DLLS];
30 static int nb_dlls;
33 /* patch all the flat cs references of the code segment if necessary */
34 inline static void patch_code_segment( void *code_segment )
36 #ifdef __i386__
37 CALLFROM16 *call = code_segment;
38 if (call->flatcs == __get_cs()) return; /* nothing to patch */
39 while (call->pushl == 0x68)
41 call->flatcs = __get_cs();
42 call++;
44 #endif
48 /***********************************************************************
49 * BUILTIN_DoLoadModule16
51 * Load a built-in Win16 module. Helper function for BUILTIN_LoadModule.
53 static HMODULE16 BUILTIN_DoLoadModule16( const BUILTIN16_DESCRIPTOR *descr )
55 NE_MODULE *pModule;
56 int minsize;
57 SEGTABLEENTRY *pSegTable;
58 HMODULE16 hModule;
60 hModule = GLOBAL_CreateBlock( GMEM_MOVEABLE, descr->module_start,
61 descr->module_size, 0, WINE_LDT_FLAGS_DATA );
62 if (!hModule) return 0;
63 FarSetOwner16( hModule, hModule );
65 pModule = (NE_MODULE *)GlobalLock16( hModule );
66 pModule->self = hModule;
67 /* NOTE: (Ab)use the hRsrcMap parameter for resource data pointer */
68 pModule->hRsrcMap = (void *)descr->rsrc;
70 TRACE( "Built-in %s: hmodule=%04x\n", descr->name, hModule );
72 /* Allocate the code segment */
74 pSegTable = NE_SEG_TABLE( pModule );
75 pSegTable->hSeg = GLOBAL_CreateBlock( GMEM_FIXED, descr->code_start,
76 pSegTable->minsize, hModule,
77 WINE_LDT_FLAGS_CODE|WINE_LDT_FLAGS_32BIT );
78 if (!pSegTable->hSeg) return 0;
79 patch_code_segment( descr->code_start );
80 pSegTable++;
82 /* Allocate the data segment */
84 minsize = pSegTable->minsize ? pSegTable->minsize : 0x10000;
85 minsize += pModule->heap_size;
86 if (minsize > 0x10000) minsize = 0x10000;
87 pSegTable->hSeg = GlobalAlloc16( GMEM_FIXED, minsize );
88 if (!pSegTable->hSeg) return 0;
89 FarSetOwner16( pSegTable->hSeg, hModule );
90 if (pSegTable->minsize) memcpy( GlobalLock16( pSegTable->hSeg ),
91 descr->data_start, pSegTable->minsize);
92 if (pModule->heap_size)
93 LocalInit16( GlobalHandleToSel16(pSegTable->hSeg),
94 pSegTable->minsize, minsize );
96 if (descr->rsrc) NE_InitResourceHandler(hModule);
98 NE_RegisterModule( pModule );
99 return hModule;
103 /***********************************************************************
104 * BUILTIN_LoadModule
106 * Load a built-in module.
108 HMODULE16 BUILTIN_LoadModule( LPCSTR name )
110 char dllname[20], *p;
111 void *handle;
112 int i;
114 /* Fix the name in case we have a full path and extension */
116 if ((p = strrchr( name, '\\' ))) name = p + 1;
117 if ((p = strrchr( name, '/' ))) name = p + 1;
119 if (strlen(name) >= sizeof(dllname)-4) return (HMODULE16)2;
121 strcpy( dllname, name );
122 p = strrchr( dllname, '.' );
123 if (!p) strcat( dllname, ".dll" );
124 for (p = dllname; *p; p++) *p = FILE_tolower(*p);
126 for (i = 0; i < nb_dlls; i++)
128 const BUILTIN16_DESCRIPTOR *descr = builtin_dlls[i];
129 NE_MODULE *pModule = (NE_MODULE *)descr->module_start;
130 OFSTRUCT *pOfs = (OFSTRUCT *)((LPBYTE)pModule + pModule->fileinfo);
131 if (!FILE_strcasecmp( pOfs->szPathName, dllname ))
132 return BUILTIN_DoLoadModule16( descr );
135 if ((handle = BUILTIN32_dlopen( dllname )))
137 for (i = 0; i < nb_dlls; i++)
139 const BUILTIN16_DESCRIPTOR *descr = builtin_dlls[i];
140 NE_MODULE *pModule = (NE_MODULE *)descr->module_start;
141 OFSTRUCT *pOfs = (OFSTRUCT *)((LPBYTE)pModule + pModule->fileinfo);
142 if (!FILE_strcasecmp( pOfs->szPathName, dllname ))
143 return BUILTIN_DoLoadModule16( descr );
145 ERR( "loaded .so but dll %s still not found\n", dllname );
146 BUILTIN32_dlclose( handle );
149 return (HMODULE16)2;
153 /***********************************************************************
154 * BUILTIN_GetEntryPoint16
156 * Return the ordinal, name, and type info corresponding to a CS:IP address.
157 * This is used only by relay debugging.
159 LPCSTR BUILTIN_GetEntryPoint16( STACK16FRAME *frame, LPSTR name, WORD *pOrd )
161 WORD i, max_offset;
162 register BYTE *p;
163 NE_MODULE *pModule;
164 ET_BUNDLE *bundle;
165 ET_ENTRY *entry;
167 if (!(pModule = NE_GetPtr( FarGetOwner16( GlobalHandle16( frame->module_cs ) ))))
168 return NULL;
170 max_offset = 0;
171 *pOrd = 0;
172 bundle = (ET_BUNDLE *)((BYTE *)pModule + pModule->entry_table);
175 entry = (ET_ENTRY *)((BYTE *)bundle+6);
176 for (i = bundle->first + 1; i <= bundle->last; i++)
178 if ((entry->offs < frame->entry_ip)
179 && (entry->segnum == 1) /* code segment ? */
180 && (entry->offs >= max_offset))
182 max_offset = entry->offs;
183 *pOrd = i;
185 entry++;
187 } while ( (bundle->next)
188 && (bundle = (ET_BUNDLE *)((BYTE *)pModule+bundle->next)));
190 /* Search for the name in the resident names table */
191 /* (built-in modules have no non-resident table) */
193 p = (BYTE *)pModule + pModule->name_table;
194 while (*p)
196 p += *p + 1 + sizeof(WORD);
197 if (*(WORD *)(p + *p + 1) == *pOrd) break;
200 sprintf( name, "%.*s.%d: %.*s",
201 *((BYTE *)pModule + pModule->name_table),
202 (char *)pModule + pModule->name_table + 1,
203 *pOrd, *p, (char *)(p + 1) );
205 /* Retrieve type info string */
206 return *(LPCSTR *)((LPBYTE)MapSL( MAKESEGPTR( frame->module_cs, frame->callfrom_ip )) + 4);
210 /***********************************************************************
211 * __wine_register_dll_16 (KERNEL32.@)
213 * Register a built-in DLL descriptor.
215 void __wine_register_dll_16( const BUILTIN16_DESCRIPTOR *descr )
217 assert( nb_dlls < MAX_DLLS );
218 builtin_dlls[nb_dlls++] = descr;