4 * Copyright 1996 Alexandre Julliard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
26 #include "wine/winbase16.h"
27 #include "builtin16.h"
32 #include "stackframe.h"
33 #include "wine/library.h"
34 #include "wine/debug.h"
37 WINE_DEFAULT_DEBUG_CHANNEL(module
);
41 void *module_start
; /* 32-bit address of the module data */
42 int module_size
; /* Size of the module data */
43 void *code_start
; /* 32-bit address of DLL code */
44 void *data_start
; /* 32-bit address of DLL data */
45 const char *owner
; /* 32-bit dll that contains this dll */
46 const void *rsrc
; /* resources data */
47 } BUILTIN16_DESCRIPTOR
;
49 /* Table of all built-in DLLs */
53 static const BUILTIN16_DESCRIPTOR
*builtin_dlls
[MAX_DLLS
];
56 /* patch all the flat cs references of the code segment if necessary */
57 inline static void patch_code_segment( void *code_segment
)
60 CALLFROM16
*call
= code_segment
;
61 if (call
->flatcs
== wine_get_cs()) return; /* nothing to patch */
62 while (call
->pushl
== 0x68)
64 call
->flatcs
= wine_get_cs();
71 /***********************************************************************
72 * BUILTIN_DoLoadModule16
74 * Load a built-in Win16 module. Helper function for BUILTIN_LoadModule.
76 static HMODULE16
BUILTIN_DoLoadModule16( const BUILTIN16_DESCRIPTOR
*descr
)
80 SEGTABLEENTRY
*pSegTable
;
83 hModule
= GLOBAL_CreateBlock( GMEM_MOVEABLE
, descr
->module_start
,
84 descr
->module_size
, 0, WINE_LDT_FLAGS_DATA
);
85 if (!hModule
) return 0;
86 FarSetOwner16( hModule
, hModule
);
88 pModule
= (NE_MODULE
*)GlobalLock16( hModule
);
89 pModule
->self
= hModule
;
90 /* NOTE: (Ab)use the hRsrcMap parameter for resource data pointer */
91 pModule
->hRsrcMap
= (void *)descr
->rsrc
;
93 /* Allocate the code segment */
95 pSegTable
= NE_SEG_TABLE( pModule
);
96 pSegTable
->hSeg
= GLOBAL_CreateBlock( GMEM_FIXED
, descr
->code_start
,
97 pSegTable
->minsize
, hModule
,
98 WINE_LDT_FLAGS_CODE
|WINE_LDT_FLAGS_32BIT
);
99 if (!pSegTable
->hSeg
) return 0;
100 patch_code_segment( descr
->code_start
);
103 /* Allocate the data segment */
105 minsize
= pSegTable
->minsize
? pSegTable
->minsize
: 0x10000;
106 minsize
+= pModule
->heap_size
;
107 if (minsize
> 0x10000) minsize
= 0x10000;
108 pSegTable
->hSeg
= GlobalAlloc16( GMEM_FIXED
, minsize
);
109 if (!pSegTable
->hSeg
) return 0;
110 FarSetOwner16( pSegTable
->hSeg
, hModule
);
111 if (pSegTable
->minsize
) memcpy( GlobalLock16( pSegTable
->hSeg
),
112 descr
->data_start
, pSegTable
->minsize
);
113 if (pModule
->heap_size
)
114 LocalInit16( GlobalHandleToSel16(pSegTable
->hSeg
),
115 pSegTable
->minsize
, minsize
);
117 if (descr
->rsrc
) NE_InitResourceHandler(hModule
);
119 NE_RegisterModule( pModule
);
121 /* make sure the 32-bit library containing this one is loaded too */
122 LoadLibraryA( descr
->owner
);
128 /***********************************************************************
131 * Find a descriptor in the list
133 static const BUILTIN16_DESCRIPTOR
*find_dll_descr( const char *dllname
)
136 for (i
= 0; i
< MAX_DLLS
; i
++)
138 const BUILTIN16_DESCRIPTOR
*descr
= builtin_dlls
[i
];
141 NE_MODULE
*pModule
= (NE_MODULE
*)descr
->module_start
;
142 OFSTRUCT
*pOfs
= (OFSTRUCT
*)((LPBYTE
)pModule
+ pModule
->fileinfo
);
143 BYTE
*name_table
= (BYTE
*)pModule
+ pModule
->name_table
;
145 /* check the dll file name */
146 if (!FILE_strcasecmp( pOfs
->szPathName
, dllname
)) return descr
;
147 /* check the dll module name (without extension) */
148 if (!FILE_strncasecmp( dllname
, name_table
+1, *name_table
) &&
149 !strcmp( dllname
+ *name_table
, ".dll" ))
157 /***********************************************************************
160 * Load a built-in module.
162 HMODULE16
BUILTIN_LoadModule( LPCSTR name
)
164 const BUILTIN16_DESCRIPTOR
*descr
;
165 char dllname
[20], *p
;
168 /* Fix the name in case we have a full path and extension */
170 if ((p
= strrchr( name
, '\\' ))) name
= p
+ 1;
171 if ((p
= strrchr( name
, '/' ))) name
= p
+ 1;
173 if (strlen(name
) >= sizeof(dllname
)-4) return (HMODULE16
)2;
175 strcpy( dllname
, name
);
176 p
= strrchr( dllname
, '.' );
177 if (!p
) strcat( dllname
, ".dll" );
178 for (p
= dllname
; *p
; p
++) *p
= FILE_tolower(*p
);
180 if ((descr
= find_dll_descr( dllname
)))
181 return BUILTIN_DoLoadModule16( descr
);
183 if ((handle
= BUILTIN32_dlopen( dllname
)))
185 if ((descr
= find_dll_descr( dllname
)))
186 return BUILTIN_DoLoadModule16( descr
);
188 ERR( "loaded .so but dll %s still not found\n", dllname
);
189 BUILTIN32_dlclose( handle
);
196 /***********************************************************************
197 * __wine_register_dll_16 (KERNEL32.@)
199 * Register a built-in DLL descriptor.
201 void __wine_register_dll_16( const BUILTIN16_DESCRIPTOR
*descr
)
205 for (i
= 0; i
< MAX_DLLS
; i
++)
207 if (builtin_dlls
[i
]) continue;
208 builtin_dlls
[i
] = descr
;
211 assert( i
< MAX_DLLS
);
215 /***********************************************************************
216 * __wine_unregister_dll_16 (KERNEL32.@)
218 * Unregister a built-in DLL descriptor.
220 void __wine_unregister_dll_16( const BUILTIN16_DESCRIPTOR
*descr
)
224 for (i
= 0; i
< MAX_DLLS
; i
++)
226 if (builtin_dlls
[i
] != descr
) continue;
227 builtin_dlls
[i
] = NULL
;