import KernelEx-4.0-Final

kexcrt/abort.c

@@ -0,0 +1,6 @@
+#include <windows.h>
+
+void __cdecl abort(void)
+{
+	RaiseException(0xdeafcafe, EXCEPTION_NONCONTINUABLE, 0, NULL);
+}

kexcrt/exit.c

@@ -0,0 +1,9 @@
+#include <windows.h>
+
+void __exit(void);
+
+void exit(int v)
+{
+	__exit();
+	ExitProcess(v);
+}

kexcrt/gcc/dllcrt0.c

@@ -0,0 +1,27 @@
+#include <windows.h>
+#include "init.h"
+
+extern BOOL WINAPI DllMain(
+        HINSTANCE  hDllHandle,
+        DWORD   dwReason,
+        LPVOID  lpReserved
+);
+
+BOOL WINAPI _DllMainCRTStartup(
+        HINSTANCE  hDllHandle,
+        DWORD   dwReason,
+        LPVOID  lpReserved
+        )
+{
+	BOOL ret;
+	
+    if (dwReason == DLL_PROCESS_ATTACH)
+        __init();
+
+	ret = DllMain(hDllHandle, dwReason, lpReserved);
+
+    if (dwReason == DLL_PROCESS_DETACH)
+        __exit();
+
+    return ret;
+}

kexcrt/gcc/init.c

@@ -0,0 +1,105 @@
+#include <stdlib.h>
+#include "init.h"
+
+#define MAX_ATEXIT        32
+
+typedef void (__cdecl *_PVFV)(void);
+
+static _PVFV _atexitlist[MAX_ATEXIT];
+static int _atexitlist_cnt;
+
+extern _PVFV __CTOR_LIST__[];
+extern _PVFV __DTOR_LIST__[];
+
+extern void _pei386_runtime_relocator (void);
+
+int atexit(_PVFV func)
+{
+    if (_atexitlist_cnt < MAX_ATEXIT)
+    {
+        _atexitlist[_atexitlist_cnt++] = func; 
+        return 0;
+    }
+
+    return -1;
+}
+
+void
+__do_global_dtors (void)
+{
+  static _PVFV *p = __DTOR_LIST__ + 1;
+
+  /*
+   * Call each destructor in the destructor list until a null pointer
+   * is encountered.
+   */
+  while (*p)
+    {
+      (*(p)) ();
+      p++;
+    }
+}
+
+void
+__do_global_ctors (void)
+{
+  unsigned long nptrs = (unsigned long) __CTOR_LIST__[0];
+  unsigned i;
+
+  /*
+   * If the first entry in the constructor list is -1 then the list
+   * is terminated with a null entry. Otherwise the first entry was
+   * the number of pointers in the list.
+   */
+  if (nptrs == -1)
+    {
+      for (nptrs = 0; __CTOR_LIST__[nptrs + 1] != 0; nptrs++)
+	;
+    }
+
+  /* 
+   * Go through the list backwards calling constructors.
+   */
+  for (i = nptrs; i >= 1; i--)
+    {
+      __CTOR_LIST__[i] ();
+    }
+
+  /*
+   * Register the destructors for processing on exit.
+   */
+  atexit (__do_global_dtors);
+}
+
+static int initialized = 0;
+
+void __init(void)
+{
+  _pei386_runtime_relocator();
+  
+  if (!initialized)
+    {
+      initialized = 1;
+      __do_global_ctors ();
+    }
+}
+
+static int exited = 0;
+
+void __exit(void)
+{
+	if (exited)
+		return;
+	exited = 1;
+	
+    if (_atexitlist_cnt)
+    {
+		_PVFV* p;
+		for (p = _atexitlist + _atexitlist_cnt - 1 ; p >= _atexitlist ; p--)
+		{
+			if (*p != NULL)
+				(**p)();
+			p--;
+		}
+    }
+}

kexcrt/gcc/init.h

@@ -0,0 +1,7 @@
+#ifndef __INIT_H
+#define __INIT_H
+
+void __init(void);
+void __exit(void);
+
+#endif

kexcrt/gcc/pseudo-reloc-list.c

@@ -0,0 +1,3 @@
+/*  Define here in .bss in case not defined by linker script. */
+char __RUNTIME_PSEUDO_RELOC_LIST_END__ = 0;
+char __RUNTIME_PSEUDO_RELOC_LIST__ = 0;

kexcrt/gcc/pseudo-reloc.c

@@ -0,0 +1,46 @@
+/* pseudo-reloc.c
+
+   Written by Egor Duda <deo@logos-m.ru>
+   THIS SOFTWARE IS NOT COPYRIGHTED
+
+   This source code is offered for use in the public domain. You may
+   use, modify or distribute it freely.
+
+   This code is distributed in the hope that it will be useful but
+   WITHOUT ANY WARRANTY. ALL WARRENTIES, EXPRESS OR IMPLIED ARE HEREBY
+   DISCLAMED. This includes but is not limited to warrenties of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+*/
+
+#include <windows.h>
+
+extern char __RUNTIME_PSEUDO_RELOC_LIST__;
+extern char __RUNTIME_PSEUDO_RELOC_LIST_END__;
+extern char _image_base__;
+
+typedef struct
+  {
+    DWORD addend;
+    DWORD target;
+  }
+runtime_pseudo_reloc;
+
+static void
+do_pseudo_reloc (void* start, void* end, void* base)
+{
+  DWORD reloc_target;
+  runtime_pseudo_reloc* r;
+  for (r = (runtime_pseudo_reloc*) start; r < (runtime_pseudo_reloc*) end; r++)
+    {
+      reloc_target = (DWORD) base + r->target;
+      *((DWORD*) reloc_target) += r->addend;
+    }
+}
+
+void
+_pei386_runtime_relocator ()
+{
+  do_pseudo_reloc (&__RUNTIME_PSEUDO_RELOC_LIST__,
+		   &__RUNTIME_PSEUDO_RELOC_LIST_END__,
+		   &_image_base__);
+}

kexcrt/kexcrt.dsp

@@ -58,6 +58,10 @@ SOURCE=.\_vsnprintf.c
 # End Source File
 # Begin Source File
 
+SOURCE=.\abort.c
+# End Source File
+# Begin Source File
+
 SOURCE=.\msvc\argcargv.c
 # End Source File
 # Begin Source File
@@ -86,6 +90,10 @@ SOURCE=.\msvc\dllcrt0.c
 # End Source File
 # Begin Source File
 
+SOURCE=.\exit.c
+# End Source File
+# Begin Source File
+
 SOURCE=.\msvc\init.c
 # End Source File
 # Begin Source File
@@ -262,6 +270,10 @@ SOURCE=.\strtok.c
 # End Source File
 # Begin Source File
 
+SOURCE=.\strtok_r.c
+# End Source File
+# Begin Source File
+
 SOURCE=.\strtol.c
 # End Source File
 # Begin Source File
@@ -312,6 +324,10 @@ SOURCE=.\vsscanf.c
 
 SOURCE=.\msvc\wincrt0.c
 # End Source File
+# Begin Source File
+
+SOURCE=.\write.c
+# End Source File
 # End Group
 # Begin Group "Header Files"
 

kexcrt/makefile

@@ -1,5 +1,6 @@
-OBJ = atoi.o atol.o atoll.o ctypes.o memccpy.o memchr.o memcmp.o memcpy.o memmem.o memmove.o memrchr.o memset.o memswap.o snprintf.o sprintf.o sscanf.o strcat.o strchr.o strcmp.o strcmpi.o strcpy.o strlen.o strncat.o strncmp.o strncpy.o strnicmp.o strnlen.o strntoimax.o strntoumax.o strpbrk.o strrchr.o strsep.o strstr.o strtok.o strtol.o strtoll.o strtoul.o strtoull.o strtoumax.o strupr.o strxspn.o vsnprintf.o vsprintf.o vsscanf.o _vsnprintf.o \
-ctype/isalnum.o ctype/isalpha.o ctype/isascii.o ctype/isblank.o ctype/iscntrl.o ctype/isdigit.o ctype/isgraph.o ctype/islower.o ctype/isprint.o ctype/ispunct.o ctype/isspace.o ctype/isupper.o ctype/isxdigit.o ctype/tolower.o ctype/toupper.o
+OBJ = abort.o atoi.o atol.o atoll.o ctypes.o memccpy.o memchr.o memcmp.o memcpy.o memmem.o memmove.o memrchr.o memset.o memswap.o snprintf.o sprintf.o sscanf.o strcat.o strchr.o strcmp.o strcmpi.o strcpy.o strlen.o strncat.o strncmp.o strncpy.o strnicmp.o strnlen.o strntoimax.o strntoumax.o strpbrk.o strrchr.o strsep.o strstr.o strtok.o strtok_r.o strtol.o strtoll.o strtoul.o strtoull.o strtoumax.o strupr.o strxspn.o vsnprintf.o vsprintf.o vsscanf.o _vsnprintf.o write.o exit.o \
+ctype/isalnum.o ctype/isalpha.o ctype/isascii.o ctype/isblank.o ctype/iscntrl.o ctype/isdigit.o ctype/isgraph.o ctype/islower.o ctype/isprint.o ctype/ispunct.o ctype/isspace.o ctype/isupper.o ctype/isxdigit.o ctype/tolower.o ctype/toupper.o \
+gcc/init.o gcc/dllcrt0.o gcc/pseudo-reloc.o gcc/pseudo-reloc-list.o
 
 CC = gcc
 CFLAGS = -O2 -s -I. -D__NO_CTYPE_INLINES -D__NO_ISOCEXT
@@ -11,6 +12,7 @@ all : $(BIN)
 clean :
 	@del *.o >NUL
 	@del ctype\*.o >NUL
+	@del gcc\*.o >NUL
 
 $(BIN) : $(OBJ)
 	ar qcs $@ $(OBJ)

kexcrt/makefile.msv

@@ -1,6 +1,6 @@
-OBJ = atoi.obj atol.obj atoll.obj ctypes.obj memccpy.obj memchr.obj memcmp.obj memcpy.obj memmem.obj memmove.obj memrchr.obj memset.obj memswap.obj snprintf.obj sprintf.obj sscanf.obj strcat.obj strchr.obj strcmp.obj strcmpi.obj strcpy.obj strlen.obj strncat.obj strncmp.obj strncpy.obj strnicmp.obj strnlen.obj strntoimax.obj strntoumax.obj strpbrk.obj strrchr.obj strsep.obj strstr.obj strtok.obj strtol.obj strtoll.obj strtoul.obj strtoull.obj strtoumax.obj strupr.obj strxspn.obj vsnprintf.obj vsprintf.obj vsscanf.obj _vsnprintf.obj \
+OBJ = abort.obj atoi.obj atol.obj atoll.obj ctypes.obj memccpy.obj memchr.obj memcmp.obj memcpy.obj memmem.obj memmove.obj memrchr.obj memset.obj memswap.obj snprintf.obj sprintf.obj sscanf.obj strcat.obj strchr.obj strcmp.obj strcmpi.obj strcpy.obj strlen.obj strncat.obj strncmp.obj strncpy.obj strnicmp.obj strnlen.obj strntoimax.obj strntoumax.obj strpbrk.obj strrchr.obj strsep.obj strstr.obj strtok.obj strtok_r.obj strtol.obj strtoll.obj strtoul.obj strtoull.obj strtoumax.obj strupr.obj strxspn.obj vsnprintf.obj vsprintf.obj vsscanf.obj _vsnprintf.obj write.obj exit.obj \
 ctype/isalnum.obj ctype/isalpha.obj ctype/isascii.obj ctype/isblank.obj ctype/iscntrl.obj ctype/isdigit.obj ctype/isgraph.obj ctype/islower.obj ctype/isprint.obj ctype/ispunct.obj ctype/isspace.obj ctype/isupper.obj ctype/isxdigit.obj ctype/tolower.obj ctype/toupper.obj \
-msvc/init.obj msvc/dllcrt0.obj
+msvc/init.obj msvc/dllcrt0.obj msvc/argcargv.obj msvc/concrt0.obj msvc/wincrt0.obj
 
 CFLAGS = /O2 /Oi- /I. /nologo /D_CTYPE_DISABLE_MACROS
 

kexcrt/msvc/init.c

@@ -65,8 +65,15 @@ int atexit(_PVFV func)
     return -1;
 }
 
+static int exit_done;
+
 void __exit(void)
 {
+	if (exit_done)
+		return;
+	
+	exit_done = 1;
+	
 	// do pre-terminators
     _initterm(__xp_a, __xp_z);
     // do terminators

kexcrt/strtok_r.c

@@ -0,0 +1,17 @@
+/*
+ * strtok_r.c
+ */
+
+char *strsep(char **stringp, const char *delim);
+
+char *strtok_r(char *s, const char *delim, char **holder)
+{
+	if (s)
+		*holder = s;
+
+	do {
+		s = strsep(holder, delim);
+	} while (s && !*s);
+
+	return s;
+}

kexcrt/write.c

@@ -0,0 +1,36 @@
+#include <windows.h>
+
+#define	STDIN_FILENO  0
+#define	STDOUT_FILENO 1
+#define	STDERR_FILENO 2
+
+int __cdecl write(int fd, const void* buf, unsigned int size)
+{
+	DWORD written;
+	HANDLE hFile;
+	
+	switch (fd)
+	{
+	case STDIN_FILENO:
+		hFile = GetStdHandle(STD_INPUT_HANDLE);
+		break;
+	case STDOUT_FILENO:
+		hFile = GetStdHandle(STD_OUTPUT_HANDLE);
+		break;
+	case STDERR_FILENO:
+		hFile = GetStdHandle(STD_ERROR_HANDLE);
+		break;
+	default:
+		hFile = (HANDLE) fd;
+	}
+	
+	if (!WriteFile(hFile, buf, size, &written, NULL))
+		return -1;
+	return written;
+	
+}
+
+int __cdecl _write(int fd, const void* buf, unsigned int size)
+{
+	return write(fd, buf, size);
+}