2 * Kernel initialization code
10 #include "wine/winbase16.h"
17 extern void CODEPAGE_Init(void);
18 extern BOOL
RELAY_Init(void);
19 extern BOOL
THUNK_Init(void);
20 extern void COMM_Init(void);
23 /***********************************************************************
24 * KERNEL process initialisation routine
26 static BOOL
process_attach(void)
30 /* Setup codepage info */
33 /* Initialize relay entry points */
34 if (!RELAY_Init()) return FALSE
;
36 /* Initialize thunking */
37 if (!THUNK_Init()) return FALSE
;
39 /* Initialize DOS memory */
40 if (!DOSMEM_Init(0)) return FALSE
;
42 if ((hModule
= LoadLibrary16( "krnl386.exe" )) < 32) return FALSE
;
44 /* Initialize special KERNEL entry points */
46 /* Initialize KERNEL.178 (__WINFLAGS) with the correct flags value */
47 NE_SetEntryPoint( hModule
, 178, GetWinFlags16() );
49 /* Initialize KERNEL.454/455 (__FLATCS/__FLATDS) */
50 NE_SetEntryPoint( hModule
, 454, __get_cs() );
51 NE_SetEntryPoint( hModule
, 455, __get_ds() );
53 /* Initialize KERNEL.THHOOK */
54 TASK_InstallTHHook(MapSL((SEGPTR
)GetProcAddress16( hModule
, (LPCSTR
)332 )));
56 /* Initialize the real-mode selector entry points */
57 #define SET_ENTRY_POINT( num, addr ) \
58 NE_SetEntryPoint( hModule, (num), GLOBAL_CreateBlock( GMEM_FIXED, \
59 DOSMEM_MapDosToLinear(addr), 0x10000, hModule, \
60 WINE_LDT_FLAGS_DATA ))
62 SET_ENTRY_POINT( 174, 0xa0000 ); /* KERNEL.174: __A000H */
63 SET_ENTRY_POINT( 181, 0xb0000 ); /* KERNEL.181: __B000H */
64 SET_ENTRY_POINT( 182, 0xb8000 ); /* KERNEL.182: __B800H */
65 SET_ENTRY_POINT( 195, 0xc0000 ); /* KERNEL.195: __C000H */
66 SET_ENTRY_POINT( 179, 0xd0000 ); /* KERNEL.179: __D000H */
67 SET_ENTRY_POINT( 190, 0xe0000 ); /* KERNEL.190: __E000H */
68 NE_SetEntryPoint( hModule
, 183, DOSMEM_0000H
); /* KERNEL.183: __0000H */
69 NE_SetEntryPoint( hModule
, 173, DOSMEM_BiosSysSeg
); /* KERNEL.173: __ROMBIOS */
70 NE_SetEntryPoint( hModule
, 193, DOSMEM_BiosDataSeg
); /* KERNEL.193: __0040H */
71 NE_SetEntryPoint( hModule
, 194, DOSMEM_BiosSysSeg
); /* KERNEL.194: __F000H */
72 #undef SET_ENTRY_POINT
74 /* Force loading of some dlls */
75 if (LoadLibrary16( "system" ) < 32) return FALSE
;
77 /* Initialize communications */
80 /* Read DOS config.sys */
81 if (!DOSCONF_ReadConfig()) return FALSE
;
83 /* Create 16-bit task */
84 TASK_CreateMainTask();
89 /***********************************************************************
90 * KERNEL initialisation routine
92 BOOL WINAPI
MAIN_KernelInit( HINSTANCE hinst
, DWORD reason
, LPVOID reserved
)
96 case DLL_PROCESS_ATTACH
:
97 return process_attach();
98 case DLL_PROCESS_DETACH
:
105 /***********************************************************************
106 * KERNEL_nop (KERNEL.361)
108 * Entry point for kernel functions that do nothing.
110 LONG WINAPI
KERNEL_nop(void) { return 0; }
113 /***************************************************************************
115 * Win 2.x string functions now moved to USER
117 * We rather want to implement them here instead of doing Callouts
120 /***********************************************************************
121 * KERNEL_AnsiNext16 (KERNEL.77)
123 SEGPTR WINAPI
KERNEL_AnsiNext16(SEGPTR current
)
125 return (*(char *)MapSL(current
)) ? current
+ 1 : current
;
128 /***********************************************************************
129 * KERNEL_AnsiPrev16(KERNEL.78)
131 SEGPTR WINAPI
KERNEL_AnsiPrev16( SEGPTR start
, SEGPTR current
)
133 return (current
==start
)?start
:current
-1;
136 /***********************************************************************
137 * KERNEL_AnsiUpper16 (KERNEL.79)
139 SEGPTR WINAPI
KERNEL_AnsiUpper16( SEGPTR strOrChar
)
141 /* uppercase only one char if strOrChar < 0x10000 */
142 if (HIWORD(strOrChar
))
144 char *s
= MapSL(strOrChar
);
151 else return toupper((char)strOrChar
);
154 /***********************************************************************
155 * KERNEL_AnsiLower16 (KERNEL.80)
157 SEGPTR WINAPI
KERNEL_AnsiLower16( SEGPTR strOrChar
)
159 /* lowercase only one char if strOrChar < 0x10000 */
160 if (HIWORD(strOrChar
))
162 char *s
= MapSL(strOrChar
);
169 else return tolower((char)strOrChar
);
172 /***********************************************************************
173 * KERNEL_lstrcmp16 (KERNEL.87)
175 INT16 WINAPI
KERNEL_lstrcmp16( LPCSTR str1
, LPCSTR str2
)
177 return (INT16
)strcmp( str1
, str2
);