[CRT] Remove obsolete CRT files

sdk/lib/crt/CMakeLists.txt

···
 
 include_directories(include)
-#include_directories(.)
 
 add_definitions(-D_CRTBLD)
 
-include(conio/conio.cmake)
-include(direct/direct.cmake)
 include(except/except.cmake)
 include(float/float.cmake)
 include(math/math.cmake)
···
 include(mem/mem.cmake)
 include(misc/misc.cmake)
 include(printf/printf.cmake)
-include(process/process.cmake)
 include(search/search.cmake)
 include(startup/startup.cmake)
-include(stdio/stdio.cmake)
 include(stdlib/stdlib.cmake)
 include(string/string.cmake)
-include(time/time.cmake)
-include(wine/wine.cmake)
 include(wstring/wstring.cmake)
 
-include(crt.cmake)
 include(crtmath.cmake)
 include(libcntpr.cmake)
 include(msvcrtex.cmake)

sdk/lib/crt/conio/cgets.c

···
-/*
- * COPYRIGHT:        See COPYING in the top level directory
- * PROJECT:          ReactOS kernel
- * FILE:             lib/sdk/crt/conio/cgets.c
- * PURPOSE:          C Runtime
- * PROGRAMMER:       Eric Kohl (Imported from DJGPP)
- */
-
-#include <precomp.h>
-
-/*
- * @implemented
- */
-char *_cgets(char *string)
-{
-  unsigned len = 0;
-  unsigned int maxlen_wanted;
-  char *sp;
-  int c;
-  /*
-   * Be smart and check for NULL pointer.
-   * Don't know wether TURBOC does this.
-   */
-  if (!string)
-    return(NULL);
-  maxlen_wanted = (unsigned int)((unsigned char)string[0]);
-  sp = &(string[2]);
-  /*
-   * Should the string be shorter maxlen_wanted including or excluding
-   * the trailing '\0' ? We don't take any risk.
-   */
-  while(len < maxlen_wanted-1)
-  {
-    c=_getch();
-    /*
-     * shold we check for backspace here?
-     * TURBOC does (just checked) but doesn't in cscanf (thats harder
-     * or even impossible). We do the same.
-     */
-    if (c == '\b')
-    {
-      if (len > 0)
-      {
-	_cputs("\b \b");	/* go back, clear char on screen with space
-				   and go back again */
-	len--;
-	sp[len] = '\0';		/* clear the character in the string */
-      }
-    }
-    else if (c == '\r')
-    {
-      sp[len] = '\0';
-      break;
-    }
-    else if (c == 0)
-    {
-      /* special character ends input */
-      sp[len] = '\0';
-      _ungetch(c);		/* keep the char for later processing */
-      break;
-    }
-    else
-    {
-      sp[len] = _putch(c);
-      len++;
-    }
-  }
-  sp[maxlen_wanted-1] = '\0';
-  string[1] = (char)((unsigned char)len);
-  return(sp);
-}
-
-

sdk/lib/crt/conio/conio.cmake

···
-
-list(APPEND CRT_CONIO_SOURCE
-    conio/cgets.c
-    conio/cputs.c
-    conio/getch.c
-    conio/getche.c
-    conio/kbhit.c
-    conio/putch.c
-    conio/ungetch.c
-)

sdk/lib/crt/conio/cputs.c

···
-/* Imported from msvcrt/console.c */
-
-#include <precomp.h>
-
-/*********************************************************************
- *		_cputs (MSVCRT.@)
- */
-int CDECL _cputs(const char* str)
-{
-  DWORD count;
-  int len, retval = -1;
-#ifdef __REACTOS__ /* r54651 */
-  HANDLE MSVCRT_console_out = GetStdHandle(STD_OUTPUT_HANDLE);
-#endif
-
-  if (!MSVCRT_CHECK_PMT(str != NULL)) return -1;
-  len = strlen(str);
-
-#ifndef __REACTOS__ /* r54651 */
-  LOCK_CONSOLE;
-#endif
-  if (WriteConsoleA(MSVCRT_console_out, str, len, &count, NULL)
-      && count == len)
-    retval = 0;
-#ifndef __REACTOS__ /* r54651 */
-  UNLOCK_CONSOLE;
-#endif
-  return retval;
-}

sdk/lib/crt/conio/getch.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/conio/getch.c
- * PURPOSE:     Writes a character to stdout
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              28/12/98: Created
- */
-
-#include <precomp.h>
-
-/*
- * @implemented
- */
-int _getch(void)
-{
-    DWORD NumberOfCharsRead = 0;
-    char c;
-    HANDLE ConsoleHandle;
-    BOOL RestoreMode;
-    DWORD ConsoleMode;
-
-    if (char_avail) {
-        c = ungot_char;
-        char_avail = 0;
-    } else {
-        /*
-         * _getch() is documented to NOT echo characters. Testing shows it
-         * doesn't wait for a CR either. So we need to switch off
-         * ENABLE_ECHO_INPUT and ENABLE_LINE_INPUT if they're currently
-         * switched on.
-         */
-        ConsoleHandle = (HANDLE) _get_osfhandle(stdin->_file);
-        RestoreMode = GetConsoleMode(ConsoleHandle, &ConsoleMode) &&
-                      (0 != (ConsoleMode &
-                             (ENABLE_ECHO_INPUT | ENABLE_LINE_INPUT)));
-        if (RestoreMode) {
-            SetConsoleMode(ConsoleHandle,
-                           ConsoleMode & (~ (ENABLE_ECHO_INPUT | ENABLE_LINE_INPUT)));
-        }
-        ReadConsoleA((HANDLE)_get_osfhandle(stdin->_file),
-		             &c,
-		             1,
-		             &NumberOfCharsRead,
-		             NULL);
-        if (RestoreMode) {
-            SetConsoleMode(ConsoleHandle, ConsoleMode);
-        }
-    }
-    if (c == 10)
-        c = 13;
-    return c;
-}
-

sdk/lib/crt/conio/getche.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * 		Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/conio/getche.c
- * PURPOSE:     Reads a character from stdin
- * PROGRAMER:   DJ Delorie
-				Ariadne
- * UPDATE HISTORY:
- *              28/12/98: Created
- */
-
-#include <precomp.h>
-
-int _getche(void)
-{
-  if (char_avail)
-    /*
-     * We don't know, wether the ungot char was already echoed
-     * we assume yes (for example in cscanf, probably the only
-     * place where ungetch is ever called.
-     * There is no way to check for this really, because
-     * ungetch could have been called with a character that
-     * hasn't been got by a conio function.
-     * We don't echo again.
-     */
-    return(_getch());
-  return (_putch(_getch()));
-}

sdk/lib/crt/conio/kbhit.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/conio/kbhit.c
- * PURPOSE:     Checks for keyboard hits
- * PROGRAMERS:  Ariadne, Russell
- * UPDATE HISTORY:
- *              28/12/98: Created
- *              27/9/08: An almost 100% working version of _kbhit()
- */
-
-#include <precomp.h>
-
-static CRITICAL_SECTION CriticalSection;
-volatile BOOL CriticalSectionInitialized=FALSE;
-
-/*
- * @implemented
- */
-
-int _kbhit(void)
-{
-    PINPUT_RECORD InputRecord = NULL;
-    DWORD NumberRead = 0;
-    DWORD EventsRead = 0;
-    DWORD RecordIndex = 0;
-    DWORD BufferIndex = 0;
-    HANDLE StdInputHandle = 0;
-    DWORD ConsoleInputMode = 0;
-
-    /* Attempt some thread safety */
-    if (!CriticalSectionInitialized)
-    {
-        InitializeCriticalSectionAndSpinCount(&CriticalSection, 0x80000400);
-        CriticalSectionInitialized = TRUE;
-    }
-
-    EnterCriticalSection(&CriticalSection);
-
-    if (char_avail)
-    {
-        LeaveCriticalSection(&CriticalSection);
-        return 1;
-    }
-
-    StdInputHandle = GetStdHandle(STD_INPUT_HANDLE);
-
-    /* Turn off processed input so we get key modifiers as well */
-    GetConsoleMode(StdInputHandle, &ConsoleInputMode);
-
-    SetConsoleMode(StdInputHandle, ConsoleInputMode & ~ENABLE_PROCESSED_INPUT);
-
-    /* Start the process */
-    if (!GetNumberOfConsoleInputEvents(StdInputHandle, &EventsRead))
-    {
-        LeaveCriticalSection(&CriticalSection);
-        return 0;
-    }
-
-    if (!EventsRead)
-    {
-        LeaveCriticalSection(&CriticalSection);
-        return 0;
-    }
-
-    if (!(InputRecord = (PINPUT_RECORD)malloc(EventsRead * sizeof(INPUT_RECORD))))
-    {
-        LeaveCriticalSection(&CriticalSection);
-        return 0;
-    }
-
-    if (!PeekConsoleInput(StdInputHandle, InputRecord, EventsRead, &NumberRead))
-    {
-        free(InputRecord);
-        LeaveCriticalSection(&CriticalSection);
-        return 0;
-    }
-
-    for (RecordIndex = 0; RecordIndex < NumberRead; RecordIndex++)
-    {
-        if (InputRecord[RecordIndex].EventType == KEY_EVENT &&
-            InputRecord[RecordIndex].Event.KeyEvent.bKeyDown)
-        {
-            BufferIndex = 1;
-            break;
-        }
-    }
-
-    free(InputRecord);
-
-    /* Restore console input mode */
-    SetConsoleMode(StdInputHandle, ConsoleInputMode);
-
-    LeaveCriticalSection(&CriticalSection);
-
-    return BufferIndex;
-}
-
-

sdk/lib/crt/conio/putch.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/conio/putch.c
- * PURPOSE:     Writes a character to stdout
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              28/12/98: Created
- */
-
-#include <precomp.h>
-
-/*
- * @implemented
- */
-int _putch(int c)
-{
-  DWORD NumberOfCharsWritten;
-
-  if (WriteFile(GetStdHandle(STD_OUTPUT_HANDLE),&c,1,&NumberOfCharsWritten,NULL)) {
-    return -1;
-  }
-  return NumberOfCharsWritten;
-}

sdk/lib/crt/conio/ungetch.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * 		Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/conio/ungetch.c
- * PURPOSE:     Ungets a character from stdin
- * PROGRAMER:   DJ Delorie
-		Ariadne [ Adapted from djgpp libc ]
- * UPDATE HISTORY:
- *              28/12/98: Created
- */
-
-#include <precomp.h>
-
-int char_avail = 0;
-int ungot_char = 0;
-
-
-/*
- * @implemented
- */
-int _ungetch(int c)
-{
-  if (char_avail)
-    return(EOF);
-  ungot_char = c;
-  char_avail = 1;
-  return(c);
-}

sdk/lib/crt/crt.cmake

···
-
-list(APPEND CRT_SOURCE
-    ${CRT_CONIO_SOURCE}
-    ${CRT_DIRECT_SOURCE}
-    ${CRT_EXCEPT_SOURCE}
-    locale/locale.c
-    ${CRT_MBSTRING_SOURCE}
-    ${CRT_MEM_SOURCE}
-    ${CRT_MISC_SOURCE}
-    ${CRT_PRINTF_SOURCE}
-    ${CRT_PROCESS_SOURCE}
-    ${CRT_SEARCH_SOURCE}
-    signal/signal.c
-    ${CRT_STARTUP_SOURCE}
-    ${CRT_STDIO_SOURCE}
-    ${CRT_STDLIB_SOURCE}
-    ${CRT_STRING_SOURCE}
-    sys_stat/systime.c
-    ${CRT_TIME_SOURCE}
-    ${CRT_WINE_SOURCE}
-    ${CRT_WSTRING_SOURCE}
-)
-
-list(APPEND CRT_ASM_SOURCE
-    ${CRT_EXCEPT_ASM_SOURCE}
-    ${CRT_STDLIB_ASM_SOURCE}
-    ${CRT_STRING_ASM_SOURCE}
-    ${CRT_WINE_ASM_SOURCE}
-)
-
-set_source_files_properties(${CRT_ASM_SOURCE} PROPERTIES COMPILE_DEFINITIONS "__MINGW_IMPORT=extern;USE_MSVCRT_PREFIX;_MSVCRT_LIB_;_MSVCRT_;_MT;CRTDLL")
-add_asm_files(crt_asm ${CRT_ASM_SOURCE})
-
-add_library(crt ${CRT_SOURCE} ${crt_asm})
-target_link_libraries(crt chkstk ${PSEH_LIB})
-target_sources(crt PRIVATE $<TARGET_OBJECTS:crtmath>)
-target_compile_definitions(crt
- PRIVATE    __MINGW_IMPORT=extern
-    USE_MSVCRT_PREFIX
-    _MSVCRT_LIB_
-    _MSVCRT_
-    _MT
-    CRTDLL)
-#add_pch(crt precomp.h)
-add_dependencies(crt psdk asm)

sdk/lib/crt/direct/chdir.c

···
-#include <precomp.h>
-#include <tchar.h>
-#include <process.h>
-
-/*
- * @implemented
- */
-int _tchdir(const _TCHAR* _path)
-{
-    WCHAR newdir[MAX_PATH];
-
-    if (!SetCurrentDirectory(_path))
-    {
-        _dosmaperr(_path ? GetLastError() : 0);
-        return -1;
-    }
-
-    /* Update the drive-specific current directory variable */
-    if (GetCurrentDirectoryW(MAX_PATH, newdir) >= 2)
-    {
-        if (newdir[1] == L':')
-        {
-            WCHAR envvar[4] = { L'=', towupper(newdir[0]), L':', L'\0' };
-            SetEnvironmentVariableW(envvar, newdir);
-        }
-    }
-
-    return 0;
-}

sdk/lib/crt/direct/chdrive.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/direct/chdrive.c
- * PURPOSE:     Change the current drive.
- * PROGRAMER:   WINE
- * UPDATE HISTORY:
- *              25/11/05: Added license header
- */
-
-#include <precomp.h>
-
-/*
- * @implemented
- *
- *    _chdrive (MSVCRT.@)
- *
- * Change the current drive.
- *
- * PARAMS
- *  newdrive [I] Drive number to change to (1 = 'A', 2 = 'B', ...)
- *
- * RETURNS
- *  Success: 0. The current drive is set to newdrive.
- *  Failure: -1. errno indicates the error.
- *
- * NOTES
- *  See SetCurrentDirectoryA.
- */
-int _chdrive(int newdrive)
-{
-  WCHAR buffer[] = L"A:";
-
-  buffer[0] += newdrive - 1;
-  if (!SetCurrentDirectoryW( buffer ))
-  {
-    _dosmaperr(GetLastError());
-    if (newdrive <= 0)
-    {
-      _set_errno(EACCES);
-    }
-    return -1;
-  }
-  return 0;
-}

sdk/lib/crt/direct/direct.cmake

···
-
-list(APPEND CRT_DIRECT_SOURCE
-    direct/chdir.c
-    direct/chdrive.c
-    direct/getcwd.c
-    direct/getdcwd.c
-    direct/getdfree.c
-    direct/getdrive.c
-    direct/mkdir.c
-    direct/rmdir.c
-    direct/wchdir.c
-    direct/wgetcwd.c
-    direct/wgetdcwd.c
-    direct/wmkdir.c
-    direct/wrmdir.c
-)

sdk/lib/crt/direct/getcwd.c

···
-#include <precomp.h>
-#include <direct.h>
-#include <process.h>
-#include <tchar.h>
-
-/*
- * @implemented
- */
-_TCHAR* _tgetcwd(_TCHAR* buf, int size)
-{
-  _TCHAR dir[MAX_PATH];
-  DWORD dir_len = GetCurrentDirectory(MAX_PATH,dir);
-
-  if (dir_len == 0)
-  {
-    _dosmaperr(GetLastError());
-    return NULL; /* FIXME: Real return value untested */
-  }
-
-  if (!buf)
-  {
-    return _tcsdup(dir);
-  }
-
-  if (dir_len >= (DWORD)size)
-  {
-    _set_errno(ERANGE);
-    return NULL; /* buf too small */
-  }
-
-  _tcscpy(buf,dir);
-  return buf;
-}

sdk/lib/crt/direct/getdcwd.c

···
-#include <precomp.h>
-#include <direct.h>
-#include <tchar.h>
-
-/*
- * @implemented
- *
- *    _getdcwd (MSVCRT.@)
- *
- * Get the current working directory on a given disk.
- *
- * PARAMS
- *  drive [I] Drive letter to get the current working directory from.
- *  buf   [O] Destination for the current working directory.
- *  size  [I] Length of drive in characters.
- *
- * RETURNS
- *  Success: If drive is NULL, returns an allocated string containing the path.
- *           Otherwise populates drive with the path and returns it.
- *  Failure: NULL. errno indicates the error.
- */
-_TCHAR* _tgetdcwd(int drive, _TCHAR * buf, int size)
-{
-  static _TCHAR* dummy;
-
-  TRACE(":drive %d(%c), size %d\n",drive, drive + 'A' - 1, size);
-
-  if (!drive || drive == _getdrive())
-    return _tgetcwd(buf,size); /* current */
-  else
-  {
-    _TCHAR dir[MAX_PATH];
-    _TCHAR drivespec[] = _T("A:");
-    int dir_len;
-
-    drivespec[0] += drive - 1;
-    if (GetDriveType(drivespec) < DRIVE_REMOVABLE)
-    {
-      _set_errno(EACCES);
-      return NULL;
-    }
-
-    /* GetFullPathName for X: means "get working directory on drive X",
-     * just like passing X: to SetCurrentDirectory means "switch to working
-     * directory on drive X". -Gunnar */
-    dir_len = GetFullPathName(drivespec,MAX_PATH,dir,&dummy);
-    if (dir_len >= size || dir_len < 1)
-    {
-      _set_errno(ERANGE);
-      return NULL; /* buf too small */
-    }
-
-    TRACE(":returning '%s'\n", dir);
-    if (!buf)
-      return _tcsdup(dir); /* allocate */
-
-    _tcscpy(buf,dir);
-  }
-  return buf;
-}
-
-

sdk/lib/crt/direct/getdfree.c

···
-#include <precomp.h>
-#include <ctype.h>
-#include <direct.h>
-
-
-/*
- * @implemented
- */
-unsigned int _getdiskfree(unsigned int _drive, struct _diskfree_t* _diskspace)
-{
-    char RootPathName[10];
-
-    RootPathName[0] = toupper(_drive +'@');
-    RootPathName[1] = ':';
-    RootPathName[2] = '\\';
-    RootPathName[3] = 0;
-    if (_diskspace == NULL)
-        return 0;
-    if (!GetDiskFreeSpaceA(RootPathName,(LPDWORD)&_diskspace->sectors_per_cluster,(LPDWORD)&_diskspace->bytes_per_sector,
-            (LPDWORD )&_diskspace->avail_clusters,(LPDWORD )&_diskspace->total_clusters))
-        return 0;
-    return _diskspace->avail_clusters;
-}

sdk/lib/crt/direct/getdrive.c

···
-#include <precomp.h>
-#include <ctype.h>
-#include <direct.h>
-
-
-/*
- * @implemented
- *
- *    _getdrive (MSVCRT.@)
- *
- * Get the current drive number.
- *
- * PARAMS
- *  None.
- *
- * RETURNS
- *  Success: The drive letter number from 1 to 26 ("A:" to "Z:").
- *  Failure: 0.
- */
-int _getdrive(void)
-{
-    WCHAR buffer[MAX_PATH];
-    if (GetCurrentDirectoryW( MAX_PATH, buffer )>=2)
-    {
-        buffer[0]=towupper(buffer[0]);
-        if (buffer[0] >= L'A' && buffer[0] <= L'Z' && buffer[1] == L':')
-            return buffer[0] - L'A' + 1;
-    }
-    return 0;
-}
-
-/*
- * @implemented
- */
-unsigned long _getdrives(void)
-{
-   return GetLogicalDrives();
-}

sdk/lib/crt/direct/mkdir.c

···
-#include <precomp.h>
-#include <direct.h>
-#include <tchar.h>
-
-/*
- * @implemented
- */
-int _tmkdir(const _TCHAR* _path)
-{
-    if (!CreateDirectory(_path, NULL)) {
-    	_dosmaperr(GetLastError());
-        return -1;
-	}
-    return 0;
-}

sdk/lib/crt/direct/rmdir.c

···
-#include <precomp.h>
-#include <direct.h>
-#include <tchar.h>
-
-/*
- * @implemented
- */
-int _trmdir(const _TCHAR* _path)
-{
-    if (!RemoveDirectory(_path)) {
-    	_dosmaperr(GetLastError());
-        return -1;
-    }
-    return 0;
-}

sdk/lib/crt/direct/wchdir.c

···
-#define UNICODE
-#define _UNICODE
-
-#include "chdir.c"

sdk/lib/crt/direct/wgetcwd.c

···
-#define UNICODE
-#define _UNICODE
-
-#include "getcwd.c"
-

sdk/lib/crt/direct/wgetdcwd.c

···
-#define UNICODE
-#define _UNICODE
-
-#include "getdcwd.c"
-

sdk/lib/crt/direct/wmkdir.c

···
-#define UNICODE
-#define _UNICODE
-
-#include "mkdir.c"

sdk/lib/crt/direct/wrmdir.c

···
-#define UNICODE
-#define _UNICODE
-
-#include "rmdir.c"

sdk/lib/crt/except/amd64/cpp.s

···
-
-
-#include <asm.inc>
-
-.code64
-.align 4
-
-MACRO(START_VTABLE, shortname, cxxname)
-EXTERN shortname&_rtti:PROC
-EXTERN &shortname&_vector_dtor:PROC
-    .quad shortname&_rtti
-PUBLIC &shortname&_vtable
-&shortname&_vtable:
-PUBLIC &cxxname
-&cxxname:
-    .quad &shortname&_vector_dtor
-ENDM
-
-MACRO(DEFINE_EXCEPTION_VTABLE, shortname, cxxname)
-    START_VTABLE shortname, cxxname
-    EXTERN exception_what:ABS
-    .quad exception_what
-ENDM
-
-START_VTABLE type_info, __dummyname_type_info
-DEFINE_EXCEPTION_VTABLE exception, ??_7exception@@6B@
-DEFINE_EXCEPTION_VTABLE bad_typeid, ??_7bad_typeid@@6B@
-DEFINE_EXCEPTION_VTABLE bad_cast, ??_7bad_cast@@6B@
-DEFINE_EXCEPTION_VTABLE __non_rtti_object, ??_7__non_rtti_object@@6B@
-
-END

sdk/lib/crt/except/amd64/cpp_alias.s

···
-
-
-#include <asm.inc>
-
-.code64
-.align 4
-
-MACRO(DEFINE_ALIAS, alias, orig)
-EXTERN &orig:ABS
-ALIAS <&alias> = <&orig>
-ENDM
-
-DEFINE_ALIAS ??3@YAXPEAX@Z, operator_delete
-DEFINE_ALIAS ??_U@YAPEAX_K@Z, operator_new
-DEFINE_ALIAS ??_U@YAPEAX_KHPEBDH@Z, operator_new_dbg
-DEFINE_ALIAS ??_V@YAXPEAX@Z, operator_delete
-DEFINE_ALIAS ??2@YAPEAX_K@Z, operator_new
-DEFINE_ALIAS ??2@YAPEAX_KHPEBDH@Z, operator_new_dbg
-DEFINE_ALIAS ?_query_new_handler@@YAP6AHI@ZXZ, _query_new_handler
-DEFINE_ALIAS ?_set_new_handler@@YAP6AHI@ZP6AHI@Z@Z, _set_new_handler
-DEFINE_ALIAS ?set_new_handler@@YAP6AXXZP6AXXZ@Z, set_new_handler
-DEFINE_ALIAS ?_query_new_mode@@YAHXZ, _query_new_mode
-DEFINE_ALIAS ?_set_new_mode@@YAHH@Z, _set_new_mode
-DEFINE_ALIAS ?_set_se_translator@@YAP6AXIPAU_EXCEPTION_POINTERS@@@ZP6AXI0@Z@Z, _set_se_translator
-DEFINE_ALIAS ?set_terminate@@YAP6AXXZP6AXXZ@Z, set_terminate
-DEFINE_ALIAS ?set_unexpected@@YAP6AXXZP6AXXZ@Z, set_unexpected
-DEFINE_ALIAS ?terminate@@YAXXZ, terminate
-DEFINE_ALIAS ?unexpected@@YAXXZ, unexpected
-DEFINE_ALIAS ?what@exception@@UEBAPEBDXZ, exception_what
-DEFINE_ALIAS ??0exception@@QEAA@AEBQEBDH@Z, exception_ctor_noalloc
-DEFINE_ALIAS ??0exception@@QEAA@AEBV0@@Z, exception_copy_ctor
-DEFINE_ALIAS ??0exception@@QEAA@XZ, exception_default_ctor
-DEFINE_ALIAS ??1exception@@UEAA@XZ, exception_dtor
-DEFINE_ALIAS ??4exception@@QEAAAEAV0@AEBV0@@Z, exception_opequals
-DEFINE_ALIAS ??1type_info@@UEAA@XZ, type_info_dtor
-DEFINE_ALIAS ??0__non_rtti_object@@QEAA@AEBV0@@Z, __non_rtti_object_copy_ctor
-DEFINE_ALIAS ??0__non_rtti_object@@QEAA@PEBD@Z, __non_rtti_object_ctor
-DEFINE_ALIAS ??0bad_cast@@AAE@PBQBD@Z, bad_cast_ctor
-DEFINE_ALIAS ??0bad_cast@@AEAA@PEBQEBD@Z, bad_cast_ctor
-DEFINE_ALIAS ??0bad_cast@@QAE@ABQBD@Z, bad_cast_ctor
-DEFINE_ALIAS ??0bad_cast@@QEAA@AEBQEBD@Z, bad_cast_ctor
-DEFINE_ALIAS ??0bad_cast@@QEAA@AEBV0@@Z, bad_cast_copy_ctor
-DEFINE_ALIAS ??0bad_cast@@QEAA@PEBD@Z, bad_cast_ctor_charptr
-DEFINE_ALIAS ??0bad_typeid@@QEAA@AEBV0@@Z, bad_typeid_copy_ctor
-DEFINE_ALIAS ??0bad_typeid@@QEAA@PEBD@Z, bad_typeid_ctor
-DEFINE_ALIAS ??0exception@@QEAA@AEBQEBD@Z, exception_ctor
-DEFINE_ALIAS ??1__non_rtti_object@@UEAA@XZ, __non_rtti_object_dtor
-DEFINE_ALIAS ??1bad_cast@@UEAA@XZ, bad_cast_dtor
-DEFINE_ALIAS ??1bad_typeid@@UEAA@XZ, bad_typeid_dtor
-DEFINE_ALIAS ??4bad_cast@@QEAAAEAV0@AEBV0@@Z, bad_cast_opequals
-DEFINE_ALIAS ??4bad_typeid@@QEAAAEAV0@AEBV0@@Z, bad_typeid_opequals
-DEFINE_ALIAS ??8type_info@@QEBAHAEBV0@@Z, type_info_opequals_equals
-DEFINE_ALIAS ??9type_info@@QEBAHAEBV0@@Z, type_info_opnot_equals
-DEFINE_ALIAS ??_Fbad_cast@@QEAAXXZ, bad_cast_default_ctor
-DEFINE_ALIAS ??_Fbad_typeid@@QEAAXXZ, bad_typeid_default_ctor
-DEFINE_ALIAS ?_query_new_handler@@YAP6AH_K@ZXZ, _query_new_handler
-DEFINE_ALIAS ?_set_new_handler@@YAP6AH_K@ZP6AH0@Z@Z, _set_new_handler
-DEFINE_ALIAS ?_set_se_translator@@YAP6AXIPEAU_EXCEPTION_POINTERS@@@ZP6AXI0@Z@Z, _set_se_translator
-DEFINE_ALIAS ?before@type_info@@QEBAHAEBV1@@Z, type_info_before
-DEFINE_ALIAS ?name@type_info@@QEBAPEBDXZ, type_info_name
-DEFINE_ALIAS ?raw_name@type_info@@QEBAPEBDXZ, type_info_raw_name
-DEFINE_ALIAS ??4__non_rtti_object@@QEAAAEAV0@AEBV0@@Z, __non_rtti_object_opequals
-
-END

sdk/lib/crt/except/arm/cpp.s

···
-/*
- * COPYRIGHT:         BSD - See COPYING.ARM in the top level directory
- * PROJECT:           ReactOS CRT library
- * PURPOSE:           MSVC wrappers for C++ functions
- * PROGRAMMER:        Timo Kreuzer ([e-mail])
- */
-
-/* INCLUDES ******************************************************************/
-
-#include <kxarm.h>
-
-/* CODE **********************************************************************/
-
-    TEXTAREA
-
-    #undef _MSVCRT_
-    MACRO
-    START_VTABLE $ShortName, $CxxName
-        LCLS RttiName
-        LCLS VtblName
-        LCLS DtorName
-        LCLS CxxLabel
-CxxLabel    SETS "|$CxxName|"
-RttiName    SETS "|$ShortName._rtti|"
-VtblName    SETS "|":CC:"$ShortName._vtable|"
-DtorName    SETS "|":CC:"$ShortName._vector_dtor|"
-        EXTERN $RttiName
-        DCD $RttiName
-        EXPORT $VtblName
-$VtblName
-        EXPORT $CxxLabel
-$CxxLabel
-        EXTERN $DtorName
-        DCD $DtorName
-    MEND
-
-    MACRO
-    DEFINE_EXCEPTION_VTABLE $ShortName, $CxxName
-        START_VTABLE $ShortName, $CxxName
-        EXTERN exception_what
-        DCD exception_what
-    MEND
-
-    START_VTABLE type_info, __dummyname_type_info
-    DEFINE_EXCEPTION_VTABLE exception, ??_7exception@@6B@
-    DEFINE_EXCEPTION_VTABLE bad_typeid, ??_7bad_typeid@@6B@
-    DEFINE_EXCEPTION_VTABLE bad_cast, ??_7bad_cast@@6B@
-    DEFINE_EXCEPTION_VTABLE __non_rtti_object, ??_7__non_rtti_object@@6B@
-
-    GBLS FuncName
-
-    //EXTERN operator_delete
-    //__ExportName ??3@YAXPAX@Z
-    //b operator_delete
-
-    //EXTERN operator_new
-    //__ExportName ??_U@YAPAXI@Z
-    //b operator_new
-
-    END
-/* EOF */

sdk/lib/crt/except/arm/cpp_alias.s

···
-/*
- * COPYRIGHT:         BSD - See COPYING.ARM in the top level directory
- * PROJECT:           ReactOS CRT library
- * PURPOSE:           MSVC wrappers for C++ functions
- * PROGRAMMER:        Timo Kreuzer ([e-mail])
- */
-
-/* INCLUDES ******************************************************************/
-
-#include <kxarm.h>
-
-/* CODE **********************************************************************/
-
-    TEXTAREA
-
-    MACRO
-    DEFINE_ALIAS $FuncName, $Target
-        LCLS _FuncName
-        LCLS _Target
-_FuncName SETS "|$FuncName|"
-_Target SETS "|$Target|"
-        IMPORT $_FuncName, WEAK $_Target
-    MEND
-
-    DEFINE_ALIAS ??0__non_rtti_object@@QAA@ABV0@@Z, __non_rtti_object_copy_ctor
-    DEFINE_ALIAS ??0__non_rtti_object@@QAA@PBD@Z, __non_rtti_object_ctor
-    DEFINE_ALIAS ??0bad_cast@@AAA@PBQBD@Z, bad_cast_ctor // private: __cdecl bad_cast::bad_cast(char const * const *)
-    DEFINE_ALIAS ??0bad_cast@@QAA@ABV0@@Z, bad_cast_copy_ctor // public: __cdecl bad_cast::bad_cast(class bad_cast const &)
-    DEFINE_ALIAS ??0bad_cast@@QAA@PBD@Z, bad_cast_ctor // public: __cdecl bad_cast::bad_cast(char const *)
-    DEFINE_ALIAS ??0bad_typeid@@QAA@ABV0@@Z, bad_typeid_copy_ctor // public: __cdecl bad_typeid::bad_typeid(class bad_typeid const &)
-    DEFINE_ALIAS ??0bad_typeid@@QAA@PBD@Z, bad_typeid_ctor // public: __cdecl bad_typeid::bad_typeid(char const *)
-    DEFINE_ALIAS ??0exception@@QAA@ABQBD@Z, exception_ctor // public: __cdecl exception::exception(char const * const &)
-    DEFINE_ALIAS ??0exception@@QAA@ABQBDH@Z, exception_ctor_noalloc // public: __cdecl exception::exception(char const * const &,int)
-    DEFINE_ALIAS ??0exception@@QAA@ABV0@@Z, exception_copy_ctor // public: __cdecl exception::exception(class exception const &)
-    DEFINE_ALIAS ??0exception@@QAA@XZ, exception_default_ctor // public: __cdecl exception::exception(void)
-    DEFINE_ALIAS ??1__non_rtti_object@@UAA@XZ, __non_rtti_object_dtor // public: virtual __cdecl __non_rtti_object::~__non_rtti_object(void)
-    DEFINE_ALIAS ??1bad_cast@@UAA@XZ, bad_cast_dtor // public: virtual __cdecl bad_cast::~bad_cast(void)
-    DEFINE_ALIAS ??1bad_typeid@@UAA@XZ, bad_typeid_dtor // public: virtual __cdecl bad_typeid::~bad_typeid(void)
-    DEFINE_ALIAS ??1exception@@UAA@XZ, exception_dtor // public: virtual __cdecl exception::~exception(void)
-    DEFINE_ALIAS ??1type_info@@UAA@XZ, type_info_dtor // public: virtual __cdecl type_info::~type_info(void)
-    DEFINE_ALIAS ??2@YAPAXI@Z, operator_new // void * __cdecl operator new(unsigned int)
-    DEFINE_ALIAS ??2@YAPAXIHPBDH@Z, operator_new_dbg // void * __cdecl operator new(unsigned int,int,char const *,int)
-    DEFINE_ALIAS ??3@YAXPAX@Z, operator_delete // void __cdecl operator delete(void *)
-    DEFINE_ALIAS ??4__non_rtti_object@@QAAAAV0@ABV0@@Z, __non_rtti_object_opequals // public: class __non_rtti_object & __cdecl __non_rtti_object::operator=(class __non_rtti_object const &)
-    DEFINE_ALIAS ??4bad_cast@@QAAAAV0@ABV0@@Z, bad_cast_opequals // public: class bad_cast & __cdecl bad_cast::operator=(class bad_cast const &)
-    DEFINE_ALIAS ??4bad_typeid@@QAAAAV0@ABV0@@Z, bad_typeid_opequals // public: class bad_typeid & __cdecl bad_typeid::operator=(class bad_typeid const &)
-    DEFINE_ALIAS ??4exception@@QAAAAV0@ABV0@@Z, exception_opequals // public: class exception & __cdecl exception::operator=(class exception const &)
-    DEFINE_ALIAS ??8type_info@@QBAHABV0@@Z, type_info_opequals_equals // public: int __cdecl type_info::operator==(class type_info const &)const
-    DEFINE_ALIAS ??9type_info@@QBAHABV0@@Z, type_info_opnot_equals // public: int __cdecl type_info::operator!=(class type_info const &)const
-    DEFINE_ALIAS ??_Fbad_cast@@QAAXXZ, bad_cast_default_ctor // public: void __cdecl bad_cast::`default constructor closure'(void)
-    DEFINE_ALIAS ??_Fbad_typeid@@QAAXXZ, bad_typeid_default_ctor // public: void __cdecl bad_typeid::`default constructor closure'(void)
-    DEFINE_ALIAS ??_U@YAPAXI@Z, operator_new // void * __cdecl operator new[](unsigned int)
-    DEFINE_ALIAS ??_U@YAPAXIHPBDH@Z, operator_new_dbg // void * __cdecl operator new[](unsigned int,int,char const *,int)
-    DEFINE_ALIAS ??_V@YAXPAX@Z, operator_delete // void __cdecl operator delete[](void *)
-    DEFINE_ALIAS ?_query_new_handler@@YAP6AHI@ZXZ, _query_new_handler // int (__cdecl*__cdecl _query_new_handler(void))(unsigned int)
-    DEFINE_ALIAS ?_set_new_handler@@YAP6AHI@ZP6AHI@Z@Z, _set_new_handler // int (__cdecl*__cdecl _set_new_handler(int (__cdecl*)(unsigned int)))(unsigned int)
-    DEFINE_ALIAS ?_set_new_mode@@YAHH@Z, _set_new_mode // int __cdecl _set_new_mode(int)
-    DEFINE_ALIAS ?_set_se_translator@@YAP6AXIPAU_EXCEPTION_POINTERS@@@ZP6AXI0@Z@Z, _set_se_translator // void (__cdecl*__cdecl _set_se_translator(void (__cdecl*)(unsigned int,struct _EXCEPTION_POINTERS *)))(unsigned int,struct _EXCEPTION_POINTERS *)
-    DEFINE_ALIAS ?before@type_info@@QBAHABV1@@Z, type_info_before // public: int __cdecl type_info::before(class type_info const &)const
-    DEFINE_ALIAS ?name@type_info@@QBAPBDXZ, type_info_name // public: char const * __cdecl type_info::name(void)const
-    DEFINE_ALIAS ?raw_name@type_info@@QBAPBDXZ, type_info_raw_name // public: char const * __cdecl type_info::raw_name(void)const
-    DEFINE_ALIAS ?set_terminate@@YAP6AXXZP6AXXZ@Z, set_terminate // void (__cdecl*__cdecl set_terminate(void (__cdecl*)(void)))(void)
-    DEFINE_ALIAS ?set_unexpected@@YAP6AXXZP6AXXZ@Z, set_unexpected // void (__cdecl*__cdecl set_unexpected(void (__cdecl*)(void)))(void)
-    DEFINE_ALIAS ?terminate@@YAXXZ, terminate // void __cdecl terminate(void)
-    DEFINE_ALIAS ?unexpected@@YAXXZ, unexpected // void __cdecl unexpected(void)
-    DEFINE_ALIAS ?what@exception@@UBAPBDXZ, exception_what // public: virtual char const * __cdecl exception::what(void)const
-
-    END
-/* EOF */

sdk/lib/crt/except/except.cmake

···
     list(APPEND LIBCNTPR_EXCEPT_ASM_SOURCE
         except/i386/chkstk_asm.s
     )
-    list(APPEND CRT_EXCEPT_ASM_SOURCE
-        except/i386/__CxxFrameHandler3.s
-        except/i386/chkesp.s
-        except/i386/prolog.s
-    )
-    list(APPEND CRT_EXCEPT_SOURCE
-        except/i386/CxxHandleV8Frame.c
-    )
-    if(MSVC)
-        list(APPEND CRT_EXCEPT_ASM_SOURCE
-            except/i386/cpp.s
-            except/i386/cpp_alias.s)
-    endif()
 elseif(ARCH STREQUAL "amd64")
     list(APPEND LIBCNTPR_EXCEPT_SOURCE
         except/amd64/ehandler.c
···
         except/amd64/chkstk_ms.s
         except/amd64/seh.s
     )
-    list(APPEND CRT_EXCEPT_ASM_SOURCE
-        except/amd64/seh.s
-    )
-    if(MSVC)
-        list(APPEND CRT_EXCEPT_ASM_SOURCE
-            except/amd64/cpp.s
-            except/amd64/cpp_alias.s)
-    endif()
 elseif(ARCH STREQUAL "arm")
     list(APPEND LIBCNTPR_EXCEPT_SOURCE
         except/arm/ehandler.c
···
         except/arm/_local_unwind2.s
         except/arm/chkstk_asm.s
     )
-    list(APPEND CRT_EXCEPT_ASM_SOURCE
-        except/arm/_abnormal_termination.s
-        except/arm/_except_handler2.s
-        except/arm/_except_handler3.s
-        except/arm/_global_unwind2.s
-        except/arm/_local_unwind2.s
-        except/arm/chkstk_asm.s
-    )
-    if(MSVC)
-        list(APPEND CRT_EXCEPT_ASM_SOURCE
-            except/arm/cpp.s
-            except/arm/cpp_alias.s)
-    endif()
 endif()
-
-list(APPEND CRT_EXCEPT_SOURCE
-    ${LIBCNTPR_EXCEPT_SOURCE}
-    except/stack.c
-)
 
 if(ARCH STREQUAL "i386")
     list(APPEND CHKSTK_ASM_SOURCE except/i386/chkstk_asm.s)

sdk/lib/crt/except/i386/CxxHandleV8Frame.c

···
 #define WINE_NO_TRACE_MSGS
 #include <wine/debug.h>
 #include <wine/exception.h>
-#include <internal/wine/msvcrt.h>
 #include <internal/wine/cppexcept.h>
 
 extern DWORD CDECL CallCxxFrameHandler(PEXCEPTION_RECORD rec, EXCEPTION_REGISTRATION_RECORD *frame,

sdk/lib/crt/except/stack.c

···
-#include <precomp.h>
-
-/*********************************************************************
-*              _chkesp (MSVCRT.@)
-*
-* Trap to a debugger if the value of the stack pointer has changed.
-*
-* PARAMS
-*  None.
-*
-* RETURNS
-*  Does not return.
-*
-* NOTES
-*  This function is available for iX86 only.
-*
-*  When VC++ generates debug code, it stores the value of the stack pointer
-*  before calling any external function, and checks the value following
-*  the call. It then calls this function, which will trap if the values are
-*  not the same. Usually this means that the prototype used to call
-*  the function is incorrect.  It can also mean that the .spec entry has
-*  the wrong calling convention or parameters.
-*/
-
-#ifdef __i386__
-
-void _chkesp_failed(void)
-{
-    ERR("stack got corrupted!\n");
-    __debugbreak();
-}
-
-#endif  /* __i386__ */
-
-/*********************************************************************
- * _resetstkoflw (MSVCRT.@)
- */
-int CDECL _resetstkoflw(void)
-{
-    int stack_addr;
-    DWORD oldprot;
-
-    /* causes stack fault that updates NtCurrentTeb()->Tib.StackLimit */
-    return VirtualProtect(&stack_addr, 1, PAGE_GUARD|PAGE_READWRITE, &oldprot);
-}

sdk/lib/crt/float/float.cmake

···
     float/_controlfp_s.c
     float/copysign.c
     float/fpclass.c
-    float/fpecode.c
+    #float/fpecode.c
     float/scalb.c
 )
 

sdk/lib/crt/float/fpecode.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/float/fpecode.c
- * PURPOSE:     Unknown
- * PROGRAMER:   Unknown
- * UPDATE HISTORY:
- *              25/11/05: Added license header
- */
-
-#include <precomp.h>
-
-/*
- * @implemented
- */
-int * __fpecode(void)
-{
-    return &msvcrt_get_thread_data()->fpecode;
-}

sdk/lib/crt/include/internal/atexit.h

···
-#ifndef __CRT_INTERNAL_ATEXIT_H
-#define __CRT_INTERNAL_ATEXIT_H
-
-#ifndef _CRT_PRECOMP_H
-#error DO NOT INCLUDE THIS HEADER DIRECTLY
-#endif
-
-#define LOCK_EXIT   _mlock(_EXIT_LOCK1)
-#define UNLOCK_EXIT _munlock(_EXIT_LOCK1)
-
-extern _onexit_t *atexit_table;
-extern int atexit_table_size;
-extern int atexit_registered; /* Points to free slot */
-
-void __call_atexit(void);
-
-#endif

sdk/lib/crt/include/internal/console.h

···
-/* console.h */
-
-#ifndef __CRT_INTERNAL_CONSOLE_H
-#define __CRT_INTERNAL_CONSOLE_H
-
-#ifndef _CRT_PRECOMP_H
-#error DO NOT INCLUDE THIS HEADER DIRECTLY
-#endif
-
-extern int char_avail;
-extern int ungot_char;
-
-#endif
-
-/* EOF */
-

sdk/lib/crt/include/internal/mbstring.h

···
-#ifndef __CRT_INTERNAL_MBSTRING_H
-#define __CRT_INTERNAL_MBSTRING_H
-
-#define _MALPHA 0x01
-#define _MBLANK 0x02
-#define _MDIGIT 0x04
-#define _MKMOJI 0x08
-#define _MKPNCT 0x10
-#define _MLEAD  0x20
-#define _MPUNCT 0x40
-#define _MTRAIL 0x80
-
-#define _MBALNUM (_MALPHA | _MDIGIT | _MKPNCT | _MKMOJI)
-#define _MBALPHA (_MALPHA | _MKPNCT | _MKMOJI)
-#define _MBGRAPH (_MALPHA | _MDIGIT | _MPUNCT | _MKPNCT | _MKMOJI)
-#define _MBKANA  (_MKPNCT | _MKMOJI)
-#define _MBPRINT (_MALPHA | _MDIGIT | _MPUNCT | _MBLANK | _MKPNCT | _MKMOJI)
-#define _MBPUNCT (_MPUNCT | _MKPNCT)
-
-#define _MBLMASK(c) ((c) &  255)
-#define _MBHMASK(c) ((c) & ~255)
-#define _MBGETL(c)  ((c) &  255)
-#define _MBGETH(c)  (((c) >> 8) & 255)
-
-#define _MBIS16(c) ((c) & 0xff00)
-
-/* Macros */
-#define B _MBLANK
-#define D _MDIGIT
-#define P _MPUNCT
-#define T _MTRAIL
-
-/* Macros */
-#define AT (_MALPHA | _MTRAIL)
-#define GT (_MKPNCT | _MTRAIL)
-#define KT (_MKMOJI | _MTRAIL)
-#define LT (_MLEAD  | _MTRAIL)
-#define PT (_MPUNCT | _MTRAIL)
-
-#define MAX_LOCALE_LENGTH 256
-extern unsigned char _mbctype[257];
-extern char MSVCRT_current_lc_all[MAX_LOCALE_LENGTH];
-
-#if defined (_MSC_VER)
-
-#undef _ismbbkana
-#undef _ismbbkpunct
-#undef _ismbbalpha
-#undef _ismbbalnum
-#undef _ismbbgraph
-#undef _ismbbkalnum
-#undef _ismbblead
-#undef _ismbbprint
-#undef _ismbbpunct
-#undef _ismbbtrail
-
-#endif
-
-
-#endif

sdk/lib/crt/include/internal/misc.h

···
-
-
-extern int msvcrt_error_mode;
-extern int __app_type;
-#define _UNKNOWN_APP 0
-#define _CONSOLE_APP 1
-#define _GUI_APP 2
-
-int
-__cdecl
-__crt_MessageBoxA (
-    _In_opt_ const char *pszText,
-    _In_ unsigned int uType);
-

sdk/lib/crt/include/internal/mtdll.h

···
-/*
- * Copyright (c) 2002, TransGaming Technologies Inc.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
- */
-
-#ifndef __CRT_INTERNAL_WINE_MTDLL_H
-#define __CRT_INTERNAL_WINE_MTDLL_H
-
-#if defined(_MT)
-
-#define _mlock(locknum)   _lock(locknum)
-#define _munlock(locknum) _unlock(locknum)
-
-void _unlock( int locknum );
-void _lock( int locknum );
-
-#else
-
-#define _mlock(locknum)   do {} while(0)
-#define _munlock(locknum) do {} while(0)
-
-#endif
-
-
-#define _SIGNAL_LOCK    1
-#define _IOB_SCAN_LOCK  2
-#define _TMPNAM_LOCK    3
-#define _INPUT_LOCK     4
-#define _OUTPUT_LOCK    5
-#define _CSCANF_LOCK    6
-#define _CPRINTF_LOCK   7
-#define _CONIO_LOCK     8
-#define _HEAP_LOCK      9
-#define _BHEAP_LOCK          10 /* No longer used? */
-#define _TIME_LOCK      11
-#define _ENV_LOCK       12
-#define _EXIT_LOCK1     13
-#define _EXIT_LOCK2          14
-#define _THREADDATA_LOCK     15 /* No longer used? */
-#define _POPEN_LOCK     16
-#define _LOCKTAB_LOCK   17
-#define _OSFHND_LOCK    18
-#define _SETLOCALE_LOCK 19
-#define _LC_COLLATE_LOCK     20 /* No longer used? */
-#define _LC_CTYPE_LOCK       21 /* No longer used? */
-#define _LC_MONETARY_LOCK    22 /* No longer used? */
-#define _LC_NUMERIC_LOCK     23 /* No longer used? */
-#define _LC_TIME_LOCK        24 /* No longer used? */
-#define _MB_CP_LOCK     25
-#define _NLG_LOCK       26
-#define _TYPEINFO_LOCK  27
-#define _STREAM_LOCKS   28
-
-/* Must match definition in msvcrt/stdio.h */
-#define _IOB_ENTRIES    20
-#define _LAST_STREAM_LOCK  (_STREAM_LOCKS+_IOB_ENTRIES-1)
-#define _TOTAL_LOCKS        (_LAST_STREAM_LOCK+1)
-
-#endif /* WINE_MTDLL_H */

sdk/lib/crt/include/internal/popen.h

···
-#ifndef __CRT_INTERNAL_POPEN_H
-#define __CRT_INTERNAL_POPEN_H
-
-#ifndef _CRT_PRECOMP_H
-#error DO NOT INCLUDE THIS HEADER DIRECTLY
-#endif
-
-struct popen_handle {
-    FILE *f;
-    HANDLE proc;
-};
-extern struct popen_handle *popen_handles;
-extern DWORD popen_handles_size;
-
-#endif

sdk/lib/crt/include/internal/rterror.h

···
-/* rterror.h */
-
-#ifndef __CRT_INTERNAL_RTERROR_H
-#define __CRT_INTERNAL_RTERROR_H
-
-
-#define _RT_STACK       0   /* stack overflow */
-#define _RT_NULLPTR     1   /* null pointer assignment */
-#define _RT_FLOAT       2   /* floating point not loaded */
-#define _RT_INTDIV      3   /* integer divide by 0 */
-#define _RT_SPACEARG    4   /* not enough space for arguments */
-#define _RT_SPACEENV    5   /* not enough space for environment */
-#define _RT_ABORT       6   /* abnormal program termination */
-#define _RT_THREAD      7   /* not enough space for thread data */
-#define _RT_LOCK        8   /* unexpected multi-thread lock error */
-#define _RT_HEAP        9   /* unexpected heap error */
-#define _RT_OPENCON     10  /* unable to open console device */
-#define _RT_NONCONT     11  /* non-continuable exception */
-#define _RT_INVALDISP   12  /* invalid disposition of exception */
-#define _RT_ONEXIT      13  /* insufficient heap to allocate
-                             * initial table of function pointers
-                             * used by _onexit()/atexit(). */
-#define _RT_PUREVIRT    14  /* pure virtual function call attempted
-                             * (C++ error) */
-#define _RT_STDIOINIT   15  /* not enough space for stdio initialization */
-#define _RT_LOWIOINIT   16  /* not enough space for lowio initialization */
-
-__declspec(noreturn) void _amsg_exit (int errnum);
-
-/* not in any other header */
-void _dosmaperr(unsigned long oserrcode);
-
-#endif  /* __MSVCRT_INTERNAL_RTERROR_H */

sdk/lib/crt/include/internal/time.h

···
-#define DIFFTIME 0x19db1ded53e8000ULL
-#define DIFFDAYS (3 * DAYSPER100YEARS + 17 * DAYSPER4YEARS + 1 * DAYSPERYEAR)
-
-#define DAYSPERYEAR 365
-#define DAYSPER4YEARS (4*DAYSPERYEAR+1)
-#define DAYSPER100YEARS (25*DAYSPER4YEARS-1)
-#define DAYSPER400YEARS (4*DAYSPER100YEARS+1)
-#define SECONDSPERDAY (24*60*60)
-#define SECONDSPERHOUR (60*60)
-#define LEAPDAY 59
-
-static __inline
-__time64_t
-FileTimeToUnixTime(const FILETIME *FileTime, USHORT *millitm)
-{
-    ULARGE_INTEGER ULargeInt;
-    __time64_t time;
-
-    ULargeInt.LowPart = FileTime->dwLowDateTime;
-    ULargeInt.HighPart = FileTime->dwHighDateTime;
-    ULargeInt.QuadPart -= DIFFTIME;
-
-    time = ULargeInt.QuadPart / 10000000;
-    if (millitm)
-        *millitm = (USHORT)((ULargeInt.QuadPart % 10000000) / 10000);
-
-    return time;
-}
-
-static __inline
-long leapyears_passed(long days)
-{
-    long quadcenturies, centuries, quadyears;
-    quadcenturies = days / DAYSPER400YEARS;
-    days -= quadcenturies;
-    centuries = days / DAYSPER100YEARS;
-    days += centuries;
-    quadyears = days / DAYSPER4YEARS;
-    return quadyears - centuries + quadcenturies;
-}
-
-static __inline
-long leapdays_passed(long days)
-{
-    return leapyears_passed(days + DAYSPERYEAR - LEAPDAY + 1);
-}
-
-static __inline
-long years_passed(long days)
-{
-    return (days - leapdays_passed(days)) / 365;
-}
-
-extern long dst_begin;
-extern long dst_end;

sdk/lib/crt/include/internal/tls.h

···
-/* tls.h */
-
-#ifndef __CRT_INTERNAL_TLS_H
-#define __CRT_INTERNAL_TLS_H
-
-#ifndef _CRT_PRECOMP_H
-#error DO NOT INCLUDE THIS HEADER DIRECTLY
-#endif
-
-#include <stddef.h>
-#include <time.h>
-#include <locale.h>
-#include <windef.h>
-#include <winbase.h>
-#include <winnt.h>
-
-#include <internal/wine/eh.h>
-
-/* TLS data */
-extern DWORD tls_index;
-
-struct __thread_data {
-    DWORD                                 tid;
-    HANDLE                                handle;
-    int                                   thread_errno;
-    unsigned long                         thread_doserrno;
-    int                                   unk1;
-    unsigned int                          random_seed;        /* seed for rand() */
-    char                                  *strtok_next;        /* next ptr for strtok() */
-    wchar_t                               *wcstok_next;        /* next ptr for wcstok() */
-    unsigned char                         *mbstok_next;        /* next ptr for mbstok() */
-    char                                  *strerror_buffer;    /* buffer for strerror */
-    wchar_t                               *wcserror_buffer;    /* buffer for wcserror */
-    char                                  *tmpnam_buffer;      /* buffer for tmpname() */
-    wchar_t                               *wtmpnam_buffer;     /* buffer for wtmpname() */
-    void                                  *unk2[2];
-    char                                  *asctime_buffer;     /* buffer for asctime */
-    wchar_t                               *wasctime_buffer;    /* buffer for wasctime */
-    struct tm                             *time_buffer;        /* buffer for localtime/gmtime */
-    char                                  *efcvt_buffer;       /* buffer for ecvt/fcvt */
-    int                                   unk3[2];
-    void                                  *unk4[3];
-    EXCEPTION_POINTERS                    *xcptinfo;
-    int                                   fpecode;
-    struct MSVCRT_threadmbcinfostruct     *mbcinfo;
-    struct MSVCRT_threadlocaleinfostruct  *locinfo;
-    BOOL                                  have_locale;
-    int                                   unk5[1];
-    terminate_function                    terminate_handler;
-    unexpected_function                   unexpected_handler;
-    _se_translator_function               se_translator;
-    void                                  *unk6[3];
-    int                                   unk7;
-    EXCEPTION_RECORD                      *exc_record;
-    void                                  *unk8[100];
-};
-
-typedef struct __thread_data thread_data_t;
-
-extern BOOL msvcrt_init_tls(void);
-extern BOOL msvcrt_free_tls(void);
-extern thread_data_t *msvcrt_get_thread_data(void);
-extern void msvcrt_free_tls_mem(void);
-
-#define MSVCRT_ENABLE_PER_THREAD_LOCALE 1
-#define MSVCRT_DISABLE_PER_THREAD_LOCALE 2
-
-#endif /* __MSVCRT_INTERNAL_TLS_H */
-
-/* EOF */

sdk/lib/crt/include/internal/wine/eh.h

···
-/*
- * C++ exception handling facility
- *
- * Copyright 2000 Francois Gouget.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
- */
-#ifndef __WINE_EH_H
-#define __WINE_EH_H
-#ifndef __WINE_USE_MSVCRT
-#define __WINE_USE_MSVCRT
-#endif
-
-#if !defined(__cplusplus) && !defined(USE_MSVCRT_PREFIX)
-#error "eh.h is meant only for C++ applications"
-#endif
-
-#ifndef MSVCRT
-# ifdef USE_MSVCRT_PREFIX
-#  define MSVCRT(x)    MSVCRT_##x
-# else
-#  define MSVCRT(x)    x
-# endif
-#endif
-
-struct _EXCEPTION_POINTERS;
-
-typedef void (*terminate_handler)();
-typedef void (*terminate_function)();
-typedef void (*unexpected_handler)();
-typedef void (*unexpected_function)();
-typedef void (*_se_translator_function)(unsigned int code, struct _EXCEPTION_POINTERS *info);
-
-terminate_function MSVCRT(set_terminate)(terminate_function func);
-unexpected_function MSVCRT(set_unexpected)(unexpected_function func);
-_se_translator_function MSVCRT(_set_se_translator)(_se_translator_function func);
-
-void        MSVCRT(terminate)();
-void        MSVCRT(unexpected)();
-
-#endif /* __WINE_EH_H */

sdk/lib/crt/include/internal/wine/msvcrt.h

···
-/*
- * Copyright 2001 Jon Griffiths
- * Copyright 2004 Dimitrie O. Paun
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- *
- * NOTES
- *   Naming conventions
- *	- Symbols are prefixed with MSVCRT_ if they conflict
- *        with libc symbols
- *      - Internal symbols are usually prefixed by msvcrt_.
- *      - Exported symbols that are not present in the public
- *        headers are usually kept the same as the original.
- *   Other conventions
- *      - To avoid conflicts with the standard C library,
- *        no msvcrt headers are included in the implementation.
- *      - Instead, symbols are duplicated here, prefixed with
- *        MSVCRT_, as explained above.
- *      - To avoid inconsistencies, a test for each symbol is
- *        added into tests/headers.c. Please always add a
- *        corresponding test when you add a new symbol!
- */
-
-#ifndef __WINE_MSVCRT_H
-#define __WINE_MSVCRT_H
-
-#include <stdarg.h>
-#include <signal.h>
-#include "windef.h"
-#include "winbase.h"
-
-extern unsigned int __lc_codepage;
-extern int __lc_collate_cp;
-extern int __mb_cur_max;
-extern const unsigned short _ctype [257];
-
-void __cdecl _purecall(void);
-__declspec(noreturn) void __cdecl _amsg_exit(int errnum);
-
-extern char **_environ;
-extern wchar_t **_wenviron;
-extern char ** SnapshotOfEnvironmentA(char **);
-extern wchar_t ** SnapshotOfEnvironmentW(wchar_t **);
-
-/* Application type flags */
-#define _UNKNOWN_APP    0
-#define _CONSOLE_APP    1
-#define _GUI_APP        2
-
-/* I/O Streamming flags missing from stdio.h */
-#define _IOYOURBUF      0x0100
-#define _IOAPPEND       0x0200
-#define _IOSETVBUF      0x0400
-#define _IOFEOF         0x0800
-#define _IOFLRTN        0x1000
-#define _IOCTRLZ        0x2000
-#define _IOCOMMIT       0x4000
-#define _IOFREE         0x10000
-
-//wchar_t *wstrdupa(const char *);
-//
-///* FIXME: This should be declared in new.h but it's not an extern "C" so
-// * it would not be much use anyway. Even for Winelib applications.
-// */
-//int __cdecl _set_new_mode(int mode);
-//
-void* __cdecl MSVCRT_operator_new(size_t);
-void __cdecl MSVCRT_operator_delete(void*);
-typedef void* (__cdecl *malloc_func_t)(size_t);
-typedef void  (__cdecl *free_func_t)(void*);
-
-/* Setup and teardown multi threaded locks */
-extern void msvcrt_init_mt_locks(void);
-extern void msvcrt_free_mt_locks(void);
-
-extern BOOL msvcrt_init_locale(void);
-extern void msvcrt_init_math(void);
-extern void msvcrt_init_io(void);
-extern void msvcrt_free_io(void);
-extern void msvcrt_init_console(void);
-extern void msvcrt_free_console(void);
-extern void msvcrt_init_args(void);
-extern void msvcrt_free_args(void);
-extern void msvcrt_init_signals(void);
-extern void msvcrt_free_signals(void);
-extern void msvcrt_free_popen_data(void);
-
-extern unsigned create_io_inherit_block(WORD*, BYTE**);
-
-/* _set_abort_behavior codes */
-#define MSVCRT__WRITE_ABORT_MSG    1
-#define MSVCRT__CALL_REPORTFAULT   2
-
-#define MSVCRT_LC_ALL      LC_ALL
-#define MSVCRT_LC_COLLATE  LC_COLLATE
-#define MSVCRT_LC_CTYPE    LC_CTYPE
-#define MSVCRT_LC_MONETARY LC_MONETARY
-#define MSVCRT_LC_NUMERIC  LC_NUMERIC
-#define MSVCRT_LC_TIME     LC_TIME
-#define MSVCRT_LC_MIN      LC_MIN
-#define MSVCRT_LC_MAX      LC_MAX
-
-#define MSVCRT__OUT_TO_DEFAULT 0
-#define MSVCRT__OUT_TO_STDERR  1
-#define MSVCRT__OUT_TO_MSGBOX  2
-#define MSVCRT__REPORT_ERRMODE 3
-
-extern char* __cdecl __unDName(char *,const char*,int,malloc_func_t,free_func_t,unsigned short int);
-
-/* __unDName/__unDNameEx flags */
-#define UNDNAME_COMPLETE                 (0x0000)
-#define UNDNAME_NO_LEADING_UNDERSCORES   (0x0001) /* Don't show __ in calling convention */
-#define UNDNAME_NO_MS_KEYWORDS           (0x0002) /* Don't show calling convention at all */
-#define UNDNAME_NO_FUNCTION_RETURNS      (0x0004) /* Don't show function/method return value */
-#define UNDNAME_NO_ALLOCATION_MODEL      (0x0008)
-#define UNDNAME_NO_ALLOCATION_LANGUAGE   (0x0010)
-#define UNDNAME_NO_MS_THISTYPE           (0x0020)
-#define UNDNAME_NO_CV_THISTYPE           (0x0040)
-#define UNDNAME_NO_THISTYPE              (0x0060)
-#define UNDNAME_NO_ACCESS_SPECIFIERS     (0x0080) /* Don't show access specifier (public/protected/private) */
-#define UNDNAME_NO_THROW_SIGNATURES      (0x0100)
-#define UNDNAME_NO_MEMBER_TYPE           (0x0200) /* Don't show static/virtual specifier */
-#define UNDNAME_NO_RETURN_UDT_MODEL      (0x0400)
-#define UNDNAME_32_BIT_DECODE            (0x0800)
-#define UNDNAME_NAME_ONLY                (0x1000) /* Only report the variable/method name */
-#define UNDNAME_NO_ARGUMENTS             (0x2000) /* Don't show method arguments */
-#define UNDNAME_NO_SPECIAL_SYMS          (0x4000)
-#define UNDNAME_NO_COMPLEX_TYPE          (0x8000)
-
-typedef void (*float_handler)(int, int);
-void _default_handler(int signal);
-typedef struct _sig_element
-{
-   int signal;
-   char *signame;
-   __p_sig_fn_t handler;
-}sig_element;
-
-#define MSVCRT_malloc malloc
-#define MSVCRT_free free
-char* _setlocale(int,const char*);
-NTSYSAPI VOID NTAPI RtlAssert(PVOID FailedAssertion,PVOID FileName,ULONG LineNumber,PCHAR Message);
-
-/* ioinfo structure size is different in msvcrXX.dll's */
-typedef struct {
-    HANDLE              handle;
-    unsigned char       wxflag;
-    char                lookahead[3];
-    int                 exflag;
-    CRITICAL_SECTION    crit;
-} ioinfo;
-
-#endif /* __WINE_MSVCRT_H */

sdk/lib/crt/include/internal/wine_msc.h

···
-
-exception * __thiscall MSVCRT_exception_ctor(exception * _this, const char ** name);
-exception * __thiscall exception_ctor_noalloc(exception * _this, char ** name, int noalloc);
-exception * __thiscall exception_copy_ctor(exception * _this, const exception * rhs);
-exception * __thiscall exception_default_ctor(exception * _this);
-void __thiscall exception_dtor(exception * _this);
-exception * __thiscall exception_opequals(exception * _this, const exception * rhs);
-void * __thiscall exception_vector_dtor(exception * _this, unsigned int flags);
-void * __thiscall exception_scalar_dtor(exception * _this, unsigned int flags);
-const char * __thiscall exception_what(exception * _this);
-bad_typeid * __thiscall bad_typeid_copy_ctor(bad_typeid * _this, const bad_typeid * rhs);
-bad_typeid * __thiscall bad_typeid_ctor(bad_typeid * _this, const char * name);
-bad_typeid * __thiscall bad_typeid_default_ctor(bad_typeid * _this);
-void __thiscall bad_typeid_dtor(bad_typeid * _this);
-bad_typeid * __thiscall bad_typeid_opequals(bad_typeid * _this, const bad_typeid * rhs);
-void * __thiscall bad_typeid_vector_dtor(bad_typeid * _this, unsigned int flags);
-void * __thiscall bad_typeid_scalar_dtor(bad_typeid * _this, unsigned int flags);
-__non_rtti_object * __thiscall __non_rtti_object_copy_ctor(__non_rtti_object * _this, const __non_rtti_object * rhs);
-__non_rtti_object * __thiscall __non_rtti_object_ctor(__non_rtti_object * _this, const char * name);
-void __thiscall __non_rtti_object_dtor(__non_rtti_object * _this);
-__non_rtti_object * __thiscall __non_rtti_object_opequals(__non_rtti_object * _this, const __non_rtti_object *rhs);
-void * __thiscall __non_rtti_object_vector_dtor(__non_rtti_object * _this, unsigned int flags);
-void * __thiscall __non_rtti_object_scalar_dtor(__non_rtti_object * _this, unsigned int flags);
-bad_cast * __thiscall bad_cast_ctor(bad_cast * _this, const char ** name);
-bad_cast * __thiscall bad_cast_copy_ctor(bad_cast * _this, const bad_cast * rhs);
-bad_cast * __thiscall bad_cast_ctor_charptr(bad_cast * _this, const char * name);
-bad_cast * __thiscall bad_cast_default_ctor(bad_cast * _this);
-void __thiscall bad_cast_dtor(bad_cast * _this);
-bad_cast * __thiscall bad_cast_opequals(bad_cast * _this, const bad_cast * rhs);
-void * __thiscall bad_cast_vector_dtor(bad_cast * _this, unsigned int flags);
-void * __thiscall bad_cast_scalar_dtor(bad_cast * _this, unsigned int flags);
-int __thiscall type_info_opequals_equals(type_info * _this, const type_info * rhs);
-int __thiscall type_info_opnot_equals(type_info * _this, const type_info * rhs);
-int __thiscall type_info_before(type_info * _this, const type_info * rhs);
-void __thiscall type_info_dtor(type_info * _this);
-const char * __thiscall type_info_name(type_info * _this);
-const char * __thiscall type_info_raw_name(type_info * _this);
-void * __thiscall type_info_vector_dtor(type_info * _this, unsigned int flags);
-#if _MSVCR_VER >= 80
-bad_alloc* __thiscall MSVCRT_bad_alloc_copy_ctor(bad_alloc* _this, const bad_alloc* rhs);
-bad_alloc* __thiscall MSVCRT_bad_alloc_copy_ctor(bad_alloc* _this, const bad_alloc* rhs);
-void __thiscall MSVCRT_bad_alloc_dtor(bad_alloc* _this);
-#endif /* _MSVCR_VER >= 80 */
-#if _MSVCR_VER >= 100
-scheduler_resource_allocation_error* __thiscall scheduler_resource_allocation_error_ctor_name(
-    scheduler_resource_allocation_error* this, const char* name, HRESULT hr);
-scheduler_resource_allocation_error* __thiscall scheduler_resource_allocation_error_ctor(
-    scheduler_resource_allocation_error* this, HRESULT hr);
-scheduler_resource_allocation_error* __thiscall MSVCRT_scheduler_resource_allocation_error_copy_ctor(
-    scheduler_resource_allocation_error* this,
-    const scheduler_resource_allocation_error* rhs);
-HRESULT __thiscall scheduler_resource_allocation_error_get_error_code(
-    const scheduler_resource_allocation_error* this);
-void __thiscall MSVCRT_scheduler_resource_allocation_error_dtor(
-    scheduler_resource_allocation_error* this);
-improper_lock* __thiscall improper_lock_ctor_str(improper_lock* this, const char* str);
-improper_lock* __thiscall improper_lock_ctor(improper_lock* this);
-improper_lock* __thiscall MSVCRT_improper_lock_copy_ctor(improper_lock* _this, const improper_lock* rhs);
-void __thiscall MSVCRT_improper_lock_dtor(improper_lock* _this);
-invalid_scheduler_policy_key* __thiscall invalid_scheduler_policy_key_ctor_str(
-    invalid_scheduler_policy_key* this, const char* str);
-invalid_scheduler_policy_key* __thiscall invalid_scheduler_policy_key_ctor(
-    invalid_scheduler_policy_key* this);
-invalid_scheduler_policy_key* __thiscall MSVCRT_invalid_scheduler_policy_key_copy_ctor(
-    invalid_scheduler_policy_key* _this, const invalid_scheduler_policy_key* rhs);
-void __thiscall MSVCRT_invalid_scheduler_policy_key_dtor(
-    invalid_scheduler_policy_key* _this);
-invalid_scheduler_policy_value* __thiscall invalid_scheduler_policy_value_ctor_str(
-    invalid_scheduler_policy_value* this, const char* str);
-invalid_scheduler_policy_value* __thiscall invalid_scheduler_policy_value_ctor(
-    invalid_scheduler_policy_value* this);
-invalid_scheduler_policy_value* __thiscall MSVCRT_invalid_scheduler_policy_value_copy_ctor(
-    invalid_scheduler_policy_value* _this, const invalid_scheduler_policy_value* rhs);
-void __thiscall MSVCRT_invalid_scheduler_policy_value_dtor(
-    invalid_scheduler_policy_value* _this);
-invalid_scheduler_policy_thread_specification* __thiscall invalid_scheduler_policy_thread_specification_ctor_str(
-    invalid_scheduler_policy_thread_specification* this, const char* str);
-invalid_scheduler_policy_thread_specification* __thiscall invalid_scheduler_policy_thread_specification_ctor(
-    invalid_scheduler_policy_thread_specification* this);
-invalid_scheduler_policy_thread_specification* __thiscall MSVCRT_invalid_scheduler_policy_thread_specification_copy_ctor(
-    invalid_scheduler_policy_thread_specification* _this, const invalid_scheduler_policy_thread_specification* rhs);
-void __thiscall MSVCRT_invalid_scheduler_policy_thread_specification_dtor(
-    invalid_scheduler_policy_thread_specification* _this);
-improper_scheduler_attach* __thiscall improper_scheduler_attach_ctor_str(
-    improper_scheduler_attach* this, const char* str);
-improper_scheduler_attach* __thiscall improper_scheduler_attach_ctor(
-    improper_scheduler_attach* this);
-improper_scheduler_attach* __thiscall MSVCRT_improper_scheduler_attach_copy_ctor(
-    improper_scheduler_attach* _this, const improper_scheduler_attach* rhs);
-void __thiscall MSVCRT_improper_scheduler_attach_dtor(
-    improper_scheduler_attach* _this);
-improper_scheduler_detach* __thiscall improper_scheduler_detach_ctor_str(
-    improper_scheduler_detach* this, const char* str);
-improper_scheduler_detach* __thiscall improper_scheduler_detach_ctor(
-    improper_scheduler_detach* this);
-improper_scheduler_detach* __thiscall MSVCRT_improper_scheduler_detach_copy_ctor(
-    improper_scheduler_detach* _this, const improper_scheduler_detach* rhs);
-void __thiscall MSVCRT_improper_scheduler_detach_dtor(
-    improper_scheduler_detach* _this);
-#endif

sdk/lib/crt/locale/locale.c

···
-/*
- * msvcrt.dll locale functions
- *
- * Copyright 2000 Jon Griffiths
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-#include <precomp.h>
-#include <locale.h>
-
-#include "mbctype.h"
-#include <internal/wine/msvcrt.h>
-
-#define MAX_ELEM_LEN 64 /* Max length of country/language/CP string */
-#define MAX_LOCALE_LENGTH 256
-
-#ifdef _pctype
-#error _pctype should not be defined
-#endif
-
-#define strcasecmp _stricmp
-#define strncasecmp _strnicmp
-unsigned int __lc_codepage = 0;
-int MSVCRT___lc_collate_cp = 0;
-LCID MSVCRT___lc_handle[LC_MAX - LC_MIN + 1] = { 0 };
-int __mb_cur_max = 1;
-static unsigned char charmax = CHAR_MAX;
-
-unsigned char _mbctype[257] = { 0 };
-
-/* MT */
-#define LOCK_LOCALE   _mlock(_SETLOCALE_LOCK);
-#define UNLOCK_LOCALE _munlock(_SETLOCALE_LOCK);
-
-#define MSVCRT_LEADBYTE  0x8000
-#define MSVCRT_C1_DEFINED 0x200
-
-/* Friendly country strings & language names abbreviations. */
-static const char * const _country_synonyms[] =
-{
-    "american", "enu",
-    "american english", "enu",
-    "american-english", "enu",
-    "english-american", "enu",
-    "english-us", "enu",
-    "english-usa", "enu",
-    "us", "enu",
-    "usa", "enu",
-    "australian", "ena",
-    "english-aus", "ena",
-    "belgian", "nlb",
-    "french-belgian", "frb",
-    "canadian", "enc",
-    "english-can", "enc",
-    "french-canadian", "frc",
-    "chinese", "chs",
-    "chinese-simplified", "chs",
-    "chinese-traditional", "cht",
-    "dutch-belgian", "nlb",
-    "english-nz", "enz",
-    "uk", "eng",
-    "english-uk", "eng",
-    "french-swiss", "frs",
-    "swiss", "des",
-    "german-swiss", "des",
-    "italian-swiss", "its",
-    "german-austrian", "dea",
-    "portuguese", "ptb",
-    "portuguese-brazil", "ptb",
-    "spanish-mexican", "esm",
-    "norwegian-bokmal", "nor",
-    "norwegian-nynorsk", "non",
-    "spanish-modern", "esn"
-};
-
-/* INTERNAL: Map a synonym to an ISO code */
-static void remap_synonym(char *name)
-{
-  unsigned int i;
-  for (i = 0; i < sizeof(_country_synonyms)/sizeof(char*); i += 2 )
-  {
-    if (!strcasecmp(_country_synonyms[i],name))
-    {
-      TRACE(":Mapping synonym %s to %s\n",name,_country_synonyms[i+1]);
-      strcpy(name, _country_synonyms[i+1]);
-      return;
-    }
-  }
-}
-
-/* Note: Flags are weighted in order of matching importance */
-#define FOUND_LANGUAGE         0x4
-#define FOUND_COUNTRY          0x2
-#define FOUND_CODEPAGE         0x1
-
-typedef struct {
-  char search_language[MAX_ELEM_LEN];
-  char search_country[MAX_ELEM_LEN];
-  char search_codepage[MAX_ELEM_LEN];
-  char found_codepage[MAX_ELEM_LEN];
-  unsigned int match_flags;
-  LANGID found_lang_id;
-} locale_search_t;
-
-#define CONTINUE_LOOKING TRUE
-#define STOP_LOOKING     FALSE
-
-/* INTERNAL: Get and compare locale info with a given string */
-static int compare_info(LCID lcid, DWORD flags, char* buff, const char* cmp, BOOL exact)
-{
-  int len;
-
-  if(!cmp[0])
-      return 0;
-
-  buff[0] = 0;
-  GetLocaleInfoA(lcid, flags|LOCALE_NOUSEROVERRIDE, buff, MAX_ELEM_LEN);
-  if (!buff[0])
-    return 0;
-
-  /* Partial matches are only allowed on language/country names */
-  len = strlen(cmp);
-  if(exact || len<=3)
-    return !strcasecmp(cmp, buff);
-  else
-    return !strncasecmp(cmp, buff, len);
-}
-
-static BOOL CALLBACK
-find_best_locale_proc(HMODULE hModule, LPCSTR type, LPCSTR name, WORD LangID, LONG_PTR lParam)
-{
-  locale_search_t *res = (locale_search_t *)lParam;
-  const LCID lcid = MAKELCID(LangID, SORT_DEFAULT);
-  char buff[MAX_ELEM_LEN];
-  unsigned int flags = 0;
-
-  if(PRIMARYLANGID(LangID) == LANG_NEUTRAL)
-    return CONTINUE_LOOKING;
-
-  /* Check Language */
-  if (compare_info(lcid,LOCALE_SISO639LANGNAME,buff,res->search_language, TRUE) ||
-      compare_info(lcid,LOCALE_SABBREVLANGNAME,buff,res->search_language, TRUE) ||
-      compare_info(lcid,LOCALE_SENGLANGUAGE,buff,res->search_language, FALSE))
-  {
-    TRACE(":Found language: %s->%s\n", res->search_language, buff);
-    flags |= FOUND_LANGUAGE;
-  }
-  else if (res->match_flags & FOUND_LANGUAGE)
-  {
-    return CONTINUE_LOOKING;
-  }
-
-  /* Check Country */
-  if (compare_info(lcid,LOCALE_SISO3166CTRYNAME,buff,res->search_country, TRUE) ||
-      compare_info(lcid,LOCALE_SABBREVCTRYNAME,buff,res->search_country, TRUE) ||
-      compare_info(lcid,LOCALE_SENGCOUNTRY,buff,res->search_country, FALSE))
-  {
-    TRACE("Found country:%s->%s\n", res->search_country, buff);
-    flags |= FOUND_COUNTRY;
-  }
-  else if (!flags && (res->match_flags & FOUND_COUNTRY))
-  {
-    return CONTINUE_LOOKING;
-  }
-
-  /* Check codepage */
-  if (compare_info(lcid,LOCALE_IDEFAULTCODEPAGE,buff,res->search_codepage, TRUE) ||
-      (compare_info(lcid,LOCALE_IDEFAULTANSICODEPAGE,buff,res->search_codepage, TRUE)))
-  {
-    TRACE("Found codepage:%s->%s\n", res->search_codepage, buff);
-    flags |= FOUND_CODEPAGE;
-    memcpy(res->found_codepage,res->search_codepage,MAX_ELEM_LEN);
-  }
-  else if (!flags && (res->match_flags & FOUND_CODEPAGE))
-  {
-    return CONTINUE_LOOKING;
-  }
-
-  if (flags > res->match_flags)
-  {
-    /* Found a better match than previously */
-    res->match_flags = flags;
-    res->found_lang_id = LangID;
-  }
-  if ((flags & (FOUND_LANGUAGE | FOUND_COUNTRY | FOUND_CODEPAGE)) ==
-        (FOUND_LANGUAGE | FOUND_COUNTRY | FOUND_CODEPAGE))
-  {
-    TRACE(":found exact locale match\n");
-    return STOP_LOOKING;
-  }
-  return CONTINUE_LOOKING;
-}
-
-extern int atoi(const char *);
-
-/* Internal: Find the LCID for a locale specification */
-LCID MSVCRT_locale_to_LCID(const char *locale, unsigned short *codepage)
-{
-    LCID lcid;
-    locale_search_t search;
-    const char *cp, *region;
-
-    memset(&search, 0, sizeof(locale_search_t));
-
-    cp = strchr(locale, '.');
-    region = strchr(locale, '_');
-
-    lstrcpynA(search.search_language, locale, MAX_ELEM_LEN);
-    if(region) {
-        lstrcpynA(search.search_country, region+1, MAX_ELEM_LEN);
-        if(region-locale < MAX_ELEM_LEN)
-            search.search_language[region-locale] = '\0';
-    } else
-        search.search_country[0] = '\0';
-
-    if(cp) {
-        lstrcpynA(search.search_codepage, cp+1, MAX_ELEM_LEN);
-        if(region && cp-region-1<MAX_ELEM_LEN)
-          search.search_country[cp-region-1] = '\0';
-        if(cp-locale < MAX_ELEM_LEN)
-            search.search_language[cp-locale] = '\0';
-    } else
-        search.search_codepage[0] = '\0';
-
-    if(!search.search_country[0] && !search.search_codepage[0])
-        remap_synonym(search.search_language);
-
-    EnumResourceLanguagesA(GetModuleHandleA("KERNEL32"), (LPSTR)RT_STRING,
-            (LPCSTR)LOCALE_ILANGUAGE,find_best_locale_proc,
-            (LONG_PTR)&search);
-
-    if (!search.match_flags)
-        return -1;
-
-    /* If we were given something that didn't match, fail */
-    if (search.search_country[0] && !(search.match_flags & FOUND_COUNTRY))
-        return -1;
-
-    lcid =  MAKELCID(search.found_lang_id, SORT_DEFAULT);
-
-    /* Populate partial locale, translating LCID to locale string elements */
-    if (!(search.match_flags & FOUND_CODEPAGE)) {
-        /* Even if a codepage is not enumerated for a locale
-         * it can be set if valid */
-        if (search.search_codepage[0]) {
-            if (IsValidCodePage(atoi(search.search_codepage)))
-                memcpy(search.found_codepage,search.search_codepage,MAX_ELEM_LEN);
-            else {
-                /* Special codepage values: OEM & ANSI */
-                if (!strcasecmp(search.search_codepage,"OCP")) {
-                    GetLocaleInfoA(lcid, LOCALE_IDEFAULTCODEPAGE,
-                            search.found_codepage, MAX_ELEM_LEN);
-                } else if (!strcasecmp(search.search_codepage,"ACP")) {
-                    GetLocaleInfoA(lcid, LOCALE_IDEFAULTANSICODEPAGE,
-                            search.found_codepage, MAX_ELEM_LEN);
-                } else
-                    return -1;
-
-                if (!atoi(search.found_codepage))
-                    return -1;
-            }
-        } else {
-            /* Prefer ANSI codepages if present */
-            GetLocaleInfoA(lcid, LOCALE_IDEFAULTANSICODEPAGE,
-                    search.found_codepage, MAX_ELEM_LEN);
-            if (!search.found_codepage[0] || !atoi(search.found_codepage))
-                GetLocaleInfoA(lcid, LOCALE_IDEFAULTCODEPAGE,
-                        search.found_codepage, MAX_ELEM_LEN);
-        }
-    }
-    if (codepage)
-        *codepage = atoi(search.found_codepage);
-
-    return lcid;
-}
-
-/* INTERNAL: Set lc_handle, lc_id and lc_category in threadlocinfo struct */
-static BOOL update_threadlocinfo_category(LCID lcid, unsigned short cp,
-        MSVCRT__locale_t loc, int category)
-{
-    char buf[256], *p;
-    int len;
-
-    if(GetLocaleInfoA(lcid, LOCALE_ILANGUAGE|LOCALE_NOUSEROVERRIDE, buf, 256)) {
-        p = buf;
-
-        loc->locinfo->lc_id[category].wLanguage = 0;
-        while(*p) {
-            loc->locinfo->lc_id[category].wLanguage *= 16;
-
-            if(*p <= '9')
-                loc->locinfo->lc_id[category].wLanguage += *p-'0';
-            else
-                loc->locinfo->lc_id[category].wLanguage += *p-'a'+10;
-
-            p++;
-        }
-
-        loc->locinfo->lc_id[category].wCountry =
-            loc->locinfo->lc_id[category].wLanguage;
-    }
-
-    loc->locinfo->lc_id[category].wCodePage = cp;
-
-    loc->locinfo->lc_handle[category] = lcid;
-
-    len = 0;
-    len += GetLocaleInfoA(lcid, LOCALE_SENGLANGUAGE
-            |LOCALE_NOUSEROVERRIDE, buf, 256);
-    buf[len-1] = '_';
-    len += GetLocaleInfoA(lcid, LOCALE_SENGCOUNTRY
-            |LOCALE_NOUSEROVERRIDE, &buf[len], 256-len);
-    buf[len-1] = '.';
-    sprintf(buf+len, "%u", cp);
-    len += strlen(buf+len)+1;
-
-    loc->locinfo->lc_category[category].locale = MSVCRT_malloc(len);
-    loc->locinfo->lc_category[category].refcount = MSVCRT_malloc(sizeof(int));
-    if(!loc->locinfo->lc_category[category].locale
-            || !loc->locinfo->lc_category[category].refcount) {
-        MSVCRT_free(loc->locinfo->lc_category[category].locale);
-        MSVCRT_free(loc->locinfo->lc_category[category].refcount);
-        loc->locinfo->lc_category[category].locale = NULL;
-        loc->locinfo->lc_category[category].refcount = NULL;
-        return TRUE;
-    }
-    memcpy(loc->locinfo->lc_category[category].locale, buf, len);
-    *loc->locinfo->lc_category[category].refcount = 1;
-
-    return FALSE;
-}
-
-/* INTERNAL: swap pointers values */
-static inline void swap_pointers(void **p1, void **p2) {
-    void *hlp;
-
-    hlp = *p1;
-    *p1 = *p2;
-    *p2 = hlp;
-}
-
-/* INTERNAL: returns pthreadlocinfo struct */
-MSVCRT_pthreadlocinfo get_locinfo(void) {
-    thread_data_t *data = msvcrt_get_thread_data();
-
-    if(!data || !data->have_locale)
-        return MSVCRT_locale->locinfo;
-
-    return data->locinfo;
-}
-
-/* INTERNAL: returns pthreadlocinfo struct */
-MSVCRT_pthreadmbcinfo get_mbcinfo(void) {
-    thread_data_t *data = msvcrt_get_thread_data();
-
-    if(!data || !data->have_locale)
-        return MSVCRT_locale->mbcinfo;
-
-    return data->mbcinfo;
-}
-
-/* INTERNAL: constructs string returned by setlocale */
-static inline char* construct_lc_all(MSVCRT_pthreadlocinfo locinfo) {
-    static char current_lc_all[MAX_LOCALE_LENGTH];
-
-    int i;
-
-    for(i=MSVCRT_LC_MIN+1; i<MSVCRT_LC_MAX; i++) {
-        if(strcmp(locinfo->lc_category[i].locale,
-                    locinfo->lc_category[i+1].locale))
-            break;
-    }
-
-    if(i==MSVCRT_LC_MAX)
-        return locinfo->lc_category[MSVCRT_LC_COLLATE].locale;
-
-    sprintf(current_lc_all,
-            "LC_COLLATE=%s;LC_CTYPE=%s;LC_MONETARY=%s;LC_NUMERIC=%s;LC_TIME=%s",
-            locinfo->lc_category[MSVCRT_LC_COLLATE].locale,
-            locinfo->lc_category[MSVCRT_LC_CTYPE].locale,
-            locinfo->lc_category[MSVCRT_LC_MONETARY].locale,
-            locinfo->lc_category[MSVCRT_LC_NUMERIC].locale,
-            locinfo->lc_category[MSVCRT_LC_TIME].locale);
-
-    return current_lc_all;
-}
-
-
-/*********************************************************************
- *		wsetlocale (MSVCRT.@)
- */
-wchar_t* CDECL _wsetlocale(int category, const wchar_t* locale)
-{
-  static wchar_t fake[] = {
-    'E','n','g','l','i','s','h','_','U','n','i','t','e','d',' ',
-    'S','t','a','t','e','s','.','1','2','5','2',0 };
-
-  FIXME("%d %s\n", category, debugstr_w(locale));
-
-  return fake;
-}
-
-/*********************************************************************
- *		_Getdays (MSVCRT.@)
- */
-char* CDECL _Getdays(void)
-{
-    MSVCRT___lc_time_data *cur = get_locinfo()->lc_time_curr;
-    int i, len, size;
-    char *out;
-
-    TRACE("\n");
-
-    size = cur->str.names.short_mon[0]-cur->str.names.short_wday[0];
-    out = MSVCRT_malloc(size+1);
-    if(!out)
-        return NULL;
-
-    size = 0;
-    for(i=0; i<7; i++) {
-        out[size++] = ':';
-        len = strlen(cur->str.names.short_wday[i]);
-        memcpy(&out[size], cur->str.names.short_wday[i], len);
-        size += len;
-
-        out[size++] = ':';
-        len = strlen(cur->str.names.wday[i]);
-        memcpy(&out[size], cur->str.names.wday[i], len);
-        size += len;
-    }
-    out[size] = '\0';
-
-    return out;
-}
-
-/*********************************************************************
- *		_Getmonths (MSVCRT.@)
- */
-char* CDECL _Getmonths(void)
-{
-    MSVCRT___lc_time_data *cur = get_locinfo()->lc_time_curr;
-    int i, len, size;
-    char *out;
-
-    TRACE("\n");
-
-    size = cur->str.names.am-cur->str.names.short_mon[0];
-    out = MSVCRT_malloc(size+1);
-    if(!out)
-        return NULL;
-
-    size = 0;
-    for(i=0; i<12; i++) {
-        out[size++] = ':';
-        len = strlen(cur->str.names.short_mon[i]);
-        memcpy(&out[size], cur->str.names.short_mon[i], len);
-        size += len;
-
-        out[size++] = ':';
-        len = strlen(cur->str.names.mon[i]);
-        memcpy(&out[size], cur->str.names.mon[i], len);
-        size += len;
-    }
-    out[size] = '\0';
-
-    return out;
-}
-
-/*********************************************************************
- *		_Gettnames (MSVCRT.@)
- */
-void* CDECL _Gettnames(void)
-{
-    MSVCRT___lc_time_data *ret, *cur = get_locinfo()->lc_time_curr;
-    unsigned int i, size = sizeof(MSVCRT___lc_time_data);
-
-    TRACE("\n");
-
-    for(i=0; i<sizeof(cur->str.str)/sizeof(cur->str.str[0]); i++)
-        size += strlen(cur->str.str[i])+1;
-
-    ret = MSVCRT_malloc(size);
-    if(!ret)
-        return NULL;
-    memcpy(ret, cur, size);
-
-    size = 0;
-    for(i=0; i<sizeof(cur->str.str)/sizeof(cur->str.str[0]); i++) {
-        ret->str.str[i] = &ret->data[size];
-        size += strlen(&ret->data[size])+1;
-    }
-
-    return ret;
-}
-
-/*********************************************************************
- *		__crtLCMapStringA (MSVCRT.@)
- */
-int CDECL __crtLCMapStringA(
-  LCID lcid, DWORD mapflags, const char* src, int srclen, char* dst,
-  int dstlen, unsigned int codepage, int xflag
-) {
-  FIXME("(lcid %x, flags %x, %s(%d), %p(%d), %x, %d), partial stub!\n",
-        lcid,mapflags,src,srclen,dst,dstlen,codepage,xflag);
-  /* FIXME: A bit incorrect. But msvcrt itself just converts its
-   * arguments to wide strings and then calls LCMapStringW
-   */
-  return LCMapStringA(lcid,mapflags,src,srclen,dst,dstlen);
-}
-
-/*********************************************************************
- *              __crtLCMapStringW (MSVCRT.@)
- */
-int CDECL __crtLCMapStringW(LCID lcid, DWORD mapflags, const wchar_t *src,
-        int srclen, wchar_t *dst, int dstlen, unsigned int codepage, int xflag)
-{
-    FIXME("(lcid %x, flags %x, %s(%d), %p(%d), %x, %d), partial stub!\n",
-            lcid, mapflags, debugstr_w(src), srclen, dst, dstlen, codepage, xflag);
-
-    return LCMapStringW(lcid, mapflags, src, srclen, dst, dstlen);
-}
-
-/*********************************************************************
- *		__crtCompareStringA (MSVCRT.@)
- */
-int CDECL __crtCompareStringA( LCID lcid, DWORD flags, const char *src1, int len1,
-                               const char *src2, int len2 )
-{
-    FIXME("(lcid %x, flags %x, %s(%d), %s(%d), partial stub\n",
-          lcid, flags, debugstr_a(src1), len1, debugstr_a(src2), len2 );
-    /* FIXME: probably not entirely right */
-    return CompareStringA( lcid, flags, src1, len1, src2, len2 );
-}
-
-/*********************************************************************
- *		__crtCompareStringW (MSVCRT.@)
- */
-int CDECL __crtCompareStringW( LCID lcid, DWORD flags, const wchar_t *src1, int len1,
-                               const wchar_t *src2, int len2 )
-{
-    FIXME("(lcid %x, flags %x, %s(%d), %s(%d), partial stub\n",
-          lcid, flags, debugstr_w(src1), len1, debugstr_w(src2), len2 );
-    /* FIXME: probably not entirely right */
-    return CompareStringW( lcid, flags, src1, len1, src2, len2 );
-}
-
-/*********************************************************************
- *		__crtGetLocaleInfoW (MSVCRT.@)
- */
-int CDECL __crtGetLocaleInfoW( LCID lcid, LCTYPE type, wchar_t *buffer, int len )
-{
-    FIXME("(lcid %x, type %x, %p(%d), partial stub\n", lcid, type, buffer, len );
-    /* FIXME: probably not entirely right */
-    return GetLocaleInfoW( lcid, type, buffer, len );
-}
-
-/*********************************************************************
- *              btowc(MSVCRT.@)
- */
-wint_t CDECL MSVCRT_btowc(int c)
-{
-    unsigned char letter = c;
-    wchar_t ret;
-
-    if(!MultiByteToWideChar(get_locinfo()->lc_handle[LC_CTYPE],
-                0, (LPCSTR)&letter, 1, &ret, 1))
-        return 0;
-
-    return ret;
-}
-
-/*********************************************************************
- *              __crtGetStringTypeW(MSVCRT.@)
- *
- * This function was accepting different number of arguments in older
- * versions of msvcrt.
- */
-BOOL CDECL __crtGetStringTypeW(DWORD unk, DWORD type,
-        wchar_t *buffer, int len, WORD *out)
-{
-    FIXME("(unk %x, type %x, wstr %p(%d), %p) partial stub\n",
-            unk, type, buffer, len, out);
-
-    return GetStringTypeW(type, buffer, len, out);
-}
-
-/*********************************************************************
- *		localeconv (MSVCRT.@)
- */
-struct lconv * CDECL localeconv(void)
-{
-    return (struct lconv*)get_locinfo()->lconv;
-}
-
-/*********************************************************************
- *		__lconv_init (MSVCRT.@)
- */
-int CDECL __lconv_init(void)
-{
-    /* this is used to make chars unsigned */
-    charmax = 255;
-    return 0;
-}
-
-/*********************************************************************
- *      ___lc_handle_func (MSVCRT.@)
- */
-LCID* CDECL ___lc_handle_func(void)
-{
-    return MSVCRT___lc_handle;
-}
-
-/*********************************************************************
- *      ___lc_codepage_func (MSVCRT.@)
- */
-unsigned int CDECL ___lc_codepage_func(void)
-{
-    return __lc_codepage;
-}
-
-/*********************************************************************
- *      ___lc_collate_cp_func (MSVCRT.@)
- */
-unsigned int CDECL ___lc_collate_cp_func(void)
-{
-    return get_locinfo()->lc_collate_cp;
-}
-
-/* INTERNAL: frees MSVCRT_pthreadlocinfo struct */
-void free_locinfo(MSVCRT_pthreadlocinfo locinfo)
-{
-    int i;
-
-    if(!locinfo)
-        return;
-
-    if(InterlockedDecrement(&locinfo->refcount))
-        return;
-
-    for(i=MSVCRT_LC_MIN+1; i<=MSVCRT_LC_MAX; i++) {
-        MSVCRT_free(locinfo->lc_category[i].locale);
-        MSVCRT_free(locinfo->lc_category[i].refcount);
-    }
-
-    if(locinfo->lconv) {
-        MSVCRT_free(locinfo->lconv->decimal_point);
-        MSVCRT_free(locinfo->lconv->thousands_sep);
-        MSVCRT_free(locinfo->lconv->grouping);
-        MSVCRT_free(locinfo->lconv->int_curr_symbol);
-        MSVCRT_free(locinfo->lconv->currency_symbol);
-        MSVCRT_free(locinfo->lconv->mon_decimal_point);
-        MSVCRT_free(locinfo->lconv->mon_thousands_sep);
-        MSVCRT_free(locinfo->lconv->mon_grouping);
-        MSVCRT_free(locinfo->lconv->positive_sign);
-        MSVCRT_free(locinfo->lconv->negative_sign);
-    }
-    MSVCRT_free(locinfo->lconv_intl_refcount);
-    MSVCRT_free(locinfo->lconv_num_refcount);
-    MSVCRT_free(locinfo->lconv_mon_refcount);
-    MSVCRT_free(locinfo->lconv);
-
-    MSVCRT_free(locinfo->ctype1_refcount);
-    MSVCRT_free(locinfo->ctype1);
-
-    MSVCRT_free(locinfo->pclmap);
-    MSVCRT_free(locinfo->pcumap);
-
-    MSVCRT_free(locinfo->lc_time_curr);
-
-    MSVCRT_free(locinfo);
-}
-
-/* INTERNAL: frees MSVCRT_pthreadmbcinfo struct */
-void free_mbcinfo(MSVCRT_pthreadmbcinfo mbcinfo)
-{
-    if(!mbcinfo)
-        return;
-
-    if(InterlockedDecrement(&mbcinfo->refcount))
-        return;
-
-    MSVCRT_free(mbcinfo);
-}
-
-/* _get_current_locale - not exported in native msvcrt */
-MSVCRT__locale_t CDECL MSVCRT__get_current_locale(void)
-{
-    MSVCRT__locale_t loc = MSVCRT_malloc(sizeof(MSVCRT__locale_tstruct));
-    if(!loc)
-        return NULL;
-
-    loc->locinfo = get_locinfo();
-    loc->mbcinfo = get_mbcinfo();
-    InterlockedIncrement(&loc->locinfo->refcount);
-    InterlockedIncrement(&loc->mbcinfo->refcount);
-    return loc;
-}
-
-/* _free_locale - not exported in native msvcrt */
-void CDECL MSVCRT__free_locale(MSVCRT__locale_t locale)
-{
-    if (!locale)
-        return;
-
-    free_locinfo(locale->locinfo);
-    free_mbcinfo(locale->mbcinfo);
-    MSVCRT_free(locale);
-}
-
-/* _create_locale - not exported in native msvcrt */
-MSVCRT__locale_t CDECL MSVCRT__create_locale(int category, const char *locale)
-{
-    static const DWORD time_data[] = {
-        LOCALE_SABBREVDAYNAME7, LOCALE_SABBREVDAYNAME1, LOCALE_SABBREVDAYNAME2,
-        LOCALE_SABBREVDAYNAME3, LOCALE_SABBREVDAYNAME4, LOCALE_SABBREVDAYNAME5,
-        LOCALE_SABBREVDAYNAME6,
-        LOCALE_SDAYNAME7, LOCALE_SDAYNAME1, LOCALE_SDAYNAME2, LOCALE_SDAYNAME3,
-        LOCALE_SDAYNAME4, LOCALE_SDAYNAME5, LOCALE_SDAYNAME6,
-        LOCALE_SABBREVMONTHNAME1, LOCALE_SABBREVMONTHNAME2, LOCALE_SABBREVMONTHNAME3,
-        LOCALE_SABBREVMONTHNAME4, LOCALE_SABBREVMONTHNAME5, LOCALE_SABBREVMONTHNAME6,
-        LOCALE_SABBREVMONTHNAME7, LOCALE_SABBREVMONTHNAME8, LOCALE_SABBREVMONTHNAME9,
-        LOCALE_SABBREVMONTHNAME10, LOCALE_SABBREVMONTHNAME11, LOCALE_SABBREVMONTHNAME12,
-        LOCALE_SMONTHNAME1, LOCALE_SMONTHNAME2, LOCALE_SMONTHNAME3, LOCALE_SMONTHNAME4,
-        LOCALE_SMONTHNAME5, LOCALE_SMONTHNAME6, LOCALE_SMONTHNAME7, LOCALE_SMONTHNAME8,
-        LOCALE_SMONTHNAME9, LOCALE_SMONTHNAME10, LOCALE_SMONTHNAME11, LOCALE_SMONTHNAME12,
-        LOCALE_S1159, LOCALE_S2359,
-        LOCALE_SSHORTDATE, LOCALE_SLONGDATE,
-        LOCALE_STIMEFORMAT
-    };
-    static const char collate[] = "COLLATE=";
-    static const char ctype[] = "CTYPE=";
-    static const char monetary[] = "MONETARY=";
-    static const char numeric[] = "NUMERIC=";
-    static const char time[] = "TIME=";
-    static const char cloc_short_date[] = "MM/dd/yy";
-    static const wchar_t cloc_short_dateW[] = {'M','M','/','d','d','/','y','y',0};
-    static const char cloc_long_date[] = "dddd, MMMM dd, yyyy";
-    static const wchar_t cloc_long_dateW[] = {'d','d','d','d',',',' ','M','M','M','M',' ','d','d',',',' ','y','y','y','y',0};
-    static const char cloc_time[] = "HH:mm:ss";
-    static const wchar_t cloc_timeW[] = {'H','H',':','m','m',':','s','s',0};
-
-    MSVCRT__locale_t loc;
-    LCID lcid[6] = { 0 }, lcid_tmp;
-    unsigned short cp[6] = { 0 };
-    char buf[256];
-    int i, ret, size;
-
-    TRACE("(%d %s)\n", category, locale);
-
-    if(category<MSVCRT_LC_MIN || category>MSVCRT_LC_MAX || !locale)
-        return NULL;
-
-    if(locale[0]=='C' && !locale[1]) {
-        lcid[0] = 0;
-        cp[0] = CP_ACP;
-    } else if(!locale[0]) {
-        lcid[0] = GetSystemDefaultLCID();
-        GetLocaleInfoA(lcid[0], LOCALE_IDEFAULTANSICODEPAGE
-                |LOCALE_NOUSEROVERRIDE, buf, sizeof(buf));
-        cp[0] = atoi(buf);
-
-        for(i=1; i<6; i++) {
-            lcid[i] = lcid[0];
-            cp[i] = cp[0];
-        }
-    } else if (locale[0] == 'L' && locale[1] == 'C' && locale[2] == '_') {
-        const char *p;
-
-        while(1) {
-            locale += 3; /* LC_ */
-            if(!memcmp(locale, collate, sizeof(collate)-1)) {
-                i = MSVCRT_LC_COLLATE;
-                locale += sizeof(collate)-1;
-            } else if(!memcmp(locale, ctype, sizeof(ctype)-1)) {
-                i = MSVCRT_LC_CTYPE;
-                locale += sizeof(ctype)-1;
-            } else if(!memcmp(locale, monetary, sizeof(monetary)-1)) {
-                i = MSVCRT_LC_MONETARY;
-                locale += sizeof(monetary)-1;
-            } else if(!memcmp(locale, numeric, sizeof(numeric)-1)) {
-                i = MSVCRT_LC_NUMERIC;
-                locale += sizeof(numeric)-1;
-            } else if(!memcmp(locale, time, sizeof(time)-1)) {
-                i = MSVCRT_LC_TIME;
-                locale += sizeof(time)-1;
-            } else
-                return NULL;
-
-            p = strchr(locale, ';');
-            if(locale[0]=='C' && (locale[1]==';' || locale[1]=='\0')) {
-                lcid[i] = 0;
-                cp[i] = CP_ACP;
-            } else if(p) {
-                memcpy(buf, locale, p-locale);
-                buf[p-locale] = '\0';
-                lcid[i] = MSVCRT_locale_to_LCID(buf, &cp[i]);
-            } else
-                lcid[i] = MSVCRT_locale_to_LCID(locale, &cp[i]);
-
-            if(lcid[i] == -1)
-                return NULL;
-
-            if(!p || *(p+1)!='L' || *(p+2)!='C' || *(p+3)!='_')
-                break;
-
-            locale = p+1;
-        }
-    } else {
-        lcid[0] = MSVCRT_locale_to_LCID(locale, &cp[0]);
-        if(lcid[0] == -1)
-            return NULL;
-
-        for(i=1; i<6; i++) {
-            lcid[i] = lcid[0];
-            cp[i] = cp[0];
-        }
-    }
-
-    loc = MSVCRT_malloc(sizeof(MSVCRT__locale_tstruct));
-    if(!loc)
-        return NULL;
-
-    loc->locinfo = MSVCRT_malloc(sizeof(MSVCRT_threadlocinfo));
-    if(!loc->locinfo) {
-        MSVCRT_free(loc);
-        return NULL;
-    }
-
-    loc->mbcinfo = MSVCRT_malloc(sizeof(MSVCRT_threadmbcinfo));
-    if(!loc->mbcinfo) {
-        MSVCRT_free(loc->locinfo);
-        MSVCRT_free(loc);
-        return NULL;
-    }
-
-    memset(loc->locinfo, 0, sizeof(MSVCRT_threadlocinfo));
-    loc->locinfo->refcount = 1;
-    loc->mbcinfo->refcount = 1;
-
-    loc->locinfo->lconv = MSVCRT_malloc(sizeof(struct MSVCRT_lconv));
-    if(!loc->locinfo->lconv) {
-        MSVCRT__free_locale(loc);
-        return NULL;
-    }
-    memset(loc->locinfo->lconv, 0, sizeof(struct MSVCRT_lconv));
-
-    loc->locinfo->pclmap = MSVCRT_malloc(sizeof(char[256]));
-    loc->locinfo->pcumap = MSVCRT_malloc(sizeof(char[256]));
-    if(!loc->locinfo->pclmap || !loc->locinfo->pcumap) {
-        MSVCRT__free_locale(loc);
-        return NULL;
-    }
-
-    if(lcid[MSVCRT_LC_COLLATE] && (category==MSVCRT_LC_ALL || category==MSVCRT_LC_COLLATE)) {
-        if(update_threadlocinfo_category(lcid[MSVCRT_LC_COLLATE], cp[MSVCRT_LC_COLLATE], loc, MSVCRT_LC_COLLATE)) {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        loc->locinfo->lc_collate_cp = loc->locinfo->lc_id[MSVCRT_LC_COLLATE].wCodePage;
-    } else
-        loc->locinfo->lc_category[LC_COLLATE].locale = _strdup("C");
-
-    if(lcid[MSVCRT_LC_CTYPE] && (category==MSVCRT_LC_ALL || category==MSVCRT_LC_CTYPE)) {
-        CPINFO cp_info;
-        int j;
-
-        if(update_threadlocinfo_category(lcid[MSVCRT_LC_CTYPE], cp[MSVCRT_LC_CTYPE], loc, MSVCRT_LC_CTYPE)) {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        loc->locinfo->lc_codepage = loc->locinfo->lc_id[MSVCRT_LC_CTYPE].wCodePage;
-        loc->locinfo->lc_clike = 1;
-        if(!GetCPInfo(loc->locinfo->lc_codepage, &cp_info)) {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-        loc->locinfo->mb_cur_max = cp_info.MaxCharSize;
-
-        loc->locinfo->ctype1_refcount = MSVCRT_malloc(sizeof(int));
-        loc->locinfo->ctype1 = MSVCRT_malloc(sizeof(short[257]));
-        if(!loc->locinfo->ctype1_refcount || !loc->locinfo->ctype1) {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        *loc->locinfo->ctype1_refcount = 1;
-        loc->locinfo->ctype1[0] = 0;
-        loc->locinfo->pctype = loc->locinfo->ctype1+1;
-
-        buf[1] = buf[2] = '\0';
-        for(i=1; i<257; i++) {
-            buf[0] = i-1;
-
-            /* builtin GetStringTypeA doesn't set output to 0 on invalid input */
-            loc->locinfo->ctype1[i] = 0;
-
-            GetStringTypeA(lcid[MSVCRT_LC_CTYPE], CT_CTYPE1, buf,
-                    1, loc->locinfo->ctype1+i);
-        }
-
-        for(i=0; cp_info.LeadByte[i+1]!=0; i+=2)
-            for(j=cp_info.LeadByte[i]; j<=cp_info.LeadByte[i+1]; j++)
-                loc->locinfo->ctype1[j+1] |= _LEADBYTE;
-    } else {
-        loc->locinfo->lc_clike = 1;
-        loc->locinfo->mb_cur_max = 1;
-        loc->locinfo->pctype = _ctype+1;
-        loc->locinfo->lc_category[LC_CTYPE].locale = _strdup("C");
-    }
-
-    for(i=0; i<256; i++) {
-        if(loc->locinfo->pctype[i] & _LEADBYTE)
-            buf[i] = ' ';
-        else
-            buf[i] = i;
-
-    }
-
-    if(lcid[MSVCRT_LC_CTYPE]) {
-        LCMapStringA(lcid[MSVCRT_LC_CTYPE], LCMAP_LOWERCASE, buf, 256,
-                (char*)loc->locinfo->pclmap, 256);
-        LCMapStringA(lcid[MSVCRT_LC_CTYPE], LCMAP_UPPERCASE, buf, 256,
-                (char*)loc->locinfo->pcumap, 256);
-    } else {
-        for(i=0; i<256; i++) {
-            loc->locinfo->pclmap[i] = (i>='A' && i<='Z' ? i-'A'+'a' : i);
-            loc->locinfo->pcumap[i] = (i>='a' && i<='z' ? i-'a'+'A' : i);
-        }
-    }
-
-    _setmbcp_l(loc->locinfo->lc_id[MSVCRT_LC_CTYPE].wCodePage, lcid[MSVCRT_LC_CTYPE], loc->mbcinfo);
-
-    if(lcid[MSVCRT_LC_MONETARY] && (category==MSVCRT_LC_ALL || category==MSVCRT_LC_MONETARY)) {
-        if(update_threadlocinfo_category(lcid[MSVCRT_LC_MONETARY], cp[MSVCRT_LC_MONETARY], loc, MSVCRT_LC_MONETARY)) {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        loc->locinfo->lconv_intl_refcount = MSVCRT_malloc(sizeof(int));
-        loc->locinfo->lconv_mon_refcount = MSVCRT_malloc(sizeof(int));
-        if(!loc->locinfo->lconv_intl_refcount || !loc->locinfo->lconv_mon_refcount) {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        *loc->locinfo->lconv_intl_refcount = 1;
-        *loc->locinfo->lconv_mon_refcount = 1;
-
-        i = GetLocaleInfoA(lcid[MSVCRT_LC_MONETARY], LOCALE_SINTLSYMBOL
-                |LOCALE_NOUSEROVERRIDE, buf, 256);
-        if(i && (loc->locinfo->lconv->int_curr_symbol = MSVCRT_malloc(i)))
-            memcpy(loc->locinfo->lconv->int_curr_symbol, buf, i);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        i = GetLocaleInfoA(lcid[MSVCRT_LC_MONETARY], LOCALE_SCURRENCY
-                |LOCALE_NOUSEROVERRIDE, buf, 256);
-        if(i && (loc->locinfo->lconv->currency_symbol = MSVCRT_malloc(i)))
-            memcpy(loc->locinfo->lconv->currency_symbol, buf, i);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        i = GetLocaleInfoA(lcid[MSVCRT_LC_MONETARY], LOCALE_SMONDECIMALSEP
-                |LOCALE_NOUSEROVERRIDE, buf, 256);
-        if(i && (loc->locinfo->lconv->mon_decimal_point = MSVCRT_malloc(i)))
-            memcpy(loc->locinfo->lconv->mon_decimal_point, buf, i);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        i = GetLocaleInfoA(lcid[MSVCRT_LC_MONETARY], LOCALE_SMONTHOUSANDSEP
-                |LOCALE_NOUSEROVERRIDE, buf, 256);
-        if(i && (loc->locinfo->lconv->mon_thousands_sep = MSVCRT_malloc(i)))
-            memcpy(loc->locinfo->lconv->mon_thousands_sep, buf, i);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        i = GetLocaleInfoA(lcid[MSVCRT_LC_MONETARY], LOCALE_SMONGROUPING
-                |LOCALE_NOUSEROVERRIDE, buf, 256);
-        if(i>1)
-            i = i/2 + (buf[i-2]=='0'?0:1);
-        if(i && (loc->locinfo->lconv->mon_grouping = MSVCRT_malloc(i))) {
-            for(i=0; buf[i+1]==';'; i+=2)
-                loc->locinfo->lconv->mon_grouping[i/2] = buf[i]-'0';
-            loc->locinfo->lconv->mon_grouping[i/2] = buf[i]-'0';
-            if(buf[i] != '0')
-                loc->locinfo->lconv->mon_grouping[i/2+1] = 127;
-        } else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        i = GetLocaleInfoA(lcid[MSVCRT_LC_MONETARY], LOCALE_SPOSITIVESIGN
-                |LOCALE_NOUSEROVERRIDE, buf, 256);
-        if(i && (loc->locinfo->lconv->positive_sign = MSVCRT_malloc(i)))
-            memcpy(loc->locinfo->lconv->positive_sign, buf, i);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        i = GetLocaleInfoA(lcid[MSVCRT_LC_MONETARY], LOCALE_SNEGATIVESIGN
-                |LOCALE_NOUSEROVERRIDE, buf, 256);
-        if(i && (loc->locinfo->lconv->negative_sign = MSVCRT_malloc(i)))
-            memcpy(loc->locinfo->lconv->negative_sign, buf, i);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        if(GetLocaleInfoA(lcid[MSVCRT_LC_MONETARY], LOCALE_IINTLCURRDIGITS
-                    |LOCALE_NOUSEROVERRIDE, buf, 256))
-            loc->locinfo->lconv->int_frac_digits = atoi(buf);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        if(GetLocaleInfoA(lcid[MSVCRT_LC_MONETARY], LOCALE_ICURRDIGITS
-                    |LOCALE_NOUSEROVERRIDE, buf, 256))
-            loc->locinfo->lconv->frac_digits = atoi(buf);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        if(GetLocaleInfoA(lcid[MSVCRT_LC_MONETARY], LOCALE_IPOSSYMPRECEDES
-                    |LOCALE_NOUSEROVERRIDE, buf, 256))
-            loc->locinfo->lconv->p_cs_precedes = atoi(buf);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        if(GetLocaleInfoA(lcid[MSVCRT_LC_MONETARY], LOCALE_IPOSSEPBYSPACE
-                    |LOCALE_NOUSEROVERRIDE, buf, 256))
-            loc->locinfo->lconv->p_sep_by_space = atoi(buf);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        if(GetLocaleInfoA(lcid[MSVCRT_LC_MONETARY], LOCALE_INEGSYMPRECEDES
-                    |LOCALE_NOUSEROVERRIDE, buf, 256))
-            loc->locinfo->lconv->n_cs_precedes = atoi(buf);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        if(GetLocaleInfoA(lcid[MSVCRT_LC_MONETARY], LOCALE_INEGSEPBYSPACE
-                    |LOCALE_NOUSEROVERRIDE, buf, 256))
-            loc->locinfo->lconv->n_sep_by_space = atoi(buf);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        if(GetLocaleInfoA(lcid[MSVCRT_LC_MONETARY], LOCALE_IPOSSIGNPOSN
-                    |LOCALE_NOUSEROVERRIDE, buf, 256))
-            loc->locinfo->lconv->p_sign_posn = atoi(buf);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        if(GetLocaleInfoA(lcid[MSVCRT_LC_MONETARY], LOCALE_INEGSIGNPOSN
-                    |LOCALE_NOUSEROVERRIDE, buf, 256))
-            loc->locinfo->lconv->n_sign_posn = atoi(buf);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-    } else {
-        loc->locinfo->lconv->int_curr_symbol = MSVCRT_malloc(sizeof(char));
-        loc->locinfo->lconv->currency_symbol = MSVCRT_malloc(sizeof(char));
-        loc->locinfo->lconv->mon_decimal_point = MSVCRT_malloc(sizeof(char));
-        loc->locinfo->lconv->mon_thousands_sep = MSVCRT_malloc(sizeof(char));
-        loc->locinfo->lconv->mon_grouping = MSVCRT_malloc(sizeof(char));
-        loc->locinfo->lconv->positive_sign = MSVCRT_malloc(sizeof(char));
-        loc->locinfo->lconv->negative_sign = MSVCRT_malloc(sizeof(char));
-
-        if(!loc->locinfo->lconv->int_curr_symbol || !loc->locinfo->lconv->currency_symbol
-                || !loc->locinfo->lconv->mon_decimal_point || !loc->locinfo->lconv->mon_thousands_sep
-                || !loc->locinfo->lconv->mon_grouping || !loc->locinfo->lconv->positive_sign
-                || !loc->locinfo->lconv->negative_sign) {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        loc->locinfo->lconv->int_curr_symbol[0] = '\0';
-        loc->locinfo->lconv->currency_symbol[0] = '\0';
-        loc->locinfo->lconv->mon_decimal_point[0] = '\0';
-        loc->locinfo->lconv->mon_thousands_sep[0] = '\0';
-        loc->locinfo->lconv->mon_grouping[0] = '\0';
-        loc->locinfo->lconv->positive_sign[0] = '\0';
-        loc->locinfo->lconv->negative_sign[0] = '\0';
-        loc->locinfo->lconv->int_frac_digits = 127;
-        loc->locinfo->lconv->frac_digits = 127;
-        loc->locinfo->lconv->p_cs_precedes = 127;
-        loc->locinfo->lconv->p_sep_by_space = 127;
-        loc->locinfo->lconv->n_cs_precedes = 127;
-        loc->locinfo->lconv->n_sep_by_space = 127;
-        loc->locinfo->lconv->p_sign_posn = 127;
-        loc->locinfo->lconv->n_sign_posn = 127;
-
-        loc->locinfo->lc_category[LC_MONETARY].locale = _strdup("C");
-    }
-
-    if(lcid[MSVCRT_LC_NUMERIC] && (category==MSVCRT_LC_ALL || category==MSVCRT_LC_NUMERIC)) {
-        if(update_threadlocinfo_category(lcid[MSVCRT_LC_NUMERIC], cp[MSVCRT_LC_NUMERIC], loc, MSVCRT_LC_NUMERIC)) {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        if(!loc->locinfo->lconv_intl_refcount)
-            loc->locinfo->lconv_intl_refcount = MSVCRT_malloc(sizeof(int));
-        loc->locinfo->lconv_num_refcount = MSVCRT_malloc(sizeof(int));
-        if(!loc->locinfo->lconv_intl_refcount || !loc->locinfo->lconv_num_refcount) {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        *loc->locinfo->lconv_intl_refcount = 1;
-        *loc->locinfo->lconv_num_refcount = 1;
-
-        i = GetLocaleInfoA(lcid[MSVCRT_LC_NUMERIC], LOCALE_SDECIMAL
-                |LOCALE_NOUSEROVERRIDE, buf, 256);
-        if(i && (loc->locinfo->lconv->decimal_point = MSVCRT_malloc(i)))
-            memcpy(loc->locinfo->lconv->decimal_point, buf, i);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        i = GetLocaleInfoA(lcid[MSVCRT_LC_NUMERIC], LOCALE_STHOUSAND
-                |LOCALE_NOUSEROVERRIDE, buf, 256);
-        if(i && (loc->locinfo->lconv->thousands_sep = MSVCRT_malloc(i)))
-            memcpy(loc->locinfo->lconv->thousands_sep, buf, i);
-        else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        i = GetLocaleInfoA(lcid[MSVCRT_LC_NUMERIC], LOCALE_SGROUPING
-                |LOCALE_NOUSEROVERRIDE, buf, 256);
-        if(i>1)
-            i = i/2 + (buf[i-2]=='0'?0:1);
-        if(i && (loc->locinfo->lconv->grouping = MSVCRT_malloc(i))) {
-            for(i=0; buf[i+1]==';'; i+=2)
-                loc->locinfo->lconv->grouping[i/2] = buf[i]-'0';
-            loc->locinfo->lconv->grouping[i/2] = buf[i]-'0';
-            if(buf[i] != '0')
-                loc->locinfo->lconv->grouping[i/2+1] = 127;
-        } else {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-    } else {
-        loc->locinfo->lconv->decimal_point = MSVCRT_malloc(sizeof(char[2]));
-        loc->locinfo->lconv->thousands_sep = MSVCRT_malloc(sizeof(char));
-        loc->locinfo->lconv->grouping = MSVCRT_malloc(sizeof(char));
-        if(!loc->locinfo->lconv->decimal_point || !loc->locinfo->lconv->thousands_sep
-                || !loc->locinfo->lconv->grouping) {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-
-        loc->locinfo->lconv->decimal_point[0] = '.';
-        loc->locinfo->lconv->decimal_point[1] = '\0';
-        loc->locinfo->lconv->thousands_sep[0] = '\0';
-        loc->locinfo->lconv->grouping[0] = '\0';
-
-        loc->locinfo->lc_category[LC_NUMERIC].locale = _strdup("C");
-    }
-
-    if(lcid[MSVCRT_LC_TIME] && (category==MSVCRT_LC_ALL || category==MSVCRT_LC_TIME)) {
-        if(update_threadlocinfo_category(lcid[MSVCRT_LC_TIME], cp[MSVCRT_LC_TIME], loc, MSVCRT_LC_TIME)) {
-            MSVCRT__free_locale(loc);
-            return NULL;
-        }
-    } else
-        loc->locinfo->lc_category[LC_TIME].locale = _strdup("C");
-
-    size = sizeof(MSVCRT___lc_time_data);
-    lcid_tmp = lcid[MSVCRT_LC_TIME] ? lcid[MSVCRT_LC_TIME] : MAKELCID(LANG_ENGLISH, SORT_DEFAULT);
-    for(i=0; i<sizeof(time_data)/sizeof(time_data[0]); i++) {
-        if(time_data[i]==LOCALE_SSHORTDATE && !lcid[MSVCRT_LC_TIME]) {
-            size += sizeof(cloc_short_date) + sizeof(cloc_short_dateW);
-        }else if(time_data[i]==LOCALE_SLONGDATE && !lcid[MSVCRT_LC_TIME]) {
-            size += sizeof(cloc_long_date) + sizeof(cloc_long_dateW);
-        }else {
-            ret = GetLocaleInfoA(lcid_tmp, time_data[i]
-                    |LOCALE_NOUSEROVERRIDE, NULL, 0);
-            if(!ret) {
-                MSVCRT__free_locale(loc);
-                return NULL;
-            }
-            size += ret;
-
-            ret = GetLocaleInfoW(lcid_tmp, time_data[i]
-                    |LOCALE_NOUSEROVERRIDE, NULL, 0);
-            if(!ret) {
-                MSVCRT__free_locale(loc);
-                return NULL;
-            }
-            size += ret*sizeof(wchar_t);
-        }
-    }
-
-    loc->locinfo->lc_time_curr = MSVCRT_malloc(size);
-    if(!loc->locinfo->lc_time_curr) {
-        MSVCRT__free_locale(loc);
-        return NULL;
-    }
-
-    ret = 0;
-    for(i=0; i<sizeof(time_data)/sizeof(time_data[0]); i++) {
-        loc->locinfo->lc_time_curr->str.str[i] = &loc->locinfo->lc_time_curr->data[ret];
-        if(time_data[i]==LOCALE_SSHORTDATE && !lcid[MSVCRT_LC_TIME]) {
-            memcpy(&loc->locinfo->lc_time_curr->data[ret], cloc_short_date, sizeof(cloc_short_date));
-            ret += sizeof(cloc_short_date);
-        }else if(time_data[i]==LOCALE_SLONGDATE && !lcid[MSVCRT_LC_TIME]) {
-            memcpy(&loc->locinfo->lc_time_curr->data[ret], cloc_long_date, sizeof(cloc_long_date));
-            ret += sizeof(cloc_long_date);
-        }else if(time_data[i]==LOCALE_STIMEFORMAT && !lcid[MSVCRT_LC_TIME]) {
-            memcpy(&loc->locinfo->lc_time_curr->data[ret], cloc_time, sizeof(cloc_time));
-            ret += sizeof(cloc_time);
-        }else {
-            ret += GetLocaleInfoA(lcid_tmp, time_data[i]|LOCALE_NOUSEROVERRIDE,
-                    &loc->locinfo->lc_time_curr->data[ret], size-ret);
-        }
-    }
-    for(i=0; i<sizeof(time_data)/sizeof(time_data[0]); i++) {
-        loc->locinfo->lc_time_curr->wstr[i] = (wchar_t*)&loc->locinfo->lc_time_curr->data[ret];
-        if(time_data[i]==LOCALE_SSHORTDATE && !lcid[MSVCRT_LC_TIME]) {
-            memcpy(&loc->locinfo->lc_time_curr->data[ret], cloc_short_dateW, sizeof(cloc_short_dateW));
-            ret += sizeof(cloc_short_dateW);
-        }else if(time_data[i]==LOCALE_SLONGDATE && !lcid[MSVCRT_LC_TIME]) {
-            memcpy(&loc->locinfo->lc_time_curr->data[ret], cloc_long_dateW, sizeof(cloc_long_dateW));
-            ret += sizeof(cloc_long_dateW);
-        }else if(time_data[i]==LOCALE_STIMEFORMAT && !lcid[MSVCRT_LC_TIME]) {            memcpy(&loc->locinfo->lc_time_curr->data[ret], cloc_timeW, sizeof(cloc_timeW));
-            ret += sizeof(cloc_timeW);
-        }else {
-            ret += GetLocaleInfoW(lcid_tmp, time_data[i]|LOCALE_NOUSEROVERRIDE,
-                    (wchar_t*)&loc->locinfo->lc_time_curr->data[ret], size-ret)*sizeof(wchar_t);
-        }
-    }
-    loc->locinfo->lc_time_curr->lcid = lcid[MSVCRT_LC_TIME];
-
-    return loc;
-}
-
-/*********************************************************************
- *             setlocale (MSVCRT.@)
- */
-char* CDECL setlocale(int category, const char* locale)
-{
-    MSVCRT__locale_t loc;
-    MSVCRT_pthreadlocinfo locinfo = get_locinfo();
-
-    if(category<MSVCRT_LC_MIN || category>MSVCRT_LC_MAX)
-        return NULL;
-
-    if(!locale) {
-        if(category == MSVCRT_LC_ALL)
-            return construct_lc_all(locinfo);
-
-        return locinfo->lc_category[category].locale;
-    }
-
-    loc = MSVCRT__create_locale(category, locale);
-    if(!loc) {
-        WARN("%d %s failed\n", category, locale);
-        return NULL;
-    }
-
-    LOCK_LOCALE;
-
-    switch(category) {
-        case MSVCRT_LC_ALL:
-        case MSVCRT_LC_COLLATE:
-            locinfo->lc_collate_cp = loc->locinfo->lc_collate_cp;
-            locinfo->lc_handle[MSVCRT_LC_COLLATE] =
-                loc->locinfo->lc_handle[MSVCRT_LC_COLLATE];
-            swap_pointers((void**)&locinfo->lc_category[MSVCRT_LC_COLLATE].locale,
-                    (void**)&loc->locinfo->lc_category[MSVCRT_LC_COLLATE].locale);
-            swap_pointers((void**)&locinfo->lc_category[MSVCRT_LC_COLLATE].refcount,
-                    (void**)&loc->locinfo->lc_category[MSVCRT_LC_COLLATE].refcount);
-
-            if(category != MSVCRT_LC_ALL)
-                break;
-            /* fall through */
-        case MSVCRT_LC_CTYPE:
-            locinfo->lc_handle[MSVCRT_LC_CTYPE] =
-                loc->locinfo->lc_handle[MSVCRT_LC_CTYPE];
-            swap_pointers((void**)&locinfo->lc_category[MSVCRT_LC_CTYPE].locale,
-                    (void**)&loc->locinfo->lc_category[MSVCRT_LC_CTYPE].locale);
-            swap_pointers((void**)&locinfo->lc_category[MSVCRT_LC_CTYPE].refcount,
-                    (void**)&loc->locinfo->lc_category[MSVCRT_LC_CTYPE].refcount);
-
-            locinfo->lc_codepage = loc->locinfo->lc_codepage;
-            locinfo->lc_clike = loc->locinfo->lc_clike;
-            locinfo->mb_cur_max = loc->locinfo->mb_cur_max;
-
-            swap_pointers((void**)&locinfo->ctype1_refcount,
-                    (void**)&loc->locinfo->ctype1_refcount);
-            swap_pointers((void**)&locinfo->ctype1, (void**)&loc->locinfo->ctype1);
-            swap_pointers((void**)&locinfo->pctype, (void**)&loc->locinfo->pctype);
-            swap_pointers((void**)&locinfo->pclmap, (void**)&loc->locinfo->pclmap);
-            swap_pointers((void**)&locinfo->pcumap, (void**)&loc->locinfo->pcumap);
-
-            if(category != MSVCRT_LC_ALL)
-                break;
-            /* fall through */
-        case MSVCRT_LC_MONETARY:
-            locinfo->lc_handle[MSVCRT_LC_MONETARY] =
-                loc->locinfo->lc_handle[MSVCRT_LC_MONETARY];
-            swap_pointers((void**)&locinfo->lc_category[MSVCRT_LC_MONETARY].locale,
-                    (void**)&loc->locinfo->lc_category[MSVCRT_LC_MONETARY].locale);
-            swap_pointers((void**)&locinfo->lc_category[MSVCRT_LC_MONETARY].refcount,
-                    (void**)&loc->locinfo->lc_category[MSVCRT_LC_MONETARY].refcount);
-
-            swap_pointers((void**)&locinfo->lconv->int_curr_symbol,
-                    (void**)&loc->locinfo->lconv->int_curr_symbol);
-            swap_pointers((void**)&locinfo->lconv->currency_symbol,
-                    (void**)&loc->locinfo->lconv->currency_symbol);
-            swap_pointers((void**)&locinfo->lconv->mon_decimal_point,
-                    (void**)&loc->locinfo->lconv->mon_decimal_point);
-            swap_pointers((void**)&locinfo->lconv->mon_thousands_sep,
-                    (void**)&loc->locinfo->lconv->mon_thousands_sep);
-            swap_pointers((void**)&locinfo->lconv->mon_grouping,
-                    (void**)&loc->locinfo->lconv->mon_grouping);
-            swap_pointers((void**)&locinfo->lconv->positive_sign,
-                    (void**)&loc->locinfo->lconv->positive_sign);
-            swap_pointers((void**)&locinfo->lconv->negative_sign,
-                    (void**)&loc->locinfo->lconv->negative_sign);
-            locinfo->lconv->int_frac_digits = loc->locinfo->lconv->int_frac_digits;
-            locinfo->lconv->frac_digits = loc->locinfo->lconv->frac_digits;
-            locinfo->lconv->p_cs_precedes = loc->locinfo->lconv->p_cs_precedes;
-            locinfo->lconv->p_sep_by_space = loc->locinfo->lconv->p_sep_by_space;
-            locinfo->lconv->n_cs_precedes = loc->locinfo->lconv->n_cs_precedes;
-            locinfo->lconv->n_sep_by_space = loc->locinfo->lconv->n_sep_by_space;
-            locinfo->lconv->p_sign_posn = loc->locinfo->lconv->p_sign_posn;
-            locinfo->lconv->n_sign_posn = loc->locinfo->lconv->n_sign_posn;
-
-            if(category != MSVCRT_LC_ALL)
-                break;
-            /* fall through */
-        case MSVCRT_LC_NUMERIC:
-            locinfo->lc_handle[MSVCRT_LC_NUMERIC] =
-                loc->locinfo->lc_handle[MSVCRT_LC_NUMERIC];
-            swap_pointers((void**)&locinfo->lc_category[MSVCRT_LC_NUMERIC].locale,
-                    (void**)&loc->locinfo->lc_category[MSVCRT_LC_NUMERIC].locale);
-            swap_pointers((void**)&locinfo->lc_category[MSVCRT_LC_NUMERIC].refcount,
-                    (void**)&loc->locinfo->lc_category[MSVCRT_LC_NUMERIC].refcount);
-
-            swap_pointers((void**)&locinfo->lconv->decimal_point,
-                    (void**)&loc->locinfo->lconv->decimal_point);
-            swap_pointers((void**)&locinfo->lconv->thousands_sep,
-                    (void**)&loc->locinfo->lconv->thousands_sep);
-            swap_pointers((void**)&locinfo->lconv->grouping,
-                    (void**)&loc->locinfo->lconv->grouping);
-
-            if(category != MSVCRT_LC_ALL)
-                break;
-            /* fall through */
-        case MSVCRT_LC_TIME:
-            locinfo->lc_handle[MSVCRT_LC_TIME] =
-                loc->locinfo->lc_handle[MSVCRT_LC_TIME];
-            swap_pointers((void**)&locinfo->lc_category[MSVCRT_LC_TIME].locale,
-                    (void**)&loc->locinfo->lc_category[MSVCRT_LC_TIME].locale);
-            swap_pointers((void**)&locinfo->lc_category[MSVCRT_LC_TIME].refcount,
-                    (void**)&loc->locinfo->lc_category[MSVCRT_LC_TIME].refcount);
-            swap_pointers((void**)&locinfo->lc_time_curr,
-                    (void**)&loc->locinfo->lc_time_curr);
-
-            if(category != MSVCRT_LC_ALL)
-                break;
-    }
-
-    MSVCRT__free_locale(loc);
-    UNLOCK_LOCALE;
-
-    if(locinfo == MSVCRT_locale->locinfo) {
-        int i;
-
-        __lc_codepage = locinfo->lc_codepage;
-        MSVCRT___lc_collate_cp = locinfo->lc_collate_cp;
-        __mb_cur_max = locinfo->mb_cur_max;
-        _pctype = locinfo->pctype;
-        for(i=LC_MIN; i<=LC_MAX; i++)
-            MSVCRT___lc_handle[i] = MSVCRT_locale->locinfo->lc_handle[i];
-    }
-
-    if(category == MSVCRT_LC_ALL)
-        return construct_lc_all(locinfo);
-
-    _Analysis_assume_(category <= 5);
-    return locinfo->lc_category[category].locale;
-}
-
-/* _configthreadlocale - not exported in native msvcrt */
-int CDECL _configthreadlocale(int type)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-    MSVCRT__locale_t locale;
-    int ret;
-
-    if(!data)
-        return -1;
-
-    ret = (data->have_locale ? _ENABLE_PER_THREAD_LOCALE : _DISABLE_PER_THREAD_LOCALE);
-
-    if(type == _ENABLE_PER_THREAD_LOCALE) {
-        if(!data->have_locale) {
-            /* Copy current global locale */
-            locale = MSVCRT__create_locale(LC_ALL, setlocale(LC_ALL, NULL));
-            if(!locale)
-                return -1;
-
-            data->locinfo = locale->locinfo;
-            data->mbcinfo = locale->mbcinfo;
-            data->have_locale = TRUE;
-            MSVCRT_free(locale);
-        }
-
-        return ret;
-    }
-
-    if(type == _DISABLE_PER_THREAD_LOCALE) {
-        if(data->have_locale) {
-            free_locinfo(data->locinfo);
-            free_mbcinfo(data->mbcinfo);
-            data->locinfo = MSVCRT_locale->locinfo;
-            data->mbcinfo = MSVCRT_locale->mbcinfo;
-            data->have_locale = FALSE;
-        }
-
-        return ret;
-    }
-
-    if(!type)
-        return ret;
-
-    return -1;
-}
-
-/*********************************************************************
- *         _getmbcp (MSVCRT.@)
- */
-int CDECL _getmbcp(void)
-{
-  return get_mbcinfo()->mbcodepage;
-}
-
-extern unsigned int __setlc_active;
-/*********************************************************************
- *         ___setlc_active_func (MSVCRT.@)
- */
-unsigned int CDECL ___setlc_active_func(void)
-{
-  return __setlc_active;
-}
-
-extern unsigned int __unguarded_readlc_active;
-/*********************************************************************
- *         ___unguarded_readlc_active_add_func (MSVCRT.@)
- */
-unsigned int * CDECL ___unguarded_readlc_active_add_func(void)
-{
-  return &__unguarded_readlc_active;
-}
-
-MSVCRT__locale_t global_locale = NULL;
-void __init_global_locale()
-{
-    unsigned i;
-
-    LOCK_LOCALE;
-    /* Someone created it before us */
-    if(global_locale)
-        return;
-    global_locale = MSVCRT__create_locale(0, "C");
-
-    __lc_codepage = MSVCRT_locale->locinfo->lc_codepage;
-    MSVCRT___lc_collate_cp = MSVCRT_locale->locinfo->lc_collate_cp;
-    __mb_cur_max = MSVCRT_locale->locinfo->mb_cur_max;
-    for(i=LC_MIN; i<=LC_MAX; i++)
-        MSVCRT___lc_handle[i] = MSVCRT_locale->locinfo->lc_handle[i];
-    _setmbcp(_MB_CP_ANSI);
-    UNLOCK_LOCALE;
-}
-
-/*
- * @implemented
- */
-const unsigned short **__p__pctype(void)
-{
-   return &get_locinfo()->pctype;
-}
-
-const unsigned short* __cdecl __pctype_func(void)
-{
-   return get_locinfo()->pctype;
-}
-

sdk/lib/crt/mbstring/_setmbcp.c

···
-/*
- * msvcrt.dll mbcs functions
- *
- * Copyright 1999 Alexandre Julliard
- * Copyright 2000 Jon Griffths
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- *
- * FIXME
- * Not currently binary compatible with win32. MSVCRT_mbctype must be
- * populated correctly and the ismb* functions should reference it.
- */
-
-#include <precomp.h>
-
-#include <mbctype.h>
-
-/* It seems that the data about valid trail bytes is not available from kernel32
- * so we have to store is here. The format is the same as for lead bytes in CPINFO */
-struct cp_extra_info_t
-{
-    int cp;
-    BYTE TrailBytes[MAX_LEADBYTES];
-};
-
-static struct cp_extra_info_t g_cpextrainfo[] =
-{
-    {932, {0x40, 0x7e, 0x80, 0xfc, 0, 0}},
-    {936, {0x40, 0xfe, 0, 0}},
-    {949, {0x41, 0xfe, 0, 0}},
-    {950, {0x40, 0x7e, 0xa1, 0xfe, 0, 0}},
-    {1361, {0x31, 0x7e, 0x81, 0xfe, 0, 0}},
-    {20932, {1, 255, 0, 0}},  /* seems to give different results on different systems */
-    {0, {1, 255, 0, 0}}       /* match all with FIXME */
-};
-
-/*********************************************************************
- * INTERNAL: _setmbcp_l
- */
-int _setmbcp_l(int cp, LCID lcid, MSVCRT_pthreadmbcinfo mbcinfo)
-{
-  const char format[] = ".%d";
-
-  int newcp;
-  CPINFO cpi;
-  BYTE *bytes;
-  WORD chartypes[256];
-  char bufA[256];
-  WCHAR bufW[256];
-  int charcount;
-  int ret;
-  int i;
-
-  if(!mbcinfo)
-      mbcinfo = get_mbcinfo();
-
-  switch (cp)
-  {
-    case _MB_CP_ANSI:
-      newcp = GetACP();
-      break;
-    case _MB_CP_OEM:
-      newcp = GetOEMCP();
-      break;
-    case _MB_CP_LOCALE:
-      newcp = get_locinfo()->lc_codepage;
-      if(newcp)
-          break;
-      /* fall through (C locale) */
-    case _MB_CP_SBCS:
-      newcp = 20127;   /* ASCII */
-      break;
-    default:
-      newcp = cp;
-      break;
-  }
-
-  if(lcid == -1) {
-    sprintf(bufA, format, newcp);
-    mbcinfo->mblcid = MSVCRT_locale_to_LCID(bufA, NULL);
-  } else {
-    mbcinfo->mblcid = lcid;
-  }
-
-  if(mbcinfo->mblcid == -1)
-  {
-    WARN("Can't assign LCID to codepage (%d)\n", mbcinfo->mblcid);
-    mbcinfo->mblcid = 0;
-  }
-
-  if (!GetCPInfo(newcp, &cpi))
-  {
-    WARN("Codepage %d not found\n", newcp);
-    *_errno() = EINVAL;
-    return -1;
-  }
-
-  /* setup the _mbctype */
-  memset(mbcinfo->mbctype, 0, sizeof(unsigned char[257]));
-  memset(mbcinfo->mbcasemap, 0, sizeof(unsigned char[256]));
-
-  bytes = cpi.LeadByte;
-  while (bytes[0] || bytes[1])
-  {
-    for (i = bytes[0]; i <= bytes[1]; i++)
-      mbcinfo->mbctype[i + 1] |= _M1;
-    bytes += 2;
-  }
-
-  if (cpi.MaxCharSize > 1)
-  {
-    /* trail bytes not available through kernel32 but stored in a structure in msvcrt */
-    struct cp_extra_info_t *cpextra = g_cpextrainfo;
-
-    mbcinfo->ismbcodepage = 1;
-    while (TRUE)
-    {
-      if (cpextra->cp == 0 || cpextra->cp == newcp)
-      {
-        if (cpextra->cp == 0)
-          FIXME("trail bytes data not available for DBCS codepage %d - assuming all bytes\n", newcp);
-
-        bytes = cpextra->TrailBytes;
-        while (bytes[0] || bytes[1])
-        {
-          for (i = bytes[0]; i <= bytes[1]; i++)
-            mbcinfo->mbctype[i + 1] |= _M2;
-          bytes += 2;
-        }
-        break;
-      }
-      cpextra++;
-    }
-  }
-  else
-    mbcinfo->ismbcodepage = 0;
-
-  /* we can't use GetStringTypeA directly because we don't have a locale - only a code page
-   */
-  charcount = 0;
-  for (i = 0; i < 256; i++)
-    if (!(mbcinfo->mbctype[i + 1] & _M1))
-      bufA[charcount++] = i;
-
-  ret = MultiByteToWideChar(newcp, 0, bufA, charcount, bufW, charcount);
-  if (ret != charcount)
-    ERR("MultiByteToWideChar of chars failed for cp %d, ret=%d (exp %d), error=%d\n", newcp, ret, charcount, GetLastError());
-
-  GetStringTypeW(CT_CTYPE1, bufW, charcount, chartypes);
-
-  charcount = 0;
-  for (i = 0; i < 256; i++)
-    if (!(mbcinfo->mbctype[i + 1] & _M1))
-    {
-      if (chartypes[charcount] & C1_UPPER)
-      {
-        mbcinfo->mbctype[i + 1] |= _SBUP;
-        bufW[charcount] = tolowerW(bufW[charcount]);
-      }
-      else if (chartypes[charcount] & C1_LOWER)
-      {
-	mbcinfo->mbctype[i + 1] |= _SBLOW;
-        bufW[charcount] = toupperW(bufW[charcount]);
-      }
-      charcount++;
-    }
-
-  ret = WideCharToMultiByte(newcp, 0, bufW, charcount, bufA, charcount, NULL, NULL);
-  if (ret != charcount)
-    ERR("WideCharToMultiByte failed for cp %d, ret=%d (exp %d), error=%d\n", newcp, ret, charcount, GetLastError());
-
-  charcount = 0;
-  for (i = 0; i < 256; i++)
-  {
-    if(!(mbcinfo->mbctype[i + 1] & _M1))
-    {
-      if(mbcinfo->mbctype[i] & (C1_UPPER|C1_LOWER))
-        mbcinfo->mbcasemap[i] = bufA[charcount];
-      charcount++;
-    }
-  }
-
-  if (newcp == 932)   /* CP932 only - set _MP and _MS */
-  {
-    /* On Windows it's possible to calculate the _MP and _MS from CT_CTYPE1
-     * and CT_CTYPE3. But as of Wine 0.9.43 we return wrong values what makes
-     * it hard. As this is set only for codepage 932 we hardcode it what gives
-     * also faster execution.
-     */
-    for (i = 161; i <= 165; i++)
-      mbcinfo->mbctype[i + 1] |= _MP;
-    for (i = 166; i <= 223; i++)
-      mbcinfo->mbctype[i + 1] |= _MS;
-  }
-
-  mbcinfo->mbcodepage = newcp;
-  if(global_locale && mbcinfo == MSVCRT_locale->mbcinfo)
-    memcpy(_mbctype, MSVCRT_locale->mbcinfo->mbctype, sizeof(_mbctype));
-
-  return 0;
-}
-
-/*********************************************************************
- *              _setmbcp (MSVCRT.@)
- */
-int CDECL _setmbcp(int cp)
-{
-    return _setmbcp_l(cp, -1, NULL);
-}
-

sdk/lib/crt/mbstring/hanzen.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/hanzen.c
- * PURPOSE:     Multibyte conversion routines formerly called hantozen and zentohan
- * PROGRAMER:   Ariadne, Taiji Yamada
- * UPDATE HISTORY:
-		Modified from Taiji Yamada japanese code system utilities
- *              12/04/99: Created
- */
-
-#include <precomp.h>
-#include <mbstring.h>
-#include <locale.h>
-
-/* Maps cp932 single byte character to multi byte character */
-static const unsigned char mbbtombc_932[] = {
-  0x40,0x49,0x68,0x94,0x90,0x93,0x95,0x66,0x69,0x6a,0x96,0x7b,0x43,0x7c,0x44,0x5e,
-  0x4f,0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x46,0x47,0x83,0x81,0x84,0x48,
-  0x97,0x60,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x6a,0x6b,0x6c,0x6d,0x6e,
-  0x6f,0x70,0x71,0x72,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x6d,0x8f,0x6e,0x4f,0x76,
-  0x77,0x78,0x79,0x6d,0x8f,0x6e,0x4f,0x51,0x65,0x81,0x82,0x83,0x84,0x85,0x86,0x87,
-  0x88,0x89,0x8a,0x8b,0x8c,0x8d,0x8e,0x8f,0x90,0x91,0x92,0x93,0x94,0x95,0x50,
-       0x42,0x75,0x76,0x41,0x45,0x92,0x40,0x42,0x44,0x46,0x48,0x83,0x85,0x87,0x62,
-  0x5b,0x41,0x43,0x45,0x47,0x49,0x4a,0x4c,0x4e,0x50,0x52,0x54,0x56,0x58,0x5a,0x5c,
-  0x5e,0x60,0x63,0x65,0x67,0x69,0x6a,0x6b,0x6c,0x6d,0x6e,0x71,0x74,0x77,0x7a,0x7d,
-  0x7e,0x80,0x81,0x82,0x84,0x86,0x88,0x89,0x8a,0x8b,0x8c,0x8d,0x8f,0x93,0x4a,0x4b };
-
-/* Maps multibyte cp932 punctuation marks to single byte equivalents */
-static const unsigned char mbctombb_932_punct[] = {
-  0x20,0xa4,0xa1,0x2c,0x2e,0xa5,0x3a,0x3b,0x3f,0x21,0xde,0xdf,0x00,0x00,0x00,0x5e,
-  0x7e,0x5f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xb0,0x00,0x00,0x2f,0x00,
-  0x00,0x00,0x7c,0x00,0x00,0x60,0x27,0x00,0x22,0x28,0x29,0x00,0x00,0x5b,0x5d,0x7b,
-  0x7d,0x00,0x00,0x00,0x00,0xa2,0xa3,0x00,0x00,0x00,0x00,0x2b,0x2d,0x00,0x00,0x00,
-  0x00,0x3d,0x00,0x3c,0x3e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x5c,
-  0x24,0x00,0x00,0x25,0x23,0x26,0x2a,0x40};
-
-/* Maps multibyte cp932 hiragana/katakana to single-byte equivalents */
-static const unsigned char mbctombb_932_kana[] = {
-  0xa7,0xb1,0xa8,0xb2,0xa9,0xb3,0xaa,0xb4,0xab,0xb5,0xb6,0xb6,0xb7,0xb7,0xb8,0xb8,
-  0xb9,0xb9,0xba,0xba,0xbb,0xbb,0xbc,0xbc,0xbd,0xbd,0xbe,0xbe,0xbf,0xbf,0xc0,0xc0,
-  0xc1,0xc1,0xaf,0xc2,0xc2,0xc3,0xc3,0xc4,0xc4,0xc5,0xc6,0xc7,0xc8,0xc9,0xca,0xca,
-  0xca,0xcb,0xcb,0xcb,0xcc,0xcc,0xcc,0xcd,0xcd,0xcd,0xce,0xce,0xce,0xcf,0xd0,0xd1,
-  0xd2,0xd3,0xac,0xd4,0xad,0xd5,0xae,0xd6,0xd7,0xd8,0xd9,0xda,0xdb,0xdc,0xdc,0xb2,
-  0xb4,0xa6,0xdd,0xb3,0xb6,0xb9};
-
-/*********************************************************************
- *         _mbbtombc(MSVCRT.@)
- */
-unsigned int __cdecl _mbbtombc(unsigned int c)
-{
-  if(get_mbcinfo()->mbcodepage == 932)
-  {
-    if(c >= 0x20 && c <= 0x7e) {
-      if((c >= 0x41 && c <= 0x5a) || (c >= 0x61 && c <= 0x7a) || (c >= 0x30 && c <= 0x39))
-        return mbbtombc_932[c - 0x20] | 0x8200;
-      else
-        return mbbtombc_932[c - 0x20] | 0x8100;
-    }
-    else if(c >= 0xa1 && c <= 0xdf) {
-      if(c >= 0xa6 && c <= 0xdd && c != 0xb0)
-        return mbbtombc_932[c - 0xa1 + 0x5f] | 0x8300;
-      else
-        return mbbtombc_932[c - 0xa1 + 0x5f] | 0x8100;
-    }
-  }
-  return c;  /* not Japanese or no MB char */
-}
-
- /*********************************************************************
- *         _mbctombb (MSVCRT.@)
- */
-unsigned int CDECL _mbctombb(unsigned int c)
-{
-    unsigned int value;
-
-    if(get_mbcinfo()->mbcodepage == 932)
-    {
-        if(c >= 0x829f && c <= 0x82f1)    /* Hiragana */
-            return mbctombb_932_kana[c - 0x829f];
-        if(c >= 0x8340 && c <= 0x8396 && c != 0x837f)    /* Katakana */
-            return mbctombb_932_kana[c - 0x8340 - (c >= 0x837f ? 1 : 0)];
-        if(c >= 0x8140 && c <= 0x8197)    /* Punctuation */
-        {
-            value = mbctombb_932_punct[c - 0x8140];
-            return value ? value : c;
-        }
-        if((c >= 0x824f && c <= 0x8258) || /* Fullwidth digits */
-           (c >= 0x8260 && c <= 0x8279))   /* Fullwidth capitals letters */
-            return c - 0x821f;
-        if(c >= 0x8281 && c <= 0x829a)     /* Fullwidth small letters */
-            return c - 0x8220;
-        /* all other cases return c */
-    }
-    return c;
-}
-
-
-

sdk/lib/crt/mbstring/ischira.c

···
-#include <precomp.h>
-#include <mbctype.h>
-
-/*********************************************************************
- *		_ismbchira(MSVCRT.@)
- */
-int CDECL _ismbchira(unsigned int c)
-{
-  if(get_mbcinfo()->mbcodepage == 932)
-  {
-    /* Japanese/Hiragana, CP 932 */
-    return (c >= 0x829f && c <= 0x82f1);
-  }
-  return 0;
-}
-
-/*********************************************************************
- *		_ismbckata(MSVCRT.@)
- */
-int CDECL _ismbckata(unsigned int c)
-{
-  if(get_mbcinfo()->mbcodepage == 932)
-  {
-    /* Japanese/Katakana, CP 932 */
-    return (c >= 0x8340 && c <= 0x8396 && c != 0x837f);
-  }
-  return 0;
-}
-
-/*********************************************************************
- *		_mbctohira (MSVCRT.@)
- *
- *              Converts a sjis katakana character to hiragana.
- */
-unsigned int CDECL _mbctohira(unsigned int c)
-{
-    if(_ismbckata(c) && c <= 0x8393)
-        return (c - 0x8340 - (c >= 0x837f ? 1 : 0)) + 0x829f;
-    return c;
-}
-
-/*********************************************************************
- *		_mbctokata (MSVCRT.@)
- *
- *              Converts a sjis hiragana character to katakana.
- */
-unsigned int CDECL _mbctokata(unsigned int c)
-{
-    if(_ismbchira(c))
-        return (c - 0x829f) + 0x8340 + (c >= 0x82de ? 1 : 0);
-    return c;
-}
-
-

sdk/lib/crt/mbstring/iskana.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/iskana.c
- * PURPOSE:     Checks for kana character
- * PROGRAMER:
- * UPDATE HISTORY:
- *              12/04/99:  Ariadne, Taiji Yamada Created
- *              05/30/08: Samuel Serapion adapted  from PROJECT C Library
- *
- */
-
-#include <precomp.h>
-
-/*
- * @implemented
- */
-int _ismbbkana(unsigned int c)
-{
-  return (get_mbcinfo()->mbctype[c & 0xff] & _MBKANA);
-}

sdk/lib/crt/mbstring/iskmoji.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/iskmoji.c
- * PURPOSE:
- * PROGRAMER:
- * UPDATE HISTORY:
- *              05/30/08: Samuel Serapion adapted  from PROJECT C Library
- *
- */
-
-#include <mbctype.h>
-
-int _ismbbkalpha(unsigned char c)
-{
- return (0xA7 <= c && c <= 0xDF);
-}

sdk/lib/crt/mbstring/iskpun.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/iskpun.c
- * PURPOSE:
- * PROGRAMER:
- * UPDATE HISTORY:
- *              12/04/99: Ariadne Created
- *              05/30/08: Samuel Serapion adapted  from PROJECT C Library
- *
- */
-
-#include <precomp.h>
-/*
- * @implemented
- */
-int _ismbbkpunct( unsigned int c )
-{
-  return (_mbctype[c & 0xff] & _MKPNCT);
-}

sdk/lib/crt/mbstring/islead.c

···
-#include <precomp.h>
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-int isleadbyte(int c)
-{
-    return _isctype( c, _LEADBYTE );
-
-}

sdk/lib/crt/mbstring/islwr.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/islwr.c
- * PURPOSE:
- * PROGRAMER:
- * UPDATE HISTORY:
- *              12/04/99: Ariadne Created
- *              05/30/08: Samuel Serapion adapted from PROJECT C Library
- *
- */
-
-#include <precomp.h>
-
-/*
- * @implemented
- */
-int _ismbclower( unsigned int c )
-{
-    return ((c) >= 0x8281 && (c) <= 0x829a);
-
-}

sdk/lib/crt/mbstring/ismbal.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/ismbal.c
- * PURPOSE:     Checks for alphabetic multibyte character
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              12/04/99: Created
- */
-#include <mbctype.h>
-#include <ctype.h>
-
-/*
- * @implemented
- */
-int _ismbbalpha(unsigned int c)
-{
-  return (isalpha(c) || _ismbbkalnum(c));
-}
-

sdk/lib/crt/mbstring/ismbaln.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/ismbaln.c
- * PURPOSE:
- * PROGRAMER:
- * UPDATE HISTORY:
- *              05/30/08: Samuel Serapion adapted from PROJECT C Library
- *
- */
-
-
-#include <precomp.h>
-
-int _ismbbkalnum( unsigned int c );
-
-/*
- * @implemented
- */
-int _ismbbalnum(unsigned int c)
-{
-  return (isalnum(c) || _ismbbkalnum(c));
-}
-
-

sdk/lib/crt/mbstring/ismbc.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/ismbc.c
- * PURPOSE:
- * PROGRAMER:
- * UPDATE HISTORY:
- *              05/30/08: Samuel Serapion adapted from PROJECT C Library
- *
- */
-
-
-#include <precomp.h>
-#include <mbstring.h>
-#include <mbctype.h>
-
-/*
- * @implemented
- */
-int _ismbcalnum( unsigned int c )
-{
-	if ((c & 0xFF00) != 0) {
-		// true multibyte character
-		return 0;
-	}
-	else
-		return _ismbbalnum(c);
-
-	return 0;
-}
-
-/*
- * @implemented
- */
-int _ismbcalpha( unsigned int c )
-{
-	return (_ismbcupper (c) || _ismbclower (c));
-}
-
-/*
- * @implemented
- */
-int _ismbcdigit( unsigned int c )
-{
-	return ((c) >= 0x824f && (c) <= 0x8258);
-}
-
-/*
- * @implemented
- */
-int _ismbcprint( unsigned int c )
-{
-    return (_MBHMASK (c) ? _ismbclegal (c) : (isprint (c) || _ismbbkana (c)));
-}
-
-/*
- * @implemented
- */
-int _ismbcsymbol( unsigned int c )
-{
-	return (c >= 0x8141 && c <= 0x817e) || (c >= 0x8180 && c <= 0x81ac);
-}
-
-/*
- * @implemented
- */
-int _ismbcspace( unsigned int c )
-{
-    return (c == 0x20 || (c >= 0x09 && c <= 0x0D ));
-}
-/*
- * @implemented
- */
-int _ismbclegal(unsigned int c)
-{
-	return (_ismbblead (_MBGETH (c)) && _ismbbtrail (_MBGETL (c)));
-}
-
-/*
- * @implemented
- */
-int _ismbcl0(unsigned int c)
-{
-  return (c >= 0x8140 && c <= 0x889e);
-}
-
-/*
- * @implemented
- */
-int _ismbcl1(unsigned int c)
-{
-  return (c >= 0x889f && c <= 0x9872);
-}
-
-/*
- * @implemented
- */
-int _ismbcl2(unsigned int c)
-{
-  return (c >= 0x989f && c <= 0xea9e);
-}
-
-/*
- * @unimplemented
- */
-int _ismbcgraph(unsigned int ch)
-{
-    //wchar_t wch = msvcrt_mbc_to_wc( ch );
-    //return (get_char_typeW( wch ) & (C1_UPPER | C1_LOWER | C1_DIGIT | C1_PUNCT | C1_ALPHA));
-    return 0;
-}
-
-/*
- * @unimplemented
- */
-int _ismbcpunct(unsigned int ch)
-{
-    //wchar_t wch = msvcrt_mbc_to_wc( ch );
-    //return (get_char_typeW( wch ) & C1_PUNCT);
-    return 0;
-}

sdk/lib/crt/mbstring/ismbgra.c

···
-#include <mbstring.h>
-#include <mbctype.h>
-#include <ctype.h>
-
-/*
- * @implemented
- */
-int _ismbbgraph(unsigned int c)
-{
-  return (isgraph(c) || _ismbbkana(c));
-}

sdk/lib/crt/mbstring/ismbkaln.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/ismbkaln.c
- * PURPOSE:
- * PROGRAMER:
- * UPDATE HISTORY:
- *              12/04/99: Ariadne Created
- *              05/30/08: Samuel Serapion adapted from PROJECT C Library
- *
- */
-
-#include <precomp.h>
-/*
- * @implemented
- */
-int _ismbbkalnum( unsigned int c )
-{
-  return (get_mbcinfo()->mbctype[c & 0xff] & _MKMOJI);
-}

sdk/lib/crt/mbstring/ismblead.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/ismblead.c
- * PURPOSE:      Checks for a leading byte
- * PROGRAMERS:
- *              Copyright 1999 Ariadne, Taiji Yamada
- *              Copyright 1999 Alexandre Julliard
- *              Copyright 2000 Jon Griffths
- *              Copyright 2008 Samuel Serapion adapted from PROJECT C Library
- *
- */
-
-#include <precomp.h>
-#include <mbctype.h>
-
-/*
- * @implemented
- */
-int _ismbblead(unsigned int c)
-{
-  return (get_mbcinfo()->mbctype[(c&0xff) + 1] & _M1) != 0;
-}
-
-/*
- * @implemented
- */
-int _ismbslead( const unsigned char *start, const unsigned char *str)
-{
-  int lead = 0;
-
-  /* Lead bytes can also be trail bytes so we need to analyse the string
-   */
-  while (start <= str)
-  {
-    if (!*start)
-      return 0;
-    lead = !lead && _ismbblead(*start);
-    start++;
-  }
-
-  return lead ? -1 : 0;
-}
-
-/*
- * @implemented
- */
-unsigned char *__p__mbctype(void)
-{
-  return get_mbcinfo()->mbctype;
-}
-
-

sdk/lib/crt/mbstring/ismbpri.c

···
-#include <mbstring.h>
-#include <mbctype.h>
-#include <ctype.h>
-
-/*
- * @implemented
- */
-int _ismbbprint(unsigned int c)
-{
-  return (isprint(c) || _ismbbkana(c));
-}

sdk/lib/crt/mbstring/ismbpun.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/ismbpun.c
- * PURPOSE:
- * PROGRAMER:
- * UPDATE HISTORY:
- *              05/30/08: Samuel Serapion adapted from PROJECT C Library
- *
- */
-
-#include <precomp.h>
-
-
-/*
- * @implemented
- */
-int _ismbbpunct(unsigned int c)
-{
-// (0xA1 <= c <= 0xA6)
-    return (get_mbcinfo()->mbctype[c & 0xff] & _MBPUNCT);
-}
-
- //iskana()     :(0xA1 <= c <= 0xDF)
- //iskpun()     :(0xA1 <= c <= 0xA6)
- //iskmoji()    :(0xA7 <= c <= 0xDF)

sdk/lib/crt/mbstring/ismbtrl.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/ismbtrl.c
- * PURPOSE:     Checks for a trailing byte
- * PROGRAMERS:
- *              Copyright 1999 Ariadne
- *              Copyright 1999 Alexandre Julliard
- *              Copyright 2000 Jon Griffths
- *
- */
-
-#include <precomp.h>
-#include <mbctype.h>
-
-size_t _mbclen2(const unsigned int s);
-
-//  iskanji2()   : (0x40 <= c <= 0x7E 0x80  <=  c <= 0xFC)
-
-/*
- * @implemented
- */
-int _ismbbtrail(unsigned int c)
-{
-  return (get_mbcinfo()->mbctype[(c&0xff) + 1] & _M2) != 0;
-}
-
-
-/*
- * @implemented
- */
-int _ismbstrail( const unsigned char *start, const unsigned char *str)
-{
-  /* Note: this function doesn't check _ismbbtrail */
-  if ((str > start) && _ismbslead(start, str-1))
-    return -1;
-  else
-    return 0;
-}

sdk/lib/crt/mbstring/isuppr.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/isuppr.c
- * PURPOSE:
- * PROGRAMER:
- * UPDATE HISTORY:
- *              12/04/99: Ariadne Created
- *              05/30/08: Samuel Serapion adapted from PROJECT C Library
- *
- */
-
-#include <precomp.h>
-
-/*
- * @implemented
- */
-int _ismbcupper( unsigned int c )
-{
-    return ((c) >= 0x8260 && (c) <= 0x8279);
-}

sdk/lib/crt/mbstring/jistojms.c

···
-/*
- * MSVCRT string functions
- *
- * Copyright 1996,1998 Marcus Meissner
- * Copyright 1996 Jukka Iivonen
- * Copyright 1997,2000 Uwe Bonnes
- * Copyright 2000 Jon Griffiths
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-
-#include <precomp.h>
-#include <mbstring.h>
-#include <locale.h>
-
-/*
- * @implemented
- */
-unsigned int _mbcjistojms(unsigned int c)
-{
- /* Conversion takes place only when codepage is 932.
-     In all other cases, c is returned unchanged */
-  if(get_mbcinfo()->mbcodepage == 932)
-  {
-    if(HIBYTE(c) >= 0x21 && HIBYTE(c) <= 0x7e &&
-       LOBYTE(c) >= 0x21 && LOBYTE(c) <= 0x7e)
-    {
-      if(HIBYTE(c) % 2)
-        c += 0x1f;
-      else
-        c += 0x7d;
-
-      if(LOBYTE(c) >= 0x7F)
-        c += 0x1;
-
-      c = (((HIBYTE(c) - 0x21)/2 + 0x81) << 8) | LOBYTE(c);
-
-      if(HIBYTE(c) > 0x9f)
-        c += 0x4000;
-    }
-    else
-      return 0; /* Codepage is 932, but c can't be converted */
-  }
-
-  return c;
-}
-

sdk/lib/crt/mbstring/jmstojis.c

···
-#include <precomp.h>
-#include <mbstring.h>
-#include <locale.h>
-
-/*
- * @implemented
- */
-unsigned int __cdecl _mbcjmstojis(unsigned int c)
-{
-  /* Conversion takes place only when codepage is 932.
-     In all other cases, c is returned unchanged */
-  if(get_mbcinfo()->mbcodepage == 932)
-  {
-    if(_ismbclegal(c) && HIBYTE(c) < 0xf0)
-    {
-      if(HIBYTE(c) >= 0xe0)
-        c -= 0x4000;
-
-      c = (((HIBYTE(c) - 0x81)*2 + 0x21) << 8) | LOBYTE(c);
-
-      if(LOBYTE(c) > 0x7f)
-        c -= 0x1;
-
-      if(LOBYTE(c) > 0x9d)
-        c += 0x83;
-      else
-        c -= 0x1f;
-    }
-    else
-      return 0; /* Codepage is 932, but c can't be converted */
-  }
-
-  return c;
-}

sdk/lib/crt/mbstring/mbbtype.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbbtype.c
- * PURPOSE:     Determines the type of a multibyte character
- * PROGRAMERS:
- *              Copyright 1999 Ariadne
- *              Copyright 1999 Alexandre Julliard
- *              Copyright 2000 Jon Griffths
- *
- */
-
-#include <precomp.h>
-
-#include <mbstring.h>
-#include <mbctype.h>
-
-/*
- * @implemented
- */
-int _mbbtype(unsigned char c , int type)
-{
-	if ( type == 1 ) {
-		if ((c >= 0x40 && c <= 0x7e ) || (c >= 0x80 && c <= 0xfc ) )
-		{
-			return _MBC_TRAIL;
-		}
-		else if (( c >= 0x20 && c <= 0x7E ) || ( c >= 0xA1 && c <= 0xDF ) ||
-			 ( c >= 0x81 && c <= 0x9F ) || ( c >= 0xE0 && c <= 0xFC ) )
-			 return _MBC_ILLEGAL;
-		else
-			return 0;
-	} else  {
-		if (( c >= 0x20 && c <= 0x7E ) || ( c >= 0xA1  && c <= 0xDF )) {
-			return _MBC_SINGLE;
-		}
-		else if ( (c >= 0x81 && c <= 0x9F ) || ( c >= 0xE0 && c <= 0xFC) )
-			return _MBC_LEAD;
-		else if (( c >= 0x20 && c <= 0x7E ) || ( c >= 0xA1 && c <= 0xDF ) ||
-			 ( c >= 0x81 && c <= 0x9F ) || ( c >= 0xE0 && c <= 0xFC ) )
-			 return _MBC_ILLEGAL;
-		else
-			return 0;
-	}
-	return 0;
-}
-
-/*
- * @implemented
- */
-int _mbsbtype( const unsigned char *str, size_t n )
-{
-  int lead = 0;
-  const unsigned char *end = str + n;
-
-  /* Lead bytes can also be trail bytes so we need to analyse the string.
-   * Also we must return _MBC_ILLEGAL for chars past the end of the string
-   */
-  while (str < end) /* Note: we skip the last byte - will check after the loop */
-  {
-    if (!*str)
-      return _MBC_ILLEGAL;
-    lead = !lead && _ismbblead(*str);
-    str++;
-  }
-
-  if (lead)
-    if (_ismbbtrail(*str))
-      return _MBC_TRAIL;
-    else
-      return _MBC_ILLEGAL;
-  else
-    if (_ismbblead(*str))
-      return _MBC_LEAD;
-    else
-      return _MBC_SINGLE;
-}

sdk/lib/crt/mbstring/mbccpy.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbccpy.c
- * PURPOSE:     Copies a multi byte character
- * PROGRAMERS:
- *              Copyright 1999 Alexandre Julliard
- *              Copyright 2000 Jon Griffths
- *
- */
-
-#include <mbstring.h>
-#include <string.h>
-
-/*
- * @implemented
- */
-void _mbccpy(unsigned char *dst, const unsigned char *src)
-{
-  *dst = *src;
-  if(_ismbblead(*src))
-    *++dst = *++src; /* MB char */
-}

sdk/lib/crt/mbstring/mbclen.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbclen.c
- * PURPOSE:      Determines the length of a multi byte character
- * PROGRAMERS:
- *              Copyright 1999 Alexandre Julliard
- *              Copyright 2000 Jon Griffths
- *
- */
-
-#include <precomp.h>
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-size_t _mbclen(const unsigned char *s)
-{
-  return _ismbblead(*s) ? 2 : 1;
-}
-
-size_t _mbclen2(const unsigned int s)
-{
-  return (_ismbblead(s>>8) && _ismbbtrail(s&0x00FF)) ? 2 : 1;
-}
-
-/*
- * assume MB_CUR_MAX == 2
- *
- * @implemented
- */
-int mblen( const char *str, size_t size )
-{
-  if (str && *str && size)
-  {
-    return !isleadbyte((unsigned char)*str) ? 1 : (size>1 ? 2 : -1);
-  }
-  return 0;
-}
-
-size_t __cdecl mbrlen(const char *str, size_t len, mbstate_t *state)
-{
-    mbstate_t s = (state ? *state : 0);
-    size_t ret;
-
-    if(!len || !str || !*str)
-        return 0;
-
-    if(get_locinfo()->mb_cur_max == 1) {
-        return 1;
-    }else if(!s && isleadbyte((unsigned char)*str)) {
-        if(len == 1) {
-            s = (unsigned char)*str;
-            ret = -2;
-        }else {
-            ret = 2;
-        }
-    }else if(!s) {
-        ret = 1;
-    }else {
-        s = 0;
-        ret = 2;
-    }
-
-    if(state)
-        *state = s;
-    return ret;
-}
-

sdk/lib/crt/mbstring/mbscat.c

···
-#include <precomp.h>
-#include <string.h>
-
-/*
- * @implemented
- */
-unsigned char * _mbscat(unsigned char *dst, const unsigned char *src)
-{
-  return (unsigned char *)strcat((char*)dst,(const char*)src);
-}

sdk/lib/crt/mbstring/mbschr.c

···
-#include <string.h>
-
-/*
- * @implemented
- */
-unsigned char * _mbschr(const unsigned char *str, unsigned int c)
-{
-  return (unsigned char *)strchr((const char*)str, c);
-}

sdk/lib/crt/mbstring/mbscmp.c

···
-#include <mbstring.h>
-#include <string.h>
-#include <precomp.h>
-
-/*
- * @implemented
- */
-int _mbscmp(const unsigned char *str1, const unsigned char *str2)
-{
-    if (!MSVCRT_CHECK_PMT(str1 && str2))
-        return _NLSCMPERROR;
-
-  return strcmp((const char*)str1, (char*)str2);
-}

sdk/lib/crt/mbstring/mbscoll.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbscoll.c
- * PURPOSE:
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              12/04/99: Created
- */
-
-#include <mbstring.h>
-
-int colldif(unsigned short c1, unsigned short c2);
-
-/*
- * @implemented
- */
-int _mbscoll(const unsigned char *str1, const unsigned char *str2)
-{
-	unsigned char *s1 = (unsigned char *)str1;
-	unsigned char *s2 = (unsigned char *)str2;
-
-	unsigned short *short_s1, *short_s2;
-
-	int l1, l2;
-
-	while ( *s1 != 0 ) {
-
-		if (*s1 == 0)
-			break;
-
-		l1 = _ismbblead(*s1);
-		l2 = _ismbblead(*s2);
-		if ( !l1 &&  !l2  ) {
-
-			if (*s1 != *s2)
-				return colldif(*s1, *s2);
-			else {
-				s1 += 1;
-				s2 += 1;
-			}
-		}
-		else if ( l1 && l2 ){
-			short_s1 = (unsigned short *)s1;
-			short_s2 = (unsigned short *)s2;
-			if ( *short_s1 != *short_s2 )
-				return colldif(*short_s1, *short_s2);
-			else {
-				s1 += 2;
-				s2 += 2;
-
-			}
-		}
-		else
-			return colldif(*s1, *s2);
-	} ;
-	return 0;
-}
-
-#if 0
-int _mbsbcoll(const unsigned char *str1, const unsigned char *str2)
-{
-	unsigned char *s1 = (unsigned char *)str1;
-	unsigned char *s2 = (unsigned char *)str2;
-
-	unsigned short *short_s1, *short_s2;
-
-	int l1, l2;
-
-
-	while ( *s1 != 0 ) {
-
-
-		l1 = _ismbblead(*s1);
-		l2 = _ismbblead(*s2);
-		if ( !l1 &&  !l2  ) {
-
-			if (*s1 != *s2)
-				return colldif(*s1, *s2);
-			else {
-				s1 += 1;
-				s2 += 1;
-			}
-		}
-		else if ( l1 && l2 ){
-			short_s1 = (unsigned short *)s1;
-			short_s2 = (unsigned short *)s2;
-			if ( *short_s1 != *short_s2 )
-				return colldif(*short_s1, *short_s2);
-			else {
-				s1 += 2;
-				s2 += 2;
-			}
-		}
-		else
-			return colldif(*s1, *s2);
-	} ;
-	return 0;
-}
-#endif

sdk/lib/crt/mbstring/mbscpy.c

···
-#include <precomp.h>
-#include <mbstring.h>
-#include <string.h>
-
-/*
- * @implemented
- */
-unsigned char * _mbscpy(unsigned char *dst, const unsigned char *str)
-{
-  return (unsigned char*)strcpy((char*)dst,(const char*)str);
-}

sdk/lib/crt/mbstring/mbscspn.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbscspn.c
- * PURPOSE:
- * PROGRAMER:
- * UPDATE HISTORY:
- *              05/30/08: Samuel Serapion adapted from PROJECT C Library
- *
- */
-
-#include <precomp.h>
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-size_t _mbscspn (const unsigned char *str1, const unsigned char *str2)
-{
-    int c;
-    const unsigned char *save = str1;
-
-    while ((c = _mbsnextc (str1))) {
-
-	if (_mbschr (str2, c))
-	    break;
-
-	str1 = _mbsinc ((unsigned char *) str1);
-
-    }
-
-    return str1 - save;
-}

sdk/lib/crt/mbstring/mbsdec.c

···
-#include <precomp.h>
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-unsigned char * _mbsdec(const unsigned char *str, const unsigned char *cur)
-{
-	unsigned char *s = (unsigned char *)cur;
-	if ( str >= cur )
-		return NULL;
-
-	s--;
-	if (_ismbblead(*(s-1)) )
-		s--;
-
-	return s;
-}

sdk/lib/crt/mbstring/mbsdup.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbsdup.c
- * PURPOSE:     Duplicates a multi byte string
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
-		Modified from DJGPP strdup
- *              12/04/99: Created
- */
-
-#include <precomp.h>
-#include <mbstring.h>
-#include <stdlib.h>
-
-/*
- * @implemented
- */
-unsigned char * _mbsdup(const unsigned char *_s)
-{
-	unsigned char *rv;
-	if (_s == 0)
-		return 0;
-	rv = (unsigned char *)malloc(_mbslen(_s) + 1);
-	if (rv == 0)
-		return 0;
-	_mbscpy(rv, _s);
-	return rv;
-}

sdk/lib/crt/mbstring/mbsicmp.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbsicmp.c
- * PURPOSE:     Duplicates a multi byte string
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              12/04/99: Created
- */
-#include <precomp.h>
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-int _mbsicmp(const unsigned char *str1, const unsigned char *str2)
-{
-	unsigned char *s1 = (unsigned char *)str1;
-	unsigned char *s2 = (unsigned char *)str2;
-
-	unsigned short *short_s1, *short_s2;
-
-	int l1, l2;
-
-	do {
-
-		if (*s1 == 0)
-			break;
-
-		l1 = _ismbblead(*s1);
-		l2 = _ismbblead(*s2);
-		if ( !l1 &&  !l2  ) {
-
-			if (toupper(*s1) != toupper(*s2))
-				return toupper(*s1) - toupper(*s2);
-			else {
-				s1 += 1;
-				s2 += 1;
-			}
-		}
-		else if ( l1 && l2 ){
-			short_s1 = (unsigned short *)s1;
-			short_s2 = (unsigned short *)s2;
-			if ( _mbctoupper(*short_s1) != _mbctoupper(*short_s2 ))
-				return _mbctoupper(*short_s1) - _mbctoupper(*short_s2);
-			else {
-				s1 += 2;
-				s2 += 2;
-			}
-		}
-		else
-			return *s1 - *s2;
-	} while (*s1 != 0);
-	return 0;
-
-  while (toupper(*s1) == toupper(*s2))
-  {
-    if (*s1 == 0)
-      return 0;
-    s1++;
-    s2++;
-  }
-  return toupper(*(unsigned const char *)s1) - toupper(*(unsigned const char *)(s2));
-}

sdk/lib/crt/mbstring/mbsicoll.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbsicoll.c
- * PURPOSE:
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              12/04/99: Created
- */
-#include <mbstring.h>
-#include <mbctype.h>
-#include <ctype.h>
-
-int colldif(unsigned short c1, unsigned short c2);
-/*
- * @implemented
- */
-int _mbsicoll(const unsigned char *str1, const unsigned char *str2)
-{
-	unsigned char *s1 = (unsigned char *)str1;
-	unsigned char *s2 = (unsigned char *)str2;
-
-	unsigned short *short_s1, *short_s2;
-
-	int l1, l2;
-
-	while ( *s1 != 0 ) {
-
-		if (*s1 == 0)
-			break;
-
-		l1 = _ismbblead(*s1);
-		l2 = _ismbblead(*s2);
-		if ( !l1 &&  !l2  ) {
-
-			if (toupper(*s1) != toupper(*s2))
-				return colldif(*s1, *s2);
-			else {
-				s1 += 1;
-				s2 += 1;
-			}
-		}
-		else if ( l1 && l2 ){
-			short_s1 = (unsigned short *)s1;
-			short_s2 = (unsigned short *)s2;
-			if ( _mbctoupper(*short_s1) != _mbctoupper(*short_s2 ))
-				return colldif(*short_s1, *short_s2);
-			else {
-				s1 += 2;
-				s2 += 2;
-
-			}
-		}
-		else
-			return colldif(*s1, *s2);
-	} ;
-	return 0;
-}

sdk/lib/crt/mbstring/mbsinc.c

···
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-unsigned char * _mbsinc(const unsigned char *s)
-{
-	unsigned char *c = (unsigned char *)s;
-	if (_ismbblead(*s) )
-		c++;
-	c++;
-	return c;
-}

sdk/lib/crt/mbstring/mbslen.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbslen.c
- * PURPOSE:      Determines the length of a multi byte string
- * PROGRAMERS:
- *              Copyright 1999 Alexandre Julliard
- *              Copyright 2000 Jon Griffths
- *
- */
-
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-size_t _mbslen(const unsigned char *str)
-{
-  size_t len = 0;
-  while(*str)
-  {
-    if (_ismbblead(*str))
-    {
-      str++;
-      if (!*str)  /* count only full chars */
-        break;
-    }
-    str++;
-    len++;
-  }
-  return len;
-}

sdk/lib/crt/mbstring/mbslwr.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbslwr.c
- * PURPOSE:     Multibyte lowercase functions
- * PROGRAMER:   Eric Kohl
- *              Samuel Serapion, adapted from PROJECT C Library
- */
-
-#include <precomp.h>
-#include <mbstring.h>
-#include <ctype.h>
-
-unsigned int _mbbtolower(unsigned int c)
-{
-	if (!_ismbblead(c) )
-		return tolower(c);
-	return c;
-}
-
-/*
- * @implemented
- */
-unsigned int _mbctolower(unsigned int c)
-{
-    return _ismbcupper (c) ? c + 0x21 : c;
-}
-
-/*
- * @implemented
- */
-unsigned char * _mbslwr(unsigned char *x)
-{
-    unsigned char *y=x;
-
-    if (x == NULL)
-    {
-        return NULL;
-    }
-
-    while (*y)
-    {
-        if (!_ismbblead(*y))
-        {
-            *y = tolower(*y);
-            y++;
-        }
-        else
-        {
-            *y = _mbctolower(*(unsigned short *)y);
-            y++;
-        }
-    }
-    return x;
-}

sdk/lib/crt/mbstring/mbsncat.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbsncat.c
- * PURPOSE:     Concatenate two multi byte string to maximum of n characters or bytes
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              12/04/99: Created
- *              11/10/2025 Somewhat synced with Wine 10.0 by Doug Lyons
- */
-
-#include <precomp.h>
-#include <mbstring.h>
-#include <string.h>
-
-static inline unsigned char* u_strncat( unsigned char* dst, const unsigned char* src, size_t len )
-{
-  return (unsigned char*)strncat( (char*)dst, (const char*)src, len);
-}
-
-size_t _mbclen2(const unsigned int s);
-unsigned char *_mbset (unsigned char *string, int c);
-
-/*
- * @implemented
- */
-unsigned char *_mbsncat (unsigned char *dst, const unsigned char *src, size_t n)
-{
-    MSVCRT_pthreadmbcinfo mbcinfo = get_mbcinfo();
-
-    if (!n)
-        return dst;
-
-    if (!dst || !src) ERR("Bad Parameter\n");
-
-    if (mbcinfo->ismbcodepage)
-    {
-        unsigned char *res = dst;
-        while (*dst)
-        {
-            if (_ismbblead(*dst++))
-                dst++;
-        }
-        while (*src && n--)
-        {
-            *dst++ = *src;
-            if (_ismbblead(*src++))
-                *dst++ = *src++;
-        }
-        *dst = '\0';
-        return res;
-    }
-    return u_strncat(dst, src, n); /* ASCII CP */
-}
-
-/*
- * @implemented
- */
-unsigned char * _mbsnbcat(unsigned char *dst, const unsigned char *src, size_t n)
-{
-    MSVCRT_pthreadmbcinfo mbcinfo = get_mbcinfo();
-    unsigned char *s;
-
-    /* replace TRACE with ERR for debug output */
-    TRACE("Src %s\n", wine_dbgstr_an((const char*)src, n));
-
-    if (!dst || !src) ERR("Bad Parameter\n");
-
-    if (!src && !dst && !n && !MSVCRT_CHECK_PMT(dst && src))
-        return NULL;
-
-    if (mbcinfo->ismbcodepage)
-    {
-        unsigned char *res = dst;
-        while (*dst)
-        {
-            if (_ismbblead(*dst++))
-            {
-                if (*dst)
-                {
-                    dst++;
-                }
-                else
-                {
-                    /* as per msdn overwrite the lead byte in front of '\0' */
-                    dst--;
-                    break;
-                }
-            }
-        }
-        while (*src && n--) *dst++ = *src++;
-        *dst = '\0';
-        return res;
-    }
-    s = u_strncat(dst, src, n); /* ASCII CP */
-    /* replace TRACE with ERR for debug output */
-    TRACE("Dst %s\n", wine_dbgstr_an((const char*)dst, _mbslen(dst)));
-    return s;
-}

sdk/lib/crt/mbstring/mbsnccnt.c

···
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-size_t _mbsnccnt(const unsigned char *str, size_t n)
-{
-	unsigned char *s = (unsigned char *)str;
-	size_t cnt = 0;
-	while(*s != 0 && n > 0) {
-		if (_ismbblead(*s) )
-			s++;
-		else
-			n--;
-		s++;
-		cnt++;
-	}
-
-	return cnt;
-}
-
-/*
- * @implemented
- */
-size_t _mbsnbcnt(const unsigned char *str, size_t n)
-{
-	unsigned char *s = (unsigned char *)str;
-	while(*s != 0 && n > 0) {
-		if (!_ismbblead(*s) )
-			n--;
-		s++;
-	}
-
-	return (size_t)(s - str);
-}

sdk/lib/crt/mbstring/mbsncmp.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbsncmp.c
- * PURPOSE:     Compares two strings to a maximum of n bytes or characters
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              12/04/99: Created
- */
-
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-int _mbsncmp(const unsigned char *str1, const unsigned char *str2, size_t n)
-{
-	unsigned char *s1 = (unsigned char *)str1;
-	unsigned char *s2 = (unsigned char *)str2;
-
-	unsigned short *short_s1, *short_s2;
-
-	int l1, l2;
-
-	if (n == 0)
-		return 0;
-	do {
-
-		if (*s1 == 0)
-			break;
-
-		l1 = _ismbblead(*s1);
-		l2 = _ismbblead(*s2);
-		if ( !l1 &&  !l2  ) {
-
-			if (*s1 != *s2)
-				return *s1 - *s2;
-			else {
-				s1 += 1;
-				s2 += 1;
-				n--;
-			}
-		}
-		else if ( l1 && l2 ){
-			short_s1 = (unsigned short *)s1;
-			short_s2 = (unsigned short *)s2;
-			if ( *short_s1 != *short_s2 )
-				return *short_s1 - *short_s2;
-			else {
-				s1 += 2;
-				s2 += 2;
-				n--;
-
-			}
-		}
-		else
-			return *s1 - *s2;
-	} while (n > 0);
-	return 0;
-}
-
-/*
- * @implemented
- */
-int _mbsnbcmp(const unsigned char *str1, const unsigned char *str2, size_t n)
-{
-	unsigned char *s1 = (unsigned char *)str1;
-	unsigned char *s2 = (unsigned char *)str2;
-
-	unsigned short *short_s1, *short_s2;
-
-	int l1, l2;
-
-	if (n == 0)
-		return 0;
-	do {
-
-		if (*s1 == 0)
-			break;
-
-		l1 = _ismbblead(*s1);
-		l2 = _ismbblead(*s2);
-		if ( !l1 &&  !l2  ) {
-
-			if (*s1 != *s2)
-				return *s1 - *s2;
-			else {
-				s1 += 1;
-				s2 += 1;
-				n--;
-			}
-		}
-		else if ( l1 && l2 ){
-			short_s1 = (unsigned short *)s1;
-			short_s2 = (unsigned short *)s2;
-			if ( *short_s1 != *short_s2 )
-				return *short_s1 - *short_s2;
-			else {
-				s1 += 2;
-				s2 += 2;
-				n-=2;
-
-			}
-		}
-		else
-			return *s1 - *s2;
-	} while (n > 0);
-	return 0;
-}

sdk/lib/crt/mbstring/mbsncoll.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbsncoll.c
- * PURPOSE:
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              12/04/99: Created
- */
-#include <mbstring.h>
-
-
-int colldif(unsigned short c1, unsigned short c2)
-{
-  return c1 - c2;
-}
-
-/*
- * @implemented
- */
-int _mbsncoll(const unsigned char *str1, const unsigned char *str2, size_t n)
-{
-	unsigned char *s1 = (unsigned char *)str1;
-	unsigned char *s2 = (unsigned char *)str2;
-
-	unsigned short *short_s1, *short_s2;
-
-	int l1, l2;
-
-	if (n == 0)
-		return 0;
-	do {
-
-		if (*s1 == 0)
-			break;
-
-		l1 = _ismbblead(*s1);
-		l2 = _ismbblead(*s2);
-		if ( !l1 &&  !l2  ) {
-
-			if (*s1 != *s2)
-				return colldif(*s1, *s2);
-			else {
-				s1 += 1;
-				s2 += 1;
-				n--;
-			}
-		}
-		else if ( l1 && l2 ){
-			short_s1 = (unsigned short *)s1;
-			short_s2 = (unsigned short *)s2;
-			if ( *short_s1 != *short_s2 )
-				return colldif(*short_s1, *short_s2);
-			else {
-				s1 += 2;
-				s2 += 2;
-				n--;
-
-			}
-		}
-		else
-			return colldif(*s1, *s2);
-	} while (n > 0);
-	return 0;
-}
-
-/*
- * @implemented
- */
-int _mbsnbcoll(const unsigned char *str1, const unsigned char *str2, size_t n)
-{
-	unsigned char *s1 = (unsigned char *)str1;
-	unsigned char *s2 = (unsigned char *)str2;
-
-	unsigned short *short_s1, *short_s2;
-
-	int l1, l2;
-
-	if (n == 0)
-		return 0;
-	do {
-
-		if (*s1 == 0)
-			break;
-
-		l1 = _ismbblead(*s1);
-		l2 = _ismbblead(*s2);
-		if ( !l1 &&  !l2  ) {
-
-			if (*s1 != *s2)
-				return colldif(*s1, *s2);
-			else {
-				s1 += 1;
-				s2 += 1;
-				n--;
-			}
-		}
-		else if ( l1 && l2 ){
-			short_s1 = (unsigned short *)s1;
-			short_s2 = (unsigned short *)s2;
-			if ( *short_s1 != *short_s2 )
-				return colldif(*short_s1, *short_s2);
-			else {
-				s1 += 2;
-				s2 += 2;
-				n-=2;
-
-			}
-		}
-		else
-			return colldif(*s1, *s2);
-	} while (n > 0);
-	return 0;
-}
-

sdk/lib/crt/mbstring/mbsncpy.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbsncpy.c
- * PURPOSE:     Copies a string to a maximum of n bytes or characters
- * PROGRAMERS:
- *              Copyright 1999 Ariadne
- *              Copyright 1999 Alexandre Julliard
- *              Copyright 2000 Jon Griffths
- *
- */
-
-#include <precomp.h>
-#include <mbstring.h>
-
-/*********************************************************************
- *		_mbsncpy(MSVCRT.@)
- * REMARKS
- *  The parameter n is the number or characters to copy, not the size of
- *  the buffer. Use _mbsnbcpy for a function analogical to strncpy
- */
-unsigned char* CDECL _mbsncpy(unsigned char* dst, const unsigned char* src, size_t n)
-{
-  unsigned char* ret = dst;
-  if(!n)
-    return dst;
-  if (get_mbcinfo()->ismbcodepage)
-  {
-    while (*src && n)
-    {
-      n--;
-      if (_ismbblead(*src))
-      {
-        if (!*(src+1))
-        {
-            *dst++ = 0;
-            *dst++ = 0;
-            break;
-        }
-
-        *dst++ = *src++;
-      }
-
-      *dst++ = *src++;
-    }
-  }
-  else
-  {
-    while (n)
-    {
-        n--;
-        if (!(*dst++ = *src++)) break;
-    }
-  }
-  while (n--) *dst++ = 0;
-  return ret;
-}
-
-/*********************************************************************
- *              _mbsnbcpy_s(MSVCRT.@)
- * REMARKS
- * Unlike _mbsnbcpy this function does not pad the rest of the dest
- * string with 0
- */
-int CDECL _mbsnbcpy_s(unsigned char* dst, size_t size, const unsigned char* src, size_t n)
-{
-    size_t pos = 0;
-
-    if(!dst || size == 0)
-        return EINVAL;
-    if(!src)
-    {
-        dst[0] = '\0';
-        return EINVAL;
-    }
-    if(!n)
-        return 0;
-
-    if(get_mbcinfo()->ismbcodepage)
-    {
-        int is_lead = 0;
-        while (*src && n)
-        {
-            if(pos == size)
-            {
-                dst[0] = '\0';
-                return ERANGE;
-            }
-            is_lead = (!is_lead && _ismbblead(*src));
-            n--;
-            dst[pos++] = *src++;
-        }
-
-        if (is_lead) /* if string ends with a lead, remove it */
-            dst[pos - 1] = 0;
-    }
-    else
-    {
-        while (n)
-        {
-            n--;
-            if(pos == size)
-            {
-                dst[0] = '\0';
-                return ERANGE;
-            }
-
-            if(!(*src)) break;
-            dst[pos++] = *src++;
-        }
-    }
-
-    if(pos < size)
-        dst[pos] = '\0';
-    else
-    {
-        dst[0] = '\0';
-        return ERANGE;
-    }
-
-    return 0;
-}
-
-/*********************************************************************
- *              _mbsnbcpy(MSVCRT.@)
- * REMARKS
- *  Like strncpy this function doesn't enforce the string to be
- *  NUL-terminated
- */
-unsigned char* CDECL _mbsnbcpy(unsigned char* dst, const unsigned char* src, size_t n)
-{
-  unsigned char* ret = dst;
-  if(!n)
-    return dst;
-  if(get_mbcinfo()->ismbcodepage)
-  {
-    int is_lead = 0;
-    while (*src && n)
-    {
-      is_lead = (!is_lead && _ismbblead(*src));
-      n--;
-      *dst++ = *src++;
-    }
-
-    if (is_lead) /* if string ends with a lead, remove it */
-	*(dst - 1) = 0;
-  }
-  else
-  {
-    while (n)
-    {
-        n--;
-        if (!(*dst++ = *src++)) break;
-    }
-  }
-  while (n--) *dst++ = 0;
-  return ret;
-}
-

sdk/lib/crt/mbstring/mbsnextc.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbsnextc.c
- * PURPOSE:      Finds the next character in a string
- * PROGRAMERS:
-*              Copyright 1999 Alexandre Julliard
- *              Copyright 2000 Jon Griffths
- *
- */
-
-#include <precomp.h>
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-unsigned int _mbsnextc (const unsigned char *str)
-{
-  if(_ismbblead(*str))
-    return *str << 8 | str[1];
-  return *str;
-}

sdk/lib/crt/mbstring/mbsnicmp.c

···
-#include <mbstring.h>
-
-
-size_t _mbclen2(const unsigned int s);
-unsigned int _mbbtoupper(unsigned int c);
-
-
-/*
- * @implemented
- */
-int _mbsnicmp(const unsigned char *s1, const unsigned char *s2, size_t n)
-{
-  if (n == 0)
-    return 0;
-  do {
-    if (_mbbtoupper(*s1) != _mbbtoupper(*s2))
-      return _mbbtoupper(*(unsigned const char *)s1) - _mbbtoupper(*(unsigned const char *)s2);
-    s1 += _mbclen2(*s1);
-    s2 += _mbclen2(*s2);
-
-    if (*s1 == 0)
-      break;
-    if (!_ismbblead(*s1))
-      n--;
-  } while (n > 0);
-  return 0;
-}
-
-/*
- * @implemented
- */
-int _mbsnbicmp(const unsigned char *s1, const unsigned char *s2, size_t n)
-{
-  if (n == 0)
-    return 0;
-  do {
-    if (_mbbtoupper(*s1) != _mbbtoupper(*s2))
-      return _mbbtoupper(*(unsigned const char *)s1) - _mbbtoupper(*(unsigned const char *)s2);
-    s1 += _mbclen2(*s1);
-    s2 += _mbclen2(*s2);
-
-    if (*s1 == 0)
-      break;
-    n--;
-  } while (n > 0);
-  return 0;
-}

sdk/lib/crt/mbstring/mbsnicoll.c

···
-
-#include <precomp.h>
-#include <mbstring.h>
-
-/*
- * @unimplemented
- */
-int _mbsnicoll(const unsigned char *s1, const unsigned char *s2, size_t n)
-{
-    WARN("_mbsnicoll unimplemented\n");
-    return 0;
-}
-
-/*
- * @unimplemented
- */
-int _mbsnbicoll(const unsigned char *s1, const unsigned char *s2, size_t n)
-{
-    WARN("_mbsnbicoll unimplemented\n");
-    return 0;
-}

sdk/lib/crt/mbstring/mbsninc.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbsninc.c
- * PURPOSE:
- * PROGRAMERS:
-  *              Copyright 1999 Alexandre Julliard
- *              Copyright 2000 Jon Griffths
- *
- */
-
-#include <precomp.h>
-
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-unsigned char * _mbsninc(const unsigned char *str, size_t n)
-{
-  if(!str)
-    return NULL;
-
-  while (n > 0 && *str)
-  {
-    if (_ismbblead(*str))
-    {
-      if (!*(str+1))
-         break;
-      str++;
-    }
-    str++;
-    n--;
-  }
-
-  return (unsigned char*)str;
-}

sdk/lib/crt/mbstring/mbsnset.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbsnset.c
- * PURPOSE:     Fills a string with a multibyte character
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              12/04/99: Created
- */
-#include <mbstring.h>
-
-size_t _mbclen2(const unsigned int s);
-
-/*
- * @implemented
- */
-unsigned char * _mbsnset(unsigned char *src, unsigned int val, size_t count)
-{
-	unsigned char *char_src = (unsigned char *)src;
-	unsigned short *short_src = (unsigned short *)src;
-
-	if ( _mbclen2(val) == 1 ) {
-
-		while(count > 0) {
-			*char_src = val;
-			char_src++;
-			count--;
-		}
-		*char_src = 0;
-	}
-	else {
-		while(count > 0) {
-			*short_src = val;
-			short_src++;
-			count-=2;
-		}
-		*short_src = 0;
-	}
-
-	return src;
-}
-
-/*
- * @implemented
- */
-unsigned char * _mbsnbset(unsigned char *src, unsigned int val, size_t count)
-{
-	unsigned char *char_src = (unsigned char *)src;
-	unsigned short *short_src = (unsigned short *)src;
-
-	if ( _mbclen2(val) == 1 ) {
-
-		while(count > 0) {
-			*char_src = val;
-			char_src++;
-			count--;
-		}
-		*char_src = 0;
-	}
-	else {
-		while(count > 0) {
-			*short_src = val;
-			short_src++;
-			count-=2;
-		}
-		*short_src = 0;
-	}
-
-	return src;
-}

sdk/lib/crt/mbstring/mbspbrk.c

···
-#include <stdlib.h>
-#include <mbstring.h>
-
-int isleadbyte(int byte);
-
-/*
- * not correct
- *
- * @implemented
- */
-unsigned char * _mbspbrk(const unsigned char *s1, const unsigned char *s2)
-{
-  const unsigned char* p;
-
-  while (*s1)
-  {
-    for (p = s2; *p; p += (isleadbyte(*p) ? 2 : 1))
-    {
-      if (*p == *s1)
-        if (!isleadbyte(*p) || (*(p+1) == *(s1 + 1)))
-          return (unsigned char*)s1;
-    }
-    s1 += (isleadbyte(*s1) ? 2 : 1);
-  }
-  return NULL;
-}

sdk/lib/crt/mbstring/mbsrchr.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbsrchr.c
- * PURPOSE:     Searches for a character in reverse
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              12/04/99: Created
- */
-#include <stdlib.h>
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-unsigned char * _mbsrchr(const unsigned char *src, unsigned int val)
-{
-  unsigned int c;
-  unsigned char *match = NULL;
-
-  if (!src)
-    return NULL;
-
-  while (1)
-  {
-    c = _mbsnextc(src);
-    if (c == val)
-      match = (unsigned char*)src;
-    if (!c)
-      return match;
-    src += (c > 255) ? 2 : 1;
-  }
-}

sdk/lib/crt/mbstring/mbsrev.c

···
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-unsigned char * _mbsrev(unsigned char *s)
-{
-	unsigned char  *e;
-	unsigned char  a;
-	unsigned char  *e2;
-	e=s;
-	while (*e) {
-		if ( _ismbblead(*e) ) {
-			a = *e;
-			e2 = e;
-			*e2 = *++e;
-			if ( *e == 0 )
-				break;
-			*e = a;
-		}
-		e++;
-	}
-	while (s<e) {
-		a=*s;
-		*s=*e;
-		*e=a;
-		s++;
-		e--;
-	}
-
-
-	return s;
-}

sdk/lib/crt/mbstring/mbsset.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbsset.c
- * PURPOSE:     Fills a string with a multibyte character
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              12/04/99: Created
- */
-
-#include <mbstring.h>
-
-size_t _mbclen2(const unsigned int s);
-
-/*
- * @implemented
- */
-unsigned char * _mbsset(unsigned char *src, unsigned int c)
-{
-	unsigned char *char_src = src;
-	unsigned short *short_src = (unsigned short *)src;
-
-	if ( _mbclen2(c) == 1 ) {
-
-		while(*char_src != 0) {
-			*char_src = c;
-			char_src++;
-		}
-		*char_src = 0;
-	}
-	else {
-		while(*short_src != 0) {
-			*short_src = c;
-			short_src++;
-		}
-		*short_src = 0;
-	}
-
-	return src;
-}

sdk/lib/crt/mbstring/mbsspn.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbsspn.c
- * PURPOSE:
- * PROGRAMER:
- * UPDATE HISTORY:
- *              05/30/08: Samuel Serapion adapted from PROJECT C Library
- *
- */
-
-#include <precomp.h>
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-size_t _mbsspn (const unsigned char *str1, const unsigned char *str2)
-{
-    int c;
-    const unsigned char *save = str1;
-
-    while ((c = _mbsnextc (str1))) {
-
-	if (_mbschr (str2, c) == 0)
-	    break;
-
-	str1 = _mbsinc ((unsigned char *) str1);
-
-    }
-
-    return str1 - save;
-}

sdk/lib/crt/mbstring/mbsspnp.c

···
-#include <precomp.h>
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-unsigned char *_mbsspnp (const unsigned char *str1, const unsigned char *str2)
-{
-    int c;
-
-    while ((c = _mbsnextc (str1))) {
-
-	if (_mbschr (str2, c) == 0)
-	    return (unsigned char *) str1;
-
-	str1 = _mbsinc ((unsigned char *) str1);
-
-    }
-
-    return 0;
-}

sdk/lib/crt/mbstring/mbsstr.c

···
-#include <mbstring.h>
-#include <stdlib.h>
-
-/*
- * @implemented
- */
-unsigned char *_mbsstr(const unsigned char *src1,const unsigned char *src2)
-{
-  size_t len;
-
-  if (src2 ==NULL || *src2 == 0)
-    return (unsigned char *)src1;
-
-  len = _mbslen(src2);
-
-  while(*src1)
-    {
-      if ((*src1 == *src2) && (_mbsncmp(src1,src2,len) == 0))
-	return (unsigned char *)src1;
-      src1 = (unsigned char *)_mbsinc(src1);
-    }
-  return NULL;
-}

sdk/lib/crt/mbstring/mbstok.c

···
-#include <stdlib.h>
-#include <mbstring.h>
-
-/*
- * @implemented
- */
-unsigned char * _mbstok(unsigned char *s, const unsigned char *delim)
-{
-  const unsigned char *spanp;
-  int c, sc;
-  unsigned char *tok;
-  static unsigned char *last;
-
-
-  if (s == NULL && (s = last) == NULL)
-    return (NULL);
-
-  /*
-   * Skip (span) leading delimiters (s += strspn(s, delim), sort of).
-   */
- cont:
-  c = *s;
-  s = _mbsinc(s);
-
-  for (spanp = delim; (sc = *spanp) != 0; spanp = _mbsinc(spanp)) {
-    if (c == sc)
-      goto cont;
-  }
-
-  if (c == 0) {			/* no non-delimiter characters */
-    last = NULL;
-    return (NULL);
-  }
-  tok = s - 1;
-
-  /*
-   * Scan token (scan for delimiters: s += strcspn(s, delim), sort of).
-   * Note that delim must have one NUL; we stop if we see that, too.
-   */
-  for (;;) {
-    c = *s;
-    s = _mbsinc(s);
-    spanp = delim;
-    do {
-      if ((sc = *spanp) == c) {
-	if (c == 0)
-	  s = NULL;
-	else
-	  s[-1] = 0;
-	last = s;
-	return (tok);
-      }
-      spanp = _mbsinc(spanp);
-    } while (sc != 0);
-  }
-  /* NOTREACHED */
-}

sdk/lib/crt/mbstring/mbstring.cmake

···
 list(APPEND LIBCNTPR_MBSTRING_SOURCE
     mbstring/mbstrlen.c
 )
-
-list(APPEND CRT_MBSTRING_SOURCE
-    ${LIBCNTPR_MBSTRING_SOURCE}
-    mbstring/_setmbcp.c
-    mbstring/hanzen.c
-    mbstring/ischira.c
-    mbstring/iskana.c
-    mbstring/iskmoji.c
-    mbstring/iskpun.c
-    mbstring/islead.c
-    mbstring/islwr.c
-    mbstring/ismbal.c
-    mbstring/ismbaln.c
-    mbstring/ismbc.c
-    mbstring/ismbgra.c
-    mbstring/ismbkaln.c
-    mbstring/ismblead.c
-    mbstring/ismbpri.c
-    mbstring/ismbpun.c
-    mbstring/ismbtrl.c
-    mbstring/isuppr.c
-    mbstring/jistojms.c
-    mbstring/jmstojis.c
-    mbstring/mbbtype.c
-    mbstring/mbccpy.c
-    mbstring/mbclen.c
-    mbstring/mbscat.c
-    mbstring/mbschr.c
-    mbstring/mbscmp.c
-    mbstring/mbscoll.c
-    mbstring/mbscpy.c
-    mbstring/mbscspn.c
-    mbstring/mbsdec.c
-    mbstring/mbsdup.c
-    mbstring/mbsicmp.c
-    mbstring/mbsicoll.c
-    mbstring/mbsinc.c
-    mbstring/mbslen.c
-    mbstring/mbslwr.c
-    mbstring/mbsncat.c
-    mbstring/mbsnccnt.c
-    mbstring/mbsncmp.c
-    mbstring/mbsncoll.c
-    mbstring/mbsncpy.c
-    mbstring/mbsnextc.c
-    mbstring/mbsnicmp.c
-    mbstring/mbsnicoll.c
-    mbstring/mbsninc.c
-    mbstring/mbsnset.c
-    mbstring/mbspbrk.c
-    mbstring/mbsrchr.c
-    mbstring/mbsrev.c
-    mbstring/mbsset.c
-    mbstring/mbsspn.c
-    mbstring/mbsspnp.c
-    mbstring/mbsstr.c
-    mbstring/mbstok.c
-    mbstring/mbsupr.c
-)

sdk/lib/crt/mbstring/mbsupr.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/mbstring/mbsupr.c
- * PURPOSE:
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              12/04/99: Created
- */
-
-#include <precomp.h>
-#include <mbstring.h>
-#include <ctype.h>
-
-unsigned int _mbbtoupper(unsigned int c)
-{
-	if (!_ismbblead(c) )
-		return toupper(c);
-
-	return c;
-}
-
-/*
- * @implemented
- */
-unsigned int _mbctoupper(unsigned int c)
-{
-    return _ismbclower (c) ? c - 0x21 : c;
-}
-
-unsigned char *_mbset (unsigned char *string, int c)
-{
-    unsigned char *save = string;
-
-    if (_MBIS16 (c)) {
-
-	if (_MBLMASK (c) == 0) {
-	    *string++ = '\0';
-	    *string++ = '\0';
-	}
-	else {
-	    *string++ = _MBGETH (c);
-	    *string++ = _MBGETL (c);
-	}
-
-    }
-    else {
-
-	*string++ = c;
-
-    }
-
-    return save;
-}
-
-/*
- * @implemented
- */
-unsigned char *_mbsupr (unsigned char *string)
-{
-    int c;
-    unsigned char *save = string;
-
-    while ((c = _mbsnextc (string))) {
-
-	if (_MBIS16 (c) == 0)
-	    c = toupper (c);
-
-	_mbset (string, c);
-
-	string = _mbsinc (string);
-
-    }
-
-    return save;
-}

sdk/lib/crt/mem/mem.cmake

···
         mem/i386/memmove_asm.s
         mem/i386/memset_asm.s
     )
-    list(APPEND CRT_MEM_ASM_SOURCE
-        ${LIBCNTPR_MEM_ASM_SOURCE}
-    )
+    #list(APPEND CRT_MEM_ASM_SOURCE
+    #    ${LIBCNTPR_MEM_ASM_SOURCE}
+    #)
 else()
     list(APPEND LIBCNTPR_MEM_SOURCE
         mem/memchr.c
···
     )
 endif()
 
-list(APPEND CRT_MEM_SOURCE
-    ${LIBCNTPR_MEM_SOURCE}
-)
+#list(APPEND CRT_MEM_SOURCE
+#    ${LIBCNTPR_MEM_SOURCE}
+#)
 
 # Needed by ext2fs. Should use RtlCompareMemory instead?
 add_library(memcmp mem/memcmp.c)

sdk/lib/crt/misc/amsg.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/misc/amsg.c
- * PURPOSE:     Print runtime error messages
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              28/12/98: Created
- */
-
-#include <precomp.h>
-
-static char *__rt_err_msg[] =
-{
-   "stack overflow",				/* _RT_STACK */
-   "null pointer assignment",			/* _RT_NULLPTR */
-   "floating point not loaded",			/* _RT_FLOAT */
-   "integer divide by 0",			/* _RT_INTDIV */
-   "not enough space for arguments",		/* _RT_SPACEARG */
-   "not enough space for environment",		/* _RT_SPACEENV */
-   "abnormal program termination",		/* _RT_ABORT */
-   "not enough space for thread data",		/* _RT_THREAD */
-   "unexpected multithread lock error",		/* _RT_LOCK */
-   "unexpected heap error",			/* _RT_HEAP */
-   "unable to open console device",		/* _RT_OPENCON */
-   "non-continuable exception",			/* _RT_NONCONT */
-   "invalid exception disposition",		/* _RT_INVALDISP */
-   "not enough space for _onexit/atexit table",	/* _RT_ONEXIT */
-   "pure virtual function call",		/* _RT_PUREVIRT */
-   "not enough space for stdio initialization",	/* _RT_STDIOINIT */
-   "not enough space for lowio initialization",	/* _RT_LOWIOINIT */
-};
-
-
-/*
- * @implemented
- */
-typedef void (*aexit_t)(int);
-aexit_t _aexit_rtn = _exit;
-
-/*
- * @implemented
- */
-void _amsg_exit(int errnum)
-{
-    if ((errnum >=0) && (errnum < sizeof(__rt_err_msg)/sizeof(__rt_err_msg[0])))
-        fprintf(stderr, "runtime error - %s\n", __rt_err_msg[errnum]);
-    else
-        fprintf(stderr, "runtime error - %d\n", errnum);
-    _exit(-1);
-}
-

sdk/lib/crt/misc/crt_init.c

···
-
-#include <precomp.h>
-
-extern int BlockEnvToEnvironA(void);
-extern int BlockEnvToEnvironW(void);
-extern void FreeEnvironment(char **environment);
-
-extern BOOL msvcrt_init_heap(void);
-extern void msvcrt_init_mt_locks(void);
-extern void msvcrt_init_io(void);
-
-extern char* _acmdln;        /* pointer to ascii command line */
-extern wchar_t* _wcmdln;     /* pointer to wide character command line */
-#undef _environ
-extern char** _environ;      /* pointer to environment block */
-extern char** __initenv;     /* pointer to initial environment block */
-extern wchar_t** _wenviron;  /* pointer to environment block */
-extern wchar_t** __winitenv; /* pointer to initial environment block */
-
-BOOL
-crt_process_init(void)
-{
-    OSVERSIONINFOW osvi;
-
-    /* initialize version info */
-    osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOW);
-    GetVersionExW(&osvi);
-    _winver     = (osvi.dwMajorVersion << 8) | osvi.dwMinorVersion;
-    _winmajor   = osvi.dwMajorVersion;
-    _winminor   = osvi.dwMinorVersion;
-    _osplatform = osvi.dwPlatformId;
-    _osver      = osvi.dwBuildNumber;
-
-    /* create tls stuff */
-    if (!msvcrt_init_tls())
-        return FALSE;
-
-    if (!msvcrt_init_heap())
-        return FALSE;
-
-    if (BlockEnvToEnvironA() < 0)
-        return FALSE;
-
-    if (BlockEnvToEnvironW() < 0)
-    {
-        FreeEnvironment(_environ);
-        return FALSE;
-    }
-
-    _acmdln = _strdup(GetCommandLineA());
-    _wcmdln = _wcsdup(GetCommandLineW());
-
-    /* Initialization of the WINE code */
-    msvcrt_init_mt_locks();
-
-    //msvcrt_init_math();
-    msvcrt_init_io();
-    //msvcrt_init_console();
-    //msvcrt_init_args();
-    //msvcrt_init_signals();
-
-    return TRUE;
-}

sdk/lib/crt/misc/environ.c

···
-/*
- * environ.c
- *
- * ReactOS MSVCRT.DLL Compatibility Library
- */
-
-#include <precomp.h>
-#include <internal/wine/msvcrt.h>
-
-unsigned int _osplatform = 0;
-unsigned int _osver = 0;
-unsigned int _winminor = 0;
-unsigned int _winmajor = 0;
-unsigned int _winver = 0;
-
-unsigned int __setlc_active = 0;
-unsigned int __unguarded_readlc_active = 0;
-char *_acmdln = NULL;        /* pointer to ascii command line */
-wchar_t *_wcmdln = NULL;     /* pointer to wide character command line */
-#undef _environ
-#undef _wenviron
-char **_environ = NULL;      /* pointer to environment block */
-wchar_t **_wenviron = NULL;  /* pointer to environment block */
-char **__initenv = NULL;     /* pointer to initial environment block */
-wchar_t **__winitenv = NULL; /* pointer to initial environment block */
-#undef _pgmptr
-char *_pgmptr = NULL;        /* pointer to program name */
-#undef _wpgmptr
-wchar_t *_wpgmptr = NULL;    /* pointer to program name */
-int __app_type = _UNKNOWN_APP; /* application type */
-int _commode;
-
-
-int BlockEnvToEnvironA(void)
-{
-   char *ptr, *environment_strings;
-   char **envptr;
-   int count = 1;
-   size_t len;
-
-   TRACE("BlockEnvToEnvironA()\n");
-
-   environment_strings = GetEnvironmentStringsA();
-   if (environment_strings == NULL) {
-      return -1;
-   }
-
-   for (ptr = environment_strings; *ptr; ptr += len)
-   {
-      len = strlen(ptr) + 1;
-      /* Skip drive letter settings. */
-      if (*ptr != '=')
-         count++;
-   }
-
-   __initenv = _environ = malloc(count * sizeof(char*));
-   if (_environ)
-   {
-      for (ptr = environment_strings, envptr = _environ; count > 1; ptr += len)
-      {
-         len = strlen(ptr) + 1;
-         /* Skip drive letter settings. */
-         if (*ptr != '=')
-         {
-            if ((*envptr = malloc(len)) == NULL)
-            {
-               for (envptr--; envptr >= _environ; envptr--)
-                  free(*envptr);
-               FreeEnvironmentStringsA(environment_strings);
-               free(_environ);
-               __initenv = _environ = NULL;
-               return -1;
-            }
-            memcpy(*envptr++, ptr, len);
-            count--;
-         }
-      }
-      /* Add terminating NULL entry. */
-      *envptr = NULL;
-   }
-
-   FreeEnvironmentStringsA(environment_strings);
-   return _environ ? 0 : -1;
-}
-
-int BlockEnvToEnvironW(void)
-{
-   wchar_t *ptr, *environment_strings;
-   wchar_t **envptr;
-   int count = 1;
-   size_t len;
-
-   TRACE("BlockEnvToEnvironW()\n");
-
-   environment_strings = GetEnvironmentStringsW();
-   if (environment_strings == NULL) {
-      return -1;
-   }
-
-   for (ptr = environment_strings; *ptr; ptr += len)
-   {
-      len = wcslen(ptr) + 1;
-      /* Skip drive letter settings. */
-      if (*ptr != '=')
-         count++;
-   }
-
-   __winitenv = _wenviron = malloc(count * sizeof(wchar_t*));
-   if (_wenviron)
-   {
-      for (ptr = environment_strings, envptr = _wenviron; count > 1; ptr += len)
-      {
-         len = wcslen(ptr) + 1;
-         /* Skip drive letter settings. */
-         if (*ptr != '=')
-         {
-            if ((*envptr = malloc(len * sizeof(wchar_t))) == NULL)
-            {
-               for (envptr--; envptr >= _wenviron; envptr--)
-                  free(*envptr);
-               FreeEnvironmentStringsW(environment_strings);
-               free(_wenviron);
-               __winitenv = _wenviron = NULL;
-               return -1;
-            }
-            memcpy(*envptr++, ptr, len * sizeof(wchar_t));
-            count--;
-         }
-      }
-      /* Add terminating NULL entry. */
-      *envptr = NULL;
-   }
-
-   FreeEnvironmentStringsW(environment_strings);
-   return _wenviron ? 0 : -1;
-}
-
-/**
- * Internal function to duplicate environment block. Although it's
- * parameter are defined as char**, it's able to work also with
- * wide character environment block which are of type wchar_t**.
- *
- * @param original_environment
- *        Environment to duplicate.
- * @param wide
- *        Set to zero for multibyte environments, non-zero otherwise.
- *
- * @return Original environment in case of failure, otherwise
- *         pointer to new environment block.
- */
-char **DuplicateEnvironment(char **original_environment, int wide)
-{
-   int count = 1;
-   char **envptr, **newenvptr, **newenv;
-
-   for (envptr = original_environment; *envptr != NULL; envptr++, count++)
-      ;
-
-   newenvptr = newenv = malloc(count * sizeof(char*));
-   if (newenv == NULL)
-      return original_environment;
-
-   for (envptr = original_environment; count > 1; newenvptr++, count--)
-   {
-      if (wide)
-         *newenvptr = (char*)_wcsdup((wchar_t*)*envptr++);
-      else
-         *newenvptr = _strdup(*envptr++);
-      if (*newenvptr == NULL)
-      {
-         for (newenvptr--; newenvptr >= newenv; newenvptr--)
-            free(*newenvptr);
-         free(newenv);
-         return original_environment;
-      }
-   }
-   *newenvptr = NULL;
-
-   return newenv;
-}
-
-/**
- * Internal function to deallocate environment block. Although it's
- * parameter are defined as char**, it's able to work also with
- * wide character environment block which are of type wchar_t**.
- *
- * @param environment
- *        Environment to free.
- */
-void FreeEnvironment(char **environment)
-{
-   char **envptr;
-   for (envptr = environment; *envptr != NULL; envptr++)
-      free(*envptr);
-   free(environment);
-}
-
-/**
- * Internal version of _wputenv and _putenv. It works duplicates the
- * original envirnments created during initilization if needed to prevent
- * having spurious pointers floating around. Then it updates the internal
- * environment tables (_environ and _wenviron) and at last updates the
- * OS environemnt.
- *
- * Note that there can happen situation when the internal [_w]environ
- * arrays will be updated, but the OS environment update will fail. In
- * this case we don't undo the changes to the [_w]environ tables to
- * comply with the Microsoft behaviour (and it's also much easier :-).
- */
-int SetEnv(const wchar_t *option)
-{
-   wchar_t *epos, *name;
-   wchar_t **wenvptr;
-   wchar_t *woption;
-   char *mboption;
-   int remove, index, count, size, result = 0, found = 0;
-   wchar_t **wnewenv;
-   char **mbnewenv;
-
-   if (option == NULL || (epos = wcschr(option, L'=')) == NULL)
-      return -1;
-   remove = (epos[1] == 0);
-
-   /* Duplicate environment if needed. */
-   if (_environ == __initenv)
-   {
-      if ((_environ = DuplicateEnvironment(_environ, 0)) == __initenv)
-         return -1;
-   }
-   if (_wenviron == __winitenv)
-   {
-      if ((_wenviron = (wchar_t**)DuplicateEnvironment((char**)_wenviron, 1)) ==
-          __winitenv)
-         return -1;
-   }
-
-   /* Create a copy of the option name. */
-   name = malloc((epos - option + 1) * sizeof(wchar_t));
-   if (name == NULL)
-      return -1;
-   memcpy(name, option, (epos - option) * sizeof(wchar_t));
-   name[epos - option] = 0;
-
-   /* Find the option we're trying to modify. */
-   for (index = 0, wenvptr = _wenviron; *wenvptr != NULL; wenvptr++, index++)
-   {
-      if (!_wcsnicmp(*wenvptr, option, epos - option))
-      {
-         found = 1;
-         break;
-      }
-   }
-
-   if (remove)
-   {
-      if (!found)
-      {
-         free(name);
-         return 0;
-      }
-
-      /* Remove the option from wide character environment. */
-      free(*wenvptr);
-      for (count = index; *wenvptr != NULL; wenvptr++, count++)
-         *wenvptr = *(wenvptr + 1);
-      wnewenv = realloc(_wenviron, count * sizeof(wchar_t*));
-      if (wnewenv != NULL)
-         _wenviron = wnewenv;
-
-      /* Remove the option from multibyte environment. We assume
-       * the environments are in sync and the option is at the
-       * same position. */
-      free(_environ[index]);
-      memmove(&_environ[index], &_environ[index+1], (count - index) * sizeof(char*));
-      mbnewenv = realloc(_environ, count * sizeof(char*));
-      if (mbnewenv != NULL)
-         _environ = mbnewenv;
-
-      result = SetEnvironmentVariableW(name, NULL) ? 0 : -1;
-   }
-   else
-   {
-      /* Make a copy of the option that we will store in the environment block. */
-      woption = _wcsdup((wchar_t*)option);
-      if (woption == NULL)
-      {
-         free(name);
-         return -1;
-      }
-
-      /* Create a multibyte copy of the option. */
-      size = WideCharToMultiByte(CP_ACP, 0, option, -1, NULL, 0, NULL, NULL);
-      mboption = malloc(size);
-      if (mboption == NULL)
-      {
-         free(name);
-         free(woption);
-         return -1;
-      }
-      WideCharToMultiByte(CP_ACP, 0, option, -1, mboption, size, NULL, NULL);
-
-      if (found)
-      {
-         /* Replace the current entry. */
-         free(*wenvptr);
-         *wenvptr = woption;
-         free(_environ[index]);
-         _environ[index] = mboption;
-      }
-      else
-      {
-         /* Get the size of the original environment. */
-         for (count = index; *wenvptr != NULL; wenvptr++, count++)
-            ;
-
-         /* Create a new entry. */
-         if ((wnewenv = realloc(_wenviron, (count + 2) * sizeof(wchar_t*))) == NULL)
-         {
-            free(name);
-            free(mboption);
-            free(woption);
-            return -1;
-         }
-         _wenviron = wnewenv;
-         if ((mbnewenv = realloc(_environ, (count + 2) * sizeof(char*))) == NULL)
-         {
-            free(name);
-            free(mboption);
-            free(woption);
-            return -1;
-         }
-         _environ = mbnewenv;
-
-         /* Set the last entry to our option. */
-         _wenviron[count] = woption;
-         _environ[count] = mboption;
-         _wenviron[count + 1] = NULL;
-         _environ[count + 1] = NULL;
-      }
-
-      /* And finally update the OS environment. */
-      result = SetEnvironmentVariableW(name, epos + 1) ? 0 : -1;
-   }
-   free(name);
-
-   return result;
-}
-
-/*
- * @implemented
- */
-int *__p__commode(void) // not exported by NTDLL
-{
-   return &_commode;
-}
-
-/*
- * @implemented
- */
-void __set_app_type(int app_type)
-{
-    __app_type = app_type;
-}
-
-/*
- * @implemented
- */
-char **__p__acmdln(void)
-{
-    return &_acmdln;
-}
-
-/*
- * @implemented
- */
-wchar_t **__p__wcmdln(void)
-{
-    return &_wcmdln;
-}
-
-/*
- * @implemented
- */
-char ***__p__environ(void)
-{
-    return &_environ;
-}
-
-/*
- * @implemented
- */
-wchar_t ***__p__wenviron(void)
-{
-    return &_wenviron;
-}
-
-/*
- * @implemented
- */
-char ***__p___initenv(void)
-{
-    return &__initenv;
-}
-
-/*
- * @implemented
- */
-wchar_t ***__p___winitenv(void)
-{
-    return &__winitenv;
-}
-
-/*
- * @implemented
- */
-errno_t _get_osplatform(unsigned int *pValue)
-{
-    if (!MSVCRT_CHECK_PMT(pValue != NULL)) {
-        *_errno() = EINVAL;
-        return EINVAL;
-    }
-
-    *pValue = _osplatform;
-    return 0;
-}
-
-/*
- * @implemented
- */
-int *__p___mb_cur_max(void)
-{
-    return &get_locinfo()->mb_cur_max;
-}
-
-/*********************************************************************
- *         ___mb_cur_max_func(MSVCRT.@)
- */
-int CDECL ___mb_cur_max_func(void)
-{
-  return get_locinfo()->mb_cur_max;
-}
-
-/*
- * @implemented
- */
-unsigned int *__p__osver(void)
-{
-    return &_osver;
-}
-
-/*
- * @implemented
- */
-char **__p__pgmptr(void)
-{
-    return &_pgmptr;
-}
-
-/*
- * @implemented
- */
-int _get_pgmptr(char** p)
-{
-  if (!MSVCRT_CHECK_PMT(p))
-  {
-    *_errno() = EINVAL;
-    return EINVAL;
-  }
-
-  *p = _pgmptr;
-  return 0;
-}
-
-/*
- * @implemented
- */
-wchar_t **__p__wpgmptr(void)
-{
-    return &_wpgmptr;
-}
-
-/*
- * @implemented
- */
-int _get_wpgmptr(WCHAR** p)
-{
-  if (!MSVCRT_CHECK_PMT(p))
-  {
-    *_errno() = EINVAL;
-    return EINVAL;
-  }
-
-  *p = _wpgmptr;
-  return 0;
-}
-
-/*
- * @implemented
- */
-unsigned int *__p__winmajor(void)
-{
-    return &_winmajor;
-}
-
-/*
- * @implemented
- */
-unsigned int *__p__winminor(void)
-{
-    return &_winminor;
-}
-
-/*
- * @implemented
- */
-unsigned int *__p__winver(void)
-{
-    return &_winver;
-}
-
-/* EOF */

sdk/lib/crt/misc/getargs.c

···
-#include <precomp.h>
-#include <stdlib.h>
-#include <string.h>
-
-
-extern char*_acmdln;
-extern wchar_t* _wcmdln;
-#undef _pgmptr
-extern char*_pgmptr;
-#undef _wpgmptr
-extern wchar_t*_wpgmptr;
-#undef _environ
-extern char**_environ;
-
-#undef __argv
-#undef __argc
-
-char**__argv = NULL;
-#undef __wargv
-wchar_t**__wargv = NULL;
-int __argc = 0;
-
-extern wchar_t **__winitenv;
-
-char* strndup(char const* name, size_t len)
-{
-   char *s = malloc(len + 1);
-   if (s != NULL)
-   {
-      memcpy(s, name, len);
-      s[len] = 0;
-   }
-   return s;
-}
-
-wchar_t* wcsndup(wchar_t* name, size_t len)
-{
-   wchar_t *s = malloc((len + 1) * sizeof(wchar_t));
-   if (s != NULL)
-   {
-      memcpy(s, name, len*sizeof(wchar_t));
-      s[len] = 0;
-   }
-   return s;
-}
-
-#define SIZE (4096 / sizeof(char*))
-
-int wadd(wchar_t* name)
-{
-   wchar_t** _new;
-   if ((__argc % SIZE) == 0)
-   {
-      if (__wargv == NULL)
-         _new = malloc(sizeof(wchar_t*) * (1 + SIZE));
-      else
-         _new = realloc(__wargv, sizeof(wchar_t*) * (__argc + 1 + SIZE));
-      if (_new == NULL)
-         return -1;
-      __wargv = _new;
-   }
-   __wargv[__argc++] = name;
-   __wargv[__argc] = NULL;
-   return 0;
-}
-
-int wexpand(wchar_t* name, int expand_wildcards)
-{
-   wchar_t* s;
-   WIN32_FIND_DATAW fd;
-   HANDLE hFile;
-   BOOLEAN first = TRUE;
-   wchar_t buffer[MAX_PATH];
-   uintptr_t pos;
-
-   if (expand_wildcards && (s = wcspbrk(name, L"*?")))
-   {
-      hFile = FindFirstFileW(name, &fd);
-      if (hFile != INVALID_HANDLE_VALUE)
-      {
-         while(s != name && *s != L'/' && *s != L'\\')
-            s--;
-         pos = s - name;
-         if (*s == L'/' || *s == L'\\')
-            pos++;
-         wcsncpy(buffer, name, pos);
-         do
-         {
-            if (!(fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY))
-            {
-               wcscpy(&buffer[pos], fd.cFileName);
-               if (wadd(_wcsdup(buffer)) < 0)
-               {
-                  FindClose(hFile);
-                  return -1;
-               }
-               first = FALSE;
-            }
-         }
-         while(FindNextFileW(hFile, &fd));
-         FindClose(hFile);
-      }
-   }
-   if (first)
-   {
-      if (wadd(name) < 0)
-         return -1;
-   }
-   else
-      free(name);
-   return 0;
-}
-
-int aadd(char* name)
-{
-   char** _new;
-   if ((__argc % SIZE) == 0)
-   {
-      if (__argv == NULL)
-         _new = malloc(sizeof(char*) * (1 + SIZE));
-      else
-         _new = realloc(__argv, sizeof(char*) * (__argc + 1 + SIZE));
-      if (_new == NULL)
-         return -1;
-      __argv = _new;
-   }
-   __argv[__argc++] = name;
-   __argv[__argc] = NULL;
-   return 0;
-}
-
-int aexpand(char* name, int expand_wildcards)
-{
-   char* s;
-   WIN32_FIND_DATAA fd;
-   HANDLE hFile;
-   BOOLEAN first = TRUE;
-   char buffer[MAX_PATH];
-   uintptr_t pos;
-
-   if (expand_wildcards && (s = strpbrk(name, "*?")))
-   {
-      hFile = FindFirstFileA(name, &fd);
-      if (hFile != INVALID_HANDLE_VALUE)
-      {
-         while(s != name && *s != '/' && *s != '\\')
-            s--;
-         pos = s - name;
-         if (*s == '/' || *s == '\\')
-            pos++;
-         strncpy(buffer, name, pos);
-         do
-         {
-            if (!(fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY))
-            {
-               strcpy(&buffer[pos], fd.cFileName);
-               if (aadd(_strdup(buffer)) < 0)
-               {
-                  FindClose(hFile);
-                  return -1;
-               }
-               first = FALSE;
-            }
-         }
-         while(FindNextFileA(hFile, &fd));
-         FindClose(hFile);
-      }
-   }
-   if (first)
-   {
-      if (aadd(name) < 0)
-         return -1;
-   }
-   else
-      free(name);
-   return 0;
-}
-
-/*
- * @implemented
- */
-void __getmainargs(int* argc, char*** argv, char*** env, int expand_wildcards, int* new_mode)
-{
-   int i, doexpand, slashesAdded, escapedQuote, inQuotes, bufferIndex, anyLetter;
-   size_t len;
-   char* buffer;
-
-   /* missing threading init */
-
-   i = 0;
-   doexpand = expand_wildcards;
-   escapedQuote = FALSE;
-   anyLetter = FALSE;
-   slashesAdded = 0;
-   inQuotes = 0;
-   bufferIndex = 0;
-
-   if (__argv && _environ)
-   {
-      *argv = __argv;
-      *env = _environ;
-      *argc = __argc;
-      return;
-   }
-
-   __argc = 0;
-
-   len = strlen(_acmdln);
-   buffer = malloc(sizeof(char) * len);
-
-   // Reference: https://learn.microsoft.com/en-us/cpp/c-language/parsing-c-command-line-arguments?view=msvc-170
-   while (TRUE)
-   {
-      // Arguments are delimited by white space, which is either a space or a tab.
-      if (i >= len || ((_acmdln[i] == ' ' || _acmdln[i] == '\t') && !inQuotes))
-      {
-         // Handle the case when empty spaces are in the end of the cmdline
-         if (anyLetter)
-         {
-            aexpand(strndup(buffer, bufferIndex), doexpand);
-         }
-         // Copy the last element from buffer and quit the loop
-         if (i >= len)
-         {
-            break;
-         }
-
-         while (_acmdln[i] == ' ' || _acmdln[i] == '\t')
-            ++i;
-         anyLetter = FALSE;
-         bufferIndex = 0;
-         slashesAdded = 0;
-         escapedQuote = FALSE;
-         continue;
-      }
-
-      anyLetter = TRUE;
-
-      if (_acmdln[i] == '\\')
-      {
-         buffer[bufferIndex++] = _acmdln[i];
-         ++slashesAdded;
-         ++i;
-         escapedQuote = FALSE;
-         continue;
-      }
-
-      if (_acmdln[i] == '\"')
-      {
-         if (slashesAdded > 0)
-         {
-            if (slashesAdded % 2 == 0)
-            {
-               // If an even number of backslashes is followed by a double quotation mark, then one backslash (\)
-               // is placed in the argv array for every pair of backslashes (\\), and the double quotation mark (")
-               // is interpreted as a string delimiter.
-               bufferIndex -= slashesAdded / 2;
-            }
-            else
-            {
-               // If an odd number of backslashes is followed by a double quotation mark, then one backslash (\)
-               // is placed in the argv array for every pair of backslashes (\\) and the double quotation mark is
-               // interpreted as an escape sequence by the remaining backslash, causing a literal double quotation mark (")
-               // to be placed in argv.
-               bufferIndex -= slashesAdded / 2 + 1;
-               buffer[bufferIndex++] = '\"';
-               slashesAdded = 0;
-               escapedQuote = TRUE;
-               ++i;
-               continue;
-            }
-            slashesAdded = 0;
-         }
-         else if (!inQuotes && i > 0 && _acmdln[i - 1] == '\"' && !escapedQuote)
-         {
-            buffer[bufferIndex++] = '\"';
-            ++i;
-            escapedQuote = TRUE;
-            continue;
-         }
-         slashesAdded = 0;
-         escapedQuote = FALSE;
-         inQuotes = !inQuotes;
-         doexpand = inQuotes ? FALSE : expand_wildcards;
-         ++i;
-         continue;
-      }
-
-      buffer[bufferIndex++] = _acmdln[i];
-      slashesAdded = 0;
-      escapedQuote = FALSE;
-      ++i;
-   }
-
-   /* Free the temporary buffer. */
-   free(buffer);
-
-   *argc = __argc;
-   if (__argv == NULL)
-   {
-      __argv = (char**)malloc(sizeof(char*));
-      __argv[0] = 0;
-   }
-   *argv = __argv;
-   *env  = _environ;
-
-   _pgmptr = malloc(MAX_PATH * sizeof(char));
-   if (_pgmptr)
-   {
-      if (!GetModuleFileNameA(NULL, _pgmptr, MAX_PATH))
-        _pgmptr[0] = '\0';
-      else
-        _pgmptr[MAX_PATH - 1] = '\0';
-   }
-   else
-   {
-      _pgmptr = _strdup(__argv[0]);
-   }
-
-   HeapValidate(GetProcessHeap(), 0, NULL);
-
-   // if (new_mode) _set_new_mode(*new_mode);
-}
-
-/*
- * @implemented
- */
-void __wgetmainargs(int* argc, wchar_t*** wargv, wchar_t*** wenv,
-                    int expand_wildcards, int* new_mode)
-{
-   int i, doexpand, slashesAdded, escapedQuote, inQuotes, bufferIndex, anyLetter;
-   size_t len;
-   wchar_t* buffer;
-
-   /* missing threading init */
-
-   i = 0;
-   doexpand = expand_wildcards;
-   escapedQuote = FALSE;
-   anyLetter = TRUE;
-   slashesAdded = 0;
-   inQuotes = 0;
-   bufferIndex = 0;
-
-   if (__wargv && __winitenv)
-   {
-      *wargv = __wargv;
-      *wenv = __winitenv;
-      *argc = __argc;
-      return;
-   }
-
-   __argc = 0;
-
-   len = wcslen(_wcmdln);
-   buffer = malloc(sizeof(wchar_t) * len);
-
-   // Reference: https://learn.microsoft.com/en-us/cpp/c-language/parsing-c-command-line-arguments?view=msvc-170
-   while (TRUE)
-   {
-      // Arguments are delimited by white space, which is either a space or a tab.
-      if (i >= len || ((_wcmdln[i] == ' ' || _wcmdln[i] == '\t') && !inQuotes))
-      {
-         // Handle the case when empty spaces are in the end of the cmdline
-         if (anyLetter)
-         {
-            wexpand(wcsndup(buffer, bufferIndex), doexpand);
-         }
-         // Copy the last element from buffer and quit the loop
-         if (i >= len)
-         {
-            break;
-         }
-
-         while (_wcmdln[i] == ' ' || _wcmdln[i] == '\t')
-            ++i;
-         anyLetter = FALSE;
-         bufferIndex = 0;
-         slashesAdded = 0;
-         escapedQuote = FALSE;
-         continue;
-      }
-
-      anyLetter = TRUE;
-
-      if (_wcmdln[i] == '\\')
-      {
-         buffer[bufferIndex++] = _wcmdln[i];
-         ++slashesAdded;
-         ++i;
-         escapedQuote = FALSE;
-         continue;
-      }
-
-      if (_wcmdln[i] == '\"')
-      {
-         if (slashesAdded > 0)
-         {
-            if (slashesAdded % 2 == 0)
-            {
-               // If an even number of backslashes is followed by a double quotation mark, then one backslash (\)
-               // is placed in the argv array for every pair of backslashes (\\), and the double quotation mark (")
-               // is interpreted as a string delimiter.
-               bufferIndex -= slashesAdded / 2;
-            }
-            else
-            {
-               // If an odd number of backslashes is followed by a double quotation mark, then one backslash (\)
-               // is placed in the argv array for every pair of backslashes (\\) and the double quotation mark is
-               // interpreted as an escape sequence by the remaining backslash, causing a literal double quotation mark (")
-               // to be placed in argv.
-               bufferIndex -= slashesAdded / 2 + 1;
-               buffer[bufferIndex++] = '\"';
-               slashesAdded = 0;
-               escapedQuote = TRUE;
-               ++i;
-               continue;
-            }
-            slashesAdded = 0;
-         }
-         else if (!inQuotes && i > 0 && _wcmdln[i - 1] == '\"' && !escapedQuote)
-         {
-            buffer[bufferIndex++] = '\"';
-            ++i;
-            escapedQuote = TRUE;
-            continue;
-         }
-         slashesAdded = 0;
-         escapedQuote = FALSE;
-         inQuotes = !inQuotes;
-         doexpand = inQuotes ? FALSE : expand_wildcards;
-         ++i;
-         continue;
-      }
-
-      buffer[bufferIndex++] = _wcmdln[i];
-      slashesAdded = 0;
-      escapedQuote = FALSE;
-      ++i;
-   }
-
-   /* Free the temporary buffer. */
-   free(buffer);
-
-   *argc = __argc;
-   if (__wargv == NULL)
-   {
-      __wargv = (wchar_t**)malloc(sizeof(wchar_t*));
-      __wargv[0] = 0;
-   }
-   *wargv = __wargv;
-   *wenv = __winitenv;
-
-   _wpgmptr = malloc(MAX_PATH * sizeof(wchar_t));
-   if (_wpgmptr)
-   {
-      if (!GetModuleFileNameW(NULL, _wpgmptr, MAX_PATH))
-        _wpgmptr[0] = '\0';
-      else
-        _wpgmptr[MAX_PATH - 1] = '\0';
-   }
-   else
-   {
-      _wpgmptr = _wcsdup(__wargv[0]);
-   }
-
-   HeapValidate(GetProcessHeap(), 0, NULL);
-
-   // if (new_mode) _set_new_mode(*new_mode);
-}
-
-/*
- * @implemented
- */
-int* __p___argc(void)
-{
-   return &__argc;
-}
-
-/*
- * @implemented
- */
-char*** __p___argv(void)
-{
-   return &__argv;
-}
-
-/*
- * @implemented
- */
-wchar_t*** __p___wargv(void)
-{
-   return &__wargv;
-}
-
-

sdk/lib/crt/misc/i10output.c

···
-#include <precomp.h>
-
-// From Wine msvcrt.h
-typedef struct {ULONG x80[3];} MSVCRT__LDOUBLE; /* Intel 80 bit FP format has sizeof() 12 */
-enum fpmod {
-    FP_ROUND_ZERO, /* only used when dropped part contains only zeros */
-    FP_ROUND_DOWN,
-    FP_ROUND_EVEN,
-    FP_ROUND_UP,
-    FP_VAL_INFINITY,
-    FP_VAL_NAN
-};
-struct fpnum {
-    int sign;
-    int exp;
-    ULONGLONG m;
-    enum fpmod mod;
-};
-
-// From wine bnum.h
-#define EXP_BITS 11
-#define MANT_BITS 53
-
-int fpnum_double(struct fpnum *fp, double *d)
-{
-    ULONGLONG bits = 0;
-
-    if (fp->mod == FP_VAL_INFINITY)
-    {
-        *d = fp->sign * INFINITY;
-        return 0;
-    }
-
-    if (fp->mod == FP_VAL_NAN)
-    {
-        bits = ~0;
-        if (fp->sign == 1)
-            bits &= ~((ULONGLONG)1 << (MANT_BITS + EXP_BITS - 1));
-        *d = *(double*)&bits;
-        return 0;
-    }
-
-    TRACE("%c %#I64x *2^%d (round %d)\n", fp->sign == -1 ? '-' : '+',
-        fp->m, fp->exp, fp->mod);
-    if (!fp->m)
-    {
-        *d = fp->sign * 0.0;
-        return 0;
-    }
-
-    /* make sure that we don't overflow modifying exponent */
-    if (fp->exp > 1<<EXP_BITS)
-    {
-        *d = fp->sign * INFINITY;
-        return ERANGE;
-    }
-    if (fp->exp < -(1<<EXP_BITS))
-    {
-        *d = fp->sign * 0.0;
-        return ERANGE;
-    }
-    fp->exp += MANT_BITS - 1;
-
-    /* normalize mantissa */
-    while(fp->m < (ULONGLONG)1 << (MANT_BITS-1))
-    {
-        fp->m <<= 1;
-        fp->exp--;
-    }
-    while(fp->m >= (ULONGLONG)1 << MANT_BITS)
-    {
-        if (fp->m & 1 || fp->mod != FP_ROUND_ZERO)
-        {
-            if (!(fp->m & 1)) fp->mod = FP_ROUND_DOWN;
-            else if(fp->mod == FP_ROUND_ZERO) fp->mod = FP_ROUND_EVEN;
-            else fp->mod = FP_ROUND_UP;
-        }
-        fp->m >>= 1;
-        fp->exp++;
-    }
-    fp->exp += (1 << (EXP_BITS-1)) - 1;
-
-    /* handle subnormals */
-    if (fp->exp <= 0)
-    {
-        if (fp->m & 1 && fp->mod == FP_ROUND_ZERO) fp->mod = FP_ROUND_EVEN;
-        else if (fp->m & 1) fp->mod = FP_ROUND_UP;
-        else if (fp->mod != FP_ROUND_ZERO) fp->mod = FP_ROUND_DOWN;
-        fp->m >>= 1;
-    }
-    while(fp->m && fp->exp<0)
-    {
-        if (fp->m & 1 && fp->mod == FP_ROUND_ZERO) fp->mod = FP_ROUND_EVEN;
-        else if (fp->m & 1) fp->mod = FP_ROUND_UP;
-        else if (fp->mod != FP_ROUND_ZERO) fp->mod = FP_ROUND_DOWN;
-        fp->m >>= 1;
-        fp->exp++;
-    }
-
-    /* round mantissa */
-    if (fp->mod == FP_ROUND_UP || (fp->mod == FP_ROUND_EVEN && fp->m & 1))
-    {
-        fp->m++;
-
-        /* handle subnormal that falls into regular range due to rounding */
-        if (fp->m == (ULONGLONG)1 << (MANT_BITS - 1))
-        {
-            fp->exp++;
-        }
-        else if (fp->m >= (ULONGLONG)1 << MANT_BITS)
-        {
-            fp->exp++;
-            fp->m >>= 1;
-        }
-    }
-
-    if (fp->exp >= (1<<EXP_BITS)-1)
-    {
-        *d = fp->sign * INFINITY;
-        return ERANGE;
-    }
-    if (!fp->m || fp->exp < 0)
-    {
-        *d = fp->sign * 0.0;
-        return ERANGE;
-    }
-
-    if (fp->sign == -1)
-        bits |= (ULONGLONG)1 << (MANT_BITS + EXP_BITS - 1);
-    bits |= (ULONGLONG)fp->exp << (MANT_BITS - 1);
-    bits |= fp->m & (((ULONGLONG)1 << (MANT_BITS - 1)) - 1);
-
-    TRACE("returning %#I64x\n", bits);
-    *d = *(double*)&bits;
-    return 0;
-}
-
-#define I10_OUTPUT_MAX_PREC 21
-/* Internal structure used by $I10_OUTPUT */
-struct _I10_OUTPUT_DATA {
-    short pos;
-    char sign;
-    BYTE len;
-    char str[I10_OUTPUT_MAX_PREC+1]; /* add space for '\0' */
-};
-
-/*********************************************************************
- *              $I10_OUTPUT (MSVCRT.@)
- * ld80 - long double (Intel 80 bit FP in 12 bytes) to be printed to data
- * prec - precision of part, we're interested in
- * flag - 0 for first prec digits, 1 for fractional part
- * data - data to be populated
- *
- * return value
- *      0 if given double is NaN or INF
- *      1 otherwise
- *
- * FIXME
- *      Native sets last byte of data->str to '0' or '9', I don't know what
- *      it means. Current implementation sets it always to '0'.
- */
-int CDECL I10_OUTPUT(MSVCRT__LDOUBLE ld80, int prec, int flag, struct _I10_OUTPUT_DATA *data)
-{
-    struct fpnum num;
-    double d;
-    char format[8];
-    char buf[I10_OUTPUT_MAX_PREC+9]; /* 9 = strlen("0.e+0000") + '\0' */
-    char *p;
-
-    if ((ld80.x80[2] & 0x7fff) == 0x7fff)
-    {
-        if (ld80.x80[0] == 0 && ld80.x80[1] == 0x80000000)
-            strcpy( data->str, "1#INF" );
-        else
-            strcpy( data->str, (ld80.x80[1] & 0x40000000) ? "1#QNAN" : "1#SNAN" );
-        data->pos = 1;
-        data->sign = (ld80.x80[2] & 0x8000) ? '-' : ' ';
-        data->len = (BYTE)strlen(data->str);
-        return 0;
-    }
-
-    num.sign = (ld80.x80[2] & 0x8000) ? -1 : 1;
-    num.exp  = (ld80.x80[2] & 0x7fff) - 0x3fff - 63;
-    num.m    = ld80.x80[0] | ((ULONGLONG)ld80.x80[1] << 32);
-    num.mod  = FP_ROUND_EVEN;
-    fpnum_double( &num, &d );
-    TRACE("(%lf %d %x %p)\n", d, prec, flag, data);
-
-    if(d<0) {
-        data->sign = '-';
-        d = -d;
-    } else
-        data->sign = ' ';
-
-    if(flag&1) {
-        int exp = 1 + floor(log10(d));
-
-        prec += exp;
-        if(exp < 0)
-            prec--;
-    }
-    prec--;
-
-    if(prec+1 > I10_OUTPUT_MAX_PREC)
-        prec = I10_OUTPUT_MAX_PREC-1;
-    else if(prec < 0) {
-        d = 0.0;
-        prec = 0;
-    }
-
-    sprintf_s(format, sizeof(format), "%%.%dle", prec);
-    sprintf_s(buf, sizeof(buf), format, d);
-
-    buf[1] = buf[0];
-    data->pos = atoi(buf+prec+3);
-    if(buf[1] != '0')
-        data->pos++;
-
-    for(p = buf+prec+1; p>buf+1 && *p=='0'; p--);
-    data->len = p-buf;
-
-    memcpy(data->str, buf+1, data->len);
-    data->str[data->len] = '\0';
-
-    if(buf[1]!='0' && prec-data->len+1>0)
-        memcpy(data->str+data->len+1, buf+data->len+1, prec-data->len+1);
-
-    return 1;
-}
-#undef I10_OUTPUT_MAX_PREC

sdk/lib/crt/misc/initterm.c

···
-#include <precomp.h>
-
-typedef void (CDECL *_INITTERMFUN)(void);
-typedef int (CDECL *_INITTERM_E_FN)(void);
-
-
-/*********************************************************************
- *		_initterm (MSVCRT.@)
- */
-void CDECL _initterm(_INITTERMFUN *start,_INITTERMFUN *end)
-{
-  _INITTERMFUN* current = start;
-
-  TRACE("(%p,%p)\n",start,end);
-  while (current<end)
-  {
-    if (*current)
-    {
-      TRACE("Call init function %p\n",*current);
-      (**current)();
-      TRACE("returned\n");
-    }
-    current++;
-  }
-}
-
-/*********************************************************************
- *  _initterm_e (MSVCRT.@)
- *
- * call an array of application initialization functions and report the return value
- */
-int CDECL _initterm_e(_INITTERM_E_FN *table, _INITTERM_E_FN *end)
-{
-    int res = 0;
-
-    TRACE("(%p, %p)\n", table, end);
-
-    while (!res && table < end) {
-        if (*table) {
-            TRACE("calling %p\n", **table);
-            res = (**table)();
-            if (res)
-                TRACE("function %p failed: 0x%x\n", *table, res);
-
-        }
-        table++;
-    }
-    return res;
-}

sdk/lib/crt/misc/lock.c

···
-/*
- * Copyright (c) 2002, TransGaming Technologies Inc.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
- */
-
-#include <precomp.h>
-
-
-typedef struct
-{
-  BOOL             bInit;
-  CRITICAL_SECTION crit;
-} LOCKTABLEENTRY;
-
-static LOCKTABLEENTRY lock_table[ _TOTAL_LOCKS ];
-
-static __inline void msvcrt_mlock_set_entry_initialized( int locknum, BOOL initialized )
-{
-  lock_table[ locknum ].bInit = initialized;
-}
-
-static __inline void msvcrt_initialize_mlock( int locknum )
-{
-  InitializeCriticalSection( &(lock_table[ locknum ].crit) );
-  msvcrt_mlock_set_entry_initialized( locknum, TRUE );
-}
-
-static __inline void msvcrt_uninitialize_mlock( int locknum )
-{
-  DeleteCriticalSection( &(lock_table[ locknum ].crit) );
-  msvcrt_mlock_set_entry_initialized( locknum, FALSE );
-}
-
-/**********************************************************************
- *     msvcrt_init_mt_locks (internal)
- *
- * Initialize the table lock. All other locks will be initialized
- * upon first use.
- *
- */
-void msvcrt_init_mt_locks(void)
-{
-  int i;
-
-  TRACE( "initializing mtlocks\n" );
-
-  /* Initialize the table */
-  for( i=0; i < _TOTAL_LOCKS; i++ )
-  {
-    msvcrt_mlock_set_entry_initialized( i, FALSE );
-  }
-
-  /* Initialize our lock table lock */
-  msvcrt_initialize_mlock( _LOCKTAB_LOCK );
-}
-
-/**********************************************************************
- *     msvcrt_free_mt_locks (internal)
- *
- * Uninitialize all mt locks. Assume that neither _lock or _unlock will
- * be called once we're calling this routine (ie _LOCKTAB_LOCK can be deleted)
- *
- */
-void msvcrt_free_mt_locks(void)
-{
-  int i;
-
-  TRACE(": uninitializing all mtlocks\n" );
-
-  /* Uninitialize the table */
-  for( i=0; i < _TOTAL_LOCKS; i++ )
-  {
-    if( lock_table[ i ].bInit )
-    {
-      msvcrt_uninitialize_mlock( i );
-    }
-  }
-}
-
-
-/**********************************************************************
- *              _lock (MSVCRT.@)
- */
-void _lock( int locknum )
-{
-  TRACE( "(%d)\n", locknum );
-
-  /* If the lock doesn't exist yet, create it */
-  if( lock_table[ locknum ].bInit == FALSE )
-  {
-    /* Lock while we're changing the lock table */
-    _lock( _LOCKTAB_LOCK );
-
-    /* Check again if we've got a bit of a race on lock creation */
-    if( lock_table[ locknum ].bInit == FALSE )
-    {
-      TRACE( ": creating lock #%d\n", locknum );
-      msvcrt_initialize_mlock( locknum );
-    }
-
-    /* Unlock ourselves */
-    _unlock( _LOCKTAB_LOCK );
-  }
-
-  EnterCriticalSection( &(lock_table[ locknum ].crit) );
-}
-
-/**********************************************************************
- *              _unlock (MSVCRT.@)
- *
- * NOTE: There is no error detection to make sure the lock exists and is acquired.
- */
-void _unlock( int locknum )
-{
-  TRACE( "(%d)\n", locknum );
-
-  LeaveCriticalSection( &(lock_table[ locknum ].crit) );
-}
-
-

sdk/lib/crt/misc/misc.cmake

···
     )
 endif()
 
-list(APPEND CRT_MISC_SOURCE
-    ${LIBCNTPT_MISC_SOURCE}
-    misc/__crt_MessageBoxA.c
-    misc/amsg.c
-    misc/assert.c
-    misc/crt_init.c
-    misc/dbgrpt.cpp
-    misc/environ.c
-    misc/getargs.c
-    misc/i10output.c
-    misc/initterm.c
-    misc/lock.c
-    misc/purecall.c
-    misc/stubs.c
-    misc/tls.c
-)
-
 add_library(getopt misc/getopt.c)
 target_compile_definitions(getopt PRIVATE _DLL __USE_CRTIMP)
 add_dependencies(getopt psdk)

sdk/lib/crt/misc/purecall.c

···
-
-#include <precomp.h>
-
-typedef void (__cdecl *MSVCRT_purecall_handler)(void);
-
-static MSVCRT_purecall_handler purecall_handler = NULL;
-
-/* _set_purecall_handler - not exported in native msvcrt */
-MSVCRT_purecall_handler CDECL _set_purecall_handler(MSVCRT_purecall_handler function)
-{
-    MSVCRT_purecall_handler ret = purecall_handler;
-
-    TRACE("(%p)\n", function);
-    purecall_handler = function;
-    return ret;
-}
-
-/*********************************************************************
- *		_purecall (MSVCRT.@)
- */
-void CDECL _purecall(void)
-{
-  if(purecall_handler)
-      purecall_handler();
-  _amsg_exit( 25 );
-}
-

sdk/lib/crt/misc/stubs.c

···
-#include <precomp.h>
-
-static BOOL n_format_enabled = TRUE;
-
-int CDECL _get_printf_count_output( void )
-{
-    return n_format_enabled ? 1 : 0;
-}
-
-int CDECL _set_printf_count_output( int enable )
-{
-    BOOL old = n_format_enabled;
-    n_format_enabled = (enable ? TRUE : FALSE);
-    return old ? 1 : 0;
-}
-
-int __STRINGTOLD( long double *value, char **endptr, const char *str, int flags )
-{
-   FIXME("%p %p %s %x stub\n", value, endptr, str, flags );
-   return 0;
-}
-
-void __fileinfo(void)
-{
-   FIXME("__fileinfo stub\n");
-}
-
-void stub(void)
-{
-   FIXME("stub\n");
-}
-
-unsigned int _get_output_format(void)
-{
-   return 0;
-}
-

sdk/lib/crt/misc/tls.c

···
-#include <precomp.h>
-#include <stdlib.h>
-#include <internal/tls.h>
-#include <internal/rterror.h>
-
-/* Index to TLS */
-static DWORD msvcrt_tls_index;
-
-BOOL msvcrt_init_tls(void)
-{
-  msvcrt_tls_index = TlsAlloc();
-
-  if (msvcrt_tls_index == TLS_OUT_OF_INDEXES)
-  {
-    ERR("TlsAlloc() failed!\n");
-    return FALSE;
-  }
-  return TRUE;
-}
-
-BOOL msvcrt_free_tls(void)
-{
-  if (!TlsFree(msvcrt_tls_index))
-  {
-    ERR("TlsFree() failed!\n");
-    return FALSE;
-  }
-  return TRUE;
-}
-
-thread_data_t *msvcrt_get_thread_data(void)
-{
-    thread_data_t *ptr;
-    DWORD err = GetLastError();  /* need to preserve last error */
-
-    if (!(ptr = TlsGetValue( msvcrt_tls_index )))
-    {
-        if (!(ptr = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*ptr) )))
-            _amsg_exit( _RT_THREAD );
-        if (!TlsSetValue( msvcrt_tls_index, ptr )) _amsg_exit( _RT_THREAD );
-        ptr->tid = GetCurrentThreadId();
-        ptr->handle = INVALID_HANDLE_VALUE;
-        ptr->random_seed = 1;
-#ifndef __UCRTSUPPORT__
-        ptr->locinfo = MSVCRT_locale->locinfo;
-        ptr->mbcinfo = MSVCRT_locale->mbcinfo;
-#endif /* !__UCRTSUPPORT__ */
-    }
-    SetLastError( err );
-    return ptr;
-}
-
-void msvcrt_free_tls_mem(void)
-{
-  thread_data_t *tls = TlsGetValue(msvcrt_tls_index);
-
-  if (tls)
-  {
-    CloseHandle(tls->handle);
-    HeapFree(GetProcessHeap(),0,tls->efcvt_buffer);
-    HeapFree(GetProcessHeap(),0,tls->asctime_buffer);
-    HeapFree(GetProcessHeap(),0,tls->wasctime_buffer);
-    HeapFree(GetProcessHeap(),0,tls->strerror_buffer);
-    HeapFree(GetProcessHeap(),0,tls->wcserror_buffer);
-    HeapFree(GetProcessHeap(),0,tls->time_buffer);
-    //if(tls->have_locale) {
-    //    free_locinfo(tls->locinfo);
-    //    free_mbcinfo(tls->mbcinfo);
-    //}
-  }
-  HeapFree(GetProcessHeap(), 0, tls);
-}
-
-/* EOF */
-

sdk/lib/crt/precomp.h

···
 #endif
 
 /* CRT Internal data */
-#include <internal/atexit.h>
-#include <internal/console.h>
 #include <internal/ieee.h>
-#include <internal/locale.h>
 #include <internal/math.h>
-#include <internal/mbstring.h>
-#include <internal/misc.h>
-#include <internal/mtdll.h>
-#include <internal/popen.h>
-#include <internal/rterror.h>
 #include <internal/safecrt.h>
-#include <internal/time.h>
-#if !defined(_LIBCNT_) && !defined(_MSVCRTEX_)
-#include <internal/tls.h>
-#endif
 
 #endif /* _CRT_PRECOMP_H */

sdk/lib/crt/printf/_cprintf.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/_cprintf.c
- * PURPOSE:         Implementation of _cprintf
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#include <conio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-_cprintf(const char * format, ...)
-{
-    va_list argptr;
-    int result;
-
-    va_start(argptr, format);
-    result = _vcprintf(format, argptr);
-    va_end(argptr);
-    return result;
-}

sdk/lib/crt/printf/_cwprintf.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/_cwprintf.c
- * PURPOSE:         Implementation of _cwprintf
- * PROGRAMMER:      Samuel Serapi�n
- */
-
-#include <conio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-_cwprintf(const wchar_t* format, ...)
-{
-  int retval;
-  va_list valist;
-
-  va_start( valist, format );
-  retval = _vcwprintf(format, valist);
-  va_end(valist);
-
-  return retval;
-}

sdk/lib/crt/printf/_scprintf.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/_scprintf.c
- * PURPOSE:         Implementation of _scprintf
- */
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-_scprintf(
-    const char *format,
-    ...)
-{
-    int len;
-    va_list args;
-
-    va_start(args, format);
-    len = _vscprintf(format, args);
-    va_end(args);
-
-    return len;
-}

sdk/lib/crt/printf/_scwprintf.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/_scwprintf.c
- * PURPOSE:         Implementation of _scwprintf
- */
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-_scwprintf(
-    const wchar_t *format,
-    ...)
-{
-    int len;
-    va_list args;
-
-    va_start(args, format);
-    len = _vscwprintf(format, args);
-    va_end(args);
-
-    return len;
-}

sdk/lib/crt/printf/_snprintf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/_snprintf_s.c
- * PURPOSE:         Implementation of _snprintf_s
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#define _sxprintf _snprintf_s
-#define USE_COUNT 1
-#define IS_SECAPI 1
-
-#include "_sxprintf.c"

sdk/lib/crt/printf/_snwprintf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/_snwprintf_s.c
- * PURPOSE:         Implementation of _snwprintf_s
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#define _sxprintf _snwprintf_s
-#define USE_COUNT 1
-#define _UNICODE
-#define IS_SECAPI 1
-
-#include "_sxprintf.c"

sdk/lib/crt/printf/_vcprintf.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/_vcprintf.c
- * PURPOSE:         Implementation of _vcprintf
- * PROGRAMMER:      Samuel Serapi�n
- */
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-_vcprintf(const char* format, va_list va)
-{
-    return vfprintf(stdout, format, va);
-}

sdk/lib/crt/printf/_vcwprintf.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/_vcwprintf.c
- * PURPOSE:         Implementation of _vcwprintf
- * PROGRAMMER:      Samuel Serapi�n
- */
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-_vcwprintf(const wchar_t* format, va_list va)
-{
-    return vfwprintf(stdout, format, va);
-}

sdk/lib/crt/printf/_vsnprintf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/_vsnprintf_s.c
- * PURPOSE:         Implementation of _vsnprintf_s
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#define _sxprintf _vsnprintf_s
-#define USE_COUNT 1
-#define USE_VARARGS 1
-#define IS_SECAPI 1
-
-#include "_sxprintf.c"

sdk/lib/crt/printf/_vsnwprintf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/_vsnwprintf_s.c
- * PURPOSE:         Implementation of _vsnwprintf_s
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#define _sxprintf _vsnwprintf_s
-#define USE_COUNT 1
-#define USE_VARARGS 1
-#define _UNICODE
-#define IS_SECAPI 1
-
-#include "_sxprintf.c"

sdk/lib/crt/printf/_vsprintf_p.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/_vsprintf_p.c
- * PURPOSE:         Implementation of _vsprintf_p
- * PROGRAMMER:      Samuel Serapi�n
- */
-
-#define _sxprintf _vsprintf_p
-#define USE_COUNT 1
-#define USE_VARARGS 1
-
-#include "_sxprintf.c"

sdk/lib/crt/printf/fprintf.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/fprintf.c
- * PURPOSE:         Implementation of fprintf
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-fprintf(FILE *file, const char *format, ...)
-{
-    va_list argptr;
-    int result;
-
-    va_start(argptr, format);
-    result = vfprintf(file, format, argptr);
-    va_end(argptr);
-    return result;
-}

sdk/lib/crt/printf/fprintf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/fprintf_s.c
- * PURPOSE:         Implementation of fprintf_s
- * PROGRAMMER:      Samuel Serapi�n
- */
-
-#define MINGW_HAS_SECURE_API 1
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-fprintf_s(FILE* file, const char *format, ...)
-{
-    va_list argptr;
-    int result;
-    va_start(argptr, format);
-    result = vfprintf_s(file, format, argptr);
-    va_end(argptr);
-    return result;
-}

sdk/lib/crt/printf/fwprintf.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/fwprintf.c
- * PURPOSE:         Implementation of fwprintf
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-fwprintf(FILE* file, const wchar_t *format, ...)
-{
-    va_list argptr;
-    int result;
-
-    va_start(argptr, format);
-    result = vfwprintf(file, format, argptr);
-    va_end(argptr);
-    return result;
-}
-

sdk/lib/crt/printf/fwprintf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/fwprintf_s.c
- * PURPOSE:         Implementation of fwprintf_s
- * PROGRAMMER:      Samuel Serapi�n
- */
-
-#define MINGW_HAS_SECURE_API 1
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-fwprintf_s(FILE* file, const wchar_t *format, ...)
-{
-    va_list valist;
-    int res;
-    va_start(valist, format);
-    res = vfwprintf_s(file, format, valist);
-    va_end(valist);
-    return res;
-}

sdk/lib/crt/printf/printf.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/printf.c
- * PURPOSE:         Implementation of printf
- * PROGRAMMER:      Timo Kreuzer
- *                  Samuel Serapi�n
- */
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-printf(const char *format, ...)
-{
-    va_list argptr;
-    int result;
-
-    va_start(argptr, format);
-    result = vfprintf(stdout, format, argptr);
-    va_end(argptr);
-
-    return result;
-}

sdk/lib/crt/printf/printf.cmake

···
     printf/vswprintf.c
     printf/wstreamout.c
 )
-
-list(APPEND CRT_PRINTF_SOURCE
-    ${LIBCNTPR_PRINTF_SOURCE}
-    printf/_cprintf.c
-    printf/_cwprintf.c
-    printf/_scprintf.c
-    printf/_scwprintf.c
-    printf/_snprintf_s.c
-    printf/_snwprintf_s.c
-    printf/_vcprintf.c
-    printf/_vcwprintf.c
-    printf/_vsnprintf_s.c
-    printf/_vsnwprintf_s.c
-    printf/_vsprintf_p.c
-    printf/fprintf.c
-    printf/fprintf_s.c
-    printf/fwprintf.c
-    printf/fwprintf_s.c
-    printf/printf.c
-    printf/printf_s.c
-    printf/sprintf_s.c
-    printf/swprintf_s.c
-    printf/vfprintf.c
-    printf/vfprintf_s.c
-    printf/vfwprintf.c
-    printf/vfwprintf_s.c
-    printf/vprintf_s.c
-    printf/vsprintf_s.c
-    printf/vswprintf_s.c
-    printf/vwprintf.c
-    printf/vwprintf_s.c
-    printf/wprintf.c
-    printf/wprintf_s.c
-)

sdk/lib/crt/printf/printf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/printf_s.c
- * PURPOSE:         Implementation of printf_s
- * PROGRAMMER:      Samuel Serapi�n
- */
-
-#define MINGW_HAS_SECURE_API 1
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-printf_s(const char *format, ...)
-{
-    va_list argptr;
-    int res;
-
-    va_start(argptr, format);
-    res = vfprintf_s(stdout, format, argptr);
-    va_end(argptr);
-    return res;
-}

sdk/lib/crt/printf/sprintf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/sprintf_s.c
- * PURPOSE:         Implementation of sprintf_s
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#define _sxprintf sprintf_s
-#define USE_COUNT 0
-#define IS_SECAPI 1
-
-#include "_sxprintf.c"

sdk/lib/crt/printf/swprintf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/swprintf_s.c
- * PURPOSE:         Implementation of swprintf_s
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#define _sxprintf swprintf_s
-#define USE_COUNT 0
-#define USE_VARARGS 0
-#define _UNICODE
-#define IS_SECAPI 1
-
-#include "_sxprintf.c"

sdk/lib/crt/printf/vfprintf.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/vfprintf.c
- * PURPOSE:         Implementation of vfprintf
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int __cdecl streamout(FILE *stream, const char *format, va_list argptr);
-
-int
-__cdecl
-vfprintf(FILE *file, const char *format, va_list argptr)
-{
-    int result;
-
-    _lock_file(file);
-    result = streamout(file, format, argptr);
-    _unlock_file(file);
-
-    return result;
-}
-

sdk/lib/crt/printf/vfprintf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/vfprintf_s.c
- * PURPOSE:         Implementation of vfprintf_s
- * PROGRAMMER:      Samuel Serapi�n
- */
-
-#define MINGW_HAS_SECURE_API 1
-
-#include <stdio.h>
-#include <stdarg.h>
-#include <internal/safecrt.h>
-
-int __cdecl streamout(FILE *stream, const char *format, va_list argptr);
-
-int
-__cdecl
-vfprintf_s(FILE* file, const char *format, va_list argptr)
-{
-    int result;
-
-    if(!MSVCRT_CHECK_PMT(format != NULL)) {
-        _set_errno(EINVAL);
-        return -1;
-    }
-
-    _lock_file(file);
-    result = streamout(file, format, argptr);
-    _unlock_file(file);
-
-    return result;
-}

sdk/lib/crt/printf/vfwprintf.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/vfwprintf.c
- * PURPOSE:         Implementation of vfwprintf
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int __cdecl wstreamout(FILE *stream, const wchar_t *format, va_list argptr);
-
-int
-__cdecl
-vfwprintf(FILE* file, const wchar_t *format, va_list argptr)
-{
-     int ret;
-
-    _lock_file(file);
-    ret = wstreamout(file, format, argptr);
-    _unlock_file(file);
-
-    return ret;
-}

sdk/lib/crt/printf/vfwprintf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/vfwprintf_s.c
- * PURPOSE:         Implementation of vfwprintf
- * PROGRAMMER:      Timo Kreuzer
- *                  Samuel Serapi�n
- */
-
-#define MINGW_HAS_SECURE_API 1
-
-#include <stdio.h>
-#include <stdarg.h>
-#include <internal/safecrt.h>
-
-int __cdecl wstreamout(FILE *stream, const wchar_t *format, va_list argptr);
-
-int
-__cdecl
-vfwprintf_s(FILE* file, const wchar_t *format, va_list argptr)
-{
-    int ret;
-
-    if(!MSVCRT_CHECK_PMT( file != NULL)) {
-        _set_errno(EINVAL);
-        return -1;
-    }
-
-    _lock_file(file);
-    ret = wstreamout(file, format, argptr);
-    _unlock_file(file);
-
-    return ret;
-}

sdk/lib/crt/printf/vprintf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/vprintf_s.c
- * PURPOSE:         Implementation of vprintf
- * PROGRAMMER:      Samuel Serapi�n
- */
-
-#define MINGW_HAS_SECURE_API 1
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-vprintf_s(const char *format, va_list valist)
-{
-    return vfprintf_s(stdout,format,valist);
-}

sdk/lib/crt/printf/vsprintf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/vsprintf_s.c
- * PURPOSE:         Implementation of vsprintf_s
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#define _sxprintf vsprintf_s
-#define USE_COUNT 0
-#define USE_VARARGS 1
-#define IS_SECAPI 1
-
-#include "_sxprintf.c"

sdk/lib/crt/printf/vswprintf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/vswprintf_s.c
- * PURPOSE:         Implementation of vswprintf_s
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#define _sxprintf vswprintf_s
-#define USE_COUNT 0
-#define USE_VARARGS 1
-#define _UNICODE
-#define IS_SECAPI 1
-
-#include "_sxprintf.c"

sdk/lib/crt/printf/vwprintf.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/vwprintf.c
- * PURPOSE:         Implementation of vwprintf
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-vwprintf(const wchar_t *format, va_list valist)
-{
-    return vfwprintf(stdout, format, valist);
-}

sdk/lib/crt/printf/vwprintf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/vwprintf_s.c
- * PURPOSE:         Implementation of vwprintf
- * PROGRAMMER:      Samuel Serapi�n
- */
-
-#define MINGW_HAS_SECURE_API 1
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-vwprintf_s(const wchar_t *format, va_list valist)
-{
-    return vfwprintf_s(stdout, format, valist);
-}

sdk/lib/crt/printf/wprintf.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/wprintf.c
- * PURPOSE:         Implementation of wprintf
- * PROGRAMMER:      Timo Kreuzer
- *                  Samuel Serapi�n
- */
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-wprintf(const wchar_t *format, ...)
-{
-    va_list argptr;
-    int result;
-
-    va_start(argptr, format);
-    result = vwprintf(format, argptr);
-    va_end(argptr);
-    return result;
-}

sdk/lib/crt/printf/wprintf_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/printf/wprintf_s.c
- * PURPOSE:         Implementation of wprintf
- * PROGRAMMER:      Samuel Serapi�n
- */
-
-#define MINGW_HAS_SECURE_API 1
-
-#include <stdio.h>
-#include <stdarg.h>
-
-int
-__cdecl
-wprintf_s(const wchar_t *format, ...)
-{
-    va_list argptr;
-    int res;
-    va_start(argptr, format);
-    res = vwprintf_s(format, argptr);
-    va_end(argptr);
-    return res;
-}

sdk/lib/crt/process/_cwait.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/process/_cwait.c
- * PURPOSE:     Waits for a process to exit
- */
-
-#include <precomp.h>
-
-/* Taken from Wine msvcrt/process.c */
-
-/*
- * @implemented
- */
-intptr_t CDECL _cwait(int *status, intptr_t pid, int action)
-{
-  HANDLE hPid = (HANDLE)pid;
-  int doserrno;
-
-  if (!WaitForSingleObject(hPid, INFINITE))
-  {
-    if (status)
-    {
-      DWORD stat;
-      GetExitCodeProcess(hPid, &stat);
-      *status = (int)stat;
-    }
-    return pid;
-  }
-  doserrno = GetLastError();
-
-  if (doserrno == ERROR_INVALID_HANDLE)
-  {
-    *_errno() =  ECHILD;
-    *__doserrno() = doserrno;
-  }
-  else
-    _dosmaperr(doserrno);
-
-  return status ? *status = -1 : -1;
-}

sdk/lib/crt/process/_system.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/process/_system.c
- * PURPOSE:     Excutes a shell command
- * PROGRAMER:   Ariadne
- *              Katayama Hirofumi MZ
- * UPDATE HISTORY:
- *              04/03/99: Created
- */
-
-#include <precomp.h>
-#include <stdlib.h>
-#include <string.h>
-#include <process.h>
-
-/*
- * @implemented
- */
-int system(const char *command)
-{
-  char *szCmdLine = NULL;
-  char *szComSpec = NULL;
-  PROCESS_INFORMATION ProcessInformation;
-  STARTUPINFOA StartupInfo;
-  BOOL result;
-  int exit_code;
-  char cmd_exe[MAX_PATH];
-
-  szComSpec = getenv("COMSPEC");
-
-// system should return 0 if command is null and the shell is found
-
-  if (command == NULL) {
-    return (szComSpec == NULL) ? 0 : 1;
-  }
-
-  if (!szComSpec || GetFileAttributesA(szComSpec) == INVALID_FILE_ATTRIBUTES)
-  {
-    GetSystemDirectoryA(cmd_exe, _countof(cmd_exe));
-    strcat(cmd_exe, "\\cmd.exe");
-    szComSpec = cmd_exe;
-  }
-
-  szCmdLine = malloc(1 + strlen(szComSpec) + 5 + strlen(command) + 1);
-  if (szCmdLine == NULL)
-  {
-    _set_errno(ENOMEM);
-    return -1;
-  }
-
-  strcpy(szCmdLine, "\"");
-  strcat(szCmdLine, szComSpec);
-  strcat(szCmdLine, "\" /C ");
-  strcat(szCmdLine, command);
-
-//command file has invalid format ENOEXEC
-
-  memset(&StartupInfo, 0, sizeof(StartupInfo));
-  StartupInfo.cb = sizeof(StartupInfo);
-  StartupInfo.dwFlags = STARTF_USESHOWWINDOW;
-  StartupInfo.wShowWindow = SW_SHOWDEFAULT;
-
-// In order to disable Ctrl+C, the process is created with CREATE_NEW_PROCESS_GROUP.
-// Thus, SetConsoleCtrlHandler(NULL, TRUE) is made on behalf of the new process.
-
-//SIGCHILD should be blocked as well
-
-  result = CreateProcessA(szComSpec,
-	                  szCmdLine,
-			  NULL,
-			  NULL,
-			  TRUE,
-			  CREATE_NEW_PROCESS_GROUP,
-			  NULL,
-			  NULL,
-			  &StartupInfo,
-			  &ProcessInformation);
-  free(szCmdLine);
-
-  if (result == FALSE)
-  {
-	_dosmaperr(GetLastError());
-     return -1;
-  }
-
-  CloseHandle(ProcessInformation.hThread);
-
-  /* Wait for the process to exit */
-  _cwait(&exit_code, (intptr_t)ProcessInformation.hProcess, 0);
-
-  CloseHandle(ProcessInformation.hProcess);
-
-  _set_errno(0);
-  return exit_code;
-}
-
-int CDECL _wsystem(const wchar_t *cmd)
-{
-    wchar_t *cmdline = NULL;
-    wchar_t *comspec = NULL;
-    PROCESS_INFORMATION process_info;
-    STARTUPINFOW startup_info;
-    BOOL result;
-    int exit_code;
-    wchar_t cmd_exe[MAX_PATH];
-
-    comspec = _wgetenv(L"COMSPEC");
-
-    /* _wsystem should return 0 if cmd is null and the shell is found */
-    if (cmd == NULL)
-    {
-        return (comspec == NULL) ? 0 : 1;
-    }
-
-    if (comspec == NULL || GetFileAttributesW(comspec) == INVALID_FILE_ATTRIBUTES)
-    {
-        GetSystemDirectoryW(cmd_exe, _countof(cmd_exe));
-        wcscat(cmd_exe, L"\\cmd.exe");
-        comspec = cmd_exe;
-    }
-
-    cmdline = malloc((1 + wcslen(comspec) + 5 + wcslen(cmd) + 1) * sizeof(wchar_t));
-    if (cmdline == NULL)
-    {
-        _set_errno(ENOMEM);
-        return -1;
-    }
-
-    wcscpy(cmdline, L"\"");
-    wcscat(cmdline, comspec);
-    wcscat(cmdline, L"\" /C ");
-    wcscat(cmdline, cmd);
-
-    /* command file has invalid format ENOEXEC */
-
-    memset(&startup_info, 0, sizeof(startup_info));
-    startup_info.cb = sizeof(startup_info);
-    startup_info.dwFlags = STARTF_USESHOWWINDOW;
-    startup_info.wShowWindow = SW_SHOWDEFAULT;
-
-    /* In order to disable Ctrl+C, the process is created with CREATE_NEW_PROCESS_GROUP.
-       Thus, SetConsoleCtrlHandler(NULL, TRUE) is made on behalf of the new process. */
-
-    /* SIGCHILD should be blocked as well */
-
-    /* Create the process to execute the command */
-    result = CreateProcessW(comspec,
-                            cmdline,
-                            NULL,
-                            NULL,
-                            TRUE,
-                            CREATE_NEW_PROCESS_GROUP,
-                            NULL,
-                            NULL,
-                            &startup_info,
-                            &process_info);
-    free(cmdline);
-
-    if (!result)
-    {
-        _dosmaperr(GetLastError());
-        return -1;
-    }
-
-    CloseHandle(process_info.hThread);
-
-    /* Wait for the process to exit */
-    _cwait(&exit_code, (intptr_t)process_info.hProcess, 0);
-
-    CloseHandle(process_info.hProcess);
-
-    _set_errno(0);
-    return exit_code;
-}

sdk/lib/crt/process/dll.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/process/dll.c
- * PURPOSE:     Dll support routines
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              04/03/99: Created
- */
-
-#include <precomp.h>
-
-/*
- * @implemented
- */
-intptr_t _loaddll(char* name)
-{
-	return (intptr_t) LoadLibraryA(name);
-}
-
-/*
- * @implemented
- */
-int _unloaddll(intptr_t handle)
-{
-	return FreeLibrary((HMODULE) handle);
-}
-
-/*
- * @implemented
- */
-FARPROC _getdllprocaddr(intptr_t hModule, char* lpProcName, intptr_t iOrdinal)
-{
-	if (lpProcName != NULL)
-		return GetProcAddress((HMODULE) hModule, lpProcName);
-	else
-		return GetProcAddress((HMODULE) hModule, (LPSTR)iOrdinal);
-   	return (NULL);
-}

sdk/lib/crt/process/process.c

···
-/*
- * PROJECT:         ReactOS CRT library
- * LICENSE:         GPL (?) - See COPYING in the top level directory
- * FILE:            lib/sdk/crt/process/process.c
- * PURPOSE:         Process management functions
- * PROGRAMMERS:     ???
- */
-
-#include <precomp.h>
-#include <process.h>
-#include <tchar.h>
-#include <internal/wine/msvcrt.h>
-
-#ifdef _UNICODE
-   #define sT "S"
-   #define find_execT find_execW
-   #define argvtosT argvtosW
-   #define do_spawnT do_spawnW
-   #define valisttosT valisttosW
-   #define extT extW
-   #define access_dirT access_dirW
-#else
-   #define sT "s"
-   #define find_execT find_execA
-   #define argvtosT argvtosA
-   #define do_spawnT do_spawnA
-   #define valisttosT valisttosA
-   #define extT extA
-   #define access_dirT access_dirA
-#endif
-
-#define MK_STR(s) #s
-
-int access_dirT(const _TCHAR *_path);
-
-_TCHAR const* extT[] =
-   {
-      _T(""),
-      _T(".bat"),
-      _T(".cmd"),
-      _T(".com"),
-      _T(".exe")
-   };
-
-const _TCHAR* find_execT(const _TCHAR* path, _TCHAR* rpath)
-{
-   _TCHAR *rp;
-   const _TCHAR *rd;
-   unsigned int i, found = 0;
-
-   TRACE(MK_STR(find_execT)"('%"sT"', %x)\n", path, rpath);
-
-   if (path == NULL)
-   {
-      return NULL;
-   }
-   if (_tcslen(path) > FILENAME_MAX - 1)
-   {
-      return path;
-   }
-   /* copy path in rpath */
-   for (rd = path, rp = rpath; *rd; *rp++ = *rd++)
-      ;
-   *rp = 0;
-   /* try first with the name as is */
-   for (i = 0; i < sizeof(extT) / sizeof(*extT); i++)
-   {
-      _tcscpy(rp, extT[i]);
-
-      TRACE("trying '%"sT"'\n", rpath);
-
-      if (_taccess(rpath, F_OK) == 0 && access_dirT(rpath) != 0)
-      {
-         found = 1;
-         break;
-      }
-   }
-   if (!found)
-   {
-      _TCHAR* env = _tgetenv(_T("PATH"));
-      if (env)
-      {
-         _TCHAR* ep = env;
-         while (*ep && !found)
-         {
-            if (*ep == ';')
-               ep++;
-            rp=rpath;
-            for (; *ep && (*ep != ';'); *rp++ = *ep++)
-               ;
-            if (rp > rpath)
-            {
-               rp--;
-               if (*rp != '/' && *rp != '\\')
-               {
-                  *++rp = '\\';
-               }
-               rp++;
-            }
-            for (rd=path; *rd; *rp++ = *rd++)
-               ;
-            for (i = 0; i < sizeof(extT) / sizeof(*extT); i++)
-            {
-               _tcscpy(rp, extT[i]);
-
-               TRACE("trying '%"sT"'\n", rpath);
-
-               if (_taccess(rpath, F_OK) == 0 && access_dirT(rpath) != 0)
-               {
-                  found = 1;
-                  break;
-               }
-            }
-         }
-      }
-   }
-
-   return found ? rpath : path;
-}
-
-static _TCHAR*
-argvtosT(const _TCHAR* const* argv, _TCHAR delim)
-{
-   int i;
-   size_t len;
-   _TCHAR *ptr, *str;
-
-   if (argv == NULL)
-      return NULL;
-
-   for (i = 0, len = 0; argv[i]; i++)
-   {
-      len += _tcslen(argv[i]) + 1;
-   }
-
-   str = ptr = (_TCHAR*) malloc((len + 1) * sizeof(_TCHAR));
-   if (str == NULL)
-      return NULL;
-
-   for(i = 0; argv[i]; i++)
-   {
-      len = _tcslen(argv[i]);
-      memcpy(ptr, argv[i], len * sizeof(_TCHAR));
-      ptr += len;
-      *ptr++ = delim;
-   }
-   *ptr = 0;
-
-   return str;
-}
-
-static _TCHAR*
-valisttosT(const _TCHAR* arg0, va_list alist, _TCHAR delim)
-{
-   va_list alist2;
-   _TCHAR *ptr, *str;
-   size_t len;
-
-   if (arg0 == NULL)
-      return NULL;
-
-   va_copy(alist2, alist);
-   ptr = (_TCHAR*)arg0;
-   len = 0;
-   do
-   {
-      len += _tcslen(ptr) + 1;
-      ptr = va_arg(alist, _TCHAR*);
-   }
-   while(ptr != NULL);
-
-   str = (_TCHAR*) malloc((len + 1) * sizeof(_TCHAR));
-   if (str == NULL)
-   {
-      va_end(alist2);
-      return NULL;
-   }
-
-   ptr = str;
-   do
-   {
-      len = _tcslen(arg0);
-      memcpy(ptr, arg0, len * sizeof(_TCHAR));
-      ptr += len;
-      *ptr++ = delim;
-      arg0 = va_arg(alist2, _TCHAR*);
-   }
-   while(arg0 != NULL);
-   *ptr = 0;
-
-   va_end(alist2);
-   return str;
-}
-
-static intptr_t
-do_spawnT(int mode, const _TCHAR* cmdname, const _TCHAR* args, const _TCHAR* envp)
-{
-   STARTUPINFO StartupInfo = {0};
-   PROCESS_INFORMATION ProcessInformation;
-//   char* fmode;
-//   HANDLE* hFile;
-//   int i, last;
-   BOOL bResult;
-   DWORD dwExitCode;
-   DWORD dwError;
-   DWORD dwFlags = 0;
-
-   TRACE(MK_STR(do_spawnT)"(%i,'%"sT"','%"sT"','%"sT"')",mode,cmdname,args,envp);
-
-
-   if (mode != _P_NOWAIT && mode != _P_NOWAITO && mode != _P_WAIT && mode != _P_DETACH && mode != _P_OVERLAY)
-   {
-      _set_errno ( EINVAL );
-      return( -1);
-   }
-
-   if (0 != _taccess(cmdname, F_OK))
-   {
-      _set_errno ( ENOENT );
-      return(-1);
-   }
-   if (0 == access_dirT(cmdname))
-   {
-      _set_errno ( EISDIR );
-      return(-1);
-   }
-
-   memset (&StartupInfo, 0, sizeof(StartupInfo));
-   StartupInfo.cb = sizeof(StartupInfo);
-
-#if 0
-
-   for (last = i = 0; i < FDINFO_FD_MAX; i++)
-   {
-      if ((void*)-1 != _get_osfhandle(i))
-      {
-         last = i + 1;
-      }
-   }
-
-   if (last)
-   {
-      StartupInfo.cbReserved2 = sizeof(ULONG) + last * (sizeof(char) + sizeof(HANDLE));
-      StartupInfo.lpReserved2 = malloc(StartupInfo.cbReserved2);
-      if (StartupInfo.lpReserved2 == NULL)
-      {
-         _set_errno ( ENOMEM );
-         return -1;
-      }
-
-      *(DWORD*)StartupInfo.lpReserved2 = last;
-      fmode = (char*)(StartupInfo.lpReserved2 + sizeof(ULONG));
-      hFile = (HANDLE*)(StartupInfo.lpReserved2 + sizeof(ULONG) + last * sizeof(char));
-      for (i = 0; i < last; i++)
-      {
-         int _mode = __fileno_getmode(i);
-         HANDLE h = _get_osfhandle(i);
-         /* FIXME: The test of console handles (((ULONG)Handle) & 0x10000003) == 0x3)
-          *        is possible wrong
-          */
-         if ((((ULONG)h) & 0x10000003) == 0x3 || _mode & _O_NOINHERIT || (i < 3 && mode == _P_DETACH))
-         {
-            *hFile = INVALID_HANDLE_VALUE;
-            *fmode = 0;
-         }
-         else
-         {
-            DWORD dwFlags;
-            BOOL bFlag;
-            bFlag = GetHandleInformation(h, &dwFlags);
-            if (bFlag && (dwFlags & HANDLE_FLAG_INHERIT))
-            {
-               *hFile = h;
-               *fmode = (_O_ACCMODE & _mode) | (((_O_TEXT | _O_BINARY) & _mode) >> 8);
-            }
-            else
-            {
-               *hFile = INVALID_HANDLE_VALUE;
-               *fmode = 0;
-            }
-         }
-         fmode++;
-         hFile++;
-      }
-   }
-#endif
-
-   create_io_inherit_block(&StartupInfo.cbReserved2, &StartupInfo.lpReserved2);
-
-   if (mode == _P_DETACH)
-   {
-       dwFlags |= DETACHED_PROCESS;
-   }
-#ifdef _UNICODE
-   dwFlags |= CREATE_UNICODE_ENVIRONMENT;
-#endif
-
-   bResult = CreateProcess((_TCHAR *)cmdname,
-                            (_TCHAR *)args,
-                            NULL,
-                            NULL,
-                            TRUE,
-                            dwFlags,
-                            (LPVOID)envp,
-                            NULL,
-                            &StartupInfo,
-                            &ProcessInformation);
-
-   if (StartupInfo.lpReserved2)
-   {
-      free(StartupInfo.lpReserved2);
-   }
-
-   if (!bResult)
-   {
-      dwError = GetLastError();
-      ERR("%x\n", dwError);
-      _dosmaperr(dwError);
-      return(-1);
-   }
-   CloseHandle(ProcessInformation.hThread);
-   switch(mode)
-   {
-      case _P_NOWAIT:
-      case _P_NOWAITO:
-         return((intptr_t)ProcessInformation.hProcess);
-      case _P_OVERLAY:
-         CloseHandle(ProcessInformation.hProcess);
-         _exit(0);
-      case _P_WAIT:
-         WaitForSingleObject(ProcessInformation.hProcess, INFINITE);
-         GetExitCodeProcess(ProcessInformation.hProcess, &dwExitCode);
-         CloseHandle(ProcessInformation.hProcess);
-         return( (int)dwExitCode); //CORRECT?
-      case _P_DETACH:
-         CloseHandle(ProcessInformation.hProcess);
-         return( 0);
-   }
-   return( (intptr_t)ProcessInformation.hProcess);
-}
-
-/*
- * @implemented
- */
-intptr_t _tspawnl(int mode, const _TCHAR *cmdname, const _TCHAR* arg0, ...)
-{
-   va_list argp;
-   _TCHAR* args;
-   intptr_t ret = -1;
-
-   TRACE(MK_STR(_tspawnl)"('%"sT"')\n", cmdname);
-
-   va_start(argp, arg0);
-   args = valisttosT(arg0, argp, ' ');
-
-   if (args)
-   {
-      ret = do_spawnT(mode, cmdname, args, NULL);
-      free(args);
-   }
-   va_end(argp);
-   return ret;
-}
-
-/*
- * @implemented
- */
-intptr_t _tspawnv(int mode, const _TCHAR *cmdname, const _TCHAR* const* argv)
-{
-   _TCHAR* args;
-   intptr_t ret = -1;
-
-   TRACE(MK_STR(_tspawnv)"('%"sT"')\n", cmdname);
-
-   args = argvtosT(argv, ' ');
-
-   if (args)
-   {
-      ret = do_spawnT(mode, cmdname, args, NULL);
-      free(args);
-   }
-   return ret;
-}
-
-/*
- * @implemented
- */
-intptr_t _tspawnle(int mode, const _TCHAR *cmdname, const _TCHAR* arg0, ... /*, NULL, const char* const* envp*/)
-{
-   va_list argp;
-   _TCHAR* args;
-   _TCHAR* envs;
-   _TCHAR const * const* ptr;
-   intptr_t ret = -1;
-
-   TRACE(MK_STR(_tspawnle)"('%"sT"')\n", cmdname);
-
-   va_start(argp, arg0);
-   args = valisttosT(arg0, argp, ' ');
-   do
-   {
-      ptr = (_TCHAR const* const*)va_arg(argp, _TCHAR*);
-   }
-   while (ptr != NULL);
-   ptr = (_TCHAR const* const*)va_arg(argp, _TCHAR*);
-   envs = argvtosT(ptr, 0);
-   if (args)
-   {
-      ret = do_spawnT(mode, cmdname, args, envs);
-      free(args);
-   }
-   if (envs)
-   {
-      free(envs);
-   }
-   va_end(argp);
-   return ret;
-
-}
-
-/*
- * @implemented
- */
-intptr_t _tspawnve(int mode, const _TCHAR *cmdname, const _TCHAR* const* argv, const _TCHAR* const* envp)
-{
-   _TCHAR *args;
-   _TCHAR *envs;
-   intptr_t ret = -1;
-
-   TRACE(MK_STR(_tspawnve)"('%"sT"')\n", cmdname);
-
-   args = argvtosT(argv, ' ');
-   envs = argvtosT(envp, 0);
-
-   if (args)
-   {
-      ret = do_spawnT(mode, cmdname, args, envs);
-      free(args);
-   }
-   if (envs)
-   {
-      free(envs);
-   }
-   return ret;
-}
-
-/*
- * @implemented
- */
-intptr_t _tspawnvp(int mode, const _TCHAR* cmdname, const _TCHAR* const* argv)
-{
-   _TCHAR pathname[FILENAME_MAX];
-
-   TRACE(MK_STR(_tspawnvp)"('%"sT"')\n", cmdname);
-
-   return _tspawnv(mode, find_execT(cmdname, pathname), argv);
-}
-
-/*
- * @implemented
- */
-intptr_t _tspawnlp(int mode, const _TCHAR* cmdname, const _TCHAR* arg0, .../*, NULL*/)
-{
-   va_list argp;
-   _TCHAR* args;
-   intptr_t ret = -1;
-   _TCHAR pathname[FILENAME_MAX];
-
-   TRACE(MK_STR(_tspawnlp)"('%"sT"')\n", cmdname);
-
-   va_start(argp, arg0);
-   args = valisttosT(arg0, argp, ' ');
-   if (args)
-   {
-      ret = do_spawnT(mode, find_execT(cmdname, pathname), args, NULL);
-      free(args);
-   }
-   va_end(argp);
-   return ret;
-}
-
-
-/*
- * @implemented
- */
-intptr_t _tspawnlpe(int mode, const _TCHAR* cmdname, const _TCHAR* arg0, .../*, NULL, const char* const* envp*/)
-{
-   va_list argp;
-   _TCHAR* args;
-   _TCHAR* envs;
-   _TCHAR const* const * ptr;
-   intptr_t ret = -1;
-   _TCHAR pathname[FILENAME_MAX];
-
-   TRACE(MK_STR(_tspawnlpe)"('%"sT"')\n", cmdname);
-
-   va_start(argp, arg0);
-   args = valisttosT(arg0, argp, ' ');
-   do
-   {
-      ptr = (_TCHAR const* const*)va_arg(argp, _TCHAR*);
-   }
-   while (ptr != NULL);
-   ptr = (_TCHAR const* const*)va_arg(argp, _TCHAR*);
-   envs = argvtosT(ptr, 0);
-   if (args)
-   {
-      ret = do_spawnT(mode, find_execT(cmdname, pathname), args, envs);
-      free(args);
-   }
-   if (envs)
-   {
-      free(envs);
-   }
-   va_end(argp);
-   return ret;
-}
-
-/*
- * @implemented
- */
-intptr_t _tspawnvpe(int mode, const _TCHAR* cmdname, const _TCHAR* const* argv, const _TCHAR* const* envp)
-{
-   _TCHAR pathname[FILENAME_MAX];
-
-   TRACE(MK_STR(_tspawnvpe)"('%"sT"')\n", cmdname);
-
-   return _tspawnve(mode, find_execT(cmdname, pathname), argv, envp);
-}
-
-/*
- * @implemented
- */
-intptr_t _texecl(const _TCHAR* cmdname, const _TCHAR* arg0, ...)
-{
-   _TCHAR* args;
-   va_list argp;
-   intptr_t ret = -1;
-
-   TRACE(MK_STR(_texecl)"('%"sT"')\n", cmdname);
-
-   va_start(argp, arg0);
-   args = valisttosT(arg0, argp, ' ');
-
-   if (args)
-   {
-      ret = do_spawnT(_P_OVERLAY, cmdname, args, NULL);
-      free(args);
-   }
-   va_end(argp);
-   return ret;
-}
-
-/*
- * @implemented
- */
-intptr_t _texecv(const _TCHAR* cmdname, const _TCHAR* const* argv)
-{
-   TRACE(MK_STR(_texecv)"('%"sT"')\n", cmdname);
-   return _tspawnv(_P_OVERLAY, cmdname, argv);
-}
-
-/*
- * @implemented
- */
-intptr_t _texecle(const _TCHAR* cmdname, const _TCHAR* arg0, ... /*, NULL, char* const* envp */)
-{
-   va_list argp;
-   _TCHAR* args;
-   _TCHAR* envs;
-   _TCHAR const* const* ptr;
-   intptr_t ret = -1;
-
-   TRACE(MK_STR(_texecle)"('%"sT"')\n", cmdname);
-
-   va_start(argp, arg0);
-   args = valisttosT(arg0, argp, ' ');
-   do
-   {
-      ptr = (_TCHAR const* const*)va_arg(argp, _TCHAR*);
-   }
-   while (ptr != NULL);
-   ptr = (_TCHAR const* const*)va_arg(argp, _TCHAR*);
-   envs = argvtosT(ptr, 0);
-   if (args)
-   {
-      ret = do_spawnT(_P_OVERLAY, cmdname, args, envs);
-      free(args);
-   }
-   if (envs)
-   {
-      free(envs);
-   }
-   va_end(argp);
-   return ret;
-}
-
-/*
- * @implemented
- */
-intptr_t _texecve(const _TCHAR* cmdname, const _TCHAR* const* argv, const _TCHAR* const* envp)
-{
-   TRACE(MK_STR(_texecve)"('%"sT"')\n", cmdname);
-   return _tspawnve(_P_OVERLAY, cmdname, argv, envp);
-}
-
-/*
- * @implemented
- */
-intptr_t _texeclp(const _TCHAR* cmdname, const _TCHAR* arg0, ...)
-{
-   _TCHAR* args;
-   va_list argp;
-   intptr_t ret = -1;
-   _TCHAR pathname[FILENAME_MAX];
-
-   TRACE(MK_STR(_texeclp)"('%"sT"')\n", cmdname);
-
-   va_start(argp, arg0);
-   args = valisttosT(arg0, argp, ' ');
-
-   if (args)
-   {
-      ret = do_spawnT(_P_OVERLAY, find_execT(cmdname, pathname), args, NULL);
-      free(args);
-   }
-   va_end(argp);
-   return ret;
-}
-
-/*
- * @implemented
- */
-intptr_t _texecvp(const _TCHAR* cmdname, const _TCHAR* const* argv)
-{
-   TRACE(MK_STR(_texecvp)"('%"sT"')\n", cmdname);
-   return _tspawnvp(_P_OVERLAY, cmdname, argv);
-}
-
-/*
- * @implemented
- */
-intptr_t _texeclpe(const _TCHAR* cmdname, const _TCHAR* arg0, ... /*, NULL, char* const* envp */)
-{
-   va_list argp;
-   _TCHAR* args;
-   _TCHAR* envs;
-   _TCHAR const* const* ptr;
-   intptr_t ret = -1;
-   _TCHAR pathname[FILENAME_MAX];
-
-   TRACE(MK_STR(_texeclpe)"('%"sT"')\n", cmdname);
-
-   va_start(argp, arg0);
-   args = valisttosT(arg0, argp, ' ');
-   do
-   {
-      ptr = (_TCHAR const* const*)va_arg(argp, _TCHAR*);
-   }
-   while (ptr != NULL);
-   ptr = (_TCHAR const* const*)va_arg(argp, _TCHAR*);
-   envs = argvtosT(ptr, 0);
-   if (args)
-   {
-      ret = do_spawnT(_P_OVERLAY, find_execT(cmdname, pathname), args, envs);
-      free(args);
-   }
-   if (envs)
-   {
-      free(envs);
-   }
-   va_end(argp);
-   return ret;
-}
-
-/*
- * @implemented
- */
-intptr_t _texecvpe(const _TCHAR* cmdname, const _TCHAR* const* argv, const _TCHAR* const* envp)
-{
-   TRACE(MK_STR(_texecvpe)"('%"sT"')\n", cmdname);
-   return _tspawnvpe(_P_OVERLAY, cmdname, argv, envp);
-}
-
-

sdk/lib/crt/process/process.cmake

···
-
-list(APPEND CRT_PROCESS_SOURCE
-    process/_cwait.c
-    process/_system.c
-    process/dll.c
-    process/process.c
-    process/procid.c
-    process/thread.c
-    process/threadid.c
-    process/threadx.c
-    process/wprocess.c
-)

sdk/lib/crt/process/procid.c

···
-#include <precomp.h>
-#include <process.h>
-
-/*
- * @implemented
- */
-int _getpid (void)
-{
-   return (int)GetCurrentProcessId();
-}
-

sdk/lib/crt/process/thread.c

···
-/*
- * msvcrt.dll thread functions
- *
- * Copyright 2000 Jon Griffiths
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-#include <precomp.h>
-#include <malloc.h>
-#include <process.h>
-
-typedef void (*_beginthread_start_routine_t)(void *);
-typedef unsigned int (__stdcall *_beginthreadex_start_routine_t)(void *);
-
-/********************************************************************/
-
-typedef struct {
-  HANDLE thread;
-  _beginthread_start_routine_t start_address;
-  void *arglist;
-} _beginthread_trampoline_t;
-
-/*********************************************************************
- *		_beginthread_trampoline
- */
-static DWORD CALLBACK _beginthread_trampoline(LPVOID arg)
-{
-    _beginthread_trampoline_t local_trampoline;
-    thread_data_t *data = msvcrt_get_thread_data();
-
-    memcpy(&local_trampoline,arg,sizeof(local_trampoline));
-    data->handle = local_trampoline.thread;
-    free(arg);
-
-    local_trampoline.start_address(local_trampoline.arglist);
-    return 0;
-}
-
-/*********************************************************************
- *		_beginthread (MSVCRT.@)
- */
-uintptr_t _beginthread(
-  _beginthread_start_routine_t start_address, /* [in] Start address of routine that begins execution of new thread */
-  unsigned int stack_size, /* [in] Stack size for new thread or 0 */
-  void *arglist)           /* [in] Argument list to be passed to new thread or NULL */
-{
-  _beginthread_trampoline_t* trampoline;
-  HANDLE thread;
-
-  TRACE("(%p, %d, %p)\n", start_address, stack_size, arglist);
-
-  trampoline = malloc(sizeof(*trampoline));
-  if(!trampoline) {
-      *_errno() = EAGAIN;
-      return -1;
-  }
-
-  thread = CreateThread(NULL, stack_size, _beginthread_trampoline,
-          trampoline, CREATE_SUSPENDED, NULL);
-  if(!thread) {
-      free(trampoline);
-      *_errno() = EAGAIN;
-      return -1;
-  }
-
-  trampoline->thread = thread;
-  trampoline->start_address = start_address;
-  trampoline->arglist = arglist;
-
-  if(ResumeThread(thread) == -1) {
-      free(trampoline);
-      *_errno() = EAGAIN;
-      return -1;
-  }
-
-  return (uintptr_t)thread;
-}
-
-/*********************************************************************
- *		_endthread (MSVCRT.@)
- */
-void CDECL _endthread(void)
-{
-  TRACE("(void)\n");
-
-  /* FIXME */
-  ExitThread(0);
-}

sdk/lib/crt/process/threadid.c

···
-#include <precomp.h>
-#include <process.h>
-
-
-/*
- * @implemented
- */
-unsigned long __threadid (void)
-{
-   return GetCurrentThreadId();
-}
-
-/*
- * @implemented
- */
-uintptr_t __threadhandle()
-{
-   return (uintptr_t)GetCurrentThread();
-}

sdk/lib/crt/process/threadx.c

···
-#include <precomp.h>
-
-/*
- * @unimplemented
- */
-uintptr_t CDECL _beginthreadex(
-    void* security,
-    unsigned stack_size,
-    unsigned (__stdcall *start_address)(void*),
-    void* arglist,
-    unsigned initflag,
-    unsigned* thrdaddr)
-{
-  HANDLE NewThread;
-
-  /*
-   * Just call the API function. Any CRT specific processing is done in
-   * DllMain DLL_THREAD_ATTACH
-   */
-  NewThread = CreateThread ( security, stack_size,
-    (LPTHREAD_START_ROUTINE)start_address,
-    arglist, initflag, (PULONG)thrdaddr );
-  if (NULL == NewThread)
-    {
-    _dosmaperr( GetLastError() );
-    }
-
-  return (uintptr_t) NewThread;
-}
-
-
-/*
- * @implemented
- */
-void CDECL _endthreadex(unsigned retval)
-{
-  /*
-   * Just call the API function. Any CRT specific processing is done in
-   * DllMain DLL_THREAD_DETACH
-   */
-  ExitThread(retval);
-}
-
-/* EOF */

sdk/lib/crt/process/wprocess.c

···
-#define _UNICODE
-#define UNICODE
-
-#include "process.c"

sdk/lib/crt/search/lsearch.c

···
-#include <stdlib.h>
-#include <string.h>
-#include <search.h>
-
-/*
- * @implemented
- */
-void * __cdecl _lsearch(const void *key, void *base, unsigned int *nelp, unsigned int width,
-         int (__cdecl *compar)(const void *, const void *))
-{
-  void *ret_find = _lfind(key,base,nelp,width,compar);
-
-  if (ret_find != NULL)
-    return ret_find;
-
-  memcpy((void*)((int*)base + (*nelp*width)), key, width);
-
-  (*nelp)++;
-  return base;
-}
-
-

sdk/lib/crt/search/search.cmake

···
     search/bsearch.c
     search/lfind.c
 )
-
-list(APPEND CRT_SEARCH_SOURCE
-    ${LIBCNTPR_SEARCH_SOURCE}
-    search/lsearch.c
-)

sdk/lib/crt/signal/signal.c

···
-#include <precomp.h>
-#include "include/internal/wine/msvcrt.h"
-
-static sig_element signal_list[] =
-   {
-      { SIGINT, "CTRL+C",SIG_DFL },
-      { SIGILL, "Illegal instruction",SIG_DFL },
-      { SIGFPE, "Floating-point exception",SIG_DFL },
-      { SIGSEGV, "Illegal storage access",SIG_DFL },
-      { SIGTERM, "Termination request",SIG_DFL },
-      { SIGBREAK, "CTRL+BREAK",SIG_DFL },
-      { SIGABRT, "Abnormal termination",SIG_DFL }
-   };
-
-//int nsignal = 21;
-
-/*
- * @implemented
- */
-//void ( *signal( int sig, void (__cdecl *func) ( int sig [, int subcode ] )) ) ( int sig );
-
-
-__p_sig_fn_t signal(int sig, __p_sig_fn_t func)
-{
-   __p_sig_fn_t temp;
-   unsigned int i;
-
-   switch (sig)
-   {
-      case SIGINT:
-      case SIGILL:
-      case SIGFPE:
-      case SIGSEGV:
-      case SIGTERM:
-      case SIGBREAK:
-      case SIGABRT:
-         break;
-
-      default:
-         _set_errno(EINVAL);
-         return SIG_ERR;
-   }
-
-   // check with IsBadCodePtr
-   if ( (uintptr_t)func < 4096 && func != SIG_DFL && func != SIG_IGN)
-   {
-      _set_errno(EINVAL);
-      return SIG_ERR;
-   }
-
-   for(i=0; i < sizeof(signal_list)/sizeof(signal_list[0]); i++)
-   {
-      if ( signal_list[i].signal == sig )
-      {
-         temp = signal_list[i].handler;
-         signal_list[i].handler = func;
-         return temp;
-      }
-   }
-
-   /* should be impossible to get here */
-   _set_errno(EINVAL);
-   return SIG_ERR;
-}
-
-
-/*
- * @implemented
- */
-int
-raise(int sig)
-{
-   __p_sig_fn_t temp = 0;
-   unsigned int i;
-
-   switch (sig)
-   {
-      case SIGINT:
-      case SIGILL:
-      case SIGFPE:
-      case SIGSEGV:
-      case SIGTERM:
-      case SIGBREAK:
-      case SIGABRT:
-         break;
-
-      default:
-         //FIXME: set last err?
-         return -1;
-   }
-
-
-   //  if(sig <= 0)
-   //    return -1;
-   //  if(sig > SIGMAX)
-   //    return -1;
-
-   for(i=0;i<sizeof(signal_list)/sizeof(signal_list[0]);i++)
-   {
-      if ( signal_list[i].signal == sig )
-      {
-         temp = signal_list[i].handler;
-         break;
-      }
-   }
-
-   if(temp == SIG_IGN)// || (sig == SIGQUIT && temp == (_p_sig_fn_t)SIG_DFL))
-      return 0;   /* Ignore it */
-
-   if(temp == SIG_DFL)
-      _default_handler(sig); /* this does not return */
-   else
-      temp(sig);
-
-   return 0;
-}
-
-
-
-void _default_handler(int sig)
-{
-   _exit(3);
-}
-
-
-
-
-

sdk/lib/crt/stdio/_flsbuf.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/stdio/_flsbuf.c
- * PURPOSE:         Implementation of _flsbuf / _flswbuf
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#include <precomp.h>
-
-BOOL __cdecl msvcrt_alloc_buffer(FILE *stream);
-
-int __cdecl
-_flsbuf(int ch, FILE *stream)
-{
-    int count, written;
-
-    /* Check if the stream supports flushing */
-    if ((stream->_flag & _IOSTRG) || !(stream->_flag & (_IORW|_IOWRT)))
-    {
-        stream->_flag |= _IOERR;
-        return EOF;
-    }
-
-    /* Always reset _cnt */
-    stream->_cnt = 0;
-
-    /* Check if this was a read buffer */
-    if (stream->_flag & _IOREAD)
-    {
-        /* Must be at the end of the file */
-        if (!(stream->_flag & _IOEOF))
-        {
-            stream->_flag |= _IOERR;
-            return EOF;
-        }
-
-        /* Reset buffer */
-        stream->_ptr = stream->_base;
-    }
-
-    /* Fixup flags */
-    stream->_flag &= ~(_IOREAD|_IOEOF);
-    stream->_flag |= _IOWRT;
-
-    /* Check if should get a buffer */
-    if (!(stream->_flag & _IONBF) && stream != stdout && stream != stderr)
-    {
-        /* If we have no buffer, try to allocate one */
-        if (!stream->_base) msvcrt_alloc_buffer(stream);
-    }
-
-    /* Check if we can use a buffer now */
-    if (stream->_base && !(stream->_flag & _IONBF))
-    {
-        /* We can, check if there is something to write */
-        count = (int)(stream->_ptr - stream->_base);
-        if (count > 0)
-            written = _write(stream->_file, stream->_base, count);
-        else
-            written = 0;
-
-        /* Reset buffer and put the char into it */
-        stream->_ptr = stream->_base + sizeof(TCHAR);
-        stream->_cnt = stream->_bufsiz - sizeof(TCHAR);
-        *(TCHAR*)stream->_base = ch;
-    }
-    else
-    {
-        /* There is no buffer, write the char directly */
-        count = sizeof(TCHAR);
-        written = _write(stream->_file, &ch, sizeof(TCHAR));
-    }
-
-    /* Check for failure */
-    if (written != count)
-    {
-        stream->_flag |= _IOERR;
-        return EOF;
-    }
-
-    return ch & (sizeof(TCHAR) > sizeof(char) ? 0xffff : 0xff);
-}

sdk/lib/crt/stdio/_flswbuf.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/stdio/_flswbuf.c
- * PURPOSE:         Implementation of _flswbuf
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#define _UNICODE
-#define _flsbuf _flswbuf
-#include "_flsbuf.c"

sdk/lib/crt/stdio/access.c

···
-#include <precomp.h>
-#include <tchar.h>
-
-#ifdef _UNICODE
- #define _TS S
- #define sT "S"
- #define access_dirT access_dirW
-#else
- #define _TS s
- #define sT "s"
- #define access_dirT access_dirA
-#endif
-
-#define MK_STR(s) #s
-
-/*
- * INTERNAL
- */
-int access_dirT(const _TCHAR *_path)
-{
-    DWORD Attributes = GetFileAttributes(_path);
-    TRACE(MK_STR(is_dirT)"('%"sT"')\n", _path);
-
-    if (Attributes == (DWORD)-1) {
-         _dosmaperr(GetLastError());
-        return -1;
-    }
-
-    if ((Attributes & FILE_ATTRIBUTE_DIRECTORY) != FILE_ATTRIBUTE_DIRECTORY)
-    {
-      _set_errno(EACCES);
-      return -1;
-    }
-
-   return 0;
-}
-
-

sdk/lib/crt/stdio/file.c

···
-/*
- * PROJECT:         ReactOS CRT library
- * LICENSE:         LGPL - See COPYING in the top level directory
- * FILE:            lib/sdk/crt/stdio/file.c
- * PURPOSE:         File CRT functions
- * PROGRAMMERS:     Wine team
- *                  Ported to ReactOS by Aleksey Bragin ([e-mail])
- */
-
-/*********************************************
- * This file contains ReactOS changes!!
- * Don't blindly sync it with Wine code!
- *
- * If you break Unicode output on the console again, please update this counter:
- *   int hours_wasted_on_this = 42;
- *********************************************/
-
-/*
- * msvcrt.dll file functions
- *
- * Copyright 1996,1998 Marcus Meissner
- * Copyright 1996 Jukka Iivonen
- * Copyright 1997,2000 Uwe Bonnes
- * Copyright 2000 Jon Griffiths
- * Copyright 2004 Eric Pouech
- * Copyright 2004 Juan Lang
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- *
- * TODO
- * Use the file flag hints O_SEQUENTIAL, O_RANDOM, O_SHORT_LIVED
- */
-
-#include <precomp.h>
-#include "wine/unicode.h"
-#include "internal/wine/msvcrt.h"
-
-#include <sys/utime.h>
-#include <direct.h>
-
-int *__p__fmode(void);
-int *__p___mb_cur_max(void);
-
-extern int _commode;
-
-#ifndef _IOCOMMIT
-#define _IOCOMMIT 0x4000
-#endif
-
-#ifdef feof
-#undef feof
-#endif
-#ifdef _fileno
-#undef _fileno
-#endif
-#ifdef ferror
-#undef ferror
-#endif
-#ifdef clearerr
-#undef clearerr
-#endif
-
-#undef getc
-#undef getwc
-#undef getchar
-#undef getwchar
-#undef putc
-#undef putwc
-#undef putchar
-#undef putwchar
-
-#undef vprintf
-#undef vwprintf
-
-/* _access() bit flags FIXME: incomplete */
-/* defined in crt/io.h */
-
-/* values for wxflag in file descriptor */
-#define WX_OPEN           0x01
-#define WX_ATEOF          0x02
-#define WX_READNL         0x04  /* read started with \n */
-#define WX_READEOF        0x04  /* like ATEOF, but for underlying file rather than buffer */
-#define WX_PIPE           0x08
-#define WX_READCR         0x08  /* underlying file is at \r */
-#define WX_DONTINHERIT    0x10
-#define WX_APPEND         0x20
-#define WX_TTY            0x40
-#define WX_TEXT           0x80
-
-/* values for exflag - it's used differently in msvcr90.dll*/
-#define EF_UTF8           0x01
-#define EF_UTF16          0x02
-#define EF_CRIT_INIT      0x04
-#define EF_UNK_UNICODE    0x08
-
-static char utf8_bom[3] = { 0xef, 0xbb, 0xbf };
-static char utf16_bom[2] = { 0xff, 0xfe };
-
-/* FIXME: this should be allocated dynamically */
-#define MSVCRT_MAX_FILES 2048
-#define MSVCRT_FD_BLOCK_SIZE 32
-
-#define MSVCRT_INTERNAL_BUFSIZ 4096
-
-/*********************************************************************
- *		__pioinfo (MSVCRT.@)
- * array of pointers to ioinfo arrays [32]
- */
-ioinfo * __pioinfo[MSVCRT_MAX_FILES/MSVCRT_FD_BLOCK_SIZE] = { 0 };
-
-/*********************************************************************
- *		__badioinfo (MSVCRT.@)
- */
-ioinfo __badioinfo = { INVALID_HANDLE_VALUE, WX_TEXT };
-
-typedef struct {
-    FILE file;
-    CRITICAL_SECTION crit;
-} file_crit;
-
-FILE _iob[_IOB_ENTRIES] = { { 0 } };
-static file_crit* MSVCRT_fstream[MSVCRT_MAX_FILES/MSVCRT_FD_BLOCK_SIZE] = { NULL };
-static int MSVCRT_max_streams = 512, MSVCRT_stream_idx;
-
-/* INTERNAL: process umask */
-static int MSVCRT_umask = 0;
-
-/* INTERNAL: static data for tmpnam and _wtmpname functions */
-static int tmpnam_unique;
-
-/* This critical section protects the MSVCRT_fstreams table
- * and MSVCRT_stream_idx from race conditions. It also
- * protects fd critical sections creation code.
- */
-static CRITICAL_SECTION MSVCRT_file_cs;
-static CRITICAL_SECTION_DEBUG MSVCRT_file_cs_debug =
-{
-    0, 0, &MSVCRT_file_cs,
-    { &MSVCRT_file_cs_debug.ProcessLocksList, &MSVCRT_file_cs_debug.ProcessLocksList },
-      0, 0, { (DWORD_PTR)(__FILE__ ": MSVCRT_file_cs") }
-};
-static CRITICAL_SECTION MSVCRT_file_cs = { &MSVCRT_file_cs_debug, -1, 0, 0, 0, 0 };
-#define LOCK_FILES()    do { EnterCriticalSection(&MSVCRT_file_cs); } while (0)
-#define UNLOCK_FILES()  do { LeaveCriticalSection(&MSVCRT_file_cs); } while (0)
-
-static inline ioinfo* get_ioinfo_nolock(int fd)
-{
-    ioinfo *ret = NULL;
-    if(fd>=0 && fd<MSVCRT_MAX_FILES)
-        ret = __pioinfo[fd/MSVCRT_FD_BLOCK_SIZE];
-    if(!ret)
-        return &__badioinfo;
-
-    return ret + (fd%MSVCRT_FD_BLOCK_SIZE);
-}
-
-static inline void init_ioinfo_cs(ioinfo *info)
-{
-    if(!(info->exflag & EF_CRIT_INIT)) {
-        LOCK_FILES();
-        if(!(info->exflag & EF_CRIT_INIT)) {
-            InitializeCriticalSection(&info->crit);
-            info->exflag |= EF_CRIT_INIT;
-        }
-        UNLOCK_FILES();
-    }
-}
-
-ioinfo* get_ioinfo(int fd)
-{
-    ioinfo *ret = get_ioinfo_nolock(fd);
-    if(ret == &__badioinfo)
-        return ret;
-    init_ioinfo_cs(ret);
-    EnterCriticalSection(&ret->crit);
-    return ret;
-}
-
-static inline BOOL alloc_pioinfo_block(int fd)
-{
-    ioinfo *block;
-    int i;
-
-    if(fd<0 || fd>=MSVCRT_MAX_FILES)
-    {
-        *_errno() = ENFILE;
-        return FALSE;
-    }
-
-    block = calloc(MSVCRT_FD_BLOCK_SIZE, sizeof(ioinfo));
-    if(!block)
-    {
-        WARN(":out of memory!\n");
-        *_errno() = ENOMEM;
-        return FALSE;
-    }
-    for(i=0; i<MSVCRT_FD_BLOCK_SIZE; i++)
-        block[i].handle = INVALID_HANDLE_VALUE;
-    if(InterlockedCompareExchangePointer((void**)&__pioinfo[fd/MSVCRT_FD_BLOCK_SIZE], block, NULL))
-        free(block);
-    return TRUE;
-}
-
-static inline ioinfo* get_ioinfo_alloc_fd(int fd)
-{
-    ioinfo *ret;
-
-    ret = get_ioinfo(fd);
-    if(ret != &__badioinfo)
-        return ret;
-
-    if(!alloc_pioinfo_block(fd))
-        return &__badioinfo;
-
-    return get_ioinfo(fd);
-}
-
-static inline ioinfo* get_ioinfo_alloc(int *fd)
-{
-    int i;
-
-    *fd = -1;
-    for(i=0; i<MSVCRT_MAX_FILES; i++)
-    {
-        ioinfo *info = get_ioinfo_nolock(i);
-
-        if(info == &__badioinfo)
-        {
-            if(!alloc_pioinfo_block(i))
-                return &__badioinfo;
-            info = get_ioinfo_nolock(i);
-        }
-
-        init_ioinfo_cs(info);
-        if(TryEnterCriticalSection(&info->crit))
-        {
-            if(info->handle == INVALID_HANDLE_VALUE)
-            {
-                *fd = i;
-                return info;
-            }
-            LeaveCriticalSection(&info->crit);
-        }
-    }
-
-    WARN(":files exhausted!\n");
-    *_errno() = ENFILE;
-    return &__badioinfo;
-}
-
-void release_ioinfo(ioinfo *info)
-{
-    if(info!=&__badioinfo && info->exflag & EF_CRIT_INIT)
-        LeaveCriticalSection(&info->crit);
-}
-
-static inline FILE* msvcrt_get_file(int i)
-{
-    file_crit *ret;
-
-    if(i >= MSVCRT_max_streams)
-        return NULL;
-
-    if(i < _IOB_ENTRIES)
-        return &_iob[i];
-
-    ret = MSVCRT_fstream[i/MSVCRT_FD_BLOCK_SIZE];
-    if(!ret) {
-        MSVCRT_fstream[i/MSVCRT_FD_BLOCK_SIZE] = calloc(MSVCRT_FD_BLOCK_SIZE, sizeof(file_crit));
-        if(!MSVCRT_fstream[i/MSVCRT_FD_BLOCK_SIZE]) {
-            ERR("out of memory\n");
-            *_errno() = ENOMEM;
-            return NULL;
-        }
-
-        ret = MSVCRT_fstream[i/MSVCRT_FD_BLOCK_SIZE] + (i%MSVCRT_FD_BLOCK_SIZE);
-    } else
-        ret += i%MSVCRT_FD_BLOCK_SIZE;
-
-    return &ret->file;
-}
-
-/* INTERNAL: free a file entry fd */
-static void msvcrt_free_fd(int fd)
-{
-  ioinfo *fdinfo = get_ioinfo(fd);
-
-  if(fdinfo != &__badioinfo)
-  {
-    fdinfo->handle = INVALID_HANDLE_VALUE;
-    fdinfo->wxflag = 0;
-  }
-  TRACE(":fd (%d) freed\n",fd);
-
-  if (fd < 3)
-  {
-    switch (fd)
-    {
-    case 0:
-        SetStdHandle(STD_INPUT_HANDLE, 0);
-        break;
-    case 1:
-        SetStdHandle(STD_OUTPUT_HANDLE, 0);
-        break;
-    case 2:
-        SetStdHandle(STD_ERROR_HANDLE, 0);
-        break;
-    }
-  }
-  release_ioinfo(fdinfo);
-}
-
-static void msvcrt_set_fd(ioinfo *fdinfo, HANDLE hand, int flag)
-{
-  fdinfo->handle = hand;
-  fdinfo->wxflag = WX_OPEN | (flag & (WX_DONTINHERIT | WX_APPEND | WX_TEXT | WX_PIPE | WX_TTY));
-  fdinfo->lookahead[0] = '\n';
-  fdinfo->lookahead[1] = '\n';
-  fdinfo->lookahead[2] = '\n';
-  fdinfo->exflag &= EF_CRIT_INIT;
-
-  switch (fdinfo-__pioinfo[0])
-  {
-  case 0: SetStdHandle(STD_INPUT_HANDLE,  hand); break;
-  case 1: SetStdHandle(STD_OUTPUT_HANDLE, hand); break;
-  case 2: SetStdHandle(STD_ERROR_HANDLE,  hand); break;
-  }
-}
-
-/* INTERNAL: Allocate an fd slot from a Win32 HANDLE */
-/*static*/ int msvcrt_alloc_fd(HANDLE hand, int flag)
-{
-    int fd;
-    ioinfo *info = get_ioinfo_alloc(&fd);
-
-    TRACE(":handle (%p) allocating fd (%d)\n", hand, fd);
-
-    if(info == &__badioinfo)
-        return -1;
-
-    msvcrt_set_fd(info, hand, flag);
-    release_ioinfo(info);
-    return fd;
-}
-
-/* INTERNAL: Allocate a FILE* for an fd slot */
-/* caller must hold the files lock */
-static FILE* msvcrt_alloc_fp(void)
-{
-  int i;
-  FILE *file;
-
-  for (i = 3; i < MSVCRT_max_streams; i++)
-  {
-    file = msvcrt_get_file(i);
-    if (!file)
-      return NULL;
-
-    if (file->_flag == 0)
-    {
-      if (i == MSVCRT_stream_idx) MSVCRT_stream_idx++;
-      return file;
-    }
-  }
-
-  return NULL;
-}
-
-/* INTERNAL: initialize a FILE* from an open fd */
-static int msvcrt_init_fp(FILE* file, int fd, unsigned stream_flags)
-{
-  TRACE(":fd (%d) allocating FILE*\n",fd);
-  if (!(get_ioinfo_nolock(fd)->wxflag & WX_OPEN))
-  {
-    WARN(":invalid fd %d\n",fd);
-    *__doserrno() = 0;
-    *_errno() = EBADF;
-    return -1;
-  }
-  file->_ptr = file->_base = NULL;
-  file->_cnt = 0;
-  file->_file = fd;
-  file->_flag = stream_flags;
-  file->_tmpfname = NULL;
-
-  if(file<_iob || file>=_iob+_IOB_ENTRIES)
-      InitializeCriticalSection(&((file_crit*)file)->crit);
-
-  TRACE(":got FILE* (%p)\n",file);
-  return 0;
-}
-
-/* INTERNAL: Create an inheritance data block (for spawned process)
- * The inheritance block is made of:
- *      00      int     nb of file descriptor (NBFD)
- *      04      char    file flags (wxflag): repeated for each fd
- *      4+NBFD  HANDLE  file handle: repeated for each fd
- */
-unsigned create_io_inherit_block(WORD *size, BYTE **block)
-{
-  int         fd, last_fd;
-  char*       wxflag_ptr;
-  HANDLE*     handle_ptr;
-  ioinfo*     fdinfo;
-
-  for (last_fd=MSVCRT_MAX_FILES-1; last_fd>=0; last_fd--)
-    if (get_ioinfo_nolock(last_fd)->handle != INVALID_HANDLE_VALUE)
-      break;
-  last_fd++;
-
-  *size = sizeof(unsigned) + (sizeof(char) + sizeof(HANDLE)) * last_fd;
-  *block = calloc(1, *size);
-  if (!*block)
-  {
-    *size = 0;
-    return FALSE;
-  }
-  wxflag_ptr = (char*)*block + sizeof(unsigned);
-  handle_ptr = (HANDLE*)(wxflag_ptr + last_fd);
-
-  *(unsigned*)*block = last_fd;
-  for (fd = 0; fd < last_fd; fd++)
-  {
-    /* to be inherited, we need it to be open, and that DONTINHERIT isn't set */
-    fdinfo = get_ioinfo_nolock(fd);
-    if ((fdinfo->wxflag & (WX_OPEN | WX_DONTINHERIT)) == WX_OPEN)
-    {
-      *wxflag_ptr = fdinfo->wxflag;
-      *handle_ptr = fdinfo->handle;
-    }
-    else
-    {
-      *wxflag_ptr = 0;
-      *handle_ptr = INVALID_HANDLE_VALUE;
-    }
-    wxflag_ptr++; handle_ptr++;
-  }
-  return TRUE;
-}
-
-/* INTERNAL: Set up all file descriptors,
- * as well as default streams (stdin, stderr and stdout)
- */
-void msvcrt_init_io(void)
-{
-  STARTUPINFOA  si;
-  unsigned int  i;
-  ioinfo        *fdinfo;
-
-  GetStartupInfoA(&si);
-  if (si.cbReserved2 >= sizeof(unsigned int) && si.lpReserved2 != NULL)
-  {
-    BYTE*       wxflag_ptr;
-    HANDLE*     handle_ptr;
-    unsigned int count;
-
-    count = *(unsigned*)si.lpReserved2;
-    wxflag_ptr = si.lpReserved2 + sizeof(unsigned);
-    handle_ptr = (HANDLE*)(wxflag_ptr + count);
-
-    count = min(count, (si.cbReserved2 - sizeof(unsigned)) / (sizeof(HANDLE) + 1));
-    count = min(count, MSVCRT_MAX_FILES);
-    for (i = 0; i < count; i++)
-    {
-      if ((*wxflag_ptr & WX_OPEN) && GetFileType(*handle_ptr) != FILE_TYPE_UNKNOWN)
-      {
-        fdinfo = get_ioinfo_alloc_fd(i);
-        if(fdinfo != &__badioinfo)
-            msvcrt_set_fd(fdinfo, *handle_ptr, *wxflag_ptr);
-        release_ioinfo(fdinfo);
-      }
-
-      wxflag_ptr++; handle_ptr++;
-    }
-  }
-
-  fdinfo = get_ioinfo_alloc_fd(STDIN_FILENO);
-  if (!(fdinfo->wxflag & WX_OPEN) || fdinfo->handle == INVALID_HANDLE_VALUE) {
-    HANDLE h = GetStdHandle(STD_INPUT_HANDLE);
-    DWORD type = GetFileType(h);
-
-    msvcrt_set_fd(fdinfo, h, WX_OPEN|WX_TEXT|((type&0xf)==FILE_TYPE_CHAR ? WX_TTY : 0)
-            |((type&0xf)==FILE_TYPE_PIPE ? WX_PIPE : 0));
-  }
-  release_ioinfo(fdinfo);
-
-  fdinfo = get_ioinfo_alloc_fd(STDOUT_FILENO);
-  if (!(fdinfo->wxflag & WX_OPEN) || fdinfo->handle == INVALID_HANDLE_VALUE) {
-    HANDLE h = GetStdHandle(STD_OUTPUT_HANDLE);
-    DWORD type = GetFileType(h);
-
-    msvcrt_set_fd(fdinfo, h, WX_OPEN|WX_TEXT|((type&0xf)==FILE_TYPE_CHAR ? WX_TTY : 0)
-            |((type&0xf)==FILE_TYPE_PIPE ? WX_PIPE : 0));
-  }
-  release_ioinfo(fdinfo);
-
-  fdinfo = get_ioinfo_alloc_fd(STDERR_FILENO);
-  if (!(fdinfo->wxflag & WX_OPEN) || fdinfo->handle == INVALID_HANDLE_VALUE) {
-    HANDLE h = GetStdHandle(STD_ERROR_HANDLE);
-    DWORD type = GetFileType(h);
-
-    msvcrt_set_fd(fdinfo, h, WX_OPEN|WX_TEXT|((type&0xf)==FILE_TYPE_CHAR ? WX_TTY : 0)
-            |((type&0xf)==FILE_TYPE_PIPE ? WX_PIPE : 0));
-  }
-  release_ioinfo(fdinfo);
-
-  TRACE(":handles (%p)(%p)(%p)\n", get_ioinfo_nolock(STDIN_FILENO)->handle,
-        get_ioinfo_nolock(STDOUT_FILENO)->handle,
-        get_ioinfo_nolock(STDERR_FILENO)->handle);
-
-  memset(_iob,0,3*sizeof(FILE));
-  for (i = 0; i < 3; i++)
-  {
-    /* FILE structs for stdin/out/err are static and never deleted */
-    _iob[i]._file = i;
-    _iob[i]._tmpfname = NULL;
-    _iob[i]._flag = (i == 0) ? _IOREAD : _IOWRT;
-  }
-  MSVCRT_stream_idx = 3;
-}
-
-/* INTERNAL: Flush stdio file buffer */
-static int msvcrt_flush_buffer(FILE* file)
-{
-    if((file->_flag & (_IOREAD|_IOWRT)) == _IOWRT &&
-            file->_flag & (_IOMYBUF|_USERBUF)) {
-        int cnt=file->_ptr-file->_base;
-        if(cnt>0 && _write(file->_file, file->_base, cnt) != cnt) {
-            file->_flag |= _IOERR;
-            return EOF;
-        }
-
-        if(file->_flag & _IORW)
-            file->_flag &= ~_IOWRT;
-
-#ifdef __REACTOS__ /* CORE-11949 */
-    file->_ptr=file->_base;
-    file->_cnt=0;
-#endif
-    }
-
-#ifndef __REACTOS__ /* CORE-11949 */
-    file->_ptr=file->_base;
-    file->_cnt=0;
-#endif
-    return 0;
-}
-
-/*********************************************************************
- *		_isatty (MSVCRT.@)
- */
-int CDECL _isatty(int fd)
-{
-    TRACE(":fd (%d)\n",fd);
-
-    return get_ioinfo_nolock(fd)->wxflag & WX_TTY;
-}
-
-/* INTERNAL: Allocate stdio file buffer */
-/*static*/ BOOL msvcrt_alloc_buffer(FILE* file)
-{
-    if((file->_file==STDOUT_FILENO || file->_file==STDERR_FILENO)
-            && _isatty(file->_file))
-        return FALSE;
-
-    file->_base = calloc(1, MSVCRT_INTERNAL_BUFSIZ);
-    if(file->_base) {
-        file->_bufsiz = MSVCRT_INTERNAL_BUFSIZ;
-        file->_flag |= _IOMYBUF;
-    } else {
-        file->_base = (char*)(&file->_charbuf);
-        file->_bufsiz = 2;
-        file->_flag |= _IONBF;
-    }
-    file->_ptr = file->_base;
-    file->_cnt = 0;
-    return TRUE;
-}
-
-/* INTERNAL: Allocate temporary buffer for stdout and stderr */
-static BOOL add_std_buffer(FILE *file)
-{
-    static char buffers[2][BUFSIZ];
-
-    if((file->_file!=STDOUT_FILENO && file->_file!=STDERR_FILENO)
-            || (file->_flag & (_IONBF | _IOMYBUF | _USERBUF))
-            || !_isatty(file->_file))
-        return FALSE;
-
-    file->_ptr = file->_base = buffers[file->_file == STDOUT_FILENO ? 0 : 1];
-    file->_bufsiz = file->_cnt = BUFSIZ;
-    file->_flag |= _USERBUF;
-    return TRUE;
-}
-
-/* INTERNAL: Removes temporary buffer from stdout or stderr */
-/* Only call this function when add_std_buffer returned TRUE */
-static void remove_std_buffer(FILE *file)
-{
-    msvcrt_flush_buffer(file);
-    file->_ptr = file->_base = NULL;
-    file->_bufsiz = file->_cnt = 0;
-    file->_flag &= ~_USERBUF;
-}
-
-/* INTERNAL: Convert integer to base32 string (0-9a-v), 0 becomes "" */
-static int msvcrt_int_to_base32(int num, char *str)
-{
-  char *p;
-  int n = num;
-  int digits = 0;
-
-  while (n != 0)
-  {
-    n >>= 5;
-    digits++;
-  }
-  p = str + digits;
-  *p = 0;
-  while (--p >= str)
-  {
-    *p = (num & 31) + '0';
-    if (*p > '9')
-      *p += ('a' - '0' - 10);
-    num >>= 5;
-  }
-
-  return digits;
-}
-
-/* INTERNAL: wide character version of msvcrt_int_to_base32 */
-static int msvcrt_int_to_base32_w(int num, wchar_t *str)
-{
-    wchar_t *p;
-    int n = num;
-    int digits = 0;
-
-    while (n != 0)
-    {
-        n >>= 5;
-        digits++;
-    }
-    p = str + digits;
-    *p = 0;
-    while (--p >= str)
-    {
-        *p = (num & 31) + '0';
-        if (*p > '9')
-            *p += ('a' - '0' - 10);
-        num >>= 5;
-    }
-
-    return digits;
-}
-
-/* INTERNAL: Create a wide string from an ascii string */
-wchar_t *msvcrt_wstrdupa(const char *str)
-{
-  const unsigned int len = strlen(str) + 1 ;
-  wchar_t *wstr = malloc(len* sizeof (wchar_t));
-  if (!wstr)
-    return NULL;
-   MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED,str,len,wstr,len);
-  return wstr;
-}
-
-/*********************************************************************
- *		__iob_func(MSVCRT.@)
- */
-FILE * CDECL __iob_func(void)
-{
- return &_iob[0];
-}
-
-/*********************************************************************
- *		_access (MSVCRT.@)
- */
-int CDECL _access(const char *filename, int mode)
-{
-  DWORD attr = GetFileAttributesA(filename);
-
-  TRACE("(%s,%d) %d\n",filename,mode,attr);
-
-  if (!filename || attr == INVALID_FILE_ATTRIBUTES)
-  {
-    _dosmaperr(GetLastError());
-    return -1;
-  }
-  if ((attr & FILE_ATTRIBUTE_READONLY) && (mode & W_OK))
-  {
-    _set_errno(ERROR_ACCESS_DENIED);
-    return -1;
-  }
-  return 0;
-}
-
-/*********************************************************************
- *		_access_s (MSVCRT.@)
- */
-int CDECL _access_s(const char *filename, int mode)
-{
-  if (!MSVCRT_CHECK_PMT(filename != NULL) ||
-      !MSVCRT_CHECK_PMT((mode & ~(R_OK | W_OK)) == 0))
-  {
-     _set_errno(EINVAL);
-     return -1;
-  }
-
-  return _access(filename, mode);
-}
-
-/*********************************************************************
- *		_waccess (MSVCRT.@)
- */
-int CDECL _waccess(const wchar_t *filename, int mode)
-{
-  DWORD attr = GetFileAttributesW(filename);
-
-  TRACE("(%s,%d) %d\n",debugstr_w(filename),mode,attr);
-
-  if (!filename || attr == INVALID_FILE_ATTRIBUTES)
-  {
-    _dosmaperr(GetLastError());
-    return -1;
-  }
-  if ((attr & FILE_ATTRIBUTE_READONLY) && (mode & W_OK))
-  {
-    _set_errno(ERROR_ACCESS_DENIED);
-    return -1;
-  }
-  return 0;
-}
-
-/*********************************************************************
- *		_waccess_s (MSVCRT.@)
- */
-int CDECL _waccess_s(const wchar_t *filename, int mode)
-{
-  if (!MSVCRT_CHECK_PMT(filename != NULL) ||
-      !MSVCRT_CHECK_PMT((mode & ~(R_OK | W_OK)) == 0))
-  {
-     *_errno() = EINVAL;
-     return -1;
-  }
-
-  return _waccess(filename, mode);
-}
-
-/*********************************************************************
- *		_chmod (MSVCRT.@)
- */
-int CDECL _chmod(const char *path, int flags)
-{
-  DWORD oldFlags = GetFileAttributesA(path);
-
-  if (oldFlags != INVALID_FILE_ATTRIBUTES)
-  {
-    DWORD newFlags = (flags & _S_IWRITE)? oldFlags & ~FILE_ATTRIBUTE_READONLY:
-      oldFlags | FILE_ATTRIBUTE_READONLY;
-
-    if (newFlags == oldFlags || SetFileAttributesA(path, newFlags))
-      return 0;
-  }
-  _dosmaperr(GetLastError());
-  return -1;
-}
-
-/*********************************************************************
- *		_wchmod (MSVCRT.@)
- */
-int CDECL _wchmod(const wchar_t *path, int flags)
-{
-  DWORD oldFlags = GetFileAttributesW(path);
-
-  if (oldFlags != INVALID_FILE_ATTRIBUTES)
-  {
-    DWORD newFlags = (flags & _S_IWRITE)? oldFlags & ~FILE_ATTRIBUTE_READONLY:
-      oldFlags | FILE_ATTRIBUTE_READONLY;
-
-    if (newFlags == oldFlags || SetFileAttributesW(path, newFlags))
-      return 0;
-  }
-  _dosmaperr(GetLastError());
-  return -1;
-}
-
-/*********************************************************************
- *		_unlink (MSVCRT.@)
- */
-int CDECL _unlink(const char *path)
-{
-  TRACE("%s\n",debugstr_a(path));
-  if(DeleteFileA(path))
-    return 0;
-  TRACE("failed (%d)\n",GetLastError());
-  _dosmaperr(GetLastError());
-  return -1;
-}
-
-/*********************************************************************
- *		_wunlink (MSVCRT.@)
- */
-int CDECL _wunlink(const wchar_t *path)
-{
-  TRACE("(%s)\n",debugstr_w(path));
-  if(DeleteFileW(path))
-    return 0;
-  TRACE("failed (%d)\n",GetLastError());
-  _dosmaperr(GetLastError());
-  return -1;
-}
-
-/*********************************************************************
- *		_commit (MSVCRT.@)
- */
-int CDECL _commit(int fd)
-{
-    ioinfo *info = get_ioinfo(fd);
-    int ret;
-
-    TRACE(":fd (%d) handle (%p)\n", fd, info->handle);
-
-    if (info->handle == INVALID_HANDLE_VALUE)
-        ret = -1;
-    else if (!FlushFileBuffers(info->handle))
-    {
-        if (GetLastError() == ERROR_INVALID_HANDLE)
-        {
-            /* FlushFileBuffers fails for console handles
-             * so we ignore this error.
-             */
-            ret = 0;
-        }
-        else
-        {
-            TRACE(":failed-last error (%d)\n",GetLastError());
-            _dosmaperr(GetLastError());
-            ret = -1;
-        }
-    }
-    else
-    {
-        TRACE(":ok\n");
-        ret = 0;
-    }
-
-    release_ioinfo(info);
-    return ret;
-}
-
-/* _flushall calls fflush which calls _flushall */
-int CDECL fflush(FILE* file);
-
-/* INTERNAL: Flush all stream buffer */
-static int msvcrt_flush_all_buffers(int mask)
-{
-  int i, num_flushed = 0;
-  FILE *file;
-
-  LOCK_FILES();
-  for (i = 0; i < MSVCRT_stream_idx; i++) {
-    file = msvcrt_get_file(i);
-
-    if (file->_flag)
-    {
-      if(file->_flag & mask) {
-	fflush(file);
-        num_flushed++;
-      }
-    }
-  }
-  UNLOCK_FILES();
-
-  TRACE(":flushed (%d) handles\n",num_flushed);
-  return num_flushed;
-}
-
-/*********************************************************************
- *		_flushall (MSVCRT.@)
- */
-int CDECL _flushall(void)
-{
-    return msvcrt_flush_all_buffers(_IOWRT | _IOREAD);
-}
-
-/*********************************************************************
- *		fflush (MSVCRT.@)
- */
-int CDECL fflush(FILE* file)
-{
-    if(!file) {
-        msvcrt_flush_all_buffers(_IOWRT);
-    } else if(file->_flag & _IOWRT) {
-        int res;
-
-        _lock_file(file);
-        res = msvcrt_flush_buffer(file);
-        /* FIXME
-        if(!res && (file->_flag & _IOCOMMIT))
-            res = _commit(file->_file) ? EOF : 0;
-        */
-        _unlock_file(file);
-
-        return res;
-    } else if(file->_flag & _IOREAD) {
-        _lock_file(file);
-        file->_cnt = 0;
-        file->_ptr = file->_base;
-        _unlock_file(file);
-
-        return 0;
-    }
-    return 0;
-}
-
-/*********************************************************************
- *		_close (MSVCRT.@)
- */
-int CDECL _close(int fd)
-{
-  ioinfo *info = get_ioinfo(fd);
-  int ret;
-
-  TRACE(":fd (%d) handle (%p)\n", fd, info->handle);
-  if (!(info->wxflag & WX_OPEN)) {
-    ret = -1;
-  } else if (fd == STDOUT_FILENO &&
-          info->handle == get_ioinfo_nolock(STDERR_FILENO)->handle) {
-    msvcrt_free_fd(fd);
-    ret = 0;
-  } else if (fd == STDERR_FILENO &&
-          info->handle == get_ioinfo_nolock(STDOUT_FILENO)->handle) {
-    msvcrt_free_fd(fd);
-    ret = 0;
-  } else {
-    ret = CloseHandle(info->handle) ? 0 : -1;
-    msvcrt_free_fd(fd);
-    if (ret) {
-      WARN(":failed-last error (%d)\n",GetLastError());
-      _dosmaperr(GetLastError());
-      ret = -1;
-    }
-  }
-  release_ioinfo(info);
-  return ret;
-}
-
-/*********************************************************************
- *		_dup2 (MSVCRT.@)
- * NOTES
- * MSDN isn't clear on this point, but the remarks for _pipe
- * indicate file descriptors duplicated with _dup and _dup2 are always
- * inheritable.
- */
-int CDECL _dup2(int od, int nd)
-{
-  ioinfo *info_od, *info_nd;
-  int ret;
-
-  TRACE("(od=%d, nd=%d)\n", od, nd);
-
-  if (od < nd)
-  {
-    info_od = get_ioinfo(od);
-    info_nd = get_ioinfo_alloc_fd(nd);
-  }
-  else
-  {
-    info_nd = get_ioinfo_alloc_fd(nd);
-    info_od = get_ioinfo(od);
-  }
-
-  if (info_nd == &__badioinfo)
-  {
-      ret = -1;
-  }
-  else if (info_od->wxflag & WX_OPEN)
-  {
-    HANDLE handle;
-
-    if (DuplicateHandle(GetCurrentProcess(), info_od->handle,
-     GetCurrentProcess(), &handle, 0, TRUE, DUPLICATE_SAME_ACCESS))
-    {
-      int wxflag = info_od->wxflag & ~WX_DONTINHERIT;
-
-      if (info_nd->wxflag & WX_OPEN)
-        _close(nd);
-
-      msvcrt_set_fd(info_nd, handle, wxflag);
-      /* _dup2 returns 0, not nd, on success */
-      ret = 0;
-    }
-    else
-    {
-      ret = -1;
-      _dosmaperr(GetLastError());
-    }
-  }
-  else
-  {
-    *_errno() = EBADF;
-    ret = -1;
-  }
-
-  release_ioinfo(info_od);
-  release_ioinfo(info_nd);
-  return ret;
-}
-
-/*********************************************************************
- *		_dup (MSVCRT.@)
- */
-int CDECL _dup(int od)
-{
-  int fd, ret;
-  ioinfo *info = get_ioinfo_alloc(&fd);
-
-  if (_dup2(od, fd) == 0)
-    ret = fd;
-  else
-    ret = -1;
-  release_ioinfo(info);
-  return ret;
-}
-
-/*********************************************************************
- *		_eof (MSVCRT.@)
- */
-int CDECL _eof(int fd)
-{
-  ioinfo *info = get_ioinfo(fd);
-  DWORD curpos,endpos;
-  LONG hcurpos,hendpos;
-
-  TRACE(":fd (%d) handle (%p)\n", fd, info->handle);
-
-  if (info->handle == INVALID_HANDLE_VALUE)
-  {
-    release_ioinfo(info);
-    return -1;
-  }
-
-  if (info->wxflag & WX_ATEOF)
-  {
-      release_ioinfo(info);
-      return TRUE;
-  }
-
-  /* Otherwise we do it the hard way */
-  hcurpos = hendpos = 0;
-  curpos = SetFilePointer(info->handle, 0, &hcurpos, FILE_CURRENT);
-  endpos = SetFilePointer(info->handle, 0, &hendpos, FILE_END);
-
-  if (curpos == endpos && hcurpos == hendpos)
-  {
-    /* FIXME: shouldn't WX_ATEOF be set here? */
-    release_ioinfo(info);
-    return TRUE;
-  }
-
-  SetFilePointer(info->handle, curpos, &hcurpos, FILE_BEGIN);
-  release_ioinfo(info);
-  return FALSE;
-}
-
-/*********************************************************************
- *		_fcloseall (MSVCRT.@)
- */
-int CDECL _fcloseall(void)
-{
-  int num_closed = 0, i;
-  FILE *file;
-
-  LOCK_FILES();
-  for (i = 3; i < MSVCRT_stream_idx; i++) {
-    file = msvcrt_get_file(i);
-
-    if (file->_flag && !fclose(file))
-      num_closed++;
-  }
-  UNLOCK_FILES();
-
-  TRACE(":closed (%d) handles\n",num_closed);
-  return num_closed;
-}
-
-/* free everything on process exit */
-void msvcrt_free_io(void)
-{
-    unsigned int i;
-    int j;
-
-    _flushall();
-    _fcloseall();
-
-    for(i=0; i<sizeof(__pioinfo)/sizeof(__pioinfo[0]); i++)
-    {
-        if(!__pioinfo[i])
-            continue;
-
-        for(j=0; j<MSVCRT_FD_BLOCK_SIZE; j++)
-        {
-            if(__pioinfo[i][j].exflag & EF_CRIT_INIT)
-                DeleteCriticalSection(&__pioinfo[i][j].crit);
-        }
-        free(__pioinfo[i]);
-    }
-
-    for(j=0; j<MSVCRT_stream_idx; j++)
-    {
-        FILE *file = msvcrt_get_file(j);
-        if(file<_iob || file>=_iob+_IOB_ENTRIES)
-        {
-            ((file_crit*)file)->crit.DebugInfo->Spare[0] = 0;
-            DeleteCriticalSection(&((file_crit*)file)->crit);
-        }
-    }
-
-    for(i=0; i<sizeof(MSVCRT_fstream)/sizeof(MSVCRT_fstream[0]); i++)
-        free(MSVCRT_fstream[i]);
-}
-
-/*********************************************************************
- *		_lseeki64 (MSVCRT.@)
- */
-__int64 CDECL _lseeki64(int fd, __int64 offset, int whence)
-{
-  ioinfo *info = get_ioinfo(fd);
-  LARGE_INTEGER ofs;
-
-  TRACE(":fd (%d) handle (%p)\n", fd, info->handle);
-
-  if (info->handle == INVALID_HANDLE_VALUE)
-  {
-    release_ioinfo(info);
-    return -1;
-  }
-
-  if (whence < 0 || whence > 2)
-  {
-    release_ioinfo(info);
-    *_errno() = EINVAL;
-    return -1;
-  }
-
-  TRACE(":fd (%d) to %s pos %s\n",
-        fd,wine_dbgstr_longlong(offset),
-        (whence==SEEK_SET)?"SEEK_SET":
-        (whence==SEEK_CUR)?"SEEK_CUR":
-        (whence==SEEK_END)?"SEEK_END":"UNKNOWN");
-
-  /* The MoleBox protection scheme expects msvcrt to use SetFilePointer only,
-   * so a LARGE_INTEGER offset cannot be passed directly via SetFilePointerEx. */
-  ofs.QuadPart = offset;
-  if ((ofs.u.LowPart = SetFilePointer(info->handle, ofs.u.LowPart, &ofs.u.HighPart, whence)) != INVALID_SET_FILE_POINTER ||
-      GetLastError() == ERROR_SUCCESS)
-  {
-    info->wxflag &= ~(WX_ATEOF|WX_READEOF);
-    /* FIXME: What if we seek _to_ EOF - is EOF set? */
-
-    release_ioinfo(info);
-    return ofs.QuadPart;
-  }
-  release_ioinfo(info);
-  TRACE(":error-last error (%d)\n",GetLastError());
-  _dosmaperr(GetLastError());
-  return -1;
-}
-
-/*********************************************************************
- *		_lseek (MSVCRT.@)
- */
-LONG CDECL _lseek(int fd, LONG offset, int whence)
-{
-    return (LONG)_lseeki64(fd, offset, whence);
-}
-
-/*********************************************************************
- *              _lock_file (MSVCRT.@)
- */
-void CDECL _lock_file(FILE *file)
-{
-    if(file>=_iob && file<_iob+_IOB_ENTRIES)
-        _lock(_STREAM_LOCKS+(file-_iob));
-    /* ReactOS: string streams dont need to be locked */
-    else if(!(file->_flag & _IOSTRG))
-        EnterCriticalSection(&((file_crit*)file)->crit);
-}
-
-/*********************************************************************
- *              _unlock_file (MSVCRT.@)
- */
-void CDECL _unlock_file(FILE *file)
-{
-    if(file>=_iob && file<_iob+_IOB_ENTRIES)
-        _unlock(_STREAM_LOCKS+(file-_iob));
-    /* ReactOS: string streams dont need to be locked */
-    else if(!(file->_flag & _IOSTRG))
-        LeaveCriticalSection(&((file_crit*)file)->crit);
-
-}
-
-/*********************************************************************
- *		_locking (MSVCRT.@)
- *
- * This is untested; the underlying LockFile doesn't work yet.
- */
-int CDECL _locking(int fd, int mode, LONG nbytes)
-{
-  ioinfo *info = get_ioinfo(fd);
-  BOOL ret;
-  DWORD cur_locn;
-
-  TRACE(":fd (%d) handle (%p)\n", fd, info->handle);
-  if (info->handle == INVALID_HANDLE_VALUE)
-  {
-    release_ioinfo(info);
-    return -1;
-  }
-
-  if (mode < 0 || mode > 4)
-  {
-    release_ioinfo(info);
-    *_errno() = EINVAL;
-    return -1;
-  }
-
-  TRACE(":fd (%d) by 0x%08x mode %s\n",
-        fd,nbytes,(mode==_LK_UNLCK)?"_LK_UNLCK":
-        (mode==_LK_LOCK)?"_LK_LOCK":
-        (mode==_LK_NBLCK)?"_LK_NBLCK":
-        (mode==_LK_RLCK)?"_LK_RLCK":
-        (mode==_LK_NBRLCK)?"_LK_NBRLCK":
-                          "UNKNOWN");
-
-  if ((cur_locn = SetFilePointer(info->handle, 0L, NULL, FILE_CURRENT)) == INVALID_SET_FILE_POINTER)
-  {
-    release_ioinfo(info);
-    FIXME ("Seek failed\n");
-    *_errno() = EINVAL; /* FIXME */
-    return -1;
-  }
-  if (mode == _LK_LOCK || mode == _LK_RLCK)
-  {
-    int nretry = 10;
-    ret = 1; /* just to satisfy gcc */
-    while (nretry--)
-    {
-      ret = LockFile(info->handle, cur_locn, 0L, nbytes, 0L);
-      if (ret) break;
-      Sleep(1);
-    }
-  }
-  else if (mode == _LK_UNLCK)
-    ret = UnlockFile(info->handle, cur_locn, 0L, nbytes, 0L);
-  else
-    ret = LockFile(info->handle, cur_locn, 0L, nbytes, 0L);
-  /* FIXME - what about error settings? */
-  release_ioinfo(info);
-  return ret ? 0 : -1;
-}
-
-/*********************************************************************
- *		_fseeki64 (MSVCRT.@)
- */
-int CDECL _fseeki64(FILE* file, __int64 offset, int whence)
-{
-  int ret;
-
-  _lock_file(file);
-  /* Flush output if needed */
-  if(file->_flag & _IOWRT)
-	msvcrt_flush_buffer(file);
-
-  if(whence == SEEK_CUR && file->_flag & _IOREAD ) {
-      whence = SEEK_SET;
-      offset += _ftelli64(file);
-  }
-
-  /* Discard buffered input */
-  file->_cnt = 0;
-  file->_ptr = file->_base;
-  /* Reset direction of i/o */
-  if(file->_flag & _IORW) {
-        file->_flag &= ~(_IOREAD|_IOWRT);
-  }
-  /* Clear end of file flag */
-  file->_flag &= ~_IOEOF;
-  ret = (_lseeki64(file->_file,offset,whence) == -1)?-1:0;
-
-  _unlock_file(file);
-  return ret;
-}
-
-/*********************************************************************
- *		fseek (MSVCRT.@)
- */
-int CDECL fseek(FILE* file, long offset, int whence)
-{
-    return _fseeki64( file, offset, whence );
-}
-
-/*********************************************************************
- *		_chsize_s (MSVCRT.@)
- */
-int CDECL _chsize_s(int fd, __int64 size)
-{
-    ioinfo *info;
-    __int64 cur, pos;
-    BOOL ret = FALSE;
-
-    TRACE("(fd=%d, size=%s)\n", fd, wine_dbgstr_longlong(size));
-
-    if (!MSVCRT_CHECK_PMT(size >= 0)) return EINVAL;
-
-    info = get_ioinfo(fd);
-    if (info->handle != INVALID_HANDLE_VALUE)
-    {
-        /* save the current file pointer */
-        cur = _lseeki64(fd, 0, SEEK_CUR);
-        if (cur >= 0)
-        {
-            pos = _lseeki64(fd, size, SEEK_SET);
-            if (pos >= 0)
-            {
-                ret = SetEndOfFile(info->handle);
-                if (!ret) _dosmaperr(GetLastError());
-            }
-
-            /* restore the file pointer */
-            _lseeki64(fd, cur, SEEK_SET);
-        }
-    }
-
-    release_ioinfo(info);
-    return ret ? 0 : *_errno();
-}
-
-/*********************************************************************
- *		_chsize (MSVCRT.@)
- */
-int CDECL _chsize(int fd, long size)
-{
-    /* _chsize_s returns errno on failure but _chsize should return -1 */
-    return _chsize_s( fd, size ) == 0 ? 0 : -1;
-}
-
-/*********************************************************************
- *		clearerr (MSVCRT.@)
- */
-void CDECL clearerr(FILE* file)
-{
-  TRACE(":file (%p) fd (%d)\n",file,file->_file);
-
-  _lock_file(file);
-  file->_flag &= ~(_IOERR | _IOEOF);
-  _unlock_file(file);
-}
-
-/*********************************************************************
- *		rewind (MSVCRT.@)
- */
-void CDECL rewind(FILE* file)
-{
-  TRACE(":file (%p) fd (%d)\n",file,file->_file);
-
-  _lock_file(file);
-  fseek(file, 0L, SEEK_SET);
-  clearerr(file);
-  _unlock_file(file);
-}
-
-static int msvcrt_get_flags(const wchar_t* mode, int *open_flags, int* stream_flags)
-{
-  int plus = strchrW(mode, '+') != NULL;
-
-  TRACE("%s\n", debugstr_w(mode));
-
-  while(*mode == ' ') mode++;
-
-  switch(*mode++)
-  {
-  case 'R': case 'r':
-    *open_flags = plus ? _O_RDWR : _O_RDONLY;
-    *stream_flags = plus ? _IORW : _IOREAD;
-    break;
-  case 'W': case 'w':
-    *open_flags = _O_CREAT | _O_TRUNC | (plus  ? _O_RDWR : _O_WRONLY);
-    *stream_flags = plus ? _IORW : _IOWRT;
-    break;
-  case 'A': case 'a':
-    *open_flags = _O_CREAT | _O_APPEND | (plus  ? _O_RDWR : _O_WRONLY);
-    *stream_flags = plus ? _IORW : _IOWRT;
-    break;
-  default:
-    MSVCRT_INVALID_PMT(0, EINVAL);
-    return -1;
-  }
-
-  *stream_flags |= _commode;
-
-  while (*mode && *mode!=',')
-    switch (*mode++)
-    {
-    case 'B': case 'b':
-      *open_flags |=  _O_BINARY;
-      *open_flags &= ~_O_TEXT;
-      break;
-    case 't':
-      *open_flags |=  _O_TEXT;
-      *open_flags &= ~_O_BINARY;
-      break;
-    case 'D':
-      *open_flags |= _O_TEMPORARY;
-      break;
-    case 'T':
-      *open_flags |= _O_SHORT_LIVED;
-      break;
-    case 'c':
-      *stream_flags |= _IOCOMMIT;
-      break;
-    case 'n':
-      *stream_flags &= ~_IOCOMMIT;
-      break;
-    case 'N':
-      *open_flags |= _O_NOINHERIT;
-      break;
-    case '+':
-    case ' ':
-    case 'a':
-    case 'w':
-      break;
-    case 'S':
-    case 'R':
-      FIXME("ignoring cache optimization flag: %c\n", mode[-1]);
-      break;
-    default:
-      ERR("incorrect mode flag: %c\n", mode[-1]);
-      break;
-    }
-
-  if(*mode == ',')
-  {
-    static const WCHAR ccs[] = {'c','c','s'};
-    static const WCHAR utf8[] = {'u','t','f','-','8'};
-    static const WCHAR utf16le[] = {'u','t','f','-','1','6','l','e'};
-    static const WCHAR unicode[] = {'u','n','i','c','o','d','e'};
-
-    mode++;
-    while(*mode == ' ') mode++;
-    if(!MSVCRT_CHECK_PMT(!strncmpW(ccs, mode, sizeof(ccs)/sizeof(ccs[0]))))
-      return -1;
-    mode += sizeof(ccs)/sizeof(ccs[0]);
-    while(*mode == ' ') mode++;
-    if(!MSVCRT_CHECK_PMT(*mode == '='))
-        return -1;
-    mode++;
-    while(*mode == ' ') mode++;
-
-    if(!strncmpiW(utf8, mode, sizeof(utf8)/sizeof(utf8[0])))
-    {
-      *open_flags |= _O_U8TEXT;
-      mode += sizeof(utf8)/sizeof(utf8[0]);
-    }
-    else if(!strncmpiW(utf16le, mode, sizeof(utf16le)/sizeof(utf16le[0])))
-    {
-      *open_flags |= _O_U16TEXT;
-      mode += sizeof(utf16le)/sizeof(utf16le[0]);
-    }
-    else if(!strncmpiW(unicode, mode, sizeof(unicode)/sizeof(unicode[0])))
-    {
-      *open_flags |= _O_WTEXT;
-      mode += sizeof(unicode)/sizeof(unicode[0]);
-    }
-    else
-    {
-      MSVCRT_INVALID_PMT(0, EINVAL);
-      return -1;
-    }
-
-    while(*mode == ' ') mode++;
-  }
-
-  if(!MSVCRT_CHECK_PMT(*mode == 0))
-    return -1;
-  return 0;
-}
-
-/*********************************************************************
- *		_fdopen (MSVCRT.@)
- */
-FILE* CDECL _fdopen(int fd, const char *mode)
-{
-    FILE *ret;
-    wchar_t *modeW = NULL;
-
-    if (mode && !(modeW = msvcrt_wstrdupa(mode))) return NULL;
-
-    ret = _wfdopen(fd, modeW);
-
-    free(modeW);
-    return ret;
-}
-
-/*********************************************************************
- *		_wfdopen (MSVCRT.@)
- */
-FILE* CDECL _wfdopen(int fd, const wchar_t *mode)
-{
-  int open_flags, stream_flags;
-  FILE* file;
-
-  if (msvcrt_get_flags(mode, &open_flags, &stream_flags) == -1) return NULL;
-
-  LOCK_FILES();
-  if (!(file = msvcrt_alloc_fp()))
-    file = NULL;
-  else if (msvcrt_init_fp(file, fd, stream_flags) == -1)
-  {
-    file->_flag = 0;
-    file = NULL;
-  }
-  else TRACE(":fd (%d) mode (%s) FILE* (%p)\n", fd, debugstr_w(mode), file);
-  UNLOCK_FILES();
-
-  return file;
-}
-
-/*********************************************************************
- *		_filelength (MSVCRT.@)
- */
-LONG CDECL _filelength(int fd)
-{
-  LONG curPos = _lseek(fd, 0, SEEK_CUR);
-  if (curPos != -1)
-  {
-    LONG endPos = _lseek(fd, 0, SEEK_END);
-    if (endPos != -1)
-    {
-      if (endPos != curPos)
-        _lseek(fd, curPos, SEEK_SET);
-      return endPos;
-    }
-  }
-  return -1;
-}
-
-/*********************************************************************
- *		_filelengthi64 (MSVCRT.@)
- */
-__int64 CDECL _filelengthi64(int fd)
-{
-  __int64 curPos = _lseeki64(fd, 0, SEEK_CUR);
-  if (curPos != -1)
-  {
-    __int64 endPos = _lseeki64(fd, 0, SEEK_END);
-    if (endPos != -1)
-    {
-      if (endPos != curPos)
-        _lseeki64(fd, curPos, SEEK_SET);
-      return endPos;
-    }
-  }
-  return -1;
-}
-
-/*********************************************************************
- *		_fileno (MSVCRT.@)
- */
-int CDECL _fileno(FILE* file)
-{
-  TRACE(":FILE* (%p) fd (%d)\n",file,file->_file);
-  return file->_file;
-}
-
-/*********************************************************************
- *		_get_osfhandle (MSVCRT.@)
- */
-intptr_t CDECL _get_osfhandle(int fd)
-{
-  HANDLE hand = get_ioinfo_nolock(fd)->handle;
-  TRACE(":fd (%d) handle (%p)\n",fd,hand);
-
-  if(hand == INVALID_HANDLE_VALUE)
-      *_errno() = EBADF;
-  return (intptr_t)hand;
-}
-
-/*********************************************************************
- *		_mktemp (MSVCRT.@)
- */
-char * CDECL _mktemp(char *pattern)
-{
-  int numX = 0;
-  char *retVal = pattern;
-  int id;
-  char letter = 'a';
-
-  if(!pattern)
-      return NULL;
-
-  while(*pattern)
-    numX = (*pattern++ == 'X')? numX + 1 : 0;
-  if (numX < 6)
-    return NULL;
-  pattern--;
-  id = GetCurrentProcessId();
-  numX = 6;
-  while(numX--)
-  {
-    int tempNum = id / 10;
-    *pattern-- = id - (tempNum * 10) + '0';
-    id = tempNum;
-  }
-  pattern++;
-  do
-  {
-    *pattern = letter++;
-    if (GetFileAttributesA(retVal) == INVALID_FILE_ATTRIBUTES)
-      return retVal;
-  } while(letter <= 'z');
-  return NULL;
-}
-
-/*********************************************************************
- *		_wmktemp (MSVCRT.@)
- */
-wchar_t * CDECL _wmktemp(wchar_t *pattern)
-{
-  int numX = 0;
-  wchar_t *retVal = pattern;
-  int id;
-  wchar_t letter = 'a';
-
-  while(*pattern)
-    numX = (*pattern++ == 'X')? numX + 1 : 0;
-  if (numX < 5)
-    return NULL;
-  pattern--;
-  id = GetCurrentProcessId();
-  numX = 6;
-  while(numX--)
-  {
-    int tempNum = id / 10;
-    *pattern-- = id - (tempNum * 10) + '0';
-    id = tempNum;
-  }
-  pattern++;
-  do
-  {
-    if (GetFileAttributesW(retVal) == INVALID_FILE_ATTRIBUTES &&
-        GetLastError() == ERROR_FILE_NOT_FOUND)
-      return retVal;
-    *pattern = letter++;
-  } while(letter != '|');
-  return NULL;
-}
-
-/*static*/ unsigned split_oflags(unsigned oflags)
-{
-    int wxflags = 0;
-    unsigned unsupp; /* until we support everything */
-
-    if (oflags & _O_APPEND)              wxflags |= WX_APPEND;
-    if (oflags & _O_BINARY)              {/* Nothing to do */}
-    else if (oflags & _O_TEXT)           wxflags |= WX_TEXT;
-    else if (oflags & _O_WTEXT)          wxflags |= WX_TEXT;
-    else if (oflags & _O_U16TEXT)        wxflags |= WX_TEXT;
-    else if (oflags & _O_U8TEXT)         wxflags |= WX_TEXT;
-    else if (*__p__fmode() & _O_BINARY)  {/* Nothing to do */}
-    else                                        wxflags |= WX_TEXT; /* default to TEXT*/
-    if (oflags & _O_NOINHERIT)           wxflags |= WX_DONTINHERIT;
-
-    if ((unsupp = oflags & ~(
-                    _O_BINARY|_O_TEXT|_O_APPEND|
-                    _O_TRUNC|_O_EXCL|_O_CREAT|
-                    _O_RDWR|_O_WRONLY|_O_TEMPORARY|
-                    _O_NOINHERIT|
-                    _O_SEQUENTIAL|_O_RANDOM|_O_SHORT_LIVED|
-                    _O_WTEXT|_O_U16TEXT|_O_U8TEXT
-                    )))
-        ERR(":unsupported oflags 0x%04x\n",unsupp);
-
-    return wxflags;
-}
-
-/*********************************************************************
- *              _pipe (MSVCRT.@)
- */
-int CDECL _pipe(int *pfds, unsigned int psize, int textmode)
-{
-  int ret = -1;
-  SECURITY_ATTRIBUTES sa;
-  HANDLE readHandle, writeHandle;
-
-  if (!pfds)
-  {
-    *_errno() = EINVAL;
-    return -1;
-  }
-
-  sa.nLength = sizeof(SECURITY_ATTRIBUTES);
-  sa.bInheritHandle = !(textmode & _O_NOINHERIT);
-  sa.lpSecurityDescriptor = NULL;
-  if (CreatePipe(&readHandle, &writeHandle, &sa, psize))
-  {
-    unsigned int wxflags = split_oflags(textmode);
-    int fd;
-
-    fd = msvcrt_alloc_fd(readHandle, wxflags);
-    if (fd != -1)
-    {
-      pfds[0] = fd;
-      fd = msvcrt_alloc_fd(writeHandle, wxflags);
-      if (fd != -1)
-      {
-        pfds[1] = fd;
-        ret = 0;
-      }
-      else
-      {
-        _close(pfds[0]);
-        CloseHandle(writeHandle);
-        *_errno() = EMFILE;
-      }
-    }
-    else
-    {
-      CloseHandle(readHandle);
-      CloseHandle(writeHandle);
-      *_errno() = EMFILE;
-    }
-  }
-  else
-    _dosmaperr(GetLastError());
-
-  return ret;
-}
-
-static int check_bom(HANDLE h, int oflags, BOOL seek)
-{
-    char bom[sizeof(utf8_bom)];
-    DWORD r;
-
-    oflags &= ~(_O_WTEXT|_O_U16TEXT|_O_U8TEXT);
-
-    if (!ReadFile(h, bom, sizeof(utf8_bom), &r, NULL))
-        return oflags;
-
-    if (r==sizeof(utf8_bom) && !memcmp(bom, utf8_bom, sizeof(utf8_bom))) {
-        oflags |= _O_U8TEXT;
-    }else if (r>=sizeof(utf16_bom) && !memcmp(bom, utf16_bom, sizeof(utf16_bom))) {
-        if (seek && r>2)
-            SetFilePointer(h, 2, NULL, FILE_BEGIN);
-        oflags |= _O_U16TEXT;
-    }else if (seek) {
-        SetFilePointer(h, 0, NULL, FILE_BEGIN);
-    }
-
-    return oflags;
-}
-
-/*********************************************************************
- *              _wsopen_s (MSVCRT.@)
- */
-int CDECL _wsopen_s( int *fd, const wchar_t* path, int oflags, int shflags, int pmode )
-{
-  DWORD access = 0, creation = 0, attrib;
-  SECURITY_ATTRIBUTES sa;
-  DWORD sharing, type;
-  int wxflag;
-  HANDLE hand;
-
-  TRACE("fd*: %p :file (%s) oflags: 0x%04x shflags: 0x%04x pmode: 0x%04x\n",
-        fd, debugstr_w(path), oflags, shflags, pmode);
-
-  if (!MSVCRT_CHECK_PMT( fd != NULL )) return EINVAL;
-
-  *fd = -1;
-  wxflag = split_oflags(oflags);
-  switch (oflags & (_O_RDONLY | _O_WRONLY | _O_RDWR))
-  {
-  case _O_RDONLY: access |= GENERIC_READ; break;
-  case _O_WRONLY: access |= GENERIC_WRITE; break;
-  case _O_RDWR:   access |= GENERIC_WRITE | GENERIC_READ; break;
-  }
-
-  if (oflags & _O_CREAT)
-  {
-    if(pmode & ~(_S_IREAD | _S_IWRITE))
-      FIXME(": pmode 0x%04x ignored\n", pmode);
-    else
-      WARN(": pmode 0x%04x ignored\n", pmode);
-
-    if (oflags & _O_EXCL)
-      creation = CREATE_NEW;
-    else if (oflags & _O_TRUNC)
-      creation = CREATE_ALWAYS;
-    else
-      creation = OPEN_ALWAYS;
-  }
-  else  /* no _O_CREAT */
-  {
-    if (oflags & _O_TRUNC)
-      creation = TRUNCATE_EXISTING;
-    else
-      creation = OPEN_EXISTING;
-  }
-
-  switch( shflags )
-  {
-    case _SH_DENYRW:
-      sharing = 0L;
-      break;
-    case _SH_DENYWR:
-      sharing = FILE_SHARE_READ;
-      break;
-    case _SH_DENYRD:
-      sharing = FILE_SHARE_WRITE;
-      break;
-    case _SH_DENYNO:
-      sharing = FILE_SHARE_READ | FILE_SHARE_WRITE;
-      break;
-    default:
-      ERR( "Unhandled shflags 0x%x\n", shflags );
-      return EINVAL;
-  }
-  attrib = FILE_ATTRIBUTE_NORMAL;
-
-  if (oflags & _O_TEMPORARY)
-  {
-      attrib |= FILE_FLAG_DELETE_ON_CLOSE;
-      access |= DELETE;
-      sharing |= FILE_SHARE_DELETE;
-  }
-
-  sa.nLength              = sizeof( SECURITY_ATTRIBUTES );
-  sa.lpSecurityDescriptor = NULL;
-  sa.bInheritHandle       = !(oflags & _O_NOINHERIT);
-
-  if ((oflags&(_O_WTEXT|_O_U16TEXT|_O_U8TEXT))
-          && (creation==OPEN_ALWAYS || creation==OPEN_EXISTING)
-          && !(access&GENERIC_READ))
-  {
-      hand = CreateFileW(path, GENERIC_READ, FILE_SHARE_READ|FILE_SHARE_WRITE,
-              &sa, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
-      if (hand != INVALID_HANDLE_VALUE)
-      {
-          oflags = check_bom(hand, oflags, FALSE);
-          CloseHandle(hand);
-      }
-      else
-          oflags &= ~(_O_WTEXT|_O_U16TEXT|_O_U8TEXT);
-  }
-
-  hand = CreateFileW(path, access, sharing, &sa, creation, attrib, 0);
-  if (hand == INVALID_HANDLE_VALUE)  {
-    WARN(":failed-last error (%d)\n",GetLastError());
-    _dosmaperr(GetLastError());
-    return *_errno();
-  }
-
-  if (oflags & (_O_WTEXT | _O_U16TEXT | _O_U8TEXT))
-  {
-      if ((access & GENERIC_WRITE) && (creation==CREATE_NEW
-                  || creation==CREATE_ALWAYS || creation==TRUNCATE_EXISTING
-                  || (creation==OPEN_ALWAYS && GetLastError()==ERROR_ALREADY_EXISTS)))
-      {
-          if (oflags & _O_U8TEXT)
-          {
-              DWORD written = 0, tmp;
-
-              while(written!=sizeof(utf8_bom) && WriteFile(hand, (char*)utf8_bom+written,
-                          sizeof(utf8_bom)-written, &tmp, NULL))
-                  written += tmp;
-              if (written != sizeof(utf8_bom)) {
-                  WARN("error writing BOM\n");
-                  CloseHandle(hand);
-                  _dosmaperr(GetLastError());
-                  return *_errno();
-              }
-          }
-          else
-          {
-              DWORD written = 0, tmp;
-
-              while(written!=sizeof(utf16_bom) && WriteFile(hand, (char*)utf16_bom+written,
-                          sizeof(utf16_bom)-written, &tmp, NULL))
-                  written += tmp;
-              if (written != sizeof(utf16_bom))
-              {
-                  WARN("error writing BOM\n");
-                  CloseHandle(hand);
-                  _dosmaperr(GetLastError());
-                  return *_errno();
-              }
-          }
-      }
-      else if (access & GENERIC_READ)
-          oflags = check_bom(hand, oflags, TRUE);
-  }
-
-  type = GetFileType(hand);
-  if (type == FILE_TYPE_CHAR)
-      wxflag |= WX_TTY;
-  else if (type == FILE_TYPE_PIPE)
-      wxflag |= WX_PIPE;
-
-  *fd = msvcrt_alloc_fd(hand, wxflag);
-  if (*fd == -1)
-      return *_errno();
-
-  if (oflags & _O_WTEXT)
-      get_ioinfo_nolock(*fd)->exflag |= EF_UTF16|EF_UNK_UNICODE;
-  else if (oflags & _O_U16TEXT)
-      get_ioinfo_nolock(*fd)->exflag |= EF_UTF16;
-  else if (oflags & _O_U8TEXT)
-      get_ioinfo_nolock(*fd)->exflag |= EF_UTF8;
-
-  TRACE(":fd (%d) handle (%p)\n", *fd, hand);
-  return 0;
-}
-
-/*********************************************************************
- *              _wsopen (MSVCRT.@)
- */
-int CDECL _wsopen( const wchar_t *path, int oflags, int shflags, ... )
-{
-  int pmode;
-  int fd;
-
-  if (oflags & _O_CREAT)
-  {
-    __ms_va_list ap;
-
-    __ms_va_start(ap, shflags);
-    pmode = va_arg(ap, int);
-    __ms_va_end(ap);
-  }
-  else
-    pmode = 0;
-
-  _wsopen_s(&fd, path, oflags, shflags, pmode);
-  return fd;
-}
-
-/*********************************************************************
- *              _sopen_s (MSVCRT.@)
- */
-int CDECL _sopen_s( int *fd, const char *path, int oflags, int shflags, int pmode )
-{
-    wchar_t *pathW;
-    int ret;
-
-    if(!MSVCRT_CHECK_PMT(path && (pathW = msvcrt_wstrdupa(path))))
-        return EINVAL;
-
-    ret = _wsopen_s(fd, pathW, oflags, shflags, pmode);
-    free(pathW);
-    return ret;
-}
-
-/*********************************************************************
- *              _sopen (MSVCRT.@)
- */
-int CDECL _sopen( const char *path, int oflags, int shflags, ... )
-{
-  int pmode;
-  int fd;
-
-  if (oflags & _O_CREAT)
-  {
-    va_list ap;
-
-    va_start(ap, shflags);
-    pmode = va_arg(ap, int);
-    va_end(ap);
-  }
-  else
-    pmode = 0;
-
-  _sopen_s(&fd, path, oflags, shflags, pmode);
-  return fd;
-}
-
-/*********************************************************************
- *              _open (MSVCRT.@)
- */
-int CDECL _open( const char *path, int flags, ... )
-{
-  va_list ap;
-
-  if (flags & _O_CREAT)
-  {
-    int pmode;
-    va_start(ap, flags);
-    pmode = va_arg(ap, int);
-    va_end(ap);
-    return _sopen( path, flags, _SH_DENYNO, pmode );
-  }
-  else
-    return _sopen( path, flags, _SH_DENYNO);
-}
-
-/*********************************************************************
- *              _wopen (MSVCRT.@)
- */
-int CDECL _wopen(const wchar_t *path,int flags,...)
-{
-  va_list ap;
-
-  if (flags & _O_CREAT)
-  {
-    int pmode;
-    va_start(ap, flags);
-    pmode = va_arg(ap, int);
-    va_end(ap);
-    return _wsopen( path, flags, _SH_DENYNO, pmode );
-  }
-  else
-    return _wsopen( path, flags, _SH_DENYNO);
-}
-
-/*********************************************************************
- *		_creat (MSVCRT.@)
- */
-int CDECL _creat(const char *path, int flags)
-{
-  int usedFlags = (flags & _O_TEXT)| _O_CREAT| _O_WRONLY| _O_TRUNC;
-  return _open(path, usedFlags);
-}
-
-/*********************************************************************
- *		_wcreat (MSVCRT.@)
- */
-int CDECL _wcreat(const wchar_t *path, int flags)
-{
-  int usedFlags = (flags & _O_TEXT)| _O_CREAT| _O_WRONLY| _O_TRUNC;
-  return _wopen(path, usedFlags);
-}
-
-/*********************************************************************
- *		_open_osfhandle (MSVCRT.@)
- */
-int CDECL _open_osfhandle(intptr_t handle, int oflags)
-{
-  DWORD flags;
-  int fd;
-
-  /* _O_RDONLY (0) always matches, so set the read flag
-   * MFC's CStdioFile clears O_RDONLY (0)! if it wants to write to the
-   * file, so set the write flag. It also only sets _O_TEXT if it wants
-   * text - it never sets _O_BINARY.
-   */
-  /* don't let split_oflags() decide the mode if no mode is passed */
-  if (!(oflags & (_O_BINARY | _O_TEXT)))
-      oflags |= _O_BINARY;
-
-  flags = GetFileType((HANDLE)handle);
-  if (flags==FILE_TYPE_UNKNOWN && GetLastError()!=NO_ERROR)
-  {
-    _dosmaperr(GetLastError());
-    return -1;
-  }
-
-  if (flags == FILE_TYPE_CHAR)
-    flags = WX_TTY;
-  else if (flags == FILE_TYPE_PIPE)
-    flags = WX_PIPE;
-  else
-    flags = 0;
-  flags |= split_oflags(oflags);
-
-  fd = msvcrt_alloc_fd((HANDLE)handle, flags);
-  TRACE(":handle (%ld) fd (%d) flags 0x%08x\n", handle, fd, flags);
-  return fd;
-}
-
-/*********************************************************************
- *		_rmtmp (MSVCRT.@)
- */
-int CDECL _rmtmp(void)
-{
-  int num_removed = 0, i;
-  FILE *file;
-
-  LOCK_FILES();
-  for (i = 3; i < MSVCRT_stream_idx; i++) {
-    file = msvcrt_get_file(i);
-
-    if (file->_tmpfname)
-    {
-      fclose(file);
-      num_removed++;
-    }
-  }
-  UNLOCK_FILES();
-
-  if (num_removed)
-    TRACE(":removed (%d) temp files\n",num_removed);
-  return num_removed;
-}
-
-static inline int get_utf8_char_len(char ch)
-{
-    if((ch&0xf8) == 0xf0)
-        return 4;
-    else if((ch&0xf0) == 0xe0)
-        return 3;
-    else if((ch&0xe0) == 0xc0)
-        return 2;
-    return 1;
-}
-
-/*********************************************************************
- * (internal) read_utf8
- */
-static int read_utf8(ioinfo *fdinfo, wchar_t *buf, unsigned int count)
-{
-    HANDLE hand = fdinfo->handle;
-    char min_buf[4], *readbuf, lookahead;
-    DWORD readbuf_size, pos=0, num_read=1, char_len, i, j;
-
-    /* make the buffer big enough to hold at least one character */
-    /* read bytes have to fit to output and lookahead buffers */
-    count /= 2;
-    readbuf_size = count < 4 ? 4 : count;
-    if(readbuf_size<=4 || !(readbuf = malloc(readbuf_size))) {
-        readbuf_size = 4;
-        readbuf = min_buf;
-    }
-
-    if(fdinfo->lookahead[0] != '\n') {
-        readbuf[pos++] = fdinfo->lookahead[0];
-        fdinfo->lookahead[0] = '\n';
-
-        if(fdinfo->lookahead[1] != '\n') {
-            readbuf[pos++] = fdinfo->lookahead[1];
-            fdinfo->lookahead[1] = '\n';
-
-            if(fdinfo->lookahead[2] != '\n') {
-                readbuf[pos++] = fdinfo->lookahead[2];
-                fdinfo->lookahead[2] = '\n';
-            }
-        }
-    }
-
-    /* NOTE: this case is broken in native dll, reading
-     *        sometimes fails when small buffer is passed
-     */
-    if(count < 4) {
-        if(!pos && !ReadFile(hand, readbuf, 1, &num_read, NULL)) {
-            if (GetLastError() == ERROR_BROKEN_PIPE) {
-                fdinfo->wxflag |= WX_ATEOF;
-                return 0;
-            }else {
-                _dosmaperr(GetLastError());
-                return -1;
-            }
-        }else if(!num_read) {
-            fdinfo->wxflag |= WX_ATEOF;
-            return 0;
-        }else {
-            pos++;
-        }
-
-        char_len = get_utf8_char_len(readbuf[0]);
-        if(char_len>pos) {
-            if(ReadFile(hand, readbuf+pos, char_len-pos, &num_read, NULL))
-                pos += num_read;
-        }
-
-        if(readbuf[0] == '\n')
-            fdinfo->wxflag |= WX_READNL;
-        else
-            fdinfo->wxflag &= ~WX_READNL;
-
-        if(readbuf[0] == 0x1a) {
-            fdinfo->wxflag |= WX_ATEOF;
-            return 0;
-        }
-
-        if(readbuf[0] == '\r') {
-            if(!ReadFile(hand, &lookahead, 1, &num_read, NULL) || num_read!=1)
-                buf[0] = '\r';
-            else if(lookahead == '\n')
-                buf[0] = '\n';
-            else {
-                buf[0] = '\r';
-                if(fdinfo->wxflag & (WX_PIPE | WX_TTY))
-                    fdinfo->lookahead[0] = lookahead;
-                else
-                    SetFilePointer(fdinfo->handle, -1, NULL, FILE_CURRENT);
-            }
-            return 2;
-        }
-
-        if(!(num_read = MultiByteToWideChar(CP_UTF8, 0, readbuf, pos, buf, count))) {
-            _dosmaperr(GetLastError());
-            return -1;
-        }
-
-        return num_read*2;
-    }
-
-    if(!ReadFile(hand, readbuf+pos, readbuf_size-pos, &num_read, NULL)) {
-        if(pos) {
-            num_read = 0;
-        }else if(GetLastError() == ERROR_BROKEN_PIPE) {
-            fdinfo->wxflag |= WX_ATEOF;
-            if (readbuf != min_buf) free(readbuf);
-            return 0;
-        }else {
-            _dosmaperr(GetLastError());
-            if (readbuf != min_buf) free(readbuf);
-            return -1;
-        }
-    }else if(!pos && !num_read) {
-        fdinfo->wxflag |= WX_ATEOF;
-        if (readbuf != min_buf) free(readbuf);
-        return 0;
-    }
-
-    pos += num_read;
-    if(readbuf[0] == '\n')
-        fdinfo->wxflag |= WX_READNL;
-    else
-        fdinfo->wxflag &= ~WX_READNL;
-
-    /* Find first byte of last character (may be incomplete) */
-    for(i=pos-1; i>0 && i>pos-4; i--)
-        if((readbuf[i]&0xc0) != 0x80)
-            break;
-    char_len = get_utf8_char_len(readbuf[i]);
-    if(char_len+i <= pos)
-        i += char_len;
-
-    if(fdinfo->wxflag & (WX_PIPE | WX_TTY)) {
-        if(i < pos)
-            fdinfo->lookahead[0] = readbuf[i];
-        if(i+1 < pos)
-            fdinfo->lookahead[1] = readbuf[i+1];
-        if(i+2 < pos)
-            fdinfo->lookahead[2] = readbuf[i+2];
-    }else if(i < pos) {
-        SetFilePointer(fdinfo->handle, i-pos, NULL, FILE_CURRENT);
-    }
-    pos = i;
-
-    for(i=0, j=0; i<pos; i++) {
-        if(readbuf[i] == 0x1a) {
-            fdinfo->wxflag |= WX_ATEOF;
-            break;
-        }
-
-        /* strip '\r' if followed by '\n' */
-        if(readbuf[i] == '\r' && i+1==pos) {
-            if(fdinfo->lookahead[0] != '\n' || !ReadFile(hand, &lookahead, 1, &num_read, NULL) || !num_read) {
-                readbuf[j++] = '\r';
-            }else if(lookahead == '\n' && j==0) {
-                readbuf[j++] = '\n';
-            }else {
-                if(lookahead != '\n')
-                    readbuf[j++] = '\r';
-
-                if(fdinfo->wxflag & (WX_PIPE | WX_TTY))
-                    fdinfo->lookahead[0] = lookahead;
-                else
-                    SetFilePointer(fdinfo->handle, -1, NULL, FILE_CURRENT);
-            }
-        }else if(readbuf[i]!='\r' || readbuf[i+1]!='\n') {
-            readbuf[j++] = readbuf[i];
-        }
-    }
-    pos = j;
-
-    if(!(num_read = MultiByteToWideChar(CP_UTF8, 0, readbuf, pos, buf, count))) {
-        _dosmaperr(GetLastError());
-        if (readbuf != min_buf) free(readbuf);
-        return -1;
-    }
-
-    if (readbuf != min_buf) free(readbuf);
-    return num_read*2;
-}
-
-/*********************************************************************
- * (internal) read_i
- *
- * When reading \r as last character in text mode, read() positions
- * the file pointer on the \r character while getc() goes on to
- * the following \n
- */
-static int read_i(int fd, ioinfo *fdinfo, void *buf, unsigned int count)
-{
-    DWORD num_read, utf16;
-    char *bufstart = buf;
-
-    if (count == 0)
-        return 0;
-
-    if (fdinfo->wxflag & WX_ATEOF) {
-        TRACE("already at EOF, returning 0\n");
-        return 0;
-    }
-    /* Don't trace small reads, it gets *very* annoying */
-    if (count > 4)
-        TRACE(":fd (%d) handle (%p) buf (%p) len (%d)\n", fd, fdinfo->handle, buf, count);
-    if (fdinfo->handle == INVALID_HANDLE_VALUE)
-    {
-        *_errno() = EBADF;
-        return -1;
-    }
-
-    utf16 = (fdinfo->exflag & EF_UTF16) != 0;
-    if (((fdinfo->exflag&EF_UTF8) || utf16) && count&1)
-    {
-        *_errno() = EINVAL;
-        return -1;
-    }
-
-    if((fdinfo->wxflag&WX_TEXT) && (fdinfo->exflag&EF_UTF8))
-        return read_utf8(fdinfo, buf, count);
-
-    if (fdinfo->lookahead[0]!='\n' || ReadFile(fdinfo->handle, bufstart, count, &num_read, NULL))
-    {
-        if (fdinfo->lookahead[0] != '\n')
-        {
-            bufstart[0] = fdinfo->lookahead[0];
-            fdinfo->lookahead[0] = '\n';
-
-            if (utf16)
-            {
-                bufstart[1] =  fdinfo->lookahead[1];
-                fdinfo->lookahead[1] = '\n';
-            }
-
-            if(count>1+utf16 && ReadFile(fdinfo->handle, bufstart+1+utf16, count-1-utf16, &num_read, NULL))
-                num_read += 1+utf16;
-            else
-                num_read = 1+utf16;
-        }
-
-        if(utf16 && (num_read&1))
-        {
-            /* msvcr90 uses uninitialized value from the buffer in this case */
-            /* msvcrt ignores additional data */
-            ERR("got odd number of bytes in UTF16 mode\n");
-            num_read--;
-        }
-
-        if (count != 0 && num_read == 0)
-        {
-            fdinfo->wxflag |= WX_ATEOF;
-            TRACE(":EOF %s\n",debugstr_an(buf,num_read));
-        }
-        else if (fdinfo->wxflag & WX_TEXT)
-        {
-            DWORD i, j;
-
-            if (bufstart[0]=='\n' && (!utf16 || bufstart[1]==0))
-                fdinfo->wxflag |= WX_READNL;
-            else
-                fdinfo->wxflag &= ~WX_READNL;
-
-            for (i=0, j=0; i<num_read; i+=1+utf16)
-            {
-                /* in text mode, a ctrl-z signals EOF */
-                if (bufstart[i]==0x1a && (!utf16 || bufstart[i+1]==0))
-                {
-                    fdinfo->wxflag |= WX_ATEOF;
-                    TRACE(":^Z EOF %s\n",debugstr_an(buf,num_read));
-                    break;
-                }
-
-                /* in text mode, strip \r if followed by \n */
-                if (bufstart[i]=='\r' && (!utf16 || bufstart[i+1]==0) && i+1+utf16==num_read)
-                {
-                    char lookahead[2];
-                    DWORD len;
-
-                    lookahead[1] = '\n';
-                    if (ReadFile(fdinfo->handle, lookahead, 1+utf16, &len, NULL) && len)
-                    {
-                        if(lookahead[0]=='\n' && (!utf16 || lookahead[1]==0) && j==0)
-                        {
-                            bufstart[j++] = '\n';
-                            if(utf16) bufstart[j++] = 0;
-                        }
-                        else
-                        {
-                            if(lookahead[0]!='\n' || (utf16 && lookahead[1]!=0))
-                            {
-                                bufstart[j++] = '\r';
-                                if(utf16) bufstart[j++] = 0;
-                            }
-
-                            if (fdinfo->wxflag & (WX_PIPE | WX_TTY))
-                            {
-                                if (lookahead[0]=='\n' && (!utf16 || !lookahead[1]))
-                                {
-                                    bufstart[j++] = '\n';
-                                    if (utf16) bufstart[j++] = 0;
-                                }
-                                else
-                                {
-                                    fdinfo->lookahead[0] = lookahead[0];
-                                    fdinfo->lookahead[1] = lookahead[1];
-                                }
-                            }
-                            else
-                                SetFilePointer(fdinfo->handle, -1-utf16, NULL, FILE_CURRENT);
-                        }
-                    }
-                    else
-                    {
-                        bufstart[j++] = '\r';
-                        if(utf16) bufstart[j++] = 0;
-                    }
-                }
-                else if((bufstart[i]!='\r' || (utf16 && bufstart[i+1]!=0))
-                        || (bufstart[i+1+utf16]!='\n' || (utf16 && bufstart[i+3]!=0)))
-                {
-                    bufstart[j++] = bufstart[i];
-                    if(utf16) bufstart[j++] = bufstart[i+1];
-                }
-            }
-            num_read = j;
-        }
-    }
-    else
-    {
-        if (GetLastError() == ERROR_BROKEN_PIPE)
-        {
-            TRACE(":end-of-pipe\n");
-            fdinfo->wxflag |= WX_ATEOF;
-            return 0;
-        }
-        else
-        {
-            TRACE(":failed-last error (%d)\n",GetLastError());
-            return -1;
-        }
-    }
-
-    if (count > 4)
-        TRACE("(%u), %s\n",num_read,debugstr_an(buf, num_read));
-    return num_read;
-}
-
-/*********************************************************************
- *		_read (MSVCRT.@)
- */
-int CDECL _read(int fd, void *buf, unsigned int count)
-{
-    ioinfo *info = get_ioinfo(fd);
-    int num_read = read_i(fd, info, buf, count);
-    release_ioinfo(info);
-    return num_read;
-}
-
-/*********************************************************************
- *		_setmode (MSVCRT.@)
- */
-int CDECL _setmode(int fd,int mode)
-{
-    ioinfo *info = get_ioinfo(fd);
-    int ret = info->wxflag & WX_TEXT ? _O_TEXT : _O_BINARY;
-    if(ret==_O_TEXT && (info->exflag & (EF_UTF8|EF_UTF16)))
-        ret = _O_WTEXT;
-
-    if(mode!=_O_TEXT && mode!=_O_BINARY && mode!=_O_WTEXT
-                && mode!=_O_U16TEXT && mode!=_O_U8TEXT) {
-        *_errno() = EINVAL;
-        release_ioinfo(info);
-        return -1;
-    }
-
-    if(info == &__badioinfo) {
-        *_errno() = EBADF;
-        return EOF;
-    }
-
-    if(mode == _O_BINARY) {
-        info->wxflag &= ~WX_TEXT;
-        info->exflag &= ~(EF_UTF8|EF_UTF16);
-        release_ioinfo(info);
-        return ret;
-    }
-
-    info->wxflag |= WX_TEXT;
-    if(mode == _O_TEXT)
-        info->exflag &= ~(EF_UTF8|EF_UTF16);
-    else if(mode == _O_U8TEXT)
-        info->exflag = (info->exflag & ~EF_UTF16) | EF_UTF8;
-    else
-        info->exflag = (info->exflag & ~EF_UTF8) | EF_UTF16;
-
-    release_ioinfo(info);
-    return ret;
-
-}
-
-/*********************************************************************
- *		_tell (MSVCRT.@)
- */
-long CDECL _tell(int fd)
-{
-  return _lseek(fd, 0, SEEK_CUR);
-}
-
-/*********************************************************************
- *		_telli64 (MSVCRT.@)
- */
-__int64 CDECL _telli64(int fd)
-{
-  return _lseeki64(fd, 0, SEEK_CUR);
-}
-
-/*********************************************************************
- *		_tempnam (MSVCRT.@)
- */
-char * CDECL _tempnam(const char *dir, const char *prefix)
-{
-  char tmpbuf[MAX_PATH];
-  const char *tmp_dir = getenv("TMP");
-
-  if (tmp_dir) dir = tmp_dir;
-
-  TRACE("dir (%s) prefix (%s)\n",dir,prefix);
-  if (GetTempFileNameA(dir,prefix,0,tmpbuf))
-  {
-    TRACE("got name (%s)\n",tmpbuf);
-    DeleteFileA(tmpbuf);
-    return _strdup(tmpbuf);
-  }
-  TRACE("failed (%d)\n",GetLastError());
-  return NULL;
-}
-
-/*********************************************************************
- *		_wtempnam (MSVCRT.@)
- */
-wchar_t * CDECL _wtempnam(const wchar_t *dir, const wchar_t *prefix)
-{
-  wchar_t tmpbuf[MAX_PATH];
-
-  TRACE("dir (%s) prefix (%s)\n",debugstr_w(dir),debugstr_w(prefix));
-  if (GetTempFileNameW(dir,prefix,0,tmpbuf))
-  {
-    TRACE("got name (%s)\n",debugstr_w(tmpbuf));
-    DeleteFileW(tmpbuf);
-    return _wcsdup(tmpbuf);
-  }
-  TRACE("failed (%d)\n",GetLastError());
-  return NULL;
-}
-
-/*********************************************************************
- *		_umask (MSVCRT.@)
- */
-int CDECL _umask(int umask)
-{
-  int old_umask = MSVCRT_umask;
-  TRACE("(%d)\n",umask);
-  MSVCRT_umask = umask;
-  return old_umask;
-}
-
-/*********************************************************************
- *		_write (MSVCRT.@)
- */
-int CDECL _write(int fd, const void* buf, unsigned int count)
-{
-    DWORD num_written;
-    ioinfo *info = get_ioinfo(fd);
-    HANDLE hand = info->handle;
-
-    /* Don't trace small writes, it gets *very* annoying */
-#if 0
-    if (count > 32)
-        TRACE(":fd (%d) handle (%d) buf (%p) len (%d)\n",fd,hand,buf,count);
-#endif
-    if (hand == INVALID_HANDLE_VALUE)
-    {
-        *_errno() = EBADF;
-        release_ioinfo(info);
-        return -1;
-    }
-
-    if (((info->exflag&EF_UTF8) || (info->exflag&EF_UTF16)) && count&1)
-    {
-        *_errno() = EINVAL;
-        release_ioinfo(info);
-        return -1;
-    }
-
-    /* If appending, go to EOF */
-    if (info->wxflag & WX_APPEND)
-        _lseek(fd, 0, FILE_END);
-
-    if (!(info->wxflag & WX_TEXT))
-    {
-        if (WriteFile(hand, buf, count, &num_written, NULL)
-                &&  (num_written == count))
-        {
-            release_ioinfo(info);
-            return num_written;
-        }
-        TRACE("WriteFile (fd %d, hand %p) failed-last error (%d)\n", fd,
-                hand, GetLastError());
-        *_errno() = ENOSPC;
-    }
-    else
-    {
-        unsigned int i, j, nr_lf, size;
-        char *p = NULL;
-        const char *q;
-        const char *s = buf, *buf_start = buf;
-
-        if (!(info->exflag & (EF_UTF8|EF_UTF16)))
-        {
-            /* find number of \n */
-            for (nr_lf=0, i=0; i<count; i++)
-                if (s[i] == '\n')
-                    nr_lf++;
-            if (nr_lf)
-            {
-                size = count+nr_lf;
-                if ((q = p = malloc(size)))
-                {
-                    for (s = buf, i = 0, j = 0; i < count; i++)
-                    {
-                        if (s[i] == '\n')
-                            p[j++] = '\r';
-                        p[j++] = s[i];
-                    }
-                }
-                else
-                {
-                    FIXME("Malloc failed\n");
-                    nr_lf = 0;
-                    size = count;
-                    q = buf;
-                }
-            }
-            else
-            {
-                size = count;
-                q = buf;
-            }
-        }
-        else if (info->exflag & EF_UTF16)
-        {
-            for (nr_lf=0, i=0; i<count; i+=2)
-                if (s[i]=='\n' && s[i+1]==0)
-                    nr_lf += 2;
-            if (nr_lf)
-            {
-                size = count+nr_lf;
-                if ((q = p = malloc(size)))
-                {
-                    for (s=buf, i=0, j=0; i<count; i++)
-                    {
-                        if (s[i]=='\n' && s[i+1]==0)
-                        {
-                            p[j++] = '\r';
-                            p[j++] = 0;
-                        }
-                        p[j++] = s[i++];
-                        p[j++] = s[i];
-                    }
-                }
-                else
-                {
-                    FIXME("Malloc failed\n");
-                    nr_lf = 0;
-                    size = count;
-                    q = buf;
-                }
-            }
-            else
-            {
-                size = count;
-                q = buf;
-            }
-        }
-        else
-        {
-            DWORD conv_len;
-
-            for(nr_lf=0, i=0; i<count; i+=2)
-                if (s[i]=='\n' && s[i+1]==0)
-                    nr_lf++;
-
-            conv_len = WideCharToMultiByte(CP_UTF8, 0, (WCHAR*)buf, count/2, NULL, 0, NULL, NULL);
-            if(!conv_len) {
-                _dosmaperr(GetLastError());
-                free(p);
-                release_ioinfo(info);
-                return -1;
-            }
-
-            size = conv_len+nr_lf;
-            if((p = malloc(count+nr_lf*2+size)))
-            {
-                for (s=buf, i=0, j=0; i<count; i++)
-                {
-                    if (s[i]=='\n' && s[i+1]==0)
-                    {
-                        p[j++] = '\r';
-                        p[j++] = 0;
-                    }
-                    p[j++] = s[i++];
-                    p[j++] = s[i];
-                }
-                q = p+count+nr_lf*2;
-                WideCharToMultiByte(CP_UTF8, 0, (WCHAR*)p, count/2+nr_lf,
-                        p+count+nr_lf*2, conv_len+nr_lf, NULL, NULL);
-            }
-            else
-            {
-                FIXME("Malloc failed\n");
-                nr_lf = 0;
-                size = count;
-                q = buf;
-            }
-        }
-
-        if (!WriteFile(hand, q, size, &num_written, NULL))
-            num_written = -1;
-        release_ioinfo(info);
-        if(p)
-            free(p);
-        if (num_written != size)
-        {
-            TRACE("WriteFile (fd %d, hand %p) failed-last error (%d), num_written %d\n",
-                    fd, hand, GetLastError(), num_written);
-            *_errno() = ENOSPC;
-            return s - buf_start;
-        }
-        return count;
-    }
-
-    release_ioinfo(info);
-    return -1;
-}
-
-/*********************************************************************
- *		_putw (MSVCRT.@)
- */
-int CDECL _putw(int val, FILE* file)
-{
-  int len;
-
-  _lock_file(file);
-  len = _write(file->_file, &val, sizeof(val));
-  if (len == sizeof(val)) {
-    _unlock_file(file);
-    return val;
-  }
-
-  file->_flag |= _IOERR;
-  _unlock_file(file);
-  return EOF;
-}
-
-/*********************************************************************
- *		fclose (MSVCRT.@)
- */
-int CDECL fclose(FILE* file)
-{
-  int r, flag;
-
-  if (!MSVCRT_CHECK_PMT(file != NULL)) return EOF;
-
-  _lock_file(file);
-  flag = file->_flag;
-  free(file->_tmpfname);
-  file->_tmpfname = NULL;
-  /* flush stdio buffers */
-  if(file->_flag & _IOWRT)
-      fflush(file);
-  if(file->_flag & _IOMYBUF)
-      free(file->_base);
-
-  r=_close(file->_file);
-
-  file->_flag = 0;
-  _unlock_file(file);
-  if(file<_iob || file>=_iob+_IOB_ENTRIES)
-      DeleteCriticalSection(&((file_crit*)file)->crit);
-
-  if(file == msvcrt_get_file(MSVCRT_stream_idx-1)) {
-    while(MSVCRT_stream_idx>3 && !file->_flag) {
-      MSVCRT_stream_idx--;
-      file = msvcrt_get_file(MSVCRT_stream_idx-1);
-    }
-  }
-
-  return ((r == -1) || (flag & _IOERR) ? EOF : 0);
-}
-
-/*********************************************************************
- *		feof (MSVCRT.@)
- */
-int CDECL feof(FILE* file)
-{
-    return file->_flag & _IOEOF;
-}
-
-/*********************************************************************
- *		ferror (MSVCRT.@)
- */
-int CDECL ferror(FILE* file)
-{
-    return file->_flag & _IOERR;
-}
-
-/*********************************************************************
- *		_filbuf (MSVCRT.@)
- */
-int CDECL _filbuf(FILE* file)
-{
-    unsigned char c;
-    _lock_file(file);
-
-    if(file->_flag & _IOSTRG) {
-        _unlock_file(file);
-        return EOF;
-    }
-
-    /* Allocate buffer if needed */
-    if(!(file->_flag & (_IONBF | _IOMYBUF | _USERBUF)))
-        msvcrt_alloc_buffer(file);
-
-    if(!(file->_flag & _IOREAD)) {
-        if(file->_flag & _IORW)
-            file->_flag |= _IOREAD;
-        else {
-            _unlock_file(file);
-            return EOF;
-        }
-    }
-
-    if(!(file->_flag & (_IOMYBUF | _USERBUF))) {
-        int r;
-        if ((r = _read(file->_file,&c,1)) != 1) {
-            file->_flag |= (r == 0) ? _IOEOF : _IOERR;
-            _unlock_file(file);
-            return EOF;
-        }
-
-        _unlock_file(file);
-        return c;
-    } else {
-        file->_cnt = _read(file->_file, file->_base, file->_bufsiz);
-        if(file->_cnt<=0) {
-            file->_flag |= (file->_cnt == 0) ? _IOEOF : _IOERR;
-            file->_cnt = 0;
-            _unlock_file(file);
-            return EOF;
-        }
-
-        file->_cnt--;
-        file->_ptr = file->_base+1;
-        c = *(unsigned char *)file->_base;
-        _unlock_file(file);
-        return c;
-    }
-}
-
-/*********************************************************************
- *		fgetc (MSVCRT.@)
- */
-int CDECL fgetc(FILE* file)
-{
-  unsigned char *i;
-  unsigned int j;
-
-  _lock_file(file);
-  if (file->_cnt>0) {
-    file->_cnt--;
-    i = (unsigned char *)file->_ptr++;
-    j = *i;
-  } else
-    j = _filbuf(file);
-
-  _unlock_file(file);
-  return j;
-}
-
-/*********************************************************************
- *		_fgetchar (MSVCRT.@)
- */
-int CDECL _fgetchar(void)
-{
-  return fgetc(stdin);
-}
-
-/*********************************************************************
- *		fgets (MSVCRT.@)
- */
-char * CDECL fgets(char *s, int size, FILE* file)
-{
-  int    cc = EOF;
-  char * buf_start = s;
-
-  TRACE(":file(%p) fd (%d) str (%p) len (%d)\n",
-	file,file->_file,s,size);
-
-  _lock_file(file);
-
-  while ((size >1) && (cc = fgetc(file)) != EOF && cc != '\n')
-    {
-      *s++ = (char)cc;
-      size --;
-    }
-  if ((cc == EOF) && (s == buf_start)) /* If nothing read, return 0*/
-  {
-    TRACE(":nothing read\n");
-    _unlock_file(file);
-    return NULL;
-  }
-  if ((cc != EOF) && (size > 1))
-    *s++ = cc;
-  *s = '\0';
-  TRACE(":got %s\n", debugstr_a(buf_start));
-  _unlock_file(file);
-  return buf_start;
-}
-
-/*********************************************************************
- *		fgetwc (MSVCRT.@)
- */
-wint_t CDECL fgetwc(FILE* file)
-{
-    wint_t ret;
-    int ch;
-
-    _lock_file(file);
-
-    if((get_ioinfo_nolock(file->_file)->exflag & (EF_UTF8 | EF_UTF16))
-            || !(get_ioinfo_nolock(file->_file)->wxflag & WX_TEXT)) {
-        char *p;
-
-        for(p=(char*)&ret; (wint_t*)p<&ret+1; p++) {
-            ch = fgetc(file);
-            if(ch == EOF) {
-                ret = WEOF;
-                break;
-            }
-            *p = (char)ch;
-        }
-    }else {
-        char mbs[MB_LEN_MAX];
-        int len = 0;
-
-        ch = fgetc(file);
-        if(ch != EOF) {
-            mbs[0] = (char)ch;
-            if(isleadbyte((unsigned char)mbs[0])) {
-                ch = fgetc(file);
-                if(ch != EOF) {
-                    mbs[1] = (char)ch;
-                    len = 2;
-                }
-            }else {
-                len = 1;
-            }
-        }
-
-        if(!len || mbtowc(&ret, mbs, len)==-1)
-            ret = WEOF;
-    }
-
-    _unlock_file(file);
-    return ret;
-}
-
-/*********************************************************************
- *		_getw (MSVCRT.@)
- */
-int CDECL _getw(FILE* file)
-{
-  char *ch;
-  int i, k;
-  unsigned int j;
-  ch = (char *)&i;
-
-  _lock_file(file);
-  for (j=0; j<sizeof(int); j++) {
-    k = fgetc(file);
-    if (k == EOF) {
-      file->_flag |= _IOEOF;
-      _unlock_file(file);
-      return EOF;
-    }
-    ch[j] = k;
-  }
-
-  _unlock_file(file);
-  return i;
-}
-
-/*********************************************************************
- *		getwc (MSVCRT.@)
- */
-wint_t CDECL getwc(FILE* file)
-{
-  return fgetwc(file);
-}
-
-/*********************************************************************
- *		_fgetwchar (MSVCRT.@)
- */
-wint_t CDECL _fgetwchar(void)
-{
-  return fgetwc(stdin);
-}
-
-/*********************************************************************
- *		getwchar (MSVCRT.@)
- */
-wint_t CDECL getwchar(void)
-{
-  return _fgetwchar();
-}
-
-/*********************************************************************
- *              fgetws (MSVCRT.@)
- */
-wchar_t * CDECL fgetws(wchar_t *s, int size, FILE* file)
-{
-  int    cc = WEOF;
-  wchar_t * buf_start = s;
-
-  TRACE(":file(%p) fd (%d) str (%p) len (%d)\n",
-        file,file->_file,s,size);
-
-  _lock_file(file);
-
-  while ((size >1) && (cc = fgetwc(file)) != WEOF && cc != '\n')
-    {
-      *s++ = (char)cc;
-      size --;
-    }
-  if ((cc == WEOF) && (s == buf_start)) /* If nothing read, return 0*/
-  {
-    TRACE(":nothing read\n");
-    _unlock_file(file);
-    return NULL;
-  }
-  if ((cc != WEOF) && (size > 1))
-    *s++ = cc;
-  *s = 0;
-  TRACE(":got %s\n", debugstr_w(buf_start));
-  _unlock_file(file);
-  return buf_start;
-}
-
-/*********************************************************************
- *		fwrite (MSVCRT.@)
- */
-size_t CDECL fwrite(const void *ptr, size_t size, size_t nmemb, FILE* file)
-{
-    size_t wrcnt=size * nmemb;
-    int written = 0;
-    if (size == 0)
-        return 0;
-
-    _lock_file(file);
-
-    while(wrcnt) {
-#ifndef __REACTOS__
-        if(file->_cnt < 0) {
-            WARN("negative file->_cnt value in %p\n", file);
-            file->_flag |= MSVCRT__IOERR;
-            break;
-        } else
-#endif
-        if(file->_cnt) {
-            int pcnt=(file->_cnt>wrcnt)? wrcnt: file->_cnt;
-            memcpy(file->_ptr, ptr, pcnt);
-            file->_cnt -= pcnt;
-            file->_ptr += pcnt;
-            written += pcnt;
-            wrcnt -= pcnt;
-            ptr = (const char*)ptr + pcnt;
-        } else if((file->_flag & _IONBF)
-                || ((file->_flag & (_IOMYBUF | _USERBUF)) && wrcnt >= file->_bufsiz)
-                || (!(file->_flag & (_IOMYBUF | _USERBUF)) && wrcnt >= MSVCRT_INTERNAL_BUFSIZ)) {
-            size_t pcnt;
-            int bufsiz;
-
-            if(file->_flag & _IONBF)
-                bufsiz = 1;
-            else if(!(file->_flag & (_IOMYBUF | _USERBUF)))
-                bufsiz = MSVCRT_INTERNAL_BUFSIZ;
-            else
-                bufsiz = file->_bufsiz;
-
-            pcnt = (wrcnt / bufsiz) * bufsiz;
-
-            if(msvcrt_flush_buffer(file) == EOF)
-                break;
-
-            if(_write(file->_file, ptr, pcnt) <= 0) {
-                file->_flag |= _IOERR;
-                break;
-            }
-            written += pcnt;
-            wrcnt -= pcnt;
-            ptr = (const char*)ptr + pcnt;
-        } else {
-            if(_flsbuf(*(const char*)ptr, file) == EOF)
-                break;
-            written++;
-            wrcnt--;
-            ptr = (const char*)ptr + 1;
-        }
-    }
-
-    _unlock_file(file);
-    return written / size;
-}
-
-/*********************************************************************
- *		fputwc (MSVCRT.@)
- * FORKED for ReactOS, don't sync with Wine!
- * References:
- *   - http://jira.reactos.org/browse/CORE-6495
- *   - http://bugs.winehq.org/show_bug.cgi?id=8598
- */
-wint_t CDECL fputwc(wchar_t c, FILE* stream)
-{
-    /* If this is a real file stream (and not some temporary one for
-       sprintf-like functions), check whether it is opened in text mode.
-       In this case, we have to perform an implicit conversion to ANSI. */
-    if (!(stream->_flag & _IOSTRG) && get_ioinfo_nolock(stream->_file)->wxflag & WX_TEXT)
-    {
-        /* Convert to multibyte in text mode */
-        char mbc[MB_LEN_MAX];
-        int mb_return;
-
-        mb_return = wctomb(mbc, c);
-
-        if(mb_return == -1)
-            return WEOF;
-
-        /* Output all characters */
-        if (fwrite(mbc, mb_return, 1, stream) != 1)
-            return WEOF;
-    }
-    else
-    {
-        if (fwrite(&c, sizeof(c), 1, stream) != 1)
-            return WEOF;
-    }
-
-    return c;
-}
-
-/*********************************************************************
- *		_fputwchar (MSVCRT.@)
- */
-wint_t CDECL _fputwchar(wint_t wc)
-{
-  return fputwc(wc, stdout);
-}
-
-/*********************************************************************
- *		_wfsopen (MSVCRT.@)
- */
-FILE * CDECL _wfsopen(const wchar_t *path, const wchar_t *mode, int share)
-{
-  FILE* file;
-  int open_flags, stream_flags, fd;
-
-  TRACE("(%s,%s)\n", debugstr_w(path), debugstr_w(mode));
-
-  /* map mode string to open() flags. "man fopen" for possibilities. */
-  if (msvcrt_get_flags(mode, &open_flags, &stream_flags) == -1)
-      return NULL;
-
-  LOCK_FILES();
-  fd = _wsopen(path, open_flags, share, _S_IREAD | _S_IWRITE);
-  if (fd < 0)
-    file = NULL;
-  else if ((file = msvcrt_alloc_fp()) && msvcrt_init_fp(file, fd, stream_flags)
-   != -1)
-    TRACE(":fd (%d) mode (%s) FILE* (%p)\n", fd, debugstr_w(mode), file);
-  else if (file)
-  {
-    file->_flag = 0;
-    file = NULL;
-  }
-
-  TRACE(":got (%p)\n",file);
-  if (fd >= 0 && !file)
-    _close(fd);
-  UNLOCK_FILES();
-  return file;
-}
-
-/*********************************************************************
- *		_fsopen (MSVCRT.@)
- */
-FILE * CDECL _fsopen(const char *path, const char *mode, int share)
-{
-    FILE *ret;
-    wchar_t *pathW = NULL, *modeW = NULL;
-
-    if (path && !(pathW = msvcrt_wstrdupa(path))) {
-        _invalid_parameter(NULL, NULL, NULL, 0, 0);
-        *_errno() = EINVAL;
-        return NULL;
-    }
-    if (mode && !(modeW = msvcrt_wstrdupa(mode)))
-    {
-        free(pathW);
-        _invalid_parameter(NULL, NULL, NULL, 0, 0);
-        *_errno() = EINVAL;
-        return NULL;
-    }
-
-    ret = _wfsopen(pathW, modeW, share);
-
-    free(pathW);
-    free(modeW);
-    return ret;
-}
-
-/*********************************************************************
- *		fopen (MSVCRT.@)
- */
-FILE * CDECL fopen(const char *path, const char *mode)
-{
-    return _fsopen( path, mode, _SH_DENYNO );
-}
-
-/*********************************************************************
- *              fopen_s (MSVCRT.@)
- */
-int CDECL fopen_s(FILE** pFile,
-        const char *filename, const char *mode)
-{
-    if (!MSVCRT_CHECK_PMT(pFile != NULL)) return EINVAL;
-    if (!MSVCRT_CHECK_PMT(filename != NULL)) return EINVAL;
-    if (!MSVCRT_CHECK_PMT(mode != NULL)) return EINVAL;
-
-    *pFile = fopen(filename, mode);
-
-    if(!*pFile)
-        return *_errno();
-    return 0;
-}
-
-/*********************************************************************
- *		_wfopen (MSVCRT.@)
- */
-FILE * CDECL _wfopen(const wchar_t *path, const wchar_t *mode)
-{
-    return _wfsopen( path, mode, _SH_DENYNO );
-}
-
-/*********************************************************************
- *		_wfopen_s (MSVCRT.@)
- */
-int CDECL _wfopen_s(FILE** pFile, const wchar_t *filename,
-        const wchar_t *mode)
-{
-    if (!MSVCRT_CHECK_PMT(pFile != NULL) || !MSVCRT_CHECK_PMT(filename != NULL) ||
-        !MSVCRT_CHECK_PMT(mode != NULL)) {
-        *_errno() = EINVAL;
-        return EINVAL;
-    }
-
-    *pFile = _wfopen(filename, mode);
-
-    if(!*pFile)
-        return *_errno();
-    return 0;
-}
-
-/* fputc calls _flsbuf which calls fputc */
-int CDECL _flsbuf(int c, FILE* file);
-
-/*********************************************************************
- *		fputc (MSVCRT.@)
- */
-int CDECL fputc(int c, FILE* file)
-{
-  int res;
-
-  _lock_file(file);
-  if(file->_cnt>0) {
-    *file->_ptr++=c;
-    file->_cnt--;
-    if (c == '\n')
-    {
-      res = msvcrt_flush_buffer(file);
-      _unlock_file(file);
-      return res ? res : c;
-    }
-    else {
-      _unlock_file(file);
-      return c & 0xff;
-    }
-  } else {
-    res = _flsbuf(c, file);
-    _unlock_file(file);
-    return res;
-  }
-}
-
-/*********************************************************************
- *		_fputchar (MSVCRT.@)
- */
-int CDECL _fputchar(int c)
-{
-  return fputc(c, stdout);
-}
-
-/*********************************************************************
- *		fread (MSVCRT.@)
- */
-size_t CDECL fread(void *ptr, size_t size, size_t nmemb, FILE* file)
-{
-  size_t rcnt=size * nmemb;
-  size_t read=0;
-  size_t pread=0;
-
-  if(!rcnt)
-	return 0;
-
-  _lock_file(file);
-
-  /* first buffered data */
-  if(file->_cnt>0) {
-	int pcnt= (rcnt>file->_cnt)? file->_cnt:rcnt;
-	memcpy(ptr, file->_ptr, pcnt);
-	file->_cnt -= pcnt;
-	file->_ptr += pcnt;
-	read += pcnt ;
-	rcnt -= pcnt ;
-        ptr = (char*)ptr + pcnt;
-  } else if(!(file->_flag & _IOREAD )) {
-	if(file->_flag & _IORW) {
-		file->_flag |= _IOREAD;
-	} else {
-        _unlock_file(file);
-        return 0;
-    }
-  }
-
-  if(rcnt>0 && !(file->_flag & (_IONBF | _IOMYBUF | _USERBUF)))
-      msvcrt_alloc_buffer(file);
-
-  while(rcnt>0)
-  {
-    int i;
-    if (!file->_cnt && rcnt<BUFSIZ && (file->_flag & (_IOMYBUF | _USERBUF))) {
-      file->_cnt = _read(file->_file, file->_base, file->_bufsiz);
-      file->_ptr = file->_base;
-      i = (file->_cnt<rcnt) ? file->_cnt : rcnt;
-      /* If the buffer fill reaches eof but fread wouldn't, clear eof. */
-      if (i > 0 && i < file->_cnt) {
-        get_ioinfo_nolock(file->_file)->wxflag &= ~WX_ATEOF;
-        file->_flag &= ~_IOEOF;
-      }
-      if (i > 0) {
-        memcpy(ptr, file->_ptr, i);
-        file->_cnt -= i;
-        file->_ptr += i;
-      }
-    } else if (rcnt > INT_MAX) {
-      i = _read(file->_file, ptr, INT_MAX);
-    } else if (rcnt < BUFSIZ) {
-      i = _read(file->_file, ptr, rcnt);
-    } else {
-      i = _read(file->_file, ptr, rcnt - BUFSIZ/2);
-    }
-    pread += i;
-    rcnt -= i;
-    ptr = (char *)ptr+i;
-    /* expose feof condition in the flags
-     * MFC tests file->_flag for feof, and doesn't call feof())
-     */
-    if (get_ioinfo_nolock(file->_file)->wxflag & WX_ATEOF)
-        file->_flag |= _IOEOF;
-    else if (i == -1)
-    {
-        file->_flag |= _IOERR;
-        pread = 0;
-        rcnt = 0;
-    }
-    if (i < 1) break;
-  }
-  read+=pread;
-  _unlock_file(file);
-  return read / size;
-}
-
-/*********************************************************************
- *		_wfreopen (MSVCRT.@)
- *
- */
-FILE* CDECL _wfreopen(const wchar_t *path, const wchar_t *mode, FILE* file)
-{
-  int open_flags, stream_flags, fd;
-
-  TRACE(":path (%s) mode (%s) file (%p) fd (%d)\n", debugstr_w(path), debugstr_w(mode), file, file ? file->_file : -1);
-
-  LOCK_FILES();
-  if (!file || ((fd = file->_file) < 0))
-    file = NULL;
-  else
-  {
-    fclose(file);
-    /* map mode string to open() flags. "man fopen" for possibilities. */
-    if (msvcrt_get_flags(mode, &open_flags, &stream_flags) == -1)
-      file = NULL;
-    else
-    {
-      fd = _wopen(path, open_flags, _S_IREAD | _S_IWRITE);
-      if (fd < 0)
-        file = NULL;
-      else if (msvcrt_init_fp(file, fd, stream_flags) == -1)
-      {
-          file->_flag = 0;
-          WARN(":failed-last error (%d)\n",GetLastError());
-          _dosmaperr(GetLastError());
-          file = NULL;
-      }
-    }
-  }
-  UNLOCK_FILES();
-  return file;
-}
-
-/*********************************************************************
- *      freopen (MSVCRT.@)
- *
- */
-FILE* CDECL freopen(const char *path, const char *mode, FILE* file)
-{
-    FILE *ret;
-    wchar_t *pathW = NULL, *modeW = NULL;
-
-    if (path && !(pathW = msvcrt_wstrdupa(path))) return NULL;
-    if (mode && !(modeW = msvcrt_wstrdupa(mode)))
-    {
-        free(pathW);
-        return NULL;
-    }
-
-    ret = _wfreopen(pathW, modeW, file);
-
-    free(pathW);
-    free(modeW);
-    return ret;
-}
-
-/*********************************************************************
- *		fsetpos (MSVCRT.@)
- */
-int CDECL fsetpos(FILE* file, const fpos_t *pos)
-{
-  int ret;
-
-  _lock_file(file);
-  /* Note that all this has been lifted 'as is' from fseek */
-  if(file->_flag & _IOWRT)
-	msvcrt_flush_buffer(file);
-
-  /* Discard buffered input */
-  file->_cnt = 0;
-  file->_ptr = file->_base;
-
-  /* Reset direction of i/o */
-  if(file->_flag & _IORW) {
-        file->_flag &= ~(_IOREAD|_IOWRT);
-  }
-
-  ret = (_lseeki64(file->_file,*pos,SEEK_SET) == -1) ? -1 : 0;
-  _unlock_file(file);
-  return ret;
-}
-
-/*********************************************************************
- *		_ftelli64 (MSVCRT.@)
- */
-__int64 CDECL _ftelli64(FILE* file)
-{
-    __int64 pos;
-
-    _lock_file(file);
-    pos = _telli64(file->_file);
-    if(pos == -1) {
-        _unlock_file(file);
-        return -1;
-    }
-    if(file->_flag & (_IOMYBUF | _USERBUF))  {
-        if(file->_flag & _IOWRT) {
-            pos += file->_ptr - file->_base;
-
-            if(get_ioinfo_nolock(file->_file)->wxflag & WX_TEXT) {
-                char *p;
-
-                for(p=file->_base; p<file->_ptr; p++)
-                    if(*p == '\n')
-                        pos++;
-            }
-        } else if(!file->_cnt) { /* nothing to do */
-        } else if(_lseeki64(file->_file, 0, SEEK_END)==pos) {
-            int i;
-
-            pos -= file->_cnt;
-            if(get_ioinfo_nolock(file->_file)->wxflag & WX_TEXT) {
-                for(i=0; i<file->_cnt; i++)
-                    if(file->_ptr[i] == '\n')
-                        pos--;
-            }
-        } else {
-            char *p;
-
-            if(_lseeki64(file->_file, pos, SEEK_SET) != pos) {
-                _unlock_file(file);
-                return -1;
-            }
-
-            pos -= file->_bufsiz;
-            pos += file->_ptr - file->_base;
-
-            if(get_ioinfo_nolock(file->_file)->wxflag & WX_TEXT) {
-                if(get_ioinfo_nolock(file->_file)->wxflag & WX_READNL)
-                    pos--;
-
-                for(p=file->_base; p<file->_ptr; p++)
-                    if(*p == '\n')
-                        pos++;
-            }
-        }
-    }
-
-    _unlock_file(file);
-    return pos;
-}
-
-/*********************************************************************
- *		ftell (MSVCRT.@)
- */
-LONG CDECL ftell(FILE* file)
-{
-  return (LONG)_ftelli64(file);
-}
-
-/*********************************************************************
- *		fgetpos (MSVCRT.@)
- */
-int CDECL fgetpos(FILE* file, fpos_t *pos)
-{
-    *pos = _ftelli64(file);
-    if(*pos == -1)
-        return -1;
-    return 0;
-}
-
-/*********************************************************************
- *		fputs (MSVCRT.@)
- */
-int CDECL fputs(const char *s, FILE* file)
-{
-    size_t len = strlen(s);
-    int ret;
-
-    _lock_file(file);
-    ret = fwrite(s, sizeof(*s), len, file) == len ? 0 : EOF;
-    _unlock_file(file);
-    return ret;
-}
-
-/*********************************************************************
- *		fputws (MSVCRT.@)
- */
-int CDECL fputws(const wchar_t *s, FILE* file)
-{
-    size_t i, len = strlenW(s);
-    BOOL tmp_buf;
-    int ret;
-
-    _lock_file(file);
-    if (!(get_ioinfo_nolock(file->_file)->wxflag & WX_TEXT)) {
-        ret = fwrite(s,sizeof(*s),len,file) == len ? 0 : EOF;
-        _unlock_file(file);
-        return ret;
-    }
-
-    tmp_buf = add_std_buffer(file);
-    for (i=0; i<len; i++) {
-        if(fputwc(s[i], file) == WEOF) {
-            if(tmp_buf) remove_std_buffer(file);
-            _unlock_file(file);
-            return WEOF;
-        }
-    }
-
-    if(tmp_buf) remove_std_buffer(file);
-    _unlock_file(file);
-    return 0;
-}
-
-/*********************************************************************
- *		getchar (MSVCRT.@)
- */
-int CDECL getchar(void)
-{
-  return fgetc(stdin);
-}
-
-/*********************************************************************
- *		getc (MSVCRT.@)
- */
-int CDECL getc(FILE* file)
-{
-  return fgetc(file);
-}
-
-/*********************************************************************
- *		gets (MSVCRT.@)
- */
-char * CDECL gets(char *buf)
-{
-  int    cc;
-  char * buf_start = buf;
-
-  _lock_file(stdin);
-  for(cc = fgetc(stdin); cc != EOF && cc != '\n';
-      cc = fgetc(stdin))
-  if(cc != '\r') *buf++ = (char)cc;
-
-  *buf = '\0';
-
-  TRACE("got '%s'\n", buf_start);
-  _unlock_file(stdin);
-  return buf_start;
-}
-
-/*********************************************************************
- *		_getws (MSVCRT.@)
- */
-wchar_t* CDECL _getws(wchar_t* buf)
-{
-    wint_t cc;
-    wchar_t* ws = buf;
-
-    _lock_file(stdin);
-    for (cc = fgetwc(stdin); cc != WEOF && cc != '\n';
-         cc = fgetwc(stdin))
-    {
-        if (cc != '\r')
-            *buf++ = (wchar_t)cc;
-    }
-    *buf = '\0';
-
-    TRACE("got %s\n", debugstr_w(ws));
-    _unlock_file(stdin);
-    return ws;
-}
-
-/*********************************************************************
- *		putc (MSVCRT.@)
- */
-int CDECL putc(int c, FILE* file)
-{
-  return fputc(c, file);
-}
-
-/*********************************************************************
- *		putchar (MSVCRT.@)
- */
-int CDECL putchar(int c)
-{
-  return fputc(c, stdout);
-}
-
-/*********************************************************************
- *		_putwch (MSVCRT.@)
- */
-wint_t CDECL _putwch(wchar_t c)
-{
-  return fputwc(c, stdout);
-}
-
-/*********************************************************************
- *		puts (MSVCRT.@)
- */
-int CDECL puts(const char *s)
-{
-    size_t len = strlen(s);
-    int ret;
-
-    _lock_file(stdout);
-    if(fwrite(s, sizeof(*s), len, stdout) != len) {
-        _unlock_file(stdout);
-        return EOF;
-    }
-
-    ret = fwrite("\n",1,1,stdout) == 1 ? 0 : EOF;
-    _unlock_file(stdout);
-    return ret;
-}
-
-/*********************************************************************
- *		_putws (MSVCRT.@)
- */
-int CDECL _putws(const wchar_t *s)
-{
-    static const wchar_t nl = '\n';
-    size_t len = strlenW(s);
-    int ret;
-
-    _lock_file(stdout);
-    if(fwrite(s, sizeof(*s), len, stdout) != len) {
-        _unlock_file(stdout);
-        return EOF;
-    }
-
-    ret = fwrite(&nl,sizeof(nl),1,stdout) == 1 ? 0 : EOF;
-    _unlock_file(stdout);
-    return ret;
-}
-
-/*********************************************************************
- *		remove (MSVCRT.@)
- */
-int CDECL remove(const char *path)
-{
-  TRACE("(%s)\n",path);
-  if (DeleteFileA(path))
-    return 0;
-  TRACE(":failed (%d)\n",GetLastError());
-  _dosmaperr(GetLastError());
-  return -1;
-}
-
-/*********************************************************************
- *		_wremove (MSVCRT.@)
- */
-int CDECL _wremove(const wchar_t *path)
-{
-  TRACE("(%s)\n",debugstr_w(path));
-  if (DeleteFileW(path))
-    return 0;
-  TRACE(":failed (%d)\n",GetLastError());
-  _dosmaperr(GetLastError());
-  return -1;
-}
-
-/*********************************************************************
- *		rename (MSVCRT.@)
- */
-int CDECL rename(const char *oldpath,const char *newpath)
-{
-  TRACE(":from %s to %s\n",oldpath,newpath);
-  if (MoveFileExA(oldpath, newpath, MOVEFILE_COPY_ALLOWED))
-    return 0;
-  TRACE(":failed (%d)\n",GetLastError());
-  _dosmaperr(GetLastError());
-  return -1;
-}
-
-/*********************************************************************
- *		_wrename (MSVCRT.@)
- */
-int CDECL _wrename(const wchar_t *oldpath,const wchar_t *newpath)
-{
-  TRACE(":from %s to %s\n",debugstr_w(oldpath),debugstr_w(newpath));
-  if (MoveFileExW(oldpath, newpath, MOVEFILE_COPY_ALLOWED))
-    return 0;
-  TRACE(":failed (%d)\n",GetLastError());
-  _dosmaperr(GetLastError());
-  return -1;
-}
-
-/*********************************************************************
- *		setvbuf (MSVCRT.@)
- */
-int CDECL setvbuf(FILE* file, char *buf, int mode, size_t size)
-{
-    if(!MSVCRT_CHECK_PMT(file != NULL)) return -1;
-    if(!MSVCRT_CHECK_PMT(mode==_IONBF || mode==_IOFBF || mode==_IOLBF)) return -1;
-    if(!MSVCRT_CHECK_PMT(mode==_IONBF || (size>=2 && size<=INT_MAX))) return -1;
-
-    _lock_file(file);
-
-    fflush(file);
-    if(file->_flag & _IOMYBUF)
-        free(file->_base);
-    file->_flag &= ~(_IONBF | _IOMYBUF | _USERBUF);
-    file->_cnt = 0;
-
-    if(mode == _IONBF) {
-        file->_flag |= _IONBF;
-        file->_base = file->_ptr = (char*)&file->_charbuf;
-        file->_bufsiz = 2;
-    }else if(buf) {
-        file->_base = file->_ptr = buf;
-        file->_flag |= _USERBUF;
-        file->_bufsiz = size;
-    }else {
-        file->_base = file->_ptr = malloc(size);
-        if(!file->_base) {
-            file->_bufsiz = 0;
-            _unlock_file(file);
-            return -1;
-        }
-
-        file->_flag |= _IOMYBUF;
-        file->_bufsiz = size;
-    }
-    _unlock_file(file);
-    return 0;
-}
-
-/*********************************************************************
- *		setbuf (MSVCRT.@)
- */
-void CDECL setbuf(FILE* file, char *buf)
-{
-  setvbuf(file, buf, buf ? _IOFBF : _IONBF, BUFSIZ);
-}
-
-/*********************************************************************
- *		tmpnam (MSVCRT.@)
- */
-char * CDECL tmpnam(char *s)
-{
-  char tmpstr[16];
-  char *p;
-  int count, size;
-
-  if (!s) {
-    thread_data_t *data = msvcrt_get_thread_data();
-
-    if(!data->tmpnam_buffer)
-      data->tmpnam_buffer = malloc(MAX_PATH);
-
-    s = data->tmpnam_buffer;
-  }
-
-  msvcrt_int_to_base32(GetCurrentProcessId(), tmpstr);
-  p = s + sprintf(s, "\\s%s.", tmpstr);
-  for (count = 0; count < TMP_MAX; count++)
-  {
-    size = msvcrt_int_to_base32(tmpnam_unique++, tmpstr);
-    memcpy(p, tmpstr, size);
-    p[size] = '\0';
-    if (GetFileAttributesA(s) == INVALID_FILE_ATTRIBUTES &&
-        GetLastError() == ERROR_FILE_NOT_FOUND)
-      break;
-  }
-  return s;
-}
-
-/*********************************************************************
- *              _wtmpnam (MSVCRT.@)
- */
-wchar_t * CDECL _wtmpnam(wchar_t *s)
-{
-    static const wchar_t format[] = {'\\','s','%','s','.',0};
-    wchar_t tmpstr[16];
-    wchar_t *p;
-    int count, size;
-    if (!s) {
-        thread_data_t *data = msvcrt_get_thread_data();
-
-        if(!data->wtmpnam_buffer)
-            data->wtmpnam_buffer = malloc(sizeof(wchar_t[MAX_PATH]));
-
-        s = data->wtmpnam_buffer;
-    }
-
-    msvcrt_int_to_base32_w(GetCurrentProcessId(), tmpstr);
-    p = s + _snwprintf(s, MAX_PATH, format, tmpstr);
-    for (count = 0; count < TMP_MAX; count++)
-    {
-        size = msvcrt_int_to_base32_w(tmpnam_unique++, tmpstr);
-        memcpy(p, tmpstr, size*sizeof(wchar_t));
-        p[size] = '\0';
-        if (GetFileAttributesW(s) == INVALID_FILE_ATTRIBUTES &&
-                GetLastError() == ERROR_FILE_NOT_FOUND)
-            break;
-    }
-    return s;
-}
-
-/*********************************************************************
- *		tmpfile (MSVCRT.@)
- */
-FILE* CDECL tmpfile(void)
-{
-  char *filename = tmpnam(NULL);
-  int fd;
-  FILE* file = NULL;
-
-  LOCK_FILES();
-  fd = _open(filename, _O_CREAT | _O_BINARY | _O_RDWR | _O_TEMPORARY,
-          _S_IREAD | _S_IWRITE);
-  if (fd != -1 && (file = msvcrt_alloc_fp()))
-  {
-    if (msvcrt_init_fp(file, fd, _IORW) == -1)
-    {
-        file->_flag = 0;
-        file = NULL;
-    }
-    else file->_tmpfname = _strdup(filename);
-  }
-
-  if(fd != -1 && !file)
-      _close(fd);
-  UNLOCK_FILES();
-  return file;
-}
-
-/*********************************************************************
- *		ungetc (MSVCRT.@)
- */
-int CDECL ungetc(int c, FILE * file)
-{
-    if(!MSVCRT_CHECK_PMT(file != NULL)) return EOF;
-
-    if (c == EOF || !(file->_flag&_IOREAD ||
-                (file->_flag&_IORW && !(file->_flag&_IOWRT))))
-        return EOF;
-
-    _lock_file(file);
-    if((!(file->_flag & (_IONBF | _IOMYBUF | _USERBUF))
-                && msvcrt_alloc_buffer(file))
-            || (!file->_cnt && file->_ptr==file->_base))
-        file->_ptr++;
-
-    if(file->_ptr>file->_base) {
-        file->_ptr--;
-        if(file->_flag & _IOSTRG) {
-            if(*file->_ptr != c) {
-                file->_ptr++;
-                _unlock_file(file);
-                return EOF;
-            }
-        }else {
-            *file->_ptr = c;
-        }
-        file->_cnt++;
-        clearerr(file);
-        file->_flag |= _IOREAD;
-        _unlock_file(file);
-        return c;
-    }
-
-    _unlock_file(file);
-    return EOF;
-}
-
-/*********************************************************************
- *              ungetwc (MSVCRT.@)
- */
-wint_t CDECL ungetwc(wint_t wc, FILE * file)
-{
-    wchar_t mwc = wc;
-
-    if (wc == WEOF)
-        return WEOF;
-
-    _lock_file(file);
-
-    if((get_ioinfo_nolock(file->_file)->exflag & (EF_UTF8 | EF_UTF16))
-            || !(get_ioinfo_nolock(file->_file)->wxflag & WX_TEXT)) {
-        unsigned char * pp = (unsigned char *)&mwc;
-        int i;
-
-        for(i=sizeof(wchar_t)-1;i>=0;i--) {
-            if(pp[i] != ungetc(pp[i],file)) {
-                _unlock_file(file);
-                return WEOF;
-            }
-        }
-    }else {
-        char mbs[MB_LEN_MAX];
-        int len;
-
-        len = wctomb(mbs, mwc);
-        if(len == -1) {
-            _unlock_file(file);
-            return WEOF;
-        }
-
-        for(len--; len>=0; len--) {
-            if(mbs[len] != ungetc(mbs[len], file)) {
-                _unlock_file(file);
-                return WEOF;
-            }
-        }
-    }
-
-    _unlock_file(file);
-    return mwc;
-}
-
-
-
-/*********************************************************************
- *		_getmaxstdio (MSVCRT.@)
- */
-int CDECL _getmaxstdio(void)
-{
-    return MSVCRT_max_streams;
-}
-
-/*********************************************************************
- *		_setmaxstdio (MSVCRT.@)
- */
-int CDECL _setmaxstdio(int newmax)
-{
-    TRACE("%d\n", newmax);
-
-    if(newmax<_IOB_ENTRIES || newmax>MSVCRT_MAX_FILES || newmax<MSVCRT_stream_idx)
-        return -1;
-
-    MSVCRT_max_streams = newmax;
-    return MSVCRT_max_streams;
-}

sdk/lib/crt/stdio/find.c

···
-#include <precomp.h>
-#include <tchar.h>
-#include <io.h>
-
-// Generate _findfirst and _findnext
-#include "findgen.c"
-
-/*
- * @implemented
- */
-int _findclose(intptr_t handle)
-{
-  if (!FindClose((HANDLE)handle)) {
-    _dosmaperr(GetLastError());
-    return -1;
-  }
-
-  return 0;
-}

sdk/lib/crt/stdio/find64.c

···
-#include <precomp.h>
-#include <tchar.h>
-#include <io.h>
-
-// Generate _findfirst64 and _findnext64
-#undef _findfirst
-#define _findfirst _findfirst64
-#undef _findnext
-#define _findnext _findnext64
-#undef _finddata_t
-#define _finddata_t __finddata64_t
-
-#include "findgen.c"

sdk/lib/crt/stdio/findgen.c

···
-
-/*
- * @implemented
- */
-intptr_t _tfindfirst(const _TCHAR* _name, struct _tfinddata_t* result)
-{
-    WIN32_FIND_DATA FindFileData;
-    HANDLE hFindFile;
-
-    hFindFile = FindFirstFile(_name, &FindFileData);
-    if (hFindFile == INVALID_HANDLE_VALUE) {
-        _dosmaperr(GetLastError());
-        return -1;
-    }
-
-    result->attrib = FindFileData.dwFileAttributes;
-    result->time_create = (time_t)FileTimeToUnixTime(&FindFileData.ftCreationTime,NULL);
-    result->time_access = (time_t)FileTimeToUnixTime(&FindFileData.ftLastAccessTime,NULL);
-    result->time_write = (time_t)FileTimeToUnixTime(&FindFileData.ftLastWriteTime,NULL);
-    result->size = (((__int64)FindFileData.nFileSizeHigh)<<32) + FindFileData.nFileSizeLow;
-    _tcsncpy(result->name,FindFileData.cFileName,MAX_PATH);
-
-    return (intptr_t)hFindFile;
-}
-
-/*
- * @implemented
- */
-int _tfindnext(intptr_t handle, struct _tfinddata_t* result)
-{
-    WIN32_FIND_DATA FindFileData;
-
-    if (!FindNextFile((HANDLE)handle, &FindFileData)) {
-    	_dosmaperr(GetLastError());
-        return -1;
-	}
-
-    result->attrib = FindFileData.dwFileAttributes;
-    result->time_create = (time_t)FileTimeToUnixTime(&FindFileData.ftCreationTime,NULL);
-    result->time_access = (time_t)FileTimeToUnixTime(&FindFileData.ftLastAccessTime,NULL);
-    result->time_write = (time_t)FileTimeToUnixTime(&FindFileData.ftLastWriteTime,NULL);
-    result->size = (((__int64)FindFileData.nFileSizeHigh)<<32) + FindFileData.nFileSizeLow;
-    _tcsncpy(result->name,FindFileData.cFileName, MAX_PATH);
-
-    return 0;
-}

sdk/lib/crt/stdio/findi64.c

···
-#include <precomp.h>
-#include <tchar.h>
-#include <io.h>
-
-// Generate _findfirsti64 and _findnexti64
-#undef _findfirst
-#define _findfirst _findfirsti64
-#undef _findnext
-#define _findnext _findnexti64
-#undef _finddata_t
-#define _finddata_t _finddatai64_t
-
-#include "findgen.c"

sdk/lib/crt/stdio/fmode.c

···
-/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
-#include <precomp.h>
-
-int _fmode = 0;
-
-/*
- * @implemented
- */
-int *__p__fmode(void)
-{
-   return &_fmode;
-}

sdk/lib/crt/stdio/perror.c

···
-/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
-#include <precomp.h>
-
-
-/*
- * @implemented
- */
-void _wperror(const wchar_t *s)
-{
-  fwprintf(stderr, L"%s: %S\n", s, _strerror(NULL));
-}

sdk/lib/crt/stdio/popen.c

···
-/*
- * COPYRIGHT:       See COPYING in the top level directory
- * PROJECT:         ReactOS C runtime library
- * FILE:            lib/sdk/crt/stdio/popen.c
- * PURPOSE:         Pipe Functions
- * PROGRAMMERS:     Eric Kohl
- *                  Hartmut Birr
- *                  Also adapted from Wine team code by Andreas Maier.
- */
-
-#include <precomp.h>
-#include <tchar.h>
-
-#ifdef _UNICODE
-#define sT "S"
-#else
-#define sT "s"
-#endif
-
-#define MK_STR(s) #s
-
-int msvcrt_alloc_fd(HANDLE hand, int flag); //FIXME: Remove
-unsigned split_oflags(unsigned oflags); //FIXME: Remove
-
-#ifndef _UNICODE
-struct popen_handle *popen_handles = NULL;
-DWORD popen_handles_size = 0;
-
-void msvcrt_free_popen_data(void)
-{
-    free(popen_handles);
-}
-#endif
-
-/*
- * @implemented
- */
-FILE *_tpopen (const _TCHAR *cm, const _TCHAR *md) /* program name, pipe mode */
-{
-    _TCHAR *szCmdLine=NULL;
-    _TCHAR *szComSpec=NULL;
-    _TCHAR *s;
-    FILE *ret;
-    HANDLE hReadPipe, hWritePipe;
-    BOOL result;
-    STARTUPINFO StartupInfo;
-    PROCESS_INFORMATION ProcessInformation;
-    SECURITY_ATTRIBUTES sa = {sizeof(SECURITY_ATTRIBUTES), NULL, TRUE};
-    struct popen_handle *container;
-    DWORD i;
-
-    TRACE(MK_STR(_tpopen)"('%"sT"', '%"sT"')\n", cm, md);
-
-    if (cm == NULL)
-        return NULL;
-
-    szComSpec = _tgetenv(_T("COMSPEC"));
-    if (szComSpec == NULL)
-    {
-        szComSpec = _T("cmd.exe");
-    }
-
-    s = max(_tcsrchr(szComSpec, '\\'), _tcsrchr(szComSpec, '/'));
-    if (s == NULL)
-        s = szComSpec;
-    else
-        s++;
-
-    szCmdLine = malloc((_tcslen(s) + 4 + _tcslen(cm) + 1) * sizeof(_TCHAR));
-    if (szCmdLine == NULL)
-    {
-        return NULL;
-    }
-
-    _tcscpy(szCmdLine, s);
-    s = _tcsrchr(szCmdLine, '.');
-    if (s)
-        *s = 0;
-    _tcscat(szCmdLine, _T(" /C "));
-    _tcscat(szCmdLine, cm);
-
-    if ( !CreatePipe(&hReadPipe,&hWritePipe,&sa,1024))
-    {
-        free (szCmdLine);
-        return NULL;
-    }
-
-    memset(&ProcessInformation, 0, sizeof(ProcessInformation));
-    memset(&StartupInfo, 0, sizeof(STARTUPINFO));
-    StartupInfo.cb = sizeof(STARTUPINFO);
-
-    if (*md == 'r' ) {
-        StartupInfo.hStdInput = GetStdHandle(STD_INPUT_HANDLE);
-        StartupInfo.hStdOutput = hWritePipe;
-        StartupInfo.dwFlags |= STARTF_USESTDHANDLES;
-    }
-    else if ( *md == 'w' ) {
-        StartupInfo.hStdInput = hReadPipe;
-        StartupInfo.hStdOutput = GetStdHandle(STD_OUTPUT_HANDLE);
-        StartupInfo.dwFlags |= STARTF_USESTDHANDLES;
-    }
-
-    if (StartupInfo.dwFlags & STARTF_USESTDHANDLES)
-        StartupInfo.hStdError = GetStdHandle(STD_ERROR_HANDLE);
-
-    result = CreateProcess(szComSpec,
-        szCmdLine,
-        NULL,
-        NULL,
-        TRUE,
-        0,
-        NULL,
-        NULL,
-        &StartupInfo,
-        &ProcessInformation);
-    free (szCmdLine);
-
-    if (result == FALSE)
-    {
-        CloseHandle(hReadPipe);
-        CloseHandle(hWritePipe);
-        return NULL;
-    }
-
-    CloseHandle(ProcessInformation.hThread);
-
-    _mlock(_POPEN_LOCK);
-    for(i=0; i<popen_handles_size; i++)
-    {
-        if (!popen_handles[i].f)
-            break;
-    }
-    if (i==popen_handles_size)
-    {
-        i = (popen_handles_size ? popen_handles_size*2 : 8);
-        container = realloc(popen_handles, i*sizeof(*container));
-        if (!container) goto error;
-
-        popen_handles = container;
-        container = popen_handles+popen_handles_size;
-        memset(container, 0, (i-popen_handles_size)*sizeof(*container));
-        popen_handles_size = i;
-    }
-    else container = popen_handles+i;
-
-    if ( *md == 'r' )
-    {
-        ret = _tfdopen(msvcrt_alloc_fd(hReadPipe,  split_oflags(_fmode)) , _T("r"));
-        CloseHandle(hWritePipe);
-    }
-    else
-    {
-        ret = _tfdopen( msvcrt_alloc_fd(hWritePipe, split_oflags(_fmode)) , _T("w"));
-        CloseHandle(hReadPipe);
-    }
-
-    container->f = ret;
-    container->proc = ProcessInformation.hProcess;
-    _munlock(_POPEN_LOCK);
-
-    return ret;
-
-error:
-    _munlock(_POPEN_LOCK);
-    if (ProcessInformation.hProcess != 0)
-        CloseHandle(ProcessInformation.hProcess);
-    return NULL;
-}
-
-#ifndef _UNICODE
-
-/*
- * @implemented
- */
-int CDECL _pclose(FILE* file)
-{
-    HANDLE h;
-    DWORD i;
-
-    if (!MSVCRT_CHECK_PMT(file != NULL)) return -1;
-
-    _mlock(_POPEN_LOCK);
-    for(i=0; i<popen_handles_size; i++)
-    {
-        if (popen_handles[i].f == file)
-            break;
-    }
-    if(i == popen_handles_size)
-    {
-        _munlock(_POPEN_LOCK);
-        *_errno() = EBADF;
-        return -1;
-    }
-
-    h = popen_handles[i].proc;
-    popen_handles[i].f = NULL;
-    _munlock(_POPEN_LOCK);
-
-    fclose(file);
-    if(WaitForSingleObject(h, INFINITE)==WAIT_FAILED || !GetExitCodeProcess(h, &i))
-    {
-        _dosmaperr(GetLastError());
-        CloseHandle(h);
-        return -1;
-    }
-
-    CloseHandle(h);
-    return i;
-}
-
-#endif

sdk/lib/crt/stdio/stat.c

···
-#include <precomp.h>
-#include <tchar.h>
-
-#define stat64_to_stat(buf64, buf)   \
-    do { \
-    buf->st_dev   = (buf64)->st_dev;   \
-    buf->st_ino   = (buf64)->st_ino;   \
-    buf->st_mode  = (buf64)->st_mode;  \
-    buf->st_nlink = (buf64)->st_nlink; \
-    buf->st_uid   = (buf64)->st_uid;   \
-    buf->st_gid   = (buf64)->st_gid;   \
-    buf->st_rdev  = (buf64)->st_rdev;  \
-    buf->st_size  = (_off_t)(buf64)->st_size;  \
-    buf->st_atime = (time_t)(buf64)->st_atime; \
-    buf->st_mtime = (time_t)(buf64)->st_mtime; \
-    buf->st_ctime = (time_t)(buf64)->st_ctime; \
-    } while (0)
-
-int CDECL _tstat(const _TCHAR* path, struct _stat * buf)
-{
-  int ret;
-  struct __stat64 buf64;
-
-  ret = _tstat64(path, &buf64);
-  if (!ret)
-    stat64_to_stat(&buf64, buf);
-  return ret;
-}
-
-int CDECL _tstati64(const _TCHAR* path, struct _stati64 * buf)
-{
-  int ret;
-  struct __stat64 buf64;
-
-  ret = _tstat64(path, &buf64);
-  if (!ret)
-    stat64_to_stat(&buf64, buf);
-  return ret;
-}
-
-#ifndef _UNICODE
-
-int CDECL _fstat(int fd, struct _stat* buf)
-{ int ret;
-  struct __stat64 buf64;
-
-  ret = _fstat64(fd, &buf64);
-  if (!ret)
-      stat64_to_stat(&buf64, buf);
-  return ret;
-}
-
-int CDECL _fstati64(int fd, struct _stati64* buf)
-{
-  int ret;
-  struct __stat64 buf64;
-
-  ret = _fstat64(fd, &buf64);
-  if (!ret)
-    stat64_to_stat(&buf64, buf);
-  return ret;
-}
-
-#endif

sdk/lib/crt/stdio/stat64.c

···
-#include <precomp.h>
-#include <tchar.h>
-#include <direct.h>
-#include <internal/wine/msvcrt.h>
-
-ioinfo* get_ioinfo(int fd);
-void release_ioinfo(ioinfo *info);
-
-#define ALL_S_IREAD  (_S_IREAD  | (_S_IREAD  >> 3) | (_S_IREAD  >> 6))
-#define ALL_S_IWRITE (_S_IWRITE | (_S_IWRITE >> 3) | (_S_IWRITE >> 6))
-#define ALL_S_IEXEC  (_S_IEXEC  | (_S_IEXEC  >> 3) | (_S_IEXEC  >> 6))
-
-#ifdef UNICODE
-#define TCHAR4 ULONGLONG
-#else
-#define TCHAR4 ULONG
-#endif
-
-#define TCSIZE_BITS (sizeof(_TCHAR)*8)
-
-#define EXE (((TCHAR4)('e')<<(2*TCSIZE_BITS)) | ((TCHAR4)('x')<<TCSIZE_BITS) | ((TCHAR4)('e')))
-#define BAT (((TCHAR4)('b')<<(2*TCSIZE_BITS)) | ((TCHAR4)('a')<<TCSIZE_BITS) | ((TCHAR4)('t')))
-#define CMD (((TCHAR4)('c')<<(2*TCSIZE_BITS)) | ((TCHAR4)('m')<<TCSIZE_BITS) | ((TCHAR4)('d')))
-#define COM (((TCHAR4)('c')<<(2*TCSIZE_BITS)) | ((TCHAR4)('o')<<TCSIZE_BITS) | ((TCHAR4)('m')))
-
-int CDECL _tstat64(const _TCHAR *path, struct __stat64 *buf)
-{
-  DWORD dw;
-  WIN32_FILE_ATTRIBUTE_DATA hfi;
-  unsigned short mode = ALL_S_IREAD;
-  size_t plen;
-
-  TRACE(":file (%s) buf(%p)\n",path,buf);
-
-  plen = _tcslen(path);
-  while (plen && path[plen-1]==__T(' '))
-    plen--;
-
-  if (plen && (plen<2 || path[plen-2]!=__T(':')) &&
-          (path[plen-1]==__T(':') || path[plen-1]==__T('\\') || path[plen-1]==__T('/')))
-  {
-    *_errno() = ENOENT;
-    return -1;
-  }
-
-  if (!GetFileAttributesEx(path, GetFileExInfoStandard, &hfi))
-  {
-      TRACE("failed (%d)\n",GetLastError());
-      *_errno() = ENOENT;
-      return -1;
-  }
-
-  memset(buf,0,sizeof(struct __stat64));
-
-  /* FIXME: rdev isn't drive num, despite what the docs say-what is it?
-     Bon 011120: This FIXME seems incorrect
-                 Also a letter as first char isn't enough to be classified
-		 as a drive letter
-  */
-  if (_istalpha(*path) && (*(path+1)==__T(':')))
-    buf->st_dev = buf->st_rdev = _totupper(*path) - __T('A'); /* drive num */
-  else
-    buf->st_dev = buf->st_rdev = _getdrive() - 1;
-
-  /* Dir, or regular file? */
-  if (hfi.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
-    mode |= (_S_IFDIR | ALL_S_IEXEC);
-  else
-  {
-    mode |= _S_IFREG;
-    /* executable? */
-    if (plen > 6 && path[plen-4] == __T('.'))  /* shortest exe: "\x.exe" */
-    {
-
-      TCHAR4 ext = (TCHAR4)_totlower(path[plen-1])
-                   | ((TCHAR4)_totlower(path[plen-2]) << TCSIZE_BITS)
-                   | ((TCHAR4)_totlower(path[plen-3]) << 2*TCSIZE_BITS);
-
-      if (ext == EXE || ext == BAT || ext == CMD || ext == COM)
-          mode |= ALL_S_IEXEC;
-    }
-  }
-
-  if (!(hfi.dwFileAttributes & FILE_ATTRIBUTE_READONLY))
-    mode |= ALL_S_IWRITE;
-
-  buf->st_mode  = mode;
-  buf->st_nlink = 1;
-  buf->st_size  = ((__int64)hfi.nFileSizeHigh << 32) + hfi.nFileSizeLow;
-  RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastAccessTime, &dw);
-  buf->st_atime = dw;
-  RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastWriteTime, &dw);
-  buf->st_mtime = buf->st_ctime = dw;
-  TRACE("%d %d 0x%08x%08x %d %d %d\n", buf->st_mode,buf->st_nlink,
-        (int)(buf->st_size >> 32),(int)buf->st_size,
-        (int)buf->st_atime,(int)buf->st_mtime,(int)buf->st_ctime);
-  return 0;
-}
-
-#ifndef _UNICODE
-
-int CDECL _fstat64(int fd, struct __stat64* buf)
-{
-  ioinfo *info = get_ioinfo(fd);
-  DWORD dw;
-  DWORD type;
-  BY_HANDLE_FILE_INFORMATION hfi;
-
-  TRACE(":fd (%d) stat (%p)\n", fd, buf);
-  if (info->handle == INVALID_HANDLE_VALUE)
-  {
-    release_ioinfo(info);
-    return -1;
-  }
-
-  if (!buf)
-  {
-    WARN(":failed-NULL buf\n");
-    _dosmaperr(ERROR_INVALID_PARAMETER);
-    release_ioinfo(info);
-    return -1;
-  }
-
-  memset(&hfi, 0, sizeof(hfi));
-  memset(buf, 0, sizeof(struct __stat64));
-  type = GetFileType(info->handle);
-  if (type == FILE_TYPE_PIPE)
-  {
-    buf->st_dev = buf->st_rdev = fd;
-    buf->st_mode = _S_IFIFO;
-    buf->st_nlink = 1;
-  }
-  else if (type == FILE_TYPE_CHAR)
-  {
-    buf->st_dev = buf->st_rdev = fd;
-    buf->st_mode = _S_IFCHR;
-    buf->st_nlink = 1;
-  }
-  else /* FILE_TYPE_DISK etc. */
-  {
-    if (!GetFileInformationByHandle(info->handle, &hfi))
-    {
-      WARN(":failed-last error (%d)\n",GetLastError());
-      _dosmaperr(ERROR_INVALID_PARAMETER);
-      release_ioinfo(info);
-      return -1;
-    }
-    buf->st_mode = _S_IFREG | ALL_S_IREAD;
-    if (!(hfi.dwFileAttributes & FILE_ATTRIBUTE_READONLY))
-      buf->st_mode |= ALL_S_IWRITE;
-    buf->st_size  = ((__int64)hfi.nFileSizeHigh << 32) + hfi.nFileSizeLow;
-    RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastAccessTime, &dw);
-    buf->st_atime = dw;
-    RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastWriteTime, &dw);
-    buf->st_mtime = buf->st_ctime = dw;
-    buf->st_nlink = (short)hfi.nNumberOfLinks;
-  }
-  TRACE(":dwFileAttributes = 0x%x, mode set to 0x%x\n",hfi.dwFileAttributes,
-   buf->st_mode);
-  release_ioinfo(info);
-  return 0;
-}
-
-#endif

sdk/lib/crt/stdio/stdio.cmake

···
-
-list(APPEND CRT_STDIO_SOURCE
-    stdio/_flsbuf.c
-    stdio/_flswbuf.c
-    stdio/access.c
-    stdio/file.c
-    stdio/find.c
-    stdio/find64.c
-    stdio/findi64.c
-    stdio/fmode.c
-    stdio/perror.c
-    stdio/popen.c
-    stdio/stat.c
-    stdio/stat64.c
-    stdio/waccess.c
-    stdio/wfind.c
-    stdio/wfind64.c
-    stdio/wfindi64.c
-    stdio/wpopen.c
-    stdio/wstat.c
-    stdio/wstat64.c
-)

sdk/lib/crt/stdio/waccess.c

···
-#define UNICODE
-#define _UNICODE
-
-#include "access.c"

sdk/lib/crt/stdio/wfind.c

···
-#define UNICODE
-#define _UNICODE
-
-#include <precomp.h>
-#include <tchar.h>
-#include <io.h>
-
-// Generate _findfirst and _findnext
-#include "findgen.c"

sdk/lib/crt/stdio/wfind64.c

···
-#define UNICODE
-#define _UNICODE
-
-#include <precomp.h>
-#include <tchar.h>
-#include <io.h>
-
-// Generate _findfirst64 and _findnext64
-#undef _wfindfirst
-#define _wfindfirst _wfindfirst64
-#undef _wfindnext
-#define _wfindnext _wfindnext64
-#undef _wfinddata_t
-#define _wfinddata_t _wfinddata64_t
-
-#include "findgen.c"

sdk/lib/crt/stdio/wfindi64.c

···
-#define UNICODE
-#define _UNICODE
-
-#include <precomp.h>
-#include <tchar.h>
-#include <io.h>
-
-// Generate _findfirsti64 and _findnexti64
-#undef _wfindfirst
-#define _wfindfirst _wfindfirsti64
-#undef _wfindnext
-#define _wfindnext _wfindnexti64
-#undef _wfinddata_t
-#define _wfinddata_t _wfinddatai64_t
-
-#include "findgen.c"

sdk/lib/crt/stdio/wpopen.c

···
-#define _UNICODE
-#define UNICODE
-
-#include "popen.c"
-

sdk/lib/crt/stdio/wstat.c

···
-#define UNICODE
-#define _UNICODE
-
-#include "stat.c"

sdk/lib/crt/stdio/wstat64.c

···
-#define UNICODE
-#define _UNICODE
-
-#include "stat64.c"

sdk/lib/crt/stdlib/_exit.c

···
-/* taken from wine exit.c */
-#include <precomp.h>
-
-/*
- * @implemented
- */
-void _cexit( void )
-{
-  LOCK_EXIT;
-  __call_atexit();
-  UNLOCK_EXIT;
-}
-
-/*
- * @implemented
- */
-void _c_exit( void )
-{
-  /* All cleanup is done on DLL detach; Return to caller */
-}
-
-/*
- * @implemented
- */
-void _exit(int exitcode)
-{
-    ExitProcess(exitcode);
-}
-
-/*
- * @implemented
- */
-void exit(int exitcode)
-{
-#if 0
-  HMODULE hmscoree;
-  static const WCHAR mscoreeW[] = {'m','s','c','o','r','e','e',0};
-  void (WINAPI *pCorExitProcess)(int);
-#endif
-  WARN("exit(%d) called\n",exitcode);
-  _cexit();
-#if 0
-  hmscoree = GetModuleHandleW(mscoreeW);
-
-  if (hmscoree)
-  {
-    pCorExitProcess = (void*)GetProcAddress(hmscoree, "CorExitProcess");
-
-    if (pCorExitProcess)
-      pCorExitProcess(exitcode);
-  }
-#endif
-  ExitProcess(exitcode);
-
-}

sdk/lib/crt/stdlib/_set_abort_behavior.c

···
-/*
- * PROJECT:         ReactOS C runtime library
- * LICENSE:         BSD - See COPYING.ARM in the top level directory
- * FILE:            lib/sdk/crt/stdlib/_set_abort_behavior.c
- * PURPOSE:         _set_abort_behavior implementation
- * PROGRAMMER:      Timo Kreuzer ([e-mail])
- */
-
-extern unsigned int __abort_behavior;
-
-/*!
- * \brief Specifies the behavior of the abort() function.
- *
- * \param flags - Value of the new flags.
- * \param mask - Mask that specifies which flags to update.
- * \return The old flags value.
- */
-unsigned int
-_cdecl
-_set_abort_behavior(
-    unsigned int flags,
-    unsigned int mask)
-{
-    unsigned int old_flags;
-
-    /* Save the old flags */
-    old_flags = __abort_behavior;
-
-    /* Reset all flags that are not in the mask */
-    flags &= mask;
-
-    /* Update the flags in the mask to the new flags value */
-    __abort_behavior &= ~mask;
-    __abort_behavior |= flags;
-
-    /* Return the old flags */
-    return old_flags;
-}
-

sdk/lib/crt/stdlib/atold.c

···
-/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
-#include <stdlib.h>
-
-long double
-_atold(const char *ascii)
-{
-  return _strtold(ascii, 0);
-}

sdk/lib/crt/stdlib/clang-alias.s

···
-#include <asm.inc>
-
-.code
-
-MACRO(DEFINE_ALIAS, alias, orig)
-EXTERN &orig : PROC
-ALIAS <&alias> = <&orig>
-ENDM
-
-#ifdef _M_X64
-DEFINE_ALIAS _rotl, __function_rotl
-DEFINE_ALIAS _rotr, __function_rotr
-DEFINE_ALIAS _lrotl, __function_lrotl
-DEFINE_ALIAS _lrotr, __function_lrotr
-#else
-DEFINE_ALIAS __rotl, ___function_rotl
-DEFINE_ALIAS __rotr, ___function_rotr
-DEFINE_ALIAS __lrotl, ___function_lrotl
-DEFINE_ALIAS __lrotr, ___function_lrotr
-#endif
-
-END

sdk/lib/crt/stdlib/doserrmap.h

···
-/* doserrmap.h: auto-generated from winerror.h and errno.h using undoc'd _dosmaperr. */
-
-#ifndef doserrmap_h
-#define doserrmap_h
-
-struct {
-	unsigned long winerr;
-	int en;
-} doserrmap[] = {
-	{ ERROR_FILE_NOT_FOUND, ENOENT },
-	{ ERROR_PATH_NOT_FOUND, ENOENT },
-	{ ERROR_TOO_MANY_OPEN_FILES, EMFILE },
-	{ ERROR_ACCESS_DENIED, EACCES },
-	{ ERROR_INVALID_HANDLE, EBADF },
-	{ ERROR_ARENA_TRASHED, ENOMEM },
-	{ ERROR_NOT_ENOUGH_MEMORY, ENOMEM },
-	{ ERROR_INVALID_BLOCK, ENOMEM },
-	{ ERROR_BAD_ENVIRONMENT, E2BIG },
-	{ ERROR_BAD_FORMAT, ENOEXEC },
-	{ ERROR_INVALID_DRIVE, ENOENT },
-	{ ERROR_CURRENT_DIRECTORY, EACCES },
-	{ ERROR_NOT_SAME_DEVICE, EXDEV },
-	{ ERROR_NO_MORE_FILES, ENOENT },
-	{ ERROR_WRITE_PROTECT, EACCES },
-	{ ERROR_BAD_UNIT, EACCES },
-	{ ERROR_NOT_READY, EACCES },
-	{ ERROR_BAD_COMMAND, EACCES },
-	{ ERROR_CRC, EACCES },
-	{ ERROR_BAD_LENGTH, EACCES },
-	{ ERROR_SEEK, EACCES },
-	{ ERROR_NOT_DOS_DISK, EACCES },
-	{ ERROR_SECTOR_NOT_FOUND, EACCES },
-	{ ERROR_OUT_OF_PAPER, EACCES },
-	{ ERROR_WRITE_FAULT, EACCES },
-	{ ERROR_READ_FAULT, EACCES },
-	{ ERROR_GEN_FAILURE, EACCES },
-	{ ERROR_SHARING_VIOLATION, EACCES },
-	{ ERROR_LOCK_VIOLATION, EACCES },
-	{ ERROR_WRONG_DISK, EACCES },
-	{ ERROR_SHARING_BUFFER_EXCEEDED, EACCES },
-	{ ERROR_BAD_NETPATH, ENOENT },
-	{ ERROR_NETWORK_ACCESS_DENIED, EACCES },
-	{ ERROR_BAD_NET_NAME, ENOENT },
-	{ ERROR_FILE_EXISTS, EEXIST },
-	{ ERROR_CANNOT_MAKE, EACCES },
-	{ ERROR_FAIL_I24, EACCES },
-	{ ERROR_NO_PROC_SLOTS, EAGAIN },
-	{ ERROR_DRIVE_LOCKED, EACCES },
-	{ ERROR_BROKEN_PIPE, EPIPE },
-	{ ERROR_DISK_FULL, ENOSPC },
-	{ ERROR_INVALID_TARGET_HANDLE, EBADF },
-	{ ERROR_WAIT_NO_CHILDREN, ECHILD },
-	{ ERROR_CHILD_NOT_COMPLETE, ECHILD },
-	{ ERROR_DIRECT_ACCESS_HANDLE, EBADF },
-	{ ERROR_SEEK_ON_DEVICE, EACCES },
-	{ ERROR_DIR_NOT_EMPTY, ENOTEMPTY },
-	{ ERROR_NOT_LOCKED, EACCES },
-	{ ERROR_BAD_PATHNAME, ENOENT },
-	{ ERROR_MAX_THRDS_REACHED, EAGAIN },
-	{ ERROR_LOCK_FAILED, EACCES },
-	{ ERROR_ALREADY_EXISTS, EEXIST },
-	{ ERROR_INVALID_STARTING_CODESEG, ENOEXEC },
-	{ ERROR_INVALID_STACKSEG, ENOEXEC },
-	{ ERROR_INVALID_MODULETYPE, ENOEXEC },
-	{ ERROR_INVALID_EXE_SIGNATURE, ENOEXEC },
-	{ ERROR_EXE_MARKED_INVALID, ENOEXEC },
-	{ ERROR_BAD_EXE_FORMAT, ENOEXEC },
-	{ ERROR_ITERATED_DATA_EXCEEDS_64k, ENOEXEC },
-	{ ERROR_INVALID_MINALLOCSIZE, ENOEXEC },
-	{ ERROR_DYNLINK_FROM_INVALID_RING, ENOEXEC },
-	{ ERROR_IOPL_NOT_ENABLED, ENOEXEC },
-	{ ERROR_INVALID_SEGDPL, ENOEXEC },
-	{ ERROR_AUTODATASEG_EXCEEDS_64k, ENOEXEC },
-	{ ERROR_RING2SEG_MUST_BE_MOVABLE, ENOEXEC },
-	{ ERROR_RELOC_CHAIN_XEEDS_SEGLIM, ENOEXEC },
-	{ ERROR_INFLOOP_IN_RELOC_CHAIN, ENOEXEC },
-	{ ERROR_FILENAME_EXCED_RANGE, ENOENT },
-	{ ERROR_NESTING_NOT_ALLOWED, EAGAIN },
-	{ ERROR_NOT_ENOUGH_QUOTA, ENOMEM }
-};
-
-#endif /* doserrmap_h */

sdk/lib/crt/stdlib/ecvt.c

···
-/*
- * PROJECT:         ReactOS CRT
- * LICENSE:         See COPYING in the top level directory
- * PURPOSE:         CRT's ecvt
- * FILE:            lib/sdk/crt/stdlib/ecvt.c
- * PROGRAMERS:      Gregor Schneider (parts based on ecvtbuf.c by DJ Delorie)
- */
-
-#include <precomp.h>
-#define NUMBER_EFMT 18 /* sign, dot, null, 15 for alignment */
-
-/*
- * @implemented
- */
-char *
-_ecvt (double value, int ndigits, int *decpt, int *sign)
-{
-  static char ecvtbuf[DBL_MAX_10_EXP + 10];
-  char *cvtbuf, *s, *d;
-
-  if (ndigits < 0) ndigits = 0;
-  s = cvtbuf = (char*)malloc(ndigits + NUMBER_EFMT);
-  d = ecvtbuf;
-
-  *sign = 0;
-  *decpt = 0;
-
-  if (cvtbuf == NULL)
-  {
-    return NULL;
-  }
-
-  sprintf(cvtbuf, "%-+.*E", ndigits, value);
-  /* Treat special values */
-  if (strncmp(s, "NaN", 3) == 0)
-  {
-    memcpy(ecvtbuf, s, 4);
-  }
-  else if (strncmp(s + 1, "Inf", 3) == 0)
-  {
-    memcpy(ecvtbuf, s, 5);
-  }
-  else
-  {
-    /* Set the sign */
-    if (*s && *s == '-')
-    {
-      *sign = 1;
-    }
-    s++;
-    /* Copy the first digit */
-    if (*s && *s != '.')
-    {
-      if (d - ecvtbuf < ndigits)
-      {
-        *d++ = *s++;
-      }
-      else
-      {
-        s++;
-      }
-    }
-    /* Skip the decimal point */
-    if (*s && *s == '.')
-    {
-      s++;
-    }
-    /* Copy fractional digits */
-    while (*s && *s != 'E')
-    {
-      if (d - ecvtbuf < ndigits)
-      {
-        *d++ = *s++;
-      }
-      else
-      {
-        s++;
-      }
-    }
-    /* Skip the exponent */
-    if (*s && *s == 'E')
-    {
-      s++;
-    }
-    /* Set the decimal point to the exponent value plus the one digit we copied */
-    *decpt = atoi(s) + 1;
-    /* Handle special decimal point cases */
-    if (cvtbuf[1] == '0')
-    {
-      *decpt = 0;
-    }
-    if (ndigits < 1)
-    {
-      /* Need enhanced precision*/
-      char* tbuf = (char*)malloc(NUMBER_EFMT);
-      if (tbuf == NULL)
-      {
-        free(cvtbuf);
-        return NULL;
-      }
-      sprintf(tbuf, "%-+.*E", ndigits + 2, value);
-      if (tbuf[1] >= '5')
-      {
-        (*decpt)++;
-      }
-      free(tbuf);
-    }
-    /* Pad with zeroes */
-    while (d - ecvtbuf < ndigits)
-    {
-      *d++ = '0';
-    }
-    /* Terminate */
-    *d = '\0';
-  }
-  free(cvtbuf);
-  return ecvtbuf;
-}

sdk/lib/crt/stdlib/errno.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/stdlib/errno.c
- * PURPOSE:     Unknown
- * PROGRAMER:   Unknown
- *
- */
-#include <precomp.h>
-#include "doserrmap.h"
-#include <errno.h>
-#include <internal/wine/msvcrt.h>
-
-/*********************************************************************
- *		_errno (MSVCRT.@)
- */
-int* CDECL _errno(void)
-{
-    return &(msvcrt_get_thread_data()->thread_errno);
-}
-
-/*********************************************************************
- *		__doserrno (MSVCRT.@)
- */
-unsigned long* CDECL __doserrno(void)
-{
-    return &(msvcrt_get_thread_data()->thread_doserrno);
-}
-
-/*********************************************************************
- *		_get_errno (MSVCRT.@)
- */
-errno_t CDECL _get_errno(int *pValue)
-{
-    if (!pValue)
-        return EINVAL;
-
-    *pValue = *_errno();
-    return 0;
-}
-
-/*********************************************************************
- *		_get_doserrno (MSVCRT.@)
- */
-errno_t CDECL _get_doserrno(unsigned long *pValue)
-{
-    if (!pValue)
-        return EINVAL;
-
-    *pValue = *__doserrno();
-    return 0;
-}
-
-/*********************************************************************
- *		_set_errno (MSVCRT.@)
- */
-errno_t CDECL _set_errno(int value)
-{
-    *_errno() = value;
-    return 0;
-}
-
-/*********************************************************************
- *		_set_doserrno (MSVCRT.@)
- */
-errno_t CDECL _set_doserrno(unsigned long value)
-{
-    *__doserrno() = value;
-    return 0;
-}
-
-/*
- * This function sets both doserrno to the passed in OS error code
- * and also maps this to an appropriate errno code.  The mapping
- * has been deduced automagically by running this functions, which
- * exists in MSVCRT but is undocumented, on all the error codes in
- * winerror.h.
- */
-void CDECL _dosmaperr(unsigned long oserror)
-{
-	int pos, base, lim;
-
-	_set_doserrno(oserror);
-
-	/* Use binary chop to find the corresponding errno code */
-	for (base=0, lim=sizeof(doserrmap)/sizeof(doserrmap[0]); lim; lim >>= 1) {
-		pos = base+(lim >> 1);
-		if (doserrmap[pos].winerr == oserror) {
-			_set_errno(doserrmap[pos].en);
-			return;
-		} else if (doserrmap[pos].winerr < oserror) {
-			base = pos + 1;
-			--lim;
-		}
-	}
-	/* EINVAL appears to be the default */
-	_set_errno(EINVAL);
-}
-
-/******************************************************************************
-*              _set_error_mode (MSVCRT.@)
-*
-* Set the error mode, which describes where the C run-time writes error
-* messages.
-*
-* PARAMS
-*   mode - the new error mode
-*
-* RETURNS
-*   The old error mode.
-*
-*/
-int msvcrt_error_mode = MSVCRT__OUT_TO_DEFAULT;
-
-int CDECL _set_error_mode(int mode)
-{
-    const int old = msvcrt_error_mode;
-    if ( MSVCRT__REPORT_ERRMODE != mode ) {
-        msvcrt_error_mode = mode;
-    }
-    return old;
-}
-
-/******************************************************************************
- *		_seterrormode (MSVCRT.@)
- */
-void CDECL _seterrormode(int mode)
-{
-    SetErrorMode( mode );
-}

sdk/lib/crt/stdlib/fcvt.c

···
-/* Copyright (C) 1998 DJ Delorie, see COPYING.DJ for details */
-#include <precomp.h>
-
-char *fcvtbuf (double, int, int *, int *, char *);
-
-/*
- * @implemented
- */
-char *
-_fcvt (double value, int ndigits, int *decpt, int *sign)
-{
-  static char fcvt_buf[2 * DBL_MAX_10_EXP + 10];
-  return fcvtbuf (value, ndigits, decpt, sign, fcvt_buf);
-}

sdk/lib/crt/stdlib/fcvtbuf.c

···
-#include <stdlib.h>
-#include <stdio.h>
-#include <string.h>
-#include <float.h>
-#include <math.h>
-#include <malloc.h>
-// #include <msvcrt/locale.h>
-
-// replace fjgpp fcvtbuf from project  http://www.jbox.dk/sanos/source/lib/fcvt.c.html
-// with small modification's to match ReactOS arch
-
-// Floating point to string conversion routines
-//
-// Copyright (C) 2002 Michael Ringgaard. All rights reserved.
-//
-// Redistribution and use in source and binary forms, with or without
-// modification, are permitted provided that the following conditions
-// are met:
-//
-// 1. Redistributions of source code must retain the above copyright
-//    notice, this list of conditions and the following disclaimer.
-// 2. Redistributions in binary form must reproduce the above copyright
-//    notice, this list of conditions and the following disclaimer in the
-//    documentation and/or other materials provided with the distribution.
-// 3. Neither the name of the project nor the names of its contributors
-//    may be used to endorse or promote products derived from this software
-//    without specific prior written permission.
-//
-// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-// ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-// ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
-// FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-// DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
-// OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
-// HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-// LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
-// OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
-// SUCH DAMAGE.
-//
-
-
-//#include <math.h>
-#define CVTBUFSIZE  2 * DBL_MAX_10_EXP + 10
-static char *cvt(double arg, int ndigits, int *decpt, int *sign, char *buf, int eflag)
-{
-  int r2;
-  double fi, fj;
-  char *p, *p1;
-
-  if (_isnan(arg))
-  {
-    snprintf(buf, ndigits, "1.#QNAN");
-    *decpt = 0;
-    *sign = 0;
-    return buf;
-  }
-  if (!_finite(arg))
-  {
-    snprintf(buf, ndigits, "1.#INF");
-    *decpt = 0;
-    *sign = 0;
-    return buf;
-  }
-
-  if (ndigits >= CVTBUFSIZE - 1) ndigits = CVTBUFSIZE - 2;
-  r2 = 0;
-  *sign = 0;
-  p = &buf[0];
-  if (arg < 0)
-  {
-    *sign = 1;
-    arg = -arg;
-  }
-  arg = modf(arg, &fi);
-  p1 = &buf[CVTBUFSIZE];
-
-  if (fi != 0)
-  {
-    p1 = &buf[CVTBUFSIZE];
-    while (fi != 0)
-    {
-      fj = modf(fi / 10, &fi);
-      *--p1 = (int)((fj + .03) * 10) + '0';
-      r2++;
-    }
-    while (p1 < &buf[CVTBUFSIZE]) *p++ = *p1++;
-  }
-  else if (arg > 0)
-  {
-    while ((fj = arg * 10) < 1)
-    {
-      arg = fj;
-      r2--;
-    }
-  }
-  p1 = &buf[ndigits];
-  if (eflag == 0) p1 += r2;
-  *decpt = r2;
-  if (p1 < &buf[0])
-  {
-    buf[0] = '\0';
-    return buf;
-  }
-  while (p <= p1 && p < &buf[CVTBUFSIZE])
-  {
-    arg *= 10;
-    arg = modf(arg, &fj);
-    *p++ = (int) fj + '0';
-  }
-  if (p1 >= &buf[CVTBUFSIZE])
-  {
-    buf[CVTBUFSIZE - 1] = '\0';
-    return buf;
-  }
-  p = p1;
-  *p1 += 5;
-  while (*p1 > '9')
-  {
-    *p1 = '0';
-    if (p1 > buf)
-      ++*--p1;
-    else
-    {
-      *p1 = '1';
-      (*decpt)++;
-      if (eflag == 0)
-      {
-        if (p > buf) *p = '0';
-        p++;
-      }
-    }
-  }
-  *p = '\0';
-  return buf;
-}
-
-char *fcvtbuf(double arg, int ndigits, int *decpt, int *sign, char *buf)
-{
-  return cvt(arg, ndigits, decpt, sign, buf, 0);
-}

sdk/lib/crt/stdlib/fullpath.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/stdlib/fullpath.c
- * PURPOSE:     Gets the fullpathname
- * PROGRAMER:   Pierre Schweitzer ([e-mail])
- */
-
-#include <precomp.h>
-#include <tchar.h>
-
-/*
- * @implemented
- */
-_TCHAR* _tfullpath(_TCHAR* absPath, const _TCHAR* relPath, size_t maxLength)
-{
-    _TCHAR* lpBuffer;
-    _TCHAR* lpFilePart;
-    DWORD retval;
-
-    /* First check if entry relative path was given */
-    if (!relPath || relPath[0] == 0)
-    {
-        /* If not, just try to return current dir */
-        return _tgetcwd(absPath, maxLength);
-    }
-
-    /* If no output buffer was given */
-    if (!absPath)
-    {
-        /* Allocate one with fixed length */
-        maxLength = MAX_PATH;
-        lpBuffer = malloc(maxLength);
-        if (!lpBuffer)
-        {
-            errno = ENOMEM;
-            return NULL;
-        }
-    }
-    else
-    {
-        lpBuffer = absPath;
-    }
-
-    /* Really get full path */
-    retval = GetFullPathName(relPath, (DWORD)maxLength, lpBuffer, &lpFilePart);
-    /* Check for failures */
-    if (retval > maxLength)
-    {
-        /* Path too long, free (if needed) and return */
-        if (!absPath)
-        {
-            free(lpBuffer);
-        }
-
-        errno = ERANGE;
-        return NULL;
-    }
-    else if (!retval)
-    {
-        /* Other error, free (if needed), translate error, and return */
-        if (!absPath)
-        {
-            free(lpBuffer);
-        }
-
-        _dosmaperr(GetLastError());
-        return NULL;
-    }
-
-    /* Return buffer. Up to the caller to free if needed */
-    return lpBuffer;
-}

sdk/lib/crt/stdlib/gcvt.c

···
-/*
- * msvcrt.dll math functions
- *
- * Copyright 2003 Alexandre Julliard <[e-mail]>
- * Copyright 2010 Piotr Caban <[e-mail]>
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- *
- */
-
-#include <precomp.h>
-
-/***********************************************************************
- *		_gcvt  (MSVCRT.@)
- */
-char* CDECL _gcvt(double number, int ndigit, char* buff)
-{
-    if (!buff) {
-        *_errno() = EINVAL;
-        return NULL;
-    }
-
-    if (ndigit < 0) {
-        *_errno() = ERANGE;
-        return NULL;
-    }
-
-    sprintf(buff, "%.*g", ndigit, number);
-    return buff;
-}
-
-/***********************************************************************
- *              _gcvt_s  (MSVCRT.@)
- */
-int CDECL _gcvt_s(char* buff, size_t size, double number, int digits)
-{
-    int len;
-
-    if (!buff) {
-        *_errno() = EINVAL;
-        return EINVAL;
-    }
-
-    if (digits < 0 || digits >= size) {
-        if (size)
-            buff[0] = '\0';
-
-        *_errno() = ERANGE;
-        return ERANGE;
-    }
-
-    len = _scprintf("%.*g", digits, number);
-    if (len > size) {
-        buff[0] = '\0';
-        *_errno() = ERANGE;
-        return ERANGE;
-    }
-
-    sprintf(buff, "%.*g", digits, number);
-    return 0;
-}

sdk/lib/crt/stdlib/getenv.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/stdlib/getenv.c
- * PURPOSE:     Unknown
- * PROGRAMER:   Unknown
- * UPDATE HISTORY:
- *              25/11/05: Added license header
- */
-
-#include <precomp.h>
-//#undef environ
-
-/*
- * @implemented
- */
-char *getenv(const char *name)
-{
-   char **env;
-   size_t length = strlen(name);
-
-   for (env = *__p__environ(); *env; env++)
-   {
-      char *str = *env;
-      char *pos = strchr(str,'=');
-      if (pos && ((unsigned int)(pos - str) == length) && !_strnicmp(str, name, length))
-         return pos + 1;
-   }
-   return NULL;
-}
-
-/*
- * @implemented
- */
-wchar_t *_wgetenv(const wchar_t *name)
-{
-   wchar_t **env;
-   size_t length = wcslen(name);
-
-   for (env = *__p__wenviron(); *env; env++)
-   {
-      wchar_t *str = *env;
-      wchar_t *pos = wcschr(str, L'=');
-      if (pos && ((unsigned int)(pos - str) == length) && !_wcsnicmp(str, name, length))
-         return pos + 1;
-   }
-   return NULL;
-}

sdk/lib/crt/stdlib/makepath.c

···
-/*
- * PROJECT:     ReactOS CRT library
- * LICENSE:     See COPYING in the top level directory
- * FILE:        lib/sdk/crt/stdlib/makepath.c
- * PURPOSE:     Creates a path
- * PROGRAMMERS: Wine team
- *              Copyright 1996,1998 Marcus Meissner
- *              Copyright 1996 Jukka Iivonen
- *              Copyright 1997,2000 Uwe Bonnes
- *              Copyright 2000 Jon Griffiths
- *
- */
-
-#include <precomp.h>
-#include <stdlib.h>
-#include <string.h>
-
-/*
- * @implemented
- */
-void _makepath(char* path, const char* drive, const char* dir, const char* fname, const char* ext)
-{
-    char *p = path;
-
-    if ( !path )
-        return;
-
-    if (drive && drive[0])
-    {
-        *p++ = drive[0];
-        *p++ = ':';
-    }
-    if (dir && dir[0])
-    {
-        size_t len = strlen(dir);
-        memmove(p, dir, len);
-        p += len;
-        if (p[-1] != '/' && p[-1] != '\\')
-            *p++ = '\\';
-    }
-    if (fname && fname[0])
-    {
-        size_t len = strlen(fname);
-        memmove(p, fname, len);
-        p += len;
-    }
-    if (ext && ext[0])
-    {
-        if (ext[0] != '.')
-            *p++ = '.';
-        strcpy(p, ext);
-    }
-    else
-        *p = '\0';
-}

sdk/lib/crt/stdlib/makepath_s.c

···
-/*
- * PROJECT:     ReactOS CRT library
- * LICENSE:     See COPYING in the top level directory
- * FILE:        lib/sdk/crt/stdlib/makepath_s.c
- * PURPOSE:     Creates a path
- * PROGRAMMERS: Wine team
- *              Copyright 1996,1998 Marcus Meissner
- *              Copyright 1996 Jukka Iivonen
- *              Copyright 1997,2000 Uwe Bonnes
- *              Copyright 2000 Jon Griffiths
- *
- */
-
-#include <precomp.h>
-#include <stdlib.h>
-#include <string.h>
-
-/*********************************************************************
- *		_makepath_s (MSVCRT.@)
- *
- * Safe version of _makepath.
- */
-int CDECL _makepath_s(char *path, size_t size, const char *drive,
-                      const char *directory, const char *filename,
-                      const char *extension)
-{
-    char *p = path;
-
-    if (!path || !size)
-    {
-        *_errno() = EINVAL;
-        return EINVAL;
-    }
-
-    if (drive && drive[0])
-    {
-        if (size <= 2)
-            goto range;
-
-        *p++ = drive[0];
-        *p++ = ':';
-        size -= 2;
-    }
-
-    if (directory && directory[0])
-    {
-        size_t len = strlen(directory);
-        unsigned int needs_separator = directory[len - 1] != '/' && directory[len - 1] != '\\';
-        size_t copylen = min(size - 1, len);
-
-        if (size < 2)
-            goto range;
-
-        memmove(p, directory, copylen);
-
-        if (size <= len)
-            goto range;
-
-        p += copylen;
-        size -= copylen;
-
-        if (needs_separator)
-        {
-            if (size < 2)
-                goto range;
-
-            *p++ = '\\';
-            size -= 1;
-        }
-    }
-
-    if (filename && filename[0])
-    {
-        size_t len = strlen(filename);
-        size_t copylen = min(size - 1, len);
-
-        if (size < 2)
-            goto range;
-
-        memmove(p, filename, copylen);
-
-        if (size <= len)
-            goto range;
-
-        p += len;
-        size -= len;
-    }
-
-    if (extension && extension[0])
-    {
-        size_t len = strlen(extension);
-        unsigned int needs_period = extension[0] != '.';
-        size_t copylen;
-
-        if (size < 2)
-            goto range;
-
-        if (needs_period)
-        {
-            *p++ = '.';
-            size -= 1;
-        }
-
-        copylen = min(size - 1, len);
-        memcpy(p, extension, copylen);
-
-        if (size <= len)
-            goto range;
-
-        p += copylen;
-    }
-
-    *p = '\0';
-    return 0;
-
-range:
-    path[0] = '\0';
-    *_errno() = ERANGE;
-    return ERANGE;
-}

sdk/lib/crt/stdlib/malloc.c

···
-/*
- * msvcrt.dll heap functions
- *
- * Copyright 2000 Jon Griffiths
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Note: Win32 heap operations are MT safe. We only lock the new
- *       handler and non atomic heap operations
- */
-
-#include <precomp.h>
-#include <stdlib.h>
-#include <malloc.h>
-
-#define ROUND_DOWN(n, align) \
-    (((ULONG)n) & ~((align) - 1l))
-
-#define ROUND_UP(n, align) \
-    ROUND_DOWN(((ULONG)n) + (align) - 1, (align))
-
-/* round to 16 bytes + alloc at minimum 16 bytes */
-#define ROUND_SIZE(size) (max(16, ROUND_UP(size, 16)))
-
-/*
- * @implemented
- */
-void* malloc(size_t _size)
-{
-   size_t nSize = ROUND_SIZE(_size);
-
-   if (nSize<_size)
-       return NULL;
-
-   return HeapAlloc(GetProcessHeap(), 0, nSize);
-}
-
-/*
- * @implemented
- */
-void free(void* _ptr)
-{
-   HeapFree(GetProcessHeap(),0,_ptr);
-}
-
-/*
- * @implemented
- */
-void* calloc(size_t _nmemb, size_t _size)
-{
-   size_t nSize = _nmemb * _size;
-   size_t cSize = ROUND_SIZE(nSize);
-
-   if ( (_nmemb > ((size_t)-1 / _size))  || (cSize<nSize))
-      return NULL;
-
-   return HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, cSize );
-}
-
-/*
- * @implemented
- */
-void* realloc(void* _ptr, size_t _size)
-{
-   size_t nSize;
-
-   if (_ptr == NULL)
-      return malloc(_size);
-
-   if (_size == 0)
-   {
-   	   free(_ptr);
-       return NULL;
-   }
-
-   nSize = ROUND_SIZE(_size);
-
-   /* check for integer overflow */
-   if (nSize<_size)
-       return NULL;
-
-   return HeapReAlloc(GetProcessHeap(), 0, _ptr, nSize);
-}
-
-/*
- * @implemented
- */
-void* _expand(void* _ptr, size_t _size)
-{
-   size_t nSize;
-
-   nSize = ROUND_SIZE(_size);
-
-   if (nSize<_size)
-       return NULL;
-
-   return HeapReAlloc(GetProcessHeap(), HEAP_REALLOC_IN_PLACE_ONLY, _ptr, nSize);
-}
-
-/*
- * @implemented
- */
-size_t _msize(void* _ptr)
-{
-   return HeapSize(GetProcessHeap(), 0, _ptr);
-}
-
-/*
- * @implemented
- */
-int	_heapchk(void)
-{
-	if (!HeapValidate(GetProcessHeap(), 0, NULL))
-		return -1;
-	return 0;
-}
-
-/*
- * @implemented
- */
-int	_heapmin(void)
-{
-	if (!HeapCompact(GetProcessHeap(), 0))
-		return -1;
-	return 0;
-}
-
-/*
- * @implemented
- */
-int	_heapset(unsigned int unFill)
-{
-	if (_heapchk() == -1)
-		return -1;
-	return 0;
-
-}
-
-/*
- * @implemented
- */
-int _heapwalk(struct _heapinfo* entry)
-{
-	return 0;
-}
-

sdk/lib/crt/stdlib/mbstowcs.c

···
-#include <precomp.h>
-
-/*********************************************************************
- *		_mbstowcs_l (MSVCRT.@)
- */
-size_t CDECL _mbstowcs_l(wchar_t *wcstr, const char *mbstr,
-        size_t count, _locale_t locale)
-{
-    MSVCRT_pthreadlocinfo locinfo;
-    size_t i, size;
-
-    if(!mbstr) {
-        _set_errno(EINVAL);
-        return -1;
-    }
-
-    if(!locale)
-        locinfo = get_locinfo();
-    else
-        locinfo = ((MSVCRT__locale_t)locale)->locinfo;
-
-    if(!locinfo->lc_codepage) {
-        if(!wcstr)
-            return strlen(mbstr);
-
-        for(i=0; i<count; i++) {
-            wcstr[i] = (unsigned char)mbstr[i];
-            if(!wcstr[i]) break;
-        }
-        return i;
-    }
-
-    /* Ignore count parameter */
-    if(!wcstr)
-        return MultiByteToWideChar(locinfo->lc_codepage, 0, mbstr, -1, NULL, 0)-1;
-
-    for(i=0, size=0; i<count; i++) {
-        if(mbstr[size] == '\0')
-            break;
-
-        size += (_isleadbyte_l((unsigned char)mbstr[size], locale) ? 2 : 1);
-    }
-
-    if(size) {
-        size = MultiByteToWideChar(locinfo->lc_codepage, 0,
-                                   mbstr, size, wcstr, count);
-        if(!size) {
-            if(count) wcstr[0] = '\0';
-            _set_errno(EILSEQ);
-            return -1;
-        }
-    }
-
-    if(size<count)
-        wcstr[size] = '\0';
-
-    return size;
-}
-
-/*
- * @implemented
- */
-size_t mbstowcs (wchar_t *widechar, const char *multibyte, size_t number)
-{
-    return _mbstowcs_l(widechar, multibyte, number, NULL);
-}

sdk/lib/crt/stdlib/mbtowc.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/stdlib/mbtowc.c
- * PURPOSE:     Unknown
- * PROGRAMER:   Unknown
- * UPDATE HISTORY:
- *              25/11/05: Added license header
- */
-
-#include <precomp.h>
-
-/*********************************************************************
- *		_mbtowc_l(MSVCRT.@)
- */
-int CDECL _mbtowc_l(wchar_t *dst, const char* str, size_t n, _locale_t locale)
-{
-    MSVCRT_pthreadlocinfo locinfo;
-    wchar_t tmpdst = '\0';
-
-    if (!locale)
-        locinfo = get_locinfo();
-    else
-        locinfo = (MSVCRT_pthreadlocinfo)(locale->locinfo);
-
-    if (n <= 0 || !str)
-        return 0;
-
-    if (!*str) {
-        if (dst) *dst = 0;
-        return 0;
-    }
-
-    if (!locinfo->lc_codepage) {
-        if (dst) *dst = (unsigned char)*str;
-        return 1;
-    }
-    if (n >= 2 && _isleadbyte_l((unsigned char)*str, locale)) {
-        if (!MultiByteToWideChar(locinfo->lc_codepage, 0, str, 2, &tmpdst, 1))
-            return -1;
-        if (dst) *dst = tmpdst;
-        return 2;
-    }
-    if (!MultiByteToWideChar(locinfo->lc_codepage, 0, str, 1, &tmpdst, 1))
-        return -1;
-    if (dst) *dst = tmpdst;
-    return 1;
-}
-
-/*********************************************************************
- *              mbtowc(MSVCRT.@)
- */
-int CDECL mbtowc(wchar_t *dst, const char* str, size_t n)
-{
-    return _mbtowc_l(dst, str, n, NULL);
-}

sdk/lib/crt/stdlib/obsol.c

···
-#include <precomp.h>
-#include <stdlib.h>
-
-#undef _cpumode
-unsigned char _cpumode = 0;
-unsigned char *_cpumode_dll = &_cpumode;
-
-/*
- * @implemented
- */
-void _beep(unsigned nFreq, unsigned nDur)
-{
-	Beep(nFreq,nDur);
-	return;
-}
-
-/*
- * @implemented
- */
-void _sleep(unsigned long ulTime)
-{
-	Sleep(ulTime);
-	return;
-}

sdk/lib/crt/stdlib/putenv.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/stdlib/putenv.c
- * PURPOSE:     Unknown
- * PROGRAMER:   Unknown
- * UPDATE HISTORY:
- *              25/11/05: Added license header
- */
-#include <precomp.h>
-
-/* misc/environ.c */
-int SetEnv(const wchar_t *option);
-
-/*
- * @implemented
- */
-int _putenv(const char* val)
-{
-   int size, result;
-   wchar_t *woption;
-
-   size = MultiByteToWideChar(CP_ACP, 0, val, -1, NULL, 0);
-   woption = malloc(size* sizeof(wchar_t));
-   if (woption == NULL)
-      return -1;
-   MultiByteToWideChar(CP_ACP, 0, val, -1, woption, size);
-   result = SetEnv(woption);
-   free(woption);
-   return result;
-}

sdk/lib/crt/stdlib/rand.c

···
-/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
-#include <precomp.h>
-#include <ntsecapi.h>
-#include <internal/tls.h>
-
-/*
- * @implemented
- */
-int
-rand(void)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-
-    /* this is the algorithm used by MSVC, according to
-     * http://en.wikipedia.org/wiki/List_of_pseudorandom_number_generators */
-    data->random_seed = data->random_seed * 214013 + 2531011;
-    return (data->random_seed >> 16) & RAND_MAX;
-}
-
-/*
- * @implemented
- */
-void
-srand(unsigned int seed)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-    data->random_seed = seed;
-}

sdk/lib/crt/stdlib/rot.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/stdlib/rot.c
- * PURPOSE:     Performs a bitwise rotation
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              03/04/99: Created
- */
-
-#include <stdlib.h>
-
-#ifdef __clang__
-#  define _rotl __function_rotl
-#  define _rotr __function_rotr
-#  define _lrotl __function_lrotl
-#  define _lrotr __function_lrotr
-#elif defined(_MSC_VER)
-#  pragma function(_rotr, _rotl, _rotr, _lrotl, _lrotr)
-#endif
-
-#if defined (__clang__) && !defined(_MSC_VER)
-#  ifdef _M_IX86
-unsigned int _rotr( unsigned int value, int shift ) __asm__("__rotr");
-unsigned long _lrotr(unsigned long value, int shift) __asm__("__lrotr");
-unsigned int _rotl( unsigned int value, int shift ) __asm__("__rotl");
-unsigned long _lrotl( unsigned long value, int shift ) __asm__("__lrotl");
-#  else
-unsigned int _rotr( unsigned int value, int shift ) __asm__("_rotr");
-unsigned long _lrotr(unsigned long value, int shift) __asm__("_lrotr");
-unsigned int _rotl( unsigned int value, int shift ) __asm__("_rotl");
-unsigned long _lrotl( unsigned long value, int shift ) __asm__("_lrotl");
-#  endif
-#else
-unsigned int _rotr( unsigned int value, int shift );
-unsigned long _lrotr(unsigned long value, int shift);
-unsigned int _rotl( unsigned int value, int shift );
-unsigned long _lrotl( unsigned long value, int shift );
-#endif
-/*
- * @implemented
- */
-unsigned int _rotl( unsigned int value, int shift )
-{
-	int max_bits = sizeof(unsigned int)<<3;
-	if ( shift < 0 )
-		return _rotr(value,-shift);
-
-	if ( shift > max_bits )
-		shift = shift % max_bits;
-	return (value << shift) | (value >> (max_bits-shift));
-}
-
-/*
- * @implemented
- */
-unsigned int _rotr( unsigned int value, int shift )
-{
-	int max_bits = sizeof(unsigned int)<<3;
-	if ( shift < 0 )
-		return _rotl(value,-shift);
-
-	if ( shift > max_bits )
-		shift = shift % max_bits;
-	return (value >> shift) | (value <<  (max_bits-shift));
-}
-
-/*
- * @implemented
- */
-unsigned long _lrotl( unsigned long value, int shift )
-{
-	int max_bits = sizeof(unsigned long)<<3;
-	if ( shift < 0 )
-		return _lrotr(value,-shift);
-
-	if ( shift > max_bits )
-		shift = shift % max_bits;
-	return (value << shift) | (value >> (max_bits-shift));
-}
-
-/*
- * @implemented
- */
-unsigned long _lrotr( unsigned long value, int shift )
-{
-	int max_bits = sizeof(unsigned long)<<3;
-	if ( shift < 0 )
-		return _lrotl(value,-shift);
-
-	if ( shift > max_bits )
-		shift = shift % max_bits;
-	return (value >> shift) | (value << (max_bits-shift));
-}

sdk/lib/crt/stdlib/senv.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/stdlib/senv.c
- * PURPOSE:     Unknown
- * PROGRAMER:   Unknown
- * UPDATE HISTORY:
- *              25/11/05: Added license header
- */
-
-#include <precomp.h>
-#include <stdlib.h>
-#include <string.h>
-#include <tchar.h>
-
-#ifdef _UNICODE
-   #define sT "S"
-#else
-   #define sT "s"
-#endif
-
-#define MK_STR(s) #s
-
-/*
- * @implemented
- */
-void _tsearchenv(const _TCHAR* file,const _TCHAR* var,_TCHAR* path)
-{
-    _TCHAR* env = _tgetenv(var);
-    _TCHAR* x;
-    _TCHAR* y;
-    _TCHAR* FilePart;
-
-    TRACE(MK_STR(_tsearchenv)"()\n");
-
-    x = _tcschr(env,'=');
-    if ( x != NULL ) {
-        *x = 0;
-        x++;
-    }
-    y = _tcschr(env,';');
-    while ( y != NULL ) {
-        *y = 0;
-        if ( SearchPath(x,file,NULL,MAX_PATH,path,&FilePart) > 0 ) {
-            return;
-        }
-        x = y+1;
-        y = _tcschr(env,';');
-    }
-    return;
-}
-
-/*********************************************************************
- *		_searchenv_s (MSVCRT.@)
- */
-int _tsearchenv_s(const _TCHAR* file, const _TCHAR* env, _TCHAR *buf, size_t count)
-{
-  _TCHAR *envVal, *penv;
-  _TCHAR curPath[MAX_PATH];
-
-  if (!MSVCRT_CHECK_PMT(file != NULL) || !MSVCRT_CHECK_PMT(buf != NULL) ||
-      !MSVCRT_CHECK_PMT(count > 0))
-  {
-      *_errno() = EINVAL;
-      return EINVAL;
-  }
-
-  *buf = '\0';
-
-  /* Try CWD first */
-  if (GetFileAttributes( file ) != INVALID_FILE_ATTRIBUTES)
-  {
-    GetFullPathName( file, MAX_PATH, buf, NULL );
-    _dosmaperr(GetLastError());
-    return 0;
-  }
-
-  /* Search given environment variable */
-  envVal = _tgetenv(env);
-  if (!envVal)
-  {
-    _set_errno(ENOENT);
-    return ENOENT;
-  }
-
-  penv = envVal;
-
-  do
-  {
-    _TCHAR *end = penv;
-
-    while(*end && *end != ';') end++; /* Find end of next path */
-    if (penv == end || !*penv)
-    {
-      _set_errno(ENOENT);
-      return ENOENT;
-    }
-    memcpy(curPath, penv, (end - penv) * sizeof(_TCHAR));
-    if (curPath[end - penv] != '/' && curPath[end - penv] != '\\')
-    {
-      curPath[end - penv] = '\\';
-      curPath[end - penv + 1] = '\0';
-    }
-    else
-      curPath[end - penv] = '\0';
-
-    _tcscat(curPath, file);
-    if (GetFileAttributes( curPath ) != INVALID_FILE_ATTRIBUTES)
-    {
-      if (_tcslen(curPath) + 1 > count)
-      {
-          MSVCRT_INVALID_PMT("buf[count] is too small", ERANGE);
-          return ERANGE;
-      }
-      _tcscpy(buf, curPath);
-      return 0;
-    }
-    penv = *end ? end + 1 : end;
-  } while(1);
-
-}

sdk/lib/crt/stdlib/stdlib.cmake

···
 
-list(APPEND COMMON_STDLIB_SOURCE
+list(APPEND LIBCNTPR_STDLIB_SOURCE
     stdlib/qsort.c
-)
-
-list(APPEND LIBCNTPR_STDLIB_SOURCE
-    ${COMMON_STDLIB_SOURCE}
     stdlib/_invalid_parameter_nt.c
     stdlib/rand_nt.c
 )
-
-list(APPEND CRT_STDLIB_SOURCE
-    ${COMMON_STDLIB_SOURCE}
-    stdlib/_exit.c
-    stdlib/_invalid_parameter.c
-    stdlib/_set_abort_behavior.c
-    stdlib/abort.c
-    stdlib/atexit.c
-    stdlib/ecvt.c
-    stdlib/errno.c
-    stdlib/fcvt.c
-    stdlib/fcvtbuf.c
-    stdlib/fullpath.c
-    stdlib/gcvt.c
-    stdlib/getenv.c
-    stdlib/makepath.c
-    stdlib/makepath_s.c
-    stdlib/mbtowc.c
-    stdlib/mbstowcs.c
-    stdlib/obsol.c
-    stdlib/putenv.c
-    stdlib/rand.c
-    stdlib/rand_s.c
-    stdlib/rot.c
-    stdlib/senv.c
-    stdlib/swab.c
-    stdlib/wfulpath.c
-    stdlib/wputenv.c
-    stdlib/wsenv.c
-    stdlib/wmakpath.c
-    stdlib/wmakpath_s.c
-)
-
-if(MSVC AND CMAKE_C_COMPILER_ID STREQUAL "Clang")
-    if(ARCH STREQUAL "i386")
-        list(APPEND CRT_STDLIB_ASM_SOURCE
-            stdlib/clang-alias.s
-        )
-    elseif(ARCH STREQUAL "amd64")
-        list(APPEND CRT_STDLIB_ASM_SOURCE
-            stdlib/clang-alias.s
-        )
-    endif()
-endif()

sdk/lib/crt/stdlib/swab.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/stdlib/swab.c
- * PURPOSE:     Unknown
- * PROGRAMER:   Unknown
- * UPDATE HISTORY:
- *              25/11/05: Added license header
- */
-
-#include <precomp.h>
-
-/*
- * @implemented
- *
- * copy this swab from wine cvs 2006-05-24
- */
-void _swab (char *  src,  char *  dst,  int  sizeToCopy)
-
-{
- if (sizeToCopy > 1)
-  {
-    sizeToCopy = (unsigned)sizeToCopy >> 1;
-
-    while (sizeToCopy--) {
-      char s0 = src[0];
-      char s1 = src[1];
-      *dst++ = s1;
-      *dst++ = s0;
-      src = src + 2;
-    }
-  }
-}

sdk/lib/crt/stdlib/wfulpath.c

···
-
-#define _UNICODE
-#define UNICODE
-
-#include "fullpath.c"

sdk/lib/crt/stdlib/wmakpath.c

···
-/*
- * PROJECT:     ReactOS CRT library
- * LICENSE:     See COPYING in the top level directory
- * FILE:        lib/sdk/crt/stdlib/wmakpath.c
- * PURPOSE:     Creates a unicode path
- * PROGRAMMERS: Wine team
- *              Copyright 1996,1998 Marcus Meissner
- *              Copyright 1996 Jukka Iivonen
- *              Copyright 1997,2000 Uwe Bonnes
- *              Copyright 2000 Jon Griffiths
- *
- */
-
-#include <precomp.h>
-
-/*
- * @implemented
- */
-void _wmakepath(wchar_t* path, const wchar_t* drive, const wchar_t* dir, const wchar_t* fname, const wchar_t* ext)
-{
-    wchar_t *p = path;
-
-    if ( !path )
-        return;
-
-    if (drive && drive[0])
-    {
-        *p++ = drive[0];
-        *p++ = ':';
-    }
-    if (dir && dir[0])
-    {
-        size_t len = strlenW(dir);
-        memmove(p, dir, len * sizeof(wchar_t));
-        p += len;
-        if (p[-1] != '/' && p[-1] != '\\')
-            *p++ = '\\';
-    }
-    if (fname && fname[0])
-    {
-        size_t len = strlenW(fname);
-        memmove(p, fname, len * sizeof(wchar_t));
-        p += len;
-    }
-    if (ext && ext[0])
-    {
-        if (ext[0] != '.')
-            *p++ = '.';
-        strcpyW(p, ext);
-    }
-    else
-        *p = '\0';
-}

sdk/lib/crt/stdlib/wmakpath_s.c

···
-/*
- * PROJECT:     ReactOS CRT library
- * LICENSE:     See COPYING in the top level directory
- * FILE:        lib/sdk/crt/stdlib/wmakpath_s.c
- * PURPOSE:     Creates a path
- * PROGRAMMERS: Wine team
- *              Copyright 1996,1998 Marcus Meissner
- *              Copyright 1996 Jukka Iivonen
- *              Copyright 1997,2000 Uwe Bonnes
- *              Copyright 2000 Jon Griffiths
- *
- */
-
-#include <precomp.h>
-#include <stdlib.h>
-#include <string.h>
-
-/*********************************************************************
- *		_wmakepath_s (MSVCRT.@)
- *
- * Safe version of _wmakepath.
- */
-int CDECL _wmakepath_s(wchar_t *path, size_t size, const wchar_t *drive,
-                       const wchar_t *directory, const wchar_t *filename,
-                       const wchar_t *extension)
-{
-    wchar_t *p = path;
-
-    if (!path || !size)
-    {
-        *_errno() = EINVAL;
-        return EINVAL;
-    }
-
-    if (drive && drive[0])
-    {
-        if (size <= 2)
-            goto range;
-
-        *p++ = drive[0];
-        *p++ = ':';
-        size -= 2;
-    }
-
-    if (directory && directory[0])
-    {
-        size_t len = strlenW(directory);
-        unsigned int needs_separator = directory[len - 1] != '/' && directory[len - 1] != '\\';
-        size_t copylen = min(size - 1, len);
-
-        if (size < 2)
-            goto range;
-
-        memmove(p, directory, copylen * sizeof(wchar_t));
-
-        if (size <= len)
-            goto range;
-
-        p += copylen;
-        size -= copylen;
-
-        if (needs_separator)
-        {
-            if (size < 2)
-                goto range;
-
-            *p++ = '\\';
-            size -= 1;
-        }
-    }
-
-    if (filename && filename[0])
-    {
-        size_t len = strlenW(filename);
-        size_t copylen = min(size - 1, len);
-
-        if (size < 2)
-            goto range;
-
-        memmove(p, filename, copylen * sizeof(wchar_t));
-
-        if (size <= len)
-            goto range;
-
-        p += len;
-        size -= len;
-    }
-
-    if (extension && extension[0])
-    {
-        size_t len = strlenW(extension);
-        unsigned int needs_period = extension[0] != '.';
-        size_t copylen;
-
-        if (size < 2)
-            goto range;
-
-        if (needs_period)
-        {
-            *p++ = '.';
-            size -= 1;
-        }
-
-        copylen = min(size - 1, len);
-        memcpy(p, extension, copylen * sizeof(wchar_t));
-
-        if (size <= len)
-            goto range;
-
-        p += copylen;
-    }
-
-    *p = '\0';
-    return 0;
-
-range:
-    path[0] = '\0';
-    *_errno() = ERANGE;
-    return ERANGE;
-}
-

sdk/lib/crt/stdlib/wputenv.c

···
-#include <precomp.h>
-
-
-/* misc/environ.c */
-int SetEnv(const wchar_t *option);
-
-/*
- * @implemented
- */
-int _wputenv(const wchar_t* val)
-{
-   return SetEnv(val);
-}

sdk/lib/crt/stdlib/wsenv.c

···
-
-#define _UNICODE
-#define UNICODE
-
-#include "senv.c"

sdk/lib/crt/string/_mbsnlen.c

···
-/*
- * COPYRIGHT:         See COPYING in the top level directory
- * PROJECT:           ReactOS CRT
- * PURPOSE:           Implementation of _mbsnlen
- * FILE:              lib/sdk/crt/string/_mbsnlen.c
- * PROGRAMMER:        Timo Kreuzer
- */
-
-#include <mbstring.h>
-
-_Check_return_
-_CRTIMP
-size_t
-__cdecl
-_mbsnlen(
-    _In_z_ const unsigned char *pmbstr,
-    _In_ size_t cjMaxLen)
-{
-    size_t cchCount = 0;
-    unsigned char jMbsByte;
-
-    /* Loop while we have bytes to process */
-    while (cjMaxLen-- > 0)
-    {
-        /* Get next mb byte */
-        jMbsByte = *pmbstr++;
-
-        /* If this is 0, we're done */
-        if (jMbsByte == 0) break;
-
-        /* Don't count lead bytes */
-        if (!_ismbblead(jMbsByte)) cchCount++;
-    }
-
-    return cchCount;
-}

sdk/lib/crt/string/_mbstrnlen.c

···
-/*
- * COPYRIGHT:         See COPYING in the top level directory
- * PROJECT:           ReactOS CRT
- * PURPOSE:           Implementation of _mbstrnlen
- * FILE:              lib/sdk/crt/string/_mbstrnlen.c
- * PROGRAMMER:        Timo Kreuzer
- */
-
-#include <precomp.h>
-#include <mbctype.h>
-#include <specstrings.h>
-
-_Success_(return>0)
-_Check_return_
-_CRTIMP
-size_t
-__cdecl
-_mbstrnlen(
-    _In_z_ const char *pmbstr,
-    _In_ size_t cjMaxLen)
-{
-    size_t cchCount = 0;
-    unsigned char jMbsByte;
-
-    /* Check parameters */
-    if (!MSVCRT_CHECK_PMT((pmbstr != 0)) && (cjMaxLen <= INT_MAX))
-    {
-        _set_errno(EINVAL);
-        return -1;
-    }
-
-    /* Loop while we have bytes to process */
-    while (cjMaxLen-- > 0)
-    {
-        /* Get next mb byte */
-        jMbsByte = *pmbstr++;
-
-        /* If this is 0, we're done */
-        if (jMbsByte == 0) break;
-
-        /* if this is a lead byte, continue with next char */
-        if (_ismbblead(jMbsByte))
-        {
-            // FIXME: check if this is a valid char.
-            continue;
-        }
-
-        /* Count this character */
-        cchCount++;
-    }
-
-    return cchCount;
-}
-

sdk/lib/crt/string/_splitpath_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/string/_splitpath_s.c
- * PURPOSE:         Implementation of _splitpath_s
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#define _tsplitpath_x _splitpath_s
-#define IS_SECAPI 1
-
-#include "_tsplitpath_x.h"

sdk/lib/crt/string/_wcslwr_s.c

···
-/*
- * The C RunTime DLL
- *
- * Implements C run-time functionality as known from UNIX.
- *
- * Copyright 1996,1998 Marcus Meissner
- * Copyright 1996 Jukka Iivonen
- * Copyright 1997 Uwe Bonnes
- */
-
-#include <precomp.h>
-
-/*
- * @implemented
- */
-int _wcslwr_s(wchar_t* str, size_t n)
-{
-  wchar_t *ptr=str;
-  if (!str || !n)
-  {
-    if (str) *str = '\0';
-    *_errno() = EINVAL;
-    return EINVAL;
-  }
-
-  while (n--)
-  {
-    if (!*ptr) return 0;
-    *ptr = towlower(*ptr);
-    ptr++;
-  }
-
-  /* MSDN claims that the function should return and set errno to
-   * ERANGE, which doesn't seem to be true based on the tests. */
-  *str = '\0';
-  *_errno() = EINVAL;
-  return EINVAL;
-}

sdk/lib/crt/string/_wsplitpath_s.c

···
-/*
- * COPYRIGHT:       GNU GPL, see COPYING in the top level directory
- * PROJECT:         ReactOS crt library
- * FILE:            lib/sdk/crt/string/_wsplitpath_s.c
- * PURPOSE:         Implementation of _wsplitpath_s
- * PROGRAMMER:      Timo Kreuzer
- */
-
-#define _tsplitpath_x _wsplitpath_s
-#define _UNICODE
-#define IS_SECAPI 1
-
-#include "_tsplitpath_x.h"

sdk/lib/crt/string/atof.c

···
-/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
-#include <precomp.h>
-
-/*
- * @implemented
- */
-double
-atof(const char *ascii)
-{
-  return strtod(ascii, 0);
-}

sdk/lib/crt/string/is_wctype.c

···
-#include <string.h>
-
-int iswctype(wint_t wc, wctype_t wctypeFlags);
-
-/*
- * obsolete
- *
- * @implemented
- */
-int is_wctype(wint_t wc, wctype_t wctypeFlags)
-{
-   return iswctype(wc, wctypeFlags);
-}

sdk/lib/crt/string/mbstowcs_s.c

···
-/*
- * COPYRIGHT:         See COPYING in the top level directory
- * PROJECT:           ReactOS CRT
- * PURPOSE:           Implementation of mbstowcs_s
- * FILE:              lib/sdk/crt/string/mbstowcs_s.c
- * PROGRAMMER:        Timo Kreuzer
- */
-
-#include <precomp.h>
-#include <mbstring.h>
-
-_Success_(return!=EINVAL)
-_Check_return_opt_
-_CRTIMP
-errno_t
-__cdecl
-mbstowcs_s(
-   _Out_opt_ size_t *pcchConverted,
-   _Out_writes_to_opt_(sizeInWords, *pcchConverted) wchar_t *pwcstr,
-   _In_ size_t sizeInWords,
-   _In_reads_or_z_(count) const char *pmbstr,
-   _In_ size_t count)
-{
-    size_t cchMax, cwcWritten;
-    errno_t retval = 0;
-
-    /* Make sure, either we have a target buffer > 0 bytes, or no buffer */
-    if (!MSVCRT_CHECK_PMT( ((sizeInWords != 0) && (pwcstr != 0)) ||
-                           ((sizeInWords == 0) && (pwcstr == 0)) ))
-    {
-        _set_errno(EINVAL);
-        return EINVAL;
-    }
-
-    /* Check if we have a return value pointer */
-    if (pcchConverted)
-    {
-        /* Default to 0 bytes written */
-        *pcchConverted = 0;
-    }
-
-    if (!MSVCRT_CHECK_PMT((count == 0) || (pmbstr != 0)))
-    {
-        _set_errno(EINVAL);
-        return EINVAL;
-    }
-
-    /* Check if there is anything to do */
-    if ((pwcstr == 0) && (pmbstr == 0))
-    {
-        _set_errno(EINVAL);
-        return EINVAL;
-    }
-
-    /* Check if we have a multibyte string */
-    if (pmbstr)
-    {
-        /* Check if we also have a wchar buffer */
-        if (pwcstr)
-        {
-            /* Calculate the maximum the we can write */
-            cchMax = (count < sizeInWords) ? count + 1 : sizeInWords;
-
-            /* Now do the conversion */
-            cwcWritten = mbstowcs(pwcstr, pmbstr, cchMax);
-
-            /* Check if the buffer was not zero terminated */
-            if (cwcWritten == cchMax)
-            {
-                /* Check if we reached the max size of the dest buffer */
-                if (cwcWritten == sizeInWords)
-                {
-                    /* Does the caller allow this? */
-                    if (count != _TRUNCATE)
-                    {
-                        /* Not allowed, truncate to 0 length */
-                        pwcstr[0] = L'\0';
-
-                        /* Return error */
-                        _set_errno(ERANGE);
-                        return ERANGE;
-                    }
-
-                    /* Inform the caller about truncation */
-                    retval = STRUNCATE;
-                }
-
-                /* zero teminate the buffer */
-                pwcstr[cwcWritten - 1] = L'\0';
-            }
-            else
-            {
-                /* The buffer is zero terminated, count the terminating char */
-                cwcWritten++;
-            }
-        }
-        else
-        {
-            /* Get the length of the string, plus 0 terminator */
-            cwcWritten = _mbsnlen((const unsigned char *)pmbstr, count) + 1;
-        }
-    }
-    else
-    {
-        cwcWritten = count + 1;
-    }
-
-    /* Check if we have a return value pointer */
-    if (pcchConverted)
-    {
-        /* Default to 0 bytes written */
-        *pcchConverted = cwcWritten;
-    }
-
-    return retval;
-}

sdk/lib/crt/string/strcoll.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/string/strcoll.c
- * PURPOSE:     Unknown
- * PROGRAMER:   Unknown
- * UPDATE HISTORY:
- *              25/11/05: Added license header
- */
-
-#include <precomp.h>
-
-/* Compare S1 and S2, returning less than, equal to or
-   greater than zero if the collated form of S1 is lexicographically
-   less than, equal to or greater than the collated form of S2.  */
-
-#if 1
-/*
- * @unimplemented
- */
-int strcoll(const char* s1, const char* s2)
-{
-    return strcmp(s1, s2);
-}
-
-/*
- * @unimplemented
- */
-int _stricoll(const char* s1, const char* s2)
-{
-    return _stricmp(s1, s2);
-}
-
-#else
-int strcoll (const char* s1,const char* s2)
-{
-    int ret;
-    ret = CompareStringA(LOCALE_USER_DEFAULT,0,s1,strlen(s1),s2,strlen(s2));
-    if (ret == 0)
-        return 0;
-    else
-        return ret - 2;
-    return 0;
-}
-#endif

sdk/lib/crt/string/strdup.c

···
-/* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */
-#include <precomp.h>
-
-/*
- * @implemented
- */
-char *_strdup(const char *_s)
-{
-  char *rv;
-  if (_s == 0)
-    return 0;
-  rv = (char *)malloc(strlen(_s) + 1);
-  if (rv == 0)
-    return 0;
-  strcpy(rv, _s);
-  return rv;
-}

sdk/lib/crt/string/strerror.c

···
-/*
- * msvcrt.dll errno functions
- *
- * Copyright 2000 Jon Griffiths
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-#include <precomp.h>
-
-char __syserr00[] = "No Error";
-char __syserr01[] = "Operation not permitted (EPERM)";
-char __syserr02[] = "No such file or directory (ENOENT)";
-char __syserr03[] = "No such process (ESRCH)";
-char __syserr04[] = "Interrupted system call (EINTR)";
-char __syserr05[] = "Input or output error (EIO)";
-char __syserr06[] = "No such device or address (ENXIO)";
-char __syserr07[] = "Argument list too long (E2BIG)";
-char __syserr08[] = "Unable to execute file (ENOEXEC)";
-char __syserr09[] = "Bad file descriptor (EBADF)";
-char __syserr10[] = "No child processes (ECHILD)";
-char __syserr11[] = "Resource temporarily unavailable (EAGAIN)";
-char __syserr12[] = "Not enough memory (ENOMEM)";
-char __syserr13[] = "Permission denied (EACCES)";
-char __syserr14[] = "Bad address (EFAULT)";
-char __syserr15[] = "Unknown Error: 15";
-char __syserr16[] = "Resource busy (EBUSY)";
-char __syserr17[] = "File exists (EEXIST)";
-char __syserr18[] = "Improper link (EXDEV)";
-char __syserr19[] = "No such device (ENODEV)";
-char __syserr20[] = "Not a directory (ENOTDIR)";
-char __syserr21[] = "Is a directory (EISDIR)";
-char __syserr22[] = "Invalid argument (EINVAL)";
-char __syserr23[] = "Too many open files in system (ENFILE)";
-char __syserr24[] = "Too many open files (EMFILE)";
-char __syserr25[] = "Inappropriate I/O control operation (ENOTTY)";
-char __syserr26[] = "Unknown error: 26";
-char __syserr27[] = "File too large (EFBIG)";
-char __syserr28[] = "No space left on drive (ENOSPC)";
-char __syserr29[] = "Invalid seek (ESPIPE)";
-char __syserr30[] = "Read-only file system (EROFS)";
-char __syserr31[] = "Too many links (EMLINK)";
-char __syserr32[] = "Broken pipe (EPIPE)";
-char __syserr33[] = "Input to function out of range (EDOM)";
-char __syserr34[] = "Output of function out of range (ERANGE)";
-char __syserr35[] = "Unknown error: 35";
-char __syserr36[] = "Resource deadlock avoided (EDEADLK)";
-char __syserr37[] = "Unknown error: 37";
-char __syserr38[] = "File name too long (ENAMETOOLONG)";
-char __syserr39[] = "No locks available (ENOLCK)";
-char __syserr40[] = "Function not implemented (ENOSYS)";
-char __syserr41[] = "Directory not empty (ENOTEMPTY)";
-char __syserr42[] = "Illegal byte sequence (EILSEQ)";
-char __syserr43[] = "Unknown/generic error";
-
-char *_sys_errlist[] = {
-__syserr00, __syserr01, __syserr02, __syserr03, __syserr04,
-__syserr05, __syserr06, __syserr07, __syserr08, __syserr09,
-__syserr10, __syserr11, __syserr12, __syserr13, __syserr14,
-__syserr15, __syserr16, __syserr17, __syserr18, __syserr19,
-__syserr20, __syserr21, __syserr22, __syserr23, __syserr24,
-__syserr25, __syserr26, __syserr27, __syserr28, __syserr29,
-__syserr30, __syserr31, __syserr32, __syserr33, __syserr34,
-__syserr35, __syserr36, __syserr37, __syserr38, __syserr39,
-__syserr40, __syserr41, __syserr42, __syserr43
-};
-
-int _sys_nerr = sizeof(_sys_errlist) / sizeof(_sys_errlist[0]) - 1;
-
-/*********************************************************************
- *		strerror (MSVCRT.@)
- */
-char* CDECL strerror(int err)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-
-    if (!data->strerror_buffer)
-        if (!(data->strerror_buffer = malloc(256))) return NULL;
-
-    if (err < 0 || err > _sys_nerr) err = _sys_nerr;
-    strcpy( data->strerror_buffer, _sys_errlist[err] );
-    return data->strerror_buffer;
-}
-
-/**********************************************************************
- *		strerror_s	(MSVCRT.@)
- */
-int CDECL strerror_s(char *buffer, size_t numberOfElements, int errnum)
-{
-    char *ptr;
-
-    if (!buffer || !numberOfElements)
-    {
-        *_errno() = EINVAL;
-        return EINVAL;
-    }
-
-    if (errnum < 0 || errnum > _sys_nerr)
-        errnum = _sys_nerr;
-
-    ptr = _sys_errlist[errnum];
-    while (*ptr && numberOfElements > 1)
-    {
-        *buffer++ = *ptr++;
-        numberOfElements--;
-    }
-
-    *buffer = '\0';
-    return 0;
-}
-
-/**********************************************************************
- *		_strerror	(MSVCRT.@)
- */
-char* CDECL _strerror(const char* str)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-    int err;
-
-    if (!data->strerror_buffer)
-        if (!(data->strerror_buffer = malloc(256))) return NULL;
-
-    err = data->thread_errno;
-    if (err < 0 || err > _sys_nerr) err = _sys_nerr;
-
-    if (str && *str)
-        sprintf( data->strerror_buffer, "%s: %s\n", str, _sys_errlist[err] );
-    else
-        sprintf( data->strerror_buffer, "%s\n", _sys_errlist[err] );
-
-    return data->strerror_buffer;
-}
-
-/*********************************************************************
- *		perror (MSVCRT.@)
- */
-void CDECL perror(const char* str)
-{
-    int err = *_errno();
-    if (err < 0 || err > _sys_nerr) err = _sys_nerr;
-
-    if (str && *str)
-    {
-        _write( 2, str, strlen(str) );
-        _write( 2, ": ", 2 );
-    }
-    _write( 2, _sys_errlist[err], strlen(_sys_errlist[err]) );
-    _write( 2, "\n", 1 );
-}
-
-/*********************************************************************
- *		_wcserror_s (MSVCRT.@)
- */
-int CDECL _wcserror_s(wchar_t* buffer, size_t nc, int err)
-{
-    if (!MSVCRT_CHECK_PMT(buffer != NULL) || !MSVCRT_CHECK_PMT(nc > 0))
-    {
-        _set_errno(EINVAL);
-        return EINVAL;
-    }
-    if (err < 0 || err > _sys_nerr) err = _sys_nerr;
-    MultiByteToWideChar(CP_ACP, 0, _sys_errlist[err], -1, buffer, nc);
-    return 0;
-}
-
-/*********************************************************************
- *		_wcserror (MSVCRT.@)
- */
-wchar_t* CDECL _wcserror(int err)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-
-    if (!data->wcserror_buffer)
-        if (!(data->wcserror_buffer = malloc(256 * sizeof(wchar_t)))) return NULL;
-    _wcserror_s(data->wcserror_buffer, 256, err);
-    return data->wcserror_buffer;
-}
-
-/**********************************************************************
- *		__wcserror_s	(MSVCRT.@)
- */
-int CDECL __wcserror_s(wchar_t* buffer, size_t nc, const wchar_t* str)
-{
-    int err;
-    static const WCHAR colonW[] = {':', ' ', '\0'};
-    static const WCHAR nlW[] = {'\n', '\0'};
-    size_t len;
-
-    err = *_errno();
-    if (err < 0 || err > _sys_nerr) err = _sys_nerr;
-
-    len = MultiByteToWideChar(CP_ACP, 0, _sys_errlist[err], -1, NULL, 0) + 1 /* \n */;
-    if (str && *str) len += lstrlenW(str) + 2 /* ': ' */;
-    if (len > nc)
-    {
-        MSVCRT_INVALID_PMT("buffer[nc] is too small", ERANGE);
-        return ERANGE;
-    }
-    if (str && *str)
-    {
-        lstrcpyW(buffer, str);
-        lstrcatW(buffer, colonW);
-    }
-    else buffer[0] = '\0';
-    len = lstrlenW(buffer);
-    MultiByteToWideChar(CP_ACP, 0, _sys_errlist[err], -1, buffer + len, 256 - len);
-    lstrcatW(buffer, nlW);
-
-    return 0;
-}
-
-/**********************************************************************
- *		__wcserror	(MSVCRT.@)
- */
-wchar_t* CDECL __wcserror(const wchar_t* str)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-    int err;
-
-    if (!data->wcserror_buffer)
-        if (!(data->wcserror_buffer = malloc(256 * sizeof(wchar_t)))) return NULL;
-
-    err = __wcserror_s(data->wcserror_buffer, 256, str);
-    if (err) FIXME("bad wcserror call (%d)\n", err);
-
-    return data->wcserror_buffer;
-}

sdk/lib/crt/string/stricmp.c

···
-#include <precomp.h>
-
-/*
- * @implemented
- */
-int
-CDECL
-_stricmp(const char *s1, const char *s2)
-{
-  while (toupper(*s1) == toupper(*s2))
-  {
-    if (*s1 == 0)
-      return 0;
-    s1++;
-    s2++;
-  }
-  return toupper(*(unsigned const char *)s1) - toupper(*(unsigned const char *)(s2));
-}
-
-/*
- * @implemented
- */
-int
-CDECL
-_strcmpi(const char *s1, const char *s2)
-{
-	return _stricmp(s1,s2);
-}

sdk/lib/crt/string/string.c

···
-/*
- * PROJECT:         ReactOS CRT library
- * LICENSE:         LGPL - See COPYING in the top level directory
- * FILE:            lib/sdk/crt/string/string.c
- * PURPOSE:         string CRT functions
- * PROGRAMMERS:     Wine team
- *                  Ported to ReactOS by Christoph von Wittich ([e-mail])
- */
-
-/*
- * msvcrt.dll string functions
- *
- * Copyright 1996,1998 Marcus Meissner
- * Copyright 1996 Jukka Iivonen
- * Copyright 1997,2000 Uwe Bonnes
- * Copyright 2000 Jon Griffiths
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-
-#include <precomp.h>
-
-
-/*********************************************************************
- *      strcat_s (MSVCRT.@)
- */
-int CDECL strcat_s( char* dst, size_t elem, const char* src )
-{
-    size_t i, j;
-    if(!dst) return EINVAL;
-    if(elem == 0) return EINVAL;
-    if(!src)
-    {
-        dst[0] = '\0';
-        return EINVAL;
-    }
-
-    for(i = 0; i < elem; i++)
-    {
-        if(dst[i] == '\0')
-        {
-            for(j = 0; (j + i) < elem; j++)
-            {
-                if((dst[j + i] = src[j]) == '\0') return 0;
-            }
-        }
-    }
-    /* Set the first element to 0, not the first element after the skipped part */
-    dst[0] = '\0';
-    return ERANGE;
-}
-
-/*********************************************************************
- *      strcpy_s (MSVCRT.@)
- */
-int CDECL strcpy_s( char* dst, size_t elem, const char* src )
-{
-    size_t i;
-    if(!elem) return EINVAL;
-    if(!dst) return EINVAL;
-    if(!src)
-    {
-        dst[0] = '\0';
-        return EINVAL;
-    }
-
-    for(i = 0; i < elem; i++)
-    {
-        if((dst[i] = src[i]) == '\0') return 0;
-    }
-    dst[0] = '\0';
-    return ERANGE;
-}
-

sdk/lib/crt/string/string.cmake

···
 
 list(APPEND LIBCNTPR_STRING_SOURCE
     string/_splitpath.c
+    string/_stricmp_nt.c
+    string/_strlwr_nt.c
+    string/_strnicmp_nt.c
+    string/_strupr_nt.c
     string/_wsplitpath.c
+    string/atoi.c
+    string/atoi64.c
+    string/atol.c
     string/ctype.c
-    string/is_wctype.c
+    #string/is_wctype.c
+    string/iswctype_nt.c
+    string/itoa.c
+    string/itow.c
+    string/mbstowcs_nt.c
     string/scanf.c
     string/strcspn.c
+    string/strpbrk.c
     string/strrev.c
     string/strset.c
-    string/strstr.c
-    string/strpbrk.c
     string/strspn.c
-    string/atoi64.c
-    string/atoi.c
-    string/atol.c
-    string/itoa.c
-    string/itow.c
+    string/strstr.c
     string/strtoi64.c
     string/strtol.c
     string/strtoul.c
     string/strtoull.c
+    string/tolower_nt.c
+    string/toupper_nt_mb.c
+    string/towupper_nt.c
     string/wcs.c
     string/wcstol.c
+    string/wcstombs_nt.c
     string/wcstoul.c
     string/wctype.c
+    string/wtoi.c
     string/wtoi64.c
-    string/wtoi.c
     string/wtol.c
     string/winesup.c
 )
···
         string/wcsrchr.c
     )
 endif()
-
-list(APPEND CRT_STRING_SOURCE
-    ${LIBCNTPR_STRING_SOURCE}
-    string/_mbsnlen.c
-    string/_mbstrnlen.c
-    string/_splitpath_s.c
-    string/_wcslwr_s.c
-    string/_wsplitpath_s.c
-    string/atof.c
-    string/iswctype.c
-    string/mbstowcs_s.c
-    string/strcoll.c
-    string/strdup.c
-    string/strerror.c
-    string/stricmp.c
-    string/string.c
-    string/strlwr.c
-    string/strncoll.c
-    string/strnicmp.c
-    string/strtod.c
-    string/strtok.c
-    string/strtok_s.c
-    string/strtoul.c
-    string/strupr.c
-    string/strxfrm.c
-    string/wcstombs_s.c
-    string/wtof.c
-)
-
-list(APPEND CRT_STRING_ASM_SOURCE
-    ${LIBCNTPR_STRING_ASM_SOURCE}
-)
-
-list(APPEND LIBCNTPR_STRING_SOURCE
-    string/_stricmp_nt.c
-    string/_strlwr_nt.c
-    string/_strnicmp_nt.c
-    string/_strupr_nt.c
-    string/iswctype_nt.c
-    string/mbstowcs_nt.c
-    string/tolower_nt.c
-    string/toupper_nt_mb.c
-    string/towupper_nt.c
-    string/wcstombs_nt.c
-)
 
 # Used by acpi.sys
 add_library(strtol

sdk/lib/crt/string/strncoll.c

···
-#include <precomp.h>
-#include <string.h>
-
-/* Compare S1 and S2, returning less than, equal to or
-   greater than zero if the collated form of S1 is lexicographically
-   less than, equal to or greater than the collated form of S2.  */
-
-
-/*
- * @unimplemented
- */
-int _strncoll(const char* s1, const char* s2, size_t c)
-{
-    return strncmp(s1, s2, c);
-}
-
-/*
- * @unimplemented
- */
-int _strnicoll(const char* s1, const char* s2, size_t c)
-{
-    return _strnicmp(s1, s2, c);
-}

sdk/lib/crt/string/strnicmp.c

···
-#include <precomp.h>
-
-/*
- * @implemented
- */
-int CDECL _strnicmp(const char *s1, const char *s2, size_t n)
-{
-
-  if (n == 0)
-    return 0;
-  do {
-    if (toupper(*s1) != toupper(*s2++))
-      return toupper(*(unsigned const char *)s1) - toupper(*(unsigned const char *)--s2);
-    if (*s1++ == 0)
-      break;
-  } while (--n != 0);
-  return 0;
-}

sdk/lib/crt/string/strtod.c

···
-/* Copyright (C) 1996 DJ Delorie, see COPYING.DJ for details */
-/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
-
-#include <precomp.h>
-
-/*
- * @implemented
- */
-double
-strtod(const char *s, char **sret)
-{
-  long double r;		/* result */
-  int e;			/* exponent */
-  long double d;		/* scale */
-  int sign;			/* +- 1.0 */
-  int esign;
-  int i;
-  int flags=0;
-
-  r = 0.0;
-  sign = 1;
-  e = 0;
-  esign = 1;
-
-  if (s == NULL)
-     return r;
-
-
-  while ((*s == ' ') || (*s == '\t'))
-    s++;
-
-  if (*s == '+')
-    s++;
-  else if (*s == '-')
-  {
-    sign = -1;
-    s++;
-  }
-
-  while ((*s >= '0') && (*s <= '9'))
-  {
-    flags |= 1;
-    r *= 10.0;
-    r += *s - '0';
-    s++;
-  }
-
-  if (*s == '.')
-  {
-    d = 0.1L;
-    s++;
-    while ((*s >= '0') && (*s <= '9'))
-    {
-      flags |= 2;
-      r += d * (*s - '0');
-      s++;
-      d *= 0.1L;
-    }
-  }
-
-  if (flags == 0)
-  {
-    if (sret)
-      *sret = (char *)s;
-    return 0;
-  }
-
-  if ((*s == 'e') || (*s == 'E'))
-  {
-    s++;
-    if (*s == '+')
-      s++;
-    else if (*s == '-')
-    {
-      s++;
-      esign = -1;
-    }
-    if ((*s < '0') || (*s > '9'))
-    {
-      if (sret)
-	*sret = (char *)s;
-      return r;
-    }
-
-    while ((*s >= '0') && (*s <= '9'))
-    {
-      e *= 10;
-      e += *s - '0';
-      s++;
-    }
-  }
-
-  if (esign < 0)
-    for (i = 1; i <= e; i++)
-      r *= 0.1L;
-  else
-    for (i = 1; i <= e; i++)
-      r *= 10.0;
-
-  if (sret)
-    *sret = (char *)s;
-  return r * sign;
-}

sdk/lib/crt/string/strtok.c

···
-/* Taken from Wine Staging msvcrt/string.c */
-
-#include <precomp.h>
-#include <internal/wine/msvcrt.h>
-
-/*********************************************************************
- *		strtok  (MSVCRT.@)
- */
-char * CDECL strtok( char *str, const char *delim )
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-    char *ret;
-
-    if (!str)
-        if (!(str = data->strtok_next)) return NULL;
-
-    while (*str && strchr( delim, *str )) str++;
-    if (!*str) return NULL;
-    ret = str++;
-    while (*str && !strchr( delim, *str )) str++;
-    if (*str) *str++ = 0;
-    data->strtok_next = str;
-    return ret;
-}

sdk/lib/crt/string/strtok_s.c

···
-/* Taken from Wine Staging msvcrt/string.c */
-
-#include <precomp.h>
-#include <internal/wine/msvcrt.h>
-
-/*********************************************************************
- *		strtok_s  (MSVCRT.@)
- */
-char * CDECL strtok_s(char *str, const char *delim, char **ctx)
-{
-    if (!MSVCRT_CHECK_PMT(delim != NULL)) return NULL;
-    if (!MSVCRT_CHECK_PMT(ctx != NULL)) return NULL;
-    if (!MSVCRT_CHECK_PMT(str != NULL || *ctx != NULL)) return NULL;
-
-    if(!str)
-        str = *ctx;
-
-    while(*str && strchr(delim, *str))
-        str++;
-    if(!*str)
-    {
-        *ctx = str;
-        return NULL;
-    }
-
-    *ctx = str+1;
-    while(**ctx && !strchr(delim, **ctx))
-        (*ctx)++;
-    if(**ctx)
-        *(*ctx)++ = 0;
-
-    return str;
-}

sdk/lib/crt/string/strtold.c

···
-/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
-#include <stdlib.h>
-#include <msvcrt/ctype.h>
-
-static double powten[] =
-{
-  1e1L, 1e2L, 1e4L, 1e8L, 1e16L, 1e32L, 1e64L, 1e128L, 1e256L,
-#ifdef __GNUC__
-  1e512L, 1e512L*1e512L, 1e2048L, 1e4096L
-#else
-  1e256L, 1e256L, 1e256L, 1e256L
-#endif
-};
-
-long double
-_strtold(const char *s, char **sret)
-{
-  double r;		/* result */
-  int e, ne;			/* exponent */
-  int sign;			/* +- 1.0 */
-  int esign;
-  int flags=0;
-  int l2powm1;
-
-  r = 0.0L;
-  sign = 1;
-  e = ne = 0;
-  esign = 1;
-
-  while(*s && isspace(*s))
-    s++;
-
-  if (*s == '+')
-    s++;
-  else if (*s == '-')
-  {
-    sign = -1;
-    s++;
-  }
-
-  while ((*s >= '0') && (*s <= '9'))
-  {
-    flags |= 1;
-    r *= 10.0L;
-    r += *s - '0';
-    s++;
-  }
-
-  if (*s == '.')
-  {
-    s++;
-    while ((*s >= '0') && (*s <= '9'))
-    {
-      flags |= 2;
-      r *= 10.0L;
-      r += *s - '0';
-      s++;
-      ne++;
-    }
-  }
-  if (flags == 0)
-  {
-    if (sret)
-      *sret = (char *)s;
-    return 0.0L;
-  }
-
-  if ((*s == 'e') || (*s == 'E'))
-  {
-    s++;
-    if (*s == '+')
-      s++;
-    else if (*s == '-')
-    {
-      s++;
-      esign = -1;
-    }
-    while ((*s >= '0') && (*s <= '9'))
-    {
-      e *= 10;
-      e += *s - '0';
-      s++;
-    }
-  }
-  if (esign < 0)
-  {
-    esign = -esign;
-    e = -e;
-  }
-  e = e - ne;
-  if (e < -4096)
-  {
-    /* possibly subnormal number, 10^e would overflow */
-    r *= 1.0e-2048L;
-    e += 2048;
-  }
-  if (e < 0)
-  {
-    e = -e;
-    esign = -esign;
-  }
-  if (e >= 8192)
-    e = 8191;
-  if (e)
-  {
-    double d = 1.0L;
-    l2powm1 = 0;
-    while (e)
-    {
-      if (e & 1)
-	d *= powten[l2powm1];
-      e >>= 1;
-      l2powm1++;
-    }
-    if (esign > 0)
-      r *= d;
-    else
-      r /= d;
-  }
-  if (sret)
-    *sret = (char *)s;
-  return r * sign;
-
-  return 0;
-}

sdk/lib/crt/string/strupr.c

···
-/*
- * The C RunTime DLL
- *
- * Implements C run-time functionality as known from UNIX.
- *
- * Copyright 1996,1998 Marcus Meissner
- * Copyright 1996 Jukka Iivonen
- * Copyright 1997 Uwe Bonnes
- */
-
-#include <precomp.h>
-
-/*
- * @implemented
- */
-char * CDECL _strupr(char *x)
-{
-	char  *y=x;
-	char ch, upper;
-
-	while (*y) {
-		ch = *y;
-		upper = toupper(ch);
-		if (ch != upper)
-			*y = upper;
-		y++;
-	}
-	return x;
-}

sdk/lib/crt/string/strxfrm.c

···
-#include <precomp.h>
-
-#include <locale.h>
-#include <internal/wine/msvcrt.h>
-
-size_t CDECL _strxfrm_l( char *dest, const char *src,
-        size_t len, _locale_t locale )
-{
-    MSVCRT_pthreadlocinfo locinfo;
-    int ret;
-
-    if(!MSVCRT_CHECK_PMT(src)) return INT_MAX;
-    if(!MSVCRT_CHECK_PMT(dest || !len)) return INT_MAX;
-
-    if(len > INT_MAX) {
-        FIXME("len > INT_MAX not supported\n");
-        len = INT_MAX;
-    }
-
-    if(!locale)
-        locinfo = get_locinfo();
-    else
-        locinfo = ((MSVCRT__locale_t)locale)->locinfo;
-
-    if(!locinfo->lc_handle[MSVCRT_LC_COLLATE]) {
-        strncpy(dest, src, len);
-        return strlen(src);
-    }
-
-    ret = LCMapStringA(locinfo->lc_handle[MSVCRT_LC_COLLATE],
-            LCMAP_SORTKEY, src, -1, NULL, 0);
-    if(!ret) {
-        if(len) dest[0] = 0;
-        *_errno() = EILSEQ;
-        return INT_MAX;
-    }
-    if(!len) return ret-1;
-
-    if(ret > len) {
-        dest[0] = 0;
-        *_errno() = ERANGE;
-        return ret-1;
-    }
-
-    return LCMapStringA(locinfo->lc_handle[MSVCRT_LC_COLLATE],
-            LCMAP_SORTKEY, src, -1, dest, len) - 1;
-}
-
-/*********************************************************************
- *		strxfrm (MSVCRT.@)
- */
-size_t CDECL strxfrm( char *dest, const char *src, size_t len )
-{
-    return _strxfrm_l(dest, src, len, NULL);
-}

sdk/lib/crt/string/wcs.c

···
  */
 #include <precomp.h>
 #include <assert.h>
-
-#ifndef _LIBCNT_
-#include <internal/wine/msvcrt.h>
-#endif
-
 #include "wine/unicode.h"
-#undef sprintf
-#undef wsprintf
-#undef snprintf
-#undef vsnprintf
-#undef vprintf
-#undef vwprintf
-
-#ifdef _MSC_VER
-#pragma function(_wcsset)
-#endif
-
-#ifndef _LIBCNT_
-/*********************************************************************
- *		_wcsdup (MSVCRT.@)
- */
-wchar_t* CDECL _wcsdup( const wchar_t* str )
-{
-  wchar_t* ret = NULL;
-  if (str)
-  {
-    size_t size = (strlenW(str) + 1) * sizeof(wchar_t);
-    ret = malloc( size );
-    if (ret) memcpy( ret, str, size );
-  }
-  return ret;
-}
-/*********************************************************************
- *		_wcsicoll (MSVCRT.@)
- */
-INT CDECL _wcsicoll( const wchar_t* str1, const wchar_t* str2 )
-{
-  /* FIXME: handle collates */
-  return strcmpiW( str1, str2 );
-}
-#endif
 
 /*********************************************************************
  *		_wcsnset (MSVCRT.@)
···
   return ret;
 }
 
-#ifndef _LIBCNT_
-/*********************************************************************
- *		_wcsset (MSVCRT.@)
- */
-wchar_t* CDECL _wcsset( wchar_t* str, wchar_t c )
-{
-  wchar_t* ret = str;
-  while (*str) *str++ = c;
-  return ret;
-}
-
-/******************************************************************
- *		_wcsupr_s (MSVCRT.@)
- *
- */
-INT CDECL _wcsupr_s( wchar_t* str, size_t n )
-{
-  wchar_t* ptr = str;
-
-  if (!str || !n)
-  {
-    if (str) *str = '\0';
-    _set_errno(EINVAL);
-    return EINVAL;
-  }
-
-  while (n--)
-  {
-    if (!*ptr) return 0;
-    *ptr = toupperW(*ptr);
-    ptr++;
-  }
-
-  /* MSDN claims that the function should return and set errno to
-   * ERANGE, which doesn't seem to be true based on the tests. */
-  *str = '\0';
-  _set_errno(EINVAL);
-  return EINVAL;
-}
-
-/*********************************************************************
- *		wcstod (MSVCRT.@)
- */
-double CDECL wcstod(const wchar_t* lpszStr, wchar_t** end)
-{
-  const wchar_t* str = lpszStr;
-  int negative = 0;
-  double ret = 0, divisor = 10.0;
-
-  TRACE("(%s,%p) semi-stub\n", debugstr_w(lpszStr), end);
-
-  /* FIXME:
-   * - Should set errno on failure
-   * - Should fail on overflow
-   * - Need to check which input formats are allowed
-   */
-  while (isspaceW(*str))
-    str++;
-
-  if (*str == '-')
-  {
-    negative = 1;
-    str++;
-  }
-
-  while (isdigitW(*str))
-  {
-    ret = ret * 10.0 + (*str - '0');
-    str++;
-  }
-  if (*str == '.')
-    str++;
-  while (isdigitW(*str))
-  {
-    ret = ret + (*str - '0') / divisor;
-    divisor *= 10;
-    str++;
-  }
-
-  if (*str == 'E' || *str == 'e' || *str == 'D' || *str == 'd')
-  {
-    int negativeExponent = 0;
-    int exponent = 0;
-    if (*(++str) == '-')
-    {
-      negativeExponent = 1;
-      str++;
-    }
-    while (isdigitW(*str))
-    {
-      exponent = exponent * 10 + (*str - '0');
-      str++;
-    }
-    if (exponent != 0)
-    {
-      if (negativeExponent)
-        ret = ret / pow(10.0, exponent);
-      else
-        ret = ret * pow(10.0, exponent);
-    }
-  }
-
-  if (negative)
-    ret = -ret;
-
-  if (end)
-    *end = (wchar_t*)str;
-
-  TRACE("returning %g\n", ret);
-  return ret;
-}
-#endif
-
 /*********************************************************************
  *		wcscoll (MSVCRT.@)
  */
···
   return NULL;
 }
 
-#ifndef _LIBCNT_
-
-/*********************************************************************
- *		wctomb (MSVCRT.@)
- */
-/*********************************************************************
- *         wctomb (MSVCRT.@)
- */
-INT CDECL wctomb( char *dst, wchar_t ch )
-{
-    BOOL error;
-    INT size;
-
-    if (!dst)
-        return 0;
-
-    size = WideCharToMultiByte(get_locinfo()->lc_codepage, 0, &ch, 1, dst, dst ? 6 : 0, NULL, &error);
-    if(!size || error) {
-        *_errno() = EINVAL;
-        return EOF;
-    }
-    return size;
-}
-
-/*********************************************************************
- * wcsrtombs_l (INTERNAL)
- */
-static size_t CDECL wcsrtombs_l(char *mbstr, const wchar_t **wcstr,
-            size_t count, _locale_t locale)
-{
-    MSVCRT_pthreadlocinfo locinfo;
-    size_t tmp = 0;
-    BOOL used_default;
-
-    if(!locale)
-        locinfo = get_locinfo();
-    else
-        locinfo = ((MSVCRT__locale_t)locale)->locinfo;
-
-    if(!locinfo->lc_codepage) {
-        size_t i;
-
-        if(!mbstr)
-            return strlenW(*wcstr);
-
-        for(i=0; i<count; i++) {
-            if((*wcstr)[i] > 255) {
-                _set_errno(EILSEQ);
-                return -1;
-            }
-
-            mbstr[i] = (*wcstr)[i];
-            if(!(*wcstr)[i]) break;
-        }
-        return i;
-    }
-
-    if(!mbstr) {
-        tmp = WideCharToMultiByte(locinfo->lc_codepage, WC_NO_BEST_FIT_CHARS,
-                *wcstr, -1, NULL, 0, NULL, &used_default);
-        if(!tmp || used_default) {
-            _set_errno(EILSEQ);
-            return -1;
-        }
-        return tmp-1;
-    }
-
-    while(**wcstr) {
-        char buf[3];
-        size_t i, size;
-
-        size = WideCharToMultiByte(locinfo->lc_codepage, WC_NO_BEST_FIT_CHARS,
-                *wcstr, 1, buf, 3, NULL, &used_default);
-        if(!size || used_default) {
-            _set_errno(EILSEQ);
-            return -1;
-        }
-        if(tmp+size > count)
-            return tmp;
-
-        for(i=0; i<size; i++)
-            mbstr[tmp++] = buf[i];
-        (*wcstr)++;
-    }
-
-    if(tmp < count) {
-        mbstr[tmp] = '\0';
-        *wcstr = NULL;
-    }
-    return tmp;
-}
-
-/*********************************************************************
- *		_wcstombs_l (MSVCRT.@)
- */
-size_t CDECL _wcstombs_l(char *mbstr, const wchar_t *wcstr, size_t count, _locale_t locale)
-{
-    return wcsrtombs_l(mbstr, &wcstr, count, locale);
-}
-
-/*********************************************************************
- *		wcstombs (MSVCRT.@)
- */
-size_t CDECL wcstombs(char *mbstr, const wchar_t *wcstr, size_t count)
-{
-    return wcsrtombs_l(mbstr, &wcstr, count, NULL);
-}
-#endif
-
 /*********************************************************************
  *		wcscpy_s (MSVCRT.@)
  */
···
 
     if (!MSVCRT_CHECK_PMT(dst != NULL) || !MSVCRT_CHECK_PMT(elem > 0))
     {
-#ifndef _LIBCNT_
-        _set_errno(EINVAL);
-#endif
         return EINVAL;
     }
     if (!MSVCRT_CHECK_PMT(src != NULL || count == 0))

sdk/lib/crt/string/wcstod.c

···
-/* Copyright (C) 1996 DJ Delorie, see COPYING.DJ for details */
-/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
-#include <stdlib.h>
-
-
-/*
- * @implemented
- */
-#if 0 //FIXME: Compare with wcstod in wcs.c
-double wcstod(const wchar_t *s, wchar_t **sret)
-{
-  long double r;		/* result */
-  int e;			/* exponent */
-  long double d;		/* scale */
-  int sign;			/* +- 1.0 */
-  int esign;
-  int i;
-  int flags=0;
-
-  r = 0.0;
-  sign = 1;
-  e = 0;
-  esign = 1;
-
-  while ((*s == L' ') || (*s == L'\t'))
-    s++;
-
-  if (*s == L'+')
-    s++;
-  else if (*s == L'-')
-  {
-    sign = -1;
-    s++;
-  }
-
-  while ((*s >= L'0') && (*s <= L'9'))
-  {
-    flags |= 1;
-    r *= 10.0;
-    r += *s - L'0';
-    s++;
-  }
-
-  if (*s == L'.')
-  {
-    d = 0.1L;
-    s++;
-    while ((*s >= L'0') && (*s <= L'9'))
-    {
-      flags |= 2;
-      r += d * (*s - L'0');
-      s++;
-      d *= 0.1L;
-    }
-  }
-
-  if (flags == 0)
-  {
-    if (sret)
-      *sret = (wchar_t *)s;
-    return 0;
-  }
-
-  if ((*s == L'e') || (*s == L'E'))
-  {
-    s++;
-    if (*s == L'+')
-      s++;
-    else if (*s == L'-')
-    {
-      s++;
-      esign = -1;
-    }
-    if ((*s < L'0') || (*s > L'9'))
-    {
-      if (sret)
-	*sret = (wchar_t *)s;
-      return r;
-    }
-
-    while ((*s >= L'0') && (*s <= L'9'))
-    {
-      e *= 10;
-      e += *s - L'0';
-      s++;
-    }
-  }
-
-  if (esign < 0)
-    for (i = 1; i <= e; i++)
-      r *= 0.1L;
-  else
-    for (i = 1; i <= e; i++)
-      r *= 10.0;
-
-  if (sret)
-    *sret = (wchar_t *)s;
-  return r * sign;
-}
-#endif

sdk/lib/crt/string/wcstombs_s.c

···
-/*
- * COPYRIGHT:         See COPYING in the top level directory
- * PROJECT:           ReactOS CRT
- * PURPOSE:           Implementation of mbstowcs_s
- * FILE:              lib/sdk/crt/string/wcstombs_s.c
- * PROGRAMMER:        Timo Kreuzer
- */
-
-#include <precomp.h>
-
-_Success_(return!=EINVAL)
-_Check_return_wat_
-_CRTIMP
-errno_t
-__cdecl
-wcstombs_s(
-    _Out_opt_ size_t * pcchConverted,
-    _Out_writes_bytes_to_opt_(cjDstSize, *pcchConverted)
-        char * pmbstrDst,
-    _In_ size_t cjDstSize,
-    _In_z_ const wchar_t * pwszSrc,
-    _In_ size_t cjMaxCount)
-{
-    size_t cchMax, cchConverted;
-    errno_t retval = 0;
-
-    /* Make sure, either we have a target buffer > 0 bytes, or no buffer */
-    if (!MSVCRT_CHECK_PMT( ((cjDstSize != 0) && (pmbstrDst != 0)) ||
-                           ((cjDstSize == 0) && (pmbstrDst == 0)) ))
-    {
-        _set_errno(EINVAL);
-        return EINVAL;
-    }
-
-    /* Check if we have a return value pointer */
-    if (pcchConverted)
-    {
-        /* Default to 0 bytes written */
-        *pcchConverted = 0;
-    }
-
-    if (!MSVCRT_CHECK_PMT((cjMaxCount == 0) || (pwszSrc != 0)))
-    {
-        _set_errno(EINVAL);
-        return EINVAL;
-    }
-
-    /* Check if there is anything to do */
-    if ((pmbstrDst == 0) && (pwszSrc == 0))
-    {
-        _set_errno(EINVAL);
-        return EINVAL;
-    }
-
-    /* Check if we have a wchar string */
-    if (pwszSrc)
-    {
-        /* Check if we also have a multibyte buffer */
-        if (pmbstrDst)
-        {
-            /* Calculate the maximum that we can write */
-            cchMax = (cjMaxCount < cjDstSize) ? cjMaxCount + 1 : cjDstSize;
-
-            /* Now do the conversion */
-            cchConverted = wcstombs(pmbstrDst, pwszSrc, cchMax);
-
-            /* Check if the buffer was not zero terminated */
-            if (cchConverted == cchMax)
-            {
-                /* Check if we reached the max size of the dest buffer */
-                if (cchConverted == cjDstSize)
-                {
-                    /* Does the caller allow this? */
-                    if (cjMaxCount != _TRUNCATE)
-                    {
-                        /* Not allowed, truncate to 0 length */
-                        pmbstrDst[0] = L'\0';
-
-                        /* Return error */
-                        _set_errno(ERANGE);
-                        return ERANGE;
-                    }
-
-                    /* Inform the caller about truncation */
-                    retval = STRUNCATE;
-                }
-
-                /* zero teminate the buffer */
-                pmbstrDst[cchConverted - 1] = L'\0';
-            }
-            else
-            {
-                /* The buffer is zero terminated, count the terminating char */
-                cchConverted++;
-            }
-        }
-        else
-        {
-            /* Get the length of the string, plus 0 terminator */
-            cchConverted = wcsnlen(pwszSrc, cjMaxCount) + 1;
-        }
-    }
-    else
-    {
-        cchConverted = cjMaxCount + 1;
-    }
-
-    /* Check if we have a return value pointer */
-    if (pcchConverted)
-    {
-        /* Default to 0 bytes written */
-        *pcchConverted = cchConverted;
-    }
-
-    return retval;
-}

sdk/lib/crt/string/witoa.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/string/witoa.c
- * PURPOSE:     converts a integer to ascii
- * PROGRAMER:
- * UPDATE HISTORY:
- *              1995: Created
- *              1998: Added ltoa by Ariadne
- *              2006 : replace all api in this file to wine cvs 2006-05-21
- */
-/*  */
-#include <precomp.h>
-
-/*
- * @implemented
- * copy _i64toa from wine cvs 2006 month 05 day 21
- */
-char* _i64toa(__int64 value, char* string, int radix)
-{
-    ULONGLONG val;
-    int negative;
-    char buffer[65];
-    char *pos;
-    int digit;
-
-    if (value < 0 && radix == 10) {
-	negative = 1;
-        val = -value;
-    } else {
-	negative = 0;
-        val = value;
-    } /* if */
-
-    pos = &buffer[64];
-    *pos = '\0';
-
-    do {
-	digit = val % radix;
-	val = val / radix;
-	if (digit < 10) {
-	    *--pos = '0' + digit;
-	} else {
-	    *--pos = 'a' + digit - 10;
-	} /* if */
-    } while (val != 0L);
-
-    if (negative) {
-	*--pos = '-';
-    } /* if */
-
-    memcpy(string, pos, &buffer[64] - pos + 1);
-    return string;
-}
-
-
-/*
- * @implemented
- */
-char* _ui64toa(unsigned __int64 value, char* string, int radix)
-{
-    char buffer[65];
-    char *pos;
-    int digit;
-
-    pos = &buffer[64];
-    *pos = '\0';
-
-    do {
-	digit = value % radix;
-	value = value / radix;
-	if (digit < 10) {
-	    *--pos = '0' + digit;
-	} else {
-	    *--pos = 'a' + digit - 10;
-	} /* if */
-    } while (value != 0L);
-
-    memcpy(string, pos, &buffer[64] - pos + 1);
-    return string;
-}

sdk/lib/crt/string/witow.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/string/witow.c
- * PURPOSE:     converts a integer to wchar_t
- * PROGRAMER:
- * UPDATE HISTORY:
- *              1995: Created
- *              1998: Added ltoa by Ariadne
- *              2000: derived from ./itoa.c by ea
- */
-/* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */
-
-#include <precomp.h>
-
-/*
- * @implemented
- */
-wchar_t* _i64tow(__int64 value, wchar_t* string, int radix)
-{
-  wchar_t tmp[65];
-  wchar_t* tp = tmp;
-  int i;
-  unsigned v;
-  int sign;
-  wchar_t* sp;
-
-  if (radix > 36 || radix <= 1) {
-    _set_errno(EDOM);
-    return 0;
-  }
-
-  sign = (radix == 10 && value < 0);
-  if (sign)
-    v = -value;
-  else
-    v = (unsigned)value;
-  while (v || tp == tmp) {
-    i = v % radix;
-    v = v / radix;
-    if (i < 10)
-      *tp++ = i+L'0';
-    else
-      *tp++ = i + L'a' - 10;
-  }
-
-  if (string == 0)
-    string = (wchar_t*)malloc(((tp-tmp)+sign+1)*sizeof(wchar_t));
-  sp = string;
-
-  if (sign)
-    *sp++ = L'-';
-  while (tp > tmp)
-    *sp++ = *--tp;
-  *sp = 0;
-  return string;
-}
-
-/*
- * @implemented
- */
-wchar_t* _ui64tow(unsigned __int64 value, wchar_t* string, int radix)
-{
-  wchar_t tmp[65];
-  wchar_t* tp = tmp;
-  long i;
-  unsigned long v = value;
-  wchar_t* sp;
-
-  if (radix > 36 || radix <= 1) {
-    _set_errno(EDOM);
-    return 0;
-  }
-
-  while (v || tp == tmp) {
-    i = v % radix;
-    v = v / radix;
-    if (i < 10)
-      *tp++ = i+L'0';
-    else
-      *tp++ = i + L'a' - 10;
-  }
-
-  if (string == 0)
-    string = (wchar_t*)malloc(((tp-tmp)+1)*sizeof(wchar_t));
-  sp = string;
-
-  while (tp > tmp)
-    *sp++ = *--tp;
-  *sp = 0;
-  return string;
-}

sdk/lib/crt/string/wtof.c

···
-#include <precomp.h>
-
-/*
- * @implemented
- */
-double
-_wtof(const wchar_t *str)
-{
-  return wcstod(str, 0);
-}

sdk/lib/crt/string/wtoi64.c

···
 #include <precomp.h>
-#include <internal/wine/msvcrt.h>
 
 /*********************************************************************
  *              _wtoi64_l (MSVCRT.@)

sdk/lib/crt/sys_stat/systime.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/sys_stat/systime.c
- * PURPOSE:     Unknown
- * PROGRAMER:   Unknown
- * UPDATE HISTORY:
- *              25/11/05: Added license header
- */
-
-#include <precomp.h>
-
-int month[12] = { 31,28,31,30,31,30,31,31,30,31,30,31};
-
-/*
- * @unimplemented
- */
-unsigned int _getsystime(struct tm* tp)
-{
-    SYSTEMTIME Time;
-    int i;
-    DWORD TimeZoneId;
-    TIME_ZONE_INFORMATION TimeZoneInformation;
-
-    GetLocalTime(&Time);
-
-    tp->tm_year = Time.wYear - 1900;
-    tp->tm_mon = Time.wMonth - 1;
-    tp->tm_wday = Time.wDayOfWeek;
-    tp->tm_mday = Time.wDay;
-    tp->tm_hour = Time.wHour;
-    tp->tm_min = Time.wMinute;
-    tp->tm_sec = Time.wSecond;
-
-    tp->tm_isdst = -1;
-
-    TimeZoneId =  GetTimeZoneInformation(&TimeZoneInformation);
-    if (TimeZoneId == TIME_ZONE_ID_DAYLIGHT){
-      tp->tm_isdst = 1;
-    }
-    else
-      tp->tm_isdst = 0;
-
-    if (tp->tm_year % 4 == 0) {
-        if (tp->tm_year % 100 != 0)
-            tp->tm_yday = 1;
-        else if ((tp->tm_year-100) % 1000 == 0)
-            tp->tm_yday = 1;
-    }
-
-    for (i = 0; i <= tp->tm_mon; i++)
-        tp->tm_yday += month[i];
-
-    return Time.wMilliseconds;
-}
-
-
-/*
- * @implemented
- */
-unsigned int _setsystime(struct tm* tp, unsigned int ms)
-{
-    SYSTEMTIME Time;
-
-    Time.wYear = tp->tm_year + 1900;
-    Time.wMonth = tp->tm_mon + 1;
-    Time.wDayOfWeek = tp->tm_wday;
-    Time.wDay = tp->tm_mday;
-    Time.wHour = tp->tm_hour;
-    Time.wMinute = tp->tm_min;
-    Time.wSecond = tp->tm_sec;
-    Time.wMilliseconds = ms;
-
-    if (!SetLocalTime(&Time))
-        return -1;
-
-    return 0;
-}

sdk/lib/crt/time/asctime.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/asctime.c
- * PURPOSE:     Implementation of asctime(), _asctime_s()
- * PROGRAMERS:  Timo Kreuzer
- */
-#include <precomp.h>
-#include <tchar.h>
-#include <time.h>
-#include "bitsfixup.h"
-
-#define DAYSPERWEEK 7
-#define MONSPERYEAR 12
-#define HUNDREDYEAROFFSET 19
-
-static const _TCHAR wday_name[DAYSPERWEEK][5] =
-{
-    _T("Sun "), _T("Mon "), _T("Tue "), _T("Wed "),
-    _T("Thu "), _T("Fri "), _T("Sat ")
-};
-
-static const _TCHAR mon_name[MONSPERYEAR][5] =
-{
-    _T("Jan "), _T("Feb "), _T("Mar "), _T("Apr "), _T("May "), _T("Jun "),
-    _T("Jul "), _T("Aug "), _T("Sep "), _T("Oct "), _T("Nov "), _T("Dec ")
-};
-
-#ifdef _UNICODE
-typedef unsigned long long _TCHAR4;
-typedef unsigned long _TCHAR2;
-#else
-typedef unsigned long _TCHAR4;
-typedef unsigned short _TCHAR2;
-#endif
-
-#pragma pack(push,1)
-typedef union
-{
-    _TCHAR text[26];
-    struct
-    {
-        _TCHAR4 WeekDay;
-        _TCHAR4 Month;
-        _TCHAR2 Day;
-        _TCHAR Space1;
-        _TCHAR2 Hour;
-        _TCHAR Sep1;
-        _TCHAR2 Minute;
-        _TCHAR Sep2;
-        _TCHAR2 Second;
-        _TCHAR Space2;
-        _TCHAR2 Year[2];
-        _TCHAR lb;
-        _TCHAR zt;
-    };
-} timebuf_t;
-#pragma pack(pop)
-
-FORCEINLINE
-_TCHAR2
-IntToChar2(int x)
-{
-    union
-    {
-        _TCHAR2 char2;
-        _TCHAR array[2];
-    } u;
-
-    u.array[0] = '0' + (x / 10);
-    u.array[1] = '0' + (x % 10);
-
-    return u.char2;
-}
-
-static __inline
-void
-FillBuf(timebuf_t *buf, const struct tm *ptm)
-{
-    /* Format looks like this:
-     * "Sun Mar 01 12:34:56 1902\n\0" */
-    buf->WeekDay = *(_TCHAR4*)wday_name[ptm->tm_wday];
-    buf->Month = *(_TCHAR4*)mon_name[ptm->tm_mon];
-    buf->Day = IntToChar2(ptm->tm_mday);
-    buf->Space1 = ' ';
-    buf->Hour = IntToChar2(ptm->tm_hour);
-    buf->Sep1 = ':';
-    buf->Minute = IntToChar2(ptm->tm_min);
-    buf->Sep2 = ':';
-    buf->Second = IntToChar2(ptm->tm_sec);
-    buf->Space2 = ' ';
-    buf->Year[0] = IntToChar2(ptm->tm_year / 100 + HUNDREDYEAROFFSET);
-    buf->Year[1] = IntToChar2(ptm->tm_year % 100);
-    buf->lb = '\n';
-    buf->zt = '\0';
-}
-
-/******************************************************************************
- * \name _tasctime_s
- * \brief Converts a local time into a string and returns a pointer to it.
- * \param buffer Buffer that receives the string (26 characters).
- * \param numberOfElements Size of the buffer in characters.
- * \param time Pointer to the UTC time.
- */
-errno_t
-_tasctime_s(
-    _TCHAR* buffer,
-    size_t numberOfElements,
-    const struct tm *ptm)
-{
-    /* Validate parameters */
-    if (!buffer || numberOfElements < 26 || !ptm ||
-        (unsigned int)ptm->tm_sec > 59 ||
-        (unsigned int)ptm->tm_min > 59 ||
-        (unsigned int)ptm->tm_hour > 23 ||
-        (unsigned int)ptm->tm_mday > 31 ||
-        (unsigned int)ptm->tm_mon > 11 ||
-        (unsigned int)ptm->tm_year > 2038 ||
-        (unsigned int)ptm->tm_wday > 6 ||
-        (unsigned int)ptm->tm_yday > 365)
-    {
-#if 0
-        _invalid_parameter(NULL,
-#ifdef UNICODE
-                            L"_wasctime",
-#else
-                            L"asctime",
-#endif
-                           _CRT_WIDE(__FILE__),
-                           __LINE__,
-                           0);
-#endif
-        return EINVAL;
-    }
-
-    /* Fill the buffer */
-    FillBuf((timebuf_t*)buffer, ptm);
-
-    return 0;
-}
-
-/******************************************************************************
- * \name _tasctime
- * \brief Converts a UTC time into a string and returns a pointer to it.
- * \param ptm Pointer to the UTC time.
- * \remarks The string is stored in thread local buffer, shared between
- *          ctime, gmtime and localtime (32 and 64 bit versions).
- */
-_TCHAR *
-_tasctime(const struct tm *ptm)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-    _TCHAR *pstr;
-
-#ifndef _UNICODE
-    pstr = data->asctime_buffer;
-#else
-    pstr = data->wasctime_buffer;
-#endif
-
-    if(!pstr)
-        pstr = malloc(sizeof(struct tm));
-
-    /* Fill the buffer */
-    FillBuf((timebuf_t*)pstr, ptm);
-
-    return pstr;
-}

sdk/lib/crt/time/bitsfixup.h

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/bitsfixup.h
- * PURPOSE:     definitions for different time_t versions
- * PROGRAMERS:  Timo Kreuzer
- */
-
-#if defined(_USE_EXPLICIT_32BIT_TIME) || defined(_USE_EXPLICIT_64BIT_TIME)
-#undef _timeb
-#undef _ftime
-#undef _tctime
-#undef _tctime_s
-#undef _tutime
-#else
-#define _time time
-#endif
-
-#undef _ftime_s
-
-#ifdef _USE_EXPLICIT_32BIT_TIME
-#define time_t __time32_t
-#define _timeb __timeb32
-#define _utimbuf __utimbuf32
-
-#define difftime _difftime32
-#define localtime _localtime32
-#define localtime_s _localtime32_s
-#define _time _time32
-
-#define _ftime _ftime32
-#define _ftime_s _ftime32_s
-#define _futime _futime32
-#define _tctime _tctime32
-#define _tctime_s _tctime32_s
-#define _tutime _tutime32
-#define gmtime _gmtime32
-
-#endif
-
-#ifdef _USE_EXPLICIT_64BIT_TIME
-#define time_t __time64_t
-#define _timeb __timeb64
-#define _utimbuf __utimbuf64
-
-#define difftime _difftime64
-#define localtime _localtime64
-#define localtime_s _localtime64_s
-#define _time _time64
-
-#define _ftime _ftime64
-#define _ftime_s _ftime64_s
-#define _futime _futime64
-#define _tctime _tctime64
-#define _tctime_s _tctime64_s
-#define _tutime _tutime64
-#define gmtime _gmtime64
-
-#endif

sdk/lib/crt/time/clock.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/clock.c
- * PURPOSE:     Implementation of clock()
- * PROGRAMER:   Timo Kreuzer
- */
-#include <precomp.h>
-
-ULARGE_INTEGER g_StartupTime;
-
-void
-initclock(void)
-{
-    GetSystemTimeAsFileTime((FILETIME*)&g_StartupTime);
-}
-
-/******************************************************************************
- * \name clock
- * \brief Returns the current process's elapsed time.
- */
-clock_t
-clock(void)
-{
-    ULARGE_INTEGER Time;
-
-    GetSystemTimeAsFileTime((FILETIME*)&Time);
-    Time.QuadPart -= g_StartupTime.QuadPart;
-    return (clock_t)FileTimeToUnixTime((FILETIME*)&Time, NULL);
-};

sdk/lib/crt/time/ctime.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/ctime.c
- * PURPOSE:     Implementation of ctime, _ctime_s
- * PROGRAMERS:  Timo Kreuzer
- */
-#define MINGW_HAS_SECURE_API 1
-
-#include <errno.h>
-#define RC_INVOKED 1 // to prevent inline functions
-#include <tchar.h>
-#include <time.h>
-#include "bitsfixup.h"
-
-/* Doesn't really exist, but we need it here */
-_CRTIMP errno_t __cdecl localtime_s(struct tm *_Tm,const time_t *_Time);
-
-/******************************************************************************
- * \name _tctime_s
- * \brief Converts a time_t value into a string.
- * \param buffer Buffer that receives the string (26 characters).
- * \param numberOfElements Size of the buffer in characters.
- * \param time Pointer to the UTC time.
- */
-errno_t
-_tctime_s(_TCHAR *buffer, size_t numberOfElements, const time_t *time)
-{
-    struct tm _tm;
-
-    if (localtime_s(&_tm, time) == EINVAL)
-    {
-        return EINVAL;
-    }
-    return _tasctime_s(buffer, numberOfElements, &_tm);
-}
-
-/******************************************************************************
- * \name _tctime
- * \brief Converts a time_t value into a string and returns a pointer to it.
- * \param time Pointer to the UTC time.
- * \remarks The string is stored in thread local buffer, shared between
- *          ctime, gmtime and localtime (both 32 and 64 bit versions).
- */
-_TCHAR *
-_tctime(const time_t *ptime)
-{
-    struct tm *ptm = localtime(ptime);
-    if (!ptm)
-    {
-        return 0;
-    }
-    return _tasctime(ptm);
-}
-

sdk/lib/crt/time/ctime32.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/ctime32.c
- * PURPOSE:     Implementation of _ctime32()
- * PROGRAMERS:  Timo Kreuzer
- */
-#define _USE_EXPLICIT_32BIT_TIME
-#include "ctime.c"

sdk/lib/crt/time/ctime64.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/ctime64.c
- * PURPOSE:     Implementation of _ctime64
- * PROGRAMERS:  Timo Kreuzer
- */
-#define _USE_EXPLICIT_64BIT_TIME
-#include "ctime.c"

sdk/lib/crt/time/difftime.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/difftime.c
- * PURPOSE:     Implementation of difftime
- * PROGRAMERS:  Timo Kreuzer
- */
-#include <time.h>
-#include "bitsfixup.h"
-
-/**
- * \name difftime
- * \brief Retrurns the difference between two time_t values in seconds.
- * \param time1 Beginning time.
- * \param time2 Ending time.
- */
-double
-difftime(
-    time_t time1, /**< Beginning time */
-    time_t time2) /**< Ending time */
-{
-    return (double)(time1 - time2);
-}

sdk/lib/crt/time/difftime32.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/difftime32.c
- * PURPOSE:     Implementation of _difftime32
- * PROGRAMERS:  Timo Kreuzer
- */
-#define _USE_EXPLICIT_32BIT_TIME
-#include "difftime.c"

sdk/lib/crt/time/difftime64.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/difftime64.c
- * PURPOSE:     Implementation of _difftime64
- * PROGRAMERS:  Timo Kreuzer
- */
-#define _USE_EXPLICIT_64BIT_TIME
-#include "difftime.c"

sdk/lib/crt/time/ftime.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/ftime.c
- * PURPOSE:     Deprecated BSD library call
- * PROGRAMERS:  Timo Kreuzer
- */
-#include <precomp.h>
-#include <sys/timeb.h>
-#include "bitsfixup.h"
-
-/******************************************************************************
- * \name _ftime_s
- * \brief Get the current time.
- * \param [out] ptimeb Pointer to a structure of type struct _timeb that
- *        receives the current time.
- * \sa https://learn.microsoft.com/en-us/cpp/c-runtime-library/reference/ftime-s-ftime32-s-ftime64-s?view=msvc-170
- */
-errno_t
-CDECL
-_ftime_s(struct _timeb *ptimeb)
-{
-    DWORD ret;
-    TIME_ZONE_INFORMATION TimeZoneInformation;
-    FILETIME SystemTime;
-
-    /* Validate parameters */
-    if (!MSVCRT_CHECK_PMT( ptimeb != NULL ))
-    {
-        *_errno() = EINVAL;
-        return EINVAL;
-    }
-
-    ret = GetTimeZoneInformation(&TimeZoneInformation);
-    ptimeb->dstflag = (ret == TIME_ZONE_ID_DAYLIGHT) ? 1 : 0;
-    ptimeb->timezone = (short)TimeZoneInformation.Bias;
-
-    GetSystemTimeAsFileTime(&SystemTime);
-    ptimeb->time = (time_t)FileTimeToUnixTime(&SystemTime, &ptimeb->millitm);
-
-    return 0;
-}
-
-/******************************************************************************
- * \name _ftime
- * \brief Get the current time.
- * \param [out] ptimeb Pointer to a structure of type struct _timeb that
- *        receives the current time.
- * \note This function is for compatability and simply calls the secure
- *       version _ftime_s().
- * \sa https://learn.microsoft.com/en-us/cpp/c-runtime-library/reference/ftime-ftime32-ftime64?view=msvc-170
- */
-void
-CDECL
-_ftime(struct _timeb *ptimeb)
-{
-    _ftime_s(ptimeb);
-}

sdk/lib/crt/time/ftime32.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/ftime32.c
- * PURPOSE:     Implementation of _ftime32
- * PROGRAMERS:  Timo Kreuzer
- */
-#define _USE_EXPLICIT_32BIT_TIME
-#include "ftime.c"

sdk/lib/crt/time/ftime64.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/ftime64.c
- * PURPOSE:     Implementation of _ftime64
- * PROGRAMERS:  Timo Kreuzer
- */
-#define _USE_EXPLICIT_64BIT_TIME
-#include "ftime.c"

sdk/lib/crt/time/futime.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/futime.c
- * PURPOSE:     Implementation of _futime
- * PROGRAMERS:  Wine team
- */
-
-/*
- * msvcrt.dll file functions
- *
- * Copyright 1996,1998 Marcus Meissner
- * Copyright 1996 Jukka Iivonen
- * Copyright 1997,2000 Uwe Bonnes
- * Copyright 2000 Jon Griffiths
- * Copyright 2004 Eric Pouech
- * Copyright 2004 Juan Lang
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- *
- * TODO
- * Use the file flag hints O_SEQUENTIAL, O_RANDOM, O_SHORT_LIVED
- */
-
-#include <precomp.h>
-#define RC_INVOKED 1 // to prevent inline functions
-#include <time.h>
-#include <sys/utime.h>
-#include "bitsfixup.h"
-#include <internal/wine/msvcrt.h>
-
-ioinfo* get_ioinfo(int fd);
-void release_ioinfo(ioinfo *info);
-
-/******************************************************************************
- * \name _futime
- * \brief Set a file's modification time.
- * \param [out] ptimeb Pointer to a structure of type struct _timeb that
- *        receives the current time.
- * \sa https://learn.microsoft.com/en-us/cpp/c-runtime-library/reference/futime-futime32-futime64?view=msvc-170
- */
-int
-_futime(int fd, struct _utimbuf *filetime)
-{
-    ioinfo *info = get_ioinfo(fd);
-    FILETIME at, wt;
-
-    if (info->handle == INVALID_HANDLE_VALUE)
-    {
-        release_ioinfo(info);
-        return -1;
-    }
-
-    if (!filetime)
-    {
-        time_t currTime;
-        _time(&currTime);
-        RtlSecondsSince1970ToTime((ULONG)currTime,
-                                  (LARGE_INTEGER *)&at);
-        wt = at;
-    }
-    else
-    {
-        RtlSecondsSince1970ToTime((ULONG)filetime->actime,
-                                  (LARGE_INTEGER *)&at);
-        if (filetime->actime == filetime->modtime)
-        {
-            wt = at;
-        }
-        else
-        {
-            RtlSecondsSince1970ToTime((ULONG)filetime->modtime,
-                                      (LARGE_INTEGER *)&wt);
-        }
-    }
-
-    if (!SetFileTime(info->handle, NULL, &at, &wt))
-    {
-        release_ioinfo(info);
-        _dosmaperr(GetLastError());
-        return -1 ;
-    }
-    release_ioinfo(info);
-    return 0;
-}

sdk/lib/crt/time/futime32.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/futime32.c
- * PURPOSE:     Implementation of _futime32
- * PROGRAMERS:  Timo Kreuzer
- */
-#define _USE_EXPLICIT_32BIT_TIME
-#include "futime.c"

sdk/lib/crt/time/futime64.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/futime64.c
- * PURPOSE:     Implementation of _futime64
- * PROGRAMERS:  Timo Kreuzer
- */
-#define _USE_EXPLICIT_64BIT_TIME
-#include "futime.c"

sdk/lib/crt/time/gmtime.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/gmtime.c
- * PURPOSE:     Implementation of gmtime, _gmtime32, _gmtime64
- * PROGRAMERS:  Timo Kreuzer
- */
-#include <precomp.h>
-
-unsigned int g_monthdays[13] = {0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365};
-unsigned int g_lpmonthdays[13] = {0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366};
-
-struct tm *
-_gmtime_worker(struct tm *ptm, __time64_t time, int do_dst)
-{
-    unsigned int days, daystoyear, dayinyear, leapdays, leapyears, years, month;
-    unsigned int secondinday, secondinhour;
-    unsigned int *padays;
-
-    if (time < 0)
-    {
-        return 0;
-    }
-
-    /* Divide into date and time */
-    days = (unsigned int)(time / SECONDSPERDAY);
-    secondinday = time % SECONDSPERDAY;
-
-    /* Shift to days from 1.1.1601 */
-    days += DIFFDAYS;
-
-    /* Calculate leap days passed till today */
-    leapdays = leapdays_passed(days);
-
-    /* Calculate number of full leap years passed */
-    leapyears = leapyears_passed(days);
-
-    /* Are more leap days passed than leap years? */
-    if (leapdays > leapyears)
-    {
-        /* Yes, we're in a leap year */
-        padays = g_lpmonthdays;
-    }
-    else
-    {
-        /* No, normal year */
-        padays = g_monthdays;
-    }
-
-    /* Calculate year */
-    years = (days - leapdays) / 365;
-    ptm->tm_year = years - 299;
-
-    /* Calculate number of days till 1.1. of this year */
-    daystoyear = years * 365 + leapyears;
-
-    /* Calculate the day in this year */
-    dayinyear = days - daystoyear;
-
-    /* Shall we do DST corrections? */
-    ptm->tm_isdst = 0;
-    if (do_dst)
-    {
-        int yeartime = dayinyear * SECONDSPERDAY + secondinday ;
-        if (yeartime >= dst_begin && yeartime <= dst_end) // FIXME! DST in winter
-        {
-            time -= _dstbias;
-            days = (unsigned int)(time / SECONDSPERDAY + DIFFDAYS);
-            dayinyear = days - daystoyear;
-            ptm->tm_isdst = 1;
-        }
-    }
-
-    ptm->tm_yday = dayinyear;
-
-    /* dayinyear < 366 => terminates with i <= 11 */
-    for (month = 0; dayinyear >= padays[month+1]; month++)
-        ;
-
-    /* Set month and day in month */
-    ptm->tm_mon = month;
-    ptm->tm_mday = 1 + dayinyear - padays[month];
-
-    /* Get weekday */
-    ptm->tm_wday = (days + 1) % 7;
-
-    /* Calculate hour and second in hour */
-    ptm->tm_hour = secondinday / SECONDSPERHOUR;
-    secondinhour = secondinday % SECONDSPERHOUR;
-
-    /* Calculate minute and second */
-    ptm->tm_min = secondinhour / 60;
-    ptm->tm_sec = secondinhour % 60;
-
-    return ptm;
-}
-
-/******************************************************************************
- * \name _gmtime64
- * \brief
- * \param ptime Pointer to a variable of type __time64_t containing the time.
- */
-struct tm *
-_gmtime64(const __time64_t * ptime)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-
-    /* Validate parameters */
-    if (!ptime || *ptime < 0)
-    {
-        return NULL;
-    }
-
-    if(!data->time_buffer)
-        data->time_buffer = malloc(sizeof(struct tm));
-
-    /* Use _gmtime_worker to do the real work */
-    return _gmtime_worker(data->time_buffer, *ptime, 0);
-}
-
-errno_t
-_gmtime64_s(
-   struct tm* ptm,
-   const __time64_t* ptime)
-{
-    __time64_t time;
-
-    if (!ptm)
-    {
-        MSVCRT_INVALID_PMT("ptm == NULL", ERROR_BAD_COMMAND);
-        return ERROR_BAD_COMMAND;
-    }
-
-    if (!ptime)
-    {
-        MSVCRT_INVALID_PMT("ptime == NULL", ERROR_BAD_COMMAND);
-        return ERROR_BAD_COMMAND;
-    }
-
-    time = *ptime;
-
-    _gmtime_worker(ptm, time, 0);
-
-    return ERROR_SUCCESS;
-}
-
-/******************************************************************************
- * \name _gmtime32
- * \brief
- * \param ptime Pointer to a variable of type __time32_t containing the time.
- */
-struct tm *
-_gmtime32(const __time32_t * ptime)
-{
-    __time64_t time64;
-
-    if (!ptime)
-        return NULL;
-    time64 = *ptime;
-    return _gmtime64(&time64);
-}
-
-errno_t
-_gmtime32_s(
-   struct tm* ptm,
-   const __time32_t* ptime)
-{
-    __time64_t time = *ptime;
-    if (!ptm)
-    {
-        MSVCRT_INVALID_PMT("ptm == NULL", ERROR_BAD_COMMAND);
-        return ERROR_BAD_COMMAND;
-    }
-
-    if (!ptime)
-    {
-        MSVCRT_INVALID_PMT("ptime == NULL", ERROR_BAD_COMMAND);
-        return ERROR_BAD_COMMAND;
-    }
-
-    _gmtime_worker(ptm, time, 0);
-
-    return ERROR_SUCCESS;
-}
-
-/******************************************************************************
- * \name gmtime
- * \brief
- * \param ptime Pointer to a variable of type time_t containing the time.
- */
-struct tm *
-gmtime(const time_t * ptime)
-{
-    __time64_t time64;
-
-    if (!ptime)
-        return NULL;
-    time64 = *ptime;
-    return _gmtime64(&time64);
-}

sdk/lib/crt/time/localtime.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/localtime.c
- * PURPOSE:     Implementation of localtime, localtime_s
- * PROGRAMERS:  Timo Kreuzer
- *              Samuel Serapi�n
- */
-#include <precomp.h>
-#include <time.h>
-#include "bitsfixup.h"
-
-//fix me: header?
-#define _MAX__TIME64_T     0x793406fffLL     /* number of seconds from
-                                                 00:00:00, 01/01/1970 UTC to
-                                                 23:59:59. 12/31/3000 UTC */
-
-errno_t
-localtime_s(struct tm* _tm, const time_t *ptime)
-{
-    /* check for NULL */
-    if (!_tm || !ptime )
-    {
-        if(_tm) memset(_tm, 0xFF, sizeof(struct tm));
-        _invalid_parameter(NULL,
-                           0,//__FUNCTION__,
-                           _CRT_WIDE(__FILE__),
-                           __LINE__,
-                           0);
-        _set_errno(EINVAL);
-        return EINVAL;
-    }
-
-    /* Validate input */
-    if (*ptime < 0 || *ptime > _MAX__TIME64_T)
-    {
-        memset(_tm, 0xFF, sizeof(struct tm));
-        _set_errno(EINVAL);
-        return EINVAL;
-    }
-
-    _tm = localtime(ptime);
-    return 0;
-}
-
-extern char _tz_is_set;
-
-struct tm *
-localtime(const time_t *ptime)
-{
-    time_t time = *ptime;
-    struct tm * ptm;
-
-    /* Check for invalid time value */
-    if (time < 0)
-    {
-        return 0;
-    }
-
-    /* Never without */
-    if (!_tz_is_set)
-        _tzset();
-
-    /* Check for overflow */
-
-    /* Correct for timezone */
-    time -= _timezone;
-#if 0
-    /* Correct for daylight saving */
-    if (_isdstime(time))
-    {
-        ptm->tm_isdst = 1;
-        time -= _dstbias;
-    }
-#endif
-    ptm = gmtime(&time);
-
-    return ptm;
-}
-

sdk/lib/crt/time/localtime32.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/localtime32.c
- * PURPOSE:     Implementation of _localtime32
- * PROGRAMERS:  Timo Kreuzer
- */
-#define _USE_EXPLICIT_32BIT_TIME
-#include "localtime.c"

sdk/lib/crt/time/localtime64.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/localtime64.c
- * PURPOSE:     Implementation of _localtime64
- * PROGRAMERS:  Timo Kreuzer
- */
-#define _USE_EXPLICIT_64BIT_TIME
-#include "localtime.c"

sdk/lib/crt/time/mktime.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/mktime.c
- * PURPOSE:     Implementation of mktime, _mkgmtime
- * PROGRAMERS:  Timo Kreuzer
- */
-#include <precomp.h>
-#include "bitsfixup.h"
-
-#define MAX_32BIT_TIME 0xFFFFFFFFULL
-
-static int g_monthdays[13] = {0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365};
-
-__time64_t
-mktime_worker(struct tm * ptm, int utc)
-{
-    struct tm *ptm2;
-    __time64_t time;
-    int mons, years, leapyears;
-    TIME_ZONE_INFORMATION tzi;
-    DWORD ret;
-
-    /* Normalize year and month */
-    if (ptm->tm_mon < 0)
-    {
-        mons = -ptm->tm_mon - 1;
-        ptm->tm_year -= 1 + mons / 12;
-        ptm->tm_mon = 11 - (mons % 12);
-    }
-    else if (ptm->tm_mon > 11)
-    {
-        mons = ptm->tm_mon;
-        ptm->tm_year += (mons / 12);
-        ptm->tm_mon = mons % 12;
-    }
-
-    /* Is it inside margins */
-    if (ptm->tm_year < 70 || ptm->tm_year > 139) // FIXME: max year for 64 bits
-    {
-        return -1;
-    }
-
-    years = ptm->tm_year - 70;
-
-    /* Number of leapyears passed since 1970 */
-    leapyears = (years + 1) / 4;
-
-    /* Calculate days up to 1st of Jan */
-    time = years * 365 + leapyears;
-
-    /* Calculate days up to 1st of month */
-    time += g_monthdays[ptm->tm_mon];
-
-    /* Check if we need to add a leap day */
-    if (((years + 2) % 4) == 0)
-    {
-        if (ptm->tm_mon > 2)
-        {
-            time++;
-        }
-    }
-
-    time += ptm->tm_mday - 1;
-
-    time *= 24;
-    time += ptm->tm_hour;
-
-    time *= 60;
-    time += ptm->tm_min;
-
-    time *= 60;
-    time += ptm->tm_sec;
-
-    if (time < 0)
-    {
-        return -1;
-    }
-
-    /* Finally get normalized tm struct */
-    ptm2 = _gmtime64(&time);
-    if (!ptm2)
-    {
-        return -1;
-    }
-    *ptm = *ptm2;
-
-    /* Finally adjust by the difference to GMT in seconds */
-    ret = GetTimeZoneInformation(&tzi);
-    if (ret != TIME_ZONE_ID_INVALID)
-    {
-        time += tzi.Bias * 60;
-    }
-
-    return time;
-}
-
-/*    int tm_sec;
-    int tm_min;
-    int tm_hour;
-    int tm_mday;
-    int tm_mon;
-    int tm_year;
-    int tm_wday;
-    int tm_yday;
-    int tm_isdst;
-*/
-
-/**
- * \name _mkgmtime
- *
- */
-time_t
-_mkgmtime(struct tm *ptm)
-{
-    __time64_t time = mktime_worker(ptm, 1);
-    return (time_t)((time > MAX_32BIT_TIME) ? -1 : time);
-}
-
-time_t
-mktime(struct tm *ptm)
-{
-    __time64_t time = mktime_worker(ptm, 0);
-    return (time_t)((time > MAX_32BIT_TIME) ? -1 : time);
-}
-
-__time32_t
-_mkgmtime32(struct tm *ptm)
-{
-    __time64_t time = mktime_worker(ptm, 1);
-    return (__time32_t)((time > MAX_32BIT_TIME) ? -1 : time);
-}
-
-__time32_t
-_mktime32(struct tm *ptm)
-{
-    __time64_t time = mktime_worker(ptm, 0);
-    return (__time32_t)((time > MAX_32BIT_TIME) ? -1 : time);
-}
-
-__time64_t
-_mkgmtime64(struct tm *ptm)
-{
-    return mktime_worker(ptm, 1);
-}
-
-__time64_t
-_mktime64(struct tm *ptm)
-{
-    return mktime_worker(ptm, 0);
-}

sdk/lib/crt/time/strdate.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/strdate.c
- * PURPOSE:     Fills a buffer with a formatted date representation
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              28/12/98: Created
- */
-#include <precomp.h>
-
-/*
- * @implemented
- */
-char* _strdate(char* date)
-{
-   static const char format[] = "MM'/'dd'/'yy";
-
-   GetDateFormatA(LOCALE_NEUTRAL, 0, NULL, format, date, 9);
-
-   return date;
-
-}
-
-/*
- * @implemented
- */
-int CDECL _strdate_s(char* date, size_t size)
-{
-    if(date && size)
-        date[0] = '\0';
-
-    if(!date) {
-        *_errno() = EINVAL;
-        return EINVAL;
-    }
-
-    if(size < 9) {
-        *_errno() = ERANGE;
-        return ERANGE;
-    }
-
-    _strdate(date);
-    return 0;
-}

sdk/lib/crt/time/strftime.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/strftime.c
- * PURPOSE:
- * PROGRAMER:
- */
-#include <precomp.h>
-
-static inline BOOL strftime_date(char *str, size_t *pos, size_t max,
-        BOOL alternate, const struct tm *mstm, MSVCRT___lc_time_data *time_data)
-{
-    char *format;
-    SYSTEMTIME st;
-    size_t ret;
-
-    st.wYear = mstm->tm_year + 1900;
-    st.wMonth = mstm->tm_mon + 1;
-    st.wDayOfWeek = mstm->tm_wday;
-    st.wDay = mstm->tm_mday;
-    st.wHour = mstm->tm_hour;
-    st.wMinute = mstm->tm_min;
-    st.wSecond = mstm->tm_sec;
-    st.wMilliseconds = 0;
-
-    format = alternate ? time_data->str.names.date : time_data->str.names.short_date;
-    ret = GetDateFormatA(time_data->lcid, 0, &st, format, NULL, 0);
-    if(ret && ret<max-*pos)
-        ret = GetDateFormatA(time_data->lcid, 0, &st, format, str+*pos, max-*pos);
-    if(!ret) {
-        *str = 0;
-        *_errno() = EINVAL;
-        return FALSE;
-    }else if(ret > max-*pos) {
-        *str = 0;
-        *_errno() = ERANGE;
-        return FALSE;
-    }
-    *pos += ret-1;
-    return TRUE;
-}
-
-static inline BOOL strftime_time(char *str, size_t *pos, size_t max,
-        const struct tm *mstm, MSVCRT___lc_time_data *time_data)
-{
-    SYSTEMTIME st;
-    size_t ret;
-
-    st.wYear = mstm->tm_year + 1900;
-    st.wMonth = mstm->tm_mon + 1;
-    st.wDayOfWeek = mstm->tm_wday;
-    st.wDay = mstm->tm_mday;
-    st.wHour = mstm->tm_hour;
-    st.wMinute = mstm->tm_min;
-    st.wSecond = mstm->tm_sec;
-    st.wMilliseconds = 0;
-
-    ret = GetTimeFormatA(time_data->lcid, 0, &st, time_data->str.names.time, NULL, 0);
-    if(ret && ret<max-*pos)
-        ret = GetTimeFormatA(time_data->lcid, 0, &st, time_data->str.names.time,
-                str+*pos, max-*pos);
-    if(!ret) {
-        *str = 0;
-        *_errno() = EINVAL;
-        return FALSE;
-    }else if(ret > max-*pos) {
-        *str = 0;
-        *_errno() = ERANGE;
-        return FALSE;
-    }
-    *pos += ret-1;
-    return TRUE;
-}
-
-static inline BOOL strftime_str(char *str, size_t *pos, size_t max, char *src)
-{
-    size_t len = strlen(src);
-    if(len > max-*pos) {
-        *str = 0;
-        *_errno() = ERANGE;
-        return FALSE;
-    }
-
-    memcpy(str+*pos, src, len);
-    *pos += len;
-    return TRUE;
-}
-
-static inline BOOL strftime_int(char *str, size_t *pos, size_t max,
-        int src, int prec, int l, int h)
-{
-    size_t len;
-
-    if(src<l || src>h) {
-        *str = 0;
-        *_errno() = EINVAL;
-        return FALSE;
-    }
-
-    len = _snprintf(str+*pos, max-*pos, "%0*d", prec, src);
-    if(len == -1) {
-        *str = 0;
-        *_errno() = ERANGE;
-        return FALSE;
-    }
-
-    *pos += len;
-    return TRUE;
-}
-
-/*********************************************************************
- *		_Strftime (MSVCRT.@)
- */
-size_t CDECL _Strftime(char *str, size_t max, const char *format,
-        const struct tm *mstm, void *_Lc_time_arg)
-{
-    MSVCRT___lc_time_data *time_data = (MSVCRT___lc_time_data*)_Lc_time_arg;
-    size_t ret, tmp;
-    BOOL alternate;
-
-    TRACE("(%p %ld %s %p %p)\n", str, max, format, mstm, time_data);
-
-    if(!str || !format) {
-        if(str && max)
-            *str = 0;
-        *_errno() = EINVAL;
-        return 0;
-    }
-
-    if(!time_data)
-        time_data = get_locinfo()->lc_time_curr;
-
-    for(ret=0; *format && ret<max; format++) {
-        if(*format != '%') {
-            str[ret++] = *format;
-            continue;
-        }
-
-        format++;
-        if(*format == '#') {
-            alternate = TRUE;
-            format++;
-        }else {
-            alternate = FALSE;
-        }
-
-        if(!mstm)
-            goto einval_error;
-
-        switch(*format) {
-        case 'c':
-            if(!strftime_date(str, &ret, max, alternate, mstm, time_data))
-                return 0;
-            if(ret < max)
-                str[ret++] = ' ';
-            if(!strftime_time(str, &ret, max, mstm, time_data))
-                return 0;
-            break;
-        case 'x':
-            if(!strftime_date(str, &ret, max, alternate, mstm, time_data))
-                return 0;
-            break;
-        case 'X':
-            if(!strftime_time(str, &ret, max, mstm, time_data))
-                return 0;
-            break;
-        case 'a':
-            if(mstm->tm_wday<0 || mstm->tm_wday>6)
-                goto einval_error;
-            if(!strftime_str(str, &ret, max, time_data->str.names.short_wday[mstm->tm_wday]))
-                return 0;
-            break;
-        case 'A':
-            if(mstm->tm_wday<0 || mstm->tm_wday>6)
-                goto einval_error;
-            if(!strftime_str(str, &ret, max, time_data->str.names.wday[mstm->tm_wday]))
-                return 0;
-            break;
-        case 'b':
-            if(mstm->tm_mon<0 || mstm->tm_mon>11)
-                goto einval_error;
-            if(!strftime_str(str, &ret, max, time_data->str.names.short_mon[mstm->tm_mon]))
-                return 0;
-            break;
-        case 'B':
-            if(mstm->tm_mon<0 || mstm->tm_mon>11)
-                goto einval_error;
-            if(!strftime_str(str, &ret, max, time_data->str.names.mon[mstm->tm_mon]))
-                return 0;
-            break;
-        case 'd':
-            if(!strftime_int(str, &ret, max, mstm->tm_mday, alternate ? 0 : 2, 0, 31))
-                return 0;
-            break;
-        case 'H':
-            if(!strftime_int(str, &ret, max, mstm->tm_hour, alternate ? 0 : 2, 0, 23))
-                return 0;
-            break;
-        case 'I':
-            tmp = mstm->tm_hour;
-            if(tmp > 12)
-                tmp -= 12;
-            else if(!tmp)
-                tmp = 12;
-            if(!strftime_int(str, &ret, max, tmp, alternate ? 0 : 2, 1, 12))
-                return 0;
-            break;
-        case 'j':
-            if(!strftime_int(str, &ret, max, mstm->tm_yday+1, alternate ? 0 : 3, 1, 366))
-                return 0;
-            break;
-        case 'm':
-            if(!strftime_int(str, &ret, max, mstm->tm_mon+1, alternate ? 0 : 2, 1, 12))
-                return 0;
-            break;
-        case 'M':
-            if(!strftime_int(str, &ret, max, mstm->tm_min, alternate ? 0 : 2, 0, 59))
-                return 0;
-            break;
-        case 'p':
-            if(mstm->tm_hour<0 || mstm->tm_hour>23)
-                goto einval_error;
-            if(!strftime_str(str, &ret, max, mstm->tm_hour<12 ?
-                        time_data->str.names.am : time_data->str.names.pm))
-                return 0;
-            break;
-        case 'S':
-            if(!strftime_int(str, &ret, max, mstm->tm_sec, alternate ? 0 : 2, 0, 59))
-                return 0;
-            break;
-        case 'w':
-            if(!strftime_int(str, &ret, max, mstm->tm_wday, 0, 0, 6))
-                return 0;
-            break;
-        case 'y':
-            if(!strftime_int(str, &ret, max, mstm->tm_year%100, alternate ? 0 : 2, 0, 99))
-                return 0;
-            break;
-        case 'Y':
-            tmp = 1900+mstm->tm_year;
-            if(!strftime_int(str, &ret, max, tmp, alternate ? 0 : 4, 0, 9999))
-                return 0;
-            break;
-        case 'z':
-        case 'Z':
-            _tzset();
-            if(_get_tzname(&tmp, str+ret, max-ret, mstm->tm_isdst ? 1 : 0))
-                return 0;
-            ret += tmp;
-            break;
-        case 'U':
-        case 'W':
-            if(mstm->tm_wday<0 || mstm->tm_wday>6 || mstm->tm_yday<0 || mstm->tm_yday>365)
-                goto einval_error;
-            if(*format == 'U')
-                tmp = mstm->tm_wday;
-            else if(!mstm->tm_wday)
-                tmp = 6;
-            else
-                tmp = mstm->tm_wday-1;
-
-            tmp = mstm->tm_yday/7 + (tmp <= ((unsigned)mstm->tm_yday%7));
-            if(!strftime_int(str, &ret, max, tmp, alternate ? 0 : 2, 0, 53))
-                return 0;
-            break;
-        case '%':
-            str[ret++] = '%';
-            break;
-        default:
-            WARN("unknown format %c\n", *format);
-            goto einval_error;
-        }
-    }
-
-    if(ret == max) {
-        if(max)
-            *str = 0;
-        *_errno() = ERANGE;
-        return 0;
-    }
-
-    str[ret] = 0;
-    return ret;
-
-einval_error:
-    *str = 0;
-    *_errno() = EINVAL;
-    return 0;
-}
-
-/*********************************************************************
- *		strftime (MSVCRT.@)
- */
-size_t CDECL strftime( char *str, size_t max, const char *format,
-                                     const struct tm *mstm )
-{
-    return _Strftime(str, max, format, mstm, NULL);
-}
-
-/*********************************************************************
- *		wcsftime (MSVCRT.@)
- */
-size_t CDECL wcsftime( wchar_t *str, size_t max,
-                                     const wchar_t *format, const struct tm *mstm )
-{
-    char *s, *fmt;
-    size_t len;
-
-    TRACE("%p %ld %s %p\n", str, max, debugstr_w(format), mstm );
-
-    len = WideCharToMultiByte( CP_ACP, 0, format, -1, NULL, 0, NULL, NULL );
-    if (!(fmt = malloc( len ))) return 0;
-    WideCharToMultiByte( CP_ACP, 0, format, -1, fmt, len, NULL, NULL );
-
-    if ((s = malloc( max*4 )))
-    {
-        if (!strftime( s, max*4, fmt, mstm )) s[0] = 0;
-        len = MultiByteToWideChar( CP_ACP, 0, s, -1, str, max );
-        if (len) len--;
-        free( s );
-    }
-    else len = 0;
-
-    free( fmt );
-    return len;
-}

sdk/lib/crt/time/strtime.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/time/strtime.c
- * PURPOSE:     Fills a buffer with a formatted time representation
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              28/12/98: Created
- */
-#include <precomp.h>
-
-/*
- * @implemented
- */
-char* _strtime(char* time)
-{
-   static const char format[] = "HH':'mm':'ss";
-
-   GetTimeFormatA(LOCALE_NEUTRAL, 0, NULL, format, time, 9);
-
-   return time;
-}
-
-int CDECL _strtime_s(char* time, size_t size)
-{
-    if(time && size)
-        time[0] = '\0';
-
-    if(!time) {
-        *_errno() = EINVAL;
-        return EINVAL;
-    }
-
-    if(size < 9) {
-        *_errno() = ERANGE;
-        return ERANGE;
-    }
-
-    _strtime(time);
-    return 0;
-}

sdk/lib/crt/time/time.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/time/time.c
- * PURPOSE:     Implementation of _time (_time32, _time64)
- * PROGRAMER:   Timo Kreuzer
- */
-#include <precomp.h>
-#include <time.h>
-#include "bitsfixup.h"
-
-time_t _time(time_t* ptime)
-{
-    FILETIME SystemTime;
-    time_t time = 0;
-
-    GetSystemTimeAsFileTime(&SystemTime);
-    time = (time_t)FileTimeToUnixTime(&SystemTime, NULL);
-
-    if (ptime)
-    {
-        *ptime = time;
-    }
-    return time;
-}

sdk/lib/crt/time/time.cmake

···
-
-list(APPEND CRT_TIME_SOURCE
-    time/asctime.c
-    time/clock.c
-    time/ctime32.c
-    time/ctime64.c
-    time/ctime.c
-    time/difftime32.c
-    time/difftime64.c
-    time/difftime.c
-    time/ftime32.c
-    time/ftime64.c
-    time/ftime.c
-    time/futime32.c
-    time/futime64.c
-    time/futime.c
-    time/gmtime.c
-    time/localtime32.c
-    time/localtime64.c
-    time/localtime.c
-    time/mktime.c
-    time/strdate.c
-    time/strftime.c
-    time/strtime.c
-    time/time32.c
-    time/time64.c
-    time/time.c
-    time/timezone.c
-    time/utime32.c
-    time/utime64.c
-    time/utime.c
-    time/wasctime.c
-    time/wctime32.c
-    time/wctime64.c
-    time/wctime.c
-    time/wstrdate.c
-    time/wstrtime.c
-    time/wutime32.c
-    time/wutime64.c
-    time/wutime.c
-)

sdk/lib/crt/time/time32.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/time32.c
- * PURPOSE:
- * PROGRAMER:
- */
-
-#define _USE_EXPLICIT_32BIT_TIME
-#include "time.c"

sdk/lib/crt/time/time64.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/time64.c
- * PURPOSE:
- * PROGRAMER:
- */
-
-#define _USE_EXPLICIT_64BIT_TIME
-#include "time.c"

sdk/lib/crt/time/timezone.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/timezone.c
- * PURPOSE:     Implementation of time zone functions
- * PROGRAMERS:  Timo Kreuzer
- */
-#include "precomp.h"
-
-char _tz_is_set = 0;
-
-/* buffers must hold 64 characters! */
-static char tz_name[64] = "PST";
-static char tz_dst_name[64] = "PDT";
-
-long dst_begin = 0;
-long dst_end = 0;
-
-/******************************************************************************
- * \var _tzname
- */
-char * _tzname[2] = {
-  tz_name,
-  tz_dst_name,
-};
-
-/******************************************************************************
- * \var _daylight
- */
-int _daylight = 0;
-
-/******************************************************************************
- * \name __p__daylight
- * \brief Returns a pointer to the _daylight variable;
- */
-void *
-__p__daylight(void)
-{
-   return &_daylight;
-}
-
-/******************************************************************************
- * \var _timezone
- * \brief
- */
-long _timezone = 28800;
-
-/******************************************************************************
- * \name __p__timezone
- * \brief Returns a pointer to the _timezone variable;
- */
-long *
-__p__timezone(void)
-{
-   return &_timezone;
-}
-
-/******************************************************************************
- * \var _dstbias
- * \brief
- */
-long _dstbias = 0;
-
-/******************************************************************************
- * \name __p__dstbias
- * \brief Returns a pointer to the _dstbias variable;
- */
-long *
-__p__dstbias(void)
-{
-    return &_dstbias;
-}
-
-/******************************************************************************
- * \name __p__tzname
- * \brief Returns a pointer to the _tzname buffer;
- */
-char **
-__p__tzname(void)
-{
-    return _tzname;
-}
-
-/******************************************************************************
- * \name _tzset
- * \brief Initializes the variables _daylight, _timezone, and _tzname from the
- *        "TZ" environment variable if available or else by calling
- *        GetTimeZoneInformation.
- * \sa https://learn.microsoft.com/en-us/cpp/c-runtime-library/reference/tzset?view=msvc-170
- */
-void
-_tzset(void)
-{
-    const char * str;
-
-    if (_tz_is_set)
-    {
-        return;
-    }
-
-    /* Try to read the timezone from environment */
-    str = getenv("TZ");
-    if (str && str[0] != 0)
-    {
-        long hour = 0, min = 0, sec = 0;
-        size_t len = strnlen(str, 16);
-        int sign = 1;
-
-        dst_begin = 0;
-
-        for (;;)
-        {
-            /* Copy timezone name */
-            strncpy(tz_name, str, 3);
-            str += 3;
-            len -= 3;
-
-            if (len < 1) break;
-
-            if (*str == '+' || *str == '-')
-            {
-                sign = *str == '-' ? -1 : 1;
-                str++;
-                len--;
-            }
-
-            if (len < 1) break;
-
-            hour = atol(str);
-
-            while (*str != 0 && *str != ':') str++;
-            if (*str == 0) break;
-
-            min = atol(++str);
-
-            while (*str != 0 && *str != ':') str++;
-            if (*str == 0) break;
-
-            sec = atol(++str);
-
-            while (*str != 0 && *str <= '9') str++;
-            if (*str == 0) break;
-
-            /* Copy DST name */
-            strncpy(tz_dst_name, str, 3);
-
-            // FIXME: set dst_begin etc
-
-            /* We are finished */
-            break;
-        }
-
-        _timezone = sign * (((hour * 60) + min) * 60 + sec);
-
-    }
-    else
-    {
-        TIME_ZONE_INFORMATION tzi;
-        DWORD ret;
-
-        ret = GetTimeZoneInformation(&tzi);
-        if (ret == TIME_ZONE_ID_INVALID)
-        {
-            return;
-        }
-
-        ret = WideCharToMultiByte(CP_ACP,
-                                  0,
-                                  tzi.StandardName,
-                                  -1,
-                                  tz_name,
-                                  sizeof(tz_name),
-                                  NULL,
-                                  NULL);
-
-        ret = WideCharToMultiByte(CP_ACP,
-                                  0,
-                                  tzi.DaylightName,
-                                  -1,
-                                  tz_dst_name,
-                                  sizeof(tz_dst_name),
-                                  NULL,
-                                  NULL);
-
-        _timezone = tzi.Bias * 60;
-
-        if (tzi.DaylightDate.wMonth)
-        {
-            struct tm _tm;
-
-            _daylight = 1;
-            _dstbias = (tzi.DaylightBias - tzi.StandardBias) * 60;
-            _tm.tm_year = 70;
-            _tm.tm_mon = tzi.DaylightDate.wMonth - 1;
-            _tm.tm_mday = tzi.DaylightDate.wDay;
-            _tm.tm_hour = tzi.DaylightDate.wHour;
-            _tm.tm_min = tzi.DaylightDate.wMinute;
-            _tm.tm_sec = tzi.DaylightDate.wSecond;
-            dst_begin = (long)_mkgmtime(&_tm);
-            _tm.tm_mon = tzi.StandardDate.wMonth - 1;
-            _tm.tm_mday = tzi.StandardDate.wDay;
-            _tm.tm_hour = tzi.StandardDate.wHour;
-            _tm.tm_min = tzi.StandardDate.wMinute;
-            _tm.tm_sec = tzi.StandardDate.wSecond;
-            dst_end = (long)_mkgmtime(&_tm);
-        }
-        else
-        {
-            _daylight = 0;
-            _dstbias = 0;
-        }
-
-    }
-    _tz_is_set = 1;
-}
-
-/*********************************************************************
- *		_get_tzname (MSVCRT.@)
- */
-int CDECL _get_tzname(size_t *ret, char *buf, size_t bufsize, int index)
-{
-    char *str_timezone;
-
-    switch (index)
-    {
-    case 0:
-        str_timezone = tz_name;
-        break;
-
-    case 1:
-        str_timezone = tz_dst_name;
-        break;
-
-    default:
-        *_errno() = EINVAL;
-        return EINVAL;
-    }
-
-    if (!ret || (!buf && (bufsize > 0)) || (buf && !bufsize))
-    {
-        *_errno() = EINVAL;
-        return EINVAL;
-    }
-
-    *ret = strlen(str_timezone) + 1;
-    if(!buf && !bufsize)
-        return 0;
-
-    strncpy(buf, str_timezone, bufsize);
-    return 0;
-}

sdk/lib/crt/time/utime.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/utime.c
- * PURPOSE:     Implementation of utime, _wutime
- * PROGRAMERS:  Wine team
- */
-
-/*
- * msvcrt.dll file functions
- *
- * Copyright 1996,1998 Marcus Meissner
- * Copyright 1996 Jukka Iivonen
- * Copyright 1997,2000 Uwe Bonnes
- * Copyright 2000 Jon Griffiths
- * Copyright 2004 Eric Pouech
- * Copyright 2004 Juan Lang
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- *
- * TODO
- * Use the file flag hints O_SEQUENTIAL, O_RANDOM, O_SHORT_LIVED
- */
-
-#include <precomp.h>
-#include <tchar.h>
-#define RC_INVOKED 1 // to prevent inline functions
-#include <sys/utime.h>
-#include "bitsfixup.h"
-
-int
-_tutime(const _TCHAR* path, struct _utimbuf *t)
-{
-    int fd = _topen(path, _O_WRONLY | _O_BINARY);
-
-    if (fd > 0)
-    {
-        int retVal = _futime(fd, t);
-        _close(fd);
-        return retVal;
-    }
-    return -1;
-}

sdk/lib/crt/time/utime32.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/utime32.c
- * PURPOSE:     Implementation of _utime32
- * PROGRAMERS:  Timo Kreuzer
- */
-
-#define _USE_EXPLICIT_32BIT_TIME
-#include "utime.c"

sdk/lib/crt/time/utime64.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/utime64.c
- * PURPOSE:     Implementation of _utime64
- * PROGRAMERS:  Timo Kreuzer
- */
-#define _USE_EXPLICIT_64BIT_TIME
-#include "utime.c"

sdk/lib/crt/time/wasctime.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/wasctime.c
- * PURPOSE:     Implementation of _wasctime
- * PROGRAMERS:  Timo Kreuzer
- */
-#define UNICODE
-#define _UNICODE
-
-#include "asctime.c"

sdk/lib/crt/time/wcsftime.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/wcsftime.c
- * PURPOSE:     Implementation of _wcsftime
- * PROGRAMERS:  Timo Kreuzer
- */
-#define UNICODE
-#define _UNICODE
-
-#include "strftime.c"

sdk/lib/crt/time/wctime.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/wctime.c
- * PURPOSE:     Implementation of _wctime
- * PROGRAMERS:  Timo Kreuzer
- */
-#define UNICODE
-#define _UNICODE
-
-#include "ctime.c"

sdk/lib/crt/time/wctime32.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/wctime32.c
- * PURPOSE:     Implementation of _wctime32
- * PROGRAMERS:  Timo Kreuzer
- */
-#define UNICODE
-#define _UNICODE
-
-#define _USE_EXPLICIT_32BIT_TIME
-#include "ctime.c"

sdk/lib/crt/time/wctime64.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/wctime64.c
- * PURPOSE:     Implementation of _Wctime64
- * PROGRAMERS:  Timo Kreuzer
- */
-#define UNICODE
-#define _UNICODE
-
-#define _USE_EXPLICIT_64BIT_TIME
-#include "ctime.c"

sdk/lib/crt/time/wstrdate.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/wstrdate.c
- * PURPOSE:     Fills a buffer with a formatted date representation
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              28/12/98: Created
- */
-#include <precomp.h>
-
-/*
- * @implemented
- */
-wchar_t* _wstrdate(wchar_t* date)
-{
-   static const WCHAR format[] = { 'M','M','\'','/','\'','d','d','\'','/','\'','y','y',0 };
-
-   GetDateFormatW(LOCALE_NEUTRAL, 0, NULL, format, (LPWSTR)date, 9);
-
-   return date;
-
-}
-
-int CDECL _wstrdate_s(wchar_t* date, size_t size)
-{
-    if(date && size)
-        date[0] = '\0';
-
-    if(!date) {
-        *_errno() = EINVAL;
-        return EINVAL;
-    }
-
-    if(size < 9) {
-        *_errno() = ERANGE;
-        return ERANGE;
-    }
-
-    _wstrdate(date);
-    return 0;
-}

sdk/lib/crt/time/wstrtime.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/wstrtime.c
- * PURPOSE:     Fills a buffer with a formatted time representation
- * PROGRAMER:   Ariadne
- * UPDATE HISTORY:
- *              28/12/98: Created
- */
-#include <precomp.h>
-
-/*
- * @implemented
- */
-wchar_t* _wstrtime(wchar_t* time)
-{
-   static const WCHAR format[] = { 'H','H','\'',':','\'','m','m','\'',':','\'','s','s',0 };
-
-   GetTimeFormatW(LOCALE_NEUTRAL, 0, NULL, format, (LPWSTR)time, 9);
-
-   return time;
-}

sdk/lib/crt/time/wutime.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/wutime.c
- * PURPOSE:     Implementation of _wutime
- * PROGRAMERS:  Timo Kreuzer
- */
-#define UNICODE
-#define _UNICODE
-
-#include "utime.c"

sdk/lib/crt/time/wutime32.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/wutime32.c
- * PURPOSE:     Implementation of _wutime32
- * PROGRAMERS:  Timo Kreuzer
- */
-#define UNICODE
-#define _UNICODE
-
-#define _USE_EXPLICIT_32BIT_TIME
-#include "utime.c"

sdk/lib/crt/time/wutime64.c

···
-/*
- * COPYRIGHT:   LGPL, See LGPL.txt in the top level directory
- * PROJECT:     ReactOS CRT library
- * FILE:        lib/sdk/crt/time/wutime64.c
- * PURPOSE:     Implementation of _wutime64
- * PROGRAMERS:  Timo Kreuzer
- */
-#define UNICODE
-#define _UNICODE
-
-#define _USE_EXPLICIT_64BIT_TIME
-#include "utime.c"

sdk/lib/crt/wine/cpp.c

···
-/*
- * msvcrt.dll C++ objects
- *
- * Copyright 2000 Jon Griffiths
- * Copyright 2003, 2004 Alexandre Julliard
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-#include <stdarg.h>
-#include <stdbool.h>
-
-#include "windef.h"
-#include "winternl.h"
-#include "wine/exception.h"
-#include "wine/debug.h"
-#include "msvcrt.h"
-#include "mtdll.h"
-#include "cxx.h"
-
-WINE_DEFAULT_DEBUG_CHANNEL(msvcrt);
-
-CREATE_TYPE_INFO_VTABLE
-CREATE_EXCEPTION_OBJECT(exception)
-
-struct __type_info_node
-{
-    void *memPtr;
-    struct __type_info_node* next;
-};
-
-typedef exception bad_cast;
-typedef exception bad_typeid;
-typedef exception __non_rtti_object;
-
-extern const vtable_ptr bad_typeid_vtable;
-extern const vtable_ptr bad_cast_vtable;
-extern const vtable_ptr __non_rtti_object_vtable;
-extern const vtable_ptr type_info_vtable;
-
-/* get the vtable pointer for a C++ object */
-static inline const vtable_ptr *get_vtable( void *obj )
-{
-    return *(const vtable_ptr **)obj;
-}
-
-static inline const rtti_object_locator *get_obj_locator( void *cppobj )
-{
-    const vtable_ptr *vtable = get_vtable( cppobj );
-    return (const rtti_object_locator *)vtable[-1];
-}
-
-#ifndef __x86_64__
-static void dump_obj_locator( const rtti_object_locator *ptr )
-{
-    int i;
-    const rtti_object_hierarchy *h = ptr->type_hierarchy;
-
-    TRACE( "%p: sig=%08x base_offset=%08x flags=%08x type=%p %s hierarchy=%p\n",
-           ptr, ptr->signature, ptr->base_class_offset, ptr->flags,
-           ptr->type_descriptor, dbgstr_type_info(ptr->type_descriptor), ptr->type_hierarchy );
-    TRACE( "  hierarchy: sig=%08x attr=%08x len=%d base classes=%p\n",
-           h->signature, h->attributes, h->array_len, h->base_classes );
-    for (i = 0; i < h->array_len; i++)
-    {
-        TRACE( "    base class %p: num %d off %d,%d,%d attr %08x type %p %s\n",
-               h->base_classes->bases[i],
-               h->base_classes->bases[i]->num_base_classes,
-               h->base_classes->bases[i]->offsets.this_offset,
-               h->base_classes->bases[i]->offsets.vbase_descr,
-               h->base_classes->bases[i]->offsets.vbase_offset,
-               h->base_classes->bases[i]->attributes,
-               h->base_classes->bases[i]->type_descriptor,
-               dbgstr_type_info(h->base_classes->bases[i]->type_descriptor) );
-    }
-}
-
-#else
-
-static void dump_obj_locator( const rtti_object_locator *ptr )
-{
-    int i;
-    char *base = ptr->signature == 0 ? RtlPcToFileHeader((void*)ptr, (void**)&base) : (char*)ptr - ptr->object_locator;
-    const rtti_object_hierarchy *h = (const rtti_object_hierarchy*)(base + ptr->type_hierarchy);
-    const type_info *type_descriptor = (const type_info*)(base + ptr->type_descriptor);
-
-    TRACE( "%p: sig=%08x base_offset=%08x flags=%08x type=%p %s hierarchy=%p\n",
-            ptr, ptr->signature, ptr->base_class_offset, ptr->flags,
-            type_descriptor, dbgstr_type_info(type_descriptor), h );
-    TRACE( "  hierarchy: sig=%08x attr=%08x len=%d base classes=%p\n",
-            h->signature, h->attributes, h->array_len, base + h->base_classes );
-    for (i = 0; i < h->array_len; i++)
-    {
-        const rtti_base_descriptor *bases = (rtti_base_descriptor*)(base +
-                ((const rtti_base_array*)(base + h->base_classes))->bases[i]);
-
-        TRACE( "    base class %p: num %d off %d,%d,%d attr %08x type %p %s\n",
-                bases,
-                bases->num_base_classes,
-                bases->offsets.this_offset,
-                bases->offsets.vbase_descr,
-                bases->offsets.vbase_offset,
-                bases->attributes,
-                base + bases->type_descriptor,
-                dbgstr_type_info((const type_info*)(base + bases->type_descriptor)) );
-    }
-}
-#endif
-
-#ifdef __REACTOS__
-#include <internal/wine_msc.h>
-#endif /* __REACTOS__ */
-
-/******************************************************************
- *		??0exception@@QAE@ABQBD@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(exception_ctor,8)
-exception * __thiscall exception_ctor(exception * _this, const char ** name)
-{
-  TRACE("(%p,%s)\n", _this, *name);
-  return __exception_ctor(_this, *name, &exception_vtable);
-}
-
-/******************************************************************
- *		??0exception@@QAE@ABQBDH@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(exception_ctor_noalloc,12)
-exception * __thiscall exception_ctor_noalloc(exception * _this, char ** name, int noalloc)
-{
-  TRACE("(%p,%s)\n", _this, *name);
-  _this->vtable = &exception_vtable;
-  _this->name = *name;
-  _this->do_free = FALSE;
-  return _this;
-}
-
-/******************************************************************
- *		??0exception@@QAE@XZ (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(exception_default_ctor,4)
-exception * __thiscall exception_default_ctor(exception * _this)
-{
-  TRACE("(%p)\n", _this);
-  return __exception_ctor(_this, NULL, &exception_vtable);
-}
-
-/******************************************************************
- *		??4exception@@QAEAAV0@ABV0@@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(exception_opequals,8)
-exception * __thiscall exception_opequals(exception * _this, const exception * rhs)
-{
-  TRACE("(%p %p)\n", _this, rhs);
-  if (_this != rhs)
-  {
-      exception_dtor(_this);
-      exception_copy_ctor(_this, rhs);
-  }
-  TRACE("name = %s\n", _this->name);
-  return _this;
-}
-
-/******************************************************************
- *		??_Gexception@@UAEPAXI@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(exception_scalar_dtor,8)
-void * __thiscall exception_scalar_dtor(exception * _this, unsigned int flags)
-{
-    TRACE("(%p %x)\n", _this, flags);
-    exception_dtor(_this);
-    if (flags & 1) operator_delete(_this);
-    return _this;
-}
-
-/******************************************************************
- *		??0bad_typeid@@QAE@ABV0@@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(bad_typeid_copy_ctor,8)
-bad_typeid * __thiscall bad_typeid_copy_ctor(bad_typeid * _this, const bad_typeid * rhs)
-{
-  TRACE("(%p %p)\n", _this, rhs);
-  return __exception_copy_ctor(_this, rhs, &bad_typeid_vtable);
-}
-
-/******************************************************************
- *		??0bad_typeid@@QAE@PBD@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(bad_typeid_ctor,8)
-bad_typeid * __thiscall bad_typeid_ctor(bad_typeid * _this, const char * name)
-{
-  TRACE("(%p %s)\n", _this, name);
-  return __exception_ctor(_this, name, &bad_typeid_vtable);
-}
-
-/******************************************************************
- *		??_Fbad_typeid@@QAEXXZ (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(bad_typeid_default_ctor,4)
-bad_typeid * __thiscall bad_typeid_default_ctor(bad_typeid * _this)
-{
-  return bad_typeid_ctor( _this, "bad typeid" );
-}
-
-/******************************************************************
- *		??1bad_typeid@@UAE@XZ (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(bad_typeid_dtor,4)
-void __thiscall bad_typeid_dtor(bad_typeid * _this)
-{
-  TRACE("(%p)\n", _this);
-  exception_dtor(_this);
-}
-
-/******************************************************************
- *		??4bad_typeid@@QAEAAV0@ABV0@@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(bad_typeid_opequals,8)
-bad_typeid * __thiscall bad_typeid_opequals(bad_typeid * _this, const bad_typeid * rhs)
-{
-  TRACE("(%p %p)\n", _this, rhs);
-  exception_opequals(_this, rhs);
-  return _this;
-}
-
-/******************************************************************
- *              ??_Ebad_typeid@@UAEPAXI@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(bad_typeid_vector_dtor,8)
-void * __thiscall bad_typeid_vector_dtor(bad_typeid * _this, unsigned int flags)
-{
-    TRACE("(%p %x)\n", _this, flags);
-    if (flags & 2)
-    {
-        /* we have an array, with the number of elements stored before the first object */
-        INT_PTR i, *ptr = (INT_PTR *)_this - 1;
-
-        for (i = *ptr - 1; i >= 0; i--) bad_typeid_dtor(_this + i);
-        operator_delete(ptr);
-    }
-    else
-    {
-        bad_typeid_dtor(_this);
-        if (flags & 1) operator_delete(_this);
-    }
-    return _this;
-}
-
-/******************************************************************
- *		??_Gbad_typeid@@UAEPAXI@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(bad_typeid_scalar_dtor,8)
-void * __thiscall bad_typeid_scalar_dtor(bad_typeid * _this, unsigned int flags)
-{
-    TRACE("(%p %x)\n", _this, flags);
-    bad_typeid_dtor(_this);
-    if (flags & 1) operator_delete(_this);
-    return _this;
-}
-
-/******************************************************************
- *		??0__non_rtti_object@@QAE@ABV0@@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(__non_rtti_object_copy_ctor,8)
-__non_rtti_object * __thiscall __non_rtti_object_copy_ctor(__non_rtti_object * _this,
-                                                                 const __non_rtti_object * rhs)
-{
-    TRACE("(%p %p)\n", _this, rhs);
-    return __exception_copy_ctor(_this, rhs, &__non_rtti_object_vtable);
-}
-
-/******************************************************************
- *		??0__non_rtti_object@@QAE@PBD@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(__non_rtti_object_ctor,8)
-__non_rtti_object * __thiscall __non_rtti_object_ctor(__non_rtti_object * _this,
-                                                            const char * name)
-{
-  TRACE("(%p %s)\n", _this, name);
-  return __exception_ctor(_this, name, &__non_rtti_object_vtable);
-}
-
-/******************************************************************
- *		??1__non_rtti_object@@UAE@XZ (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(__non_rtti_object_dtor,4)
-void __thiscall __non_rtti_object_dtor(__non_rtti_object * _this)
-{
-  TRACE("(%p)\n", _this);
-  bad_typeid_dtor(_this);
-}
-
-/******************************************************************
- *		??4__non_rtti_object@@QAEAAV0@ABV0@@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(__non_rtti_object_opequals,8)
-__non_rtti_object * __thiscall __non_rtti_object_opequals(__non_rtti_object * _this,
-                                                                const __non_rtti_object *rhs)
-{
-  TRACE("(%p %p)\n", _this, rhs);
-  bad_typeid_opequals(_this, rhs);
-  return _this;
-}
-
-/******************************************************************
- *		??_E__non_rtti_object@@UAEPAXI@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(__non_rtti_object_vector_dtor,8)
-void * __thiscall __non_rtti_object_vector_dtor(__non_rtti_object * _this, unsigned int flags)
-{
-    TRACE("(%p %x)\n", _this, flags);
-    if (flags & 2)
-    {
-        /* we have an array, with the number of elements stored before the first object */
-        INT_PTR i, *ptr = (INT_PTR *)_this - 1;
-
-        for (i = *ptr - 1; i >= 0; i--) __non_rtti_object_dtor(_this + i);
-        operator_delete(ptr);
-    }
-    else
-    {
-        __non_rtti_object_dtor(_this);
-        if (flags & 1) operator_delete(_this);
-    }
-    return _this;
-}
-
-/******************************************************************
- *		??_G__non_rtti_object@@UAEPAXI@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(__non_rtti_object_scalar_dtor,8)
-void * __thiscall __non_rtti_object_scalar_dtor(__non_rtti_object * _this, unsigned int flags)
-{
-  TRACE("(%p %x)\n", _this, flags);
-  __non_rtti_object_dtor(_this);
-  if (flags & 1) operator_delete(_this);
-  return _this;
-}
-
-/******************************************************************
- *		??0bad_cast@@AAE@PBQBD@Z (MSVCRT.@)
- *		??0bad_cast@@QAE@ABQBD@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(bad_cast_ctor,8)
-bad_cast * __thiscall bad_cast_ctor(bad_cast * _this, const char ** name)
-{
-  TRACE("(%p %s)\n", _this, *name);
-  return __exception_ctor(_this, *name, &bad_cast_vtable);
-}
-
-/******************************************************************
- *		??0bad_cast@@QAE@ABV0@@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(bad_cast_copy_ctor,8)
-bad_cast * __thiscall bad_cast_copy_ctor(bad_cast * _this, const bad_cast * rhs)
-{
-  TRACE("(%p %p)\n", _this, rhs);
-  return __exception_copy_ctor(_this, rhs, &bad_cast_vtable);
-}
-
-/******************************************************************
- *		??0bad_cast@@QAE@PBD@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(bad_cast_ctor_charptr,8)
-bad_cast * __thiscall bad_cast_ctor_charptr(bad_cast * _this, const char * name)
-{
-  TRACE("(%p %s)\n", _this, name);
-  return __exception_ctor(_this, name, &bad_cast_vtable);
-}
-
-/******************************************************************
- *		??_Fbad_cast@@QAEXXZ (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(bad_cast_default_ctor,4)
-bad_cast * __thiscall bad_cast_default_ctor(bad_cast * _this)
-{
-  return bad_cast_ctor_charptr( _this, "bad cast" );
-}
-
-/******************************************************************
- *		??1bad_cast@@UAE@XZ (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(bad_cast_dtor,4)
-void __thiscall bad_cast_dtor(bad_cast * _this)
-{
-  TRACE("(%p)\n", _this);
-  exception_dtor(_this);
-}
-
-/******************************************************************
- *		??4bad_cast@@QAEAAV0@ABV0@@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(bad_cast_opequals,8)
-bad_cast * __thiscall bad_cast_opequals(bad_cast * _this, const bad_cast * rhs)
-{
-  TRACE("(%p %p)\n", _this, rhs);
-  exception_opequals(_this, rhs);
-  return _this;
-}
-
-/******************************************************************
- *              ??_Ebad_cast@@UAEPAXI@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(bad_cast_vector_dtor,8)
-void * __thiscall bad_cast_vector_dtor(bad_cast * _this, unsigned int flags)
-{
-    TRACE("(%p %x)\n", _this, flags);
-    if (flags & 2)
-    {
-        /* we have an array, with the number of elements stored before the first object */
-        INT_PTR i, *ptr = (INT_PTR *)_this - 1;
-
-        for (i = *ptr - 1; i >= 0; i--) bad_cast_dtor(_this + i);
-        operator_delete(ptr);
-    }
-    else
-    {
-        bad_cast_dtor(_this);
-        if (flags & 1) operator_delete(_this);
-    }
-    return _this;
-}
-
-/******************************************************************
- *		??_Gbad_cast@@UAEPAXI@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(bad_cast_scalar_dtor,8)
-void * __thiscall bad_cast_scalar_dtor(bad_cast * _this, unsigned int flags)
-{
-  TRACE("(%p %x)\n", _this, flags);
-  bad_cast_dtor(_this);
-  if (flags & 1) operator_delete(_this);
-  return _this;
-}
-
-/******************************************************************
- *		??8type_info@@QBEHABV0@@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(type_info_opequals_equals,8)
-int __thiscall type_info_opequals_equals(type_info * _this, const type_info * rhs)
-{
-    int ret = !strcmp(_this->mangled + 1, rhs->mangled + 1);
-    TRACE("(%p %p) returning %d\n", _this, rhs, ret);
-    return ret;
-}
-
-/******************************************************************
- *		??9type_info@@QBEHABV0@@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(type_info_opnot_equals,8)
-int __thiscall type_info_opnot_equals(type_info * _this, const type_info * rhs)
-{
-    int ret = !!strcmp(_this->mangled + 1, rhs->mangled + 1);
-    TRACE("(%p %p) returning %d\n", _this, rhs, ret);
-    return ret;
-}
-
-/******************************************************************
- *		?before@type_info@@QBEHABV1@@Z (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(type_info_before,8)
-int __thiscall type_info_before(type_info * _this, const type_info * rhs)
-{
-    int ret = strcmp(_this->mangled + 1, rhs->mangled + 1) < 0;
-    TRACE("(%p %p) returning %d\n", _this, rhs, ret);
-    return ret;
-}
-
-/******************************************************************
- *		??1type_info@@UAE@XZ (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(type_info_dtor,4)
-void __thiscall type_info_dtor(type_info * _this)
-{
-  TRACE("(%p)\n", _this);
-  free(_this->name);
-}
-
-/******************************************************************
- *		?name@type_info@@QBEPBDXZ (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(type_info_name,4)
-const char * __thiscall type_info_name(type_info * _this)
-{
-  if (!_this->name)
-  {
-    /* Create and set the demangled name */
-    /* Note: mangled name in type_info struct always starts with a '.', while
-     * it isn't valid for mangled name.
-     * Is this '.' really part of the mangled name, or has it some other meaning ?
-     */
-    char* name = __unDName(0, _this->mangled + 1, 0,
-                           malloc, free, UNDNAME_NO_ARGUMENTS | UNDNAME_32_BIT_DECODE);
-    if (name)
-    {
-      unsigned int len = strlen(name);
-
-      /* It seems _unDName may leave blanks at the end of the demangled name */
-      while (len && name[--len] == ' ')
-        name[len] = '\0';
-
-      if (InterlockedCompareExchangePointer((void**)&_this->name, name, NULL))
-      {
-        /* Another thread set this member since we checked above - use it */
-        free(name);
-      }
-    }
-  }
-  TRACE("(%p) returning %s\n", _this, _this->name);
-  return _this->name;
-}
-
-/******************************************************************
- *		?raw_name@type_info@@QBEPBDXZ (MSVCRT.@)
- */
-DEFINE_THISCALL_WRAPPER(type_info_raw_name,4)
-const char * __thiscall type_info_raw_name(type_info * _this)
-{
-  TRACE("(%p) returning %s\n", _this, _this->mangled);
-  return _this->mangled;
-}
-
-#if _MSVCR_VER >= 80
-
-typedef exception bad_alloc;
-extern const vtable_ptr bad_alloc_vtable;
-
-/* bad_alloc class implementation */
-DEFINE_THISCALL_WRAPPER(bad_alloc_copy_ctor,8)
-bad_alloc * __thiscall bad_alloc_copy_ctor(bad_alloc * _this, const bad_alloc * rhs)
-{
-    TRACE("(%p %p)\n", _this, rhs);
-    return __exception_copy_ctor(_this, rhs, &bad_alloc_vtable);
-}
-
-DEFINE_THISCALL_WRAPPER(bad_alloc_dtor,4)
-void __thiscall bad_alloc_dtor(bad_alloc * _this)
-{
-    TRACE("(%p)\n", _this);
-    exception_dtor(_this);
-}
-
-#endif /* _MSVCR_VER >= 80 */
-
-__ASM_BLOCK_BEGIN(vtables)
-
-#if _MSVCR_VER >= 80
-__ASM_VTABLE(exception_old,
-        VTABLE_ADD_FUNC(exception_vector_dtor)
-        VTABLE_ADD_FUNC(exception_what));
-__ASM_VTABLE(bad_alloc,
-        VTABLE_ADD_FUNC(exception_vector_dtor)
-        VTABLE_ADD_FUNC(exception_what));
-#endif
-__ASM_VTABLE(bad_typeid,
-        VTABLE_ADD_FUNC(bad_typeid_vector_dtor)
-        VTABLE_ADD_FUNC(exception_what));
-__ASM_VTABLE(bad_cast,
-        VTABLE_ADD_FUNC(bad_cast_vector_dtor)
-        VTABLE_ADD_FUNC(exception_what));
-__ASM_VTABLE(__non_rtti_object,
-        VTABLE_ADD_FUNC(__non_rtti_object_vector_dtor)
-        VTABLE_ADD_FUNC(exception_what));
-
-__ASM_BLOCK_END
-
-#if _MSVCR_VER >= 80
-DEFINE_RTTI_DATA0( exception_old, 0, ".?AVexception@@" )
-DEFINE_RTTI_DATA1( bad_typeid, 0, &exception_rtti_base_descriptor, ".?AVbad_typeid@std@@" )
-DEFINE_RTTI_DATA1( bad_cast, 0, &exception_rtti_base_descriptor, ".?AVbad_cast@std@@" )
-DEFINE_RTTI_DATA2( __non_rtti_object, 0, &bad_typeid_rtti_base_descriptor, &exception_rtti_base_descriptor, ".?AV__non_rtti_object@std@@" )
-DEFINE_RTTI_DATA1( bad_alloc, 0, &exception_rtti_base_descriptor, ".?AVbad_alloc@std@@" )
-#else
-DEFINE_RTTI_DATA1( bad_typeid, 0, &exception_rtti_base_descriptor, ".?AVbad_typeid@@" )
-DEFINE_RTTI_DATA1( bad_cast, 0, &exception_rtti_base_descriptor, ".?AVbad_cast@@" )
-DEFINE_RTTI_DATA2( __non_rtti_object, 0, &bad_typeid_rtti_base_descriptor, &exception_rtti_base_descriptor, ".?AV__non_rtti_object@@" )
-#endif
-
-DEFINE_CXX_EXCEPTION0( exception, exception_dtor )
-DEFINE_CXX_DATA1( bad_typeid, &exception_cxx_type_info, bad_typeid_dtor )
-DEFINE_CXX_DATA1( bad_cast, &exception_cxx_type_info, bad_cast_dtor )
-DEFINE_CXX_DATA2( __non_rtti_object, &bad_typeid_cxx_type_info,
-        &exception_cxx_type_info, __non_rtti_object_dtor )
-#if _MSVCR_VER >= 80
-DEFINE_CXX_DATA1( bad_alloc, &exception_cxx_type_info, bad_alloc_dtor )
-#endif
-
-void msvcrt_init_exception(void *base)
-{
-#ifdef __x86_64__
-    init_type_info_rtti(base);
-    init_exception_rtti(base);
-#if _MSVCR_VER >= 80
-    init_exception_old_rtti(base);
-    init_bad_alloc_rtti(base);
-#endif
-    init_bad_typeid_rtti(base);
-    init_bad_cast_rtti(base);
-    init___non_rtti_object_rtti(base);
-
-    init_exception_cxx(base);
-    init_bad_typeid_cxx(base);
-    init_bad_cast_cxx(base);
-    init___non_rtti_object_cxx(base);
-#if _MSVCR_VER >= 80
-    init_bad_alloc_cxx(base);
-#endif
-#endif
-}
-
-#if _MSVCR_VER >= 80
-void throw_bad_alloc(void)
-{
-    bad_alloc e;
-    __exception_ctor(&e, "bad allocation", &bad_alloc_vtable);
-    _CxxThrowException(&e, &bad_alloc_exception_type);
-}
-#endif
-
-/******************************************************************
- *		?set_terminate@@YAP6AXXZP6AXXZ@Z (MSVCRT.@)
- *
- * Install a handler to be called when terminate() is called.
- *
- * PARAMS
- *  func [I] Handler function to install
- *
- * RETURNS
- *  The previously installed handler function, if any.
- */
-terminate_function CDECL set_terminate(terminate_function func)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-    terminate_function previous = data->terminate_handler;
-    TRACE("(%p) returning %p\n",func,previous);
-    data->terminate_handler = func;
-    return previous;
-}
-
-/******************************************************************
- *              _get_terminate (MSVCRT.@)
- */
-terminate_function CDECL _get_terminate(void)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-    TRACE("returning %p\n", data->terminate_handler);
-    return data->terminate_handler;
-}
-
-/******************************************************************
- *		?set_unexpected@@YAP6AXXZP6AXXZ@Z (MSVCRT.@)
- *
- * Install a handler to be called when unexpected() is called.
- *
- * PARAMS
- *  func [I] Handler function to install
- *
- * RETURNS
- *  The previously installed handler function, if any.
- */
-unexpected_function CDECL set_unexpected(unexpected_function func)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-    unexpected_function previous = data->unexpected_handler;
-    TRACE("(%p) returning %p\n",func,previous);
-    data->unexpected_handler = func;
-    return previous;
-}
-
-/******************************************************************
- *              _get_unexpected (MSVCRT.@)
- */
-unexpected_function CDECL _get_unexpected(void)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-    TRACE("returning %p\n", data->unexpected_handler);
-    return data->unexpected_handler;
-}
-
-/******************************************************************
- *              ?_set_se_translator@@YAP6AXIPAU_EXCEPTION_POINTERS@@@ZP6AXI0@Z@Z  (MSVCRT.@)
- */
-_se_translator_function CDECL _set_se_translator(_se_translator_function func)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-    _se_translator_function previous = data->se_translator;
-    TRACE("(%p) returning %p\n",func,previous);
-    data->se_translator = func;
-    return previous;
-}
-
-/******************************************************************
- *		?terminate@@YAXXZ (MSVCRT.@)
- *
- * Default handler for an unhandled exception.
- *
- * PARAMS
- *  None.
- *
- * RETURNS
- *  This function does not return. Either control resumes from any
- *  handler installed by calling set_terminate(), or (by default) abort()
- *  is called.
- */
-void CDECL terminate(void)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-    if (data->terminate_handler) data->terminate_handler();
-    abort();
-}
-
-/******************************************************************
- *		?unexpected@@YAXXZ (MSVCRT.@)
- */
-void CDECL unexpected(void)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-    if (data->unexpected_handler) data->unexpected_handler();
-    terminate();
-}
-
-
-/******************************************************************
- *		__RTtypeid (MSVCRT.@)
- *
- * Retrieve the Run Time Type Information (RTTI) for a C++ object.
- *
- * PARAMS
- *  cppobj [I] C++ object to get type information for.
- *
- * RETURNS
- *  Success: A type_info object describing cppobj.
- *  Failure: If the object to be cast has no RTTI, a __non_rtti_object
- *           exception is thrown. If cppobj is NULL, a bad_typeid exception
- *           is thrown. In either case, this function does not return.
- *
- * NOTES
- *  This function is usually called by compiler generated code as a result
- *  of using one of the C++ dynamic cast statements.
- */
-#ifndef __x86_64__
-const type_info* CDECL __RTtypeid(void *cppobj)
-{
-    const type_info *ret;
-
-    if (!cppobj)
-    {
-        bad_typeid e;
-        bad_typeid_ctor( &e, "Attempted a typeid of NULL pointer!" );
-        _CxxThrowException( &e, &bad_typeid_exception_type );
-    }
-
-    __TRY
-    {
-        const rtti_object_locator *obj_locator = get_obj_locator( cppobj );
-        ret = obj_locator->type_descriptor;
-    }
-    __EXCEPT_PAGE_FAULT
-    {
-        __non_rtti_object e;
-        __non_rtti_object_ctor( &e, "Bad read pointer - no RTTI data!" );
-        _CxxThrowException( &e, &__non_rtti_object_exception_type );
-    }
-    __ENDTRY
-    return ret;
-}
-
-#else
-
-const type_info* CDECL __RTtypeid(void *cppobj)
-{
-    const type_info *ret;
-
-    if (!cppobj)
-    {
-        bad_typeid e;
-        bad_typeid_ctor( &e, "Attempted a typeid of NULL pointer!" );
-        _CxxThrowException( &e, &bad_typeid_exception_type );
-    }
-
-    __TRY
-    {
-        const rtti_object_locator *obj_locator = get_obj_locator( cppobj );
-        char *base;
-
-        if(obj_locator->signature == 0)
-            base = RtlPcToFileHeader((void*)obj_locator, (void**)&base);
-        else
-            base = (char*)obj_locator - obj_locator->object_locator;
-
-        ret = (type_info*)(base + obj_locator->type_descriptor);
-    }
-    __EXCEPT_PAGE_FAULT
-    {
-        __non_rtti_object e;
-        __non_rtti_object_ctor( &e, "Bad read pointer - no RTTI data!" );
-        _CxxThrowException( &e, &__non_rtti_object_exception_type );
-    }
-    __ENDTRY
-    return ret;
-}
-#endif
-
-/******************************************************************
- *		__RTDynamicCast (MSVCRT.@)
- *
- * Dynamically cast a C++ object to one of its base classes.
- *
- * PARAMS
- *  cppobj   [I] Any C++ object to cast
- *  unknown  [I] Reserved, set to 0
- *  src      [I] type_info object describing cppobj
- *  dst      [I] type_info object describing the base class to cast to
- *  do_throw [I] TRUE = throw an exception if the cast fails, FALSE = don't
- *
- * RETURNS
- *  Success: The address of cppobj, cast to the object described by dst.
- *  Failure: NULL, If the object to be cast has no RTTI, or dst is not a
- *           valid cast for cppobj. If do_throw is TRUE, a bad_cast exception
- *           is thrown and this function does not return.
- *
- * NOTES
- *  This function is usually called by compiler generated code as a result
- *  of using one of the C++ dynamic cast statements.
- */
-#ifndef __x86_64__
-void* CDECL __RTDynamicCast(void *cppobj, int unknown,
-                                   type_info *src, type_info *dst,
-                                   int do_throw)
-{
-    void *ret;
-
-    if (!cppobj) return NULL;
-
-    TRACE("obj: %p unknown: %d src: %p %s dst: %p %s do_throw: %d)\n",
-          cppobj, unknown, src, dbgstr_type_info(src), dst, dbgstr_type_info(dst), do_throw);
-
-    /* To cast an object at runtime:
-     * 1.Find out the true type of the object from the typeinfo at vtable[-1]
-     * 2.Search for the destination type in the class hierarchy
-     * 3.If destination type is found, return base object address + dest offset
-     *   Otherwise, fail the cast
-     *
-     * FIXME: the unknown parameter doesn't seem to be used for anything
-     */
-    __TRY
-    {
-        int i;
-        const rtti_object_locator *obj_locator = get_obj_locator( cppobj );
-        const rtti_object_hierarchy *obj_bases = obj_locator->type_hierarchy;
-        const rtti_base_descriptor * const* base_desc = obj_bases->base_classes->bases;
-
-        if (TRACE_ON(msvcrt)) dump_obj_locator(obj_locator);
-
-        ret = NULL;
-        for (i = 0; i < obj_bases->array_len; i++)
-        {
-            const type_info *typ = base_desc[i]->type_descriptor;
-
-            if (!strcmp(typ->mangled, dst->mangled))
-            {
-                /* compute the correct this pointer for that base class */
-                void *this_ptr = (char *)cppobj - obj_locator->base_class_offset;
-                ret = get_this_pointer( &base_desc[i]->offsets, this_ptr );
-                break;
-            }
-        }
-        /* VC++ sets do_throw to 1 when the result of a dynamic_cast is assigned
-         * to a reference, since references cannot be NULL.
-         */
-        if (!ret && do_throw)
-        {
-            const char *msg = "Bad dynamic_cast!";
-            bad_cast e;
-            bad_cast_ctor( &e, &msg );
-            _CxxThrowException( &e, &bad_cast_exception_type );
-        }
-    }
-    __EXCEPT_PAGE_FAULT
-    {
-        __non_rtti_object e;
-        __non_rtti_object_ctor( &e, "Access violation - no RTTI data!" );
-        _CxxThrowException( &e, &__non_rtti_object_exception_type );
-    }
-    __ENDTRY
-    return ret;
-}
-
-#else
-
-void* CDECL __RTDynamicCast(void *cppobj, int unknown,
-        type_info *src, type_info *dst,
-        int do_throw)
-{
-    void *ret;
-
-    if (!cppobj) return NULL;
-
-    TRACE("obj: %p unknown: %d src: %p %s dst: %p %s do_throw: %d)\n",
-            cppobj, unknown, src, dbgstr_type_info(src), dst, dbgstr_type_info(dst), do_throw);
-
-    __TRY
-    {
-        int i;
-        const rtti_object_locator *obj_locator = get_obj_locator( cppobj );
-        const rtti_object_hierarchy *obj_bases;
-        const rtti_base_array *base_array;
-        char *base;
-
-        if (TRACE_ON(msvcrt)) dump_obj_locator(obj_locator);
-
-        if(obj_locator->signature == 0)
-            base = RtlPcToFileHeader((void*)obj_locator, (void**)&base);
-        else
-            base = (char*)obj_locator - obj_locator->object_locator;
-
-        obj_bases = (const rtti_object_hierarchy*)(base + obj_locator->type_hierarchy);
-        base_array = (const rtti_base_array*)(base + obj_bases->base_classes);
-
-        ret = NULL;
-        for (i = 0; i < obj_bases->array_len; i++)
-        {
-            const rtti_base_descriptor *base_desc = (const rtti_base_descriptor*)(base + base_array->bases[i]);
-            const type_info *typ = (const type_info*)(base + base_desc->type_descriptor);
-
-            if (!strcmp(typ->mangled, dst->mangled))
-            {
-                void *this_ptr = (char *)cppobj - obj_locator->base_class_offset;
-                ret = get_this_pointer( &base_desc->offsets, this_ptr );
-                break;
-            }
-        }
-        if (!ret && do_throw)
-        {
-            const char *msg = "Bad dynamic_cast!";
-            bad_cast e;
-            bad_cast_ctor( &e, &msg );
-            _CxxThrowException( &e, &bad_cast_exception_type );
-        }
-    }
-    __EXCEPT_PAGE_FAULT
-    {
-        __non_rtti_object e;
-        __non_rtti_object_ctor( &e, "Access violation - no RTTI data!" );
-        _CxxThrowException( &e, &__non_rtti_object_exception_type );
-    }
-    __ENDTRY
-    return ret;
-}
-#endif
-
-
-/******************************************************************
- *		__RTCastToVoid (MSVCRT.@)
- *
- * Dynamically cast a C++ object to a void*.
- *
- * PARAMS
- *  cppobj [I] The C++ object to cast
- *
- * RETURNS
- *  Success: The base address of the object as a void*.
- *  Failure: NULL, if cppobj is NULL or has no RTTI.
- *
- * NOTES
- *  This function is usually called by compiler generated code as a result
- *  of using one of the C++ dynamic cast statements.
- */
-void* CDECL __RTCastToVoid(void *cppobj)
-{
-    void *ret;
-
-    if (!cppobj) return NULL;
-
-    __TRY
-    {
-        const rtti_object_locator *obj_locator = get_obj_locator( cppobj );
-        ret = (char *)cppobj - obj_locator->base_class_offset;
-    }
-    __EXCEPT_PAGE_FAULT
-    {
-        __non_rtti_object e;
-        __non_rtti_object_ctor( &e, "Access violation - no RTTI data!" );
-        _CxxThrowException( &e, &__non_rtti_object_exception_type );
-    }
-    __ENDTRY
-    return ret;
-}
-
-
-/*********************************************************************
- *		_CxxThrowException (MSVCRT.@)
- */
-#ifndef __x86_64__
-void WINAPI _CxxThrowException( void *object, const cxx_exception_type *type )
-{
-    ULONG_PTR args[3];
-
-    args[0] = CXX_FRAME_MAGIC_VC6;
-    args[1] = (ULONG_PTR)object;
-    args[2] = (ULONG_PTR)type;
-    RaiseException( CXX_EXCEPTION, EH_NONCONTINUABLE, 3, args );
-}
-#else
-void WINAPI _CxxThrowException( void *object, const cxx_exception_type *type )
-{
-    ULONG_PTR args[4];
-
-    args[0] = CXX_FRAME_MAGIC_VC6;
-    args[1] = (ULONG_PTR)object;
-    args[2] = (ULONG_PTR)type;
-    RtlPcToFileHeader( (void*)type, (void**)&args[3]);
-    RaiseException( CXX_EXCEPTION, EH_NONCONTINUABLE, 4, args );
-}
-#endif
-
-#if _MSVCR_VER >= 80 || defined(__UCRTSUPPORT__)
-
-/*********************************************************************
- * ?_is_exception_typeof@@YAHABVtype_info@@PAU_EXCEPTION_POINTERS@@@Z
- * ?_is_exception_typeof@@YAHAEBVtype_info@@PEAU_EXCEPTION_POINTERS@@@Z
- */
-#ifndef __x86_64__
-int __cdecl _is_exception_typeof(const type_info *ti, EXCEPTION_POINTERS *ep)
-{
-    int ret = -1;
-
-    TRACE("(%p %p)\n", ti, ep);
-
-    __TRY
-    {
-        EXCEPTION_RECORD *rec = ep->ExceptionRecord;
-
-        if (rec->ExceptionCode==CXX_EXCEPTION && rec->NumberParameters==3 &&
-                (rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC6 ||
-                 rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC7 ||
-                 rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC8))
-        {
-            const cxx_type_info_table *tit = ((cxx_exception_type*)rec->ExceptionInformation[2])->type_info_table;
-            int i;
-
-            for (i=0; i<tit->count; i++) {
-                if (ti==tit->info[i]->type_info || !strcmp(ti->mangled, tit->info[i]->type_info->mangled))
-                {
-                    ret = 1;
-                    break;
-                }
-            }
-
-            if (i == tit->count)
-                ret = 0;
-        }
-    }
-    __EXCEPT_PAGE_FAULT
-    {
-    }
-    __ENDTRY
-
-    if(ret == -1)
-        terminate();
-    return ret;
-}
-#else
-int __cdecl _is_exception_typeof(const type_info *ti, EXCEPTION_POINTERS *ep)
-{
-    int ret = -1;
-
-    TRACE("(%p %p)\n", ti, ep);
-
-    __TRY
-    {
-        EXCEPTION_RECORD *rec = ep->ExceptionRecord;
-
-        if (rec->ExceptionCode==CXX_EXCEPTION && rec->NumberParameters==4 &&
-                (rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC6 ||
-                 rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC7 ||
-                 rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC8))
-        {
-            const cxx_exception_type *et = (cxx_exception_type*)rec->ExceptionInformation[2];
-            const cxx_type_info_table *tit = (const cxx_type_info_table*)(rec->ExceptionInformation[3]+et->type_info_table);
-            int i;
-
-            for (i=0; i<tit->count; i++) {
-                const cxx_type_info *cti = (const cxx_type_info*)(rec->ExceptionInformation[3]+tit->info[i]);
-                const type_info *except_ti = (const type_info*)(rec->ExceptionInformation[3]+cti->type_info);
-                if (ti==except_ti || !strcmp(ti->mangled, except_ti->mangled))
-                {
-                    ret = 1;
-                    break;
-                }
-            }
-
-            if (i == tit->count)
-                ret = 0;
-        }
-    }
-    __EXCEPT_PAGE_FAULT
-    {
-    }
-    __ENDTRY
-
-    if(ret == -1)
-        terminate();
-    return ret;
-}
-#endif
-
-/*********************************************************************
- * __clean_type_info_names_internal (MSVCR80.@)
- */
-void CDECL __clean_type_info_names_internal(void *p)
-{
-    FIXME("(%p) stub\n", p);
-}
-
-/*********************************************************************
- * ?_name_internal_method@type_info@@QBEPBDPAU__type_info_node@@@Z (MSVCR100.@)
- */
-const char * __thiscall type_info_name_internal_method(type_info * _this, struct __type_info_node *node);
-DEFINE_THISCALL_WRAPPER(type_info_name_internal_method,8)
-const char * __thiscall type_info_name_internal_method(type_info * _this, struct __type_info_node *node)
-{
-    static int once;
-    if (node && !once++) FIXME("type_info_node parameter ignored\n");
-
-    return type_info_name(_this);
-}
-
-#endif /* _MSVCR_VER >= 80 */
-
-/* std::exception_ptr class helpers */
-typedef struct
-{
-    EXCEPTION_RECORD *rec;
-    int *ref; /* not binary compatible with native msvcr100 */
-} exception_ptr;
-
-#if _MSVCR_VER >= 100
-
-/*********************************************************************
- * ?__ExceptionPtrCreate@@YAXPAX@Z
- * ?__ExceptionPtrCreate@@YAXPEAX@Z
- */
-void __cdecl __ExceptionPtrCreate(exception_ptr *ep)
-{
-    TRACE("(%p)\n", ep);
-
-    ep->rec = NULL;
-    ep->ref = NULL;
-}
-
-#ifdef __ASM_USE_THISCALL_WRAPPER
-extern void call_dtor(const cxx_exception_type *type, void *func, void *object);
-
-__ASM_GLOBAL_FUNC( call_dtor,
-                   "movl 12(%esp),%ecx\n\t"
-                   "call *8(%esp)\n\t"
-                   "ret" );
-#elif __x86_64__
-static inline void call_dtor(const cxx_exception_type *type, unsigned int dtor, void *object)
-{
-    char *base = RtlPcToFileHeader((void*)type, (void**)&base);
-    void (__cdecl *func)(void*) = (void*)(base + dtor);
-    func(object);
-}
-#else
-#define call_dtor(type, func, object) ((void (__thiscall*)(void*))(func))(object)
-#endif
-
-/*********************************************************************
- * ?__ExceptionPtrDestroy@@YAXPAX@Z
- * ?__ExceptionPtrDestroy@@YAXPEAX@Z
- */
-void __cdecl __ExceptionPtrDestroy(exception_ptr *ep)
-{
-    TRACE("(%p)\n", ep);
-
-    if (!ep->rec)
-        return;
-
-    if (!InterlockedDecrement(ep->ref))
-    {
-        if (ep->rec->ExceptionCode == CXX_EXCEPTION)
-        {
-            const cxx_exception_type *type = (void*)ep->rec->ExceptionInformation[2];
-            void *obj = (void*)ep->rec->ExceptionInformation[1];
-
-            if (type && type->destructor) call_dtor(type, type->destructor, obj);
-            HeapFree(GetProcessHeap(), 0, obj);
-        }
-
-        HeapFree(GetProcessHeap(), 0, ep->rec);
-        HeapFree(GetProcessHeap(), 0, ep->ref);
-    }
-}
-
-/*********************************************************************
- * ?__ExceptionPtrCopy@@YAXPAXPBX@Z
- * ?__ExceptionPtrCopy@@YAXPEAXPEBX@Z
- */
-void __cdecl __ExceptionPtrCopy(exception_ptr *ep, const exception_ptr *copy)
-{
-    TRACE("(%p %p)\n", ep, copy);
-
-    /* don't destroy object stored in ep */
-    *ep = *copy;
-    if (ep->ref)
-        InterlockedIncrement(copy->ref);
-}
-
-/*********************************************************************
- * ?__ExceptionPtrAssign@@YAXPAXPBX@Z
- * ?__ExceptionPtrAssign@@YAXPEAXPEBX@Z
- */
-void __cdecl __ExceptionPtrAssign(exception_ptr *ep, const exception_ptr *assign)
-{
-    TRACE("(%p %p)\n", ep, assign);
-
-    /* don't destroy object stored in ep */
-    if (ep->ref)
-        InterlockedDecrement(ep->ref);
-
-    *ep = *assign;
-    if (ep->ref)
-        InterlockedIncrement(ep->ref);
-}
-
-#endif /* _MSVCR_VER >= 100 */
-
-/*********************************************************************
- * ?__ExceptionPtrRethrow@@YAXPBX@Z
- * ?__ExceptionPtrRethrow@@YAXPEBX@Z
- */
-void __cdecl __ExceptionPtrRethrow(const exception_ptr *ep)
-{
-    TRACE("(%p)\n", ep);
-
-    if (!ep->rec)
-    {
-        static const char *exception_msg = "bad exception";
-        exception e;
-
-        exception_ctor(&e, &exception_msg);
-        _CxxThrowException(&e, &exception_exception_type);
-        return;
-    }
-
-    RaiseException(ep->rec->ExceptionCode, ep->rec->ExceptionFlags & (~EH_UNWINDING),
-            ep->rec->NumberParameters, ep->rec->ExceptionInformation);
-}
-
-#if _MSVCR_VER >= 100
-
-#ifdef __i386__
-extern void call_copy_ctor( void *func, void *this, void *src, int has_vbase );
-#else
-static inline void call_copy_ctor( void *func, void *this, void *src, int has_vbase )
-{
-    TRACE( "calling copy ctor %p object %p src %p\n", func, this, src );
-    if (has_vbase)
-        ((void (__cdecl*)(void*, void*, BOOL))func)(this, src, 1);
-    else
-        ((void (__cdecl*)(void*, void*))func)(this, src);
-}
-#endif
-
-/*********************************************************************
- * ?__ExceptionPtrCurrentException@@YAXPAX@Z
- * ?__ExceptionPtrCurrentException@@YAXPEAX@Z
- */
-#ifndef __x86_64__
-void __cdecl __ExceptionPtrCurrentException(exception_ptr *ep)
-{
-    EXCEPTION_RECORD *rec = msvcrt_get_thread_data()->exc_record;
-
-    TRACE("(%p)\n", ep);
-
-    if (!rec)
-    {
-        ep->rec = NULL;
-        ep->ref = NULL;
-        return;
-    }
-
-    ep->rec = HeapAlloc(GetProcessHeap(), 0, sizeof(EXCEPTION_RECORD));
-    ep->ref = HeapAlloc(GetProcessHeap(), 0, sizeof(int));
-
-    *ep->rec = *rec;
-    *ep->ref = 1;
-
-    if (ep->rec->ExceptionCode == CXX_EXCEPTION)
-    {
-        const cxx_exception_type *et = (void*)ep->rec->ExceptionInformation[2];
-        const cxx_type_info *ti;
-        void **data, *obj;
-
-        ti = et->type_info_table->info[0];
-        data = HeapAlloc(GetProcessHeap(), 0, ti->size);
-
-        obj = (void*)ep->rec->ExceptionInformation[1];
-        if (ti->flags & CLASS_IS_SIMPLE_TYPE)
-        {
-            memcpy(data, obj, ti->size);
-            if (ti->size == sizeof(void *)) *data = get_this_pointer(&ti->offsets, *data);
-        }
-        else if (ti->copy_ctor)
-        {
-            call_copy_ctor(ti->copy_ctor, data, get_this_pointer(&ti->offsets, obj),
-                    ti->flags & CLASS_HAS_VIRTUAL_BASE_CLASS);
-        }
-        else
-            memcpy(data, get_this_pointer(&ti->offsets, obj), ti->size);
-        ep->rec->ExceptionInformation[1] = (ULONG_PTR)data;
-    }
-    return;
-}
-#else
-void __cdecl __ExceptionPtrCurrentException(exception_ptr *ep)
-{
-    EXCEPTION_RECORD *rec = msvcrt_get_thread_data()->exc_record;
-
-    TRACE("(%p)\n", ep);
-
-    if (!rec)
-    {
-        ep->rec = NULL;
-        ep->ref = NULL;
-        return;
-    }
-
-    ep->rec = HeapAlloc(GetProcessHeap(), 0, sizeof(EXCEPTION_RECORD));
-    ep->ref = HeapAlloc(GetProcessHeap(), 0, sizeof(int));
-
-    *ep->rec = *rec;
-    *ep->ref = 1;
-
-    if (ep->rec->ExceptionCode == CXX_EXCEPTION)
-    {
-        const cxx_exception_type *et = (void*)ep->rec->ExceptionInformation[2];
-        const cxx_type_info *ti;
-        void **data, *obj;
-        char *base = RtlPcToFileHeader((void*)et, (void**)&base);
-
-        ti = (const cxx_type_info*)(base + ((const cxx_type_info_table*)(base + et->type_info_table))->info[0]);
-        data = HeapAlloc(GetProcessHeap(), 0, ti->size);
-
-        obj = (void*)ep->rec->ExceptionInformation[1];
-        if (ti->flags & CLASS_IS_SIMPLE_TYPE)
-        {
-            memcpy(data, obj, ti->size);
-            if (ti->size == sizeof(void *)) *data = get_this_pointer(&ti->offsets, *data);
-        }
-        else if (ti->copy_ctor)
-        {
-            call_copy_ctor(base + ti->copy_ctor, data, get_this_pointer(&ti->offsets, obj),
-                    ti->flags & CLASS_HAS_VIRTUAL_BASE_CLASS);
-        }
-        else
-            memcpy(data, get_this_pointer(&ti->offsets, obj), ti->size);
-        ep->rec->ExceptionInformation[1] = (ULONG_PTR)data;
-    }
-    return;
-}
-#endif
-
-#endif /* _MSVCR_VER >= 100 */
-
-#if _MSVCR_VER >= 110
-/*********************************************************************
- * ?__ExceptionPtrToBool@@YA_NPBX@Z
- * ?__ExceptionPtrToBool@@YA_NPEBX@Z
- */
-bool __cdecl __ExceptionPtrToBool(exception_ptr *ep)
-{
-    return !!ep->rec;
-}
-#endif
-
-#if _MSVCR_VER >= 100
-
-/*********************************************************************
- * ?__ExceptionPtrCopyException@@YAXPAXPBX1@Z
- * ?__ExceptionPtrCopyException@@YAXPEAXPEBX1@Z
- */
-#ifndef __x86_64__
-void __cdecl __ExceptionPtrCopyException(exception_ptr *ep,
-        exception *object, const cxx_exception_type *type)
-{
-    const cxx_type_info *ti;
-    void **data;
-
-    __ExceptionPtrDestroy(ep);
-
-    ep->rec = HeapAlloc(GetProcessHeap(), 0, sizeof(EXCEPTION_RECORD));
-    ep->ref = HeapAlloc(GetProcessHeap(), 0, sizeof(int));
-    *ep->ref = 1;
-
-    memset(ep->rec, 0, sizeof(EXCEPTION_RECORD));
-    ep->rec->ExceptionCode = CXX_EXCEPTION;
-    ep->rec->ExceptionFlags = EH_NONCONTINUABLE;
-    ep->rec->NumberParameters = 3;
-    ep->rec->ExceptionInformation[0] = CXX_FRAME_MAGIC_VC6;
-    ep->rec->ExceptionInformation[2] = (ULONG_PTR)type;
-
-    ti = type->type_info_table->info[0];
-    data = HeapAlloc(GetProcessHeap(), 0, ti->size);
-    if (ti->flags & CLASS_IS_SIMPLE_TYPE)
-    {
-        memcpy(data, object, ti->size);
-        if (ti->size == sizeof(void *)) *data = get_this_pointer(&ti->offsets, *data);
-    }
-    else if (ti->copy_ctor)
-    {
-        call_copy_ctor(ti->copy_ctor, data, get_this_pointer(&ti->offsets, object),
-                ti->flags & CLASS_HAS_VIRTUAL_BASE_CLASS);
-    }
-    else
-        memcpy(data, get_this_pointer(&ti->offsets, object), ti->size);
-    ep->rec->ExceptionInformation[1] = (ULONG_PTR)data;
-}
-#else
-void __cdecl __ExceptionPtrCopyException(exception_ptr *ep,
-        exception *object, const cxx_exception_type *type)
-{
-    const cxx_type_info *ti;
-    void **data;
-    char *base;
-
-    RtlPcToFileHeader((void*)type, (void**)&base);
-    __ExceptionPtrDestroy(ep);
-
-    ep->rec = HeapAlloc(GetProcessHeap(), 0, sizeof(EXCEPTION_RECORD));
-    ep->ref = HeapAlloc(GetProcessHeap(), 0, sizeof(int));
-    *ep->ref = 1;
-
-    memset(ep->rec, 0, sizeof(EXCEPTION_RECORD));
-    ep->rec->ExceptionCode = CXX_EXCEPTION;
-    ep->rec->ExceptionFlags = EH_NONCONTINUABLE;
-    ep->rec->NumberParameters = 4;
-    ep->rec->ExceptionInformation[0] = CXX_FRAME_MAGIC_VC6;
-    ep->rec->ExceptionInformation[2] = (ULONG_PTR)type;
-    ep->rec->ExceptionInformation[3] = (ULONG_PTR)base;
-
-    ti = (const cxx_type_info*)(base + ((const cxx_type_info_table*)(base + type->type_info_table))->info[0]);
-    data = HeapAlloc(GetProcessHeap(), 0, ti->size);
-    if (ti->flags & CLASS_IS_SIMPLE_TYPE)
-    {
-        memcpy(data, object, ti->size);
-        if (ti->size == sizeof(void *)) *data = get_this_pointer(&ti->offsets, *data);
-    }
-    else if (ti->copy_ctor)
-    {
-        call_copy_ctor(base + ti->copy_ctor, data, get_this_pointer(&ti->offsets, object),
-                ti->flags & CLASS_HAS_VIRTUAL_BASE_CLASS);
-    }
-    else
-        memcpy(data, get_this_pointer(&ti->offsets, object), ti->size);
-    ep->rec->ExceptionInformation[1] = (ULONG_PTR)data;
-}
-#endif
-
-bool __cdecl __ExceptionPtrCompare(const exception_ptr *ep1, const exception_ptr *ep2)
-{
-    return ep1->rec == ep2->rec;
-}
-
-#endif /* _MSVCR_VER >= 100 */
-
-#if _MSVCR_VER >= 80 || defined(__UCRTSUPPORT__)
-void* __cdecl __AdjustPointer(void *obj, const this_ptr_offsets *off)
-{
-    return get_this_pointer(off, obj);
-}
-#endif
-
-#if _MSVCR_VER >= 140 || defined(__UCRTSUPPORT__)
-
-typedef struct
-{
-    char *name;
-    char mangled[1];
-} type_info140;
-
-typedef struct
-{
-    SLIST_ENTRY entry;
-    char name[1];
-} type_info_entry;
-
-static void* CDECL type_info_entry_malloc(size_t size)
-{
-    type_info_entry *ret = malloc(FIELD_OFFSET(type_info_entry, name) + size);
-    return ret->name;
-}
-
-static void CDECL type_info_entry_free(void *ptr)
-{
-    ptr = (char*)ptr - FIELD_OFFSET(type_info_entry, name);
-    free(ptr);
-}
-
-/******************************************************************
- *		__std_type_info_compare (UCRTBASE.@)
- */
-int CDECL __std_type_info_compare(const type_info140 *l, const type_info140 *r)
-{
-    int ret;
-
-    if (l == r) ret = 0;
-    else ret = strcmp(l->mangled + 1, r->mangled + 1);
-    TRACE("(%p %p) returning %d\n", l, r, ret);
-    return ret;
-}
-
-/******************************************************************
- *		__std_type_info_name (UCRTBASE.@)
- */
-const char* CDECL __std_type_info_name(type_info140 *ti, SLIST_HEADER *header)
-{
-      if (!ti->name)
-      {
-          char* name = __unDName(0, ti->mangled + 1, 0,
-                  type_info_entry_malloc, type_info_entry_free, UNDNAME_NO_ARGUMENTS | UNDNAME_32_BIT_DECODE);
-          if (name)
-          {
-              unsigned int len = strlen(name);
-
-              while (len && name[--len] == ' ')
-                  name[len] = '\0';
-
-              if (InterlockedCompareExchangePointer((void**)&ti->name, name, NULL))
-              {
-                  type_info_entry_free(name);
-              }
-              else
-              {
-                  type_info_entry *entry = (type_info_entry*)(name-FIELD_OFFSET(type_info_entry, name));
-                  InterlockedPushEntrySList(header, &entry->entry);
-              }
-          }
-      }
-      TRACE("(%p) returning %s\n", ti, ti->name);
-      return ti->name;
-}
-
-/******************************************************************
- *		__std_type_info_destroy_list  (UCRTBASE.@)
- */
-void CDECL __std_type_info_destroy_list(SLIST_HEADER *header)
-{
-    SLIST_ENTRY *cur, *next;
-
-    TRACE("(%p)\n", header);
-
-    for(cur = InterlockedFlushSList(header); cur; cur = next)
-    {
-        next = cur->Next;
-        free(cur);
-    }
-}
-
-/******************************************************************
- *              __std_type_info_hash (UCRTBASE.@)
- */
-size_t CDECL __std_type_info_hash(const type_info140 *ti)
-{
-    size_t hash, fnv_prime;
-    const char *p;
-
-#ifdef _WIN64
-    hash = 0xcbf29ce484222325;
-    fnv_prime = 0x100000001b3;
-#else
-    hash = 0x811c9dc5;
-    fnv_prime = 0x1000193;
-#endif
-
-    TRACE("(%p)->%s\n", ti, ti->mangled);
-
-    for(p = ti->mangled+1; *p; p++) {
-        hash ^= *p;
-        hash *= fnv_prime;
-    }
-
-#ifdef _WIN64
-    hash ^= hash >> 32;
-#endif
-
-    return hash;
-}
-
-#endif /* _MSVCR_VER >= 140 */

sdk/lib/crt/wine/cppexcept.h

···
-/*
- * msvcrt C++ exception handling
- *
- * Copyright 2002 Alexandre Julliard
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-#ifndef __MSVCRT_CPPEXCEPT_H
-#define __MSVCRT_CPPEXCEPT_H
-
-#include "wine/asm.h"
-
-#define CXX_FRAME_MAGIC_VC6 0x19930520
-#define CXX_FRAME_MAGIC_VC7 0x19930521
-#define CXX_FRAME_MAGIC_VC8 0x19930522
-#define CXX_EXCEPTION       0xe06d7363
-
-#define FUNC_DESCR_SYNCHRONOUS  1 /* synchronous exceptions only (built with /EHs and /EHsc) */
-#define FUNC_DESCR_NOEXCEPT     4 /* noexcept function */
-
-typedef void (*vtable_ptr)(void);
-
-/* type_info object, see cpp.c for implementation */
-typedef struct __type_info
-{
-  const vtable_ptr *vtable;
-  char              *name;        /* Unmangled name, allocated lazily */
-  char               mangled[64]; /* Variable length, but we declare it large enough for static RTTI */
-} type_info;
-
-/* exception object */
-typedef struct __exception
-{
-  const vtable_ptr *vtable;
-  char             *name;    /* Name of this exception, always a new copy for each object */
-  BOOL              do_free; /* Whether to free 'name' in our dtor */
-} exception;
-
-typedef void (*cxx_copy_ctor)(void);
-
-/* offsets for computing the this pointer */
-typedef struct
-{
-    int         this_offset;   /* offset of base class this pointer from start of object */
-    int         vbase_descr;   /* offset of virtual base class descriptor */
-    int         vbase_offset;  /* offset of this pointer offset in virtual base class descriptor */
-} this_ptr_offsets;
-
-/* complete information about a C++ type */
-#ifndef __x86_64__
-typedef struct __cxx_type_info
-{
-    UINT             flags;        /* flags (see CLASS_* flags below) */
-    const type_info *type_info;    /* C++ type info */
-    this_ptr_offsets offsets;      /* offsets for computing the this pointer */
-    unsigned int     size;         /* object size */
-    cxx_copy_ctor    copy_ctor;    /* copy constructor */
-} cxx_type_info;
-#else
-typedef struct __cxx_type_info
-{
-    UINT flags;
-    unsigned int type_info;
-    this_ptr_offsets offsets;
-    unsigned int size;
-    unsigned int copy_ctor;
-} cxx_type_info;
-#endif
-
-#define CLASS_IS_SIMPLE_TYPE          1
-#define CLASS_HAS_VIRTUAL_BASE_CLASS  4
-
-/* table of C++ types that apply for a given object */
-#ifndef __x86_64__
-typedef struct __cxx_type_info_table
-{
-    UINT                 count;     /* number of types */
-    const cxx_type_info *info[3];   /* variable length, we declare it large enough for static RTTI */
-} cxx_type_info_table;
-#else
-typedef struct __cxx_type_info_table
-{
-    UINT count;
-    unsigned int info[3];
-} cxx_type_info_table;
-#endif
-
-struct __cxx_exception_frame;
-struct __cxx_function_descr;
-
-typedef DWORD (*cxx_exc_custom_handler)( PEXCEPTION_RECORD, struct __cxx_exception_frame*,
-                                         PCONTEXT, EXCEPTION_REGISTRATION_RECORD**,
-                                         const struct __cxx_function_descr*, int nested_trylevel,
-                                         EXCEPTION_REGISTRATION_RECORD *nested_frame, DWORD unknown3 );
-
-/* type information for an exception object */
-#ifndef __x86_64__
-typedef struct __cxx_exception_type
-{
-    UINT                       flags;            /* TYPE_FLAG flags */
-    void                     (*destructor)(void);/* exception object destructor */
-    cxx_exc_custom_handler     custom_handler;   /* custom handler for this exception */
-    const cxx_type_info_table *type_info_table;  /* list of types for this exception object */
-} cxx_exception_type;
-#else
-typedef struct
-{
-    UINT flags;
-    unsigned int destructor;
-    unsigned int custom_handler;
-    unsigned int type_info_table;
-} cxx_exception_type;
-#endif
-
-void WINAPI _CxxThrowException(void*,const cxx_exception_type*);
-int CDECL _XcptFilter(NTSTATUS, PEXCEPTION_POINTERS);
-
-static inline const char *dbgstr_type_info( const type_info *info )
-{
-    if (!info) return "{}";
-    return wine_dbg_sprintf( "{vtable=%p name=%s (%s)}",
-                             info->vtable, info->mangled, info->name ? info->name : "" );
-}
-
-/* compute the this pointer for a base class of a given type */
-static inline void *get_this_pointer( const this_ptr_offsets *off, void *object )
-{
-    if (!object) return NULL;
-
-    if (off->vbase_descr >= 0)
-    {
-        int *offset_ptr;
-
-        /* move this ptr to vbase descriptor */
-        object = (char *)object + off->vbase_descr;
-        /* and fetch additional offset from vbase descriptor */
-        offset_ptr = (int *)(*(char **)object + off->vbase_offset);
-        object = (char *)object + *offset_ptr;
-    }
-
-    object = (char *)object + off->this_offset;
-    return object;
-}
-
-#ifndef __x86_64__
-#define DEFINE_CXX_TYPE_INFO(type) \
-static const cxx_type_info type ## _cxx_type_info = { \
-    0, \
-    & type ##_type_info, \
-    { 0, -1, 0 }, \
-    sizeof(type), \
-    (cxx_copy_ctor)THISCALL(type ##_copy_ctor) \
-};
-
-#define DEFINE_CXX_EXCEPTION(type, base_no, cl1, cl2, dtor)  \
-static const cxx_type_info_table type ## _cxx_type_table = { \
-    base_no+1, \
-    { \
-        & type ## _cxx_type_info, \
-        cl1, \
-        cl2, \
-    } \
-}; \
-\
-static const cxx_exception_type type ## _exception_type = { \
-    0, \
-    (cxx_copy_ctor)THISCALL(dtor), \
-    NULL, \
-    & type ## _cxx_type_table \
-};
-
-#else
-
-#define DEFINE_CXX_TYPE_INFO(type) \
-static cxx_type_info type ## _cxx_type_info = { \
-    0, \
-    0xdeadbeef, \
-    { 0, -1, 0 }, \
-    sizeof(type), \
-    0xdeadbeef \
-}; \
-\
-static void init_ ## type ## _cxx_type_info(char *base) \
-{ \
-    type ## _cxx_type_info.type_info  = (char *)&type ## _type_info - base; \
-    type ## _cxx_type_info.copy_ctor  = (char *)type ## _copy_ctor - base; \
-}
-
-#define DEFINE_CXX_EXCEPTION(type, base_no, cl1, cl2, dtor)  \
-static cxx_type_info_table type ## _cxx_type_table = { \
-    base_no+1, \
-    { \
-        0xdeadbeef, \
-        0xdeadbeef, \
-        0xdeadbeef, \
-    } \
-}; \
-\
-static cxx_exception_type type ##_exception_type = { \
-    0, \
-    0xdeadbeef, \
-    0, \
-    0xdeadbeef \
-}; \
-\
-static void init_ ## type ## _cxx(char *base) \
-{ \
-    init_ ## type ## _cxx_type_info(base); \
-    type ## _cxx_type_table.info[0]   = (char *)&type ## _cxx_type_info - base; \
-    type ## _cxx_type_table.info[1]   = (char *)cl1 - base; \
-    type ## _cxx_type_table.info[2]   = (char *)cl2 - base; \
-    type ## _exception_type.destructor      = (char *)dtor - base; \
-    type ## _exception_type.type_info_table = (char *)&type ## _cxx_type_table - base; \
-}
-
-#endif
-
-#define DEFINE_CXX_DATA(type, base_no, cl1, cl2, dtor) \
-DEFINE_CXX_TYPE_INFO(type) \
-DEFINE_CXX_EXCEPTION(type, base_no, cl1, cl2, dtor)
-
-#define DEFINE_CXX_EXCEPTION0(name, dtor) \
-    DEFINE_CXX_EXCEPTION(name, 0, NULL, NULL, dtor)
-
-#define DEFINE_CXX_DATA0(name, dtor) \
-    DEFINE_CXX_DATA(name, 0, NULL, NULL, dtor)
-#define DEFINE_CXX_DATA1(name, cl1, dtor) \
-    DEFINE_CXX_DATA(name, 1, cl1, NULL, dtor)
-#define DEFINE_CXX_DATA2(name, cl1, cl2, dtor) \
-    DEFINE_CXX_DATA(name, 2, cl1, cl2, dtor)
-
-#if _MSVCR_VER >= 80
-#define EXCEPTION_MANGLED_NAME ".?AVexception@std@@"
-#else
-#define EXCEPTION_MANGLED_NAME ".?AVexception@@"
-#endif
-
-#define CREATE_EXCEPTION_OBJECT(exception_name) \
-static exception* __exception_ctor(exception *this, const char *str, const vtable_ptr *vtbl) \
-{ \
-    if (str) \
-    { \
-        unsigned int len = strlen(str) + 1; \
-        this->name = malloc(len); \
-        memcpy(this->name, str, len); \
-        this->do_free = TRUE; \
-    } \
-    else \
-    { \
-        this->name = NULL; \
-        this->do_free = FALSE; \
-    } \
-    this->vtable = vtbl; \
-    return this; \
-} \
-\
-static exception* __exception_copy_ctor(exception *this, const exception *rhs, const vtable_ptr *vtbl) \
-{ \
-    if (rhs->do_free) \
-    { \
-        __exception_ctor(this, rhs->name, vtbl); \
-    } \
-    else \
-    { \
-        *this = *rhs; \
-        this->vtable = vtbl; \
-    } \
-    return this; \
-} \
-extern const vtable_ptr exception_name ## _vtable; \
-exception* __thiscall exception_name ## _copy_ctor(exception *this, const exception *rhs); \
-DEFINE_THISCALL_WRAPPER(exception_name ## _copy_ctor,8) \
-exception* __thiscall exception_name ## _copy_ctor(exception *this, const exception *rhs) \
-{ \
-    return __exception_copy_ctor(this, rhs, & exception_name ## _vtable); \
-} \
-\
-void __thiscall exception_name ## _dtor(exception *this); \
-DEFINE_THISCALL_WRAPPER(exception_name ## _dtor,4) \
-void __thiscall exception_name ## _dtor(exception *this) \
-{ \
-    if (this->do_free) free(this->name); \
-} \
-\
-void* __thiscall exception_name ## _vector_dtor(exception *this, unsigned int flags); \
-DEFINE_THISCALL_WRAPPER(exception_name ## _vector_dtor,8) \
-void* __thiscall exception_name ## _vector_dtor(exception *this, unsigned int flags) \
-{ \
-    if (flags & 2) \
-    { \
-        INT_PTR i, *ptr = (INT_PTR *)this - 1; \
-\
-        for (i = *ptr - 1; i >= 0; i--) exception_name ## _dtor(this + i); \
-        operator_delete(ptr); \
-    } \
-    else \
-    { \
-        exception_name ## _dtor(this); \
-        if (flags & 1) operator_delete(this); \
-    } \
-    return this; \
-} \
-\
-const char* __thiscall exception_name ## _what(exception *this); \
-DEFINE_THISCALL_WRAPPER(exception_name ## _what,4) \
-const char* __thiscall exception_name ## _what(exception *this) \
-{ \
-    return this->name ? this->name : "Unknown exception"; \
-} \
-\
-__ASM_BLOCK_BEGIN(exception_name ## _vtables) \
-__ASM_VTABLE(exception_name, \
-        VTABLE_ADD_FUNC(exception_name ## _vector_dtor) \
-        VTABLE_ADD_FUNC(exception_name ## _what)); \
-__ASM_BLOCK_END \
-\
-DEFINE_RTTI_DATA0(exception_name, 0, EXCEPTION_MANGLED_NAME) \
-DEFINE_CXX_TYPE_INFO(exception_name)
-
-#endif /* __MSVCRT_CPPEXCEPT_H */

sdk/lib/crt/wine/cxx.h

···
-/*
- * Copyright 2012 Piotr Caban for CodeWeavers
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-#include "cppexcept.h"
-
-#ifdef _MSC_VER
-#define __ASM_VTABLE(name,funcs)
-#else
-#ifdef _WIN64
-
-#define VTABLE_ADD_FUNC(name) "\t.quad " THISCALL_NAME(name) "\n"
-
-#define __ASM_VTABLE(name,funcs) \
-    __asm__(".data\n" \
-            "\t.balign 8\n" \
-            "\t.quad " __ASM_NAME(#name "_rtti") "\n" \
-            "\t.globl " __ASM_NAME(#name "_vtable") "\n" \
-            __ASM_NAME(#name "_vtable") ":\n" \
-            funcs "\n\t.text")
-
-#else
-
-#define VTABLE_ADD_FUNC(name) "\t.long " THISCALL_NAME(name) "\n"
-
-#define __ASM_VTABLE(name,funcs) \
-    __asm__(".data\n" \
-            "\t.balign 4\n" \
-            "\t.long " __ASM_NAME(#name "_rtti") "\n" \
-            "\t.globl " __ASM_NAME(#name "_vtable") "\n" \
-            __ASM_NAME(#name "_vtable") ":\n" \
-            funcs "\n\t.text")
-
-#endif /* _WIN64 */
-#endif // _MSC_VER
-
-#ifndef __x86_64__
-
-#define DEFINE_RTTI_BASE(name, base_classes_no, mangled_name) \
-    static type_info name ## _type_info = { \
-        &type_info_vtable, \
-        NULL, \
-        mangled_name \
-    }; \
-\
-static const rtti_base_descriptor name ## _rtti_base_descriptor = { \
-    &name ##_type_info, \
-    base_classes_no, \
-    { 0, -1, 0}, \
-    64 \
-};
-
-#define DEFINE_RTTI_DATA(name, off, base_classes_no, cl1, cl2, cl3, cl4, cl5, cl6, cl7, cl8, cl9, mangled_name) \
-    DEFINE_RTTI_BASE(name, base_classes_no, mangled_name) \
-\
-static const rtti_base_array name ## _rtti_base_array = { \
-    { \
-        &name ## _rtti_base_descriptor, \
-        cl1, \
-        cl2, \
-        cl3, \
-        cl4, \
-        cl5, \
-        cl6, \
-        cl7, \
-        cl8, \
-        cl9, \
-    } \
-}; \
-\
-static const rtti_object_hierarchy name ## _hierarchy = { \
-    0, \
-    0, \
-    base_classes_no+1, \
-    &name ## _rtti_base_array \
-}; \
-\
-const rtti_object_locator name ## _rtti = { \
-    0, \
-    off, \
-    0, \
-    &name ## _type_info, \
-    &name ## _hierarchy \
-};
-
-#else
-
-#define __DEFINE_RTTI_BASE(name, base_classes_no, mangled_name) \
-    static type_info name ## _type_info = { \
-        &type_info_vtable, \
-        NULL, \
-        mangled_name \
-    }; \
-\
-static rtti_base_descriptor name ## _rtti_base_descriptor = { \
-    0xdeadbeef, \
-    base_classes_no, \
-    { 0, -1, 0}, \
-    64 \
-};
-
-#define DEFINE_RTTI_BASE(name, base_classes_no, mangled_name) \
-    __DEFINE_RTTI_BASE(name, base_classes_no, mangled_name) \
-    \
-    static void init_ ## name ## _rtti(char *base) \
-    { \
-        name ## _rtti_base_descriptor.type_descriptor = (char*)&name ## _type_info - base; \
-    }
-
-#define DEFINE_RTTI_DATA(name, off, base_classes_no, cl1, cl2, cl3, cl4, cl5, cl6, cl7, cl8, cl9, mangled_name) \
-    __DEFINE_RTTI_BASE(name, base_classes_no, mangled_name) \
-\
-static rtti_base_array name ## _rtti_base_array = { \
-    { \
-        0xdeadbeef, \
-        0xdeadbeef, \
-        0xdeadbeef, \
-        0xdeadbeef, \
-        0xdeadbeef, \
-        0xdeadbeef, \
-        0xdeadbeef, \
-        0xdeadbeef, \
-        0xdeadbeef, \
-        0xdeadbeef, \
-    } \
-}; \
-\
-static rtti_object_hierarchy name ## _hierarchy = { \
-    0, \
-    0, \
-    base_classes_no+1, \
-    0xdeadbeef \
-}; \
-\
-rtti_object_locator name ## _rtti = { \
-    1, \
-    off, \
-    0, \
-    0xdeadbeef, \
-    0xdeadbeef, \
-    0xdeadbeef \
-};\
-\
-static void init_ ## name ## _rtti(char *base) \
-{ \
-    name ## _rtti_base_descriptor.type_descriptor = (char*)&name ## _type_info - base; \
-    name ## _rtti_base_array.bases[0] = (char*)&name ## _rtti_base_descriptor - base; \
-    name ## _rtti_base_array.bases[1] = (char*)cl1 - base; \
-    name ## _rtti_base_array.bases[2] = (char*)cl2 - base; \
-    name ## _rtti_base_array.bases[3] = (char*)cl3 - base; \
-    name ## _rtti_base_array.bases[4] = (char*)cl4 - base; \
-    name ## _rtti_base_array.bases[5] = (char*)cl5 - base; \
-    name ## _rtti_base_array.bases[6] = (char*)cl6 - base; \
-    name ## _rtti_base_array.bases[7] = (char*)cl7 - base; \
-    name ## _rtti_base_array.bases[8] = (char*)cl8 - base; \
-    name ## _rtti_base_array.bases[9] = (char*)cl9 - base; \
-    name ## _hierarchy.base_classes = (char*)&name ## _rtti_base_array - base; \
-    name ## _rtti.type_descriptor = (char*)&name ## _type_info - base; \
-    name ## _rtti.type_hierarchy = (char*)&name ## _hierarchy - base; \
-    name ## _rtti.object_locator = (char*)&name ## _rtti - base; \
-}
-
-#endif
-
-#define DEFINE_RTTI_DATA0(name, off, mangled_name) \
-    DEFINE_RTTI_DATA(name, off, 0, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, mangled_name)
-#define DEFINE_RTTI_DATA1(name, off, cl1, mangled_name) \
-    DEFINE_RTTI_DATA(name, off, 1, cl1, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, mangled_name)
-#define DEFINE_RTTI_DATA2(name, off, cl1, cl2, mangled_name) \
-    DEFINE_RTTI_DATA(name, off, 2, cl1, cl2, NULL, NULL, NULL, NULL, NULL, NULL, NULL, mangled_name)
-#define DEFINE_RTTI_DATA3(name, off, cl1, cl2, cl3, mangled_name) \
-    DEFINE_RTTI_DATA(name, off, 3, cl1, cl2, cl3, NULL, NULL, NULL, NULL, NULL, NULL, mangled_name)
-#define DEFINE_RTTI_DATA4(name, off, cl1, cl2, cl3, cl4, mangled_name) \
-    DEFINE_RTTI_DATA(name, off, 4, cl1, cl2, cl3, cl4, NULL, NULL, NULL, NULL, NULL, mangled_name)
-#define DEFINE_RTTI_DATA8(name, off, cl1, cl2, cl3, cl4, cl5, cl6, cl7, cl8, mangled_name) \
-    DEFINE_RTTI_DATA(name, off, 8, cl1, cl2, cl3, cl4, cl5, cl6, cl7, cl8, NULL, mangled_name)
-#define DEFINE_RTTI_DATA9(name, off, cl1, cl2, cl3, cl4, cl5, cl6, cl7, cl8, cl9, mangled_name) \
-    DEFINE_RTTI_DATA(name, off, 9, cl1, cl2, cl3, cl4, cl5, cl6, cl7, cl8, cl9, mangled_name)
-
-#ifndef __x86_64__
-
-typedef struct _rtti_base_descriptor
-{
-    const type_info *type_descriptor;
-    int num_base_classes;
-    this_ptr_offsets offsets;    /* offsets for computing the this pointer */
-    unsigned int attributes;
-} rtti_base_descriptor;
-
-typedef struct _rtti_base_array
-{
-    const rtti_base_descriptor *bases[10]; /* First element is the class itself */
-} rtti_base_array;
-
-typedef struct _rtti_object_hierarchy
-{
-    unsigned int signature;
-    unsigned int attributes;
-    int array_len; /* Size of the array pointed to by 'base_classes' */
-    const rtti_base_array *base_classes;
-} rtti_object_hierarchy;
-
-typedef struct _rtti_object_locator
-{
-    unsigned int signature;
-    int base_class_offset;
-    unsigned int flags;
-    const type_info *type_descriptor;
-    const rtti_object_hierarchy *type_hierarchy;
-} rtti_object_locator;
-
-#else
-
-typedef struct
-{
-    unsigned int type_descriptor;
-    int num_base_classes;
-    this_ptr_offsets offsets;    /* offsets for computing the this pointer */
-    unsigned int attributes;
-} rtti_base_descriptor;
-
-typedef struct
-{
-    unsigned int bases[10]; /* First element is the class itself */
-} rtti_base_array;
-
-typedef struct
-{
-    unsigned int signature;
-    unsigned int attributes;
-    int array_len; /* Size of the array pointed to by 'base_classes' */
-    unsigned int base_classes;
-} rtti_object_hierarchy;
-
-typedef struct
-{
-    unsigned int signature;
-    int base_class_offset;
-    unsigned int flags;
-    unsigned int type_descriptor;
-    unsigned int type_hierarchy;
-    unsigned int object_locator;
-} rtti_object_locator;
-
-#endif
-
-#ifdef __ASM_USE_THISCALL_WRAPPER
-
-#define CALL_VTBL_FUNC(this, off, ret, type, args) ((ret (WINAPI*)type)&vtbl_wrapper_##off)args
-
-extern void *vtbl_wrapper_0;
-extern void *vtbl_wrapper_4;
-extern void *vtbl_wrapper_8;
-extern void *vtbl_wrapper_12;
-extern void *vtbl_wrapper_16;
-extern void *vtbl_wrapper_20;
-extern void *vtbl_wrapper_24;
-extern void *vtbl_wrapper_28;
-extern void *vtbl_wrapper_32;
-extern void *vtbl_wrapper_36;
-extern void *vtbl_wrapper_40;
-extern void *vtbl_wrapper_44;
-extern void *vtbl_wrapper_48;
-
-#else
-
-#define CALL_VTBL_FUNC(this, off, ret, type, args) ((ret (__thiscall***)type)this)[0][off/4]args
-
-#endif
-
-exception* __thiscall exception_ctor(exception*, const char**);
-
-extern const vtable_ptr type_info_vtable;
-
-#ifdef __REACTOS__
-void * __thiscall type_info_vector_dtor(type_info * _this, unsigned int flags);
-#endif
-
-#define CREATE_TYPE_INFO_VTABLE \
-DEFINE_THISCALL_WRAPPER(type_info_vector_dtor,8) \
-void * __thiscall type_info_vector_dtor(type_info * _this, unsigned int flags) \
-{ \
-    if (flags & 2) \
-    { \
-        /* we have an array, with the number of elements stored before the first object */ \
-        INT_PTR i, *ptr = (INT_PTR *)_this - 1; \
-\
-        for (i = *ptr - 1; i >= 0; i--) free(_this[i].name); \
-        free(ptr); \
-    } \
-    else \
-    { \
-        free(_this->name); \
-        if (flags & 1) free(_this); \
-    } \
-    return _this; \
-} \
-\
-DEFINE_RTTI_DATA0( type_info, 0, ".?AVtype_info@@" ) \
-\
-__ASM_BLOCK_BEGIN(type_info_vtables) \
-    __ASM_VTABLE(type_info, \
-            VTABLE_ADD_FUNC(type_info_vector_dtor)); \
-__ASM_BLOCK_END

sdk/lib/crt/wine/except.c

···
-/*
- * msvcrt.dll exception handling
- *
- * Copyright 2000 Jon Griffiths
- * Copyright 2005 Juan Lang
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- *
- * FIXME: Incomplete support for nested exceptions/try block cleanup.
- */
-
-#include <float.h>
-#include <signal.h>
-#include <stdarg.h>
-#include <stdbool.h>
-
-#include "ntstatus.h"
-#define WIN32_NO_STATUS
-#include "windef.h"
-#include "winbase.h"
-#include "winternl.h"
-#ifdef __REACTOS__ // FIXME: Clean up wine headers!
-#include "wine/exception.h"
-#endif // __REACTOS__
-#include "msvcrt.h"
-#include "excpt.h"
-#include "wincon.h"
-#include "wine/debug.h"
-
-#include "cppexcept.h"
-
-WINE_DEFAULT_DEBUG_CHANNEL(seh);
-
-#if _MSVCR_VER>=70 && _MSVCR_VER<=71
-static MSVCRT_security_error_handler security_error_handler;
-#endif
-
-static __sighandler_t sighandlers[NSIG] = { SIG_DFL };
-
-static BOOL WINAPI msvcrt_console_handler(DWORD ctrlType)
-{
-    BOOL ret = FALSE;
-
-    switch (ctrlType)
-    {
-    case CTRL_C_EVENT:
-        if (sighandlers[SIGINT])
-        {
-            if (sighandlers[SIGINT] != SIG_IGN)
-                sighandlers[SIGINT](SIGINT);
-            ret = TRUE;
-        }
-        break;
-    }
-    return ret;
-}
-
-/*********************************************************************
- *              __pxcptinfoptrs (MSVCRT.@)
- */
-void** CDECL __pxcptinfoptrs(void)
-{
-    return (void**)&msvcrt_get_thread_data()->xcptinfo;
-}
-
-typedef void (CDECL *float_handler)(int, int);
-
-/* The exception codes are actually NTSTATUS values */
-static const struct
-{
-    NTSTATUS status;
-    int signal;
-} float_exception_map[] = {
- { EXCEPTION_FLT_DENORMAL_OPERAND, _FPE_DENORMAL },
- { EXCEPTION_FLT_DIVIDE_BY_ZERO, _FPE_ZERODIVIDE },
- { EXCEPTION_FLT_INEXACT_RESULT, _FPE_INEXACT },
- { EXCEPTION_FLT_INVALID_OPERATION, _FPE_INVALID },
- { EXCEPTION_FLT_OVERFLOW, _FPE_OVERFLOW },
- { EXCEPTION_FLT_STACK_CHECK, _FPE_STACKOVERFLOW },
- { EXCEPTION_FLT_UNDERFLOW, _FPE_UNDERFLOW },
-};
-
-static LONG msvcrt_exception_filter(struct _EXCEPTION_POINTERS *except)
-{
-    LONG ret = EXCEPTION_CONTINUE_SEARCH;
-    __sighandler_t handler;
-
-    if (!except || !except->ExceptionRecord)
-        return EXCEPTION_CONTINUE_SEARCH;
-
-    switch (except->ExceptionRecord->ExceptionCode)
-    {
-    case EXCEPTION_ACCESS_VIOLATION:
-        if ((handler = sighandlers[SIGSEGV]) != SIG_DFL)
-        {
-            if (handler != SIG_IGN)
-            {
-                EXCEPTION_POINTERS **ep = (EXCEPTION_POINTERS**)__pxcptinfoptrs(), *old_ep;
-
-                old_ep = *ep;
-                *ep = except;
-                sighandlers[SIGSEGV] = SIG_DFL;
-                handler(SIGSEGV);
-                *ep = old_ep;
-            }
-            ret = EXCEPTION_CONTINUE_EXECUTION;
-        }
-        break;
-    /* According to msdn,
-     * the FPE signal handler takes as a second argument the type of
-     * floating point exception.
-     */
-    case EXCEPTION_FLT_DENORMAL_OPERAND:
-    case EXCEPTION_FLT_DIVIDE_BY_ZERO:
-    case EXCEPTION_FLT_INEXACT_RESULT:
-    case EXCEPTION_FLT_INVALID_OPERATION:
-    case EXCEPTION_FLT_OVERFLOW:
-    case EXCEPTION_FLT_STACK_CHECK:
-    case EXCEPTION_FLT_UNDERFLOW:
-        if ((handler = sighandlers[SIGFPE]) != SIG_DFL)
-        {
-            if (handler != SIG_IGN)
-            {
-                EXCEPTION_POINTERS **ep = (EXCEPTION_POINTERS**)__pxcptinfoptrs(), *old_ep;
-                unsigned int i;
-                int float_signal = _FPE_INVALID;
-
-                sighandlers[SIGFPE] = SIG_DFL;
-                for (i = 0; i < ARRAY_SIZE(float_exception_map); i++)
-                {
-                    if (float_exception_map[i].status ==
-                        except->ExceptionRecord->ExceptionCode)
-                    {
-                        float_signal = float_exception_map[i].signal;
-                        break;
-                    }
-                }
-
-                old_ep = *ep;
-                *ep = except;
-                ((float_handler)handler)(SIGFPE, float_signal);
-                *ep = old_ep;
-            }
-            ret = EXCEPTION_CONTINUE_EXECUTION;
-        }
-        break;
-    case EXCEPTION_ILLEGAL_INSTRUCTION:
-    case EXCEPTION_PRIV_INSTRUCTION:
-        if ((handler = sighandlers[SIGILL]) != SIG_DFL)
-        {
-            if (handler != SIG_IGN)
-            {
-                EXCEPTION_POINTERS **ep = (EXCEPTION_POINTERS**)__pxcptinfoptrs(), *old_ep;
-
-                old_ep = *ep;
-                *ep = except;
-                sighandlers[SIGILL] = SIG_DFL;
-                handler(SIGILL);
-                *ep = old_ep;
-            }
-            ret = EXCEPTION_CONTINUE_EXECUTION;
-        }
-        break;
-    }
-    return ret;
-}
-
-void msvcrt_init_signals(void)
-{
-    SetConsoleCtrlHandler(msvcrt_console_handler, TRUE);
-}
-
-void msvcrt_free_signals(void)
-{
-    SetConsoleCtrlHandler(msvcrt_console_handler, FALSE);
-}
-
-#ifndef __REACTOS__ // Own implementation in signal/signal.c
-/*********************************************************************
- *		signal (MSVCRT.@)
- * Some signals may never be generated except through an explicit call to
- * raise.
- */
-__sighandler_t CDECL signal(int sig, __sighandler_t func)
-{
-    __sighandler_t ret = SIG_ERR;
-
-    TRACE("(%d, %p)\n", sig, func);
-
-    if (func == SIG_ERR) return SIG_ERR;
-
-    switch (sig)
-    {
-    /* Cases handled internally.  Note SIGTERM is never generated by Windows,
-     * so we effectively mask it.
-     */
-    case SIGABRT:
-    case SIGFPE:
-    case SIGILL:
-    case SIGSEGV:
-    case SIGINT:
-    case SIGTERM:
-    case SIGBREAK:
-        ret = sighandlers[sig];
-        sighandlers[sig] = func;
-        break;
-    default:
-        ret = SIG_ERR;
-    }
-    return ret;
-}
-
-/*********************************************************************
- *		raise (MSVCRT.@)
- */
-int CDECL raise(int sig)
-{
-    __sighandler_t handler;
-
-    TRACE("(%d)\n", sig);
-
-    switch (sig)
-    {
-    case SIGFPE:
-    case SIGILL:
-    case SIGSEGV:
-        handler = sighandlers[sig];
-        if (handler == SIG_DFL) _exit(3);
-        if (handler != SIG_IGN)
-        {
-            EXCEPTION_POINTERS **ep = (EXCEPTION_POINTERS**)__pxcptinfoptrs(), *old_ep;
-
-            sighandlers[sig] = SIG_DFL;
-
-            old_ep = *ep;
-            *ep = NULL;
-            if (sig == SIGFPE)
-                ((float_handler)handler)(sig, _FPE_EXPLICITGEN);
-            else
-                handler(sig);
-            *ep = old_ep;
-        }
-        break;
-    case SIGABRT:
-    case SIGINT:
-    case SIGTERM:
-    case SIGBREAK:
-        handler = sighandlers[sig];
-        if (handler == SIG_DFL) _exit(3);
-        if (handler != SIG_IGN)
-        {
-            sighandlers[sig] = SIG_DFL;
-            handler(sig);
-        }
-        break;
-    default:
-        return -1;
-    }
-    return 0;
-}
-#endif // __REACTOS__
-
-/*********************************************************************
- *		_XcptFilter (MSVCRT.@)
- */
-int CDECL _XcptFilter(NTSTATUS ex, PEXCEPTION_POINTERS ptr)
-{
-    TRACE("(%08x,%p)\n", ex, ptr);
-    /* I assume ptr->ExceptionRecord->ExceptionCode is the same as ex */
-    return msvcrt_exception_filter(ptr);
-}
-
-#ifndef __REACTOS__
-/*********************************************************************
- *		_abnormal_termination (MSVCRT.@)
- */
-int CDECL __intrinsic_abnormal_termination(void)
-{
-  FIXME("(void)stub\n");
-  return 0;
-}
-#endif /* __REACTOS__ */
-
-/******************************************************************
- *		__uncaught_exception (MSVCRT.@)
- */
-BOOL CDECL __uncaught_exception(void)
-{
-    return msvcrt_get_thread_data()->processing_throw != 0;
-}
-
-#if _MSVCR_VER>=70 && _MSVCR_VER<=71
-
-/*********************************************************************
- *		_set_security_error_handler (MSVCR70.@)
- */
-MSVCRT_security_error_handler CDECL _set_security_error_handler(
-    MSVCRT_security_error_handler handler )
-{
-    MSVCRT_security_error_handler old = security_error_handler;
-
-    TRACE("(%p)\n", handler);
-
-    security_error_handler = handler;
-    return old;
-}
-
-/*********************************************************************
- *		__security_error_handler (MSVCR70.@)
- */
-void CDECL __security_error_handler(int code, void *data)
-{
-    if(security_error_handler)
-        security_error_handler(code, data);
-    else
-        FIXME("(%d, %p) stub\n", code, data);
-
-    _exit(3);
-}
-
-#endif /* _MSVCR_VER>=70 && _MSVCR_VER<=71 */
-
-#if _MSVCR_VER>=110
-/*********************************************************************
- *  __crtSetUnhandledExceptionFilter (MSVCR110.@)
- */
-LPTOP_LEVEL_EXCEPTION_FILTER CDECL __crtSetUnhandledExceptionFilter(LPTOP_LEVEL_EXCEPTION_FILTER filter)
-{
-    return SetUnhandledExceptionFilter(filter);
-}
-#endif
-
-/*********************************************************************
- * _CreateFrameInfo (MSVCR80.@)
- */
-frame_info* CDECL _CreateFrameInfo(frame_info *fi, void *obj)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-
-    TRACE("(%p, %p)\n", fi, obj);
-
-    fi->next = data->frame_info_head;
-    data->frame_info_head = fi;
-    fi->object = obj;
-    return fi;
-}
-
-/*********************************************************************
- * _FindAndUnlinkFrame (MSVCR80.@)
- */
-void CDECL _FindAndUnlinkFrame(frame_info *fi)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-    frame_info *cur = data->frame_info_head;
-
-    TRACE("(%p)\n", fi);
-
-    if (cur == fi)
-    {
-        data->frame_info_head = cur->next;
-        return;
-    }
-
-    for (; cur->next; cur = cur->next)
-    {
-        if (cur->next == fi)
-        {
-            cur->next = fi->next;
-            return;
-        }
-    }
-
-    ERR("frame not found, native crashes in this case\n");
-}
-
-/*********************************************************************
- *              _IsExceptionObjectToBeDestroyed (MSVCR80.@)
- */
-BOOL __cdecl _IsExceptionObjectToBeDestroyed(const void *obj)
-{
-    frame_info *cur;
-
-    TRACE( "%p\n", obj );
-
-    for (cur = msvcrt_get_thread_data()->frame_info_head; cur; cur = cur->next)
-    {
-        if (cur->object == obj)
-            return FALSE;
-    }
-
-    return TRUE;
-}
-
-/*********************************************************************
- * __DestructExceptionObject (MSVCRT.@)
- */
-void CDECL __DestructExceptionObject(EXCEPTION_RECORD *rec)
-{
-    cxx_exception_type *info = (cxx_exception_type*) rec->ExceptionInformation[2];
-    void *object = (void*)rec->ExceptionInformation[1];
-
-    TRACE("(%p)\n", rec);
-
-    if (rec->ExceptionCode != CXX_EXCEPTION) return;
-#ifndef __x86_64__
-    if (rec->NumberParameters != 3) return;
-#else
-    if (rec->NumberParameters != 4) return;
-#endif
-    if (rec->ExceptionInformation[0] < CXX_FRAME_MAGIC_VC6 ||
-            rec->ExceptionInformation[0] > CXX_FRAME_MAGIC_VC8) return;
-
-    if (!info || !info->destructor)
-        return;
-
-#if defined(__i386__)
-#ifdef _MSC_VER
-    ((void(__fastcall*)(void*))info->destructor)(object);
-#else
-    __asm__ __volatile__("call *%0" : : "r" (info->destructor), "c" (object) : "eax", "edx", "memory");
-#endif
-#elif defined(__x86_64__)
-    ((void (__cdecl*)(void*))(info->destructor+rec->ExceptionInformation[3]))(object);
-#else
-    ((void (__cdecl*)(void*))info->destructor)(object);
-#endif
-}
-
-/*********************************************************************
- *  __CxxRegisterExceptionObject (MSVCRT.@)
- */
-BOOL CDECL __CxxRegisterExceptionObject(EXCEPTION_POINTERS *ep, cxx_frame_info *frame_info)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-
-    TRACE("(%p, %p)\n", ep, frame_info);
-
-    if (!ep || !ep->ExceptionRecord)
-    {
-        frame_info->rec = (void*)-1;
-        frame_info->context = (void*)-1;
-        return TRUE;
-    }
-
-    frame_info->rec = data->exc_record;
-    frame_info->context = data->ctx_record;
-    data->exc_record = ep->ExceptionRecord;
-    data->ctx_record = ep->ContextRecord;
-    _CreateFrameInfo(&frame_info->frame_info, (void*)ep->ExceptionRecord->ExceptionInformation[1]);
-    return TRUE;
-}
-
-/*********************************************************************
- *  __CxxUnregisterExceptionObject (MSVCRT.@)
- */
-void CDECL __CxxUnregisterExceptionObject(cxx_frame_info *frame_info, BOOL in_use)
-{
-    thread_data_t *data = msvcrt_get_thread_data();
-
-    TRACE("(%p)\n", frame_info);
-
-    if(frame_info->rec == (void*)-1)
-        return;
-
-    _FindAndUnlinkFrame(&frame_info->frame_info);
-    if(data->exc_record->ExceptionCode == CXX_EXCEPTION && !in_use
-            && _IsExceptionObjectToBeDestroyed((void*)data->exc_record->ExceptionInformation[1]))
-        __DestructExceptionObject(data->exc_record);
-    data->exc_record = frame_info->rec;
-    data->ctx_record = frame_info->context;
-}
-
-struct __std_exception_data {
-    char *what;
-    char dofree;
-};
-
-#if _MSVCR_VER>=140 || defined(__UCRTSUPPORT__)
-
-/*********************************************************************
- *  __std_exception_copy (UCRTBASE.@)
- */
-void CDECL __std_exception_copy(const struct __std_exception_data *src,
-                                       struct __std_exception_data *dst)
-{
-    TRACE("(%p %p)\n", src, dst);
-
-    if(src->dofree && src->what) {
-        dst->what   = _strdup(src->what);
-        dst->dofree = 1;
-    } else {
-        dst->what   = src->what;
-        dst->dofree = 0;
-    }
-}
-
-/*********************************************************************
- *  __std_exception_destroy (UCRTBASE.@)
- */
-void CDECL __std_exception_destroy(struct __std_exception_data *data)
-{
-    TRACE("(%p)\n", data);
-
-    if(data->dofree)
-        free(data->what);
-    data->what   = NULL;
-    data->dofree = 0;
-}
-
-/*********************************************************************
- *  __current_exception (UCRTBASE.@)
- */
-void** CDECL __current_exception(void)
-{
-    TRACE("()\n");
-    return (void**)&msvcrt_get_thread_data()->exc_record;
-}
-
-/*********************************************************************
- *  __current_exception_context (UCRTBASE.@)
- */
-void** CDECL __current_exception_context(void)
-{
-    TRACE("()\n");
-    return (void**)&msvcrt_get_thread_data()->ctx_record;
-}
-
-/*********************************************************************
- *  __processing_throw (UCRTBASE.@)
- */
-int* CDECL __processing_throw(void)
-{
-    TRACE("()\n");
-    return &msvcrt_get_thread_data()->processing_throw;
-}
-
-#endif /* _MSVCR_VER>=140 */

sdk/lib/crt/wine/except_arm.c

···
-/*
- * msvcrt C++ exception handling
- *
- * Copyright 2011 Alexandre Julliard
- * Copyright 2013 André Hentschel
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-#ifdef __arm__
-
-#include <setjmp.h>
-#include <stdarg.h>
-#include <fpieee.h>
-
-#include "ntstatus.h"
-#define WIN32_NO_STATUS
-#include "windef.h"
-#include "winbase.h"
-#include "winternl.h"
-#include "msvcrt.h"
-#include "wine/exception.h"
-#include "excpt.h"
-#include "wine/debug.h"
-
-#include "cppexcept.h"
-
-WINE_DEFAULT_DEBUG_CHANNEL(seh);
-
-
-/*********************************************************************
- *		__CxxExceptionFilter (MSVCRT.@)
- */
-int CDECL __CxxExceptionFilter( PEXCEPTION_POINTERS ptrs,
-                                const type_info *ti, int flags, void **copy )
-{
-    FIXME( "%p %p %x %p: not implemented\n", ptrs, ti, flags, copy );
-    return EXCEPTION_CONTINUE_SEARCH;
-}
-
-/*********************************************************************
- *		__CxxFrameHandler (MSVCRT.@)
- */
-EXCEPTION_DISPOSITION CDECL __CxxFrameHandler(EXCEPTION_RECORD *rec, DWORD frame, CONTEXT *context,
-                                              DISPATCHER_CONTEXT *dispatch)
-{
-    FIXME("%p %x %p %p: not implemented\n", rec, frame, context, dispatch);
-    return ExceptionContinueSearch;
-}
-
-
-/*********************************************************************
- *		__CppXcptFilter (MSVCRT.@)
- */
-int CDECL __CppXcptFilter(NTSTATUS ex, PEXCEPTION_POINTERS ptr)
-{
-    /* only filter c++ exceptions */
-    if (ex != CXX_EXCEPTION) return EXCEPTION_CONTINUE_SEARCH;
-    return _XcptFilter(ex, ptr);
-}
-
-
-/*********************************************************************
- *		__CxxDetectRethrow (MSVCRT.@)
- */
-BOOL CDECL __CxxDetectRethrow(PEXCEPTION_POINTERS ptrs)
-{
-    PEXCEPTION_RECORD rec;
-
-    if (!ptrs)
-        return FALSE;
-
-    rec = ptrs->ExceptionRecord;
-
-    if (rec->ExceptionCode == CXX_EXCEPTION &&
-        rec->NumberParameters == 3 &&
-        rec->ExceptionInformation[0] == CXX_FRAME_MAGIC_VC6 &&
-        rec->ExceptionInformation[2])
-    {
-        ptrs->ExceptionRecord = msvcrt_get_thread_data()->exc_record;
-        return TRUE;
-    }
-    return (msvcrt_get_thread_data()->exc_record == rec);
-}
-
-
-/*********************************************************************
- *		__CxxQueryExceptionSize (MSVCRT.@)
- */
-unsigned int CDECL __CxxQueryExceptionSize(void)
-{
-    return sizeof(cxx_exception_type);
-}
-
-
-/*******************************************************************
- *		_setjmp (MSVCRT.@)
- */
-__ASM_GLOBAL_FUNC(MSVCRT__setjmp,
-                  "b " __ASM_NAME("__wine_setjmpex"));
-
-/*******************************************************************
- *		longjmp (MSVCRT.@)
- */
-void __cdecl MSVCRT_longjmp(_JUMP_BUFFER *jmp, int retval)
-{
-    EXCEPTION_RECORD rec;
-
-    if (!retval) retval = 1;
-    if (jmp->Frame)
-    {
-        rec.ExceptionCode = STATUS_LONGJUMP;
-        rec.ExceptionFlags = 0;
-        rec.ExceptionRecord = NULL;
-        rec.ExceptionAddress = NULL;
-        rec.NumberParameters = 1;
-        rec.ExceptionInformation[0] = (DWORD_PTR)jmp;
-        RtlUnwind((void *)jmp->Frame, (void *)jmp->Pc, &rec, IntToPtr(retval));
-    }
-    __wine_longjmp( (__wine_jmp_buf *)jmp, retval );
-}
-
-/*********************************************************************
- *              _fpieee_flt (MSVCRT.@)
- */
-int __cdecl _fpieee_flt(__msvcrt_ulong exception_code, EXCEPTION_POINTERS *ep,
-        int (__cdecl *handler)(_FPIEEE_RECORD*))
-{
-    FIXME("(%lx %p %p)\n", exception_code, ep, handler);
-    return EXCEPTION_CONTINUE_SEARCH;
-}
-
-#endif  /* __arm__ */

sdk/lib/crt/wine/except_arm64.c

···
-/*
- * msvcrt C++ exception handling
- *
- * Copyright 2011 Alexandre Julliard
- * Copyright 2013 André Hentschel
- * Copyright 2017 Martin Storsjo
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-#ifdef __aarch64__
-
-#include <setjmp.h>
-#include <stdarg.h>
-#include <fpieee.h>
-
-#include "ntstatus.h"
-#define WIN32_NO_STATUS
-#include "windef.h"
-#include "winbase.h"
-#include "winternl.h"
-#include "msvcrt.h"
-#include "wine/exception.h"
-#include "excpt.h"
-#include "wine/debug.h"
-
-#include "cppexcept.h"
-
-WINE_DEFAULT_DEBUG_CHANNEL(seh);
-
-
-/*********************************************************************
- *		__CxxExceptionFilter (MSVCRT.@)
- */
-int CDECL __CxxExceptionFilter( PEXCEPTION_POINTERS ptrs,
-                                const type_info *ti, int flags, void **copy )
-{
-    FIXME( "%p %p %x %p: not implemented\n", ptrs, ti, flags, copy );
-    return EXCEPTION_CONTINUE_SEARCH;
-}
-
-/*********************************************************************
- *		__CxxFrameHandler (MSVCRT.@)
- */
-EXCEPTION_DISPOSITION CDECL __CxxFrameHandler(EXCEPTION_RECORD *rec, DWORD frame, CONTEXT *context,
-                                              DISPATCHER_CONTEXT *dispatch)
-{
-    FIXME("%p %x %p %p: not implemented\n", rec, frame, context, dispatch);
-    return ExceptionContinueSearch;
-}
-
-
-/*********************************************************************
- *		__CppXcptFilter (MSVCRT.@)
- */
-int CDECL __CppXcptFilter(NTSTATUS ex, PEXCEPTION_POINTERS ptr)
-{
-    /* only filter c++ exceptions */
-    if (ex != CXX_EXCEPTION) return EXCEPTION_CONTINUE_SEARCH;
-    return _XcptFilter(ex, ptr);
-}
-
-
-/*********************************************************************
- *		__CxxDetectRethrow (MSVCRT.@)
- */
-BOOL CDECL __CxxDetectRethrow(PEXCEPTION_POINTERS ptrs)
-{
-    PEXCEPTION_RECORD rec;
-
-    if (!ptrs)
-        return FALSE;
-
-    rec = ptrs->ExceptionRecord;
-
-    if (rec->ExceptionCode == CXX_EXCEPTION &&
-        rec->NumberParameters == 3 &&
-        rec->ExceptionInformation[0] == CXX_FRAME_MAGIC_VC6 &&
-        rec->ExceptionInformation[2])
-    {
-        ptrs->ExceptionRecord = msvcrt_get_thread_data()->exc_record;
-        return TRUE;
-    }
-    return (msvcrt_get_thread_data()->exc_record == rec);
-}
-
-
-/*********************************************************************
- *		__CxxQueryExceptionSize (MSVCRT.@)
- */
-unsigned int CDECL __CxxQueryExceptionSize(void)
-{
-    return sizeof(cxx_exception_type);
-}
-
-
-/*******************************************************************
- *		_setjmp (MSVCRT.@)
- */
-__ASM_GLOBAL_FUNC(MSVCRT__setjmp,
-                  "b " __ASM_NAME("__wine_setjmpex"));
-
-/*******************************************************************
- *		longjmp (MSVCRT.@)
- */
-void __cdecl MSVCRT_longjmp(_JUMP_BUFFER *jmp, int retval)
-{
-    EXCEPTION_RECORD rec;
-
-    if (!retval) retval = 1;
-    if (jmp->Frame)
-    {
-        rec.ExceptionCode = STATUS_LONGJUMP;
-        rec.ExceptionFlags = 0;
-        rec.ExceptionRecord = NULL;
-        rec.ExceptionAddress = NULL;
-        rec.NumberParameters = 1;
-        rec.ExceptionInformation[0] = (DWORD_PTR)jmp;
-        RtlUnwind((void *)jmp->Frame, (void *)jmp->Lr, &rec, IntToPtr(retval));
-    }
-    __wine_longjmp( (__wine_jmp_buf *)jmp, retval );
-}
-
-/*********************************************************************
- *              _fpieee_flt (MSVCRT.@)
- */
-int __cdecl _fpieee_flt(__msvcrt_ulong exception_code, EXCEPTION_POINTERS *ep,
-        int (__cdecl *handler)(_FPIEEE_RECORD*))
-{
-    FIXME("(%lx %p %p)\n", exception_code, ep, handler);
-    return EXCEPTION_CONTINUE_SEARCH;
-}
-
-#endif  /* __aarch64__ */

sdk/lib/crt/wine/except_i386.c

···
-/*
- * msvcrt C++ exception handling
- *
- * Copyright 2000 Jon Griffiths
- * Copyright 2002 Alexandre Julliard
- * Copyright 2005 Juan Lang
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- *
- * NOTES
- * A good reference is the article "How a C++ compiler implements
- * exception handling" by Vishal Kochhar, available on
- * www.thecodeproject.com.
- */
-
-#ifdef __i386__
-
-#include <setjmp.h>
-#include <stdarg.h>
-#include <fpieee.h>
-
-#include "windef.h"
-#include "winbase.h"
-#include "winternl.h"
-#include "msvcrt.h"
-#include "wine/exception.h"
-#include "excpt.h"
-#include "wine/debug.h"
-
-#include "cppexcept.h"
-
-WINE_DEFAULT_DEBUG_CHANNEL(seh);
-
-
-/* the exception frame used by CxxFrameHandler */
-typedef struct __cxx_exception_frame
-{
-    EXCEPTION_REGISTRATION_RECORD  frame;    /* the standard exception frame */
-    int                            trylevel;
-    DWORD                          ebp;
-} cxx_exception_frame;
-
-/* info about a single catch {} block */
-typedef struct __catchblock_info
-{
-    UINT             flags;         /* flags (see below) */
-    const type_info *type_info;     /* C++ type caught by this block */
-    int              offset;        /* stack offset to copy exception object to */
-    void *         (*handler)(void);/* catch block handler code */
-} catchblock_info;
-#define TYPE_FLAG_CONST      1
-#define TYPE_FLAG_VOLATILE   2
-#define TYPE_FLAG_REFERENCE  8
-
-/* info about a single try {} block */
-typedef struct __tryblock_info
-{
-    int                    start_level;      /* start trylevel of that block */
-    int                    end_level;        /* end trylevel of that block */
-    int                    catch_level;      /* initial trylevel of the catch block */
-    int                    catchblock_count; /* count of catch blocks in array */
-    const catchblock_info *catchblock;       /* array of catch blocks */
-} tryblock_info;
-
-/* info about the unwind handler for a given trylevel */
-typedef struct __unwind_info
-{
-    int      prev;          /* prev trylevel unwind handler, to run after this one */
-    void * (*handler)(void);/* unwind handler */
-} unwind_info;
-
-/* descriptor of all try blocks of a given function */
-typedef struct __cxx_function_descr
-{
-    UINT                 magic;          /* must be CXX_FRAME_MAGIC */
-    UINT                 unwind_count;   /* number of unwind handlers */
-    const unwind_info   *unwind_table;   /* array of unwind handlers */
-    UINT                 tryblock_count; /* number of try blocks */
-    const tryblock_info *tryblock;       /* array of try blocks */
-    UINT                 ipmap_count;
-    const void          *ipmap;
-    const void          *expect_list;    /* expected exceptions list when magic >= VC7 */
-    UINT                 flags;          /* flags when magic >= VC8 */
-} cxx_function_descr;
-
-/* exception frame for nested exceptions in catch block */
-typedef struct
-{
-    EXCEPTION_REGISTRATION_RECORD frame;     /* standard exception frame */
-    cxx_exception_frame          *cxx_frame; /* frame of parent exception */
-    const cxx_function_descr     *descr;     /* descriptor of parent exception */
-    int                           trylevel;  /* current try level */
-    cxx_frame_info                frame_info;
-} catch_func_nested_frame;
-
-typedef struct
-{
-    cxx_exception_frame *frame;
-    const cxx_function_descr *descr;
-    catch_func_nested_frame *nested_frame;
-} se_translator_ctx;
-
-typedef struct _SCOPETABLE
-{
-  int previousTryLevel;
-  int (*lpfnFilter)(PEXCEPTION_POINTERS);
-  void * (*lpfnHandler)(void);
-} SCOPETABLE, *PSCOPETABLE;
-
-typedef struct MSVCRT_EXCEPTION_FRAME
-{
-  EXCEPTION_REGISTRATION_RECORD *prev;
-  void (*handler)(PEXCEPTION_RECORD, EXCEPTION_REGISTRATION_RECORD*,
-                  PCONTEXT, PEXCEPTION_RECORD);
-  PSCOPETABLE scopetable;
-  int trylevel;
-  int _ebp;
-  PEXCEPTION_POINTERS xpointers;
-} MSVCRT_EXCEPTION_FRAME;
-
-typedef struct
-{
-  int   gs_cookie_offset;
-  ULONG gs_cookie_xor;
-  int   eh_cookie_offset;
-  ULONG eh_cookie_xor;
-  SCOPETABLE entries[1];
-} SCOPETABLE_V4;
-
-#define TRYLEVEL_END (-1) /* End of trylevel list */
-
-DWORD CDECL cxx_frame_handler( PEXCEPTION_RECORD rec, cxx_exception_frame* frame,
-                               PCONTEXT context, EXCEPTION_REGISTRATION_RECORD** dispatch,
-                               const cxx_function_descr *descr,
-                               catch_func_nested_frame* nested_frame ) DECLSPEC_HIDDEN;
-
-/* call a copy constructor */
-extern void call_copy_ctor( void *func, void *this, void *src, int has_vbase );
-
-__ASM_GLOBAL_FUNC( call_copy_ctor,
-                   "pushl %ebp\n\t"
-                   __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")
-                   __ASM_CFI(".cfi_rel_offset %ebp,0\n\t")
-                   "movl %esp, %ebp\n\t"
-                   __ASM_CFI(".cfi_def_cfa_register %ebp\n\t")
-                   "pushl $1\n\t"
-                   "movl 12(%ebp), %ecx\n\t"
-                   "pushl 16(%ebp)\n\t"
-                   "call *8(%ebp)\n\t"
-                   "leave\n"
-                   __ASM_CFI(".cfi_def_cfa %esp,4\n\t")
-                   __ASM_CFI(".cfi_same_value %ebp\n\t")
-                   "ret" );
-
-/* continue execution to the specified address after exception is caught */
-extern void DECLSPEC_NORETURN continue_after_catch( cxx_exception_frame* frame, void *addr );
-
-__ASM_GLOBAL_FUNC( continue_after_catch,
-                   "movl 4(%esp), %edx\n\t"
-                   "movl 8(%esp), %eax\n\t"
-                   "movl -4(%edx), %esp\n\t"
-                   "leal 12(%edx), %ebp\n\t"
-                   "jmp *%eax" );
-
-extern void DECLSPEC_NORETURN call_finally_block( void *code_block, void *base_ptr );
-
-__ASM_GLOBAL_FUNC( call_finally_block,
-                   "movl 8(%esp), %ebp\n\t"
-                   "jmp *4(%esp)" );
-
-extern int call_filter( int (*func)(PEXCEPTION_POINTERS), void *arg, void *ebp );
-
-__ASM_GLOBAL_FUNC( call_filter,
-                   "pushl %ebp\n\t"
-                   "pushl 12(%esp)\n\t"
-                   "movl 20(%esp), %ebp\n\t"
-                   "call *12(%esp)\n\t"
-                   "popl %ebp\n\t"
-                   "popl %ebp\n\t"
-                   "ret" );
-
-extern void *call_handler( void * (*func)(void), void *ebp );
-
-__ASM_GLOBAL_FUNC( call_handler,
-                   "pushl %ebp\n\t"
-                   "pushl %ebx\n\t"
-                   "pushl %esi\n\t"
-                   "pushl %edi\n\t"
-                   "movl 24(%esp), %ebp\n\t"
-                   "call *20(%esp)\n\t"
-                   "popl %edi\n\t"
-                   "popl %esi\n\t"
-                   "popl %ebx\n\t"
-                   "popl %ebp\n\t"
-                   "ret" );
-
-static inline void dump_type( const cxx_type_info *type )
-{
-    TRACE( "flags %x type %p %s offsets %d,%d,%d size %d copy ctor %p\n",
-             type->flags, type->type_info, dbgstr_type_info(type->type_info),
-             type->offsets.this_offset, type->offsets.vbase_descr, type->offsets.vbase_offset,
-             type->size, type->copy_ctor );
-}
-
-static void dump_exception_type( const cxx_exception_type *type )
-{
-    UINT i;
-
-    TRACE( "flags %x destr %p handler %p type info %p\n",
-             type->flags, type->destructor, type->custom_handler, type->type_info_table );
-    for (i = 0; i < type->type_info_table->count; i++)
-    {
-        TRACE( "    %d: ", i );
-        dump_type( type->type_info_table->info[i] );
-    }
-}
-
-static void dump_function_descr( const cxx_function_descr *descr )
-{
-    UINT i;
-    int j;
-
-    TRACE( "magic %x\n", descr->magic );
-    TRACE( "unwind table: %p %d\n", descr->unwind_table, descr->unwind_count );
-    for (i = 0; i < descr->unwind_count; i++)
-    {
-        TRACE( "    %d: prev %d func %p\n", i,
-                 descr->unwind_table[i].prev, descr->unwind_table[i].handler );
-    }
-    TRACE( "try table: %p %d\n", descr->tryblock, descr->tryblock_count );
-    for (i = 0; i < descr->tryblock_count; i++)
-    {
-        TRACE( "    %d: start %d end %d catchlevel %d catch %p %d\n", i,
-                 descr->tryblock[i].start_level, descr->tryblock[i].end_level,
-                 descr->tryblock[i].catch_level, descr->tryblock[i].catchblock,
-                 descr->tryblock[i].catchblock_count );
-        for (j = 0; j < descr->tryblock[i].catchblock_count; j++)
-        {
-            const catchblock_info *ptr = &descr->tryblock[i].catchblock[j];
-            TRACE( "        %d: flags %x offset %d handler %p type %p %s\n",
-                     j, ptr->flags, ptr->offset, ptr->handler,
-                     ptr->type_info, dbgstr_type_info( ptr->type_info ) );
-        }
-    }
-    if (descr->magic <= CXX_FRAME_MAGIC_VC6) return;
-    TRACE( "expect list: %p\n", descr->expect_list );
-    if (descr->magic <= CXX_FRAME_MAGIC_VC7) return;
-    TRACE( "flags: %08x\n", descr->flags );
-}
-
-/* check if the exception type is caught by a given catch block, and return the type that matched */
-static const cxx_type_info *find_caught_type( cxx_exception_type *exc_type,
-                                              const type_info *catch_ti, UINT catch_flags )
-{
-    UINT i;
-
-    for (i = 0; i < exc_type->type_info_table->count; i++)
-    {
-        const cxx_type_info *type = exc_type->type_info_table->info[i];
-
-        if (!catch_ti) return type;   /* catch(...) matches any type */
-        if (catch_ti != type->type_info)
-        {
-            if (strcmp( catch_ti->mangled, type->type_info->mangled )) continue;
-        }
-        /* type is the same, now check the flags */
-        if ((exc_type->flags & TYPE_FLAG_CONST) &&
-            !(catch_flags & TYPE_FLAG_CONST)) continue;
-        if ((exc_type->flags & TYPE_FLAG_VOLATILE) &&
-            !(catch_flags & TYPE_FLAG_VOLATILE)) continue;
-        return type;  /* it matched */
-    }
-    return NULL;
-}
-
-
-/* copy the exception object where the catch block wants it */
-static void copy_exception( void *object, cxx_exception_frame *frame,
-                            const catchblock_info *catchblock, const cxx_type_info *type )
-{
-    void **dest_ptr;
-
-    if (!catchblock->type_info || !catchblock->type_info->mangled[0]) return;
-    if (!catchblock->offset) return;
-    dest_ptr = (void **)((char *)&frame->ebp + catchblock->offset);
-
-    if (catchblock->flags & TYPE_FLAG_REFERENCE)
-    {
-        *dest_ptr = get_this_pointer( &type->offsets, object );
-    }
-    else if (type->flags & CLASS_IS_SIMPLE_TYPE)
-    {
-        memmove( dest_ptr, object, type->size );
-        /* if it is a pointer, adjust it */
-        if (type->size == sizeof(void *)) *dest_ptr = get_this_pointer( &type->offsets, *dest_ptr );
-    }
-    else  /* copy the object */
-    {
-        if (type->copy_ctor)
-            call_copy_ctor( type->copy_ctor, dest_ptr, get_this_pointer(&type->offsets,object),
-                            (type->flags & CLASS_HAS_VIRTUAL_BASE_CLASS) );
-        else
-            memmove( dest_ptr, get_this_pointer(&type->offsets,object), type->size );
-    }
-}
-
-/* unwind the local function up to a given trylevel */
-static void cxx_local_unwind( cxx_exception_frame* frame, const cxx_function_descr *descr, int last_level)
-{
-    void * (*handler)(void);
-    int trylevel = frame->trylevel;
-
-    while (trylevel != last_level)
-    {
-        if (trylevel < 0 || trylevel >= descr->unwind_count)
-        {
-            ERR( "invalid trylevel %d\n", trylevel );
-            terminate();
-        }
-        handler = descr->unwind_table[trylevel].handler;
-        if (handler)
-        {
-            TRACE( "calling unwind handler %p trylevel %d last %d ebp %p\n",
-                   handler, trylevel, last_level, &frame->ebp );
-            call_handler( handler, &frame->ebp );
-        }
-        trylevel = descr->unwind_table[trylevel].prev;
-    }
-    frame->trylevel = last_level;
-}
-
-/* handler for exceptions happening while calling a catch function */
-static DWORD catch_function_nested_handler( EXCEPTION_RECORD *rec, EXCEPTION_REGISTRATION_RECORD *frame,
-                                            CONTEXT *context, EXCEPTION_REGISTRATION_RECORD **dispatcher )
-{
-    catch_func_nested_frame *nested_frame = (catch_func_nested_frame *)frame;
-
-    if (rec->ExceptionFlags & (EH_UNWINDING | EH_EXIT_UNWIND))
-    {
-        __CxxUnregisterExceptionObject(&nested_frame->frame_info, FALSE);
-        return ExceptionContinueSearch;
-    }
-
-    TRACE( "got nested exception in catch function\n" );
-
-    if(rec->ExceptionCode == CXX_EXCEPTION)
-    {
-        PEXCEPTION_RECORD prev_rec = msvcrt_get_thread_data()->exc_record;
-
-        if((rec->ExceptionInformation[1] == 0 && rec->ExceptionInformation[2] == 0) ||
-                (prev_rec->ExceptionCode == CXX_EXCEPTION &&
-                 rec->ExceptionInformation[1] == prev_rec->ExceptionInformation[1] &&
-                 rec->ExceptionInformation[2] == prev_rec->ExceptionInformation[2]))
-        {
-            /* exception was rethrown */
-            *rec = *prev_rec;
-            rec->ExceptionFlags &= ~EH_UNWINDING;
-            if(TRACE_ON(seh)) {
-                TRACE("detect rethrow: exception code: %x\n", rec->ExceptionCode);
-                if(rec->ExceptionCode == CXX_EXCEPTION)
-                    TRACE("re-propagate: obj: %lx, type: %lx\n",
-                            rec->ExceptionInformation[1], rec->ExceptionInformation[2]);
-            }
-        }
-        else
-        {
-            TRACE("detect threw new exception in catch block\n");
-        }
-    }
-
-    return cxx_frame_handler( rec, nested_frame->cxx_frame, context,
-                              NULL, nested_frame->descr, nested_frame );
-}
-
-/* find and call the appropriate catch block for an exception */
-/* returns the address to continue execution to after the catch block was called */
-static inline void call_catch_block( PEXCEPTION_RECORD rec, CONTEXT *context,
-                                     cxx_exception_frame *frame,
-                                     const cxx_function_descr *descr,
-                                     catch_func_nested_frame *catch_frame,
-                                     cxx_exception_type *info )
-{
-    UINT i;
-    int j;
-    void *addr, *object = (void *)rec->ExceptionInformation[1];
-    catch_func_nested_frame nested_frame;
-    int trylevel = frame->trylevel;
-    DWORD save_esp = ((DWORD*)frame)[-1];
-    thread_data_t *data = msvcrt_get_thread_data();
-
-    data->processing_throw++;
-    for (i = 0; i < descr->tryblock_count; i++)
-    {
-        const tryblock_info *tryblock = &descr->tryblock[i];
-
-        /* only handle try blocks inside current catch block */
-        if (catch_frame && catch_frame->trylevel > tryblock->start_level) continue;
-
-        if (trylevel < tryblock->start_level) continue;
-        if (trylevel > tryblock->end_level) continue;
-
-        /* got a try block */
-        for (j = 0; j < tryblock->catchblock_count; j++)
-        {
-            const catchblock_info *catchblock = &tryblock->catchblock[j];
-            if(info)
-            {
-                const cxx_type_info *type = find_caught_type( info,
-                        catchblock->type_info, catchblock->flags );
-                if (!type) continue;
-
-                TRACE( "matched type %p in tryblock %d catchblock %d\n", type, i, j );
-
-                /* copy the exception to its destination on the stack */
-                copy_exception( object, frame, catchblock, type );
-            }
-            else
-            {
-                /* no CXX_EXCEPTION only proceed with a catch(...) block*/
-                if(catchblock->type_info)
-                    continue;
-                TRACE("found catch(...) block\n");
-            }
-
-            /* Add frame info here so exception is not freed inside RtlUnwind call */
-            _CreateFrameInfo(&nested_frame.frame_info.frame_info,
-                    (void*)rec->ExceptionInformation[1]);
-
-            /* unwind the stack */
-            RtlUnwind( catch_frame ? &catch_frame->frame : &frame->frame, 0, rec, 0 );
-            cxx_local_unwind( frame, descr, tryblock->start_level );
-            frame->trylevel = tryblock->end_level + 1;
-
-            nested_frame.frame_info.rec = data->exc_record;
-            nested_frame.frame_info.context = data->ctx_record;
-            data->exc_record = rec;
-            data->ctx_record = context;
-            data->processing_throw--;
-
-            /* call the catch block */
-            TRACE( "calling catch block %p addr %p ebp %p\n",
-                   catchblock, catchblock->handler, &frame->ebp );
-
-            /* setup an exception block for nested exceptions */
-            nested_frame.frame.Handler = catch_function_nested_handler;
-            nested_frame.cxx_frame = frame;
-            nested_frame.descr     = descr;
-            nested_frame.trylevel  = tryblock->end_level + 1;
-
-            __wine_push_frame( &nested_frame.frame );
-            addr = call_handler( catchblock->handler, &frame->ebp );
-            __wine_pop_frame( &nested_frame.frame );
-
-            ((DWORD*)frame)[-1] = save_esp;
-            __CxxUnregisterExceptionObject(&nested_frame.frame_info, FALSE);
-            TRACE( "done, continuing at %p\n", addr );
-
-            continue_after_catch( frame, addr );
-        }
-    }
-    data->processing_throw--;
-}
-
-/*********************************************************************
- *		__CxxExceptionFilter (MSVCRT.@)
- */
-int CDECL __CxxExceptionFilter( PEXCEPTION_POINTERS ptrs,
-                                const type_info *ti, int flags, void **copy)
-{
-    const cxx_type_info *type;
-    PEXCEPTION_RECORD rec;
-
-    TRACE( "%p %p %x %p\n", ptrs, ti, flags, copy );
-
-    if (!ptrs) return EXCEPTION_CONTINUE_SEARCH;
-
-    /* handle catch(...) */
-    if (!ti) return EXCEPTION_EXECUTE_HANDLER;
-
-    rec = ptrs->ExceptionRecord;
-    if (rec->ExceptionCode != CXX_EXCEPTION || rec->NumberParameters != 3 ||
-            rec->ExceptionInformation[0] < CXX_FRAME_MAGIC_VC6 ||
-            rec->ExceptionInformation[0] > CXX_FRAME_MAGIC_VC8)
-        return EXCEPTION_CONTINUE_SEARCH;
-
-    if (rec->ExceptionInformation[1] == 0 && rec->ExceptionInformation[2] == 0)
-    {
-        rec = msvcrt_get_thread_data()->exc_record;
-        if (!rec) return EXCEPTION_CONTINUE_SEARCH;
-    }
-
-    type = find_caught_type( (cxx_exception_type*)rec->ExceptionInformation[2], ti, flags );
-    if (!type) return EXCEPTION_CONTINUE_SEARCH;
-
-    if (copy)
-    {
-        void *object = (void *)rec->ExceptionInformation[1];
-
-        if (flags & TYPE_FLAG_REFERENCE)
-        {
-            *copy = get_this_pointer( &type->offsets, object );
-        }
-        else if (type->flags & CLASS_IS_SIMPLE_TYPE)
-        {
-            memmove( copy, object, type->size );
-            /* if it is a pointer, adjust it */
-            if (type->size == sizeof(void*)) *copy = get_this_pointer( &type->offsets, *copy );
-        }
-        else  /* copy the object */
-        {
-            if (type->copy_ctor)
-                call_copy_ctor( type->copy_ctor, copy, get_this_pointer(&type->offsets,object),
-                        (type->flags & CLASS_HAS_VIRTUAL_BASE_CLASS) );
-            else
-                memmove( copy, get_this_pointer(&type->offsets,object), type->size );
-        }
-    }
-    return EXCEPTION_EXECUTE_HANDLER;
-}
-
-static LONG CALLBACK se_translation_filter( EXCEPTION_POINTERS *ep, void *c )
-{
-    se_translator_ctx *ctx = (se_translator_ctx *)c;
-    EXCEPTION_RECORD *rec = ep->ExceptionRecord;
-    cxx_exception_type *exc_type;
-
-    if (rec->ExceptionCode != CXX_EXCEPTION)
-    {
-        TRACE( "non-c++ exception thrown in SEH handler: %x\n", rec->ExceptionCode );
-        terminate();
-    }
-
-    exc_type = (cxx_exception_type *)rec->ExceptionInformation[2];
-    call_catch_block( rec, ep->ContextRecord, ctx->frame, ctx->descr,
-            ctx->nested_frame, exc_type );
-
-    __DestructExceptionObject( rec );
-    return ExceptionContinueSearch;
-}
-
-static void check_noexcept( PEXCEPTION_RECORD rec,
-        const cxx_function_descr *descr, BOOL nested )
-{
-    if (!nested && rec->ExceptionCode == CXX_EXCEPTION &&
-            descr->magic >= CXX_FRAME_MAGIC_VC8 &&
-            (descr->flags & FUNC_DESCR_NOEXCEPT))
-    {
-        ERR("noexcept function propagating exception\n");
-        terminate();
-    }
-}
-
-/*********************************************************************
- *		cxx_frame_handler
- *
- * Implementation of __CxxFrameHandler.
- */
-DWORD CDECL cxx_frame_handler( PEXCEPTION_RECORD rec, cxx_exception_frame* frame,
-                               PCONTEXT context, EXCEPTION_REGISTRATION_RECORD** dispatch,
-                               const cxx_function_descr *descr,
-                               catch_func_nested_frame* nested_frame )
-{
-    cxx_exception_type *exc_type;
-
-    if (descr->magic < CXX_FRAME_MAGIC_VC6 || descr->magic > CXX_FRAME_MAGIC_VC8)
-    {
-        ERR( "invalid frame magic %x\n", descr->magic );
-        return ExceptionContinueSearch;
-    }
-    if (descr->magic >= CXX_FRAME_MAGIC_VC8 &&
-        (descr->flags & FUNC_DESCR_SYNCHRONOUS) &&
-        (rec->ExceptionCode != CXX_EXCEPTION))
-        return ExceptionContinueSearch;  /* handle only c++ exceptions */
-
-    if (rec->ExceptionFlags & (EH_UNWINDING|EH_EXIT_UNWIND))
-    {
-        if (descr->unwind_count && !nested_frame) cxx_local_unwind( frame, descr, -1 );
-        return ExceptionContinueSearch;
-    }
-    if (!descr->tryblock_count)
-    {
-        check_noexcept(rec, descr, nested_frame != NULL);
-        return ExceptionContinueSearch;
-    }
-
-    if(rec->ExceptionCode == CXX_EXCEPTION &&
-            rec->ExceptionInformation[1] == 0 && rec->ExceptionInformation[2] == 0)
-    {
-        *rec = *msvcrt_get_thread_data()->exc_record;
-        rec->ExceptionFlags &= ~EH_UNWINDING;
-        if(TRACE_ON(seh)) {
-            TRACE("detect rethrow: exception code: %x\n", rec->ExceptionCode);
-            if(rec->ExceptionCode == CXX_EXCEPTION)
-                TRACE("re-propagate: obj: %lx, type: %lx\n",
-                        rec->ExceptionInformation[1], rec->ExceptionInformation[2]);
-        }
-    }
-
-    if(rec->ExceptionCode == CXX_EXCEPTION)
-    {
-        exc_type = (cxx_exception_type *)rec->ExceptionInformation[2];
-
-        if (rec->ExceptionInformation[0] > CXX_FRAME_MAGIC_VC8 &&
-                exc_type->custom_handler)
-        {
-            return exc_type->custom_handler( rec, frame, context, dispatch, descr,
-                                         nested_frame ? nested_frame->trylevel : 0,
-                                         nested_frame ? &nested_frame->frame : NULL, 0 );
-        }
-
-        if (TRACE_ON(seh))
-        {
-            TRACE("handling C++ exception rec %p frame %p trylevel %d descr %p nested_frame %p\n",
-                  rec, frame, frame->trylevel, descr, nested_frame );
-            dump_exception_type( exc_type );
-            dump_function_descr( descr );
-        }
-    }
-    else
-    {
-        thread_data_t *data = msvcrt_get_thread_data();
-
-        exc_type = NULL;
-        TRACE("handling C exception code %x  rec %p frame %p trylevel %d descr %p nested_frame %p\n",
-              rec->ExceptionCode,  rec, frame, frame->trylevel, descr, nested_frame );
-
-        if (data->se_translator) {
-            EXCEPTION_POINTERS except_ptrs;
-            se_translator_ctx ctx;
-
-            ctx.frame = frame;
-            ctx.descr = descr;
-            ctx.nested_frame = nested_frame;
-            __TRY
-            {
-                except_ptrs.ExceptionRecord = rec;
-                except_ptrs.ContextRecord = context;
-                data->se_translator( rec->ExceptionCode, &except_ptrs );
-            }
-            __EXCEPT_CTX(se_translation_filter, &ctx)
-            {
-            }
-            __ENDTRY
-        }
-    }
-
-    call_catch_block( rec, context, frame, descr,
-            nested_frame, exc_type );
-    check_noexcept(rec, descr, nested_frame != NULL);
-    return ExceptionContinueSearch;
-}
-
-
-/*********************************************************************
- *		__CxxFrameHandler (MSVCRT.@)
- */
-extern DWORD CDECL __CxxFrameHandler( PEXCEPTION_RECORD rec, EXCEPTION_REGISTRATION_RECORD* frame,
-                                      PCONTEXT context, EXCEPTION_REGISTRATION_RECORD** dispatch );
-__ASM_GLOBAL_FUNC( __CxxFrameHandler,
-                   "pushl $0\n\t"        /* nested_trylevel */
-                   __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")
-                   "pushl $0\n\t"        /* nested_frame */
-                   __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")
-                   "pushl %eax\n\t"      /* descr */
-                   __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")
-                   "pushl 28(%esp)\n\t"  /* dispatch */
-                   __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")
-                   "pushl 28(%esp)\n\t"  /* context */
-                   __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")
-                   "pushl 28(%esp)\n\t"  /* frame */
-                   __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")
-                   "pushl 28(%esp)\n\t"  /* rec */
-                   __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")
-                   "call " __ASM_NAME("cxx_frame_handler") "\n\t"
-                   "add $28,%esp\n\t"
-                   __ASM_CFI(".cfi_adjust_cfa_offset -28\n\t")
-                   "ret" )
-
-
-/*********************************************************************
- *		__CxxLongjmpUnwind (MSVCRT.@)
- *
- * Callback meant to be used as UnwindFunc for setjmp/longjmp.
- */
-void __stdcall __CxxLongjmpUnwind( const _JUMP_BUFFER *buf )
-{
-    cxx_exception_frame *frame = (cxx_exception_frame *)buf->Registration;
-    const cxx_function_descr *descr = (const cxx_function_descr *)buf->UnwindData[0];
-
-    TRACE( "unwinding frame %p descr %p trylevel %ld\n", frame, descr, buf->TryLevel );
-    cxx_local_unwind( frame, descr, buf->TryLevel );
-}
-
-/*********************************************************************
- *		__CppXcptFilter (MSVCRT.@)
- */
-int CDECL __CppXcptFilter(NTSTATUS ex, PEXCEPTION_POINTERS ptr)
-{
-    /* only filter c++ exceptions */
-    if (ex != CXX_EXCEPTION) return EXCEPTION_CONTINUE_SEARCH;
-    return _XcptFilter( ex, ptr );
-}
-
-/*********************************************************************
- *		__CxxDetectRethrow (MSVCRT.@)
- */
-BOOL CDECL __CxxDetectRethrow(PEXCEPTION_POINTERS ptrs)
-{
-  PEXCEPTION_RECORD rec;
-
-  if (!ptrs)
-    return FALSE;
-
-  rec = ptrs->ExceptionRecord;
-
-  if (rec->ExceptionCode == CXX_EXCEPTION &&
-      rec->NumberParameters == 3 &&
-      rec->ExceptionInformation[0] == CXX_FRAME_MAGIC_VC6 &&
-      rec->ExceptionInformation[2])
-  {
-    ptrs->ExceptionRecord = msvcrt_get_thread_data()->exc_record;
-    return TRUE;
-  }
-  return (msvcrt_get_thread_data()->exc_record == rec);
-}
-
-/*********************************************************************
- *		__CxxQueryExceptionSize (MSVCRT.@)
- */
-unsigned int CDECL __CxxQueryExceptionSize(void)
-{
-  return sizeof(cxx_exception_type);
-}
-
-
-/*********************************************************************
- *		_EH_prolog (MSVCRT.@)
- */
-
-/* Provided for VC++ binary compatibility only */
-__ASM_GLOBAL_FUNC(_EH_prolog,
-                  __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")  /* skip ret addr */
-                  "pushl $-1\n\t"
-                  __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")
-                  "pushl %eax\n\t"
-                  __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")
-                  "pushl %fs:0\n\t"
-                  __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")
-                  "movl  %esp, %fs:0\n\t"
-                  "movl  12(%esp), %eax\n\t"
-                  "movl  %ebp, 12(%esp)\n\t"
-                  "leal  12(%esp), %ebp\n\t"
-                  "pushl %eax\n\t"
-                  __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")
-                  "ret")
-
-static const SCOPETABLE_V4 *get_scopetable_v4( MSVCRT_EXCEPTION_FRAME *frame, ULONG_PTR cookie )
-{
-    return (const SCOPETABLE_V4 *)((ULONG_PTR)frame->scopetable ^ cookie);
-}
-
-static DWORD MSVCRT_nested_handler(PEXCEPTION_RECORD rec,
-                                   EXCEPTION_REGISTRATION_RECORD* frame,
-                                   PCONTEXT context,
-                                   EXCEPTION_REGISTRATION_RECORD** dispatch)
-{
-  if (!(rec->ExceptionFlags & (EH_UNWINDING | EH_EXIT_UNWIND)))
-    return ExceptionContinueSearch;
-  *dispatch = frame;
-  return ExceptionCollidedUnwind;
-}
-
-static void msvcrt_local_unwind2(MSVCRT_EXCEPTION_FRAME* frame, int trylevel, void *ebp)
-{
-  EXCEPTION_REGISTRATION_RECORD reg;
-
-  TRACE("(%p,%d,%d)\n",frame, frame->trylevel, trylevel);
-
-  /* Register a handler in case of a nested exception */
-  reg.Handler = MSVCRT_nested_handler;
-  reg.Prev = NtCurrentTeb()->Tib.ExceptionList;
-  __wine_push_frame(&reg);
-
-  while (frame->trylevel != TRYLEVEL_END && frame->trylevel != trylevel)
-  {
-      int level = frame->trylevel;
-      frame->trylevel = frame->scopetable[level].previousTryLevel;
-      if (!frame->scopetable[level].lpfnFilter)
-      {
-          TRACE( "__try block cleanup level %d handler %p ebp %p\n",
-                 level, frame->scopetable[level].lpfnHandler, ebp );
-          call_handler( frame->scopetable[level].lpfnHandler, ebp );
-      }
-  }
-  __wine_pop_frame(&reg);
-  TRACE("unwound OK\n");
-}
-
-static void msvcrt_local_unwind4( ULONG *cookie, MSVCRT_EXCEPTION_FRAME* frame, int trylevel, void *ebp )
-{
-    EXCEPTION_REGISTRATION_RECORD reg;
-    const SCOPETABLE_V4 *scopetable = get_scopetable_v4( frame, *cookie );
-
-    TRACE("(%p,%d,%d)\n",frame, frame->trylevel, trylevel);
-
-    /* Register a handler in case of a nested exception */
-    reg.Handler = MSVCRT_nested_handler;
-    reg.Prev = NtCurrentTeb()->Tib.ExceptionList;
-    __wine_push_frame(&reg);
-
-    while (frame->trylevel != -2 && frame->trylevel != trylevel)
-    {
-        int level = frame->trylevel;
-        frame->trylevel = scopetable->entries[level].previousTryLevel;
-        if (!scopetable->entries[level].lpfnFilter)
-        {
-            TRACE( "__try block cleanup level %d handler %p ebp %p\n",
-                   level, scopetable->entries[level].lpfnHandler, ebp );
-            call_handler( scopetable->entries[level].lpfnHandler, ebp );
-        }
-    }
-    __wine_pop_frame(&reg);
-    TRACE("unwound OK\n");
-}
-#ifndef __REACTOS__
-/*******************************************************************
- *		_local_unwind2 (MSVCRT.@)
- */
-void CDECL _local_unwind2(MSVCRT_EXCEPTION_FRAME* frame, int trylevel)
-{
-    msvcrt_local_unwind2( frame, trylevel, &frame->_ebp );
-}
-#endif
-/*******************************************************************
- *		_local_unwind4 (MSVCRT.@)
- */
-void CDECL _local_unwind4( ULONG *cookie, MSVCRT_EXCEPTION_FRAME* frame, int trylevel )
-{
-    msvcrt_local_unwind4( cookie, frame, trylevel, &frame->_ebp );
-}
-
-#ifndef __REACTOS__
-/*******************************************************************
- *		_global_unwind2 (MSVCRT.@)
- */
-void CDECL _global_unwind2(EXCEPTION_REGISTRATION_RECORD* frame)
-{
-    TRACE("(%p)\n",frame);
-    RtlUnwind( frame, 0, 0, 0 );
-}
-#else
-void CDECL _global_unwind2(EXCEPTION_REGISTRATION_RECORD* frame);
-#endif
-
-#ifndef __REACTOS__
-/*********************************************************************
- *		_except_handler2 (MSVCRT.@)
- */
-int CDECL _except_handler2(PEXCEPTION_RECORD rec,
-                           EXCEPTION_REGISTRATION_RECORD* frame,
-                           PCONTEXT context,
-                           EXCEPTION_REGISTRATION_RECORD** dispatcher)
-{
-  FIXME("exception %x flags=%x at %p handler=%p %p %p stub\n",
-        rec->ExceptionCode, rec->ExceptionFlags, rec->ExceptionAddress,
-        frame->Handler, context, dispatcher);
-  return ExceptionContinueSearch;
-}
-
-/*********************************************************************
- *		_except_handler3 (MSVCRT.@)
- */
-int CDECL _except_handler3(PEXCEPTION_RECORD rec,
-                           MSVCRT_EXCEPTION_FRAME* frame,
-                           PCONTEXT context, void* dispatcher)
-{
-  int retval, trylevel;
-  EXCEPTION_POINTERS exceptPtrs;
-  PSCOPETABLE pScopeTable;
-
-  TRACE("exception %x flags=%x at %p handler=%p %p %p semi-stub\n",
-        rec->ExceptionCode, rec->ExceptionFlags, rec->ExceptionAddress,
-        frame->handler, context, dispatcher);
-
-#ifdef _MSC_VER
-  __asm{ cld }
-#else
-  __asm__ __volatile__("cld");
-#endif
-  if (rec->ExceptionFlags & (EH_UNWINDING | EH_EXIT_UNWIND))
-  {
-    /* Unwinding the current frame */
-    msvcrt_local_unwind2(frame, TRYLEVEL_END, &frame->_ebp);
-    TRACE("unwound current frame, returning ExceptionContinueSearch\n");
-    return ExceptionContinueSearch;
-  }
-  else
-  {
-    /* Hunting for handler */
-    exceptPtrs.ExceptionRecord = rec;
-    exceptPtrs.ContextRecord = context;
-    *((DWORD *)frame-1) = (DWORD)&exceptPtrs;
-    trylevel = frame->trylevel;
-    pScopeTable = frame->scopetable;
-
-    while (trylevel != TRYLEVEL_END)
-    {
-      TRACE( "level %d prev %d filter %p\n", trylevel, pScopeTable[trylevel].previousTryLevel,
-             pScopeTable[trylevel].lpfnFilter );
-      if (pScopeTable[trylevel].lpfnFilter)
-      {
-        retval = call_filter( pScopeTable[trylevel].lpfnFilter, &exceptPtrs, &frame->_ebp );
-
-        TRACE("filter returned %s\n", retval == EXCEPTION_CONTINUE_EXECUTION ?
-              "CONTINUE_EXECUTION" : retval == EXCEPTION_EXECUTE_HANDLER ?
-              "EXECUTE_HANDLER" : "CONTINUE_SEARCH");
-
-        if (retval == EXCEPTION_CONTINUE_EXECUTION)
-          return ExceptionContinueExecution;
-
-        if (retval == EXCEPTION_EXECUTE_HANDLER)
-        {
-          /* Unwind all higher frames, this one will handle the exception */
-          _global_unwind2((EXCEPTION_REGISTRATION_RECORD*)frame);
-          msvcrt_local_unwind2(frame, trylevel, &frame->_ebp);
-
-          /* Set our trylevel to the enclosing block, and call the __finally
-           * code, which won't return
-           */
-          frame->trylevel = pScopeTable[trylevel].previousTryLevel;
-          TRACE("__finally block %p\n",pScopeTable[trylevel].lpfnHandler);
-          call_finally_block(pScopeTable[trylevel].lpfnHandler, &frame->_ebp);
-       }
-      }
-      trylevel = pScopeTable[trylevel].previousTryLevel;
-    }
-  }
-  TRACE("reached TRYLEVEL_END, returning ExceptionContinueSearch\n");
-  return ExceptionContinueSearch;
-}
-#endif /* __REACTOS__ */
-/*********************************************************************
- *		_except_handler4_common (MSVCRT.@)
- */
-int CDECL _except_handler4_common( ULONG *cookie, void (*check_cookie)(void),
-                                   EXCEPTION_RECORD *rec, MSVCRT_EXCEPTION_FRAME *frame,
-                                   CONTEXT *context, EXCEPTION_REGISTRATION_RECORD **dispatcher )
-{
-    int retval, trylevel;
-    EXCEPTION_POINTERS exceptPtrs;
-    const SCOPETABLE_V4 *scope_table = get_scopetable_v4( frame, *cookie );
-
-    TRACE( "exception %x flags=%x at %p handler=%p %p %p cookie=%x scope table=%p cookies=%d/%x,%d/%x\n",
-           rec->ExceptionCode, rec->ExceptionFlags, rec->ExceptionAddress,
-           frame->handler, context, dispatcher, *cookie, scope_table,
-           scope_table->gs_cookie_offset, scope_table->gs_cookie_xor,
-           scope_table->eh_cookie_offset, scope_table->eh_cookie_xor );
-
-    /* FIXME: no cookie validation yet */
-
-    if (rec->ExceptionFlags & (EH_UNWINDING | EH_EXIT_UNWIND))
-    {
-        /* Unwinding the current frame */
-        msvcrt_local_unwind4( cookie, frame, -2, &frame->_ebp );
-        TRACE("unwound current frame, returning ExceptionContinueSearch\n");
-        return ExceptionContinueSearch;
-    }
-    else
-    {
-        /* Hunting for handler */
-        exceptPtrs.ExceptionRecord = rec;
-        exceptPtrs.ContextRecord = context;
-        *((DWORD *)frame-1) = (DWORD)&exceptPtrs;
-        trylevel = frame->trylevel;
-
-        while (trylevel != -2)
-        {
-            TRACE( "level %d prev %d filter %p\n", trylevel,
-                   scope_table->entries[trylevel].previousTryLevel,
-                   scope_table->entries[trylevel].lpfnFilter );
-            if (scope_table->entries[trylevel].lpfnFilter)
-            {
-                retval = call_filter( scope_table->entries[trylevel].lpfnFilter, &exceptPtrs, &frame->_ebp );
-
-                TRACE("filter returned %s\n", retval == EXCEPTION_CONTINUE_EXECUTION ?
-                      "CONTINUE_EXECUTION" : retval == EXCEPTION_EXECUTE_HANDLER ?
-                      "EXECUTE_HANDLER" : "CONTINUE_SEARCH");
-
-                if (retval == EXCEPTION_CONTINUE_EXECUTION)
-                    return ExceptionContinueExecution;
-
-                if (retval == EXCEPTION_EXECUTE_HANDLER)
-                {
-                    __DestructExceptionObject(rec);
-
-                    /* Unwind all higher frames, this one will handle the exception */
-                    _global_unwind2((EXCEPTION_REGISTRATION_RECORD*)frame);
-                    msvcrt_local_unwind4( cookie, frame, trylevel, &frame->_ebp );
-
-                    /* Set our trylevel to the enclosing block, and call the __finally
-                     * code, which won't return
-                     */
-                    frame->trylevel = scope_table->entries[trylevel].previousTryLevel;
-                    TRACE("__finally block %p\n",scope_table->entries[trylevel].lpfnHandler);
-                    call_finally_block(scope_table->entries[trylevel].lpfnHandler, &frame->_ebp);
-                }
-            }
-            trylevel = scope_table->entries[trylevel].previousTryLevel;
-        }
-    }
-    TRACE("reached -2, returning ExceptionContinueSearch\n");
-    return ExceptionContinueSearch;
-}
-
-
-/*
- * setjmp/longjmp implementation
- */
-
-#define MSVCRT_JMP_MAGIC 0x56433230 /* ID value for new jump structure */
-typedef void (__stdcall *MSVCRT_unwind_function)(const _JUMP_BUFFER *);
-
-/* define an entrypoint for setjmp/setjmp3 that stores the registers in the jmp buf */
-/* and then jumps to the C backend function */
-#define DEFINE_SETJMP_ENTRYPOINT(name) \
-    __ASM_GLOBAL_FUNC( name, \
-                       "movl 4(%esp),%ecx\n\t"   /* jmp_buf */      \
-                       "movl %ebp,0(%ecx)\n\t"   /* jmp_buf.Ebp */  \
-                       "movl %ebx,4(%ecx)\n\t"   /* jmp_buf.Ebx */  \
-                       "movl %edi,8(%ecx)\n\t"   /* jmp_buf.Edi */  \
-                       "movl %esi,12(%ecx)\n\t"  /* jmp_buf.Esi */  \
-                       "movl %esp,16(%ecx)\n\t"  /* jmp_buf.Esp */  \
-                       "movl 0(%esp),%eax\n\t"                      \
-                       "movl %eax,20(%ecx)\n\t"  /* jmp_buf.Eip */  \
-                       "jmp " __ASM_NAME("__regs_") # name )
-
-/*******************************************************************
- *		_setjmp (MSVCRT.@)
- */
-DEFINE_SETJMP_ENTRYPOINT(MSVCRT__setjmp)
-int CDECL DECLSPEC_HIDDEN __regs_MSVCRT__setjmp(_JUMP_BUFFER *jmp)
-{
-    jmp->Registration = (unsigned long)NtCurrentTeb()->Tib.ExceptionList;
-    if (jmp->Registration == ~0UL)
-        jmp->TryLevel = TRYLEVEL_END;
-    else
-        jmp->TryLevel = ((MSVCRT_EXCEPTION_FRAME*)jmp->Registration)->trylevel;
-
-    TRACE("buf=%p ebx=%08lx esi=%08lx edi=%08lx ebp=%08lx esp=%08lx eip=%08lx frame=%08lx\n",
-          jmp, jmp->Ebx, jmp->Esi, jmp->Edi, jmp->Ebp, jmp->Esp, jmp->Eip, jmp->Registration );
-    return 0;
-}
-
-/*******************************************************************
- *		_setjmp3 (MSVCRT.@)
- */
-DEFINE_SETJMP_ENTRYPOINT( MSVCRT__setjmp3 )
-int WINAPIV DECLSPEC_HIDDEN __regs_MSVCRT__setjmp3(_JUMP_BUFFER *jmp, int nb_args, ...)
-{
-    jmp->Cookie = MSVCRT_JMP_MAGIC;
-    jmp->UnwindFunc = 0;
-    jmp->Registration = (unsigned long)NtCurrentTeb()->Tib.ExceptionList;
-    if (jmp->Registration == ~0UL)
-    {
-        jmp->TryLevel = TRYLEVEL_END;
-    }
-    else
-    {
-        int i;
-        va_list args;
-
-        va_start( args, nb_args );
-        if (nb_args > 0) jmp->UnwindFunc = va_arg( args, unsigned long );
-        if (nb_args > 1) jmp->TryLevel = va_arg( args, unsigned long );
-        else jmp->TryLevel = ((MSVCRT_EXCEPTION_FRAME*)jmp->Registration)->trylevel;
-        for (i = 0; i < 6 && i < nb_args - 2; i++)
-            jmp->UnwindData[i] = va_arg( args, unsigned long );
-        va_end( args );
-    }
-
-    TRACE("buf=%p ebx=%08lx esi=%08lx edi=%08lx ebp=%08lx esp=%08lx eip=%08lx frame=%08lx\n",
-          jmp, jmp->Ebx, jmp->Esi, jmp->Edi, jmp->Ebp, jmp->Esp, jmp->Eip, jmp->Registration );
-    return 0;
-}
-
-/*********************************************************************
- *		longjmp (MSVCRT.@)
- */
-void CDECL MSVCRT_longjmp(_JUMP_BUFFER *jmp, int retval)
-{
-    unsigned long cur_frame = 0;
-
-    TRACE("buf=%p ebx=%08lx esi=%08lx edi=%08lx ebp=%08lx esp=%08lx eip=%08lx frame=%08lx retval=%08x\n",
-          jmp, jmp->Ebx, jmp->Esi, jmp->Edi, jmp->Ebp, jmp->Esp, jmp->Eip, jmp->Registration, retval );
-
-    cur_frame=(unsigned long)NtCurrentTeb()->Tib.ExceptionList;
-    TRACE("cur_frame=%lx\n",cur_frame);
-
-    if (cur_frame != jmp->Registration)
-        _global_unwind2((EXCEPTION_REGISTRATION_RECORD*)jmp->Registration);
-
-    if (jmp->Registration)
-    {
-        if (IsBadReadPtr(&jmp->Cookie, sizeof(long)) || jmp->Cookie != MSVCRT_JMP_MAGIC)
-        {
-            msvcrt_local_unwind2((MSVCRT_EXCEPTION_FRAME*)jmp->Registration,
-                                 jmp->TryLevel, (void *)jmp->Ebp);
-        }
-        else if(jmp->UnwindFunc)
-        {
-            MSVCRT_unwind_function unwind_func;
-
-            unwind_func=(MSVCRT_unwind_function)jmp->UnwindFunc;
-            unwind_func(jmp);
-        }
-    }
-
-    if (!retval)
-        retval = 1;
-
-    __wine_longjmp( (__wine_jmp_buf *)jmp, retval );
-}
-
-#ifndef __REACTOS__
-/*********************************************************************
- *		_seh_longjmp_unwind (MSVCRT.@)
- */
-void __stdcall _seh_longjmp_unwind(_JUMP_BUFFER *jmp)
-{
-    msvcrt_local_unwind2( (MSVCRT_EXCEPTION_FRAME *)jmp->Registration, jmp->TryLevel, (void *)jmp->Ebp );
-}
-#endif
-
-/*********************************************************************
- *		_seh_longjmp_unwind4 (MSVCRT.@)
- */
-void __stdcall _seh_longjmp_unwind4(_JUMP_BUFFER *jmp)
-{
-    msvcrt_local_unwind4( (ULONG *)&jmp->Cookie, (MSVCRT_EXCEPTION_FRAME *)jmp->Registration,
-                          jmp->TryLevel, (void *)jmp->Ebp );
-}
-
-/*********************************************************************
- *              _fpieee_flt (MSVCRT.@)
- */
-int __cdecl _fpieee_flt(__msvcrt_ulong exception_code, EXCEPTION_POINTERS *ep,
-        int (__cdecl *handler)(_FPIEEE_RECORD*))
-{
-    FLOATING_SAVE_AREA *ctx = &ep->ContextRecord->FloatSave;
-    _FPIEEE_RECORD rec;
-    int ret;
-
-    TRACE("(%lx %p %p)\n", exception_code, ep, handler);
-
-    switch(exception_code) {
-    case STATUS_FLOAT_DIVIDE_BY_ZERO:
-    case STATUS_FLOAT_INEXACT_RESULT:
-    case STATUS_FLOAT_INVALID_OPERATION:
-    case STATUS_FLOAT_OVERFLOW:
-    case STATUS_FLOAT_UNDERFLOW:
-        break;
-    default:
-        return EXCEPTION_CONTINUE_SEARCH;
-    }
-
-    memset(&rec, 0, sizeof(rec));
-    rec.RoundingMode = ctx->ControlWord >> 10;
-    switch((ctx->ControlWord >> 8) & 0x3) {
-    case 0: rec.Precision = 2; break;
-    case 1: rec.Precision = 3; break;
-    case 2: rec.Precision = 1; break;
-    case 3: rec.Precision = 0; break;
-    }
-    rec.Status.InvalidOperation = ctx->StatusWord & 0x1;
-    rec.Status.ZeroDivide = ((ctx->StatusWord & 0x4) != 0);
-    rec.Status.Overflow = ((ctx->StatusWord & 0x8) != 0);
-    rec.Status.Underflow = ((ctx->StatusWord & 0x10) != 0);
-    rec.Status.Inexact = ((ctx->StatusWord & 0x20) != 0);
-    rec.Enable.InvalidOperation = ((ctx->ControlWord & 0x1) == 0);
-    rec.Enable.ZeroDivide = ((ctx->ControlWord & 0x4) == 0);
-    rec.Enable.Overflow = ((ctx->ControlWord & 0x8) == 0);
-    rec.Enable.Underflow = ((ctx->ControlWord & 0x10) == 0);
-    rec.Enable.Inexact = ((ctx->ControlWord & 0x20) == 0);
-    rec.Cause.InvalidOperation = rec.Enable.InvalidOperation & rec.Status.InvalidOperation;
-    rec.Cause.ZeroDivide = rec.Enable.ZeroDivide & rec.Status.ZeroDivide;
-    rec.Cause.Overflow = rec.Enable.Overflow & rec.Status.Overflow;
-    rec.Cause.Underflow = rec.Enable.Underflow & rec.Status.Underflow;
-    rec.Cause.Inexact = rec.Enable.Inexact & rec.Status.Inexact;
-
-    TRACE("opcode: %x\n", *(ULONG*)ep->ContextRecord->FloatSave.ErrorOffset);
-
-    if(*(WORD*)ctx->ErrorOffset == 0x35dc) { /* fdiv m64fp */
-        if(exception_code==STATUS_FLOAT_DIVIDE_BY_ZERO || exception_code==STATUS_FLOAT_INVALID_OPERATION) {
-            rec.Operand1.OperandValid = 1;
-            rec.Result.OperandValid = 0;
-        } else {
-            rec.Operand1.OperandValid = 0;
-            rec.Result.OperandValid = 1;
-        }
-        rec.Operand2.OperandValid = 1;
-        rec.Operation = _FpCodeDivide;
-        rec.Operand1.Format = _FpFormatFp80;
-        memcpy(&rec.Operand1.Value.Fp80Value, ctx->RegisterArea, sizeof(rec.Operand1.Value.Fp80Value));
-        rec.Operand2.Format = _FpFormatFp64;
-        rec.Operand2.Value.Fp64Value = *(double*)ctx->DataOffset;
-        rec.Result.Format = _FpFormatFp80;
-        memcpy(&rec.Result.Value.Fp80Value, ctx->RegisterArea, sizeof(rec.Operand1.Value.Fp80Value));
-
-        ret = handler(&rec);
-
-        if(ret == EXCEPTION_CONTINUE_EXECUTION)
-            memcpy(ctx->RegisterArea, &rec.Result.Value.Fp80Value, sizeof(rec.Operand1.Value.Fp80Value));
-        return ret;
-    }
-
-    FIXME("unsupported opcode: %x\n", *(ULONG*)ep->ContextRecord->FloatSave.ErrorOffset);
-    return EXCEPTION_CONTINUE_SEARCH;
-}
-
-#endif  /* __i386__ */

sdk/lib/crt/wine/except_x86_64.c

···
-/*
- * msvcrt C++ exception handling
- *
- * Copyright 2011 Alexandre Julliard
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-#ifdef __x86_64__
-
-#include <setjmp.h>
-#include <stdarg.h>
-#include <fpieee.h>
-
-#include "ntstatus.h"
-#define WIN32_NO_STATUS
-#include "windef.h"
-#include "winbase.h"
-#include "winternl.h"
-#include "msvcrt.h"
-#include "wine/exception.h"
-#include "excpt.h"
-#include "wine/debug.h"
-
-#include "cppexcept.h"
-
-WINE_DEFAULT_DEBUG_CHANNEL(seh);
-
-typedef struct
-{
-    int  prev;
-    UINT handler;
-} unwind_info;
-
-typedef struct
-{
-    UINT flags;
-    UINT type_info;
-    int  offset;
-    UINT handler;
-    UINT frame;
-} catchblock_info;
-#define TYPE_FLAG_CONST      1
-#define TYPE_FLAG_VOLATILE   2
-#define TYPE_FLAG_REFERENCE  8
-
-typedef struct
-{
-    int  start_level;
-    int  end_level;
-    int  catch_level;
-    int  catchblock_count;
-    UINT catchblock;
-} tryblock_info;
-
-typedef struct
-{
-    int ip;
-    int state;
-} ipmap_info;
-
-typedef struct __cxx_function_descr
-{
-    UINT magic;
-    UINT unwind_count;
-    UINT unwind_table;
-    UINT tryblock_count;
-    UINT tryblock;
-    UINT ipmap_count;
-    UINT ipmap;
-    UINT unwind_help;
-    UINT expect_list;
-    UINT flags;
-} cxx_function_descr;
-
-typedef struct
-{
-    cxx_frame_info frame_info;
-    BOOL rethrow;
-    EXCEPTION_RECORD *prev_rec;
-} cxx_catch_ctx;
-
-typedef struct
-{
-    ULONG64 dest_frame;
-    ULONG64 orig_frame;
-    EXCEPTION_RECORD *seh_rec;
-    DISPATCHER_CONTEXT *dispatch;
-    const cxx_function_descr *descr;
-} se_translator_ctx;
-
-static inline void* rva_to_ptr(UINT rva, ULONG64 base)
-{
-    return rva ? (void*)(base+rva) : NULL;
-}
-
-static inline void dump_type(UINT type_rva, ULONG64 base)
-{
-    const cxx_type_info *type = rva_to_ptr(type_rva, base);
-
-    TRACE("flags %x type %x %s offsets %d,%d,%d size %d copy ctor %x(%p)\n",
-            type->flags, type->type_info, dbgstr_type_info(rva_to_ptr(type->type_info, base)),
-            type->offsets.this_offset, type->offsets.vbase_descr, type->offsets.vbase_offset,
-            type->size, type->copy_ctor, rva_to_ptr(type->copy_ctor, base));
-}
-
-static void dump_exception_type(const cxx_exception_type *type, ULONG64 base)
-{
-    const cxx_type_info_table *type_info_table = rva_to_ptr(type->type_info_table, base);
-    UINT i;
-
-    TRACE("flags %x destr %x(%p) handler %x(%p) type info %x(%p)\n",
-            type->flags, type->destructor, rva_to_ptr(type->destructor, base),
-            type->custom_handler, rva_to_ptr(type->custom_handler, base),
-            type->type_info_table, type_info_table);
-    for (i = 0; i < type_info_table->count; i++)
-    {
-        TRACE("    %d: ", i);
-        dump_type(type_info_table->info[i], base);
-    }
-}
-
-static void dump_function_descr(const cxx_function_descr *descr, ULONG64 image_base)
-{
-    unwind_info *unwind_table = rva_to_ptr(descr->unwind_table, image_base);
-    tryblock_info *tryblock = rva_to_ptr(descr->tryblock, image_base);
-    ipmap_info *ipmap = rva_to_ptr(descr->ipmap, image_base);
-    UINT i, j;
-
-    TRACE("magic %x\n", descr->magic);
-    TRACE("unwind table: %x(%p) %d\n", descr->unwind_table, unwind_table, descr->unwind_count);
-    for (i=0; i<descr->unwind_count; i++)
-    {
-        TRACE("    %d: prev %d func %x(%p)\n", i, unwind_table[i].prev,
-                unwind_table[i].handler, rva_to_ptr(unwind_table[i].handler, image_base));
-    }
-    TRACE("try table: %x(%p) %d\n", descr->tryblock, tryblock, descr->tryblock_count);
-    for (i=0; i<descr->tryblock_count; i++)
-    {
-        catchblock_info *catchblock = rva_to_ptr(tryblock[i].catchblock, image_base);
-
-        TRACE("    %d: start %d end %d catchlevel %d catch %x(%p) %d\n", i,
-                tryblock[i].start_level, tryblock[i].end_level,
-                tryblock[i].catch_level, tryblock[i].catchblock,
-                catchblock, tryblock[i].catchblock_count);
-        for (j=0; j<tryblock[i].catchblock_count; j++)
-        {
-            TRACE("        %d: flags %x offset %d handler %x(%p) frame %x type %x %s\n",
-                    j, catchblock[j].flags, catchblock[j].offset, catchblock[j].handler,
-                    rva_to_ptr(catchblock[j].handler, image_base), catchblock[j].frame,
-                    catchblock[j].type_info,
-                    dbgstr_type_info(rva_to_ptr(catchblock[j].type_info, image_base)));
-        }
-    }
-    TRACE("ipmap: %x(%p) %d\n", descr->ipmap, ipmap, descr->ipmap_count);
-    for (i=0; i<descr->ipmap_count; i++)
-    {
-        TRACE("    %d: ip %x state %d\n", i, ipmap[i].ip, ipmap[i].state);
-    }
-    TRACE("unwind_help %d\n", descr->unwind_help);
-    if (descr->magic <= CXX_FRAME_MAGIC_VC6) return;
-    TRACE("expect list: %x\n", descr->expect_list);
-    if (descr->magic <= CXX_FRAME_MAGIC_VC7) return;
-    TRACE("flags: %08x\n", descr->flags);
-}
-
-static inline int ip_to_state(ipmap_info *ipmap, UINT count, int ip)
-{
-    UINT low = 0, high = count-1, med;
-
-    while (low < high) {
-        med = low + (high-low)/2;
-
-        if (ipmap[med].ip <= ip && ipmap[med+1].ip > ip)
-        {
-            low = med;
-            break;
-        }
-        if (ipmap[med].ip < ip) low = med+1;
-        else high = med-1;
-    }
-
-    TRACE("%x -> %d\n", ip, ipmap[low].state);
-    return ipmap[low].state;
-}
-
-/* check if the exception type is caught by a given catch block, and return the type that matched */
-static const cxx_type_info *find_caught_type(cxx_exception_type *exc_type, ULONG64 exc_base,
-                                             const type_info *catch_ti, UINT catch_flags)
-{
-    const cxx_type_info_table *type_info_table = rva_to_ptr(exc_type->type_info_table, exc_base);
-    UINT i;
-
-    for (i = 0; i < type_info_table->count; i++)
-    {
-        const cxx_type_info *type = rva_to_ptr(type_info_table->info[i], exc_base);
-        const type_info *ti = rva_to_ptr(type->type_info, exc_base);
-
-        if (!catch_ti) return type;   /* catch(...) matches any type */
-        if (catch_ti != ti)
-        {
-            if (strcmp( catch_ti->mangled, ti->mangled )) continue;
-        }
-        /* type is the same, now check the flags */
-        if ((exc_type->flags & TYPE_FLAG_CONST) &&
-                !(catch_flags & TYPE_FLAG_CONST)) continue;
-        if ((exc_type->flags & TYPE_FLAG_VOLATILE) &&
-                !(catch_flags & TYPE_FLAG_VOLATILE)) continue;
-        return type;  /* it matched */
-    }
-    return NULL;
-}
-
-static inline void copy_exception(void *object, ULONG64 frame,
-                                  DISPATCHER_CONTEXT *dispatch,
-                                  const catchblock_info *catchblock,
-                                  const cxx_type_info *type, ULONG64 exc_base)
-{
-    const type_info *catch_ti = rva_to_ptr(catchblock->type_info, dispatch->ImageBase);
-    void **dest = rva_to_ptr(catchblock->offset, frame);
-
-    if (!catch_ti || !catch_ti->mangled[0]) return;
-    if (!catchblock->offset) return;
-
-    if (catchblock->flags & TYPE_FLAG_REFERENCE)
-    {
-        *dest = get_this_pointer(&type->offsets, object);
-    }
-    else if (type->flags & CLASS_IS_SIMPLE_TYPE)
-    {
-        memmove(dest, object, type->size);
-        /* if it is a pointer, adjust it */
-        if (type->size == sizeof(void*)) *dest = get_this_pointer(&type->offsets, *dest);
-    }
-    else  /* copy the object */
-    {
-        if (type->copy_ctor)
-        {
-            if (type->flags & CLASS_HAS_VIRTUAL_BASE_CLASS)
-            {
-                void (__cdecl *copy_ctor)(void*, void*, int) =
-                    rva_to_ptr(type->copy_ctor, exc_base);
-                copy_ctor(dest, get_this_pointer(&type->offsets, object), 1);
-            }
-            else
-            {
-                void (__cdecl *copy_ctor)(void*, void*) =
-                    rva_to_ptr(type->copy_ctor, exc_base);
-                copy_ctor(dest, get_this_pointer(&type->offsets, object));
-            }
-        }
-        else
-            memmove(dest, get_this_pointer(&type->offsets,object), type->size);
-    }
-}
-
-static void cxx_local_unwind(ULONG64 frame, DISPATCHER_CONTEXT *dispatch,
-                             const cxx_function_descr *descr, int last_level)
-{
-    const unwind_info *unwind_table = rva_to_ptr(descr->unwind_table, dispatch->ImageBase);
-    void (__cdecl *handler)(ULONG64 unk, ULONG64 rbp);
-    int *unwind_help = rva_to_ptr(descr->unwind_help, frame);
-    int trylevel;
-
-    if (unwind_help[0] == -2)
-    {
-        trylevel = ip_to_state(rva_to_ptr(descr->ipmap, dispatch->ImageBase),
-                descr->ipmap_count, dispatch->ControlPc-dispatch->ImageBase);
-    }
-    else
-    {
-        trylevel = unwind_help[0];
-    }
-
-    TRACE("current level: %d, last level: %d\n", trylevel, last_level);
-    while (trylevel > last_level)
-    {
-        if (trylevel<0 || trylevel>=descr->unwind_count)
-        {
-            ERR("invalid trylevel %d\n", trylevel);
-            terminate();
-        }
-        handler = rva_to_ptr(unwind_table[trylevel].handler, dispatch->ImageBase);
-        if (handler)
-        {
-            TRACE("handler: %p\n", handler);
-            handler(0, frame);
-        }
-        trylevel = unwind_table[trylevel].prev;
-    }
-    unwind_help[0] = trylevel;
-}
-
-static LONG CALLBACK cxx_rethrow_filter(PEXCEPTION_POINTERS eptrs, void *c)
-{
-    EXCEPTION_RECORD *rec = eptrs->ExceptionRecord;
-    cxx_catch_ctx *ctx = c;
-
-    if (rec->ExceptionCode != CXX_EXCEPTION)
-        return EXCEPTION_CONTINUE_SEARCH;
-    if (!rec->ExceptionInformation[1] && !rec->ExceptionInformation[2])
-        return EXCEPTION_EXECUTE_HANDLER;
-    if (rec->ExceptionInformation[1] == ctx->prev_rec->ExceptionInformation[1])
-        ctx->rethrow = TRUE;
-    return EXCEPTION_CONTINUE_SEARCH;
-}
-
-static void CALLBACK cxx_catch_cleanup(BOOL normal, void *c)
-{
-    cxx_catch_ctx *ctx = c;
-    __CxxUnregisterExceptionObject(&ctx->frame_info, ctx->rethrow);
-}
-
-static void* WINAPI call_catch_block(EXCEPTION_RECORD *rec)
-{
-    ULONG64 frame = rec->ExceptionInformation[1];
-    const cxx_function_descr *descr = (void*)rec->ExceptionInformation[2];
-    EXCEPTION_RECORD *prev_rec = (void*)rec->ExceptionInformation[4];
-    EXCEPTION_RECORD *untrans_rec = (void*)rec->ExceptionInformation[6];
-    CONTEXT *context = (void*)rec->ExceptionInformation[7];
-    void* (__cdecl *handler)(ULONG64 unk, ULONG64 rbp) = (void*)rec->ExceptionInformation[5];
-    int *unwind_help = rva_to_ptr(descr->unwind_help, frame);
-    EXCEPTION_POINTERS ep = { prev_rec, context };
-    cxx_catch_ctx ctx;
-    void *ret_addr = NULL;
-
-    TRACE("calling handler %p\n", handler);
-
-    ctx.rethrow = FALSE;
-    ctx.prev_rec = prev_rec;
-    __CxxRegisterExceptionObject(&ep, &ctx.frame_info);
-    msvcrt_get_thread_data()->processing_throw--;
-    __TRY
-    {
-        __TRY
-        {
-            ret_addr = handler(0, frame);
-        }
-        __EXCEPT_CTX(cxx_rethrow_filter, &ctx)
-        {
-            TRACE("detect rethrow: exception code: %x\n", prev_rec->ExceptionCode);
-            ctx.rethrow = TRUE;
-
-            if (untrans_rec)
-            {
-                __DestructExceptionObject(prev_rec);
-                RaiseException(untrans_rec->ExceptionCode, untrans_rec->ExceptionFlags,
-                        untrans_rec->NumberParameters, untrans_rec->ExceptionInformation);
-            }
-            else
-            {
-                RaiseException(prev_rec->ExceptionCode, prev_rec->ExceptionFlags,
-                        prev_rec->NumberParameters, prev_rec->ExceptionInformation);
-            }
-        }
-        __ENDTRY
-    }
-    __FINALLY_CTX(cxx_catch_cleanup, &ctx)
-
-    unwind_help[0] = -2;
-    unwind_help[1] = -1;
-    return ret_addr;
-}
-
-static inline BOOL cxx_is_consolidate(const EXCEPTION_RECORD *rec)
-{
-    return rec->ExceptionCode==STATUS_UNWIND_CONSOLIDATE && rec->NumberParameters==8 &&
-           rec->ExceptionInformation[0]==(ULONG_PTR)call_catch_block;
-}
-
-static inline void find_catch_block(EXCEPTION_RECORD *rec, CONTEXT *context,
-                                    EXCEPTION_RECORD *untrans_rec,
-                                    ULONG64 frame, DISPATCHER_CONTEXT *dispatch,
-                                    const cxx_function_descr *descr,
-                                    cxx_exception_type *info, ULONG64 orig_frame)
-{
-    ULONG64 exc_base = (rec->NumberParameters == 4 ? rec->ExceptionInformation[3] : 0);
-    int trylevel = ip_to_state(rva_to_ptr(descr->ipmap, dispatch->ImageBase),
-            descr->ipmap_count, dispatch->ControlPc-dispatch->ImageBase);
-    thread_data_t *data = msvcrt_get_thread_data();
-    const tryblock_info *in_catch;
-    EXCEPTION_RECORD catch_record;
-    CONTEXT ctx;
-    UINT i, j;
-    INT *unwind_help;
-
-    data->processing_throw++;
-    for (i=descr->tryblock_count; i>0; i--)
-    {
-        in_catch = rva_to_ptr(descr->tryblock, dispatch->ImageBase);
-        in_catch = &in_catch[i-1];
-
-        if (trylevel>in_catch->end_level && trylevel<=in_catch->catch_level)
-            break;
-    }
-    if (!i)
-        in_catch = NULL;
-
-    unwind_help = rva_to_ptr(descr->unwind_help, orig_frame);
-    if (trylevel > unwind_help[1])
-        unwind_help[0] = unwind_help[1] = trylevel;
-    else
-        trylevel = unwind_help[1];
-    TRACE("current trylevel: %d\n", trylevel);
-
-    for (i=0; i<descr->tryblock_count; i++)
-    {
-        const tryblock_info *tryblock = rva_to_ptr(descr->tryblock, dispatch->ImageBase);
-        tryblock = &tryblock[i];
-
-        if (trylevel < tryblock->start_level) continue;
-        if (trylevel > tryblock->end_level) continue;
-
-        if (in_catch)
-        {
-            if(tryblock->start_level <= in_catch->end_level) continue;
-            if(tryblock->end_level > in_catch->catch_level) continue;
-        }
-
-        /* got a try block */
-        for (j=0; j<tryblock->catchblock_count; j++)
-        {
-            const catchblock_info *catchblock = rva_to_ptr(tryblock->catchblock, dispatch->ImageBase);
-            catchblock = &catchblock[j];
-
-            if (info)
-            {
-                const cxx_type_info *type = find_caught_type(info, exc_base,
-                        rva_to_ptr(catchblock->type_info, dispatch->ImageBase),
-                        catchblock->flags);
-                if (!type) continue;
-
-                TRACE("matched type %p in tryblock %d catchblock %d\n", type, i, j);
-
-                /* copy the exception to its destination on the stack */
-                copy_exception((void*)rec->ExceptionInformation[1],
-                        orig_frame, dispatch, catchblock, type, exc_base);
-            }
-            else
-            {
-                /* no CXX_EXCEPTION only proceed with a catch(...) block*/
-                if (catchblock->type_info)
-                    continue;
-                TRACE("found catch(...) block\n");
-            }
-
-            /* unwind stack and call catch */
-            memset(&catch_record, 0, sizeof(catch_record));
-            catch_record.ExceptionCode = STATUS_UNWIND_CONSOLIDATE;
-            catch_record.ExceptionFlags = EXCEPTION_NONCONTINUABLE;
-            catch_record.NumberParameters = 8;
-            catch_record.ExceptionInformation[0] = (ULONG_PTR)call_catch_block;
-            catch_record.ExceptionInformation[1] = orig_frame;
-            catch_record.ExceptionInformation[2] = (ULONG_PTR)descr;
-            catch_record.ExceptionInformation[3] = tryblock->start_level;
-            catch_record.ExceptionInformation[4] = (ULONG_PTR)rec;
-            catch_record.ExceptionInformation[5] =
-                (ULONG_PTR)rva_to_ptr(catchblock->handler, dispatch->ImageBase);
-            catch_record.ExceptionInformation[6] = (ULONG_PTR)untrans_rec;
-            catch_record.ExceptionInformation[7] = (ULONG_PTR)context;
-            RtlUnwindEx((void*)frame, (void*)dispatch->ControlPc, &catch_record, NULL, &ctx, NULL);
-        }
-    }
-
-    TRACE("no matching catch block found\n");
-    data->processing_throw--;
-}
-
-static LONG CALLBACK se_translation_filter(EXCEPTION_POINTERS *ep, void *c)
-{
-    se_translator_ctx *ctx = (se_translator_ctx *)c;
-    EXCEPTION_RECORD *rec = ep->ExceptionRecord;
-    cxx_exception_type *exc_type;
-
-    if (rec->ExceptionCode != CXX_EXCEPTION)
-    {
-        TRACE("non-c++ exception thrown in SEH handler: %x\n", rec->ExceptionCode);
-        terminate();
-    }
-
-    exc_type = (cxx_exception_type *)rec->ExceptionInformation[2];
-    find_catch_block(rec, ep->ContextRecord, ctx->seh_rec, ctx->dest_frame, ctx->dispatch,
-                     ctx->descr, exc_type, ctx->orig_frame);
-
-    __DestructExceptionObject(rec);
-    return ExceptionContinueSearch;
-}
-
-static void check_noexcept( PEXCEPTION_RECORD rec,
-        const cxx_function_descr *descr, BOOL nested )
-{
-    if (!nested && rec->ExceptionCode == CXX_EXCEPTION &&
-            descr->magic >= CXX_FRAME_MAGIC_VC8 &&
-            (descr->flags & FUNC_DESCR_NOEXCEPT))
-    {
-        ERR("noexcept function propagating exception\n");
-        terminate();
-    }
-}
-
-static DWORD cxx_frame_handler(EXCEPTION_RECORD *rec, ULONG64 frame,
-                               CONTEXT *context, DISPATCHER_CONTEXT *dispatch,
-                               const cxx_function_descr *descr)
-{
-    int trylevel = ip_to_state(rva_to_ptr(descr->ipmap, dispatch->ImageBase),
-            descr->ipmap_count, dispatch->ControlPc-dispatch->ImageBase);
-    cxx_exception_type *exc_type;
-    ULONG64 orig_frame = frame;
-    ULONG64 throw_base;
-    DWORD throw_func_off;
-    void *throw_func;
-    UINT i, j;
-    int unwindlevel = -1;
-
-    if (descr->magic<CXX_FRAME_MAGIC_VC6 || descr->magic>CXX_FRAME_MAGIC_VC8)
-    {
-        FIXME("unhandled frame magic %x\n", descr->magic);
-        return ExceptionContinueSearch;
-    }
-
-    if (descr->magic >= CXX_FRAME_MAGIC_VC8 &&
-        (descr->flags & FUNC_DESCR_SYNCHRONOUS) &&
-        (rec->ExceptionCode != CXX_EXCEPTION &&
-        !cxx_is_consolidate(rec) &&
-        rec->ExceptionCode != STATUS_LONGJUMP))
-        return ExceptionContinueSearch;  /* handle only c++ exceptions */
-
-    /* update orig_frame if it's a nested exception */
-    throw_func_off = RtlLookupFunctionEntry(dispatch->ControlPc, &throw_base, NULL)->BeginAddress;
-    throw_func = rva_to_ptr(throw_func_off, throw_base);
-    TRACE("reconstructed handler pointer: %p\n", throw_func);
-    for (i=descr->tryblock_count; i>0; i--)
-    {
-        const tryblock_info *tryblock = rva_to_ptr(descr->tryblock, dispatch->ImageBase);
-        tryblock = &tryblock[i-1];
-
-        if (trylevel>tryblock->end_level && trylevel<=tryblock->catch_level)
-        {
-            for (j=0; j<tryblock->catchblock_count; j++)
-            {
-                const catchblock_info *catchblock = rva_to_ptr(tryblock->catchblock, dispatch->ImageBase);
-                catchblock = &catchblock[j];
-
-                if (rva_to_ptr(catchblock->handler, dispatch->ImageBase) == throw_func)
-                {
-                    TRACE("nested exception detected\n");
-                    unwindlevel = tryblock->end_level;
-                    orig_frame = *(ULONG64*)rva_to_ptr(catchblock->frame, frame);
-                    TRACE("setting orig_frame to %lx\n", orig_frame);
-                }
-            }
-        }
-    }
-
-    if (rec->ExceptionFlags & (EH_UNWINDING|EH_EXIT_UNWIND))
-    {
-        if (rec->ExceptionFlags & EH_TARGET_UNWIND)
-            cxx_local_unwind(orig_frame, dispatch, descr,
-                cxx_is_consolidate(rec) ? rec->ExceptionInformation[3] : trylevel);
-        else
-            cxx_local_unwind(orig_frame, dispatch, descr, unwindlevel);
-        return ExceptionContinueSearch;
-    }
-    if (!descr->tryblock_count)
-    {
-        check_noexcept(rec, descr, orig_frame != frame);
-        return ExceptionContinueSearch;
-    }
-
-    if (rec->ExceptionCode == CXX_EXCEPTION)
-    {
-        if (!rec->ExceptionInformation[1] && !rec->ExceptionInformation[2])
-        {
-            TRACE("rethrow detected.\n");
-            *rec = *msvcrt_get_thread_data()->exc_record;
-        }
-
-        exc_type = (cxx_exception_type *)rec->ExceptionInformation[2];
-
-        if (TRACE_ON(seh))
-        {
-            TRACE("handling C++ exception rec %p frame %lx descr %p\n", rec, frame,  descr);
-            dump_exception_type(exc_type, rec->ExceptionInformation[3]);
-            dump_function_descr(descr, dispatch->ImageBase);
-        }
-    }
-    else
-    {
-        thread_data_t *data = msvcrt_get_thread_data();
-
-        exc_type = NULL;
-        TRACE("handling C exception code %x rec %p frame %lx descr %p\n",
-                rec->ExceptionCode, rec, frame, descr);
-
-        if (data->se_translator) {
-            EXCEPTION_POINTERS except_ptrs;
-            se_translator_ctx ctx;
-
-            ctx.dest_frame = frame;
-            ctx.orig_frame = orig_frame;
-            ctx.seh_rec    = rec;
-            ctx.dispatch   = dispatch;
-            ctx.descr      = descr;
-            __TRY
-            {
-                except_ptrs.ExceptionRecord = rec;
-                except_ptrs.ContextRecord = context;
-                data->se_translator(rec->ExceptionCode, &except_ptrs);
-            }
-            __EXCEPT_CTX(se_translation_filter, &ctx)
-            {
-            }
-            __ENDTRY
-        }
-    }
-
-    find_catch_block(rec, context, NULL, frame, dispatch, descr, exc_type, orig_frame);
-    check_noexcept(rec, descr, orig_frame != frame);
-    return ExceptionContinueSearch;
-}
-
-/*********************************************************************
- *		__CxxExceptionFilter (MSVCRT.@)
- */
-int CDECL __CxxExceptionFilter( PEXCEPTION_POINTERS ptrs,
-                                const type_info *ti, int flags, void **copy )
-{
-    FIXME( "%p %p %x %p: not implemented\n", ptrs, ti, flags, copy );
-    return EXCEPTION_CONTINUE_SEARCH;
-}
-
-/*********************************************************************
- *		__CxxFrameHandler (MSVCRT.@)
- */
-EXCEPTION_DISPOSITION CDECL __CxxFrameHandler( EXCEPTION_RECORD *rec, ULONG64 frame,
-                                               CONTEXT *context, DISPATCHER_CONTEXT *dispatch )
-{
-    TRACE( "%p %lx %p %p\n", rec, frame, context, dispatch );
-    return cxx_frame_handler( rec, frame, context, dispatch,
-            rva_to_ptr(*(UINT*)dispatch->HandlerData, dispatch->ImageBase) );
-}
-
-
-/*********************************************************************
- *		__CppXcptFilter (MSVCRT.@)
- */
-int CDECL __CppXcptFilter(NTSTATUS ex, PEXCEPTION_POINTERS ptr)
-{
-    /* only filter c++ exceptions */
-    if (ex != CXX_EXCEPTION) return EXCEPTION_CONTINUE_SEARCH;
-    return _XcptFilter( ex, ptr );
-}
-
-
-/*********************************************************************
- *		__CxxDetectRethrow (MSVCRT.@)
- */
-BOOL CDECL __CxxDetectRethrow(PEXCEPTION_POINTERS ptrs)
-{
-    PEXCEPTION_RECORD rec;
-
-    if (!ptrs)
-        return FALSE;
-
-    rec = ptrs->ExceptionRecord;
-
-    if (rec->ExceptionCode == CXX_EXCEPTION &&
-        rec->NumberParameters == 4 &&
-        rec->ExceptionInformation[0] == CXX_FRAME_MAGIC_VC6 &&
-        rec->ExceptionInformation[2])
-    {
-        ptrs->ExceptionRecord = msvcrt_get_thread_data()->exc_record;
-        return TRUE;
-    }
-    return (msvcrt_get_thread_data()->exc_record == rec);
-}
-
-
-/*********************************************************************
- *		__CxxQueryExceptionSize (MSVCRT.@)
- */
-unsigned int CDECL __CxxQueryExceptionSize(void)
-{
-    return sizeof(cxx_exception_type);
-}
-
-
-#ifndef __REACTOS__
-/*******************************************************************
- *		_setjmp (MSVCRT.@)
- */
-__ASM_GLOBAL_FUNC( MSVCRT__setjmp,
-                   "jmp " __ASM_NAME("__wine_setjmpex") );
-#endif
-
-/*******************************************************************
- *		longjmp (MSVCRT.@)
- */
-void __cdecl MSVCRT_longjmp( _JUMP_BUFFER *jmp, int retval )
-{
-    EXCEPTION_RECORD rec;
-
-    if (!retval) retval = 1;
-    if (jmp->Frame)
-    {
-        rec.ExceptionCode = STATUS_LONGJUMP;
-        rec.ExceptionFlags = 0;
-        rec.ExceptionRecord = NULL;
-        rec.ExceptionAddress = NULL;
-        rec.NumberParameters = 1;
-        rec.ExceptionInformation[0] = (DWORD_PTR)jmp;
-        RtlUnwind( (void *)jmp->Frame, (void *)jmp->Rip, &rec, IntToPtr(retval) );
-    }
-    __wine_longjmp( (__wine_jmp_buf *)jmp, retval );
-}
-
-#ifndef __REACTOS__ // different file for ntdll
-/*******************************************************************
- *		_local_unwind (MSVCRT.@)
- */
-void __cdecl _local_unwind( void *frame, void *target )
-{
-    RtlUnwind( frame, target, NULL, 0 );
-}
-#endif /* __REACTOS__ */
-
-/*********************************************************************
- *              _fpieee_flt (MSVCRT.@)
- */
-int __cdecl _fpieee_flt(__msvcrt_ulong exception_code, EXCEPTION_POINTERS *ep,
-        int (__cdecl *handler)(_FPIEEE_RECORD*))
-{
-    FIXME("(%lx %p %p) opcode: %s\n", exception_code, ep, handler,
-            wine_dbgstr_longlong(*(ULONG64*)ep->ContextRecord->Rip));
-    return EXCEPTION_CONTINUE_SEARCH;
-}
-
-#if _MSVCR_VER>=110 && _MSVCR_VER<=120
-/*********************************************************************
- *  __crtCapturePreviousContext (MSVCR110.@)
- */
-void __cdecl get_prev_context(CONTEXT *ctx, DWORD64 rip)
-{
-    ULONG64 frame, image_base;
-    RUNTIME_FUNCTION *rf;
-    void *data;
-
-    TRACE("(%p)\n", ctx);
-
-    rf = RtlLookupFunctionEntry(ctx->Rip, &image_base, NULL);
-    if(!rf) {
-        FIXME("RtlLookupFunctionEntry failed\n");
-        return;
-    }
-
-    RtlVirtualUnwind(UNW_FLAG_NHANDLER, image_base, ctx->Rip,
-            rf, ctx, &data, &frame, NULL);
-}
-
-__ASM_GLOBAL_FUNC( __crtCapturePreviousContext,
-                   "movq %rcx,8(%rsp)\n\t"
-                   "call " __ASM_NAME("RtlCaptureContext") "\n\t"
-                   "movq 8(%rsp),%rcx\n\t"     /* context */
-                   "leaq 8(%rsp),%rax\n\t"
-                   "movq %rax,0x98(%rcx)\n\t"  /* context->Rsp */
-                   "movq (%rsp),%rax\n\t"
-                   "movq %rax,0xf8(%rcx)\n\t"  /* context->Rip */
-                   "jmp " __ASM_NAME("get_prev_context") )
-#endif
-
-#endif  /* __x86_64__ */

sdk/lib/crt/wine/heap.c

···
-/*
- * msvcrt.dll heap functions
- *
- * Copyright 2000 Jon Griffiths
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- *
- * Note: Win32 heap operations are MT safe. We only lock the new
- *       handler and non atomic heap operations
- */
-
-#include <precomp.h>
-#include <malloc.h>
-
-#define MSVCRT_size_t size_t
-#define MSVCRT_intptr_t intptr_t
-#define MSVCRT_wchar_t wchar_t
-#define MSVCRT__HEAPBADNODE _HEAPBADNODE
-#define MSVCRT__HEAPOK _HEAPOK
-#define MSVCRT__HEAPEND _HEAPEND
-#define MSVCRT__FREEENTRY _FREEENTRY
-#define MSVCRT__USEDENTRY _USEDENTRY
-#define MSVCRT__HEAPBADBEGIN _HEAPBADBEGIN
-#define MSVCRT_EINVAL EINVAL
-#define MSVCRT_ENOSYS ENOSYS
-#define MSVCRT_ENOMEM ENOMEM
-#define MSVCRT_ERANGE ERANGE
-#define MSVCRT__TRUNCATE _TRUNCATE
-#define MSVCRT__heapinfo _heapinfo
-#define MSVCRT__errno _errno
-#define MSVCRT_calloc calloc
-#define MSVCRT_malloc malloc
-#define MSVCRT_realloc realloc
-#define MSVCRT_free free
-#define MSVCRT_memcpy_s memcpy_s
-#define MSVCRT_memmove_s memmove_s
-#define MSVCRT_strncpy_s strncpy_s
-#define msvcrt_set_errno _dosmaperr
-
-/* MT */
-#define LOCK_HEAP   _lock( _HEAP_LOCK )
-#define UNLOCK_HEAP _unlock( _HEAP_LOCK )
-
-/* _aligned */
-#define SAVED_PTR(x) ((void *)((DWORD_PTR)((char *)x - sizeof(void *)) & \
-                               ~(sizeof(void *) - 1)))
-#define ALIGN_PTR(ptr, alignment, offset) ((void *) \
-    ((((DWORD_PTR)((char *)ptr + alignment + sizeof(void *) + offset)) & \
-      ~(alignment - 1)) - offset))
-
-#define SB_HEAP_ALIGN 16
-
-static HANDLE heap, sb_heap;
-
-typedef int (CDECL *MSVCRT_new_handler_func)(size_t size);
-
-static MSVCRT_new_handler_func MSVCRT_new_handler;
-static int MSVCRT_new_mode;
-
-/* FIXME - According to documentation it should be 8*1024, at runtime it returns 16 */ 
-static unsigned int MSVCRT_amblksiz = 16;
-/* FIXME - According to documentation it should be 480 bytes, at runtime default is 0 */
-static size_t MSVCRT_sbh_threshold = 0;
-
-static void* msvcrt_heap_alloc(DWORD flags, size_t size)
-{
-    if(size < MSVCRT_sbh_threshold)
-    {
-        void *memblock, *temp, **saved;
-
-        temp = HeapAlloc(sb_heap, flags, size+sizeof(void*)+SB_HEAP_ALIGN);
-        if(!temp) return NULL;
-
-        memblock = ALIGN_PTR(temp, SB_HEAP_ALIGN, 0);
-        saved = SAVED_PTR(memblock);
-        *saved = temp;
-        return memblock;
-    }
-
-    return HeapAlloc(heap, flags, size);
-}
-
-static void* msvcrt_heap_realloc(DWORD flags, void *ptr, size_t size)
-{
-    if(sb_heap && ptr && !HeapValidate(heap, 0, ptr))
-    {
-        /* TODO: move data to normal heap if it exceeds sbh_threshold limit */
-        void *memblock, *temp, **saved;
-        size_t old_padding, new_padding, old_size;
-
-        saved = SAVED_PTR(ptr);
-        old_padding = (char*)ptr - (char*)*saved;
-        old_size = HeapSize(sb_heap, 0, *saved);
-        if(old_size == -1)
-            return NULL;
-        old_size -= old_padding;
-
-        temp = HeapReAlloc(sb_heap, flags, *saved, size+sizeof(void*)+SB_HEAP_ALIGN);
-        if(!temp) return NULL;
-
-        memblock = ALIGN_PTR(temp, SB_HEAP_ALIGN, 0);
-        saved = SAVED_PTR(memblock);
-        new_padding = (char*)memblock - (char*)temp;
-
-        if(new_padding != old_padding)
-            memmove(memblock, (char*)temp+old_padding, old_size>size ? size : old_size);
-
-        *saved = temp;
-        return memblock;
-    }
-
-    return HeapReAlloc(heap, flags, ptr, size);
-}
-
-static BOOL msvcrt_heap_free(void *ptr)
-{
-    if(sb_heap && ptr && !HeapValidate(heap, 0, ptr))
-    {
-        void **saved = SAVED_PTR(ptr);
-        return HeapFree(sb_heap, 0, *saved);
-    }
-
-    return HeapFree(heap, 0, ptr);
-}
-
-static size_t msvcrt_heap_size(void *ptr)
-{
-    if(sb_heap && ptr && !HeapValidate(heap, 0, ptr))
-    {
-        void **saved = SAVED_PTR(ptr);
-        return HeapSize(sb_heap, 0, *saved);
-    }
-
-    return HeapSize(heap, 0, ptr);
-}
-
-/*********************************************************************
- *		_callnewh (MSVCRT.@)
- */
-int CDECL _callnewh(size_t size)
-{
-  int ret = 0;
-  MSVCRT_new_handler_func handler = MSVCRT_new_handler;
-  if(handler)
-    ret = (*handler)(size) ? 1 : 0;
-  return ret;
-}
-
-/*********************************************************************
- *		??2@YAPAXI@Z (MSVCRT.@)
- */
-void* CDECL DECLSPEC_HOTPATCH operator_new(size_t size)
-{
-  void *retval;
-
-  do
-  {
-    retval = msvcrt_heap_alloc(0, size);
-    if(retval)
-    {
-      TRACE("(%Iu) returning %p\n", size, retval);
-      return retval;
-    }
-  } while(_callnewh(size));
-
-  TRACE("(%Iu) out of memory\n", size);
-#if _MSVCR_VER >= 80
-  throw_bad_alloc();
-#endif
-  return NULL;
-}
-
-
-/*********************************************************************
- *		??2@YAPAXIHPBDH@Z (MSVCRT.@)
- */
-void* CDECL operator_new_dbg(size_t size, int type, const char *file, int line)
-{
-    return operator_new( size );
-}
-
-
-/*********************************************************************
- *		??3@YAXPAX@Z (MSVCRT.@)
- */
-void CDECL DECLSPEC_HOTPATCH operator_delete(void *mem)
-{
-  TRACE("(%p)\n", mem);
-  msvcrt_heap_free(mem);
-}
-
-
-/*********************************************************************
- *		?_query_new_handler@@YAP6AHI@ZXZ (MSVCRT.@)
- */
-MSVCRT_new_handler_func CDECL _query_new_handler(void)
-{
-  return MSVCRT_new_handler;
-}
-
-
-/*********************************************************************
- *		?_query_new_mode@@YAHXZ (MSVCRT.@)
- */
-int CDECL _query_new_mode(void)
-{
-  return MSVCRT_new_mode;
-}
-
-/*********************************************************************
- *		?_set_new_handler@@YAP6AHI@ZP6AHI@Z@Z (MSVCRT.@)
- */
-MSVCRT_new_handler_func CDECL _set_new_handler(MSVCRT_new_handler_func func)
-{
-  MSVCRT_new_handler_func old_handler;
-  LOCK_HEAP;
-  old_handler = MSVCRT_new_handler;
-  MSVCRT_new_handler = func;
-  UNLOCK_HEAP;
-  return old_handler;
-}
-
-/*********************************************************************
- *		?set_new_handler@@YAP6AXXZP6AXXZ@Z (MSVCRT.@)
- */
-MSVCRT_new_handler_func CDECL set_new_handler(void *func)
-{
-  TRACE("(%p)\n",func);
-  _set_new_handler(NULL);
-  return NULL;
-}
-
-/*********************************************************************
- *		?_set_new_mode@@YAHH@Z (MSVCRT.@)
- */
-int CDECL _set_new_mode(int mode)
-{
-  if(!MSVCRT_CHECK_PMT(mode == 0 || mode == 1)) return -1;
-  return InterlockedExchange((long*)&MSVCRT_new_mode, mode);
-}
-
-/*********************************************************************
- *		_expand (MSVCRT.@)
- */
-void* CDECL _expand(void* mem, size_t size)
-{
-  return msvcrt_heap_realloc(HEAP_REALLOC_IN_PLACE_ONLY, mem, size);
-}
-
-/*********************************************************************
- *		_heapchk (MSVCRT.@)
- */
-int CDECL _heapchk(void)
-{
-  if (!HeapValidate(heap, 0, NULL) ||
-          (sb_heap && !HeapValidate(sb_heap, 0, NULL)))
-  {
-    msvcrt_set_errno(GetLastError());
-    return _HEAPBADNODE;
-  }
-  return _HEAPOK;
-}
-
-/*********************************************************************
- *		_heapmin (MSVCRT.@)
- */
-int CDECL _heapmin(void)
-{
-  if (!HeapCompact( heap, 0 ) ||
-          (sb_heap && !HeapCompact( sb_heap, 0 )))
-  {
-    if (GetLastError() != ERROR_CALL_NOT_IMPLEMENTED)
-      msvcrt_set_errno(GetLastError());
-    return -1;
-  }
-  return 0;
-}
-
-/*********************************************************************
- *		_heapwalk (MSVCRT.@)
- */
-int CDECL _heapwalk(_HEAPINFO *next)
-{
-  PROCESS_HEAP_ENTRY phe;
-
-  if (sb_heap)
-      FIXME("small blocks heap not supported\n");
-
-  LOCK_HEAP;
-  phe.lpData = next->_pentry;
-  phe.cbData = (DWORD)next->_size;
-  phe.wFlags = next->_useflag == _USEDENTRY ? PROCESS_HEAP_ENTRY_BUSY : 0;
-
-  if (phe.lpData && phe.wFlags & PROCESS_HEAP_ENTRY_BUSY &&
-      !HeapValidate( heap, 0, phe.lpData ))
-  {
-    UNLOCK_HEAP;
-    msvcrt_set_errno(GetLastError());
-    return _HEAPBADNODE;
-  }
-
-  do
-  {
-    if (!HeapWalk( heap, &phe ))
-    {
-      UNLOCK_HEAP;
-      if (GetLastError() == ERROR_NO_MORE_ITEMS)
-         return _HEAPEND;
-      msvcrt_set_errno(GetLastError());
-      if (!phe.lpData)
-        return _HEAPBADBEGIN;
-      return _HEAPBADNODE;
-    }
-  } while (phe.wFlags & (PROCESS_HEAP_REGION|PROCESS_HEAP_UNCOMMITTED_RANGE));
-
-  UNLOCK_HEAP;
-  next->_pentry = phe.lpData;
-  next->_size = phe.cbData;
-  next->_useflag = phe.wFlags & PROCESS_HEAP_ENTRY_BUSY ? _USEDENTRY : _FREEENTRY;
-  return _HEAPOK;
-}
-
-/*********************************************************************
- *		_heapset (MSVCRT.@)
- */
-int CDECL _heapset(unsigned int value)
-{
-  int retval;
-  _HEAPINFO heap;
-
-  memset( &heap, 0, sizeof(heap) );
-  LOCK_HEAP;
-  while ((retval = _heapwalk(&heap)) == _HEAPOK)
-  {
-    if (heap._useflag == _FREEENTRY)
-      memset(heap._pentry, value, heap._size);
-  }
-  UNLOCK_HEAP;
-  return retval == _HEAPEND ? _HEAPOK : retval;
-}
-
-/*********************************************************************
- *		_heapadd (MSVCRT.@)
- */
-int CDECL _heapadd(void* mem, size_t size)
-{
-  TRACE("(%p,%Iu) unsupported in Win32\n", mem,size);
-  *_errno() = ENOSYS;
-  return -1;
-}
-
-/*********************************************************************
- *		_get_heap_handle (MSVCRT.@)
- */
-intptr_t CDECL _get_heap_handle(void)
-{
-    return (intptr_t)heap;
-}
-
-/*********************************************************************
- *		_msize (MSVCRT.@)
- */
-size_t CDECL _msize(void* mem)
-{
-  size_t size = msvcrt_heap_size(mem);
-  if (size == ~(size_t)0)
-  {
-    WARN(":Probably called with non wine-allocated memory, ret = -1\n");
-    /* At least the Win32 crtdll/msvcrt also return -1 in this case */
-  }
-  return size;
-}
-
-#if _MSVCR_VER>=80
-/*********************************************************************
- * _aligned_msize (MSVCR80.@)
- */
-size_t CDECL _aligned_msize(void *p, size_t alignment, size_t offset)
-{
-    void **alloc_ptr;
-
-    if(!MSVCRT_CHECK_PMT(p)) return -1;
-
-    if(alignment < sizeof(void*))
-        alignment = sizeof(void*);
-
-    alloc_ptr = SAVED_PTR(p);
-    return _msize(*alloc_ptr)-alignment-sizeof(void*);
-}
-#endif
-
-/*********************************************************************
- *		calloc (MSVCRT.@)
- */
-void* CDECL DECLSPEC_HOTPATCH calloc(size_t count, size_t size)
-{
-  size_t bytes = count*size;
-
-  if (size && bytes / size != count)
-  {
-    *_errno() = ENOMEM;
-    return NULL;
-  }
-
-  return msvcrt_heap_alloc(HEAP_ZERO_MEMORY, bytes);
-}
-
-#if _MSVCR_VER>=140
-/*********************************************************************
- *		_calloc_base (UCRTBASE.@)
- */
-void* CDECL _calloc_base(size_t count, size_t size)
-{
-  return calloc(count, size);
-}
-#endif
-
-/*********************************************************************
- *		free (MSVCRT.@)
- */
-void CDECL DECLSPEC_HOTPATCH free(void* ptr)
-{
-  msvcrt_heap_free(ptr);
-}
-
-#if _MSVCR_VER>=140
-/*********************************************************************
- *		_free_base (UCRTBASE.@)
- */
-void CDECL _free_base(void* ptr)
-{
-  msvcrt_heap_free(ptr);
-}
-#endif
-
-/*********************************************************************
- *                  malloc (MSVCRT.@)
- */
-void* CDECL malloc(size_t size)
-{
-    void *ret;
-
-    do
-    {
-        ret = msvcrt_heap_alloc(0, size);
-        if (ret || !MSVCRT_new_mode)
-            break;
-    } while(_callnewh(size));
-
-    if (!ret)
-        *_errno() = ENOMEM;
-    return ret;
-}
-
-#if _MSVCR_VER>=140
-/*********************************************************************
- *                  _malloc_base (UCRTBASE.@)
- */
-void* CDECL _malloc_base(size_t size)
-{
-  return malloc(size);
-}
-#endif
-
-/*********************************************************************
- *		realloc (MSVCRT.@)
- */
-void* CDECL DECLSPEC_HOTPATCH realloc(void* ptr, size_t size)
-{
-  if (!ptr) return malloc(size);
-  if (size) return msvcrt_heap_realloc(0, ptr, size);
-  free(ptr);
-  return NULL;
-}
-
-#if _MSVCR_VER>=140
-/*********************************************************************
- *		_realloc_base (UCRTBASE.@)
- */
-void* CDECL _realloc_base(void* ptr, size_t size)
-{
-  return realloc(ptr, size);
-}
-#endif
-
-#if _MSVCR_VER>=80
-/*********************************************************************
- * _recalloc (MSVCR80.@)
- */
-void* CDECL _recalloc(void *mem, size_t num, size_t size)
-{
-    size_t old_size;
-    void *ret;
-
-    if(!mem)
-        return calloc(num, size);
-
-    size = num*size;
-    old_size = _msize(mem);
-
-    ret = realloc(mem, size);
-    if(!ret) {
-        *_errno() = ENOMEM;
-        return NULL;
-    }
-
-    if(size>old_size)
-        memset((BYTE*)ret+old_size, 0, size-old_size);
-    return ret;
-}
-#endif
-
-/*********************************************************************
- *		__p__amblksiz (MSVCRT.@)
- */
-unsigned int* CDECL __p__amblksiz(void)
-{
-  return &MSVCRT_amblksiz;
-}
-
-/*********************************************************************
- *		_get_sbh_threshold (MSVCRT.@)
- */
-size_t CDECL _get_sbh_threshold(void)
-{
-  return MSVCRT_sbh_threshold;
-}
-
-/*********************************************************************
- *		_set_sbh_threshold (MSVCRT.@)
- */
-int CDECL _set_sbh_threshold(size_t threshold)
-{
-#ifdef _WIN64
-  return 0;
-#else
-  if(threshold > 1016)
-     return 0;
-
-  if(!sb_heap)
-  {
-      sb_heap = HeapCreate(0, 0, 0);
-      if(!sb_heap)
-          return 0;
-  }
-
-  MSVCRT_sbh_threshold = (threshold+0xf) & ~0xf;
-  return 1;
-#endif
-}
-
-/*********************************************************************
- *		_aligned_free (MSVCRT.@)
- */
-void CDECL _aligned_free(void *memblock)
-{
-    TRACE("(%p)\n", memblock);
-
-    if (memblock)
-    {
-        void **saved = SAVED_PTR(memblock);
-        free(*saved);
-    }
-}
-
-/*********************************************************************
- *		_aligned_offset_malloc (MSVCRT.@)
- */
-void * CDECL _aligned_offset_malloc(size_t size, size_t alignment, size_t offset)
-{
-    void *memblock, *temp, **saved;
-    TRACE("(%Iu, %Iu, %Iu)\n", size, alignment, offset);
-
-    /* alignment must be a power of 2 */
-    if ((alignment & (alignment - 1)) != 0)
-    {
-        *_errno() = EINVAL;
-        return NULL;
-    }
-
-    /* offset must be less than size */
-    if (offset && offset >= size)
-    {
-        *_errno() = EINVAL;
-        return NULL;
-    }
-
-    /* don't align to less than void pointer size */
-    if (alignment < sizeof(void *))
-        alignment = sizeof(void *);
-
-    /* allocate enough space for void pointer and alignment */
-    temp = malloc(size + alignment + sizeof(void *));
-
-    if (!temp)
-        return NULL;
-
-    /* adjust pointer for proper alignment and offset */
-    memblock = ALIGN_PTR(temp, alignment, offset);
-
-    /* Save the real allocation address below returned address */
-    /* so it can be found later to free. */
-    saved = SAVED_PTR(memblock);
-    *saved = temp;
-
-    return memblock;
-}
-
-/*********************************************************************
- *		_aligned_malloc (MSVCRT.@)
- */
-void * CDECL _aligned_malloc(size_t size, size_t alignment)
-{
-    TRACE("(%Iu, %Iu)\n", size, alignment);
-    return _aligned_offset_malloc(size, alignment, 0);
-}
-
-/*********************************************************************
- *		_aligned_offset_realloc (MSVCRT.@)
- */
-void * CDECL _aligned_offset_realloc(void *memblock, size_t size,
-                                     size_t alignment, size_t offset)
-{
-    void * temp, **saved;
-    size_t old_padding, new_padding, old_size;
-    TRACE("(%p, %Iu, %Iu, %Iu)\n", memblock, size, alignment, offset);
-
-    if (!memblock)
-        return _aligned_offset_malloc(size, alignment, offset);
-
-    /* alignment must be a power of 2 */
-    if ((alignment & (alignment - 1)) != 0)
-    {
-        *_errno() = EINVAL;
-        return NULL;
-    }
-
-    /* offset must be less than size */
-    if (offset >= size)
-    {
-        *_errno() = EINVAL;
-        return NULL;
-    }
-
-    if (size == 0)
-    {
-        _aligned_free(memblock);
-        return NULL;
-    }
-
-    /* don't align to less than void pointer size */
-    if (alignment < sizeof(void *))
-        alignment = sizeof(void *);
-
-    /* make sure alignment and offset didn't change */
-    saved = SAVED_PTR(memblock);
-    if (memblock != ALIGN_PTR(*saved, alignment, offset))
-    {
-        *_errno() = EINVAL;
-        return NULL;
-    }
-
-    old_padding = (char *)memblock - (char *)*saved;
-
-    /* Get previous size of block */
-    old_size = _msize(*saved);
-    if (old_size == -1)
-    {
-        /* It seems this function was called with an invalid pointer. Bail out. */
-        return NULL;
-    }
-
-    /* Adjust old_size to get amount of actual data in old block. */
-    if (old_size < old_padding)
-    {
-        /* Shouldn't happen. Something's weird, so bail out. */
-        return NULL;
-    }
-    old_size -= old_padding;
-
-    temp = realloc(*saved, size + alignment + sizeof(void *));
-
-    if (!temp)
-        return NULL;
-
-    /* adjust pointer for proper alignment and offset */
-    memblock = ALIGN_PTR(temp, alignment, offset);
-
-    /* Save the real allocation address below returned address */
-    /* so it can be found later to free. */
-    saved = SAVED_PTR(memblock);
-
-    new_padding = (char *)memblock - (char *)temp;
-
-/*
-   Memory layout of old block is as follows:
-   +-------+---------------------+-+--------------------------+-----------+
-   |  ...  | "old_padding" bytes | | ... "old_size" bytes ... |    ...    |
-   +-------+---------------------+-+--------------------------+-----------+
-           ^                     ^ ^
-           |                     | |
-        *saved               saved memblock
-
-   Memory layout of new block is as follows:
-   +-------+-----------------------------+-+----------------------+-------+
-   |  ...  |    "new_padding" bytes      | | ... "size" bytes ... |  ...  |
-   +-------+-----------------------------+-+----------------------+-------+
-           ^                             ^ ^
-           |                             | |
-          temp                       saved memblock
-
-   However, in the new block, actual data is still written as follows
-   (because it was copied by realloc):
-   +-------+---------------------+--------------------------------+-------+
-   |  ...  | "old_padding" bytes |   ... "old_size" bytes ...     |  ...  |
-   +-------+---------------------+--------------------------------+-------+
-           ^                             ^ ^
-           |                             | |
-          temp                       saved memblock
-
-   Therefore, min(old_size,size) bytes of actual data have to be moved
-   from the offset they were at in the old block (temp + old_padding),
-   to the offset they have to be in the new block (temp + new_padding == memblock).
-*/
-    if (new_padding != old_padding)
-        memmove((char *)memblock, (char *)temp + old_padding, (old_size < size) ? old_size : size);
-
-    *saved = temp;
-
-    return memblock;
-}
-
-/*********************************************************************
- *		_aligned_realloc (MSVCRT.@)
- */
-void * CDECL _aligned_realloc(void *memblock, size_t size, size_t alignment)
-{
-    TRACE("(%p, %Iu, %Iu)\n", memblock, size, alignment);
-    return _aligned_offset_realloc(memblock, size, alignment, 0);
-}
-
-/*********************************************************************
- *		memmove_s (MSVCRT.@)
- */
-int CDECL memmove_s(void *dest, size_t numberOfElements, const void *src, size_t count)
-{
-    TRACE("(%p %Iu %p %Iu)\n", dest, numberOfElements, src, count);
-
-    if(!count)
-        return 0;
-
-    if (!MSVCRT_CHECK_PMT(dest != NULL)) return EINVAL;
-    if (!MSVCRT_CHECK_PMT(src != NULL)) return EINVAL;
-    if (!MSVCRT_CHECK_PMT_ERR( count <= numberOfElements, ERANGE )) return ERANGE;
-
-    memmove(dest, src, count);
-    return 0;
-}
-
-#if _MSVCR_VER>=100
-/*********************************************************************
- *              wmemmove_s (MSVCR100.@)
- */
-int CDECL wmemmove_s(wchar_t *dest, size_t numberOfElements,
-        const wchar_t *src, size_t count)
-{
-    TRACE("(%p %Iu %p %Iu)\n", dest, numberOfElements, src, count);
-
-    if (!count)
-        return 0;
-
-    /* Native does not seem to conform to 6.7.1.2.3 in
-     * http://www.open-std.org/jtc1/sc22/wg14/www/docs/n1225.pdf
-     * in that it does not zero the output buffer on constraint violation.
-     */
-    if (!MSVCRT_CHECK_PMT(dest != NULL)) return EINVAL;
-    if (!MSVCRT_CHECK_PMT(src != NULL)) return EINVAL;
-    if (!MSVCRT_CHECK_PMT_ERR(count <= numberOfElements, ERANGE)) return ERANGE;
-
-    memmove(dest, src, sizeof(wchar_t)*count);
-    return 0;
-}
-#endif
-
-/*********************************************************************
- *		memcpy_s (MSVCRT.@)
- */
-int CDECL memcpy_s(void *dest, size_t numberOfElements, const void *src, size_t count)
-{
-    TRACE("(%p %Iu %p %Iu)\n", dest, numberOfElements, src, count);
-
-    if(!count)
-        return 0;
-
-    if (!MSVCRT_CHECK_PMT(dest != NULL)) return EINVAL;
-    if (!MSVCRT_CHECK_PMT(src != NULL))
-    {
-        memset(dest, 0, numberOfElements);
-        return EINVAL;
-    }
-    if (!MSVCRT_CHECK_PMT_ERR( count <= numberOfElements, ERANGE ))
-    {
-        memset(dest, 0, numberOfElements);
-        return ERANGE;
-    }
-
-    memmove(dest, src, count);
-    return 0;
-}
-
-#if _MSVCR_VER>=100
-/*********************************************************************
- *              wmemcpy_s (MSVCR100.@)
- */
-int CDECL wmemcpy_s(wchar_t *dest, size_t numberOfElements,
-        const wchar_t *src, size_t count)
-{
-    TRACE("(%p %Iu %p %Iu)\n", dest, numberOfElements, src, count);
-
-    if (!count)
-        return 0;
-
-    if (!MSVCRT_CHECK_PMT(dest != NULL)) return EINVAL;
-
-    if (!MSVCRT_CHECK_PMT(src != NULL)) {
-        memset(dest, 0, numberOfElements*sizeof(wchar_t));
-        return EINVAL;
-    }
-    if (!MSVCRT_CHECK_PMT_ERR(count <= numberOfElements, ERANGE)) {
-        memset(dest, 0, numberOfElements*sizeof(wchar_t));
-        return ERANGE;
-    }
-
-    memmove(dest, src, sizeof(wchar_t)*count);
-    return 0;
-}
-#endif
-
-/*********************************************************************
- *		strncpy_s (MSVCRT.@)
- */
-int CDECL strncpy_s(char *dest, size_t numberOfElements,
-        const char *src, size_t count)
-{
-    size_t i, end;
-
-    TRACE("(%p %Iu %s %Iu)\n", dest, numberOfElements, debugstr_a(src), count);
-
-    if(!count) {
-        if(dest && numberOfElements)
-            *dest = 0;
-        return 0;
-    }
-
-    if (!MSVCRT_CHECK_PMT(dest != NULL)) return EINVAL;
-    if (!MSVCRT_CHECK_PMT(src != NULL)) return EINVAL;
-    if (!MSVCRT_CHECK_PMT(numberOfElements != 0)) return EINVAL;
-
-    if(count!=_TRUNCATE && count<numberOfElements)
-        end = count;
-    else
-        end = numberOfElements-1;
-
-    for(i=0; i<end && src[i]; i++)
-        dest[i] = src[i];
-
-    if(!src[i] || end==count || count==_TRUNCATE) {
-        dest[i] = '\0';
-        return 0;
-    }
-
-    MSVCRT_INVALID_PMT("dest[numberOfElements] is too small", EINVAL);
-    dest[0] = '\0';
-    return EINVAL;
-}
-
-BOOL msvcrt_init_heap(void)
-{
-#ifdef __REACTOS__
-    heap = GetProcessHeap();
-#else
-    heap = HeapCreate(0, 0, 0);
-#endif
-    return heap != NULL;
-}
-
-void msvcrt_destroy_heap(void)
-{
-    HeapDestroy(heap);
-    if(sb_heap)
-        HeapDestroy(sb_heap);
-}

sdk/lib/crt/wine/msvcrt.h

···
-/*
- * Copyright 2001 Jon Griffiths
- * Copyright 2004 Dimitrie O. Paun
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-#ifndef __WINE_MSVCRT_H
-#define __WINE_MSVCRT_H
-
-#include <errno.h>
-#include <stdarg.h>
-#include <stdint.h>
-#define _NO_CRT_STDIO_INLINE
-#include <stdio.h>
-#include <stdlib.h>
-#include <wchar.h>
-
-#include "windef.h"
-#include "winbase.h"
-#undef strncpy
-#undef wcsncpy
-
-#ifdef __REACTOS__
-typedef long __msvcrt_long;
-typedef unsigned long __msvcrt_ulong;
-#endif
-
-extern BOOL sse2_supported DECLSPEC_HIDDEN;
-
-#define DBL80_MAX_10_EXP 4932
-#define DBL80_MIN_10_EXP -4951
-
-typedef void (__cdecl *terminate_function)(void);
-typedef void (__cdecl *unexpected_function)(void);
-typedef void (__cdecl *_se_translator_function)(unsigned int code, struct _EXCEPTION_POINTERS *info);
-void __cdecl terminate(void);
-
-typedef void (__cdecl *MSVCRT_security_error_handler)(int, void *);
-
-typedef struct {ULONG x80[3];} MSVCRT__LDOUBLE; /* Intel 80 bit FP format has sizeof() 12 */
-
-typedef struct __lc_time_data {
-    union {
-        const char *str[43];
-        struct {
-            const char *short_wday[7];
-            const char *wday[7];
-            const char *short_mon[12];
-            const char *mon[12];
-            const char *am;
-            const char *pm;
-            const char *short_date;
-            const char *date;
-            const char *time;
-        } names;
-    } str;
-#if _MSVCR_VER < 110
-    LCID lcid;
-#endif
-    int unk;
-    int refcount;
-#if _MSVCR_VER == 0 || _MSVCR_VER >= 100
-    union {
-        const wchar_t *wstr[43];
-        struct {
-            const wchar_t *short_wday[7];
-            const wchar_t *wday[7];
-            const wchar_t *short_mon[12];
-            const wchar_t *mon[12];
-            const wchar_t *am;
-            const wchar_t *pm;
-            const wchar_t *short_date;
-            const wchar_t *date;
-            const wchar_t *time;
-        } names;
-    } wstr;
-#endif
-#if _MSVCR_VER >= 110
-    const wchar_t *locname;
-#endif
-    char data[1];
-} __lc_time_data;
-
-typedef struct threadmbcinfostruct {
-    int refcount;
-    int mbcodepage;
-    int ismbcodepage;
-    int mblcid;
-    unsigned short mbulinfo[6];
-    unsigned char mbctype[257];
-    unsigned char mbcasemap[256];
-} threadmbcinfo;
-
-typedef struct _frame_info
-{
-    void *object;
-    struct _frame_info *next;
-} frame_info;
-
-typedef struct
-{
-    frame_info frame_info;
-    EXCEPTION_RECORD *rec;
-    CONTEXT *context;
-} cxx_frame_info;
-
-frame_info* __cdecl _CreateFrameInfo(frame_info *fi, void *obj);
-BOOL __cdecl __CxxRegisterExceptionObject(EXCEPTION_POINTERS*, cxx_frame_info*);
-void __cdecl __CxxUnregisterExceptionObject(cxx_frame_info*, BOOL);
-void CDECL __DestructExceptionObject(EXCEPTION_RECORD*);
-
-/* TLS data */
-extern DWORD msvcrt_tls_index DECLSPEC_HIDDEN;
-
-#define LOCALE_FREE     0x1
-#define LOCALE_THREAD   0x2
-
-/* Keep in sync with msvcr90/tests/msvcr90.c */
-struct __thread_data {
-    DWORD                           tid;
-    HANDLE                          handle;
-    int                             thread_errno;
-    __msvcrt_ulong                  thread_doserrno;
-    int                             unk1;
-    unsigned int                    random_seed;        /* seed for rand() */
-    char                           *strtok_next;        /* next ptr for strtok() */
-    wchar_t                        *wcstok_next;        /* next ptr for wcstok() */
-    unsigned char                  *mbstok_next;        /* next ptr for mbstok() */
-    char                           *strerror_buffer;    /* buffer for strerror */
-    wchar_t                        *wcserror_buffer;    /* buffer for wcserror */
-    char                           *tmpnam_buffer;      /* buffer for tmpname() */
-    wchar_t                        *wtmpnam_buffer;     /* buffer for wtmpname() */
-    void                           *unk2[2];
-    char                           *asctime_buffer;     /* buffer for asctime */
-    wchar_t                        *wasctime_buffer;    /* buffer for wasctime */
-    struct tm                      *time_buffer;        /* buffer for localtime/gmtime */
-    char                           *efcvt_buffer;       /* buffer for ecvt/fcvt */
-    int                             unk3[2];
-    void                           *unk4[3];
-    EXCEPTION_POINTERS             *xcptinfo;
-    int                             fpecode;
-    pthreadmbcinfo                  mbcinfo;
-    pthreadlocinfo                  locinfo;
-    int                             locale_flags;
-    int                             unk5[1];
-    terminate_function              terminate_handler;
-    unexpected_function             unexpected_handler;
-    _se_translator_function         se_translator;      /* preserve offset to exc_record and processing_throw */
-    void                           *unk6;
-    EXCEPTION_RECORD               *exc_record;
-    CONTEXT                        *ctx_record;
-    int                             processing_throw;
-    frame_info                     *frame_info_head;
-    void                           *unk8[6];
-    LCID                            cached_lcid;
-    BOOL                            cached_sname;
-    int                             unk9[2];
-    DWORD                           cached_cp;
-    char                            cached_locale[131];
-    void                           *unk10[100];
-#if _MSVCR_VER >= 140
-    _invalid_parameter_handler      invalid_parameter_handler;
-    HMODULE                         module;
-#endif
-};
-
-typedef struct __thread_data thread_data_t;
-
-extern thread_data_t *CDECL msvcrt_get_thread_data(void) DECLSPEC_HIDDEN;
-
-LCID locale_to_LCID(const char*, unsigned short*, BOOL*) DECLSPEC_HIDDEN;
-extern _locale_t MSVCRT_locale DECLSPEC_HIDDEN;
-extern __lc_time_data cloc_time_data DECLSPEC_HIDDEN;
-extern unsigned int MSVCRT___lc_codepage;
-extern int MSVCRT___lc_collate_cp;
-extern WORD MSVCRT__ctype [257];
-extern BOOL initial_locale DECLSPEC_HIDDEN;
-extern WORD *MSVCRT__pwctype;
-
-void msvcrt_set_errno(int) DECLSPEC_HIDDEN;
-#if _MSVCR_VER >= 80
-void throw_bad_alloc(void) DECLSPEC_HIDDEN;
-#endif
-
-void __cdecl _purecall(void);
-void __cdecl _amsg_exit(int errnum);
-
-extern char **MSVCRT__environ;
-extern wchar_t **MSVCRT__wenviron;
-
-extern char ** msvcrt_SnapshotOfEnvironmentA(char **) DECLSPEC_HIDDEN;
-extern wchar_t ** msvcrt_SnapshotOfEnvironmentW(wchar_t **) DECLSPEC_HIDDEN;
-
-wchar_t *msvcrt_wstrdupa(const char *) DECLSPEC_HIDDEN;
-
-extern unsigned int MSVCRT__commode;
-
-/* FIXME: This should be declared in new.h but it's not an extern "C" so
- * it would not be much use anyway. Even for Winelib applications.
- */
-void* __cdecl operator_new(size_t);
-void __cdecl operator_delete(void*);
-int __cdecl _set_new_mode(int mode);
-
-typedef void* (__cdecl *malloc_func_t)(size_t);
-typedef void  (__cdecl *free_func_t)(void*);
-
-/* Setup and teardown multi threaded locks */
-extern void msvcrt_init_mt_locks(void) DECLSPEC_HIDDEN;
-extern void msvcrt_free_locks(void) DECLSPEC_HIDDEN;
-
-extern void msvcrt_init_exception(void*) DECLSPEC_HIDDEN;
-extern BOOL msvcrt_init_locale(void) DECLSPEC_HIDDEN;
-extern void msvcrt_init_math(void*) DECLSPEC_HIDDEN;
-extern void msvcrt_init_io(void) DECLSPEC_HIDDEN;
-extern void msvcrt_free_io(void) DECLSPEC_HIDDEN;
-extern void msvcrt_free_console(void) DECLSPEC_HIDDEN;
-extern void msvcrt_init_args(void) DECLSPEC_HIDDEN;
-extern void msvcrt_free_args(void) DECLSPEC_HIDDEN;
-extern void msvcrt_init_signals(void) DECLSPEC_HIDDEN;
-extern void msvcrt_free_signals(void) DECLSPEC_HIDDEN;
-extern void msvcrt_free_popen_data(void) DECLSPEC_HIDDEN;
-extern BOOL msvcrt_init_heap(void) DECLSPEC_HIDDEN;
-extern void msvcrt_destroy_heap(void) DECLSPEC_HIDDEN;
-extern void msvcrt_init_clock(void) DECLSPEC_HIDDEN;
-
-#if _MSVCR_VER >= 100
-extern void msvcrt_init_concurrency(void*) DECLSPEC_HIDDEN;
-extern void msvcrt_free_concurrency(void) DECLSPEC_HIDDEN;
-extern void msvcrt_free_scheduler_thread(void) DECLSPEC_HIDDEN;
-#endif
-
-extern BOOL msvcrt_create_io_inherit_block(WORD*, BYTE**) DECLSPEC_HIDDEN;
-
-/* run-time error codes */
-#define _RT_STACK       0
-#define _RT_NULLPTR     1
-#define _RT_FLOAT       2
-#define _RT_INTDIV      3
-#define _RT_EXECMEM     5
-#define _RT_EXECFORM    6
-#define _RT_EXECENV     7
-#define _RT_SPACEARG    8
-#define _RT_SPACEENV    9
-#define _RT_ABORT       10
-#define _RT_NPTR        12
-#define _RT_FPTR        13
-#define _RT_BREAK       14
-#define _RT_INT         15
-#define _RT_THREAD      16
-#define _RT_LOCK        17
-#define _RT_HEAP        18
-#define _RT_OPENCON     19
-#define _RT_QWIN        20
-#define _RT_NOMAIN      21
-#define _RT_NONCONT     22
-#define _RT_INVALDISP   23
-#define _RT_ONEXIT      24
-#define _RT_PUREVIRT    25
-#define _RT_STDIOINIT   26
-#define _RT_LOWIOINIT   27
-#define _RT_HEAPINIT    28
-#define _RT_DOMAIN      120
-#define _RT_SING        121
-#define _RT_TLOSS       122
-#define _RT_CRNL        252
-#define _RT_BANNER      255
-
-extern FILE MSVCRT__iob[];
-
-#define MSVCRT_NO_CONSOLE_FD (-2)
-#define MSVCRT_NO_CONSOLE ((HANDLE)MSVCRT_NO_CONSOLE_FD)
-
-#define MSVCRT_stdin       (MSVCRT__iob+STDIN_FILENO)
-#define MSVCRT_stdout      (MSVCRT__iob+STDOUT_FILENO)
-#define MSVCRT_stderr      (MSVCRT__iob+STDERR_FILENO)
-
-/* internal file._flag flags */
-#define MSVCRT__USERBUF  0x0100
-#define MSVCRT__IOCOMMIT 0x4000
-
-#ifdef __REACTOS__
-typedef void (__cdecl *__sighandler_t)(int);
-#endif
-
-#define _MAX__TIME64_T    (((__time64_t)0x00000007 << 32) | 0x93406FFF)
-
-_locale_t CDECL get_current_locale_noalloc(_locale_t locale) DECLSPEC_HIDDEN;
-void CDECL free_locale_noalloc(_locale_t locale) DECLSPEC_HIDDEN;
-pthreadlocinfo CDECL get_locinfo(void) DECLSPEC_HIDDEN;
-pthreadmbcinfo CDECL get_mbcinfo(void) DECLSPEC_HIDDEN;
-threadmbcinfo* create_mbcinfo(int, LCID, threadmbcinfo*) DECLSPEC_HIDDEN;
-void free_locinfo(pthreadlocinfo) DECLSPEC_HIDDEN;
-void free_mbcinfo(pthreadmbcinfo) DECLSPEC_HIDDEN;
-int __cdecl __crtLCMapStringA(LCID, DWORD, const char*, int, char*, int, unsigned int, int) DECLSPEC_HIDDEN;
-
-enum fpmod {
-    FP_ROUND_ZERO, /* only used when dropped part contains only zeros */
-    FP_ROUND_DOWN,
-    FP_ROUND_EVEN,
-    FP_ROUND_UP,
-    FP_VAL_INFINITY,
-    FP_VAL_NAN
-};
-
-struct fpnum {
-    int sign;
-    int exp;
-    ULONGLONG m;
-    enum fpmod mod;
-};
-struct fpnum fpnum_parse(wchar_t (*)(void*), void (*)(void*),
-        void*, pthreadlocinfo, BOOL) DECLSPEC_HIDDEN;
-int fpnum_double(struct fpnum*, double*) DECLSPEC_HIDDEN;
-/* Maybe one day we'll enable the invalid parameter handlers with the full set of information (msvcrXXd)
- *      #define MSVCRT_INVALID_PMT(x) MSVCRT_call_invalid_parameter_handler(x, __FUNCTION__, __FILE__, __LINE__, 0)
- *      #define MSVCRT_CHECK_PMT(x)   ((x) ? TRUE : MSVCRT_INVALID_PMT(#x),FALSE)
- * Until this is done, just keep the same semantics for CHECK_PMT(), but without generating / sending
- * any information
- * NB : MSVCRT_call_invalid_parameter_handler is a wrapper around _invalid_parameter in order
- * to do the Ansi to Unicode transformation
- */
-#define MSVCRT_INVALID_PMT(x,err)   (*_errno() = (err), _invalid_parameter(NULL, NULL, NULL, 0, 0))
-#define MSVCRT_CHECK_PMT_ERR(x,err) ((x) || (MSVCRT_INVALID_PMT( 0, (err) ), FALSE))
-#define MSVCRT_CHECK_PMT(x)         MSVCRT_CHECK_PMT_ERR((x), EINVAL)
-
-typedef int (*puts_clbk_a)(void*, int, const char*);
-typedef int (*puts_clbk_w)(void*, int, const wchar_t*);
-typedef union _printf_arg
-{
-    void *get_ptr;
-    int get_int;
-    LONGLONG get_longlong;
-    double get_double;
-} printf_arg;
-typedef printf_arg (*args_clbk)(void*, int, int, va_list*);
-int pf_printf_a(puts_clbk_a, void*, const char*, _locale_t,
-        DWORD, args_clbk, void*, va_list*) DECLSPEC_HIDDEN;
-int pf_printf_w(puts_clbk_w, void*, const wchar_t*, _locale_t,
-        DWORD, args_clbk, void*, va_list*) DECLSPEC_HIDDEN;
-int create_positional_ctx_a(void*, const char*, va_list) DECLSPEC_HIDDEN;
-int create_positional_ctx_w(void*, const wchar_t*, va_list) DECLSPEC_HIDDEN;
-printf_arg arg_clbk_valist(void*, int, int, va_list*) DECLSPEC_HIDDEN;
-printf_arg arg_clbk_positional(void*, int, int, va_list*) DECLSPEC_HIDDEN;
-
-extern char* __cdecl __unDName(char *,const char*,int,malloc_func_t,free_func_t,unsigned short int);
-
-/* __unDName/__unDNameEx flags */
-#define UNDNAME_COMPLETE                 (0x0000)
-#define UNDNAME_NO_LEADING_UNDERSCORES   (0x0001) /* Don't show __ in calling convention */
-#define UNDNAME_NO_MS_KEYWORDS           (0x0002) /* Don't show calling convention at all */
-#define UNDNAME_NO_FUNCTION_RETURNS      (0x0004) /* Don't show function/method return value */
-#define UNDNAME_NO_ALLOCATION_MODEL      (0x0008)
-#define UNDNAME_NO_ALLOCATION_LANGUAGE   (0x0010)
-#define UNDNAME_NO_MS_THISTYPE           (0x0020)
-#define UNDNAME_NO_CV_THISTYPE           (0x0040)
-#define UNDNAME_NO_THISTYPE              (0x0060)
-#define UNDNAME_NO_ACCESS_SPECIFIERS     (0x0080) /* Don't show access specifier (public/protected/private) */
-#define UNDNAME_NO_THROW_SIGNATURES      (0x0100)
-#define UNDNAME_NO_MEMBER_TYPE           (0x0200) /* Don't show static/virtual specifier */
-#define UNDNAME_NO_RETURN_UDT_MODEL      (0x0400)
-#define UNDNAME_32_BIT_DECODE            (0x0800)
-#define UNDNAME_NAME_ONLY                (0x1000) /* Only report the variable/method name */
-#define UNDNAME_NO_ARGUMENTS             (0x2000) /* Don't show method arguments */
-#define UNDNAME_NO_SPECIAL_SYMS          (0x4000)
-#define UNDNAME_NO_COMPLEX_TYPE          (0x8000)
-
-#define UCRTBASE_PRINTF_MASK ( \
-        _CRT_INTERNAL_PRINTF_LEGACY_VSPRINTF_NULL_TERMINATION | \
-        _CRT_INTERNAL_PRINTF_STANDARD_SNPRINTF_BEHAVIOR | \
-        _CRT_INTERNAL_PRINTF_LEGACY_WIDE_SPECIFIERS | \
-        _CRT_INTERNAL_PRINTF_LEGACY_MSVCRT_COMPATIBILITY | \
-        _CRT_INTERNAL_PRINTF_LEGACY_THREE_DIGIT_EXPONENTS | \
-        _CRT_INTERNAL_PRINTF_STANDARD_ROUNDING )
-
-#define MSVCRT_PRINTF_POSITIONAL_PARAMS                  (0x0100)
-#define MSVCRT_PRINTF_INVOKE_INVALID_PARAM_HANDLER       (0x0200)
-
-#define UCRTBASE_SCANF_MASK ( \
-        _CRT_INTERNAL_SCANF_SECURECRT | \
-        _CRT_INTERNAL_SCANF_LEGACY_WIDE_SPECIFIERS | \
-        _CRT_INTERNAL_SCANF_LEGACY_MSVCRT_COMPATIBILITY )
-
-#define COOPERATIVE_TIMEOUT_INFINITE ((unsigned int)-1)
-#define COOPERATIVE_WAIT_TIMEOUT     ~0
-
-#define INHERIT_THREAD_PRIORITY 0xF000
-
-
-#ifdef __REACTOS__
-#define __wine_longjmp longjmp
-#define __wine_jmp_buf _JBTYPE
-
-#ifdef _M_IX86
-// ASM wrapper for Wine code. See rosglue_i386.s for implementation.
-void
-WINAPI
-__wine__RtlUnwind(
-    struct _EXCEPTION_REGISTRATION_RECORD* pEndFrame,
-    PVOID targetIp,
-    struct _EXCEPTION_RECORD* pRecord,
-    PVOID retval);
-#define RtlUnwind __wine__RtlUnwind
-#endif /* _M_IX86 */
-
-#endif
-
-#endif /* __WINE_MSVCRT_H */

sdk/lib/crt/wine/mtdll.h

···
-/*
- * Copyright (c) 2002, TransGaming Technologies Inc.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-#ifndef WINE_MTDLL_H
-#define WINE_MTDLL_H
-
-void __cdecl _unlock( int locknum );
-void __cdecl _lock( int locknum );
-
-#define _SIGNAL_LOCK    1
-#define _IOB_SCAN_LOCK  2
-#define _TMPNAM_LOCK    3
-#define _INPUT_LOCK     4
-#define _OUTPUT_LOCK    5
-#define _CSCANF_LOCK    6
-#define _CPRINTF_LOCK   7
-#define _CONIO_LOCK     8
-#define _HEAP_LOCK      9
-#define _BHEAP_LOCK          10 /* No longer used? */
-#define _TIME_LOCK      11
-#define _ENV_LOCK       12
-#define _EXIT_LOCK1     13
-#define _EXIT_LOCK2          14
-#define _THREADDATA_LOCK     15 /* No longer used? */
-#define _POPEN_LOCK     16
-#define _LOCKTAB_LOCK   17
-#define _OSFHND_LOCK    18
-#define _SETLOCALE_LOCK 19
-#define _LC_COLLATE_LOCK     20 /* No longer used? */
-#define _LC_CTYPE_LOCK       21 /* No longer used? */
-#define _LC_MONETARY_LOCK    22 /* No longer used? */
-#define _LC_NUMERIC_LOCK     23 /* No longer used? */
-#define _LC_TIME_LOCK        24 /* No longer used? */
-#define _MB_CP_LOCK     25
-#define _NLG_LOCK       26
-#define _TYPEINFO_LOCK  27
-#define _STREAM_LOCKS   28
-
-/* Must match definition in msvcrt/stdio.h */
-#define _IOB_ENTRIES    20
-
-#define _LAST_STREAM_LOCK  (_STREAM_LOCKS+_IOB_ENTRIES-1)
-
-#define _TOTAL_LOCKS        (_LAST_STREAM_LOCK+1)
-
-#endif /* WINE_MTDLL_H */

sdk/lib/crt/wine/rosglue_i386.s

···
-
-#include <asm.inc>
-
-.code
-
-EXTERN _RtlUnwind@16:PROC
-
-// ASM wrapper for Wine code. This is needed, because Wine code expects
-// RtlUnwind to restore the non-volatile registers, before returning, but
-// ours / the native one does not do that.
-//
-// void
-// WINAPI
-// __wine__RtlUnwind(
-//     PVOID TargetFrame,
-//     PVOID TargetIp ,
-//     PEXCEPTION_RECORD ExceptionRecord ,
-//     PVOID ReturnValue);
-//
-PUBLIC ___wine__RtlUnwind@16
-___wine__RtlUnwind@16:
-
-    push ebp
-    mov ebp, esp
-
-    /* Save non-volatile registers */
-    push ebx
-    push esi
-    push edi
-
-    /* Call the native function */
-    push dword ptr [ebp + 20] // ReturnValue
-    push dword ptr [ebp + 16] // ExceptionRecord
-    push dword ptr [ebp + 12] // TargetIp
-    push dword ptr [ebp + 8]  // TargetFrame
-    call _RtlUnwind@16
-
-    /* Restore non-volatile registers */
-    pop edi
-    pop esi
-    pop ebx
-
-    mov esp, ebp
-    pop ebp
-    ret 16
-
-END

sdk/lib/crt/wine/undname.c

···
-/*
- *  Demangle VC++ symbols into C function prototypes
- *
- *  Copyright 2000 Jon Griffiths
- *            2004 Eric Pouech
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-#include <assert.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include "msvcrt.h"
-
-#include "wine/debug.h"
-
-WINE_DEFAULT_DEBUG_CHANNEL(msvcrt);
-
-#ifdef __REACTOS__
-#define MSVCRT_atoi atoi
-#define MSVCRT_isdigit isdigit
-#define MSVCRT_sprintf sprintf
-#endif
-
-/* TODO:
- * - document a bit (grammar + functions)
- * - back-port this new code into tools/winedump/msmangle.c
- */
-
-/* How data types modifiers are stored:
- * M (in the following definitions) is defined for 
- * 'A', 'B', 'C' and 'D' as follows
- *      {<A>}:  ""
- *      {<B>}:  "const "
- *      {<C>}:  "volatile "
- *      {<D>}:  "const volatile "
- *
- *      in arguments:
- *              P<M>x   {<M>}x*
- *              Q<M>x   {<M>}x* const
- *              A<M>x   {<M>}x&
- *      in data fields:
- *              same as for arguments and also the following
- *              ?<M>x   {<M>}x
- *              
- */
-
-struct array
-{
-    unsigned            start;          /* first valid reference in array */
-    unsigned            num;            /* total number of used elts */
-    unsigned            max;
-    unsigned            alloc;
-    char**              elts;
-};
-
-/* Structure holding a parsed symbol */
-struct parsed_symbol
-{
-    unsigned            flags;          /* the UNDNAME_ flags used for demangling */
-    malloc_func_t       mem_alloc_ptr;  /* internal allocator */
-    free_func_t         mem_free_ptr;   /* internal deallocator */
-
-    const char*         current;        /* pointer in input (mangled) string */
-    char*               result;         /* demangled string */
-
-    struct array        names;          /* array of names for back reference */
-    struct array        stack;          /* stack of parsed strings */
-
-    void*               alloc_list;     /* linked list of allocated blocks */
-    unsigned            avail_in_first; /* number of available bytes in head block */
-};
-
-/* Type for parsing mangled types */
-struct datatype_t
-{
-    const char*         left;
-    const char*         right;
-};
-
-static BOOL symbol_demangle(struct parsed_symbol* sym);
-
-/******************************************************************
- *		und_alloc
- *
- * Internal allocator. Uses a simple linked list of large blocks
- * where we use a poor-man allocator. It's fast, and since all
- * allocation is pool, memory management is easy (esp. freeing).
- */
-static void*    und_alloc(struct parsed_symbol* sym, unsigned int len)
-{
-    void*       ptr;
-
-#define BLOCK_SIZE      1024
-#define AVAIL_SIZE      (1024 - sizeof(void*))
-
-    if (len > AVAIL_SIZE)
-    {
-        /* allocate a specific block */
-        ptr = sym->mem_alloc_ptr(sizeof(void*) + len);
-        if (!ptr) return NULL;
-        *(void**)ptr = sym->alloc_list;
-        sym->alloc_list = ptr;
-        sym->avail_in_first = 0;
-        ptr = (char*)sym->alloc_list + sizeof(void*);
-    }
-    else 
-    {
-        if (len > sym->avail_in_first)
-        {
-            /* add a new block */
-            ptr = sym->mem_alloc_ptr(BLOCK_SIZE);
-            if (!ptr) return NULL;
-            *(void**)ptr = sym->alloc_list;
-            sym->alloc_list = ptr;
-            sym->avail_in_first = AVAIL_SIZE;
-        }
-        /* grab memory from head block */
-        ptr = (char*)sym->alloc_list + BLOCK_SIZE - sym->avail_in_first;
-        sym->avail_in_first -= len;
-    }
-    return ptr;
-#undef BLOCK_SIZE
-#undef AVAIL_SIZE
-}
-
-/******************************************************************
- *		und_free
- * Frees all the blocks in the list of large blocks allocated by
- * und_alloc.
- */
-static void und_free_all(struct parsed_symbol* sym)
-{
-    void*       next;
-
-    while (sym->alloc_list)
-    {
-        next = *(void**)sym->alloc_list;
-        if(sym->mem_free_ptr) sym->mem_free_ptr(sym->alloc_list);
-        sym->alloc_list = next;
-    }
-    sym->avail_in_first = 0;
-}
-
-/******************************************************************
- *		str_array_init
- * Initialises an array of strings
- */
-static void str_array_init(struct array* a)
-{
-    a->start = a->num = a->max = a->alloc = 0;
-    a->elts = NULL;
-}
-
-/******************************************************************
- *		str_array_push
- * Adding a new string to an array
- */
-static BOOL str_array_push(struct parsed_symbol* sym, const char* ptr, int len,
-                           struct array* a)
-{
-    char**      new;
-
-    assert(ptr);
-    assert(a);
-
-    if (!a->alloc)
-    {
-        new = und_alloc(sym, (a->alloc = 32) * sizeof(a->elts[0]));
-        if (!new) return FALSE;
-        a->elts = new;
-    }
-    else if (a->max >= a->alloc)
-    {
-        new = und_alloc(sym, (a->alloc * 2) * sizeof(a->elts[0]));
-        if (!new) return FALSE;
-        memcpy(new, a->elts, a->alloc * sizeof(a->elts[0]));
-        a->alloc *= 2;
-        a->elts = new;
-    }
-    if (len == -1) len = strlen(ptr);
-    a->elts[a->num] = und_alloc(sym, len + 1);
-    assert(a->elts[a->num]);
-    memcpy(a->elts[a->num], ptr, len);
-    a->elts[a->num][len] = '\0'; 
-    if (++a->num >= a->max) a->max = a->num;
-    {
-        int i;
-        char c;
-
-        for (i = a->max - 1; i >= 0; i--)
-        {
-            c = '>';
-            if (i < a->start) c = '-';
-            else if (i >= a->num) c = '}';
-            TRACE("%p\t%d%c %s\n", a, i, c, debugstr_a(a->elts[i]));
-        }
-    }
-
-    return TRUE;
-}
-
-/******************************************************************
- *		str_array_get_ref
- * Extracts a reference from an existing array (doing proper type
- * checking)
- */
-static char* str_array_get_ref(struct array* cref, unsigned idx)
-{
-    assert(cref);
-    if (cref->start + idx >= cref->max)
-    {
-        WARN("Out of bounds: %p %d + %d >= %d\n", 
-              cref, cref->start, idx, cref->max);
-        return NULL;
-    }
-    TRACE("Returning %p[%d] => %s\n", 
-          cref, idx, debugstr_a(cref->elts[cref->start + idx]));
-    return cref->elts[cref->start + idx];
-}
-
-/******************************************************************
- *		str_printf
- * Helper for printf type of command (only %s and %c are implemented) 
- * while dynamically allocating the buffer
- */
-static char* WINAPIV str_printf(struct parsed_symbol* sym, const char* format, ...)
-{
-    va_list      args;
-    unsigned int len = 1, i, sz;
-    char*        tmp;
-    char*        p;
-    char*        t;
-
-    va_start(args, format);
-    for (i = 0; format[i]; i++)
-    {
-        if (format[i] == '%')
-        {
-            switch (format[++i])
-            {
-            case 's': t = va_arg(args, char*); if (t) len += strlen(t); break;
-            case 'c': (void)va_arg(args, int); len++; break;
-            default: i--; /* fall through */
-            case '%': len++; break;
-            }
-        }
-        else len++;
-    }
-    va_end(args);
-    if (!(tmp = und_alloc(sym, len))) return NULL;
-    va_start(args, format);
-    for (p = tmp, i = 0; format[i]; i++)
-    {
-        if (format[i] == '%')
-        {
-            switch (format[++i])
-            {
-            case 's':
-                t = va_arg(args, char*);
-                if (t)
-                {
-                    sz = strlen(t);
-                    memcpy(p, t, sz);
-                    p += sz;
-                }
-                break;
-            case 'c':
-                *p++ = (char)va_arg(args, int);
-                break;
-            default: i--; /* fall through */
-            case '%': *p++ = '%'; break;
-            }
-        }
-        else *p++ = format[i];
-    }
-    va_end(args);
-    *p = '\0';
-    return tmp;
-}
-
-/* forward declaration */
-static BOOL demangle_datatype(struct parsed_symbol* sym, struct datatype_t* ct,
-                              struct array* pmt, BOOL in_args);
-
-static const char* get_number(struct parsed_symbol* sym)
-{
-    char*       ptr;
-    BOOL        sgn = FALSE;
-
-    if (*sym->current == '?')
-    {
-        sgn = TRUE;
-        sym->current++;
-    }
-    if (*sym->current >= '0' && *sym->current <= '8')
-    {
-        ptr = und_alloc(sym, 3);
-        if (sgn) ptr[0] = '-';
-        ptr[sgn ? 1 : 0] = *sym->current + 1;
-        ptr[sgn ? 2 : 1] = '\0';
-        sym->current++;
-    }
-    else if (*sym->current == '9')
-    {
-        ptr = und_alloc(sym, 4);
-        if (sgn) ptr[0] = '-';
-        ptr[sgn ? 1 : 0] = '1';
-        ptr[sgn ? 2 : 1] = '0';
-        ptr[sgn ? 3 : 2] = '\0';
-        sym->current++;
-    }
-    else if (*sym->current >= 'A' && *sym->current <= 'P')
-    {
-        int ret = 0;
-
-        while (*sym->current >= 'A' && *sym->current <= 'P')
-        {
-            ret *= 16;
-            ret += *sym->current++ - 'A';
-        }
-        if (*sym->current != '@') return NULL;
-
-        ptr = und_alloc(sym, 17);
-        sprintf(ptr, "%s%u", sgn ? "-" : "", ret);
-        sym->current++;
-    }
-    else return NULL;
-    return ptr;
-}
-
-/******************************************************************
- *		get_args
- * Parses a list of function/method arguments, creates a string corresponding
- * to the arguments' list.
- */
-static char* get_args(struct parsed_symbol* sym, struct array* pmt_ref, BOOL z_term, 
-                      char open_char, char close_char)
-
-{
-    struct datatype_t   ct;
-    struct array        arg_collect;
-    char*               args_str = NULL;
-    char*               last;
-    unsigned int        i;
-
-    str_array_init(&arg_collect);
-
-    /* Now come the function arguments */
-    while (*sym->current)
-    {
-        /* Decode each data type and append it to the argument list */
-        if (*sym->current == '@')
-        {
-            sym->current++;
-            break;
-        }
-        if (!demangle_datatype(sym, &ct, pmt_ref, TRUE))
-            return NULL;
-        /* 'void' terminates an argument list in a function */
-        if (z_term && !strcmp(ct.left, "void")) break;
-        if (!str_array_push(sym, str_printf(sym, "%s%s", ct.left, ct.right), -1,
-                            &arg_collect))
-            return NULL;
-        if (!strcmp(ct.left, "...")) break;
-    }
-    /* Functions are always terminated by 'Z'. If we made it this far and
-     * don't find it, we have incorrectly identified a data type.
-     */
-    if (z_term && *sym->current++ != 'Z') return NULL;
-
-    if (arg_collect.num == 0 || 
-        (arg_collect.num == 1 && !strcmp(arg_collect.elts[0], "void")))        
-        return str_printf(sym, "%cvoid%c", open_char, close_char);
-    for (i = 1; i < arg_collect.num; i++)
-    {
-        args_str = str_printf(sym, "%s,%s", args_str, arg_collect.elts[i]);
-    }
-
-    last = args_str ? args_str : arg_collect.elts[0];
-    if (close_char == '>' && last[strlen(last) - 1] == '>')
-        args_str = str_printf(sym, "%c%s%s %c", 
-                              open_char, arg_collect.elts[0], args_str, close_char);
-    else
-        args_str = str_printf(sym, "%c%s%s%c", 
-                              open_char, arg_collect.elts[0], args_str, close_char);
-    
-    return args_str;
-}
-
-/******************************************************************
- *		get_modifier
- * Parses the type modifier. Always returns static strings.
- */
-static BOOL get_modifier(struct parsed_symbol *sym, const char **ret, const char **ptr_modif)
-{
-    *ptr_modif = NULL;
-    if (*sym->current == 'E')
-    {
-        if (!(sym->flags & UNDNAME_NO_MS_KEYWORDS))
-        {
-            *ptr_modif = "__ptr64";
-            if (sym->flags & UNDNAME_NO_LEADING_UNDERSCORES)
-                *ptr_modif = *ptr_modif + 2;
-        }
-        sym->current++;
-    }
-    switch (*sym->current++)
-    {
-    case 'A': *ret = NULL; break;
-    case 'B': *ret = "const"; break;
-    case 'C': *ret = "volatile"; break;
-    case 'D': *ret = "const volatile"; break;
-    default: return FALSE;
-    }
-    return TRUE;
-}
-
-static BOOL get_modified_type(struct datatype_t *ct, struct parsed_symbol* sym,
-                              struct array *pmt_ref, char modif, BOOL in_args)
-{
-    const char* modifier;
-    const char* str_modif;
-    const char *ptr_modif = "";
-
-    if (*sym->current == 'E')
-    {
-        if (!(sym->flags & UNDNAME_NO_MS_KEYWORDS))
-        {
-            if (sym->flags & UNDNAME_NO_LEADING_UNDERSCORES)
-                ptr_modif = " ptr64";
-            else
-                ptr_modif = " __ptr64";
-        }
-        sym->current++;
-    }
-
-    switch (modif)
-    {
-    case 'A': str_modif = str_printf(sym, " &%s", ptr_modif); break;
-    case 'B': str_modif = str_printf(sym, " &%s volatile", ptr_modif); break;
-    case 'P': str_modif = str_printf(sym, " *%s", ptr_modif); break;
-    case 'Q': str_modif = str_printf(sym, " *%s const", ptr_modif); break;
-    case 'R': str_modif = str_printf(sym, " *%s volatile", ptr_modif); break;
-    case 'S': str_modif = str_printf(sym, " *%s const volatile", ptr_modif); break;
-    case '?': str_modif = ""; break;
-    default: return FALSE;
-    }
-
-    if (get_modifier(sym, &modifier, &ptr_modif))
-    {
-        unsigned            mark = sym->stack.num;
-        struct datatype_t   sub_ct;
-
-        /* multidimensional arrays */
-        if (*sym->current == 'Y')
-        {
-            const char* n1;
-            int num;
-
-            sym->current++;
-            if (!(n1 = get_number(sym))) return FALSE;
-            num = atoi(n1);
-
-            if (str_modif[0] == ' ' && !modifier)
-                str_modif++;
-
-            if (modifier)
-            {
-                str_modif = str_printf(sym, " (%s%s)", modifier, str_modif);
-                modifier = NULL;
-            }
-            else
-                str_modif = str_printf(sym, " (%s)", str_modif);
-
-            while (num--)
-                str_modif = str_printf(sym, "%s[%s]", str_modif, get_number(sym));
-        }
-
-        /* Recurse to get the referred-to type */
-        if (!demangle_datatype(sym, &sub_ct, pmt_ref, FALSE))
-            return FALSE;
-        if (modifier)
-            ct->left = str_printf(sym, "%s %s%s", sub_ct.left, modifier, str_modif );
-        else
-        {
-            /* don't insert a space between duplicate '*' */
-            if (!in_args && str_modif[0] && str_modif[1] == '*' && sub_ct.left[strlen(sub_ct.left)-1] == '*')
-                str_modif++;
-            ct->left = str_printf(sym, "%s%s", sub_ct.left, str_modif );
-        }
-        ct->right = sub_ct.right;
-        sym->stack.num = mark;
-    }
-    return TRUE;
-}
-
-/******************************************************************
- *             get_literal_string
- * Gets the literal name from the current position in the mangled
- * symbol to the first '@' character. It pushes the parsed name to
- * the symbol names stack and returns a pointer to it or NULL in
- * case of an error.
- */
-static char* get_literal_string(struct parsed_symbol* sym)
-{
-    const char *ptr = sym->current;
-
-    do {
-        if (!((*sym->current >= 'A' && *sym->current <= 'Z') ||
-              (*sym->current >= 'a' && *sym->current <= 'z') ||
-              (*sym->current >= '0' && *sym->current <= '9') ||
-              *sym->current == '_' || *sym->current == '$')) {
-            TRACE("Failed at '%c' in %s\n", *sym->current, debugstr_a(ptr));
-            return NULL;
-        }
-    } while (*++sym->current != '@');
-    sym->current++;
-    if (!str_array_push(sym, ptr, sym->current - 1 - ptr, &sym->names))
-        return NULL;
-
-    return str_array_get_ref(&sym->names, sym->names.num - sym->names.start - 1);
-}
-
-/******************************************************************
- *		get_template_name
- * Parses a name with a template argument list and returns it as
- * a string.
- * In a template argument list the back reference to the names
- * table is separately created. '0' points to the class component
- * name with the template arguments.  We use the same stack array
- * to hold the names but save/restore the stack state before/after
- * parsing the template argument list.
- */
-static char* get_template_name(struct parsed_symbol* sym)
-{
-    char *name, *args;
-    unsigned num_mark = sym->names.num;
-    unsigned start_mark = sym->names.start;
-    unsigned stack_mark = sym->stack.num;
-    struct array array_pmt;
-
-    sym->names.start = sym->names.num;
-    if (!(name = get_literal_string(sym))) {
-        sym->names.start = start_mark;
-        return FALSE;
-    }
-    str_array_init(&array_pmt);
-    args = get_args(sym, &array_pmt, FALSE, '<', '>');
-    if (args != NULL)
-        name = str_printf(sym, "%s%s", name, args);
-    sym->names.num = num_mark;
-    sym->names.start = start_mark;
-    sym->stack.num = stack_mark;
-    return name;
-}
-
-/******************************************************************
- *		get_class
- * Parses class as a list of parent-classes, terminated by '@' and stores the
- * result in 'a' array. Each parent-classes, as well as the inner element
- * (either field/method name or class name), are represented in the mangled
- * name by a literal name ([a-zA-Z0-9_]+ terminated by '@') or a back reference
- * ([0-9]) or a name with template arguments ('?$' literal name followed by the
- * template argument list). The class name components appear in the reverse
- * order in the mangled name, e.g aaa@bbb@ccc@@ will be demangled to
- * ccc::bbb::aaa
- * For each of these class name components a string will be allocated in the
- * array.
- */
-static BOOL get_class(struct parsed_symbol* sym)
-{
-    const char* name = NULL;
-
-    while (*sym->current != '@')
-    {
-        switch (*sym->current)
-        {
-        case '\0': return FALSE;
-
-        case '0': case '1': case '2': case '3':
-        case '4': case '5': case '6': case '7':
-        case '8': case '9':
-            name = str_array_get_ref(&sym->names, *sym->current++ - '0');
-            break;
-        case '?':
-            switch (*++sym->current)
-            {
-            case '$':
-                sym->current++;
-                if ((name = get_template_name(sym)) &&
-                    !str_array_push(sym, name, -1, &sym->names))
-                    return FALSE;
-                break;
-            case '?':
-                {
-                    struct array stack = sym->stack;
-                    unsigned int start = sym->names.start;
-                    unsigned int num = sym->names.num;
-
-                    str_array_init( &sym->stack );
-                    if (symbol_demangle( sym )) name = str_printf( sym, "`%s'", sym->result );
-                    sym->names.start = start;
-                    sym->names.num = num;
-                    sym->stack = stack;
-                }
-                break;
-            default:
-                if (!(name = get_number( sym ))) return FALSE;
-                name = str_printf( sym, "`%s'", name );
-                break;
-            }
-            break;
-        default:
-            name = get_literal_string(sym);
-            break;
-        }
-        if (!name || !str_array_push(sym, name, -1, &sym->stack))
-            return FALSE;
-    }
-    sym->current++;
-    return TRUE;
-}
-
-/******************************************************************
- *		get_class_string
- * From an array collected by get_class in sym->stack, constructs the
- * corresponding (allocated) string
- */
-static char* get_class_string(struct parsed_symbol* sym, int start)
-{
-    int          i;
-    unsigned int len, sz;
-    char*        ret;
-    struct array *a = &sym->stack;
-
-    for (len = 0, i = start; i < a->num; i++)
-    {
-        assert(a->elts[i]);
-        len += 2 + strlen(a->elts[i]);
-    }
-    if (!(ret = und_alloc(sym, len - 1))) return NULL;
-    for (len = 0, i = a->num - 1; i >= start; i--)
-    {
-        sz = strlen(a->elts[i]);
-        memcpy(ret + len, a->elts[i], sz);
-        len += sz;
-        if (i > start)
-        {
-            ret[len++] = ':';
-            ret[len++] = ':';
-        }
-    }
-    ret[len] = '\0';
-    return ret;
-}
-
-/******************************************************************
- *            get_class_name
- * Wrapper around get_class and get_class_string.
- */
-static char* get_class_name(struct parsed_symbol* sym)
-{
-    unsigned    mark = sym->stack.num;
-    char*       s = NULL;
-
-    if (get_class(sym))
-        s = get_class_string(sym, mark);
-    sym->stack.num = mark;
-    return s;
-}
-
-/******************************************************************
- *		get_calling_convention
- * Returns a static string corresponding to the calling convention described
- * by char 'ch'. Sets export to TRUE iff the calling convention is exported.
- */
-static BOOL get_calling_convention(char ch, const char** call_conv,
-                                   const char** exported, unsigned flags)
-{
-    *call_conv = *exported = NULL;
-
-    if (!(flags & (UNDNAME_NO_MS_KEYWORDS | UNDNAME_NO_ALLOCATION_LANGUAGE)))
-    {
-        if (flags & UNDNAME_NO_LEADING_UNDERSCORES)
-        {
-            if (((ch - 'A') % 2) == 1) *exported = "dll_export ";
-            switch (ch)
-            {
-            case 'A': case 'B': *call_conv = "cdecl"; break;
-            case 'C': case 'D': *call_conv = "pascal"; break;
-            case 'E': case 'F': *call_conv = "thiscall"; break;
-            case 'G': case 'H': *call_conv = "stdcall"; break;
-            case 'I': case 'J': *call_conv = "fastcall"; break;
-            case 'K': case 'L': break;
-            case 'M': *call_conv = "clrcall"; break;
-            default: ERR("Unknown calling convention %c\n", ch); return FALSE;
-            }
-        }
-        else
-        {
-            if (((ch - 'A') % 2) == 1) *exported = "__dll_export ";
-            switch (ch)
-            {
-            case 'A': case 'B': *call_conv = "__cdecl"; break;
-            case 'C': case 'D': *call_conv = "__pascal"; break;
-            case 'E': case 'F': *call_conv = "__thiscall"; break;
-            case 'G': case 'H': *call_conv = "__stdcall"; break;
-            case 'I': case 'J': *call_conv = "__fastcall"; break;
-            case 'K': case 'L': break;
-            case 'M': *call_conv = "__clrcall"; break;
-            default: ERR("Unknown calling convention %c\n", ch); return FALSE;
-            }
-        }
-    }
-    return TRUE;
-}
-
-/*******************************************************************
- *         get_simple_type
- * Return a string containing an allocated string for a simple data type
- */
-static const char* get_simple_type(char c)
-{
-    const char* type_string;
-    
-    switch (c)
-    {
-    case 'C': type_string = "signed char"; break;
-    case 'D': type_string = "char"; break;
-    case 'E': type_string = "unsigned char"; break;
-    case 'F': type_string = "short"; break;
-    case 'G': type_string = "unsigned short"; break;
-    case 'H': type_string = "int"; break;
-    case 'I': type_string = "unsigned int"; break;
-    case 'J': type_string = "long"; break;
-    case 'K': type_string = "unsigned long"; break;
-    case 'M': type_string = "float"; break;
-    case 'N': type_string = "double"; break;
-    case 'O': type_string = "long double"; break;
-    case 'X': type_string = "void"; break;
-    case 'Z': type_string = "..."; break;
-    default:  type_string = NULL; break;
-    }
-    return type_string;
-}
-
-/*******************************************************************
- *         get_extended_type
- * Return a string containing an allocated string for a simple data type
- */
-static const char* get_extended_type(char c)
-{
-    const char* type_string;
-    
-    switch (c)
-    {
-    case 'D': type_string = "__int8"; break;
-    case 'E': type_string = "unsigned __int8"; break;
-    case 'F': type_string = "__int16"; break;
-    case 'G': type_string = "unsigned __int16"; break;
-    case 'H': type_string = "__int32"; break;
-    case 'I': type_string = "unsigned __int32"; break;
-    case 'J': type_string = "__int64"; break;
-    case 'K': type_string = "unsigned __int64"; break;
-    case 'L': type_string = "__int128"; break;
-    case 'M': type_string = "unsigned __int128"; break;
-    case 'N': type_string = "bool"; break;
-    case 'W': type_string = "wchar_t"; break;
-    default:  type_string = NULL; break;
-    }
-    return type_string;
-}
-
-/*******************************************************************
- *         demangle_datatype
- *
- * Attempt to demangle a C++ data type, which may be datatype.
- * a datatype type is made up of a number of simple types. e.g:
- * char** = (pointer to (pointer to (char)))
- */
-static BOOL demangle_datatype(struct parsed_symbol* sym, struct datatype_t* ct,
-                              struct array* pmt_ref, BOOL in_args)
-{
-    char                dt;
-    BOOL                add_pmt = TRUE;
-
-    assert(ct);
-    ct->left = ct->right = NULL;
-    
-    switch (dt = *sym->current++)
-    {
-    case '_':
-        /* MS type: __int8,__int16 etc */
-        ct->left = get_extended_type(*sym->current++);
-        break;
-    case 'C': case 'D': case 'E': case 'F': case 'G':
-    case 'H': case 'I': case 'J': case 'K': case 'M':
-    case 'N': case 'O': case 'X': case 'Z':
-        /* Simple data types */
-        ct->left = get_simple_type(dt);
-        add_pmt = FALSE;
-        break;
-    case 'T': /* union */
-    case 'U': /* struct */
-    case 'V': /* class */
-    case 'Y': /* cointerface */
-        /* Class/struct/union/cointerface */
-        {
-            const char* struct_name = NULL;
-            const char* type_name = NULL;
-
-            if (!(struct_name = get_class_name(sym)))
-                goto done;
-            if (!(sym->flags & UNDNAME_NO_COMPLEX_TYPE)) 
-            {
-                switch (dt)
-                {
-                case 'T': type_name = "union ";  break;
-                case 'U': type_name = "struct "; break;
-                case 'V': type_name = "class ";  break;
-                case 'Y': type_name = "cointerface "; break;
-                }
-            }
-            ct->left = str_printf(sym, "%s%s", type_name, struct_name);
-        }
-        break;
-    case '?':
-        /* not all the time is seems */
-        if (in_args)
-        {
-            const char*   ptr;
-            if (!(ptr = get_number(sym))) goto done;
-            ct->left = str_printf(sym, "`template-parameter-%s'", ptr);
-        }
-        else
-        {
-            if (!get_modified_type(ct, sym, pmt_ref, '?', in_args)) goto done;
-        }
-        break;
-    case 'A': /* reference */
-    case 'B': /* volatile reference */
-        if (!get_modified_type(ct, sym, pmt_ref, dt, in_args)) goto done;
-        break;
-    case 'Q': /* const pointer */
-    case 'R': /* volatile pointer */
-    case 'S': /* const volatile pointer */
-        if (!get_modified_type(ct, sym, pmt_ref, in_args ? dt : 'P', in_args)) goto done;
-        break;
-    case 'P': /* Pointer */
-        if (isdigit(*sym->current))
-	{
-            /* FIXME:
-             *   P6 = Function pointer
-             *   P8 = Member function pointer
-             *   others who knows.. */
-            if (*sym->current == '8')
-            {
-                char*                   args = NULL;
-                const char*             call_conv;
-                const char*             exported;
-                struct datatype_t       sub_ct;
-                unsigned                mark = sym->stack.num;
-                const char*             class;
-                const char*             modifier;
-                const char*             ptr_modif;
-
-                sym->current++;
-
-                if (!(class = get_class_name(sym)))
-                    goto done;
-                if (!get_modifier(sym, &modifier, &ptr_modif))
-                    goto done;
-                if (modifier)
-                    modifier = str_printf(sym, "%s %s", modifier, ptr_modif);
-                else if(ptr_modif)
-                    modifier = str_printf(sym, " %s", ptr_modif);
-                if (!get_calling_convention(*sym->current++,
-                            &call_conv, &exported,
-                            sym->flags & ~UNDNAME_NO_ALLOCATION_LANGUAGE))
-                    goto done;
-                if (!demangle_datatype(sym, &sub_ct, pmt_ref, FALSE))
-                    goto done;
-
-                args = get_args(sym, pmt_ref, TRUE, '(', ')');
-                if (!args) goto done;
-                sym->stack.num = mark;
-
-                ct->left  = str_printf(sym, "%s%s (%s %s::*",
-                        sub_ct.left, sub_ct.right, call_conv, class);
-                ct->right = str_printf(sym, ")%s%s", args, modifier);
-            }
-            else if (*sym->current == '6')
-            {
-                char*                   args = NULL;
-                const char*             call_conv;
-                const char*             exported;
-                struct datatype_t       sub_ct;
-                unsigned                mark = sym->stack.num;
-
-                sym->current++;
-
-                if (!get_calling_convention(*sym->current++,
-                                            &call_conv, &exported, 
-                                            sym->flags & ~UNDNAME_NO_ALLOCATION_LANGUAGE) ||
-                    !demangle_datatype(sym, &sub_ct, pmt_ref, FALSE))
-                    goto done;
-
-                args = get_args(sym, pmt_ref, TRUE, '(', ')');
-                if (!args) goto done;
-                sym->stack.num = mark;
-
-                ct->left  = str_printf(sym, "%s%s (%s*", 
-                                       sub_ct.left, sub_ct.right, call_conv);
-                ct->right = str_printf(sym, ")%s", args);
-            }
-            else goto done;
-	}
-	else if (!get_modified_type(ct, sym, pmt_ref, 'P', in_args)) goto done;
-        break;
-    case 'W':
-        if (*sym->current == '4')
-        {
-            char*               enum_name;
-            sym->current++;
-            if (!(enum_name = get_class_name(sym)))
-                goto done;
-            if (sym->flags & UNDNAME_NO_COMPLEX_TYPE)
-                ct->left = enum_name;
-            else
-                ct->left = str_printf(sym, "enum %s", enum_name);
-        }
-        else goto done;
-        break;
-    case '0': case '1': case '2': case '3': case '4':
-    case '5': case '6': case '7': case '8': case '9':
-        /* Referring back to previously parsed type */
-        /* left and right are pushed as two separate strings */
-        if (!pmt_ref) goto done;
-        ct->left = str_array_get_ref(pmt_ref, (dt - '0') * 2);
-        ct->right = str_array_get_ref(pmt_ref, (dt - '0') * 2 + 1);
-        if (!ct->left) goto done;
-        add_pmt = FALSE;
-        break;
-    case '$':
-        switch (*sym->current++)
-        {
-        case '0':
-            if (!(ct->left = get_number(sym))) goto done;
-            break;
-        case 'D':
-            {
-                const char*   ptr;
-                if (!(ptr = get_number(sym))) goto done;
-                ct->left = str_printf(sym, "`template-parameter%s'", ptr);
-            }
-            break;
-        case 'F':
-            {
-                const char*   p1;
-                const char*   p2;
-                if (!(p1 = get_number(sym))) goto done;
-                if (!(p2 = get_number(sym))) goto done;
-                ct->left = str_printf(sym, "{%s,%s}", p1, p2);
-            }
-            break;
-        case 'G':
-            {
-                const char*   p1;
-                const char*   p2;
-                const char*   p3;
-                if (!(p1 = get_number(sym))) goto done;
-                if (!(p2 = get_number(sym))) goto done;
-                if (!(p3 = get_number(sym))) goto done;
-                ct->left = str_printf(sym, "{%s,%s,%s}", p1, p2, p3);
-            }
-            break;
-        case 'Q':
-            {
-                const char*   ptr;
-                if (!(ptr = get_number(sym))) goto done;
-                ct->left = str_printf(sym, "`non-type-template-parameter%s'", ptr);
-            }
-            break;
-        case '$':
-            if (*sym->current == 'B')
-            {
-                unsigned            mark = sym->stack.num;
-                struct datatype_t   sub_ct;
-                const char*         arr = NULL;
-                sym->current++;
-
-                /* multidimensional arrays */
-                if (*sym->current == 'Y')
-                {
-                    const char* n1;
-                    int num;
-
-                    sym->current++;
-                    if (!(n1 = get_number(sym))) goto done;
-                    num = atoi(n1);
-
-                    while (num--)
-                        arr = str_printf(sym, "%s[%s]", arr, get_number(sym));
-                }
-
-                if (!demangle_datatype(sym, &sub_ct, pmt_ref, FALSE)) goto done;
-
-                if (arr)
-                    ct->left = str_printf(sym, "%s %s", sub_ct.left, arr);
-                else
-                    ct->left = sub_ct.left;
-                ct->right = sub_ct.right;
-                sym->stack.num = mark;
-            }
-            else if (*sym->current == 'C')
-            {
-                const char *ptr, *ptr_modif;
-
-                sym->current++;
-                if (!get_modifier(sym, &ptr, &ptr_modif)) goto done;
-                if (!demangle_datatype(sym, ct, pmt_ref, in_args)) goto done;
-                ct->left = str_printf(sym, "%s %s", ct->left, ptr);
-            }
-            break;
-        }
-        break;
-    default :
-        ERR("Unknown type %c\n", dt);
-        break;
-    }
-    if (add_pmt && pmt_ref && in_args)
-    {
-        /* left and right are pushed as two separate strings */
-        if (!str_array_push(sym, ct->left ? ct->left : "", -1, pmt_ref) ||
-            !str_array_push(sym, ct->right ? ct->right : "", -1, pmt_ref))
-            return FALSE;
-    }
-done:
-    
-    return ct->left != NULL;
-}
-
-/******************************************************************
- *		handle_data
- * Does the final parsing and handling for a variable or a field in
- * a class.
- */
-static BOOL handle_data(struct parsed_symbol* sym)
-{
-    const char*         access = NULL;
-    const char*         member_type = NULL;
-    const char*         modifier = NULL;
-    const char*         ptr_modif;
-    struct datatype_t   ct;
-    char*               name = NULL;
-    BOOL                ret = FALSE;
-
-    /* 0 private static
-     * 1 protected static
-     * 2 public static
-     * 3 private non-static
-     * 4 protected non-static
-     * 5 public non-static
-     * 6 ?? static
-     * 7 ?? static
-     */
-
-    if (!(sym->flags & UNDNAME_NO_ACCESS_SPECIFIERS))
-    {
-        /* we only print the access for static members */
-        switch (*sym->current)
-        {
-        case '0': access = "private: "; break;
-        case '1': access = "protected: "; break;
-        case '2': access = "public: "; break;
-        } 
-    }
-
-    if (!(sym->flags & UNDNAME_NO_MEMBER_TYPE))
-    {
-        if (*sym->current >= '0' && *sym->current <= '2')
-            member_type = "static ";
-    }
-
-    name = get_class_string(sym, 0);
-
-    switch (*sym->current++)
-    {
-    case '0': case '1': case '2':
-    case '3': case '4': case '5':
-        {
-            unsigned mark = sym->stack.num;
-            struct array pmt;
-
-            str_array_init(&pmt);
-
-            if (!demangle_datatype(sym, &ct, &pmt, FALSE)) goto done;
-            if (!get_modifier(sym, &modifier, &ptr_modif)) goto done;
-            if (modifier && ptr_modif) modifier = str_printf(sym, "%s %s", modifier, ptr_modif);
-            else if (!modifier) modifier = ptr_modif;
-            sym->stack.num = mark;
-        }
-        break;
-    case '6' : /* compiler generated static */
-    case '7' : /* compiler generated static */
-        ct.left = ct.right = NULL;
-        if (!get_modifier(sym, &modifier, &ptr_modif)) goto done;
-        if (*sym->current != '@')
-        {
-            char*       cls = NULL;
-
-            if (!(cls = get_class_name(sym)))
-                goto done;
-            ct.right = str_printf(sym, "{for `%s'}", cls);
-        }
-        break;
-    case '8':
-    case '9':
-        modifier = ct.left = ct.right = NULL;
-        break;
-    default: goto done;
-    }
-    if (sym->flags & UNDNAME_NAME_ONLY) ct.left = ct.right = modifier = NULL;
-
-    sym->result = str_printf(sym, "%s%s%s%s%s%s%s%s", access,
-                             member_type, ct.left, 
-                             modifier && ct.left ? " " : NULL, modifier, 
-                             modifier || ct.left ? " " : NULL, name, ct.right);
-    ret = TRUE;
-done:
-    return ret;
-}
-
-/******************************************************************
- *		handle_method
- * Does the final parsing and handling for a function or a method in
- * a class.
- */
-static BOOL handle_method(struct parsed_symbol* sym, BOOL cast_op)
-{
-    char                accmem;
-    const char*         access = NULL;
-    int                 access_id = -1;
-    const char*         member_type = NULL;
-    struct datatype_t   ct_ret;
-    const char*         call_conv;
-    const char*         modifier = NULL;
-    const char*         exported;
-    const char*         args_str = NULL;
-    const char*         name = NULL;
-    BOOL                ret = FALSE, has_args = TRUE, has_ret = TRUE;
-    unsigned            mark;
-    struct array        array_pmt;
-
-    /* FIXME: why 2 possible letters for each option?
-     * 'A' private:
-     * 'B' private:
-     * 'C' private: static
-     * 'D' private: static
-     * 'E' private: virtual
-     * 'F' private: virtual
-     * 'G' private: thunk
-     * 'H' private: thunk
-     * 'I' protected:
-     * 'J' protected:
-     * 'K' protected: static
-     * 'L' protected: static
-     * 'M' protected: virtual
-     * 'N' protected: virtual
-     * 'O' protected: thunk
-     * 'P' protected: thunk
-     * 'Q' public:
-     * 'R' public:
-     * 'S' public: static
-     * 'T' public: static
-     * 'U' public: virtual
-     * 'V' public: virtual
-     * 'W' public: thunk
-     * 'X' public: thunk
-     * 'Y'
-     * 'Z'
-     * "$0" private: thunk vtordisp
-     * "$1" private: thunk vtordisp
-     * "$2" protected: thunk vtordisp
-     * "$3" protected: thunk vtordisp
-     * "$4" public: thunk vtordisp
-     * "$5" public: thunk vtordisp
-     * "$B" vcall thunk
-     * "$R" thunk vtordispex
-     */
-    accmem = *sym->current++;
-    if (accmem == '$')
-    {
-        if (*sym->current >= '0' && *sym->current <= '5')
-            access_id = (*sym->current - '0') / 2;
-        else if (*sym->current == 'R')
-            access_id = (sym->current[1] - '0') / 2;
-        else if (*sym->current != 'B')
-            goto done;
-    }
-    else if (accmem >= 'A' && accmem <= 'Z')
-        access_id = (accmem - 'A') / 8;
-    else
-        goto done;
-
-    switch (access_id)
-    {
-    case 0: access = "private: "; break;
-    case 1: access = "protected: "; break;
-    case 2: access = "public: "; break;
-    }
-    if (accmem == '$' || (accmem - 'A') % 8 == 6 || (accmem - 'A') % 8 == 7)
-        access = str_printf(sym, "[thunk]:%s", access ? access : " ");
-
-    if (accmem == '$' && *sym->current != 'B')
-        member_type = "virtual ";
-    else if (accmem <= 'X')
-    {
-        switch ((accmem - 'A') % 8)
-        {
-        case 2: case 3: member_type = "static "; break;
-        case 4: case 5: case 6: case 7: member_type = "virtual "; break;
-        }
-    }
-
-    if (sym->flags & UNDNAME_NO_ACCESS_SPECIFIERS)
-        access = NULL;
-    if (sym->flags & UNDNAME_NO_MEMBER_TYPE)
-        member_type = NULL;
-
-    name = get_class_string(sym, 0);
-
-    if (accmem == '$' && *sym->current == 'B') /* vcall thunk */
-    {
-        const char *n;
-
-        sym->current++;
-        n = get_number(sym);
-
-        if(!n || *sym->current++ != 'A') goto done;
-        name = str_printf(sym, "%s{%s,{flat}}' }'", name, n);
-        has_args = FALSE;
-        has_ret = FALSE;
-    }
-    else if (accmem == '$' && *sym->current == 'R') /* vtordispex thunk */
-    {
-        const char *n1, *n2, *n3, *n4;
-
-        sym->current += 2;
-        n1 = get_number(sym);
-        n2 = get_number(sym);
-        n3 = get_number(sym);
-        n4 = get_number(sym);
-
-        if(!n1 || !n2 || !n3 || !n4) goto done;
-        name = str_printf(sym, "%s`vtordispex{%s,%s,%s,%s}' ", name, n1, n2, n3, n4);
-    }
-    else if (accmem == '$') /* vtordisp thunk */
-    {
-        const char *n1, *n2;
-
-        sym->current++;
-        n1 = get_number(sym);
-        n2 = get_number(sym);
-
-        if (!n1 || !n2) goto done;
-        name = str_printf(sym, "%s`vtordisp{%s,%s}' ", name, n1, n2);
-    }
-    else if ((accmem - 'A') % 8 == 6 || (accmem - 'A') % 8 == 7) /* a thunk */
-        name = str_printf(sym, "%s`adjustor{%s}' ", name, get_number(sym));
-
-    if (has_args && (accmem == '$' ||
-                (accmem <= 'X' && (accmem - 'A') % 8 != 2 && (accmem - 'A') % 8 != 3)))
-    {
-        const char *ptr_modif;
-        /* Implicit 'this' pointer */
-        /* If there is an implicit this pointer, const modifier follows */
-        if (!get_modifier(sym, &modifier, &ptr_modif)) goto done;
-        if (modifier || ptr_modif) modifier = str_printf(sym, "%s %s", modifier, ptr_modif);
-    }
-
-    if (!get_calling_convention(*sym->current++, &call_conv, &exported,
-                                sym->flags))
-        goto done;
-
-    str_array_init(&array_pmt);
-
-    /* Return type, or @ if 'void' */
-    if (has_ret && *sym->current == '@')
-    {
-        ct_ret.left = "void";
-        ct_ret.right = NULL;
-        sym->current++;
-    }
-    else if (has_ret)
-    {
-        if (!demangle_datatype(sym, &ct_ret, &array_pmt, FALSE))
-            goto done;
-    }
-    if (!has_ret || sym->flags & UNDNAME_NO_FUNCTION_RETURNS)
-        ct_ret.left = ct_ret.right = NULL;
-    if (cast_op)
-    {
-        name = str_printf(sym, "%s%s%s", name, ct_ret.left, ct_ret.right);
-        ct_ret.left = ct_ret.right = NULL;
-    }
-
-    mark = sym->stack.num;
-    if (has_args && !(args_str = get_args(sym, &array_pmt, TRUE, '(', ')'))) goto done;
-    if (sym->flags & UNDNAME_NAME_ONLY) args_str = modifier = NULL;
-    if (sym->flags & UNDNAME_NO_THISTYPE) modifier = NULL;
-    sym->stack.num = mark;
-
-    /* Note: '()' after 'Z' means 'throws', but we don't care here
-     * Yet!!! FIXME
-     */
-    sym->result = str_printf(sym, "%s%s%s%s%s%s%s%s%s%s%s",
-                             access, member_type, ct_ret.left,
-                             (ct_ret.left && !ct_ret.right) ? " " : NULL,
-                             call_conv, call_conv ? " " : NULL, exported,
-                             name, args_str, modifier, ct_ret.right);
-    ret = TRUE;
-done:
-    return ret;
-}
-
-/*******************************************************************
- *         symbol_demangle
- * Demangle a C++ linker symbol
- */
-static BOOL symbol_demangle(struct parsed_symbol* sym)
-{
-    BOOL                ret = FALSE;
-    unsigned            do_after = 0;
-    static CHAR         dashed_null[] = "--null--";
-
-    /* FIXME seems wrong as name, as it demangles a simple data type */
-    if (sym->flags & UNDNAME_NO_ARGUMENTS)
-    {
-        struct datatype_t   ct;
-
-        if (demangle_datatype(sym, &ct, NULL, FALSE))
-        {
-            sym->result = str_printf(sym, "%s%s", ct.left, ct.right);
-            ret = TRUE;
-        }
-        goto done;
-    }
-
-    /* MS mangled names always begin with '?' */
-    if (*sym->current != '?') return FALSE;
-    sym->current++;
-
-    /* Then function name or operator code */
-    if (*sym->current == '?' && (sym->current[1] != '$' || sym->current[2] == '?'))
-    {
-        const char* function_name = NULL;
-
-        if (sym->current[1] == '$')
-        {
-            do_after = 6;
-            sym->current += 2;
-        }
-
-        /* C++ operator code (one character, or two if the first is '_') */
-        switch (*++sym->current)
-        {
-        case '0': do_after = 1; break;
-        case '1': do_after = 2; break;
-        case '2': function_name = "operator new"; break;
-        case '3': function_name = "operator delete"; break;
-        case '4': function_name = "operator="; break;
-        case '5': function_name = "operator>>"; break;
-        case '6': function_name = "operator<<"; break;
-        case '7': function_name = "operator!"; break;
-        case '8': function_name = "operator=="; break;
-        case '9': function_name = "operator!="; break;
-        case 'A': function_name = "operator[]"; break;
-        case 'B': function_name = "operator "; do_after = 3; break;
-        case 'C': function_name = "operator->"; break;
-        case 'D': function_name = "operator*"; break;
-        case 'E': function_name = "operator++"; break;
-        case 'F': function_name = "operator--"; break;
-        case 'G': function_name = "operator-"; break;
-        case 'H': function_name = "operator+"; break;
-        case 'I': function_name = "operator&"; break;
-        case 'J': function_name = "operator->*"; break;
-        case 'K': function_name = "operator/"; break;
-        case 'L': function_name = "operator%"; break;
-        case 'M': function_name = "operator<"; break;
-        case 'N': function_name = "operator<="; break;
-        case 'O': function_name = "operator>"; break;
-        case 'P': function_name = "operator>="; break;
-        case 'Q': function_name = "operator,"; break;
-        case 'R': function_name = "operator()"; break;
-        case 'S': function_name = "operator~"; break;
-        case 'T': function_name = "operator^"; break;
-        case 'U': function_name = "operator|"; break;
-        case 'V': function_name = "operator&&"; break;
-        case 'W': function_name = "operator||"; break;
-        case 'X': function_name = "operator*="; break;
-        case 'Y': function_name = "operator+="; break;
-        case 'Z': function_name = "operator-="; break;
-        case '_':
-            switch (*++sym->current)
-            {
-            case '0': function_name = "operator/="; break;
-            case '1': function_name = "operator%="; break;
-            case '2': function_name = "operator>>="; break;
-            case '3': function_name = "operator<<="; break;
-            case '4': function_name = "operator&="; break;
-            case '5': function_name = "operator|="; break;
-            case '6': function_name = "operator^="; break;
-            case '7': function_name = "`vftable'"; break;
-            case '8': function_name = "`vbtable'"; break;
-            case '9': function_name = "`vcall'"; break;
-            case 'A': function_name = "`typeof'"; break;
-            case 'B': function_name = "`local static guard'"; break;
-            case 'C': function_name = "`string'"; do_after = 4; break;
-            case 'D': function_name = "`vbase destructor'"; break;
-            case 'E': function_name = "`vector deleting destructor'"; break;
-            case 'F': function_name = "`default constructor closure'"; break;
-            case 'G': function_name = "`scalar deleting destructor'"; break;
-            case 'H': function_name = "`vector constructor iterator'"; break;
-            case 'I': function_name = "`vector destructor iterator'"; break;
-            case 'J': function_name = "`vector vbase constructor iterator'"; break;
-            case 'K': function_name = "`virtual displacement map'"; break;
-            case 'L': function_name = "`eh vector constructor iterator'"; break;
-            case 'M': function_name = "`eh vector destructor iterator'"; break;
-            case 'N': function_name = "`eh vector vbase constructor iterator'"; break;
-            case 'O': function_name = "`copy constructor closure'"; break;
-            case 'R':
-                sym->flags |= UNDNAME_NO_FUNCTION_RETURNS;
-                switch (*++sym->current)
-                {
-                case '0':
-                    {
-                        struct datatype_t       ct;
-                        struct array pmt;
-
-                        sym->current++;
-                        str_array_init(&pmt);
-                        demangle_datatype(sym, &ct, &pmt, FALSE);
-                        if (!demangle_datatype(sym, &ct, NULL, FALSE))
-                            goto done;
-                        function_name = str_printf(sym, "%s%s `RTTI Type Descriptor'",
-                                                   ct.left, ct.right);
-                        sym->current--;
-                    }
-                    break;
-                case '1':
-                    {
-                        const char* n1, *n2, *n3, *n4;
-                        sym->current++;
-                        n1 = get_number(sym);
-                        n2 = get_number(sym);
-                        n3 = get_number(sym);
-                        n4 = get_number(sym);
-                        sym->current--;
-                        function_name = str_printf(sym, "`RTTI Base Class Descriptor at (%s,%s,%s,%s)'",
-                                                   n1, n2, n3, n4);
-                    }
-                    break;
-                case '2': function_name = "`RTTI Base Class Array'"; break;
-                case '3': function_name = "`RTTI Class Hierarchy Descriptor'"; break;
-                case '4': function_name = "`RTTI Complete Object Locator'"; break;
-                default:
-                    ERR("Unknown RTTI operator: _R%c\n", *sym->current);
-                    break;
-                }
-                break;
-            case 'S': function_name = "`local vftable'"; break;
-            case 'T': function_name = "`local vftable constructor closure'"; break;
-            case 'U': function_name = "operator new[]"; break;
-            case 'V': function_name = "operator delete[]"; break;
-            case 'X': function_name = "`placement delete closure'"; break;
-            case 'Y': function_name = "`placement delete[] closure'"; break;
-            default:
-                ERR("Unknown operator: _%c\n", *sym->current);
-                return FALSE;
-            }
-            break;
-        default:
-            /* FIXME: Other operators */
-            ERR("Unknown operator: %c\n", *sym->current);
-            return FALSE;
-        }
-        sym->current++;
-        switch (do_after)
-        {
-        case 1: case 2:
-            if (!str_array_push(sym, dashed_null, -1, &sym->stack))
-                return FALSE;
-            break;
-        case 4:
-            sym->result = (char*)function_name;
-            ret = TRUE;
-            goto done;
-        case 6:
-            {
-                char *args;
-                struct array array_pmt;
-
-                str_array_init(&array_pmt);
-                args = get_args(sym, &array_pmt, FALSE, '<', '>');
-                if (args != NULL) function_name = str_printf(sym, "%s%s", function_name, args);
-                sym->names.num = 0;
-            }
-            /* fall through */
-        default:
-            if (!str_array_push(sym, function_name, -1, &sym->stack))
-                return FALSE;
-            break;
-        }
-    }
-    else if (*sym->current == '$')
-    {
-        /* Strange construct, it's a name with a template argument list
-           and that's all. */
-        sym->current++;
-        ret = (sym->result = get_template_name(sym)) != NULL;
-        goto done;
-    }
-    else if (*sym->current == '?' && sym->current[1] == '$')
-        do_after = 5;
-
-    /* Either a class name, or '@' if the symbol is not a class member */
-    switch (*sym->current)
-    {
-    case '@': sym->current++; break;
-    case '$': break;
-    default:
-        /* Class the function is associated with, terminated by '@@' */
-        if (!get_class(sym)) goto done;
-        break;
-    }
-
-    switch (do_after)
-    {
-    case 0: default: break;
-    case 1: case 2:
-        /* it's time to set the member name for ctor & dtor */
-        if (sym->stack.num <= 1) goto done;
-        if (do_after == 1)
-            sym->stack.elts[0] = sym->stack.elts[1];
-        else
-            sym->stack.elts[0] = str_printf(sym, "~%s", sym->stack.elts[1]);
-        /* ctors and dtors don't have return type */
-        sym->flags |= UNDNAME_NO_FUNCTION_RETURNS;
-        break;
-    case 3:
-        sym->flags &= ~UNDNAME_NO_FUNCTION_RETURNS;
-        break;
-    case 5:
-        sym->names.start++;
-        break;
-    }
-
-    /* Function/Data type and access level */
-    if (*sym->current >= '0' && *sym->current <= '9')
-        ret = handle_data(sym);
-    else if ((*sym->current >= 'A' && *sym->current <= 'Z') || *sym->current == '$')
-        ret = handle_method(sym, do_after == 3);
-    else ret = FALSE;
-done:
-    if (ret) assert(sym->result);
-    else WARN("Failed at %s\n", debugstr_a(sym->current));
-
-    return ret;
-}
-
-/*********************************************************************
- *		__unDNameEx (MSVCRT.@)
- *
- * Demangle a C++ identifier.
- *
- * PARAMS
- *  buffer   [O] If not NULL, the place to put the demangled string
- *  mangled  [I] Mangled name of the function
- *  buflen   [I] Length of buffer
- *  memget   [I] Function to allocate memory with
- *  memfree  [I] Function to free memory with
- *  unknown  [?] Unknown, possibly a call back
- *  flags    [I] Flags determining demangled format
- *
- * RETURNS
- *  Success: A string pointing to the unmangled name, allocated with memget.
- *  Failure: NULL.
- */
-char* CDECL __unDNameEx(char* buffer, const char* mangled, int buflen,
-                        malloc_func_t memget, free_func_t memfree,
-                        void* unknown, unsigned short int flags)
-{
-    struct parsed_symbol        sym;
-    const char*                 result;
-
-    TRACE("(%p,%s,%d,%p,%p,%p,%x)\n",
-          buffer, debugstr_a(mangled), buflen, memget, memfree, unknown, flags);
-    
-    /* The flags details is not documented by MS. However, it looks exactly
-     * like the UNDNAME_ manifest constants from imagehlp.h and dbghelp.h
-     * So, we copied those (on top of the file)
-     */
-    memset(&sym, 0, sizeof(struct parsed_symbol));
-    if (flags & UNDNAME_NAME_ONLY)
-        flags |= UNDNAME_NO_FUNCTION_RETURNS | UNDNAME_NO_ACCESS_SPECIFIERS |
-            UNDNAME_NO_MEMBER_TYPE | UNDNAME_NO_ALLOCATION_LANGUAGE |
-            UNDNAME_NO_COMPLEX_TYPE;
-
-    sym.flags         = flags;
-    sym.mem_alloc_ptr = memget;
-    sym.mem_free_ptr  = memfree;
-    sym.current       = mangled;
-    str_array_init( &sym.names );
-    str_array_init( &sym.stack );
-
-    result = symbol_demangle(&sym) ? sym.result : mangled;
-    if (buffer && buflen)
-    {
-        lstrcpynA( buffer, result, buflen);
-    }
-    else
-    {
-        buffer = memget(strlen(result) + 1);
-        if (buffer) strcpy(buffer, result);
-    }
-
-    und_free_all(&sym);
-
-    return buffer;
-}
-
-
-/*********************************************************************
- *		__unDName (MSVCRT.@)
- */
-char* CDECL __unDName(char* buffer, const char* mangled, int buflen,
-                      malloc_func_t memget, free_func_t memfree,
-                      unsigned short int flags)
-{
-    return __unDNameEx(buffer, mangled, buflen, memget, memfree, NULL, flags);
-}

sdk/lib/crt/wine/wine.cmake

···
-
-list(APPEND CRT_WINE_SOURCE
-    wine/cpp.c
-    wine/except.c
-    wine/heap.c
-    wine/undname.c
-)
-
-if(ARCH STREQUAL "i386")
-    list(APPEND CRT_WINE_SOURCE
-        wine/except_i386.c
-    )
-    list(APPEND CRT_WINE_ASM_SOURCE
-        wine/rosglue_i386.s
-    )
-elseif(ARCH STREQUAL "amd64")
-    list(APPEND CRT_WINE_SOURCE
-        wine/except_x86_64.c
-    )
-elseif(ARCH STREQUAL "arm")
-    list(APPEND CRT_WINE_SOURCE
-        wine/except_arm.c
-    )
-elseif(ARCH STREQUAL "arm64")
-    list(APPEND CRT_WINE_SOURCE
-        wine/except_arm64.c
-    )
-endif()
-
-# includes for wine code
-include_directories(${REACTOS_SOURCE_DIR}/sdk/include/wine)
-
-#set_source_files_properties(${CRT_WINE_SOURCE} PROPERTIES INCLUDE_DIRECTORIES)

sdk/lib/crt/wine/winternl.h

···
-/*
- * Internal NT APIs and data structures
- *
- * Copyright (C) the Wine project
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-#ifndef __WINE_WINTERNL_H
-#define __WINE_WINTERNL_H
-
-#ifndef __REACTOS__
-#include <ntdef.h>
-#endif /* __REACTOS__ */
-#include <windef.h>
-
-#include <windef.h>
-
-#ifdef __cplusplus
-extern "C" {
-#endif /* defined(__cplusplus) */
-
-#ifndef WINE_NTSTATUS_DECLARED
-#define WINE_NTSTATUS_DECLARED
-    typedef LONG NTSTATUS;
-#endif
-
-#ifndef __UNICODE_STRING_DEFINED__
-#define __UNICODE_STRING_DEFINED__
-    typedef struct _UNICODE_STRING {
-        USHORT Length;        /* bytes */
-        USHORT MaximumLength; /* bytes */
-        PWSTR  Buffer;
-    } UNICODE_STRING, * PUNICODE_STRING;
-#endif
-
-    typedef struct _CLIENT_ID
-    {
-        HANDLE UniqueProcess;
-        HANDLE UniqueThread;
-    } CLIENT_ID, * PCLIENT_ID;
-
-    typedef struct _CURDIR
-    {
-        UNICODE_STRING DosPath;
-        PVOID Handle;
-    } CURDIR, * PCURDIR;
-
-    typedef struct RTL_DRIVE_LETTER_CURDIR
-    {
-        USHORT              Flags;
-        USHORT              Length;
-        ULONG               TimeStamp;
-        UNICODE_STRING      DosPath;
-    } RTL_DRIVE_LETTER_CURDIR, * PRTL_DRIVE_LETTER_CURDIR;
-
-    typedef struct tagRTL_BITMAP {
-        ULONG  SizeOfBitMap; /* Number of bits in the bitmap */
-        PULONG Buffer; /* Bitmap data, assumed sized to a DWORD boundary */
-    } RTL_BITMAP, * PRTL_BITMAP;
-
-    typedef const RTL_BITMAP* PCRTL_BITMAP;
-
-    typedef struct _RTL_USER_PROCESS_PARAMETERS
-    {
-        ULONG               AllocationSize;
-        ULONG               Size;
-        ULONG               Flags;
-        ULONG               DebugFlags;
-        HANDLE              ConsoleHandle;
-        ULONG               ConsoleFlags;
-        HANDLE              hStdInput;
-        HANDLE              hStdOutput;
-        HANDLE              hStdError;
-        CURDIR              CurrentDirectory;
-        UNICODE_STRING      DllPath;
-        UNICODE_STRING      ImagePathName;
-        UNICODE_STRING      CommandLine;
-        PWSTR               Environment;
-        ULONG               dwX;
-        ULONG               dwY;
-        ULONG               dwXSize;
-        ULONG               dwYSize;
-        ULONG               dwXCountChars;
-        ULONG               dwYCountChars;
-        ULONG               dwFillAttribute;
-        ULONG               dwFlags;
-        ULONG               wShowWindow;
-        UNICODE_STRING      WindowTitle;
-        UNICODE_STRING      Desktop;
-        UNICODE_STRING      ShellInfo;
-        UNICODE_STRING      RuntimeInfo;
-        RTL_DRIVE_LETTER_CURDIR DLCurrentDirectory[0x20];
-    } RTL_USER_PROCESS_PARAMETERS, * PRTL_USER_PROCESS_PARAMETERS;
-
-    typedef struct _PEB_LDR_DATA
-    {
-        ULONG               Length;
-        BOOLEAN             Initialized;
-        PVOID               SsHandle;
-        LIST_ENTRY          InLoadOrderModuleList;
-        LIST_ENTRY          InMemoryOrderModuleList;
-        LIST_ENTRY          InInitializationOrderModuleList;
-        PVOID               EntryInProgress;
-    } PEB_LDR_DATA, * PPEB_LDR_DATA;
-
-    typedef struct _GDI_TEB_BATCH
-    {
-        ULONG  Offset;
-        HANDLE HDC;
-        ULONG  Buffer[0x136];
-    } GDI_TEB_BATCH;
-
-    typedef struct _RTL_ACTIVATION_CONTEXT_STACK_FRAME
-    {
-        struct _RTL_ACTIVATION_CONTEXT_STACK_FRAME* Previous;
-        struct _ACTIVATION_CONTEXT* ActivationContext;
-        ULONG                                       Flags;
-    } RTL_ACTIVATION_CONTEXT_STACK_FRAME, * PRTL_ACTIVATION_CONTEXT_STACK_FRAME;
-
-    typedef struct _ACTIVATION_CONTEXT_STACK
-    {
-        ULONG                               Flags;
-        ULONG                               NextCookieSequenceNumber;
-        RTL_ACTIVATION_CONTEXT_STACK_FRAME* ActiveFrame;
-        LIST_ENTRY                          FrameListCache;
-    } ACTIVATION_CONTEXT_STACK, * PACTIVATION_CONTEXT_STACK;
-
-    typedef struct _TEB_ACTIVE_FRAME_CONTEXT
-    {
-        ULONG       Flags;
-        const char* FrameName;
-    } TEB_ACTIVE_FRAME_CONTEXT, * PTEB_ACTIVE_FRAME_CONTEXT;
-
-    typedef struct _TEB_ACTIVE_FRAME
-    {
-        ULONG                     Flags;
-        struct _TEB_ACTIVE_FRAME* Previous;
-        TEB_ACTIVE_FRAME_CONTEXT* Context;
-    } TEB_ACTIVE_FRAME, * PTEB_ACTIVE_FRAME;
-
-    typedef struct _PEB
-    {                                                                 /* win32/win64 */
-        BOOLEAN                      InheritedAddressSpace;             /* 000/000 */
-        BOOLEAN                      ReadImageFileExecOptions;          /* 001/001 */
-        BOOLEAN                      BeingDebugged;                     /* 002/002 */
-        BOOLEAN                      SpareBool;                         /* 003/003 */
-        HANDLE                       Mutant;                            /* 004/008 */
-        HMODULE                      ImageBaseAddress;                  /* 008/010 */
-        PPEB_LDR_DATA                LdrData;                           /* 00c/018 */
-        RTL_USER_PROCESS_PARAMETERS* ProcessParameters;                 /* 010/020 */
-        PVOID                        SubSystemData;                     /* 014/028 */
-        HANDLE                       ProcessHeap;                       /* 018/030 */
-        PRTL_CRITICAL_SECTION        FastPebLock;                       /* 01c/038 */
-        PVOID /*PPEBLOCKROUTINE*/    FastPebLockRoutine;                /* 020/040 */
-        PVOID /*PPEBLOCKROUTINE*/    FastPebUnlockRoutine;              /* 024/048 */
-        ULONG                        EnvironmentUpdateCount;            /* 028/050 */
-        PVOID                        KernelCallbackTable;               /* 02c/058 */
-        ULONG                        Reserved[2];                       /* 030/060 */
-        PVOID /*PPEB_FREE_BLOCK*/    FreeList;                          /* 038/068 */
-        ULONG                        TlsExpansionCounter;               /* 03c/070 */
-        PRTL_BITMAP                  TlsBitmap;                         /* 040/078 */
-        ULONG                        TlsBitmapBits[2];                  /* 044/080 */
-        PVOID                        ReadOnlySharedMemoryBase;          /* 04c/088 */
-        PVOID                        ReadOnlySharedMemoryHeap;          /* 050/090 */
-        PVOID* ReadOnlyStaticServerData;          /* 054/098 */
-        PVOID                        AnsiCodePageData;                  /* 058/0a0 */
-        PVOID                        OemCodePageData;                   /* 05c/0a8 */
-        PVOID                        UnicodeCaseTableData;              /* 060/0b0 */
-        ULONG                        NumberOfProcessors;                /* 064/0b8 */
-        ULONG                        NtGlobalFlag;                      /* 068/0bc */
-        LARGE_INTEGER                CriticalSectionTimeout;            /* 070/0c0 */
-        SIZE_T                       HeapSegmentReserve;                /* 078/0c8 */
-        SIZE_T                       HeapSegmentCommit;                 /* 07c/0d0 */
-        SIZE_T                       HeapDeCommitTotalFreeThreshold;    /* 080/0d8 */
-        SIZE_T                       HeapDeCommitFreeBlockThreshold;    /* 084/0e0 */
-        ULONG                        NumberOfHeaps;                     /* 088/0e8 */
-        ULONG                        MaximumNumberOfHeaps;              /* 08c/0ec */
-        PVOID* ProcessHeaps;                      /* 090/0f0 */
-        PVOID                        GdiSharedHandleTable;              /* 094/0f8 */
-        PVOID                        ProcessStarterHelper;              /* 098/100 */
-        PVOID                        GdiDCAttributeList;                /* 09c/108 */
-        PVOID                        LoaderLock;                        /* 0a0/110 */
-        ULONG                        OSMajorVersion;                    /* 0a4/118 */
-        ULONG                        OSMinorVersion;                    /* 0a8/11c */
-        ULONG                        OSBuildNumber;                     /* 0ac/120 */
-        ULONG                        OSPlatformId;                      /* 0b0/124 */
-        ULONG                        ImageSubSystem;                    /* 0b4/128 */
-        ULONG                        ImageSubSystemMajorVersion;        /* 0b8/12c */
-        ULONG                        ImageSubSystemMinorVersion;        /* 0bc/130 */
-        ULONG                        ImageProcessAffinityMask;          /* 0c0/134 */
-        HANDLE                       GdiHandleBuffer[28];               /* 0c4/138 */
-        ULONG                        unknown[6];                        /* 134/218 */
-        PVOID                        PostProcessInitRoutine;            /* 14c/230 */
-        PRTL_BITMAP                  TlsExpansionBitmap;                /* 150/238 */
-        ULONG                        TlsExpansionBitmapBits[32];        /* 154/240 */
-        ULONG                        SessionId;                         /* 1d4/2c0 */
-        ULARGE_INTEGER               AppCompatFlags;                    /* 1d8/2c8 */
-        ULARGE_INTEGER               AppCompatFlagsUser;                /* 1e0/2d0 */
-        PVOID                        ShimData;                          /* 1e8/2d8 */
-        PVOID                        AppCompatInfo;                     /* 1ec/2e0 */
-        UNICODE_STRING               CSDVersion;                        /* 1f0/2e8 */
-        PVOID                        ActivationContextData;             /* 1f8/2f8 */
-        PVOID                        ProcessAssemblyStorageMap;         /* 1fc/300 */
-        PVOID                        SystemDefaultActivationData;       /* 200/308 */
-        PVOID                        SystemAssemblyStorageMap;          /* 204/310 */
-        SIZE_T                       MinimumStackCommit;                /* 208/318 */
-        PVOID* FlsCallback;                       /* 20c/320 */
-        LIST_ENTRY                   FlsListHead;                       /* 210/328 */
-        PRTL_BITMAP                  FlsBitmap;                         /* 218/338 */
-        ULONG                        FlsBitmapBits[4];                  /* 21c/340 */
-    } PEB, * PPEB;
-
-    typedef struct _TEB
-    {                                                                 /* win32/win64 */
-        NT_TIB                       Tib;                               /* 000/0000 */
-        PVOID                        EnvironmentPointer;                /* 01c/0038 */
-        CLIENT_ID                    ClientId;                          /* 020/0040 */
-        PVOID                        ActiveRpcHandle;                   /* 028/0050 */
-        PVOID                        ThreadLocalStoragePointer;         /* 02c/0058 */
-        PPEB                         Peb;                               /* 030/0060 */
-        ULONG                        LastErrorValue;                    /* 034/0068 */
-        ULONG                        CountOfOwnedCriticalSections;      /* 038/006c */
-        PVOID                        CsrClientThread;                   /* 03c/0070 */
-        PVOID                        Win32ThreadInfo;                   /* 040/0078 */
-        ULONG                        Win32ClientInfo[31];               /* 044/0080 used for user32 private data in Wine */
-        PVOID                        WOW32Reserved;                     /* 0c0/0100 */
-        ULONG                        CurrentLocale;                     /* 0c4/0108 */
-        ULONG                        FpSoftwareStatusRegister;          /* 0c8/010c */
-        PVOID                        SystemReserved1[54];               /* 0cc/0110 used for kernel32 private data in Wine */
-        LONG                         ExceptionCode;                     /* 1a4/02c0 */
-        ACTIVATION_CONTEXT_STACK     ActivationContextStack;            /* 1a8/02c8 */
-        BYTE                         SpareBytes1[24];                   /* 1bc/02e8 */
-        PVOID                        SystemReserved2[10];               /* 1d4/0300 used for ntdll platform-specific private data in Wine */
-        GDI_TEB_BATCH                GdiTebBatch;                       /* 1fc/0350 used for ntdll private data in Wine */
-        HANDLE                       gdiRgn;                            /* 6dc/0838 */
-        HANDLE                       gdiPen;                            /* 6e0/0840 */
-        HANDLE                       gdiBrush;                          /* 6e4/0848 */
-        CLIENT_ID                    RealClientId;                      /* 6e8/0850 */
-        HANDLE                       GdiCachedProcessHandle;            /* 6f0/0860 */
-        ULONG                        GdiClientPID;                      /* 6f4/0868 */
-        ULONG                        GdiClientTID;                      /* 6f8/086c */
-        PVOID                        GdiThreadLocaleInfo;               /* 6fc/0870 */
-        ULONG                        UserReserved[5];                   /* 700/0878 */
-        PVOID                        glDispatchTable[280];              /* 714/0890 */
-        PVOID                        glReserved1[26];                   /* b74/1150 */
-        PVOID                        glReserved2;                       /* bdc/1220 */
-        PVOID                        glSectionInfo;                     /* be0/1228 */
-        PVOID                        glSection;                         /* be4/1230 */
-        PVOID                        glTable;                           /* be8/1238 */
-        PVOID                        glCurrentRC;                       /* bec/1240 */
-        PVOID                        glContext;                         /* bf0/1248 */
-        ULONG                        LastStatusValue;                   /* bf4/1250 */
-        UNICODE_STRING               StaticUnicodeString;               /* bf8/1258 used by advapi32 */
-        WCHAR                        StaticUnicodeBuffer[261];          /* c00/1268 used by advapi32 */
-        PVOID                        DeallocationStack;                 /* e0c/1478 */
-        PVOID                        TlsSlots[64];                      /* e10/1480 */
-        LIST_ENTRY                   TlsLinks;                          /* f10/1680 */
-        PVOID                        Vdm;                               /* f18/1690 */
-        PVOID                        ReservedForNtRpc;                  /* f1c/1698 */
-        PVOID                        DbgSsReserved[2];                  /* f20/16a0 */
-        ULONG                        HardErrorDisabled;                 /* f28/16b0 */
-        PVOID                        Instrumentation[16];               /* f2c/16b8 */
-        PVOID                        WinSockData;                       /* f6c/1738 */
-        ULONG                        GdiBatchCount;                     /* f70/1740 */
-        ULONG                        Spare2;                            /* f74/1744 */
-        ULONG                        GuaranteedStackBytes;              /* f78/1748 */
-        PVOID                        ReservedForPerf;                   /* f7c/1750 */
-        PVOID                        ReservedForOle;                    /* f80/1758 */
-        ULONG                        WaitingOnLoaderLock;               /* f84/1760 */
-        PVOID                        Reserved5[3];                      /* f88/1768 */
-        PVOID* TlsExpansionSlots;                 /* f94/1780 */
-#ifdef _WIN64
-        PVOID                        DeallocationBStore;                /*    /1788 */
-        PVOID                        BStoreLimit;                       /*    /1790 */
-#endif
-        ULONG                        ImpersonationLocale;               /* f98/1798 */
-        ULONG                        IsImpersonating;                   /* f9c/179c */
-        PVOID                        NlsCache;                          /* fa0/17a0 */
-        PVOID                        ShimData;                          /* fa4/17a8 */
-        ULONG                        HeapVirtualAffinity;               /* fa8/17b0 */
-        PVOID                        CurrentTransactionHandle;          /* fac/17b8 */
-        TEB_ACTIVE_FRAME* ActiveFrame;                       /* fb0/17c0 */
-        PVOID* FlsSlots;                          /* fb4/17c8 */
-    } TEB, * PTEB;
-
-    NTSYSAPI PVOID     WINAPI RtlAllocateHeap(HANDLE, ULONG, SIZE_T) __WINE_ALLOC_SIZE(3);
-    NTSYSAPI BOOLEAN   WINAPI RtlAreBitsSet(PCRTL_BITMAP, ULONG, ULONG);
-    NTSYSAPI BOOLEAN   WINAPI RtlAreBitsClear(PCRTL_BITMAP, ULONG, ULONG);
-    NTSYSAPI BOOLEAN   WINAPI RtlFreeHeap(HANDLE, ULONG, PVOID);
-    NTSYSAPI void      WINAPI RtlInitializeBitMap(PRTL_BITMAP, PULONG, ULONG);
-    NTSYSAPI void      WINAPI RtlSetBits(PRTL_BITMAP, ULONG, ULONG);
-
-#define ARRAY_SIZE ARRAYSIZE
-#define MSVCRT_free free
-#define MSVCRT_malloc malloc
-//#define MSVCRT_terminate terminate
-#define MSVCRT__exit exit
-#define MSVCRT_abort abort
-
-#endif  /* __WINE_WINTERNL_H */

sdk/lib/crt/wstring/wcscoll.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/wstring/wcscoll.c
- * PURPOSE:     Unknown
- * PROGRAMER:   Unknown
- * UPDATE HISTORY:
- *              25/11/05: Added license header
- */
-
-#include <precomp.h>
-
-/*
- * @unimplemented
- */
-int CDECL _wcsncoll (const wchar_t *s1, const wchar_t *s2, size_t c)
-{
-  /* FIXME: handle collates */
-  return wcsncmp(s1,s2,c);
-}
-
-/*
- * @unimplemented
- */
-int CDECL _wcsnicoll (const wchar_t *s1, const wchar_t *s2, size_t c)
-{
-  /* FIXME: handle collates */
-  return _wcsnicmp(s1,s2,c);
-}

sdk/lib/crt/wstring/wcstok.c

···
-/* taken from wine wcs.c */
-
-#include <precomp.h>
-
-/*********************************************************************
- *		wcstok_s  (MSVCRT.@)
- */
-wchar_t * CDECL wcstok_s( wchar_t *str, const wchar_t *delim,
-                                 wchar_t **next_token )
-{
-    wchar_t *ret;
-
-    if (!MSVCRT_CHECK_PMT(delim != NULL) || !MSVCRT_CHECK_PMT(next_token != NULL) ||
-        !MSVCRT_CHECK_PMT(str != NULL || *next_token != NULL))
-    {
-        _set_errno(EINVAL);
-        return NULL;
-    }
-    if (!str) str = *next_token;
-
-    while (*str && strchrW( delim, *str )) str++;
-    if (!*str) return NULL;
-    ret = str++;
-    while (*str && !strchrW( delim, *str )) str++;
-    if (*str) *str++ = 0;
-    *next_token = str;
-    return ret;
-}
-
-/*********************************************************************
- *		wcstok  (MSVCRT.@)
- */
-wchar_t * CDECL wcstok( wchar_t *str, const wchar_t *delim )
-{
-    return wcstok_s(str, delim, &msvcrt_get_thread_data()->wcstok_next);
-}

sdk/lib/crt/wstring/wcsxfrm.c

···
-/*
- * COPYRIGHT:   See COPYING in the top level directory
- * PROJECT:     ReactOS system libraries
- * FILE:        lib/sdk/crt/wstring/wcsxfrm.c
- * PURPOSE:     Unknown
- * PROGRAMER:   Unknown
- * UPDATE HISTORY:
- *              25/11/05: Added license header
- */
-
-#include <precomp.h>
-
-/*
- * @implemented
- */
-size_t CDECL wcsxfrm(wchar_t *dst,const wchar_t *src, size_t n)
-{
-  size_t r = 0;
-  int c;
-
-  if (n != 0) {
-    while ((c = *src++) != 0)
-    {
-      r++;
-      if (--n == 0)
-      {
-	while (*src++ != 0)
-	  r++;
-	break;
-      }
-      *dst++ = c;
-    }
-    *dst = 0;
-  }
-  return r;
-}

sdk/lib/crt/wstring/wstring.cmake

···
     wstring/wcsstr.c
 )
 
-list(APPEND CRT_WSTRING_SOURCE
-    ${LIBCNTPR_WSTRING_SOURCE}
-    wstring/mbrtowc.c
-    wstring/wcrtomb.c
-    wstring/wcscoll.c
-    wstring/wcsicmp.c
-    wstring/wcslwr.c
-    wstring/wcsnicmp.c
-    wstring/wcstok.c
-    wstring/wcsupr.c
-    wstring/wcsxfrm.c
-)
-
 list(APPEND LIBCNTPR_WSTRING_SOURCE
     wstring/_wcsicmp_nt.c
     wstring/_wcslwr_nt.c