173 lines
4.9 KiB
C
173 lines
4.9 KiB
C
/*
|
|
* Kernel initialization code
|
|
*/
|
|
|
|
#include <assert.h>
|
|
#include <ctype.h>
|
|
|
|
#include "winbase.h"
|
|
#include "wine/winbase16.h"
|
|
|
|
#include "module.h"
|
|
#include "task.h"
|
|
#include "selectors.h"
|
|
#include "miscemu.h"
|
|
#include "global.h"
|
|
|
|
extern void CODEPAGE_Init(void);
|
|
extern BOOL THUNK_Init(void);
|
|
extern void COMM_Init(void);
|
|
|
|
|
|
/***********************************************************************
|
|
* KERNEL process initialisation routine
|
|
*/
|
|
static BOOL process_attach(void)
|
|
{
|
|
HMODULE16 hModule;
|
|
STARTUPINFOA startup_info;
|
|
UINT cmdShow = 1; /* SW_SHOWNORMAL but we don't want to include winuser.h here */
|
|
|
|
/* Setup codepage info */
|
|
CODEPAGE_Init();
|
|
|
|
/* Initialize thunking */
|
|
if (!THUNK_Init()) return FALSE;
|
|
|
|
/* Initialize DOS memory */
|
|
if (!DOSMEM_Init(0)) return FALSE;
|
|
|
|
if ((hModule = LoadLibrary16( "krnl386.exe" )) < 32) return FALSE;
|
|
|
|
/* Initialize special KERNEL entry points */
|
|
|
|
/* Initialize KERNEL.178 (__WINFLAGS) with the correct flags value */
|
|
NE_SetEntryPoint( hModule, 178, GetWinFlags16() );
|
|
|
|
/* Initialize KERNEL.454/455 (__FLATCS/__FLATDS) */
|
|
NE_SetEntryPoint( hModule, 454, __get_cs() );
|
|
NE_SetEntryPoint( hModule, 455, __get_ds() );
|
|
|
|
/* Initialize KERNEL.THHOOK */
|
|
TASK_InstallTHHook((THHOOK *)PTR_SEG_TO_LIN((SEGPTR)GetProcAddress16( hModule, (LPCSTR)332 )));
|
|
|
|
/* Initialize the real-mode selector entry points */
|
|
#define SET_ENTRY_POINT( num, addr ) \
|
|
NE_SetEntryPoint( hModule, (num), GLOBAL_CreateBlock( GMEM_FIXED, \
|
|
DOSMEM_MapDosToLinear(addr), 0x10000, hModule, \
|
|
WINE_LDT_FLAGS_DATA ))
|
|
|
|
SET_ENTRY_POINT( 174, 0xa0000 ); /* KERNEL.174: __A000H */
|
|
SET_ENTRY_POINT( 181, 0xb0000 ); /* KERNEL.181: __B000H */
|
|
SET_ENTRY_POINT( 182, 0xb8000 ); /* KERNEL.182: __B800H */
|
|
SET_ENTRY_POINT( 195, 0xc0000 ); /* KERNEL.195: __C000H */
|
|
SET_ENTRY_POINT( 179, 0xd0000 ); /* KERNEL.179: __D000H */
|
|
SET_ENTRY_POINT( 190, 0xe0000 ); /* KERNEL.190: __E000H */
|
|
NE_SetEntryPoint( hModule, 183, DOSMEM_0000H ); /* KERNEL.183: __0000H */
|
|
NE_SetEntryPoint( hModule, 173, DOSMEM_BiosSysSeg ); /* KERNEL.173: __ROMBIOS */
|
|
NE_SetEntryPoint( hModule, 193, DOSMEM_BiosDataSeg ); /* KERNEL.193: __0040H */
|
|
NE_SetEntryPoint( hModule, 194, DOSMEM_BiosSysSeg ); /* KERNEL.194: __F000H */
|
|
#undef SET_ENTRY_POINT
|
|
|
|
/* Force loading of some dlls */
|
|
if (LoadLibrary16( "system" ) < 32) return FALSE;
|
|
|
|
/* Initialize communications */
|
|
COMM_Init();
|
|
|
|
/* Read DOS config.sys */
|
|
if (!DOSCONF_ReadConfig()) return FALSE;
|
|
|
|
/* Create 16-bit task */
|
|
GetStartupInfoA( &startup_info );
|
|
if (startup_info.dwFlags & STARTF_USESHOWWINDOW) cmdShow = startup_info.wShowWindow;
|
|
if (!TASK_Create( (NE_MODULE *)GlobalLock16( MapHModuleLS(GetModuleHandleA(0)) ),
|
|
cmdShow, NtCurrentTeb(), NULL, 0 ))
|
|
return FALSE;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* KERNEL initialisation routine
|
|
*/
|
|
BOOL WINAPI MAIN_KernelInit( HINSTANCE hinst, DWORD reason, LPVOID reserved )
|
|
{
|
|
switch(reason)
|
|
{
|
|
case DLL_PROCESS_ATTACH:
|
|
return process_attach();
|
|
case DLL_PROCESS_DETACH:
|
|
WriteOutProfiles16();
|
|
break;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* KERNEL_nop
|
|
*
|
|
* Entry point for kernel functions that do nothing.
|
|
*/
|
|
LONG WINAPI KERNEL_nop(void) { return 0; }
|
|
|
|
|
|
/***************************************************************************
|
|
*
|
|
* Win 2.x string functions now moved to USER
|
|
*
|
|
* We rather want to implement them here instead of doing Callouts
|
|
*/
|
|
|
|
/***********************************************************************
|
|
* KERNEL_AnsiNext16
|
|
*/
|
|
SEGPTR WINAPI KERNEL_AnsiNext16(SEGPTR current)
|
|
{
|
|
return (*(char *)PTR_SEG_TO_LIN(current)) ? current + 1 : current;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* KERNEL_AnsiPrev16
|
|
*/
|
|
SEGPTR WINAPI KERNEL_AnsiPrev16( SEGPTR start, SEGPTR current )
|
|
{
|
|
return (current==start)?start:current-1;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* KERNEL_AnsiUpper16
|
|
*/
|
|
SEGPTR WINAPI KERNEL_AnsiUpper16( SEGPTR strOrChar )
|
|
{
|
|
/* uppercase only one char if strOrChar < 0x10000 */
|
|
if (HIWORD(strOrChar))
|
|
{
|
|
char *s = PTR_SEG_TO_LIN(strOrChar);
|
|
while (*s) {
|
|
*s = toupper(*s);
|
|
s++;
|
|
}
|
|
return strOrChar;
|
|
}
|
|
else return toupper((char)strOrChar);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* KERNEL_AnsiLower16
|
|
*/
|
|
SEGPTR WINAPI KERNEL_AnsiLower16( SEGPTR strOrChar )
|
|
{
|
|
/* lowercase only one char if strOrChar < 0x10000 */
|
|
if (HIWORD(strOrChar))
|
|
{
|
|
char *s = PTR_SEG_TO_LIN(strOrChar);
|
|
while (*s) {
|
|
*s = tolower(*s);
|
|
s++;
|
|
}
|
|
return strOrChar;
|
|
}
|
|
else return tolower((char)strOrChar);
|
|
}
|