Changeset 2618 for trunk/src/crtdll/crtdll.cpp

Timestamp:

Feb 3, 2000, 10:37:50 PM (26 years ago)

Author:

sandervl

Message:

JW: Update

File:

• trunk/src/crtdll/crtdll.cpp (modified) (96 diffs)

trunk/src/crtdll/crtdll.cpp

@@ -1 @@
-/* $Id: crtdll.cpp,v 1.21 2000-01-08 14:24:04 sandervl Exp $ */
+/* $Id: crtdll.cpp,v 1.22 2000-02-03 21:37:48 sandervl Exp $ */
 
 /*
@@ -8 +8 @@
  * TODO: Check setjmp(3) 
  *
- * Partialy based on Wine and ReactOS
+ * Partialy based on Wine
  *
  * Copyright 1996,1998 Marcus Meissner
  * Copyright 1996 Jukka Iivonen
  * Copyright 1997 Uwe Bonnes
- * Copyright 1999 Jens Wiessner
+ * Copyright 1999-2000 Jens Wiessner
  */
 
@@ -29 +29 @@
 #include <debugtools.h>
 
-#include <wchar.h>
-#include <wctype.h>
 #include <math.h>
 #include <libc\locale.h>
@@ -48 +46 @@
 #include <sys\utime.h>
 #include <sys\stat.h>
+#include "signal.h"
 
 #include <crtdll.h>
+// #include <ieee.h>
+#include <asmhlp.h>
 #include "crtinc.h"
-#include "ieee.h"
+
 
 DEFAULT_DEBUG_CHANNEL(crtdll)
 
-//SvL: per process heap for CRTDLL
-HANDLE CRTDLL_hHeap = 0;
-
 
 /*********************************************************************
@@ -65 +63 @@
 {
         if (fdwReason == DLL_PROCESS_ATTACH) {
-                CRTDLL__fdopen(0,"r");
-                CRTDLL__fdopen(1,"w");
-                CRTDLL__fdopen(2,"w");
+                _fdopen(0,"r");
+                _fdopen(1,"w");
+                _fdopen(2,"w");
                 CRTDLL_hHeap = HeapCreate(0, 0x10000, 0);
         }
@@ -113 +111 @@
 }
 
+
+/*********************************************************************
+ *                  _CIacos    (CRTDLL.004)
+ */
+double CDECL CRTDLL__CIacos()
+{
+  double x;
+  dprintf2(("CRTDLL: _CIacos\n"));
+  POP_FPU(x);
+  return acos(x);
+}
+
+
+/*********************************************************************
+ *                  _CIasin    (CRTDLL.005)
+ */
+double CDECL CRTDLL__CIasin()
+{
+  double x;
+  dprintf2(("CRTDLL: _CIasin\n"));
+  POP_FPU(x);
+  return asin(x);
+}
+
+
+/*********************************************************************
+ *                  _CIatan    (CRTDLL.006)
+ */
+double CDECL CRTDLL__CIatan()
+{
+  double x;
+  dprintf2(("CRTDLL: _CIatan\n"));
+  POP_FPU(x);
+  return atan(x);
+}
+
+
+/*********************************************************************
+ *                  _CIatan2    (CRTDLL.007)
+ */
+double CDECL CRTDLL__CIatan2()
+{
+  double x, y;
+  dprintf2(("CRTDLL: _CIatan2\n"));
+  POP_FPU(y);
+  POP_FPU(x);
+  return atan2(x,y);
+}
+
+
+/*********************************************************************
+ *                  _CIcos    (CRTDLL.008)
+ */
+double CDECL CRTDLL__CIcos()
+{
+  double x;
+  dprintf2(("CRTDLL: _CIcos\n"));
+  POP_FPU(x);
+  return cos(x);
+}
+
+
+/*********************************************************************
+ *                  _CIcosh    (CRTDLL.009)
+ */
+double CDECL CRTDLL__CIcosh()
+{
+  double x;
+  dprintf2(("CRTDLL: _CIcosh\n"));
+  POP_FPU(x);
+  return cosh(x);
+}
+
+
+/*********************************************************************
+ *                  _CIexp    (CRTDLL.010)
+ */
+double CDECL CRTDLL__CIexp()
+{
+  double x;
+  dprintf2(("CRTDLL: _CIexp\n"));
+  POP_FPU(x);
+  return exp(x);
+}
+
+
+/*********************************************************************
+ *                  _CIfmod     (CRTDLL.011)
+ */
+double CDECL CRTDLL__CIfmod( )
+{
+  double x, y;
+  dprintf2(("CRTDLL: _CIfmod\n"));
+  POP_FPU(y);
+  POP_FPU(x);
+  return fmod(x,y);
+}
+
+
+/*********************************************************************
+ *                  _CIlog    (CRTDLL.012)
+ */
+double CDECL CRTDLL__CIlog()
+{
+  double x;
+  dprintf2(("CRTDLL: _CIlog\n"));
+  POP_FPU(x);
+  return log(x);
+}
+
+
+/*********************************************************************
+ *                  _CIlog10    (CRTDLL.013)
+ */
+double CDECL CRTDLL__CIlog10()
+{
+  double x;
+  dprintf2(("CRTDLL: _CIlog10\n"));
+  POP_FPU(x);
+  return log10(x);
+}
+
+
+/*********************************************************************
+ *                  _CIpow     (CRTDLL.014)
+ */
+LONG CDECL CRTDLL__CIpow()
+{
+  double x,y;
+  dprintf2(("CRTDLL: _CIpow\n"));
+  POP_FPU(y);
+  POP_FPU(x);
+  return pow(x,y);
+}
+
+
+
+
+/*********************************************************************
+ *                  _CIsin     (CRTDLL.015)
+ */
+double CDECL CRTDLL__CIsin()
+{
+  double x;
+  dprintf2(("CRTDLL: _CIsin\n"));
+  POP_FPU(x);
+  return sin(x);
+}
+
+
+/*********************************************************************
+ *                  _CIsinh    (CRTDLL.016)
+ */
+double CDECL CRTDLL__CIsinh()
+{
+  double x;
+  dprintf2(("CRTDLL: _CIsinh\n"));
+  POP_FPU(x);
+  return sinh(x);
+}
+
+
+/*********************************************************************
+ *                  _CIsqrt    (CRTDLL.017)
+ */
+double CDECL CRTDLL__CIsqrt()
+{
+  double x;
+  dprintf2(("CRTDLL: _CIsqrt\n"));
+  POP_FPU(x);
+  return sqrt(x);
+}
+
+
+/*********************************************************************
+ *                  _CItan    (CRTDLL.018)
+ */
+double CDECL CRTDLL__CItan()
+{
+  double x;
+  dprintf2(("CRTDLL: _CItan\n"));
+  POP_FPU(x);
+  return tan(x);
+}
+
+
+/*********************************************************************
+ *                  _CItanh    (CRTDLL.019)
+ */
+double CDECL CRTDLL__CItanh()
+{
+  double x;
+  dprintf2(("CRTDLL: _CItanh\n"));
+  POP_FPU(x);
+  return tanh(x);
+}
+
+
 /*********************************************************************
  *                  _XcptFilter    (CRTDLL.21)
@@ -121 +317 @@
   return UnhandledExceptionFilter(ExceptionInfo);
 }
+
 
 /*********************************************************************
@@ -189 +386 @@
 
 /*********************************************************************
- *                  __dllonexit           (CRTDLL.25)
- */
-VOID CDECL CRTDLL___dllonexit ()
-{       
-        dprintf(("__dllonexit not implemented.\n"));
-}
-
-
-/*********************************************************************
  *                  __doserrno            (CRTDLL.26)
  */
 int * CDECL CRTDLL___doserrno()
 {       
-        dprintf2(("__doserrno\n"));
-        _doserrno = GetLastError();
-        return &_doserrno;
-}
-
-
-/*********************************************************************
- *                  __fpecode            (CRTDLL.27)
- */
-int fpecode = 0;
-
-int * CDECL CRTDLL___fpecode ( void )
-{       
-        dprintf2(("__fpecode\n"));
-        return &fpecode;
+        dprintf2(("CRTDLL: __doserrno\n"));
+        return (__doserrno());
 }
 
@@ -225 +400 @@
 int CDECL CRTDLL___isascii(int i)
 {
-  dprintf2(("CRTDLL: __isascii\n"));
-  return  (!((i)&(~0x7f)));
+  //TODO: Check if really ok.
+  dprintf(("CRTDLL: __isascii -> _isascii\n"));
+  return (_isascii(i));
 }
 
@@ -235 +411 @@
 int CDECL CRTDLL___iscsym(int c)
 {
-  dprintf2(("CRTDLL: __iscsym\n"));
-  return (CRTDLL_isalnum(c) || ( c == '_' )) ;
+  //TODO: Check if really ok.
+  dprintf(("CRTDLL: __iscsym -> _iscsym\n"));
+  return (_iscsym(c));
 }
 
@@ -245 +422 @@
 int CDECL CRTDLL___iscsymf(int c)
 {
-  dprintf2(("CRTDLL: __iscsymf\n"));
-  return (isalpha(c) || ( c == '_' )) ;
-}
-
-
-/*********************************************************************
- *           CRTDLL___pxcptinfoptrs   (CRTDLL.32)
- */
-void ** CDECL CRTDLL___pxcptinfoptrs (void)
-{
-  dprintf(("CRTDLL: __pxcptinfoptrs not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return NULL;
+  //TODO: Check if really ok.
+  dprintf(("CRTDLL: __iscsymf -> _iscsymf\n"));
+  return (_iscsymf(c));
 }
 
@@ -282 +449 @@
 
 /*********************************************************************
- *           CRTDLL__abnormal_termination   (CRTDLL.36)
- */
-int CDECL CRTDLL__abnormal_termination(void)
-{
-  dprintf(("CRTDLL: _abnormal_termination  not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
  *           CRTDLL__access   (CRTDLL.37)
  */
@@ -307 +463 @@
 int CDECL CRTDLL___toascii(int c)
 {
-  dprintf2(("CRTDLL: __toascii\n"));
-  return ((unsigned)(c) & 0x7F );
+  //TODO: Check if really ok.
+  dprintf(("CRTDLL: __toascii -> _toascii\n"));
+  return (_toascii(c));
 }
 
@@ -348 +505 @@
 void CDECL CRTDLL__beep(unsigned nFreq, unsigned nDur)
 {       
-        dprintf2(("_beep\n"));
-        Beep(nFreq,nDur);
-}
-
-
-/*********************************************************************
- *           CRTDLL__beginthread   (CRTDLL.46)
- */
-unsigned long CDECL CRTDLL__beginthread(void (*pfuncStart)(void *),
-                unsigned unStackSize, void* pArgList)
-{
-        DWORD  ThreadId;
-        HANDLE hThread;
-        if (  pfuncStart == NULL )
-                __set_errno(EINVAL);
-
-        hThread = CreateThread( NULL,unStackSize,(LPTHREAD_START_ROUTINE)pfuncStart,pArgList,0, &ThreadId);
-        if (hThread == NULL ) {
-                __set_errno(EAGAIN);
-                return -1;
-        }
-        return (unsigned long)hThread;
+  dprintf2(("_beep\n"));
+  Beep(nFreq,nDur);
+}
+
+
+/*********************************************************************
+ *           _beginthread   (CRTDLL.46)
+ */
+int CDECL CRTDLL__beginthread (void (*start)(void *arg), void *stack, unsigned stack_size,
+                  void *arg_list)
+{
+  dprintf(("CRTDLL: _beginthread\n"));
+/*
+  ULONG rc;
+  TID tid;
+  struct _thread *tp;
+  tp = __alloc_thread ();
+  if (tp == NULL)
+    {
+      errno = ENOMEM;
+      return -1;
+    }
+  tp->_th_start = start;
+  tp->_th_arg = arg_list;
+  rc = DosCreateThread (&tid, (PFNTHREAD)start_thread, (ULONG)tp,
+                        3, stack_size);
+  if (rc != 0)
+    {
+      if (rc == ERROR_NOT_ENOUGH_MEMORY)
+        errno = ENOMEM;
+      else if (rc == ERROR_MAX_THRDS_REACHED)
+        errno = EAGAIN;
+      else
+        errno = EINVAL;
+      DosFreeMem (tp);
+      return -1;
+    }
+  if (tid > MAX_THREADS)
+    {
+      DosKillThread (tid);
+      errno = EAGAIN;
+      DosFreeMem (tp);
+      return -1;
+    }
+  if (__newthread (tid) != 0)
+    {
+      DosKillThread (tid);
+      DosFreeMem (tp);
+      return -1;
+    }
+  _thread_tab[tid] = tp;
+  rc = DosResumeThread (tid);
+  if (rc != 0)
+    {
+      errno = ESRCH;
+      DosFreeMem (tp);
+      return -1;
+    }
+  return tid;
+*/
+  return 0;
 }
 
@@ -385 +581 @@
 
 /*********************************************************************
- *           CRTDLL__cabs   (CRTDLL.48)
- */
-double CDECL CRTDLL__cabs(struct _complex z)
+ *           _cabs   (CRTDLL.48)
+ */
+double CDECL CRTDLL__cabs(struct complex z)
 {
   dprintf2(("CRTDLL: _cabs\n"));
-  return sqrt( z.x*z.x + z.y*z.y );
+  return (_cabs(z));
 }
 
@@ -399 +595 @@
 void CDECL CRTDLL__cexit(INT ret)
 {
-        dprintf2(("_cexit(%d)\n",ret));
-        ExitProcess(ret);
+  dprintf2(("_cexit(%d)\n",ret));
+  ExitProcess(ret);
 }
 
@@ -419 +615 @@
 INT CDECL CRTDLL__chdir(LPCSTR newdir)
 {
-        dprintf2(("CRTDLL: chdir\n"));
+        dprintf2(("CRTDLL: _chdir\n"));
         if (!SetCurrentDirectoryA(newdir))
                 return 1;
@@ -441 +637 @@
 
 /*********************************************************************
- *           CRTDLL__chgsign     (CRTDLL.53)
- */
-double CDECL CRTDLL__chgsign(double __x)
-{
-  dprintf2(("CRTDLL: _chgsign\n"));
-  double_t *x = (double_t *)&x;
-  if ( x->sign == 1 )
-        x->sign = 0;
-  else 
-        x->sign = 1;
-
-  return __x;
-}
-
-
-/*********************************************************************
  *           CRTDLL__chmod   (CRTDLL.54)
  */
@@ -497 +677 @@
 
 /*********************************************************************
- *                  CRTDLL__commit    (CRTDLL.58)
- */
-int CDECL CRTDLL__commit( int _fd )
-{
-  dprintf2(("CRTDLL: _commit\n"));
-  if (! FlushFileBuffers((HFILE)CRTDLL__get_osfhandle(_fd)) ) {
-        __set_errno(EBADF);
-        return -1;
-  }
-  return 0;
-}
-
-
-/*********************************************************************
  *           CRTDLL__control87   (CRTDLL.60)
  */
@@ -531 +697 @@
 
 /*********************************************************************
- *                  CRTDLL__copysign    (CRTDLL.62)
- */
-double CDECL CRTDLL__copysign( double __d, double __s )
-{
-  dprintf2(("CRTDLL: _copysign\n"));
-  double_t *d = (double_t *)&__d;
-  double_t *s = (double_t *)&__s;
-
-  d->sign = s->sign;
-
-  return __d;
-}
-
-
-/*********************************************************************
  *                  _cprintf    (CRTDLL.63)
  */
-INT CDECL CRTDLL__cprintf( char *fmt, ... )
+INT CDECL CRTDLL__cprintf( char *fmt, va_list arg )
 {
   dprintf2(("CRTDLL: _cprintf.\n"));
-
-  int     cnt;
-  char    buf[ 2048 ];          /* this is buggy, because buffer might be too small. */
-  va_list ap;
-  
-  va_start(ap, fmt);
-  cnt = vsprintf(buf, fmt, ap);
-  va_end(ap);
-  
-  _cputs(buf);
-  return cnt;
+  return (_cprintf(fmt, arg));
 }
 
@@ -586 +727 @@
 
 /*********************************************************************
- *                  CRTDLL__cscanf    (CRTDLL.67)
- */
-INT CDECL CRTDLL__cscanf( char *s, ... )
-{
-  dprintf(("CRTDLL: _cscanf not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+ *      _cscanf                                 (CRTDLL.67)
+ */
+INT CDECL CRTDLL__cscanf( char *s, va_list arg )
+{
+  dprintf(("CRTDLL: _cscanf\n"));
+  return (_cscanf(s, arg));
 }
 
@@ -647 +787 @@
 
 /*********************************************************************
- *           CRTDLL___eof   (CRTDLL.76)
+ *           _eof   (CRTDLL.76)
  */
 int CDECL CRTDLL__eof( int _fd )
 {
   dprintf2(("CRTDLL: _eof\n"));
-  int cur_pos = CRTDLL__lseek(_fd, 0, SEEK_CUR);
-  int end_pos = CRTDLL__filelength( _fd );
-  if ( cur_pos == -1 || end_pos == -1)
-        return -1;
-
-  if ( cur_pos == end_pos )
-        return 1;
-
-  return 0;
+  return (__eof(_fd));
 }
 
@@ -681 +813 @@
         PEXCEPTION_FRAME  *dispatcher)
 {
-        dprintf2(("CRTDLL: _except_handler2\n"));
-        return 1;
+        dprintf (("exception %lx flags=%lx at %p handler=%p %p %p stub\n",
+        rec->ExceptionCode, rec->ExceptionFlags, rec->ExceptionAddress,
+        frame->Handler, context, dispatcher));
+        return ExceptionContinueSearch;
 }
 
@@ -689 +823 @@
  *           _execl   (CRTDLL.79)
  */
-int CDECL CRTDLL__execl(const char* szPath, const char* szArgv0, ...)
+int CDECL CRTDLL__execl(char* szPath, char* szArgv0, va_list arg)
 {
   dprintf2(("CRTDLL: _execl\n"));
-
-  char *szArg[100];
-  const char *a;
-  int i = 0;
-  va_list l = 0;
-  va_start(l,szArgv0);
-  do {
-        a = va_arg(l,const char *);
-        szArg[i++] = (char *)a;
-  } while ( a != NULL && i < 100 );
-
-  return _spawnve(P_OVERLAY, (char*)szPath, szArg, _environ);
-}
-
-
-/*********************************************************************
- *           CRTDLL__execle   (CRTDLL.80)
- */
-int CDECL CRTDLL__execle(char *path, char *szArgv0, ...)
-{
-  dprintf2(("CRTDLL: _execle not correct implemented.\n"));
-  char *szArg[100];
-  const char *a;
-  char *ptr;
-  int i = 0;
-  va_list l = 0;
-  va_start(l,szArgv0);
-  do {
-        a = (const char *)va_arg(l,const char *);
-        szArg[i++] = (char *)a;
-  } while ( a != NULL && i < 100 );
-
-
-// szArg0 is passed and not environment if there is only one parameter;
-
-  if ( i >=2 ) {
-        ptr = szArg[i-2];
-        szArg[i-2] = NULL;
-  }
-  else
-        ptr = NULL;
-
-  return _spawnve(P_OVERLAY, path, szArg, (char**)ptr);
+  return (_execl(szPath, szArgv0, arg));
+}
+
+
+/*********************************************************************
+ *           _execle   (CRTDLL.80)
+ */
+int CDECL CRTDLL__execle(char *path, char *szArgv0, va_list arg)
+{
+  dprintf2(("CRTDLL: _execle\n"));
+  return (_execle(path, szArgv0, arg));
 }
 
@@ -741 +843 @@
  *           CRTDLL__execlp   (CRTDLL.81)
  */
-int CDECL CRTDLL__execlp( char *szPath, char *szArgv0, ...)
+int CDECL CRTDLL__execlp( char *szPath, char *szArgv0, va_list arg)
 {
   dprintf2(("CRTDLL: _execlp\n"));
-  char *szArg[100];
-  const char *a;
-  int i = 0;
-  va_list l = 0;
-  va_start(l,szArgv0);
-  do {
-        a = (const char *)va_arg(l,const char *);
-        szArg[i++] = (char *)a;
-  } while ( a != NULL && i < 100 );
-  return _spawnvpe(P_OVERLAY, szPath,szArg, _environ);
+  return (_execlp(szPath, szArgv0, arg));
 }
 
@@ -760 +853 @@
  *           CRTDLL__execlpe   (CRTDLL.82)
  */
-int CDECL CRTDLL__execlpe( char *path, char *szArgv0, ...)
-{
-  dprintf2(("CRTDLL: _execlpe not correct implemented.\n"));
-  char *szArg[100];
-  const char *a;
-  char *ptr;
-  int i = 0;
-  va_list l = 0;
-  va_start(l,szArgv0);
-  do {
-        a = (const char *)va_arg(l,const char *);
-        szArg[i++] = (char *)a;
-  } while ( a != NULL && i < 100 );
-
-
-// szArg0 is passed and not environment if there is only one parameter;
-
-  if ( i >=2 ) {
-        ptr = szArg[i-2];
-        szArg[i-2] = NULL;
-  }
-  else
-        ptr = NULL;
-  return spawnvpe(P_OVERLAY, path, szArg, (char**)ptr);
+int CDECL CRTDLL__execlpe( char *path, char *szArgv0, va_list arg)
+{
+  dprintf2(("CRTDLL: _execlpe\n"));
+  return (_execlpe(path, szArgv0, arg));
 }
 
@@ -838 +911 @@
 
 /*********************************************************************
- *           _expand   (CRTDLL.88)
- */
-void * CDECL CRTDLL__expand( void *ptr, size_t size )
-{
-  dprintf(("CRTDLL: _expand not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
  *           _fcloseall   (CRTDLL.89)
  */
@@ -871 +933 @@
  *                  _fdopen     (CRTDLL.91)
  */
-CRTDLL_FILE * CDECL CRTDLL__fdopen(INT handle, LPCSTR mode)
-{
-    dprintf2(("CRTDLL: fdopen\n"));
-    CRTDLL_FILE *file;
-
-    switch (handle) 
-    {
-    case 0:
-        file = CRTDLL_stdin;
-        if (!file->handle) file->handle = GetStdHandle( STD_INPUT_HANDLE );
-        break;
-    case 1:
-        file = CRTDLL_stdout;
-        if (!file->handle) file->handle = GetStdHandle( STD_OUTPUT_HANDLE );
-        break;
-    case 2:
-        file=CRTDLL_stderr;
-        if (!file->handle) file->handle = GetStdHandle( STD_ERROR_HANDLE );
-        break;
-    default:
-        file = (PCRTDLL_FILE)Heap_Alloc(sizeof(*file) );
-        file->handle = handle;
-        break;
-    }
-  return file;
+FILE * CDECL CRTDLL__fdopen(INT handle, LPCSTR mode)
+{
+    dprintf2(("CRTDLL: _fdopen\n"));
+    return (_fdopen(handle, mode));
 }
 
@@ -910 +951 @@
 
 /*********************************************************************
- *           _fgetwchar  (CRTDLL.93)
- */
-wint_t CDECL CRTDLL__fgetwchar( void *i )
-{
-  dprintf2(("CRTDLL: _fgetwchar\n"));
-  return CRTDLL__getch();
-}
-
-
-/*********************************************************************
- *           _filbuf     (CRTDLL.94)
- */
-int CDECL CRTDLL__filbuf(FILE * f)
-{
-  dprintf(("CRTDLL: _filbuf not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
  *           CRTDLL__filelength     (CRTDLL.96)
  */
@@ -951 +971 @@
 
 /*********************************************************************
-*                  _findclose    (CRTDLL.098)
-*/
-int CDECL CRTDLL__findclose( long handle )
-{
-  dprintf2(("CRTDLL: _findclose\n"));
-  // check no wildcards or invalid handle
-  if ( handle == 0 || handle == -1)
-        return 0;
-  return FindClose(handle);
-}
-
-
- /*********************************************************************
- *                  _findfirst    (CRTDLL.099)
- */
-DWORD CDECL CRTDLL__findfirst(LPCSTR fname,  struct find_t * x2)
-{
-  dprintf(("CRTDLL: _findfirst not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *                  _findnext     (CRTDLL.100)
- */
-INT CDECL CRTDLL__findnext(DWORD hand, struct find_t * x2)
-{
-  dprintf(("CRTDLL: _findnext not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *                  _finite     (CRTDLL.101)
- */
-INT CDECL CRTDLL__finite(double x)
-{
-  dprintf2(("CRTDLL: _finite\n"));
-  return !_isinf(x);
-}
-
-
-/*********************************************************************
- *                  _flsbuf     (CRTDLL.102)
- */
-INT CDECL CRTDLL__flsbuf(int i, FILE * f)
-{
-  dprintf(("CRTDLL: _flsbuf not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
  *                  _flushall     (CRTDLL.103)
  */
@@ -1017 +981 @@
 
 /*********************************************************************
- *                  _fpclass     (CRTDLL.105)
- */
-INT CDECL CRTDLL__fpclass( double __d )
-{
-  dprintf2(("CRTDLL: _fpclass\n"));
-        double_t *d = (double_t *)&__d;
-
-        if ( d->exponent == 0 ) {
-                if ( d->mantissah == 0 &&  d->mantissal == 0 ) {
-                        if ( d->sign ==0 )
-                                return FP_NZERO;
-                        else
-                                return FP_PZERO;
-                } else {
-                        if ( d->sign ==0 )
-                                return FP_NDENORM;
-                        else
-                                return FP_PDENORM;
-                }
-        }
-        if (d->exponent == 0x7ff ) {
-                if ( d->mantissah == 0 &&  d->mantissal == 0 ) {
-                        if ( d->sign ==0 )
-                                return FP_NINF;
-                        else
-                                return FP_PINF;
-                } 
-                else if ( d->mantissah == 0 &&  d->mantissal != 0 ) {
-                        return FP_QNAN;
-                }
-                else if ( d->mantissah == 0 &&  d->mantissal != 0 ) {
-                        return FP_SNAN;
-                }
-        
-        }
-
-        return 0;
-}
-
-
-/*********************************************************************
- *                  _fpieee_flt     (CRTDLL.106)
- */
-INT CDECL CRTDLL__fpieee_flt( unsigned long exc_code, struct _EXCEPTION_POINTERS *exc_info, int handler)
-{
-  dprintf(("CRTDLL: _fpieee_flt not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return 0;
-}
-
-
-
-/*********************************************************************
- *                  _fpreset     (CRTDLL.107)
- */
-void CDECL CRTDLL__fpreset(void)
-{
-  dprintf(("CRTDLL: _fpreset not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-}
-
-
-/*********************************************************************
  *                  _fputchar     (CRTDLL.108)
  */
@@ -1090 +991 @@
 
 /*********************************************************************
- *                  _fputwchar     (CRTDLL.109)
- */
-wint_t CDECL CRTDLL__fputwchar( wint_t )
-{
-  dprintf(("CRTDLL: _fputwchar not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *                  _fsopen     (CRTDLL.110)
- */
-FILE * CDECL CRTDLL__fsopen( const char *file, const char *mode, int shflag )
-{
-  dprintf(("CRTDLL: _fsopen not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *                  _fstat        (CRTDLL.111)
- */
-int CDECL CRTDLL__fstat(int file, struct stat* buf)
-{
-  dprintf(("CRTDLL: _fstat not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *                  _ftime        (CRTDLL.112)
- */
-int CDECL CRTDLL__ftime( struct timeb *timebuf )
-{
-  dprintf(("CRTDLL: _ftime not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+ *                  _ftol         (CRTDLL.113)
+ */
+LONG CDECL CRTDLL__ftol(void)
+{
+        /* don't just do DO_FPU("fistp",retval), because the rounding
+         * mode must also be set to "round towards zero"... */
+        double fl;
+        POP_FPU(fl);
+        return (LONG)fl;
 }
 
@@ -1144 +1014 @@
 
 /*********************************************************************
- *                  _futime        (CRTDLL.115)
- */
-int CDECL CRTDLL__futime( int handle, struct _utimbuf *filetime )
-{
-  dprintf(("CRTDLL: _futime not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
  *                  _gcvt     (CRTDLL.116)
  */
@@ -1165 +1024 @@
 
 /*********************************************************************
- *                  _get_osfhandle     (CRTDLL.117)
- */
-void* CDECL CRTDLL__get_osfhandle( int fileno )
-{
-  dprintf2(("CRTDLL: _get_osfhandle\n"));
-  return filehnd(fileno);
-}
-
-
-/*********************************************************************
  *                  _getch     (CRTDLL.118)
  */
@@ -1215 +1064 @@
 
 /*********************************************************************
- *                  _getdiskfree     (CRTDLL.122)
- */
-unsigned int CDECL CRTDLL__getdiskfree( unsigned int drive, struct _diskfree_t *diskspace)
-{
-  dprintf2(("CRTDLL: _getdiskfree\n"));
-  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;
-}
-
-
-/*********************************************************************
- *                  _getdllprocaddr     (CRTDLL.123)
- */
-FARPROC CDECL  CRTDLL__getdllprocaddr(HMODULE hModule,char * lpProcName, int iOrdinal)
-{
-  dprintf2(("CRTDLL: _getdllprocaddr\n"));   
-  if ( lpProcName != NULL ) 
-        return GetProcAddress(hModule, lpProcName);
-  else
-        return GetProcAddress(hModule, (LPSTR)iOrdinal);
-  return (NULL);
-}
-
-
-/*********************************************************************
  *                  _getdrive    (CRTDLL.124)
  */
@@ -1280 +1094 @@
 
 /*********************************************************************
- *                  _getsystime    (CRTDLL.127)
- */
-unsigned int CDECL CRTDLL__getsystime(struct tm *tp)
-{
-  dprintf(("CRTDLL: _getsystime not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
  *                  _getw     (CRTDLL.128)
  */
@@ -1296 +1099 @@
 {
   dprintf2(("CRTDLL: _getw\n"));
-  int w;
-
-  /* Is there a better way?  */
-  if (CRTDLL_fread( &w, sizeof(w), 1, stream) != 1)
-    return(EOF);
-  return(w);
+  int x;
+  return (fread (&x, sizeof (x), 1, stream) == 1 ? x : EOF);
 }
 
@@ -1310 +1109 @@
 void CDECL CRTDLL__global_unwind2( PEXCEPTION_FRAME frame )
 {
-    dprintf2(("CRTDLL: global_undwind2\n"));
+    dprintf2(("CRTDLL: _global_unwind2\n"));
     RtlUnwind( frame, 0, NULL, 0 );
 }
@@ -1342 +1141 @@
   dprintf2(("CRTDLL: _heapset\n"));
   return (_heapset(fill));
-}
-
-
-/*********************************************************************
- *                  _heapwalk     (CRTDLL.133)
- */
-int CDECL CRTDLL__heapwalk( struct _heapinfo *entry )
-{
-  dprintf(("CRTDLL: _heapwalk not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return 0;
 }
 
@@ -1380 +1168 @@
         }
         return 0;
-}
-
-
-/*********************************************************************
- *                  _isatty       (CRTDLL.137)
- */
-BOOL CDECL CRTDLL__isatty(DWORD x)
-{
-   dprintf2(("(%ld)\n",x));
-   return TRUE;
 }
 
@@ -1419 +1197 @@
 
 /*********************************************************************
- *                  _ismbbalnum     (CRTDLL.139)
- */
-int CDECL CRTDLL__ismbbalnum( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbbalnum\n"));
-  return (CRTDLL_isalnum(c) || CRTDLL__ismbbkalnum(c));
-}
-
-
-/*********************************************************************
- *                  _ismbbalpha     (CRTDLL.140)
- */
-int CDECL CRTDLL__ismbbalpha( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbbalpha\n"));
-  return (isalpha(c) || CRTDLL__ismbbkalnum(c));
-}
-
-
-/*********************************************************************
- *                  _ismbbgraph     (CRTDLL.141)
- */
-int CDECL CRTDLL__ismbbgraph( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbbgraph\n"));
-  return (CRTDLL_isgraph(c) || CRTDLL__ismbbkana(c));
-}
-
-
-/*********************************************************************
- *                  _ismbbkalnum     (CRTDLL.142)
- */
-int CDECL CRTDLL__ismbbkalnum( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbbkalnum\n"));
-  return  ((_jctype+1)[(unsigned char)(c)] & (_KNJ_P));
-}
-
-
-/*********************************************************************
- *                  _ismbbkana     (CRTDLL.143)
- */
-int CDECL CRTDLL__ismbbkana( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbbkana\n"));
-  return ((_jctype+1)[(unsigned char)(c)] & (_KNJ_M|_KNJ_P));
-}
-
-
-/*********************************************************************
- *                  _ismbbkpunct     (CRTDLL.144)
- */
-int CDECL CRTDLL__ismbbkpunct( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbbkpunct\n"));
-  return  ((_jctype+1)[(unsigned char)(c)] & (_KNJ_P));
-}
-
-
-/*********************************************************************
- *                  _ismbblead     (CRTDLL.145)
- */
-int CDECL CRTDLL__ismbblead( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbblead\n"));
-  return ((_jctype+1)[(unsigned char)(c)] & _KNJ_1);
-}
-
-
-/*********************************************************************
- *                  _ismbbprint     (CRTDLL.146)
- */
-int CDECL CRTDLL__ismbbprint( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbbprint\n"));
-  return (isprint(c) || CRTDLL__ismbbkana(c));
-}
-
-
-/*********************************************************************
- *                  _ismbbpunct     (CRTDLL.147)
- */
-int CDECL CRTDLL__ismbbpunct( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbbpunct\n"));
-  return (ispunct(c) ||  CRTDLL__ismbbkana(c));
-}
-
-
-/*********************************************************************
- *                  _ismbbtrail     (CRTDLL.148)
- */
-int CDECL CRTDLL__ismbbtrail( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbbtrail\n"));
-  return ((_jctype+1)[(unsigned char)(c)] & _KNJ_2);
-}
-
-
-/*********************************************************************
- *                  _ismbcalpha     (CRTDLL.149)
- */
-int CDECL CRTDLL__ismbcalpha( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbcalpha\n"));
-  if ((c & 0xFF00) != 0) {
-        // true multibyte character
-        return 0;
-  }
-  else
-        return CRTDLL__ismbbalpha(c);
-
-  return 0;
-}
-
-
-/*********************************************************************
- *                  _ismbcdigit     (CRTDLL.150)
- */
-int CDECL CRTDLL__ismbcdigit( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbcdigit\n"));
-  if ((c & 0xFF00) != 0) {
-        // true multibyte character
-        return 0;
-  }
-  else
-        return 0;
-//              return _ismbbdigit(c);
-
-        return 0;
-}
-
-
-/*********************************************************************
- *                  _ismbchira     (CRTDLL.151)
- */
-int CDECL CRTDLL__ismbchira( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbchira\n"));
-  return ((c>=0x829F) && (c<=0x82F1));
-}
-
-
-/*********************************************************************
- *                  _ismbckata     (CRTDLL.152)
- */
-int CDECL CRTDLL__ismbckata( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbckata\n"));
-  return ((c>=0x8340) && (c<=0x8396));
-}
-
-/*********************************************************************
- *                  _ismbcl0     (CRTDLL.153)
- */
-int CDECL CRTDLL__ismbcl0( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbcl0 not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return 0;
-}
-
-
-/*********************************************************************
- *                  _ismbcl1     (CRTDLL.154)
- */
-int CDECL CRTDLL__ismbcl1( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbcl1 not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return 0;
-}
-
-
-/*********************************************************************
- *                  _ismbcl2     (CRTDLL.155)
- */
-int CDECL CRTDLL__ismbcl2( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbcl2 not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return 0;
-}
-
-
-/*********************************************************************
- *                  _ismbclegal     (CRTDLL.156)
- */
-int CDECL CRTDLL__ismbclegal( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbclegal\n"));
-  if ((c & 0xFF00) != 0) {
-        return CRTDLL__ismbblead(c>>8) && CRTDLL__ismbbtrail(c&0xFF);
-  }
-  else
-        return CRTDLL__ismbbtrail(c&0xFF);
-
-  return 0;
-}
-
-
-/*********************************************************************
- *                  _ismbclower     (CRTDLL.157)
- */
-int CDECL CRTDLL__ismbclower( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbclower\n"));
-  if ((c & 0xFF00) != 0) {
-        if ( c >= 0x829A && c<= 0x829A )
-                return 1;
-  }
-  else
-    return isupper(c);
-}
-
-
-/*********************************************************************
- *                  _ismbcprint     (CRTDLL.158)
- */
-int CDECL CRTDLL__ismbcprint( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbcprint\n"));
-  if ((c & 0xFF00) != 0) {
-        // true multibyte character
-        return 0;
-  }
-  else
-        return 0;
-//      return _ismbbdigit(c);
-
-  return 0;
-}
-
-
-/*********************************************************************
- *                  _ismbcspace     (CRTDLL.159)
- */
-int CDECL CRTDLL__ismbcspace( unsigned int c )
-{
-  dprintf(("CRTDLL: _ismbcspace not implemented.\n"));
-  if ((c & 0xFF00) != 0) {
-        // true multibyte character
-        return 0;
-  }
-  else
-        return 0;
-//      return _ismbbdigit(c);
-
-  return 0;
-}
-
-
-/*********************************************************************
- *                  _ismbcsymbol     (CRTDLL.160)
- */
-int CDECL CRTDLL__ismbcsymbol( unsigned int c )
-{
-  dprintf(("CRTDLL: _ismbcsymbol not implemented.\n"));
-  if ((c & 0xFF00) != 0) {
-        // true multibyte character
-        return 0;
-  }
-  else
-        return 0;
-//      return _ismbbdigit(c);
-
-  return 0;
-}
-
-
-/*********************************************************************
- *                  _ismbcupper     (CRTDLL.161)
- */
-int CDECL CRTDLL__ismbcupper( unsigned int c )
-{
-  dprintf2(("CRTDLL: _ismbcupper\n"));
-  if ((c & 0xFF00) != 0) {
-        if ( c >= 0x8260 && c<= 0x8279 )
-                return 1;
-  }
-  else
-  return isupper(c);
-}
-
-
-/*********************************************************************
- *                  _ismbslead     (CRTDLL.162)
- */
-int CDECL CRTDLL__ismbslead(const unsigned char *str, const unsigned char *t)
-{
-  dprintf2(("CRTDLL: _ismbslead\n"));
-  unsigned char *s = (unsigned char *)str;
-  while(*s != 0 && s != t) 
-  {  
-        s+= _mbclen2(*s);
-  }             
-  return CRTDLL__ismbblead( *s);
-}
-
-
-/*********************************************************************
- *                  _ismbstrail     (CRTDLL.163)
- */
-int CDECL CRTDLL__ismbstrail(const unsigned char *str, const unsigned char *t)
-{
-  dprintf2(("CRTDLL: _ismbstrail\n"));
-  unsigned char *s = (unsigned char *)str;
-  while(*s != 0 && s != t) 
-  {
-                
-        s+= _mbclen2(*s);
-  }
-                
-  return CRTDLL__ismbbtrail(*s);
-}
-
-
-/*********************************************************************
- *                  _isnan     (CRTDLL.164)
- */
-int CDECL CRTDLL__isnan( double __x )
-{
-  dprintf2(("CRTDLL: _isnan\n"));
-  double_t * x = (double_t *)&__x;
-  return ( x->exponent == 0x7ff  && ( x->mantissah != 0 || x->mantissal != 0 ));
-}
-
+ *                  _itoa      (CRTDLL.165)
+ */
+char * CDECL CRTDLL__itoa(int i, char *s, int r)
+{
+  dprintf2(("CRTDLL: _itoa(%08xh, %08xh, %08xh)\n",
+           i,
+           s,
+           r));
+
+  return (itoa(i,s,r));
+}
 
 /*********************************************************************
@@ -1788 +1249 @@
 
 /*********************************************************************
- *                  _lfind     (CRTDLL.170)
- */
-void * CDECL CRTDLL__lfind(const void *key, const void *base, size_t *nelp,
-         size_t width, int (*compar)(const void *, const void *))
-{
-  dprintf2(("CRTDLL: _lfind\n"));
-  char *char_base = (char *)base;
-  int i;
-  for(i=0;i<*nelp;i++) {
-        if ( compar(key,char_base) == 0)
-                return char_base;
-        char_base += width;
-  }
-  return NULL;
-}
-
-
-/*********************************************************************
  *                  _loaddll    (CRTDLL.171)
  */
@@ -1820 +1263 @@
 void CDECL CRTDLL__local_unwind2( PEXCEPTION_FRAME endframe, DWORD nr )
 {
-        dprintf2(("CRTDLL: local_undwind2\n"));
-}
-
-
-/*********************************************************************
- *                  _locking        (CRTDLL.173)
- */
-int CDECL CRTDLL__locking(int handle,int mode,unsigned long nbyte)
-{
-  dprintf(("CRTDLL: _locking not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *                  _logb     (CRTDLL.174)
- */
-double CDECL CRTDLL__logb( double x )
-{
-  dprintf(("CRTDLL: _logb not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+        dprintf2(("CRTDLL: _local_unwind2\n"));
 }
 
@@ -1867 +1288 @@
 
 /*********************************************************************
- *                  _lsearch   (CRTDLL.177)
- */
-void * CDECL CRTDLL__lsearch(const void *key, void *base, size_t *nelp, size_t width,
-         int (*compar)(const void *, const void *))
-{
-  dprintf(("CRTDLL: _lsearch not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
  *                  _lseek      (CRTDLL.178)
  */
@@ -1889 +1298 @@
 
 /*********************************************************************
+ *                  _ltoa       (CRTDLL.179)
+ */
+LPSTR  CDECL CRTDLL__ltoa(long x,LPSTR buf,INT radix)
+{
+    return ltoa(x,buf,radix);
+}
+
+
+/*********************************************************************
  *                  _makepath   (CRTDLL.180)
  */
@@ -1910 +1328 @@
 
 /*********************************************************************
- *                  _mbbtombc        (CRTDLL.182)
- */
-unsigned int CDECL CRTDLL__mbbtombc( unsigned int c )
-{
-  dprintf2(("CRTDLL: _mbbtombc\n"));
-  if (c >= 0x20 && c <= 0x7e) {
-    return han_to_zen_ascii_table[c - 0x20];
-  } else if (ISKANA(c)) {
-    return han_to_zen_kana_table[c - 0xa0];
-  }
-  return c;
-}
-
-
-/*********************************************************************
- *                  _mbbtype        (CRTDLL.183)
- */
-int CDECL CRTDLL__mbbtype( unsigned char c, int type )
-{
-  dprintf2(("CRTDLL: _mbbtype\n"));
-        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;       
-}
-
-
-/*********************************************************************
- *                  _mbccpy        (CRTDLL.184)
- */
-void CDECL CRTDLL__mbccpy( unsigned char *dst, const unsigned char *src )
-{
-  dprintf2(("CRTDLL: _mbccpy\n"));
-
-  if (!CRTDLL__ismbblead(*src) )
-        return;
-                
-  memcpy(dst,src,_mbclen2(*src));
-}
-
-
-/*********************************************************************
- *                  _mbcjistojms     (CRTDLL.185)
- */
-int CDECL CRTDLL__mbcjistojms( unsigned int c )
-{
-  dprintf2(("CRTDLL: _mbcjistojms\n"));
-  int c1, c2;
-
-  c2 = (unsigned char)c;
-  c1 = c >> 8;
-  if (c1 >= 0x21 && c1 <= 0x7e && c2 >= 0x21 && c2 <= 0x7e) {
-    if (c1 & 0x01) {
-      c2 += 0x1f;
-      if (c2 >= 0x7f)
-        c2 ++;
-    } else {
-      c2 += 0x7e;
-    }
-    c1 += 0xe1;
-    c1 >>= 1;
-    if (c1 >= 0xa0)
-      c1 += 0x40;
-    return ((c1 << 8) | c2);
-  }
-  return 0;
-}
-
-
-/*********************************************************************
- *                  _mbcjmstojis     (CRTDLL.186)
- */
-int CDECL CRTDLL__mbcjmstojis( unsigned int c )
-{
-  dprintf2(("CRTDLL: _mbcjmstojis\n"));
-  int c1, c2;
-
-  c2 = (unsigned char)c;
-  c1 = c >> 8;
-  if (c1 < 0xf0 && CRTDLL__ismbblead(c1) && CRTDLL__ismbbtrail(c2)) {
-    if (c1 >= 0xe0)
-      c1 -= 0x40;
-    c1 -= 0x70;
-    c1 <<= 1;
-    if (c2 < 0x9f) {
-      c1 --;
-      c2 -= 0x1f;
-      if (c2 >= (0x80-0x1f))
-        c2 --;
-    } else {
-      c2 -= 0x7e;
-    }
-    return ((c1 << 8) | c2);
-  }
-  return 0;
-}
-
-
-/*********************************************************************
- *                  _mbclen    (CRTDLL.187)
- */
-size_t CDECL CRTDLL__mbclen( const unsigned char *s )
-{
-  dprintf2(("CRTDLL: _mbclen\n"));
-  return (CRTDLL__ismbblead(*s>>8) && CRTDLL__ismbbtrail(*s&0x00FF)) ? 2 : 1;
-}
-
-
-/*********************************************************************
- *                  _mbctohira     (CRTDLL.188)
- */
-int CDECL CRTDLL__mbctohira( unsigned int c )
-{
-  dprintf2(("CRTDLL: _mbctohira\n"));
-  return c;
-}
-
-
-/*********************************************************************
- *                  _mbctokata     (CRTDLL.189)
- */
-int CDECL CRTDLL__mbctokata( unsigned int c )
-{
-  dprintf2(("CRTDLL: _mbctokata\n"));
-  return c;
-}
-
-
-/*********************************************************************
- *                  _mbctolower     (CRTDLL.190)
- */
-unsigned int CDECL CRTDLL__mbctolower( unsigned int c )
-{
-  dprintf2(("CRTDLL: _mbctolower\n"));
-        if ((c & 0xFF00) != 0) {
-// true multibyte case conversion needed
-                if ( CRTDLL__ismbclower(c) )
-                        return c + CASE_DIFF;
-
-        } else
-                return _mbbtolower(c);
-
-        return 0;
-}
-
-
-/*********************************************************************
- *                  _mbctombb        (CRTDLL.191)
- */
-unsigned int CDECL CRTDLL__mbctombb( unsigned int c )
-{
-  dprintf2(("CRTDLL: _mbctombb\n"));
-  int i;
-  unsigned short *p;
-
-  if (JISKANA(c)) {
-    return zen_to_han_kana_table[c - 0x8340];
-  } else if (JISHIRA(c)) {
-    c = JTOKANA(c);
-    return zen_to_han_kana_table[c - 0x8340];
-  } else if (c <= 0x8396) {
-    for (i = 0x20, p = han_to_zen_ascii_table; i <= 0x7e; i++, p++) {
-      if (*p == c) {
-        return i;
-      }
-    }
-    for (i = 0; i < ZTOH_SYMBOLS; i++) {
-      if (zen_to_han_symbol_table_1[i] == c) {
-        return zen_to_han_symbol_table_2[i];
-      }
-    }
-  }
-  return c;
-}
-
-
-/*********************************************************************
- *                  _mbctoupper     (CRTDLL.192)
- */
-unsigned int CDECL CRTDLL__mbctoupper( unsigned int c )
-{
-  dprintf2(("CRTDLL: _mbctoupper\n"));
-  if ((c & 0xFF00) != 0) {
-// true multibyte case conversion needed
-  if ( CRTDLL__ismbcupper(c) )
-        return c + CASE_DIFF;
-
-  } else
-        return _mbbtoupper(c);
-
-  return 0;
-}
-
-
-/*********************************************************************
- *                  _mbsbtype     (CRTDLL.194)
- */
-int CDECL CRTDLL__mbsbtype( const unsigned char *str, int n )
-{
-  dprintf2(("CRTDLL: _mbsbtype\n"));
-  if ( str == NULL )
-        return -1;
-  return CRTDLL__mbbtype(*(str+n),1);
-}
-
-
-/*********************************************************************
- *                  _mbscat       (CRTDLL.195)
- */
-unsigned char * CDECL CRTDLL__mbscat( unsigned char *dst, const unsigned char *src )
-{
-  dprintf2(("CRTDLL: _mbscat\n"));
-  return (unsigned char*)strcat((char*)dst,(char*)src);
-}
-
-
-/*********************************************************************
- *                  _mbschr       (CRTDLL.196)
- */
-unsigned char * CDECL CRTDLL__mbschr( const unsigned char *str, unsigned int c )
-{
-  dprintf2(("CRTDLL: _mbschr\n"));
-  return (unsigned char*)strchr((char*)str,c);
-}
-
-
-/*********************************************************************
- *                  _mbscmp       (CRTDLL.197)
- */
-int CDECL CRTDLL__mbscmp( const unsigned char *s1, const unsigned char *s2 )
-{
-  dprintf2(("CRTDLL: _mbscmp\n"));
-  return strcmp((char*)s1,(char*)s2);
-}
-
-
-/*********************************************************************
- *                  _mbscpy       (CRTDLL.198)
- */
-unsigned char * CDECL CRTDLL__mbscpy( unsigned char *s1, const unsigned char *s2 )
-{
-  dprintf2(("CRTDLL: _mbscpy\n"));
-  return (unsigned char*)strcpy((char*)s1,(char*)s2);
-}
-
-
-/*********************************************************************
- *                  _mbscspn        (CRTDLL.199)
- */
-size_t CDECL CRTDLL__mbscspn( const unsigned char *s1, const unsigned char *s2 )
-{
-  dprintf2(("CRTDLL: _mbscspn\n"));
-  const char *p, *spanp;
-  char c, sc;
-
-  for (p = (const char*)s1;;)
-  {
-    c = *p++;
-    spanp = (const char*)s2;
-    do {
-      if ((sc = *spanp++) == c)
-        return (size_t)(p - 1) - (size_t)s1;
-    } while (sc != 0);
-  }
-  /* NOTREACHED */
-}
-
-
-/*********************************************************************
- *           _mbsdec    (CRTDLL.200)
- */
-unsigned char * CDECL CRTDLL__mbsdec( const unsigned char *str, const unsigned char *cur )
-{
-  dprintf2(("CRTDLL: _mbsdec\n"));
-  unsigned char *s = (unsigned char *)cur;
-  if ( str >= cur )
-        return NULL;
-  s--;
-  if (CRTDLL__ismbblead(*(s-1)) )
-        s--;
-
-  return s; 
-}
-
-
-/*********************************************************************
- *           _mbsdup    (CRTDLL.201)
- */
-unsigned char * CDECL CRTDLL__mbsdup( unsigned char *_s )
-{
-  dprintf2(("CRTDLL: _mbsdup\n"));
-  char *rv;
-  if (_s == 0)
-        return 0;
-  rv = (char *)malloc(CRTDLL__mbslen((LPCSTR)_s) + 1);
-  if (rv == 0)
-        return 0;
-  CRTDLL__mbscpy((unsigned char*)rv, _s);
-  return (unsigned char*)rv;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsicmp   (CRTDLL.202)
- */
-int CDECL CRTDLL__mbsicmp( const unsigned char *x, const unsigned char *y )
-{
-  dprintf2(("CRTDLL: _mbsicmp\n"));
-    do {
-        if (!*x)
-            return !!*y;
-        if (!*y)
-            return !!*x;
-        /* FIXME: MBCS handling... */
-        if (*x!=*y)
-            return 1;
-        x++;
-        y++;
-    } while (1);
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsinc    (CRTDLL.203)
- */
-LPSTR CDECL CRTDLL__mbsinc( LPCSTR str )
-{
-    dprintf2(("CRTDLL: _mbsinc\n"));
-    int len = mblen( str, MB_LEN_MAX );
-    if (len < 1) len = 1;
-    return (LPSTR)(str + len);
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbslen    (CRTDLL.204)
- */
-INT CDECL CRTDLL__mbslen( LPCSTR str )
-{
-    dprintf2(("CRTDLL: _mbslen\n"));
-    INT len, total = 0;
-    while ((len = mblen( str, MB_LEN_MAX )) > 0)
-    {
-        str += len;
-        total++;
-    }
-    return total;
-}
-
-
-/*********************************************************************
- *           _mbslwr    (CRTDLL.205)
- */
-unsigned char * CDECL CRTDLL__mbslwr( unsigned char *x )
-{
-  dprintf2(("CRTDLL: _mbslwr\n"));
-  unsigned char  *y=x;
-
-  while (*y) {
-        if (!CRTDLL__ismbblead(*y) )
-                *y = tolower(*y);
-        else {
-                *y=CRTDLL__mbctolower(*(unsigned short *)y);
-                y++;
-        }
-  }
-  return x;
-}
-
-
-/*********************************************************************
- *           _mbsnbcat  (CRTDLL.206)
- */
-unsigned char * CDECL CRTDLL__mbsnbcat( unsigned char *dst, const unsigned char *src, size_t n )
-{
-  dprintf2(("CRTDLL: _mbsnbcat\n"));
-        char *d; 
-        char *s = (char *)src;  
-        if (n != 0) {
-                d = (char*)dst + strlen((char*)dst); // get the end of string 
-                d += _mbclen2(*d); // move 1 or 2 up
-
-                do {
-                        if ((*d++ = *s++) == 0)
-                        {
-                                while (--n != 0)
-                                        *d++ = 0;
-                                break;
-                        }
-                        if ( !(n==1 && CRTDLL__ismbblead(*s)) )
-                                n--;
-                } while (n > 0);
-        }
-        return dst;
-}
-
-
-/*********************************************************************
- *           _mbsnbcmp  (CRTDLL.207)
- */
-int CDECL CRTDLL__mbsnbcmp( const unsigned char *str1, const unsigned char *str2, size_t n )
-{
-  dprintf2(("CRTDLL: _mbsnbcmp\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 = CRTDLL__ismbblead(*s1);
-                l2 = CRTDLL__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;
-}
-
-
-/*********************************************************************
- *           _mbsnbcnt  (CRTDLL.208)
- */
-size_t CDECL CRTDLL__mbsnbcnt( const unsigned char *str, size_t n )
-{
-  dprintf2(("CRTDLL: _mbsnbcnt\n"));
-        unsigned char *s = (unsigned char *)str;
-        while(*s != 0 && n > 0) {
-                if (!CRTDLL__ismbblead(*s) )
-                        n--;
-                s++;
-        }
-        
-        return (size_t)(s - str);
-}
-
-
-/*********************************************************************
- *           _mbsnbcpy  (CRTDLL.209)
- */
-unsigned char * CDECL CRTDLL__mbsnbcpy( unsigned char *str1, const unsigned char *str2, size_t n )
-{
-  dprintf2(("CRTDLL: _mbsnbcpy\n"));
-        unsigned char *s1 = (unsigned char *)str1;
-        unsigned char *s2 = (unsigned char *)str2;
-
-        unsigned short *short_s1, *short_s2;
-
-        if (n == 0)
-                return 0;
-        do {
-                
-                if (*s2 == 0)
-                        break;  
-
-                if (  !CRTDLL__ismbblead(*s2) ) {
-
-                        *s1 = *s2;
-                        s1 += 1;
-                        s2 += 1;
-                        n--;
-                }
-                else {
-                        short_s1 = (unsigned short *)s1;
-                        short_s2 = (unsigned short *)s2;
-                        *short_s1 = *short_s2;
-                        s1 += 2;
-                        s2 += 2;
-                        n-=2;
-                }
-        } while (n > 0);
-        return str1;
-}
-
-
-/*********************************************************************
- *           _mbsnbicmp (CRTDLL.210)
- */
-int CDECL CRTDLL__mbsnbicmp( const unsigned char *s1, const unsigned char *s2, size_t n )
-{
-  dprintf2(("CRTDLL: _mbsnbicmp\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;
-}
-
-
-/*********************************************************************
- *           _mbsnbset (CRTDLL.211)
- */
-unsigned char * CDECL CRTDLL__mbsnbset( unsigned char *src, unsigned int val, size_t count )
-{
-  dprintf2(("CRTDLL: _mbsnbset\n"));
-        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;
-}
-
-
-/*********************************************************************
- *           _mbsncat (CRTDLL.212)
- */
-unsigned char * CDECL CRTDLL__mbsncat( unsigned char *dst, const unsigned char *src, size_t n )
-{
-  dprintf2(("CRTDLL: _mbsncat\n"));
-        char *d = (char *)dst; 
-        char *s = (char *)src;  
-        if (n != 0) {
-                d = (char*)dst + strlen((char*)dst); // get the end of string 
-                d += _mbclen2(*d); // move 1 or 2 up
-
-                do {
-                        if ((*d++ = *s++) == 0)
-                        {
-                                while (--n != 0)
-                                        *d++ = 0;
-                                break;
-                        }
-                        if (!CRTDLL__ismbblead(*s) )
-                                n--;
-                } while (n > 0);
-        }
-        return dst;
-}
-
-
-/*********************************************************************
- *           _mbsnccnt (CRTDLL.213)
- */
-size_t CDECL CRTDLL__mbsnccnt( const unsigned char *str, size_t n )
-{
-  dprintf2(("CRTDLL: _mbsnccnt\n"));
-        unsigned char *s = (unsigned char *)str;
-        size_t cnt = 0;
-        while(*s != 0 && n > 0) {
-                if (CRTDLL__ismbblead(*s) ) 
-                        s++;
-                else
-                        n--;
-                s++;
-                cnt++;
-        }
-        
-        return cnt;
-}
-
-
-/*********************************************************************
- *           _mbsncmp (CRTDLL.214)
- */
-int CDECL CRTDLL__mbsncmp( const unsigned char *str1, const unsigned char *str2, size_t n )
-{
-  dprintf2(("CRTDLL: _mbsncmp\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 = CRTDLL__ismbblead(*s1);
-                l2 = CRTDLL__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;
-}
-
-
-/*********************************************************************
- *           _mbsncpy (CRTDLL.215)
- */
-unsigned char * CDECL CRTDLL__mbsncpy( unsigned char *str1, const unsigned char *str2, size_t n )
-{
-  dprintf2(("CRTDLL: _mbsncpy\n"));
-        unsigned char *s1 = (unsigned char *)str1;
-        unsigned char *s2 = (unsigned char *)str2;
-
-        unsigned short *short_s1, *short_s2;
-
-        if (n == 0)
-                return 0;
-        do {
-                
-                if (*s2 == 0)
-                        break;  
-
-                if (  !CRTDLL__ismbblead(*s2) ) {
-
-                        *s1 = *s2;
-                        s1 += 1;
-                        s2 += 1;
-                        n--;
-                }
-                else {
-                        short_s1 = (unsigned short *)s1;
-                        short_s2 = (unsigned short *)s2;
-                        *short_s1 = *short_s2;
-                        s1 += 2;
-                        s2 += 2;
-                        n--;
-                }
-        } while (n > 0);
-        return str1;
-}
-
-
-/*********************************************************************
- *           _mbsnextc (CRTDLL.216)
- */
-unsigned int CDECL CRTDLL__mbsnextc( const unsigned char *src )
-{
-  dprintf2(("CRTDLL: _mbsnextc\n"));
-        unsigned char *char_src = (unsigned char *)src;
-        unsigned short *short_src = (unsigned short *)src;
-
-        if ( src == NULL )
-                return 0;
-
-        if ( !CRTDLL__ismbblead(*src) )
-                return *char_src;
-        else
-                return *short_src;
-        return 0;
-
-}
-
-
-/*********************************************************************
- *           _mbsnicmp (CRTDLL.217)
- */
-int CDECL CRTDLL__mbsnicmp( const unsigned char *s1, const unsigned char *s2, size_t n )
-{
-  dprintf2(("CRTDLL: _mbsnicmp\n"));
-  if (n == 0)
-    return 0;
-  do {
-    if (_mbbtoupper(*s1) != _mbbtoupper(*s2))
-      return _mbbtoupper(*(unsigned const char *)s1) - _mbbtoupper(*(unsigned const char *)s2);
-
-// Next 2 lines won't compile
-//    *s1 += _mbclen2(*s1);
-//    *s2 += _mbclen2(*s2);
-
-
-    if (*s1 == 0)
-      break;
-    if (!CRTDLL__ismbblead(*s1) )
-        n--;
-  } while (n > 0);
-  return 0;
-}
-
-
-/*********************************************************************
- *           _mbsninc (CRTDLL.218)
- */
-unsigned char * CDECL CRTDLL__mbsninc( const unsigned char *str, size_t n )
-{
-  dprintf2(("CRTDLL: _mbsninc\n"));
-        unsigned char *s = (unsigned char *)str;
-        while(*s != 0 && n > 0) {
-                if (!CRTDLL__ismbblead(*s) )
-                        n--;
-                s++;
-        }
-        
-        return s;
-}
-
-
-/*********************************************************************
- *           _mbsnset (CRTDLL.219)
- */
-unsigned char * CDECL CRTDLL__mbsnset( unsigned char *src, unsigned int val, size_t count )
-{
-  dprintf2(("CRTDLL: _mbsnset\n"));
-        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;
-
-}
-
-
-/*********************************************************************
- *           _mbspbrk   (CRTDLL.220)
- */
-unsigned char * CDECL CRTDLL__mbspbrk( const unsigned char *s1, const unsigned char *s2 )
-{
-  dprintf2(("CRTDLL: _mbspbrk\n"));
-  const char *scanp;
-  int c, sc;
-
-  while ((c = *s1++) != 0)
-  {
-    for (scanp = (char*)s2; (sc = *scanp++) != 0;)
-      if (sc == c)
-        return (unsigned char *)((char *)s1 - (char *)1);
-  }
-  return 0;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsrchr   (CRTDLL.221)
- */
-LPSTR CDECL CRTDLL__mbsrchr(LPSTR s,CHAR x)
-{
-  dprintf2(("CRTDLL: _mbsrchr\n"));
-        /* FIXME: handle multibyte strings */
-        return strrchr(s,x);
-}
-
-
-/*********************************************************************
- *           _mbsrev    (CRTDLL.222)
- */
-unsigned char * CDECL CRTDLL__mbsrev( unsigned char *s )
-{
-  dprintf2(("CRTDLL: _mbsrev\n"));
-        unsigned char  *e;
-        unsigned char  a;
-        e=s;
-        while (*e) {
-                if ( CRTDLL__ismbblead(*e) ) {
-                        a = *e;
-                        *e = *++e;
-                        if ( *e == 0 )
-                                break;
-                        *e = a;
-                } 
-                e++;
-        }
-        while (s<e) {
-                a=*s;
-                *s=*e;
-                *e=a;
-                s++;
-                e--;
-        }
-        
-
-        return s;
-}
-
-
-/*********************************************************************
- *           _mbsset    (CRTDLL.223)
- */
-unsigned char * CDECL CRTDLL__mbsset( unsigned char *src, unsigned int c )
-{
-  dprintf2(("CRTDLL: _mbsset\n"));
-        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;
-}
-
-
-/*********************************************************************
- *           _mbsspn   (CRTDLL.224)
- */
-size_t CDECL CRTDLL__mbsspn( const unsigned char *s1, const unsigned char *s2 )
-{
-  dprintf2(("CRTDLL: _mbsspn\n"));
-  const char *p = (char*)s1, *spanp;
-  char c, sc;
-
- cont:
-  c = *p++;
-  for (spanp = (char*)s2; (sc = *spanp++) != 0;)
-    if (sc == c)
-      goto cont;
-  return (size_t)(p - 1) - (size_t)s1;
-}
-
-
-/*********************************************************************
- *           _mbsspnp   (CRTDLL.225)
- */
-unsigned char * CDECL CRTDLL__mbsspnp( const unsigned char *s1, const unsigned char *s2 )
-{
-  dprintf2(("CRTDLL: _mbsspnp\n"));
-  const char *p = (char*)s1, *spanp;
-  char c, sc;
-
- cont:
-  c = *p++;
-  for (spanp = (char*)s2; (sc = *spanp++) != 0;)
-    if (sc == c)
-      goto cont;
-  return (unsigned char*)p;
-}
-
-
-/*********************************************************************
- *           _mbsstr    (CRTDLL.226)
- */
-unsigned char * CDECL CRTDLL__mbsstr( const unsigned char *s1, const unsigned char *s2 )
-{
-  dprintf2(("CRTDLL: _mbsstr\n"));
-  return (unsigned char*)strstr((const char*)s1,(const char*)s2);
-}
-
-
-/*********************************************************************
- *           _mbstok    (CRTDLL.227)
- */
-unsigned char * CDECL CRTDLL__mbstok( unsigned char *s, const unsigned char *delim )
-{
-  dprintf2(("CRTDLL: _mbstok\n"));
-  const char *spanp;
-  int c, sc;
-  char *tok;
-  static char *last;
-
-
-  if (s == NULL && (s = (unsigned char*)last) == NULL)
-    return (NULL);
-
-  /*
-   * Skip (span) leading delimiters (s += strspn(s, delim), sort of).
-   */
- cont:
-  c = *s;
-  s = (unsigned char*)CRTDLL__mbsinc((LPCSTR)s);
-
-  for (spanp = (const char*)delim; (sc = *spanp) != 0; spanp = CRTDLL__mbsinc(spanp)) {
-    if (c == sc)
-      goto cont;
-  }
-
-  if (c == 0) {                 /* no non-delimiter characters */
-    last = NULL;
-    return (NULL);
-  }
-  tok = (char*)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 = (unsigned char*)CRTDLL__mbsinc((LPCSTR)s);
-    spanp = (const char*)delim;
-    do {
-      if ((sc = *spanp) == c) {
-        if (c == 0)
-          s = NULL;
-        else
-          s[-1] = 0;
-        last = (char*)s;
-        return ((unsigned char*)tok);
-      }
-      spanp = CRTDLL__mbsinc(spanp);
-    } while (sc != 0);
-  }
-  /* NOTREACHED */
-}
-
-
-/*********************************************************************
- *           _mbstrlen   (CRTDLL.228)
- */
-size_t CDECL CRTDLL__mbstrlen(const char *string)
-{
-  dprintf2(("CRTDLL: _mbstrlen\n"));
-        char *s = (char *)string;
-        size_t i;
-        while ( *s != 0 ) {
-                if ( CRTDLL__ismbblead(*s) )
-                        s++;
-                s++;
-                i++;
-        }
-        return i;
-}
-
-
-/*********************************************************************
- *           _mbsupr    (CRTDLL.229)
- */
-unsigned char * CDECL CRTDLL__mbsupr( unsigned char *x )
-{
-  dprintf2(("CRTDLL: _mbsupr\n"));
-        unsigned char  *y=x;
-        while (*y) {
-                if (!CRTDLL__ismbblead(*y) )
-                        *y = toupper(*y);
-                else {
-                        *y=CRTDLL__mbctoupper(*(unsigned short *)y);
-                        y++;
-                }
-        }
-        return x;
-}
-
-
-/*********************************************************************
- *           CRTDLL__memccpy   (CRTDLL.230)
- */
-void * CDECL CRTDLL__memccpy(void *to, const void *from,int c,size_t count)
-{
-  dprintf2(("CRTDLL: _memccpy\n"));
-  memcpy(to,from,count);
-  return memchr(to,c,count);
-}
-
-
-/*********************************************************************
  *                  _mkdir           (CRTDLL.232)
  */
 INT CDECL CRTDLL__mkdir(LPCSTR newdir)
 {
-        dprintf2(("CRTDLL: mkdir\n"));
+        dprintf2(("CRTDLL: _mkdir\n"));
         if (!CreateDirectoryA(newdir,NULL))
                 return -1;
@@ -2981 +1342 @@
  *                  _mktemp        (CRTDLL.233)
  */
-char * CDECL CRTDLL__mktemp( char * _template )
+char * CDECL CRTDLL__mktemp( char *string )
 {
   dprintf2(("CRTDLL: _mktemp\n"));
-  static int count = 0;
-  char *cp, *dp;
-  int i, len, xcount, loopcnt;
-
- 
-
-  len = strlen (_template);
-  cp = _template + len;
-
-  xcount = 0;
-  while (xcount < 6 && cp > _template && cp[-1] == 'X')
-    xcount++, cp--;
-
-  if (xcount) {
-    dp = cp;
-    while (dp > _template && dp[-1] != '/' && dp[-1] != '\\' && dp[-1] != ':')
-      dp--;
-
-    /* Keep the first characters of the template, but turn the rest into
-       Xs.  */
-    while (cp > dp + 8 - xcount) {
-      *--cp = 'X';
-      xcount = (xcount >= 6) ? 6 : 1 + xcount;
+  int pid, n, saved_errno;
+  char *s;
+
+  pid = _getpid ();
+  s = strchr (string, 0);
+  n = 0;
+  while (s != string && s[-1] == 'X')
+    {
+      --s; ++n;
+      *s = (char)(pid % 10) + '0';
+      pid /= 10;
     }
-
-    /* If dots occur too early -- squash them.  */
-    while (dp < cp) {
-      if (*dp == '.') *dp = 'a';
-      dp++;
+  if (n < 2)
+    return NULL;
+  *s = 'a'; saved_errno = errno;
+  for (;;)
+    {
+      errno = 0;
+      if (_access (string, 0) != 0 && errno == ENOENT)
+        {
+          errno = saved_errno;
+          return string;
+        }
+      if (*s == 'z')
+        {
+          errno = saved_errno;
+          return NULL;
+        }
+      ++*s;
     }
-
-    /* Try to add ".tmp" to the filename.  Truncate unused Xs.  */
-    if (cp + xcount + 3 < _template + len)
-      strcpy (cp + xcount, ".tmp");
-    else
-      cp[xcount] = 0;
-
-    for (loopcnt = 0; loopcnt < (1 << (5 * xcount)); loopcnt++) {
-      int c = count++;
-      for (i = 0; i < xcount; i++, c >>= 5)
-        cp[i] = "abcdefghijklmnopqrstuvwxyz012345"[c & 0x1f];
-      if (CRTDLL__access(_template,0) == -1)
-        return _template;
-    }
-  }
-  /* Failure:  truncate the template and return NULL.  */
-  *_template = 0;
-  return 0;
 }
 
@@ -3042 +1385 @@
   dprintf2(("CRTDLL: _msize\n"));
   return (_msize(ptr));
-}
-
-
-/*********************************************************************
- *                  _nextafter        (CRTDLL.235)
- */
-double CDECL CRTDLL__nextafter( double x, double y )
-{
-  dprintf2(("CRTDLL: _nextafter\n"));
-  if ( x == y)
-        return x;
-  if ( CRTDLL__isnan(x) || CRTDLL__isnan(y) )
-        return x;
-
-  return x;
 }
 
@@ -3146 +1474 @@
 
 /*********************************************************************
- *                  _pclose     (CRTDLL.244)
- */
-INT CDECL CRTDLL__pclose( FILE *fp )
-{
-  dprintf(("CRTDLL: _pclose not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *                  _pipe     (CRTDLL.247)
- */
-INT CDECL CRTDLL__pipe( int *phandles, unsigned psize, int textmode )
-{
-  dprintf(("CRTDLL: _pipe not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *                  _popen    (CRTDLL.248)
- */
-FILE * CDECL CRTDLL__popen( const char *command, const char *mode )
-{
-  dprintf(("CRTDLL: _popen not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
  *                  _purecall     (CRTDLL.249)
  */
@@ -3210 +1505 @@
  *                  _putw     (CRTDLL.252)
  */
-INT CDECL CRTDLL__putw( int w, FILE *stream )
+INT CDECL CRTDLL__putw( int x, FILE *stream )
 {
   dprintf2(("CRTDLL: _putw\n"));
-  if (fwrite( &w, sizeof(w), 1, stream) < 1)
-    return(EOF);
-  return(0);
+  return (fwrite (&x, sizeof (x), 1, stream) == 1 ? x : EOF);
 }
 
@@ -3222 +1515 @@
  *                  _read     (CRTDLL.254)
  */
-INT CDECL CRTDLL__read(INT fd, LPVOID buf, UINT count)
-{
-  dprintf(("CRTDLL: _read not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+INT CDECL CRTDLL__read(int handle, void *buf, size_t nbyte)
+{
+  dprintf(("CRTDLL: _read\n"));
+/*
+  int n, *pflags, *pla;
+  size_t j, k;
+  char *dst, c;
+
+  if ((pflags = _fd_flags (handle)) == NULL
+      || (pla = _fd_lookahead (handle)) == NULL)
+    {
+      errno = EBADF;
+      return -1;
+    }
+
+  *pflags &= ~F_CRLF;
+  if (nbyte > 0 && (*pflags & F_EOF))
+    return 0;
+  dst = buf;
+  n = read_lookahead (handle, dst, nbyte, pla);
+  if (n == -1)
+    return -1;
+  if ((*pflags & O_TEXT) && !(*pflags & F_TERMIO) && n > 0)
+    {
+      if (!(*pflags & (F_PIPE|F_SOCKET|F_DEV)) && dst[n-1] == 0x1a &&
+          _eof (handle))
+        {
+          --n;
+          *pflags |= F_EOF;
+          if (n == 0)
+            return 0;
+        }
+      if (n == 1 && dst[0] == '\r')
+        {
+          int saved_errno = errno;
+          j = read_lookahead (handle, &c, 1, pla);
+          if (j == -1 && errno == EAGAIN)
+            {
+              *pla = dst[0];
+              return -1;
+            }
+          errno = saved_errno;                
+          if (j == 1 && c == '\n')            
+            {
+              dst[0] = '\n';
+              *pflags |= F_CRLF;
+            }
+          else
+            *pla = c;
+        }
+      else
+        {
+
+          if (_crlf (dst, n, &k))
+            {
+
+              *pla = '\r';
+              --n;
+            }
+          if (k != n)
+            *pflags |= F_CRLF;
+          n = k;
+        }
+    }
+  return n;
+*/
+  return 0;
 }
 
@@ -3273 +1628 @@
 
 /*********************************************************************
- *           _scalb      (CRTDLL.259)
- */
-double CDECL CRTDLL__scalb( double __x, long e )
-{
-  dprintf2(("CRTDLL: _scalb\n"));
-  double_t *x = (double_t *)&__x;
-        
-  x->exponent += e;
-
-  return __x;
-}
-
-
-/*********************************************************************
  *           CRTDLL__searchenv   (CRTDLL.260)
  */
-void CDECL CRTDLL__searchenv(const char *file,const char *var,char *path )
+void CDECL CRTDLL__searchenv(char *file, char *var,char *path )
 {
   dprintf2(("CRTDLL: _searchenv\n"));
-  char *env = CRTDLL_getenv(var);
-
-  char *x;
-  char *y;
-  char *FilePart;
-  x = strchr(env,'=');
-  if ( x != NULL ) {
-        *x = 0;
-        x++;
-  }
-  y = strchr(env,';');
-  while ( y != NULL ) {
-        *y = 0;
-        if ( SearchPathA(x,file,NULL,MAX_PATH,path,&FilePart) > 0 ) {
-                        return;
-        }
-        x = y+1;
-        y = strchr(env,';');
-  }
-  return;
+  _searchenv(file, var, path);
 }
 
@@ -3318 +1640 @@
  *           CRTDLL__seterrormode        (CRTDLL.261)
  */
-void CDECL CRTDLL__seterrormode(int i)
+void CDECL CRTDLL__seterrormode(int uMode)
 {
   dprintf2(("CRTDLL: _seterrormode\n"));
-  SetErrorMode(i);
+  SetErrorMode(uMode);
   return;
 }
@@ -3336 +1658 @@
 }
 
-/*********************************************************************
- *           CRTDLL__setjmp3     (CRTDLL.262)
- */
-int CDECL CRTDLL__setjmp3( jmp_buf env )
-{
-  //TODO:
-  dprintf2(("CRTDLL: _setjmp3 -> setjmp (NOT IDENTICAL!!!)\n"));
-  return(setjmp( env));
-}
-
 
 /*********************************************************************
@@ -3358 +1670 @@
 
 /*********************************************************************
- *                  _setsystime    (CRTDLL.264)
- */
-unsigned int CDECL CRTDLL__setsystime(struct tm *tp, unsigned int ms)
-{
-  dprintf(("CRTDLL: _setsystime not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
  *                  _sleep           (CRTDLL.265)
  */
 VOID CDECL CRTDLL__sleep(unsigned long timeout) 
 {
-  dprintf2(("CRTDLL__sleep for %ld milliseconds\n",timeout));
+  dprintf2(("_sleep for %ld milliseconds\n",timeout));
   Sleep((timeout)?timeout:1);
 }
@@ -3379 +1680 @@
 
 /*********************************************************************
- *           _sopen      (CRTDLL.268)
- */
-int CDECL CRTDLL__sopen( const char *s, int i1, int i2, ... )
-{
-  dprintf(("CRTDLL: _sopen not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
  *           CRTDLL__spawnl      (CRTDLL.269)
  */
-int CDECL CRTDLL__spawnl(int nMode, const char* szPath, const char* szArgv0,...)
+int CDECL CRTDLL__spawnl(int nMode, char* szPath, char* szArgv0, va_list arg)
 {
   dprintf2(("CRTDLL: _spawnl\n"));
-  char *szArg[100];
-  const char *a;
-  int i = 0;
-  va_list l = 0;
-  va_start(l,szArgv0);
-  do {
-        a = va_arg(l,const char *);
-        szArg[i++] = (char *)a;
-  } while ( a != NULL && i < 100 );
-  
-  return _spawnve(nMode, (char*)szPath, szArg, _environ);
+  return (_spawnl(nMode, szPath, szArgv0, arg));
 }
 
@@ -3412 +1692 @@
  *           CRTDLL__spawnle     (CRTDLL.270)
  */
-int CDECL CRTDLL__spawnle( int mode, char *path, char **szArgv0, ... )
-{
-  dprintf2(("CRTDLL: _spawnle not correct implemented.\n"));
-  char *szArg[100];
-  char *a;
-  char *ptr;
-  int i = 0;
-  va_list l = 0;
-  va_start(l,szArgv0);
-  do {
-        a = (char*)va_arg(l,const char *);
-        szArg[i++] = (char *)a;
-  } while ( a != NULL && i < 100 );
-
-
-// szArg0 is passed and not environment if there is only one parameter;
-
-  if ( i >=2 ) {
-        ptr = szArg[i-2];
-        szArg[i-2] = NULL;
-  }
-  else
-        ptr = NULL;
-
-  return _spawnve(mode, path, szArg, (char**)ptr);
+int CDECL CRTDLL__spawnle( int mode, char *path, char **szArgv0, va_list arg )
+{
+  dprintf2(("CRTDLL: _spawnle\n"));
+  return (_spawnle(mode, path, (char*)szArgv0, arg));
 }
 
@@ -3443 +1702 @@
  *           CRTDLL__spawnlp     (CRTDLL.271)
  */
-int CDECL CRTDLL__spawnlp(int nMode, const char* szPath, const char* szArgv0, ...)
+int CDECL CRTDLL__spawnlp(int nMode, char* szPath, char* szArgv0, va_list arg)
 {
   dprintf2(("CRTDLL: _spawnlp\n"));
-  char *szArg[100];
-  const char *a;
-  int i = 0;
-  va_list l = 0;
-  va_start(l,szArgv0);
-  do {
-        a = (const char *)va_arg(l,const char *);
-        szArg[i++] = (char *)a;
-  } while ( a != NULL && i < 100 );
-  return _spawnvpe(nMode, (char*)szPath,szArg, _environ);
+  return (_spawnlp(nMode, szPath, szArgv0, arg));
 }
 
@@ -3462 +1712 @@
  *           CRTDLL__spawnlpe    (CRTDLL.272)
  */
-int CDECL CRTDLL__spawnlpe( int mode, char *path, char *szArgv0, ... )
-{
-  dprintf2(("CRTDLL: _spawnlpe not correct implemented.\n"));
-  char *szArg[100];
-  const char *a;
-  char *ptr;
-  int i = 0;
-  va_list l = 0;
-  va_start(l,szArgv0);
-  do {
-        a = (char *)va_arg(l,const char *);
-        szArg[i++] = (char *)a;
-  } while ( a != NULL && i < 100 );
-
-
-// szArg0 is passed and not environment if there is only one parameter;
-
-  if ( i >=2 ) {
-        ptr = szArg[i-2];
-        szArg[i-2] = NULL;
-  }
-  else
-        ptr = NULL;
-
-  return _spawnvpe(mode, path, szArg, (char**)ptr);
+int CDECL CRTDLL__spawnlpe( int mode, char *path, char *szArgv0, va_list arg )
+{
+  dprintf2(("CRTDLL: _spawnlpe\n"));
+  return (_spawnlpe(mode, path, szArgv0, arg));
 }
 
@@ -3530 +1759 @@
 
 /*********************************************************************
+ *           _splitpath          (CRTDLL.277)
+ */
+void CDECL CRTDLL__splitpath( char *path, char *drive, char *dir, char *fname, char *ext )
+{
+  dprintf2(("CRTDLL: _splitpath"));
+  _splitpath( path, drive, dir, fname, ext);
+}
+
+
+/*********************************************************************
  *           CRTDLL__stat        (CRTDLL.278)
  */
@@ -3550 +1789 @@
 
 /*********************************************************************
- *           CRTDLL__strdate     (CRTDLL.281)
- */
-char * CDECL CRTDLL__strdate( char *buf )
-{
-  dprintf2(("CRTDLL: _strdate\n"));
-  return(_strdate(buf));
-}
-
-
-/*********************************************************************
- *           CRTDLL__strdec      (CRTDLL.282)
- */
-char * CDECL CRTDLL__strdec( const char *, const char *p ) 
-{
-  dprintf2(("CRTDLL: _strdec\n"));
-  return( (char *)(p-1) );
-}
-
-
-/*********************************************************************
- *           CRTDLL__strdup      (CRTDLL.283)
- */
-LPSTR CDECL CRTDLL__strdup(LPCSTR ptr)
-{
-  dprintf2(("CRTDLL: _strdup\n"));
-  return HEAP_strdupA(GetProcessHeap(),0,ptr);
-}
-
-
-/*********************************************************************
- *           _strerror           (CRTDLL.284)
- */
-char * CDECL CRTDLL__strerror(const char *s)
-{
-  dprintf(("CRTDLL: _strerror not implemented\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-//  return (_strerror(s));
-}
-
-
-/*********************************************************************
- *           CRTDLL__stricoll    (CRTDLL.286)
- */
-int CDECL CRTDLL__stricoll( const char *s1, const char *s2 )
-{
-  dprintf2(("CRTDLL: _stricoll\n"));
-  return stricmp(s1,s2);
-}
-
-
-/*********************************************************************
- *           CRTDLL__strinc      (CRTDLL.287)
- */
-char * CDECL CRTDLL__strinc( const char *p )
-{
-    dprintf2(("CRTDLL: _strinc\n"));
-    return( (char *)(p+1) );
-}
-
-
-/*********************************************************************
- *           CRTDLL__strncnt     (CRTDLL.289)
- */
-size_t CDECL CRTDLL__strncnt( const char *p, size_t l ) 
-{
-    dprintf2(("CRTDLL: _strncnt\n"));
-    size_t i;
-    i = strlen(p);
-    return( (i>l) ? l : i );
-}
-
-/*********************************************************************
- *           CRTDLL__strnextc    (CRTDLL.290)
- */
-unsigned int CDECL CRTDLL__strnextc( const char *p )
-{
-    dprintf2(("CRTDLL: _strnextc\n"));
-    return( (unsigned int)*p );
-}
-
-
-/*********************************************************************
- *           CRTDLL__strninc     (CRTDLL.292)
- */
-char * CDECL CRTDLL__strninc( const char *p, size_t l )
-{
-    dprintf2(("CRTDLL: _strninc\n"));
-    return( (char *)(p+l) );
-}
-
-
-/*********************************************************************
- *           CRTDLL__strnset     (CRTDLL.293)
- */
-char * CDECL CRTDLL__strnset(char* szToFill, int szFill, size_t sizeMaxFill)
-{
-  dprintf2(("CRTDLL: _strnset\n"));
-  char *t = szToFill;
-  int i = 0;
-  while( *szToFill != 0 && i < sizeMaxFill)
-  {
-        *szToFill = szFill;
-        szToFill++;
-        i++;
-  }
-  return t;
-}
-
-
-/*********************************************************************
- *           CRTDLL__strrev      (CRTDLL.294)
- */
-char * CDECL CRTDLL__strrev( char *s )
-{
-  dprintf2(("CRTDLL: _strrev\n"));
-  char  *e;
-  char   a;
-  e=s;
-  while (*e)
-        e++;
-  while (s<e) {
-        a=*s;
-        *s=*e;
-        *e=a;
-        s++;
-        e--;
-  }
-  return s;
-}
-
-
-/*********************************************************************
- *           CRTDLL__strset      (CRTDLL.295)
- */
-char * CDECL CRTDLL__strset(char* szToFill, int szFill)
-{
-  dprintf2(("CRTDLL: _strset\n"));
-  char *t = szToFill;
-  while( *szToFill != 0 )
-  {
-        *szToFill = szFill;
-        szToFill++;
-  }
-  return t;
-}
-
-
-/*********************************************************************
- *           CRTDLL__strspnp     (CRTDLL.296)
- */
-char * CDECL CRTDLL__strspnp( const char *p1, const char *p2 ) 
-{
-    dprintf2(("CRTDLL: _strspnp\n"));
-    return( (*(p1 += strspn(p1,p2))!='\0') ? (char*)p1 : NULL );
-}
-
-
-/*********************************************************************
- *           CRTDLL__strtime     (CRTDLL.297)
- */
-char * CDECL CRTDLL__strtime( char *buf )
-{
-  dprintf2(("CRTDLL: _strtime\n"));
-  return (_strtime(buf));
-}
-
-
-/*********************************************************************
  *           CRTDLL__swab        (CRTDLL.299)
  */
@@ -3769 +1839 @@
 
 /*********************************************************************
- *           _tzset      (CRTDLL.308)
- */
-void CDECL CRTDLL__tzset( void )
-{
-  dprintf(("CRTDLL: _tzset not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+ *           _ultoa              (CRTDLL.309)
+ */
+LPSTR  CDECL CRTDLL__ultoa(long x,LPSTR buf,INT radix)
+{
+  dprintf2(("CRTDLL: _ultoa\n"));
+  return _ultoa(x,buf,radix);
 }
 
@@ -3823 +1893 @@
 
 /*********************************************************************
- *           CRTDLL__unloaddll   (CRTDLL.313)
+ *           _unloaddll  (CRTDLL.313)
  */
 int CDECL CRTDLL__unloaddll(void *handle)
@@ -3833 +1903 @@
 
 /*********************************************************************
- *           CRTDLL__utime       (CRTDLL.314)
+ *           _utime              (CRTDLL.314)
  */
 int CDECL CRTDLL__utime( char *path, struct utimbuf * times )
@@ -3843 +1913 @@
 
 /*********************************************************************
- *           CRTDLL__vsnwprintf  (CRTDLL.316)
- */
-int CDECL CRTDLL__vsnwprintf( wchar_t *s1, size_t n, const wchar_t *s2, va_list arg )
-{
-  dprintf(("CRTDLL: _vsnwprintf not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__wcsdup      (CRTDLL.317)
- */
-LPWSTR CDECL CRTDLL__wcsdup( LPCWSTR str )
-{
-  dprintf2(("CRTDLL: _wcsdup\n"));
-  LPWSTR ret = NULL;
-  if (str)
-  {
-      int size = (wcslen((const wchar_t*)str) + 1) * sizeof(WCHAR);
-// FIXME      ret = CRTDLL_malloc( size );
-      if (ret) memcpy( ret, str, size );
-  }
-  return ret;
-}
-
-
-/*********************************************************************
- *           CRTDLL__wcsicoll    (CRTDLL.319)
- */
-int CDECL CRTDLL__wcsicoll( LPCWSTR str1, LPCWSTR str2 )
-{
-  dprintf2(("CRTDLL: _wcsicoll\n"));
-  return CRTDLL__wcsicmp( str1, str2 );
-}
-
-
-/*********************************************************************
- *           CRTDLL__wcsnset    (CRTDLL.322)
- */
-LPWSTR CDECL CRTDLL__wcsnset( LPWSTR str, WCHAR c, INT n )
-{
-    dprintf2(("CRTDLL: _wcsnset\n"));
-    LPWSTR ret = str;
-    while ((n-- > 0) && *str) *str++ = c;
-    return ret;
-}
-
-
-/*********************************************************************
- *           CRTDLL__wcsrev      (CRTDLL.323)
- */
-LPWSTR CDECL CRTDLL__wcsrev( LPWSTR str )
-{
-  dprintf2(("CRTDLL: _wcsrev\n"));
-  LPWSTR ret = str;
-  LPWSTR end = str + wcslen((const wchar_t*)str) - 1;
-  while (end > str)
-  {
-      WCHAR t = *end;
-      *end--  = *str;
-      *str++  = t;
-  }
-  return ret;
-}
-
-
-/*********************************************************************
- *           CRTDLL__wcsset    (CRTDLL.324)
- */
-LPWSTR CDECL CRTDLL__wcsset( LPWSTR str, WCHAR c )
-{
-    dprintf2(("CRTDLL: _wcsset\n"));
-    LPWSTR ret = str;
-    while (*str) *str++ = c;
-    return ret;
+ *      _vsnprintf                              (CRTDLL.315)
+ */
+int CDECL CRTDLL__vsnprintf( char *s, size_t bufsize, const char *format, va_list arg )
+{
+  dprintf2(("CRTDLL: _vsnprintf(%08xh, %08xh, %08xh)\n",
+           s,
+           bufsize,
+           format));
+
+  return wvsnprintfA(s, bufsize, format, arg);
 }
 
@@ -3973 +1977 @@
 
 /*********************************************************************
- *                  isleadbyte  (CRTDLL.335)
+ *                  abort       (CRTDLL.335)
  */
 void CDECL CRTDLL_abort( void )
@@ -3983 +1987 @@
 
 /*********************************************************************
- *                  acos        (CRTDLL.336)
+ *                  abs         (CRTDLL.336)
+ */
+double CDECL CRTDLL_abs(double d)
+{
+  dprintf2(("CRTDLL: abs(%f)\n",
+           d));
+
+  return (abs(d));
+}
+
+
+/*********************************************************************
+ *                  acos        (CRTDLL.337)
  */
 double CDECL CRTDLL_acos( double x )
@@ -4013 +2029 @@
 
 /*********************************************************************
+ *                  atan        (CRTDLL.340)
+ */
+double CDECL CRTDLL_atan(double d)
+{
+  dprintf2(("CRTDLL: atan(%f)\n",
+           d));
+
+  return (atan(d));
+}
+
+
+/*********************************************************************
  *                  atan2       (CRTDLL.341)
  */
@@ -4025 +2053 @@
  *                  atexit      (CRTDLL.342)
  */
-int CDECL CRTDLL_atexit( register void ( *func )( void ) )
-{
-  dprintf(("CRTDLL: atexit not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL_atexit(void (*func)(void))
+{
+  dprintf(("CRTDLL: atexit\n"));
+  if (_atexit_n >= sizeof (_atexit_v) / sizeof (_atexit_v[0]))
+    return -1;
+  _atexit_v[_atexit_n++] = func;
+  return 0;
 }
 
@@ -4042 +2072 @@
 }
 
+
+/*********************************************************************
+ *                  atoi        (CRTDLL.344)
+ */
+int CDECL CRTDLL_atoi(LPSTR str)
+{
+  dprintf2(("CRTDLL: atoi(%s)\n",
+           str));
+
+  return (atoi(str));
+}
+
+
+/*********************************************************************
+ *                  atol        (CRTDLL.345)
+ */
+long CDECL CRTDLL_atol(LPSTR str)
+{
+  dprintf2(("CRTDLL: atol(%s)\n",
+           str));
+
+  return (atol(str));
+}
+
+
+/*********************************************************************
+ *                  bsearch     (CRTDLL.346)
+ */
+void *CDECL CRTDLL_bsearch (const void *key, const void *base, size_t num, size_t width,
+                     int (* CDECL compare)(const void *key, const void *element))
+{
+  int left, right, median, sign;
+  const void *element;
+  
+  if (width == 0)
+    return 0;
+  left = 1; right = num;
+  while (left <= right)
+    {
+      median = (left + right) / 2;
+      element = (void *)((char *)base + (median-1)*width);
+      sign = compare (key, element);
+      if (sign == 0)
+        return (void *)element;
+      if (sign > 0)
+        left = median + 1;
+      else
+        right = median - 1;
+    }
+  return 0;
+}
+
+
 /*********************************************************************
  *                  calloc      (CRTDLL.347)
@@ -4053 +2136 @@
 
 /*********************************************************************
+ *                  ceil        (CRTDLL.348)
+ */
+double CDECL CRTDLL_ceil(double d)
+{
+  dprintf2(("CRTDLL: ceil(%f)\n",
+           d));
+  return (ceil(d));
+}
+
+
+/*********************************************************************
  *                  clearerr    (CRTDLL.349)
  */
@@ -4073 +2167 @@
 
 /*********************************************************************
+ *                  cos         (CRTDLL.351)
+ */
+double CDECL CRTDLL_cos(double d)
+{
+  dprintf2(("CRTDLL: cos(%f)\n",
+           d));
+
+  return (cos(d));
+}
+
+
+/*********************************************************************
  *                  cosh        (CRTDLL.352)
  */
@@ -4133 +2239 @@
 
 /*********************************************************************
+ *                  fabs        (CRTDLL.358)
+ */
+double CDECL CRTDLL_fabs(double d)
+{
+  dprintf2(("CRTDLL: fabs(%f)\n",
+           d));
+
+  return (fabs(d));
+}
+
+
+/*********************************************************************
  *                  fclose      (CRTDLL.359)
  */
@@ -4203 +2321 @@
 
 /*********************************************************************
- *                  fgetwc      (CRTDLL.366)
- */
-wint_t CDECL CRTDLL_fgetwc( FILE *f )
-{
-  dprintf2(("CRTDLL: fgetwc\n"));
-  return (fgetwc(f));
+ *                  floor               (CRTDLL.367)
+ */
+double CDECL CRTDLL_floor(double d)
+{
+  dprintf2(("CRTDLL: floor(%f)\n",
+           d));
+
+  return (floor(d));
 }
 
@@ -4235 +2355 @@
  *                  fprintf       (CRTDLL.370)
  */
-INT CDECL CRTDLL_fprintf( CRTDLL_FILE *file, LPSTR format, ... )
+INT CDECL CRTDLL_fprintf( FILE *file, LPSTR format, va_list arg )
 {
     dprintf2(("CRTDLL: fprintf\n"));
-    va_list valist;
-    INT res;
-
-    va_start( valist, format );
-    res = CRTDLL_vfprintf( file, format, valist );
-    va_end( valist );
-    return res;
+    return (fprintf(file, format, arg));
 }
 
@@ -4268 +2382 @@
 
 
-/*********************************************************************
- *                  fputwc  (CRTDLL.373)
- */
-wint_t CDECL CRTDLL_fputwc( wint_t wc, FILE *strm )
-{
-  dprintf2(("CRTDLL: fputwc\n"));
-  return (fputwc(wc, strm));
-}
-
 
 /*********************************************************************
@@ -4321 +2426 @@
  *                  fscanf        (CRTDLL.378)
  */
-int CDECL CRTDLL_fscanf( FILE*fp, const char *format, ... )
+int CDECL CRTDLL_fscanf( FILE*fp, const char *format, va_list arg )
 {
   dprintf2(("CRTDLL: fscanf\n"));
-#if 0
-    va_list valist;
-    INT res;
-
-    va_start( valist, format );
-#ifdef HAVE_VFSCANF
-    res = vfscanf( xlat_file_ptr(stream), format, valist );
-#endif
-    va_end( valist );
-    return res;
-#endif
-    dprintf2(("broken\n"));
-    return 0;
+  return (fscanf(fp, format, arg));
 }
 
@@ -4346 +2439 @@
 {
   dprintf2(("CRTDLL: fseek\n"));
-  dprintf2(("file %p to 0x%08lx pos %s\n",
-        file,offset,(whence==SEEK_SET)?"SEEK_SET":
-        (whence==SEEK_CUR)?"SEEK_CUR":
-        (whence==SEEK_END)?"SEEK_END":"UNKNOWN"));
-// FIXME if (SetFilePointer( file->handle, offset, NULL, whence ) != 0xffffffff)
-// FIXME     return 0;
-  dprintf2((" failed!\n"));
-  return -1;
+  return (fseek(file, offset, whence));
 }
 
@@ -4378 +2464 @@
 
 /*********************************************************************
- *                  fwprintf      (CRTDLL.382)
- */
-int CDECL CRTDLL_fwprintf( FILE *iop, const wchar_t *fmt, ... )
-{
-  dprintf(("CRTDLL: fwprintf not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
  *                  fwrite     (CRTDLL.383)
  */
-DWORD CDECL CRTDLL_fwrite( LPVOID ptr, INT size, INT nmemb, CRTDLL_FILE *file )
-{
-    DWORD ret;
-
+DWORD CDECL CRTDLL_fwrite( LPVOID ptr, INT size, INT nmemb, FILE *file )
+{
     dprintf2(("CRTDLL: fwrite\n"));
-    if (!WriteFile( file->handle, ptr, size * nmemb, &ret, NULL ))
-        dprintf2((" failed!\n"));
-
-    return ret / size;
-}
-
-
-/*********************************************************************
- *                  fwscanf       (CRTDLL.384)
- */
-int CDECL CRTDLL_fwscanf( FILE *strm, const wchar_t *format, ... )
-{
-  dprintf(("CRTDLL: fwscanf not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+    return (fwrite( ptr, size, nmemb, file));
 }
 
@@ -4465 +2524 @@
 
 /*********************************************************************
- *                  is_wctype    (CRTDLL.390)
- */
-INT CDECL CRTDLL_is_wctype(wint_t wc, wctype_t wctypeFlags)
-{
-        dprintf2(("CRTDLL: is_wctype\n"));
-        return ((CRTDLL_pwctype_dll[(unsigned char)(wc & 0xFF)]&wctypeFlags) == wctypeFlags );
-}
-
-
-/*********************************************************************
  *                  isalnum    (CRTDLL.391)
  */
@@ -4485 +2534 @@
 
 /*********************************************************************
+ *                  isalpha    (CRTDLL.392)
+ */
+int CDECL CRTDLL_isalpha(int i)
+{
+  dprintf2(("CRTDLL: isalpha(%08xh)\n",
+           i));
+
+  return (isalpha(i));
+}
+
+
+/*********************************************************************
  *                  iscntrl    (CRTDLL.393)
  */
@@ -4495 +2556 @@
 
 /*********************************************************************
+ *                  isdigit    (CRTDLL.394)
+ */
+int CDECL CRTDLL_isdigit(int i)
+{
+  dprintf2(("CRTDLL: isdigit(%08xh)\n",
+           i));
+
+  return (isdigit(i));
+}
+
+
+/*********************************************************************
  *                  isgraph    (CRTDLL.395)
  */
@@ -4505 +2578 @@
 
 /*********************************************************************
- *                  isleadbyte  (CRTDLL.396)
- */
-int CDECL CRTDLL_isleadbyte(int i)
-{
-  dprintf(("CRTDLL: isleadbyte(%08xh) not implemented.\n", i));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+ *                  islower    (CRTDLL.397)
+ */
+int CDECL CRTDLL_islower(int i)
+{
+  dprintf2(("CRTDLL: islower(%08xh)\n",
+           i));
+
+  return (islower(i));
+}
+
+
+/*********************************************************************
+ *                  isprint    (CRTDLL.398)
+ */
+int CDECL CRTDLL_isprint(int i)
+{
+  dprintf2(("CRTDLL: isprint(%08xh)\n",
+           i));
+
+  return (isprint(i));
 }
 
@@ -4526 +2612 @@
 
 /*********************************************************************
- *                  iswalnum    (CRTDLL.402)
- */
-int CDECL CRTDLL_iswalnum(wint_t i)
-{
-  dprintf2(("CRTDLL: iswalnum(%08xh)\n", i));
-  return (iswalnum(i));
-}
-
-
-/*********************************************************************
- *                  iswascii    (CRTDLL.404)
- */
-int CDECL CRTDLL_iswascii(wint_t c)
-{
-  dprintf2(("CRTDLL: iswascii\n", c));
-  return  (!((c)&(~0x7f)));
-}
-
-
-/*********************************************************************
- *                  iswcntrl    (CRTDLL.405)
- */
-int CDECL CRTDLL_iswcntrl(wint_t i)
-{
-  dprintf2(("CRTDLL: iswcntrl(%08xh)\n", i));
-  return (iswcntrl(i));
-}
-
-
-/*********************************************************************
- *                  iswdigit    (CRTDLL.407)
- */
-int CDECL CRTDLL_iswdigit(wint_t i)
-{
-  dprintf2(("CRTDLL: iswdigit(%08xh)\n", i));
-  return (iswdigit(i));
-}
-
-
-/*********************************************************************
- *                  iswgraph    (CRTDLL.408)
- */
-int CDECL CRTDLL_iswgraph(wint_t i)
-{
-  dprintf2(("CRTDLL: iswgraph(%08xh)\n", i));
-  return (iswgraph(i));
-}
-
-
-/*********************************************************************
- *                  iswlower    (CRTDLL.409)
- */
-int CDECL CRTDLL_iswlower(wint_t i)
-{
-  dprintf2(("CRTDLL: iswlower(%08xh)\n", i));
-  return (iswlower(i));
-}
-
-
-/*********************************************************************
- *                  iswprint    (CRTDLL.410)
- */
-int CDECL CRTDLL_iswprint(wint_t i)
-{
-  dprintf2(("CRTDLL: iswprint(%08xh)\n", i));
-  return (iswprint(i));
-}
-
-
-/*********************************************************************
- *                  iswpunct    (CRTDLL.411)
- */
-int CDECL CRTDLL_iswpunct(wint_t i)
-{
-  dprintf2(("CRTDLL: iswpunct(%08xh)\n", i));
-  return (iswpunct(i));
-}
-
-
-/*********************************************************************
- *                  iswspace    (CRTDLL.412)
- */
-int CDECL CRTDLL_iswspace(wint_t i)
-{
-  dprintf2(("CRTDLL: iswspace(%08xh)\n", i));
-  return (iswspace(i));
-}
-
-
-/*********************************************************************
- *                  iswupper    (CRTDLL.413)
- */
-int CDECL CRTDLL_iswupper(wint_t i)
-{
-  dprintf2(("CRTDLL: iswupper(%08xh)\n", i));
-  return (iswupper(i));
-}
-
-
-/*********************************************************************
- *                  iswxdigit    (CRTDLL.414)
- */
-int CDECL CRTDLL_iswxdigit(wint_t i)
-{
-  dprintf2(("CRTDLL: iswxdigit(%08xh)\n", i));
-  return (iswxdigit(i));
+ *                  isspace    (CRTDLL.400)
+ */
+int CDECL CRTDLL_isspace(int i)
+{
+  dprintf2(("CRTDLL: isspace(%08xh)\n",
+           i));
+
+  return (isspace(i));
+}
+
+
+/*********************************************************************
+ *                  isupper       (CRTDLL.401)
+ */
+int CDECL CRTDLL_isupper(int i)
+{
+  dprintf2(("CRTDLL: isupper(%08xh)\n",
+           i));
+
+  return (isupper(i));
+}
+
+
+/*********************************************************************
+ *                  isxdigit    (CRTDLL.415)
+ */
+int CDECL CRTDLL_isxdigit(int i)
+{
+  dprintf2(("CRTDLL: isxdigit(%08xh)\n", i));
+  return (isxdigit(i));
+}
+
+
+/*********************************************************************
+ *                  labs        (CRTDLL.416)
+ */
+long int CDECL CRTDLL_labs( long int j )
+{
+  dprintf2(("CRTDLL: labs(%08xh)\n", j));
+  return (labs(j));
 }
 
@@ -4676 +2696 @@
 
 /*********************************************************************
+ *                  log         (CRTDLL.421)
+ */
+double CDECL CRTDLL_log( double x )
+{
+  dprintf2(("CRTDLL: log(%08xh)\n", x));
+  return (log(x));
+}
+
+
+/*********************************************************************
  *                  log10       (CRTDLL.422)
  */
@@ -4706 +2736 @@
 
 /*********************************************************************
- *                  mblen        (CRTDLL.425)
- */
-INT CDECL CRTDLL_mblen( const char *s, size_t n )
-{
-      dprintf2(("CRTDLL: mblen\n"));
-      return (mblen(s, n));
-}
-
-
-/*********************************************************************
- *           CRTDLL_mbtowc    (CRTDLL.427)
- */
-INT CDECL CRTDLL_mbtowc( WCHAR *dst, LPCSTR str, INT n )
-{
-    dprintf2(("CRTDLL: _mbtowc\n"));
-    wchar_t res;
-    int ret = mbtowc( &res, str, n );
-    if (dst) *dst = (WCHAR)res;
-    return ret;
-}
-
-
-/*********************************************************************
  *                  mktime   (CRTDLL.433)
  */
@@ -4759 +2766 @@
 
 /*********************************************************************
+ *                  pow      (CRTDLL.436)
+ */
+double CDECL CRTDLL_pow( double x, double y )   
+{
+    dprintf2(("CRTDLL: pow(%08xh, %08xh)\n",x, y));
+    return pow( x, y );
+}
+
+
+/*********************************************************************
  *                  printf   (CRTDLL.437)
  */
-int CDECL CRTDLL_printf( const char *format, ... )
+int CDECL CRTDLL_printf( const char *format, va_list arg )
 {
   dprintf2(("CRTDLL: printf\n"));
-  va_list arg;
-  int done;
-
-  va_start (arg, format);
-  done = vprintf (format, arg);
-  va_end (arg);
-  return done;
+  return (printf(format, arg));
 }
 
@@ -4805 +2816 @@
 
 /*********************************************************************
+ *                  qsort        (CRTDLL.441)
+ */
+void CDECL CRTDLL_qsort (void *base, size_t num, size_t width,
+                         int (*CDECL compare)(const void *x1, const void *x2))
+{
+  dprintf2(("CRTDLL: qsort\n"));
+  if (width > 0 && num > 1 && base != 0)
+    qsort1 ((char *)base, (char *)base+(num-1)*width, width, compare);
+}
+
+
+/*********************************************************************
  *                  raise        (CRTDLL.442)
  */
@@ -4837 +2860 @@
  *                  remove           (CRTDLL.445)
  */
-INT CDECL CRTDLL_remove(LPCSTR file)
-{
-        dprintf2(("CRTDLL: remove\n"));
-        if (!DeleteFileA(file))
-                return -1;
-        return 0;
+INT CDECL CRTDLL_remove(const char* file)
+{
+  dprintf2(("CRTDLL: remove\n"));
+  return (remove(file));
 }
 
@@ -4867 +2888 @@
 
 /*********************************************************************
- *                  scanf       (CRTDLL.448)
- */
-int CDECL CRTDLL_scanf( const char *format, ... )
-{
-  dprintf(("CRTDLL: scanf not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-        
+ *      scanf                                   (CRTDLL.448)
+ */
+int CDECL CRTDLL_scanf( const char *format, va_list arg )
+{
+  dprintf(("CRTDLL: scanf\n"));
+  return (scanf(format, arg));
+}
+
+
 /*********************************************************************
  *                  setbuf      (CRTDLL.449)
@@ -4910 +2930 @@
  *                  signal       (CRTDLL.452)
  */
-void CDECL CRTDLL_signal( int sig, void (*func)(int)) 
-{
-    dprintf(("CRTDLL: signal not implemented.\n"));
-    SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+_SigFunc CDECL CRTDLL_signal(int sig, _SigFunc func)
+{
+  dprintf(("CRTDLL: signal\n"));
+  return (signal(sig, func));
+}
+
+
+/*********************************************************************
+ *                  sin          (CRTDLL.453)
+ */
+double CDECL CRTDLL_sin( double x )
+{
+  dprintf2(("CRTDLL: sin(%08xh)\n", x));
+  return (sin(x));
 }
 
@@ -4928 +2958 @@
 
 /*********************************************************************
+ *                  sprintf      (CRTDLL.455)
+ */
+LPSTR CDECL CRTDLL_sprintf(LPSTR lpstrBuffer,
+                       LPSTR lpstrFormat,
+                       ...)
+{
+  va_list argptr;                          /* -> variable argument list */
+
+  dprintf2(("CRTDLL: sprintf(%08xh,%s)\n",
+           lpstrBuffer,
+           lpstrFormat));
+
+  va_start(argptr,
+           lpstrFormat);                   /* get pointer to argument list */
+  vsprintf(lpstrBuffer,
+           lpstrFormat,
+           argptr);
+  va_end(argptr);                          /* done with variable arguments */
+
+  return (lpstrBuffer);
+}
+
+
+/*********************************************************************
+ *                  sqrt         (CRTDLL.456)
+ */
+double CDECL CRTDLL_sqrt( double x )
+{
+  dprintf2(("CRTDLL: sqrt(%08xh)\n", x));
+  return (sqrt(x));
+}
+
+
+/*********************************************************************
  *                  srand        (CRTDLL.457)
  */
@@ -4938 +3002 @@
 
 /*********************************************************************
- *                  strcoll        (CRTDLL.462)
- */
-int CDECL CRTDLL_strcoll( const char *s1, const char *s2 )
-{
-  dprintf2(("CRTDLL: strcoll\n"));
-  return strcoll(s1, s2);
-}
-
-
-/*********************************************************************
- *                  strerror        (CRTDLL.465)
- */
-char * CDECL CRTDLL_strerror( int errnum )
-{
-  dprintf2(("CRTDLL: strerror\n"));
-  return strerror(errnum);
-}
-
-
-/*********************************************************************
- *                  strftime        (CRTDLL.466)
- */
-size_t CDECL CRTDLL_strftime( char *s, size_t maxsiz, const char *fmt, const struct tm *tp )
-{
-  dprintf2(("CRTDLL: strftime\n"));
-  return strftime(s, maxsiz, fmt, tp);
-}
- 
-
-/*********************************************************************
- *                  strtod        (CRTDLL.475)
- */
-double CDECL CRTDLL_strtod( const char *nptr, char **endptr )
-{
-  dprintf2(("CRTDLL: strtod\n"));
-  return strtod(nptr, endptr);
-}
-
-
-/*********************************************************************
- *                  strtok        (CRTDLL.476)
- */
-char * CDECL CRTDLL_strtok( char *s1, const char *s2 )
-{
-  dprintf2(("CRTDLL: strtok\n"));
-  return strtok(s1, s2);
-}
-
-
-/*********************************************************************
- *                  strtol        (CRTDLL.477)
- */
-long int CDECL CRTDLL_strtol( const char *nptr, char **endptr, int base )
-{
-  dprintf2(("CRTDLL: strtol\n"));
-  return strtol(nptr, endptr, base);
-}
-
-
-/*********************************************************************
- *                  strtoul        (CRTDLL.478)
- */
-unsigned long CDECL CRTDLL_strtoul( const char *nptr, char **endptr, int base )
-{
-  dprintf2(("CRTDLL: strtoul\n"));
-  return strtoul(nptr, endptr, base);
-}
-
-
-/*********************************************************************
- *                  strxfrm        (CRTDLL.479)
- */
-size_t CDECL CRTDLL_strxfrm( char *s1, const char *s2, size_t n )
-{
-  dprintf2(("CRTDLL: strxfrm\n"));
-  return strxfrm(s1, s2, n);
-}
-
-
-/*********************************************************************
- *                  swscanf           (CRTDLL.481)
- */
-int CDECL CRTDLL_swscanf( const wchar_t *s1, const wchar_t *s2, ... )
-{
-  dprintf(("CRTDLL: swscanf not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+ *      sscanf                                  (CRTDLL.458)
+ */
+int CDECL CRTDLL_sscanf( const char *s, const char *format, va_list arg )
+{
+  dprintf(("CRTDLL: sscanf\n"));
+  return (sscanf(s, format, arg));
 }
 
@@ -5039 +3022 @@
 
 /*********************************************************************
- *                  tanh           (CRTDLL.485)
+ *                  tan           (CRTDLL.483)
+ */
+double CDECL CRTDLL_tan(double d)
+{
+  dprintf2(("CRTDLL: tan(%f)\n",
+           d));
+
+  return (tan(d));
+}
+
+
+/*********************************************************************
+ *                  tanh           (CRTDLL.484)
  */
 double CDECL CRTDLL_tanh( double x )
@@ -5080 +3075 @@
 
 /*********************************************************************
- *                  ungetc           (CRTDLL.492)
- */
-INT CDECL CRTDLL_ungetc(int c, FILE *f)
-{
-  dprintf(("CRTDLL: ungetc not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *                  ungetwc           (CRTDLL.493)
- */
-wint_t CDECL CRTDLL_ungetwc( wint_t wc, FILE *strm )
-{
-  dprintf2(("CRTDLL: ungetwc\n"));
-  return (ungetwc(wc, strm));
-}
+ *                  tolower       (CRTDLL.488)
+ */
+int CDECL CRTDLL_tolower(int c)
+{
+  dprintf2(("CRTDLL: tolower(%c)\n",
+           c));
+
+  return (tolower(c));
+}
+
+
+/*********************************************************************
+ *                  toupper       (CRTDLL.489)
+ */
+int CDECL CRTDLL_toupper(int c)
+{
+  dprintf2(("CRTDLL: toupper(%c)\n",
+           c));
+
+  return (toupper(c));
+}
+
 
 /*********************************************************************
  *                  vfprintf       (CRTDLL.494)
  */
-INT CDECL CRTDLL_vfprintf( CRTDLL_FILE *file, LPSTR format, va_list args )
-{
-    dprintf2(("CRTDLL: vprintf\n"));
-    char buffer[2048];  /* FIXME... */
-    vsprintf( buffer, format, args );
-    return CRTDLL_fwrite( buffer, 1, strlen(buffer), file );
-}
-
-
-/*********************************************************************
- *                  vfwprintf     (CRTDLL.495)
- */
-int CDECL CRTDLL_vfwprintf( FILE *F, const wchar_t *s, va_list arg )
-{
-  dprintf(("CRTDLL: vfwprintf not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+INT CDECL CRTDLL_vfprintf( FILE *file, LPSTR format, va_list args )
+{
+    dprintf2(("CRTDLL: vfprintf\n"));
+    return (vfprintf(file, format, args));
 }
 
@@ -5133 +3119 @@
 
 /*********************************************************************
- *                  vswprintf       (CRTDLL.498)
- */
-int CDECL CRTDLL_vswprintf( wchar_t *s , size_t t, const wchar_t *format, va_list arg )
-{
-  dprintf2(("CRTDLL: vswprintf\n"));
-  return (vswprintf(s, t, format, arg));
-}
-
-
-/*********************************************************************
- *                  vwprintf     (CRTDLL.499)
- */
-int CDECL CRTDLL_vwprintf( const wchar_t *s, va_list arg)
-{
-  dprintf(("CRTDLL: vwprintf not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *                  wcscoll    (CRTDLL.503)
- */
-DWORD CDECL CRTDLL_wcscoll(LPCWSTR str1, LPCWSTR str2)
-{
-  dprintf2(("CRTDLL: wcscoll\n"));
-  return (wcscoll((const wchar_t*)str1, (const wchar_t*)str2));
-}
-
-
-/*********************************************************************
- *                  wcsftime   (CRTDLL.506)
- */
-size_t CDECL CRTDLL_wcsftime( wchar_t *s, size_t maxsize, 
-                const wchar_t *format, const struct tm *timeptr )
-{
-  dprintf2(("CRTDLL: wcsftime\n"));
-  return (wcsftime(s, maxsize, format, timeptr));
-}
-
-
-/*********************************************************************
- *                  wcstod   (CRTDLL.515)
- */
-double CDECL CRTDLL_wcstod( const wchar_t *nptr, wchar_t **endptr )
-{
-  dprintf2(("CRTDLL: wcstod\n"));
-  return (wcstod(nptr, endptr));
-}
-
-
-/*********************************************************************
- *                  wcsxfrm   (CRTDLL.520)
- */
-size_t CDECL CRTDLL_wcsxfrm( wchar_t *s1, const wchar_t *s2, size_t n )
-{
-  dprintf2(("CRTDLL: wcsxfrm\n"));
-  return (wcsxfrm(s1, s2, n));
-}
-
-
-/*********************************************************************
- *                  wctomb   (CRTDLL.521)
- */
-int CDECL CRTDLL_wctomb( LPSTR dst, WCHAR ch )
-{
-  dprintf2(("CRTDLL: wctomb\n"));
-  return (wctomb((char*)dst,ch));
-}
-
-
-/*********************************************************************
- *                  wprintf   (CRTDLL.522)
- */
-int CDECL CRTDLL_wprintf( const wchar_t *s, ... )
-{
-  dprintf(("CRTDLL: wprintf not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *                  wscanf    (CRTDLL.523)
- */
-int CDECL CRTDLL_wscanf( const wchar_t *s, ... )
-{
-  dprintf(("CRTDLL: wscanf not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-
-/*********************************************************************
- *                  __set_errno    (INTERNAL-#1)
- */
-int __set_errno (int error)
-{
-        errno = error;
-        return error;
-}
-
-
-/*********************************************************************
- *                  _mbbtoupper    (INTERNAL-#2)
- */
-unsigned int _mbbtoupper(unsigned int c)
-{
-        if (!CRTDLL__ismbblead(c) )
-                return toupper(c);
-        
-        return c;
-}
-
-
-/*********************************************************************
- *                  _mbbtolower    (INTERNAL-#3)
- */
-unsigned int _mbbtolower(unsigned int c)
-{
-        if (!CRTDLL__ismbblead(c) )
-                return tolower(c);
-        return c;
-}
-
-
-/*********************************************************************
- *                  _mbclen2    (INTERNAL-#4)
- */
-size_t _mbclen2(const unsigned int s)
-{
-        return (CRTDLL__ismbblead(s>>8) && CRTDLL__ismbbtrail(s&0x00FF)) ? 2 : 1;
-}
-
-
-/*********************************************************************
- *                  _isinf    (INTERNAL-#5)
- */
-int _isinf(double __x)
-{
-        double_t * x = (double_t *)&__x;
-        return ( x->exponent == 0x7ff  && ( x->mantissah == 0 && x->mantissal == 0 ));  
-}
-
-
-/*********************************************************************
- *                  _filehnd    (INTERNAL-#6)
- */
-void* filehnd(int fileno)
-{
-        if ( fileno < 0 )
-                return (void *)-1;
-#define STD_AUX_HANDLE 3
-#define STD_PRINTER_HANDLE 4
-
-        switch(fileno)
-        {
-        case 0:
-                return (void*)GetStdHandle(STD_INPUT_HANDLE);
-        case 1:
-                return (void*)GetStdHandle(STD_OUTPUT_HANDLE);
-        case 2:
-                return (void*)GetStdHandle(STD_ERROR_HANDLE);
-        case 3:
-                return (void*)GetStdHandle(STD_AUX_HANDLE);
-        case 4:
-                return (void*)GetStdHandle(STD_PRINTER_HANDLE);
-        default:
-                break;
-        }
-                
-        if ( fileno >= maxfno )
-                return (void *)-1;
-
-        if ( fileno_modes[fileno].fd == -1 )
-                return (void *)-1;
-        return (void*)fileno_modes[fileno].hFile;
-}
+ *                  vsprintf       (CRTDLL.497)
+ */
+int CDECL CRTDLL_vsprintf( char *s, const char *format, va_list arg )
+{
+  dprintf2(("CRTDLL: vsprintf(%08xh, %08xh)\n", s, format));
+  return (vsprintf(s, format, arg));
+}
+
+
+/*********************************************************************
+ *           CRTDLL__itow        (CRTDLL.600)
+ */
+char * CDECL CRTDLL__itow(int i, char *s, int r)
+{
+  dprintf(("CRTDLL: _itow(%08xh, %08xh, %08xh) no unicode support !\n",
+           i,
+           s,
+           r));
+
+  return (itoa(i,s,r));
+}
+
+
+/*********************************************************************
+ *           CRTDLL__setjmp3     (CRTDLL.600)
+ */
+int CDECL CRTDLL__setjmp3( jmp_buf env )
+{
+  //TODO:
+  dprintf2(("CRTDLL: _setjmp3 -> setjmp (NOT IDENTICAL!!!)\n"));
+  return(setjmp( env));
+}