Changeset 1207 for trunk/src

Timestamp:

Oct 9, 1999, 11:39:13 AM (26 years ago)

Author:

sandervl

Message:

Update by Jens Weissner

Location:

trunk/src/crtdll

Files:

• crtdll.cpp (modified) (88 diffs)
• crtinc.h (modified) (5 diffs)

trunk/src/crtdll/crtdll.cpp

@@ -1 @@
-/* $Id: crtdll.cpp,v 1.8 1999-10-07 09:28:48 sandervl Exp $ */
+/* $Id: crtdll.cpp,v 1.9 1999-10-09 09:39:12 sandervl Exp $ */
 
 /*
@@ -6 +6 @@
  * Implements C run-time functionality as known from UNIX.
  *
+ * Partialy based on Wine and ReactOS
+ *
  * Copyright 1996,1998 Marcus Meissner
  * Copyright 1996 Jukka Iivonen
@@ -11 +13 @@
  * Copyright 1999 Jens Wiessner
  */
-
 
 #include <os2win.h>
@@ -41 +42 @@
 #include <fcntl.h>
 #include <search.h>
+#include <heap.h>
 #include <sys\utime.h>
 #include <sys\stat.h>
@@ -46 +48 @@
 #include <crtdll.h>
 #include "crtinc.h"
-
 
 DEFAULT_DEBUG_CHANNEL(crtdll)
@@ -360 +361 @@
  *                  __doserrno            (CRTDLL.26)
  */
-long * CDECL CRTDLL___doserrno()
+int * CDECL CRTDLL___doserrno()
 {       
-        dprintf(("__doserrno not implemented.\n"));
-        SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-        return FALSE;
-//      return _doserrno();
+        dprintf(("__doserrno\n"));
+        _doserrno = GetLastError();
+        return &_doserrno;
 }
 
@@ -385 +385 @@
 int CDECL CRTDLL___isascii(int i)
 {
-  dprintf(("CRTDLL: __isascii not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+  dprintf(("CRTDLL: __isascii\n"));
+  return  (!((i)&(~0x7f)));
 }
 
@@ -394 +393 @@
  *           CRTDLL___iscsym   (CRTDLL.29)
  */
-int CDECL CRTDLL___iscsym(int i)
-{
-  dprintf(("CRTDLL: __iscsym not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL___iscsym(int c)
+{
+  dprintf(("CRTDLL: __iscsym\n"));
+  return (CRTDLL_isalnum(c) || ( c == '_' )) ;
 }
 
@@ -405 +403 @@
  *           CRTDLL___iscsymf   (CRTDLL.30)
  */
-int CDECL CRTDLL___iscsymf(int i)
-{
-  dprintf(("CRTDLL: __iscsymf not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL___iscsymf(int c)
+{
+  dprintf(("CRTDLL: __iscsymf\n"));
+  return (isalpha(c) || ( c == '_' )) ;
 }
 
@@ -429 +426 @@
 unsigned long CDECL CRTDLL___threadhandle( void )
 {
-  dprintf(("CRTDLL: __threadhandle not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+  dprintf(("CRTDLL: __threadhandle\n"));
+  return GetCurrentThread();
 }
 
@@ -438 +434 @@
  *           CRTDLL___threadid   (CRTDLL.34)
  */
-int * CDECL CRTDLL___threadid(void)
-{
-  dprintf(("CRTDLL: __threadid  not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+unsigned long CDECL CRTDLL___threadid(void)
+{
+  dprintf(("CRTDLL: __threadid\n"));
+  return GetCurrentThreadId();
 }
 
@@ -511 +506 @@
  *                  CRTDLL__beep                    (CRTDLL.45)
  */
-void CDECL CRTDLL__beep(unsigned i1, unsigned i2)
+void CDECL CRTDLL__beep(unsigned nFreq, unsigned nDur)
 {       
-        dprintf(("_beep not implemented.\n"));
+        dprintf(("_beep\n"));
+        Beep(nFreq,nDur);
 }
 
@@ -520 +516 @@
  *           CRTDLL__beginthread   (CRTDLL.46)
  */
-unsigned long CDECL CRTDLL__beginthread(  register void (*start_address)(void *),
-                unsigned stack_size, void *arglist )
-{
-  dprintf(("CRTDLL: _beginthread not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+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;
 }
 
@@ -543 +547 @@
  *           CRTDLL__cabs   (CRTDLL.48)
  */
-double CDECL CRTDLL__cabs(struct complex * c)
-{
-  dprintf(("CRTDLL: _cabs not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-//  return (_cabs(c));
+double CDECL CRTDLL__cabs(struct complex * z)
+{
+  dprintf(("CRTDLL: _cabs not implemented\n"));
+  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+  return FALSE;
 }
 
@@ -554 +557 @@
 /*********************************************************************
  *                  _cexit          (CRTDLL.49)
- *
  */
 void CDECL CRTDLL__cexit(INT ret)
@@ -656 +658 @@
 {
   dprintf(("CRTDLL: _commit not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+//  if (! FlushFileBuffers(_get_osfhandle(_fd)) ) {
+//      __set_errno(EBADF);
+//      return -1;
+//  }
+  return 0;
 }
 
@@ -995 +1000 @@
 wint_t CDECL CRTDLL__fgetwchar( void *i )
 {
-  dprintf(("CRTDLL: _fgetwchar not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+  dprintf(("CRTDLL: _fgetwchar\n"));
+  return CRTDLL__getch();
 }
 
@@ -1037 +1041 @@
 int CDECL CRTDLL__findclose( long handle )
 {
-  dprintf(("CRTDLL: _findclose not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+  dprintf(("CRTDLL: _findclose\n"));
+  // check no wildcards or invalid handle
+  if ( handle == 0 || handle == -1)
+        return 0;
+  return FindClose(handle);
 }
 
@@ -1115 +1121 @@
   dprintf(("CRTDLL: _fpieee_flt not implemented.\n"));
   SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+  return 0;
 }
 
@@ -1155 +1161 @@
  *                  _fsopen     (CRTDLL.110)
  */
-FILE * CDECL CRTDLL__fsopen( const char *filename, const char *mode, int shflag )
+FILE * CDECL CRTDLL__fsopen( const char *file, const char *mode, int shflag )
 {
   dprintf(("CRTDLL: _fsopen not implemented.\n"));
@@ -1221 +1227 @@
 long CDECL CRTDLL__get_osfhandle( int posixhandle )
 {
-  dprintf(("CRTDLL: _gcvt not implemented.\n"));
+  dprintf(("CRTDLL: _get_osfhandle not implemented.\n"));
   SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
   return FALSE;
@@ -1270 +1276 @@
  *                  _getdiskfree     (CRTDLL.122)
  */
-unsigned CDECL CRTDLL__getdiskfree( unsigned drive, struct _diskfree_t *diskspace)
-{
-  dprintf(("CRTDLL: _getdiskfree not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+unsigned int CDECL CRTDLL__getdiskfree( unsigned int drive, struct _diskfree_t *diskspace)
+{
+  dprintf(("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;
 }
 
@@ -1307 +1323 @@
 unsigned long CDECL CRTDLL__getdrives(void)
 {
-  dprintf(("CRTDLL: _getdrives not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+  dprintf(("CRTDLL: _getdrives\n"));
+  return GetLogicalDrives();
 }
 
@@ -1337 +1352 @@
  *                  _getw     (CRTDLL.128)
  */
-int CDECL CRTDLL__getw( FILE *fp )
-{
-  dprintf(("CRTDLL: _getw not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__getw( FILE *stream )
+{
+  dprintf(("CRTDLL: _getw\n"));
+  int w;
+
+  /* Is there a better way?  */
+  if (CRTDLL_fread( &w, sizeof(w), 1, stream) != 1)
+    return(EOF);
+  return(w);
 }
 
@@ -1461 +1480 @@
  *                  _ismbbalnum     (CRTDLL.139)
  */
-int CDECL CRTDLL__ismbbalnum( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbbalnum not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbbalnum( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbbalnum\n"));
+  return (CRTDLL_isalnum(c) || CRTDLL__ismbbkalnum(c));
 }
 
@@ -1472 +1490 @@
  *                  _ismbbalpha     (CRTDLL.140)
  */
-int CDECL CRTDLL__ismbbalpha( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbbalpha not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbbalpha( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbbalpha\n"));
+  return (isalpha(c) || CRTDLL__ismbbkalnum(c));
 }
 
@@ -1483 +1500 @@
  *                  _ismbbgraph     (CRTDLL.141)
  */
-int CDECL CRTDLL__ismbbgraph( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbbgraph not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbbgraph( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbbgraph\n"));
+  return (CRTDLL_isgraph(c) || CRTDLL__ismbbkana(c));
 }
 
@@ -1494 +1510 @@
  *                  _ismbbkalnum     (CRTDLL.142)
  */
-int CDECL CRTDLL__ismbbkalnum( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbbkalnum not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbbkalnum( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbbkalnum\n"));
+  return  ((_jctype+1)[(unsigned char)(c)] & (_KNJ_P));
 }
 
@@ -1505 +1520 @@
  *                  _ismbbkana     (CRTDLL.143)
  */
-int CDECL CRTDLL__ismbbkana( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbbkana not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbbkana( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbbkana\n"));
+  return ((_jctype+1)[(unsigned char)(c)] & (_KNJ_M|_KNJ_P));
 }
 
@@ -1516 +1530 @@
  *                  _ismbbkpunct     (CRTDLL.144)
  */
-int CDECL CRTDLL__ismbbkpunct( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbbkpunct not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbbkpunct( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbbkpunct\n"));
+  return  ((_jctype+1)[(unsigned char)(c)] & (_KNJ_P));
 }
 
@@ -1527 +1540 @@
  *                  _ismbblead     (CRTDLL.145)
  */
-int CDECL CRTDLL__ismbblead( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbblead not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbblead( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbblead\n"));
+  return ((_jctype+1)[(unsigned char)(c)] & _KNJ_1);
 }
 
@@ -1538 +1550 @@
  *                  _ismbbprint     (CRTDLL.146)
  */
-int CDECL CRTDLL__ismbbprint( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbbprint not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbbprint( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbbprint\n"));
+  return (isprint(c) || CRTDLL__ismbbkana(c));
 }
 
@@ -1549 +1560 @@
  *                  _ismbbpunct     (CRTDLL.147)
  */
-int CDECL CRTDLL__ismbbpunct( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbbpunct not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbbpunct( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbbpunct\n"));
+  return (ispunct(c) ||  CRTDLL__ismbbkana(c));
 }
 
@@ -1560 +1570 @@
  *                  _ismbbtrail     (CRTDLL.148)
  */
-int CDECL CRTDLL__ismbbtrail( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbbtrail not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbbtrail( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbbtrail\n"));
+  return ((_jctype+1)[(unsigned char)(c)] & _KNJ_2);
 }
 
@@ -1571 +1580 @@
  *                  _ismbcalpha     (CRTDLL.149)
  */
-int CDECL CRTDLL__ismbcalpha( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbcalpha not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbcalpha( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbcalpha\n"));
+  if ((c & 0xFF00) != 0) {
+        // true multibyte character
+        return 0;
+  }
+  else
+        return CRTDLL__ismbbalpha(c);
+
+  return 0;
 }
 
@@ -1582 +1597 @@
  *                  _ismbcdigit     (CRTDLL.150)
  */
-int CDECL CRTDLL__ismbcdigit( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbcdigit not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbcdigit( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbcdigit\n"));
+  if ((c & 0xFF00) != 0) {
+        // true multibyte character
+        return 0;
+  }
+  else
+        return 0;
+//              return _ismbbdigit(c);
+
+        return 0;
 }
 
@@ -1593 +1615 @@
  *                  _ismbchira     (CRTDLL.151)
  */
-int CDECL CRTDLL__ismbchira( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbchira not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbchira( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbchira\n"));
+  return ((c>=0x829F) && (c<=0x82F1));
 }
 
@@ -1604 +1625 @@
  *                  _ismbckata     (CRTDLL.152)
  */
-int CDECL CRTDLL__ismbckata( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbckata not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbckata( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbckata\n"));
+  return ((c>=0x8340) && (c<=0x8396));
 }
 
@@ -1618 +1638 @@
   dprintf(("CRTDLL: _ismbcl0 not implemented.\n"));
   SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+  return 0;
 }
 
@@ -1629 +1649 @@
   dprintf(("CRTDLL: _ismbcl1 not implemented.\n"));
   SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+  return 0;
 }
 
@@ -1640 +1660 @@
   dprintf(("CRTDLL: _ismbcl2 not implemented.\n"));
   SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+  return 0;
 }
 
@@ -1647 +1667 @@
  *                  _ismbclegal     (CRTDLL.156)
  */
-int CDECL CRTDLL__ismbclegal( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbclegal not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbclegal( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbclegal\n"));
+  if ((c & 0xFF00) != 0) {
+        return CRTDLL__ismbblead(c>>8) && CRTDLL__ismbbtrail(c&0xFF);
+  }
+  else
+        return CRTDLL__ismbbtrail(c&0xFF);
+
+  return 0;
 }
 
@@ -1658 +1683 @@
  *                  _ismbclower     (CRTDLL.157)
  */
-int CDECL CRTDLL__ismbclower( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbclower not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbclower( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbclower\n"));
+  if ((c & 0xFF00) != 0) {
+        if ( c >= 0x829A && c<= 0x829A )
+                return 1;
+  }
+  else
+    return isupper(c);
 }
 
@@ -1669 +1698 @@
  *                  _ismbcprint     (CRTDLL.158)
  */
-int CDECL CRTDLL__ismbcprint( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbcprint not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbcprint( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbcprint\n"));
+  if ((c & 0xFF00) != 0) {
+        // true multibyte character
+        return 0;
+  }
+  else
+        return 0;
+//      return _ismbbdigit(c);
+
+  return 0;
 }
 
@@ -1680 +1716 @@
  *                  _ismbcspace     (CRTDLL.159)
  */
-int CDECL CRTDLL__ismbcspace( unsigned int ch )
+int CDECL CRTDLL__ismbcspace( unsigned int c )
 {
   dprintf(("CRTDLL: _ismbcspace not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+  if ((c & 0xFF00) != 0) {
+        // true multibyte character
+        return 0;
+  }
+  else
+        return 0;
+//      return _ismbbdigit(c);
+
+  return 0;
 }
 
@@ -1691 +1734 @@
  *                  _ismbcsymbol     (CRTDLL.160)
  */
-int CDECL CRTDLL__ismbcsymbol( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbcsymbol not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbcsymbol( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbcsymbol\n"));
+  if ((c & 0xFF00) != 0) {
+        // true multibyte character
+        return 0;
+  }
+  else
+        return 0;
+//      return _ismbbdigit(c);
+
+  return 0;
 }
 
@@ -1702 +1752 @@
  *                  _ismbcupper     (CRTDLL.161)
  */
-int CDECL CRTDLL__ismbcupper( unsigned int ch )
-{
-  dprintf(("CRTDLL: _ismbcupper not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbcupper( unsigned int c )
+{
+  dprintf(("CRTDLL: _ismbcupper\n"));
+  if ((c & 0xFF00) != 0) {
+        if ( c >= 0x8260 && c<= 0x8279 )
+                return 1;
+  }
+  else
+  return isupper(c);
 }
 
@@ -1713 +1767 @@
  *                  _ismbslead     (CRTDLL.162)
  */
-int CDECL CRTDLL__ismbslead(const unsigned char *s1, const unsigned char *s2)
-{
-  dprintf(("CRTDLL: _ismbslead not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbslead(const unsigned char *str, const unsigned char *t)
+{
+  dprintf(("CRTDLL: _ismbslead\n"));
+  unsigned char *s = (unsigned char *)str;
+  while(*s != 0 && s != t) 
+  {  
+        s+= _mbclen2(*s);
+  }             
+  return CRTDLL__ismbblead( *s);
 }
 
@@ -1724 +1782 @@
  *                  _ismbstrail     (CRTDLL.163)
  */
-int CDECL CRTDLL__ismbstrail(const unsigned char *s1, const unsigned char *s2)
-{
-  dprintf(("CRTDLL: _ismbstrail not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__ismbstrail(const unsigned char *str, const unsigned char *t)
+{
+  dprintf(("CRTDLL: _ismbstrail\n"));
+  unsigned char *s = (unsigned char *)str;
+  while(*s != 0 && s != t) 
+  {
+                
+        s+= _mbclen2(*s);
+  }
+                
+  return CRTDLL__ismbbtrail(*s);
 }
 
@@ -1891 +1955 @@
 
 
+/*********************************************************************
+ *                  _matherr    (CRTDLL.181)
+ */
 #if (__IBMCPP__ > 300)
 #define exception _exception
 #endif
 
-/*********************************************************************
- *                  _matherr    (CRTDLL.181)
- */
 double CDECL CRTDLL__matherr( struct exception * excep )
 {
@@ -1908 +1972 @@
  *                  _mbbtombc        (CRTDLL.182)
  */
-unsigned int CDECL CRTDLL__mbbtombc( unsigned int ch )
+unsigned int CDECL CRTDLL__mbbtombc( unsigned int c )
 {
   dprintf(("CRTDLL: _mbbtombc\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+  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;
 }
 
@@ -1919 +1987 @@
  *                  _mbbtype        (CRTDLL.183)
  */
-int CDECL CRTDLL__mbbtype( unsigned char s, int i )
-{
-  dprintf(("CRTDLL: _mbbtype not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__mbbtype( unsigned char c, int type )
+{
+  dprintf(("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;       
 }
 
@@ -1930 +2024 @@
  *                  _mbccpy        (CRTDLL.184)
  */
-void CDECL CRTDLL__mbccpy( unsigned char *dest, const unsigned char *ch )
-{
-  dprintf(("CRTDLL: _mbccpy not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+void CDECL CRTDLL__mbccpy( unsigned char *dst, const unsigned char *src )
+{
+  dprintf(("CRTDLL: _mbccpy\n"));
+
+  if (!CRTDLL__ismbblead(*src) )
+        return;
+                
+  memcpy(dst,src,_mbclen2(*src));
 }
 
@@ -1940 +2038 @@
  *                  _mbcjistojms     (CRTDLL.185)
  */
-int CDECL CRTDLL__mbcjistojms( unsigned int ch )
-{
-  dprintf(("CRTDLL: _mbcjistojms not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__mbcjistojms( unsigned int c )
+{
+  dprintf(("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;
 }
 
@@ -1951 +2066 @@
  *                  _mbcjmstojis     (CRTDLL.186)
  */
-int CDECL CRTDLL__mbcjmstojis( unsigned int ch )
-{
-  dprintf(("CRTDLL: _mbcjmstojis not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__mbcjmstojis( unsigned int c )
+{
+  dprintf(("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;
 }
 
@@ -1962 +2095 @@
  *                  _mbclen    (CRTDLL.187)
  */
-size_t CDECL CRTDLL__mbclen( const unsigned char *ch )
-{
-  dprintf(("CRTDLL: _mbclen not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+size_t CDECL CRTDLL__mbclen( const unsigned char *s )
+{
+  dprintf(("CRTDLL: _mbclen\n"));
+  return (CRTDLL__ismbblead(*s>>8) && CRTDLL__ismbbtrail(*s&0x00FF)) ? 2 : 1;
 }
 
@@ -1973 +2105 @@
  *                  _mbctohira     (CRTDLL.188)
  */
-int CDECL CRTDLL__mbctohira( unsigned int ch )
-{
-  dprintf(("CRTDLL: _mbctohira not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__mbctohira( unsigned int c )
+{
+  dprintf(("CRTDLL: _mbctohira\n"));
+  return c;
 }
 
@@ -1984 +2115 @@
  *                  _mbctokata     (CRTDLL.189)
  */
-int CDECL CRTDLL__mbctokata( unsigned int ch )
-{
-  dprintf(("CRTDLL: _mbctokata not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__mbctokata( unsigned int c )
+{
+  dprintf(("CRTDLL: _mbctokata\n"));
+  return c;
 }
 
@@ -1995 +2125 @@
  *                  _mbctolower     (CRTDLL.190)
  */
-unsigned int CDECL CRTDLL__mbctolower( unsigned int ch )
-{
-  dprintf(("CRTDLL: _mbctolower not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+unsigned int CDECL CRTDLL__mbctolower( unsigned int c )
+{
+  dprintf(("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;
 }
 
@@ -2006 +2143 @@
  *                  _mbctombb        (CRTDLL.191)
  */
-unsigned int CDECL CRTDLL__mbctombb( unsigned int ch )
-{
-  dprintf(("CRTDLL: _mbctombb not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+unsigned int CDECL CRTDLL__mbctombb( unsigned int c )
+{
+  dprintf(("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;
 }
 
@@ -2017 +2173 @@
  *                  _mbctoupper     (CRTDLL.192)
  */
-unsigned int CDECL CRTDLL__mbctoupper( unsigned int ch )
-{
-  dprintf(("CRTDLL: _mbctoupper not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+unsigned int CDECL CRTDLL__mbctoupper( unsigned int c )
+{
+  dprintf(("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;
 }
 
@@ -2028 +2191 @@
  *                  _mbsbtype     (CRTDLL.194)
  */
-int CDECL CRTDLL__mbsbtype( const unsigned char *s1, int ch )
-{
-  dprintf(("CRTDLL: _mbsbtype not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL__mbsbtype( const unsigned char *str, int n )
+{
+  dprintf(("CRTDLL: _mbsbtype\n"));
+  if ( str == NULL )
+        return -1;
+  return CRTDLL__mbbtype(*(str+n),1);
 }
 
@@ -2039 +2203 @@
  *                  _mbscat       (CRTDLL.195)
  */
-unsigned char * CDECL CRTDLL__mbscat( unsigned char *s1, const unsigned char *s2 )
-{
-  dprintf(("CRTDLL: _mbscat not implemented.\n"));
+unsigned char * CDECL CRTDLL__mbscat( unsigned char *dst, const unsigned char *src )
+{
+  dprintf(("CRTDLL: _mbscat  not implemented.\n"));
   SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
   return FALSE;
@@ -2050 +2214 @@
  *                  _mbschr       (CRTDLL.196)
  */
-unsigned char * CDECL CRTDLL__mbschr( const unsigned char *s, unsigned int ch )
+unsigned char * CDECL CRTDLL__mbschr( const unsigned char *str, unsigned int c )
 {
   dprintf(("CRTDLL: _mbschr not implemented.\n"));
@@ -2083 +2247 @@
  *                  _mbscspn        (CRTDLL.199)
  */
-size_t CDECL CRTDLL__mbscspn( const unsigned char *s, const unsigned char *charset )
+size_t CDECL CRTDLL__mbscspn( const unsigned char *s1, const unsigned char *s2 )
 {
   dprintf(("CRTDLL: _mbscspn not implemented.\n"));
@@ -2092 +2256 @@
 
 /*********************************************************************
- *           CRTDLL__mbsdec    (CRTDLL.200)
- */
-unsigned char * CDECL CRTDLL__mbsdec( const unsigned char *s, const unsigned char *ch )
-{
-  dprintf(("CRTDLL: _mbsdec not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsdec    (CRTDLL.201)
+ *           _mbsdec    (CRTDLL.200)
+ */
+unsigned char * CDECL CRTDLL__mbsdec( const unsigned char *str, const unsigned char *cur )
+{
+  dprintf(("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 *src )
@@ -2162 +2332 @@
 
 /*********************************************************************
- *           CRTDLL__mbslwr    (CRTDLL.205)
- */
-unsigned char * CDECL CRTDLL__mbslwr( unsigned char *s )
-{
-  dprintf(("CRTDLL: _mbslwr not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsnbcat  (CRTDLL.206)
- */
-unsigned char * CDECL CRTDLL__mbsnbcat( unsigned char *s1, const unsigned char *s2, size_t n )
-{
-  dprintf(("CRTDLL: _mbsnbcat not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsnbcmp  (CRTDLL.207)
- */
-int CDECL CRTDLL__mbsnbcmp( const unsigned char *s1, const unsigned char *s2, size_t n )
-{
-  dprintf(("CRTDLL: _mbsnbcmp not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsnbcnt  (CRTDLL.208)
- */
-size_t CDECL CRTDLL__mbsnbcnt( const unsigned char *s, size_t n )
-{
-  dprintf(("CRTDLL: _mbsnbcnt not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsnbcpy  (CRTDLL.209)
- */
-unsigned char * CDECL CRTDLL__mbsnbcpy( unsigned char *s1, const unsigned char *s2, size_t n )
-{
-  dprintf(("CRTDLL: _mbsnbcpy not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsnbicmp (CRTDLL.210)
+ *           _mbslwr    (CRTDLL.205)
+ */
+unsigned char * CDECL CRTDLL__mbslwr( unsigned char *x )
+{
+  dprintf(("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 )
+{
+  dprintf(("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 )
+{
+  dprintf(("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 )
+{
+  dprintf(("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 )
+{
+  dprintf(("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 )
 {
-  dprintf(("CRTDLL: _mbsnbicmp not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsnbset (CRTDLL.211)
- */
-unsigned char * CDECL CRTDLL__mbsnbset( unsigned char *s, unsigned int ch, size_t n )
-{
-  dprintf(("CRTDLL: _mbsnbset not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsncat (CRTDLL.212)
- */
-unsigned char * CDECL CRTDLL__mbsncat( unsigned char *s1, const unsigned char *s2, size_t n )
-{
-  dprintf(("CRTDLL: _mbsncat not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsnccnt (CRTDLL.213)
- */
-size_t CDECL CRTDLL__mbsnccnt( const unsigned char *s, size_t n )
-{
-  dprintf(("CRTDLL: _mbsnccnt not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsncmp (CRTDLL.214)
- */
-int CDECL CRTDLL__mbsncmp( const unsigned char *s1, const unsigned char *s2, size_t n )
-{
-  dprintf(("CRTDLL: _mbsncmp not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsncpy (CRTDLL.215)
- */
-unsigned char * CDECL CRTDLL__mbsncpy( unsigned char *s1, const unsigned char *s2, size_t n )
-{
-  dprintf(("CRTDLL: _mbsncpy not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsnextc (CRTDLL.216)
- */
-unsigned int CDECL CRTDLL__mbsnextc( const unsigned char *s )
-{
-  dprintf(("CRTDLL: _mbsnextc not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsnicmp (CRTDLL.217)
+  dprintf(("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 )
+{
+  dprintf(("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 )
+{
+  dprintf(("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 )
+{
+  dprintf(("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 )
+{
+  dprintf(("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 )
+{
+  dprintf(("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 )
+{
+  dprintf(("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 )
 {
-  dprintf(("CRTDLL: _mbsnicmp not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsninc (CRTDLL.218)
- */
-unsigned char * CDECL CRTDLL__mbsninc( const unsigned char *s, size_t count )
-{
-  dprintf(("CRTDLL: _mbsninc not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsnset (CRTDLL.219)
- */
-unsigned char * CDECL CRTDLL__mbsnset( unsigned char *s, unsigned int ch, size_t n )
-{
-  dprintf(("CRTDLL: _mbsnset not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbspbrk   (CRTDLL.220)
- */
-unsigned char * CDECL CRTDLL__mbspbrk( const unsigned char *s, const unsigned char *charset )
-{
-  dprintf(("CRTDLL: _mbspbrk not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+  dprintf(("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 )
+{
+  dprintf(("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 )
+{
+  dprintf(("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 )
+{
+  dprintf(("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;
 }
 
@@ -2349 +2802 @@
 
 /*********************************************************************
- *           CRTDLL__mbsrev    (CRTDLL.222)
+ *           _mbsrev    (CRTDLL.222)
  */
 unsigned char * CDECL CRTDLL__mbsrev( unsigned char *s )
 {
-  dprintf(("CRTDLL: _mbsrev not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsset    (CRTDLL.223)
- */
-unsigned char * CDECL CRTDLL__mbsset( unsigned char *s, unsigned int ch )
-{
-  dprintf(("CRTDLL: _mbsset not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsspn   (CRTDLL.224)
- */
-size_t CDECL CRTDLL__mbsspn( const unsigned char *s, const unsigned char *charset )
-{
-  dprintf(("CRTDLL: _mbsspn not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsspnp   (CRTDLL.225)
- */
-unsigned char * CDECL CRTDLL__mbsspnp( const unsigned char *s, const unsigned char *charset )
-{
-  dprintf(("CRTDLL: _mbsspnp not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsstr    (CRTDLL.226)
+  dprintf(("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 )
+{
+  dprintf(("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 )
+{
+  dprintf(("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 )
+{
+  dprintf(("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 )
@@ -2404 +2910 @@
 
 /*********************************************************************
- *           CRTDLL__mbstok    (CRTDLL.227)
+ *           _mbstok    (CRTDLL.227)
  */
 unsigned char * CDECL CRTDLL__mbstok( unsigned char *s, const unsigned char *delim )
 {
-  dprintf(("CRTDLL: _mbstok not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbstrlen   (CRTDLL.228)
- */
-size_t CDECL CRTDLL__mbstrlen(const char *s)
-{
-  dprintf(("CRTDLL: _mbstrlen not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-}
-
-
-/*********************************************************************
- *           CRTDLL__mbsupr    (CRTDLL.229)
- */
-unsigned char * CDECL CRTDLL__mbsupr( unsigned char *s )
-{
-  dprintf(("CRTDLL: _mbsupr not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+  dprintf(("CRTDLL: _mbstok not implemented\n"));
+  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+  return FALSE;
+}
+
+
+/*********************************************************************
+ *           _mbstrlen   (CRTDLL.228)
+ */
+size_t CDECL CRTDLL__mbstrlen(const char *string)
+{
+  dprintf(("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 )
+{
+  dprintf(("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;
 }
 
@@ -2439 +2960 @@
  *           CRTDLL__memccpy   (CRTDLL.230)
  */
-void * CDECL CRTDLL__memccpy(void *v1, const void *v2, int i, size_t s)
-{
-  dprintf(("CRTDLL: _memccpy not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+void * CDECL CRTDLL__memccpy(void *to, const void *from,int c,size_t count)
+{
+  dprintf(("CRTDLL: _memccpy\n"));
+  memcpy(to,from,count);
+  return memchr(to,c,count);
 }
 
@@ -2462 +2983 @@
  *                  _mktemp        (CRTDLL.233)
  */
-char * CDECL CRTDLL__mktemp( char * templt )
-{
-  dprintf(("CRTDLL: _mktemp not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+char * CDECL CRTDLL__mktemp( char * _template )
+{
+  dprintf(("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;
+    }
+
+    /* If dots occur too early -- squash them.  */
+    while (dp < cp) {
+      if (*dp == '.') *dp = 'a';
+      dp++;
+    }
+
+    /* 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;
 }
 
@@ -2641 +3208 @@
  *                  _putw     (CRTDLL.252)
  */
-INT CDECL CRTDLL__putw( int binint, FILE *fp )
-{
-  dprintf(("CRTDLL: _putw not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+INT CDECL CRTDLL__putw( int w, FILE *stream )
+{
+  dprintf(("CRTDLL: _putw\n"));
+  if (fwrite( &w, sizeof(w), 1, stream) < 1)
+    return(EOF);
+  return(0);
 }
 
@@ -2663 +3231 @@
  *                  _rmdir     (CRTDLL.255)
  */
-INT CDECL CRTDLL__rmdir(const char *s1)
+INT CDECL CRTDLL__rmdir(const char *path)
 {
   dprintf(("CRTDLL: _rmdir\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
-//  return (_rmdir(s1));
+  if (!RemoveDirectoryA(path))
+        return -1;
+  return 0;
 }
 
@@ -2703 +3271 @@
 
 /*********************************************************************
- *           CRTDLL__scalb       (CRTDLL.259)
+ *           _scalb      (CRTDLL.259)
  */
 double CDECL CRTDLL__scalb( double x, long exp )
@@ -2716 +3284 @@
  *           CRTDLL__searchenv   (CRTDLL.260)
  */
-void CDECL CRTDLL__searchenv( const char *name, const char *env_var, char *buf )
-{
-  dprintf(("CRTDLL: _searchenv not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+void CDECL CRTDLL__searchenv(const char *file,const char *var,char *path )
+{
+  dprintf(("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;
 }
 
@@ -2728 +3315 @@
 void CDECL CRTDLL__seterrormode(int i)
 {
-  dprintf(("CRTDLL: _seterrormode not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
+  dprintf(("CRTDLL: _seterrormode\n"));
+  SetErrorMode(i);
+  return;
 }
 
@@ -2775 +3363 @@
 
 /*********************************************************************
- *           CRTDLL__sopen       (CRTDLL.268)
+ *           _sopen      (CRTDLL.268)
  */
 int CDECL CRTDLL__sopen( const char *s, int i1, int i2, ... )
@@ -2919 +3507 @@
 
 /*********************************************************************
- *           CRTDLL__strerror    (CRTDLL.284)
+ *           _strerror           (CRTDLL.284)
  */
 char * CDECL CRTDLL__strerror(const char *s)
@@ -2935 +3523 @@
 int CDECL CRTDLL__stricoll( const char *s1, const char *s2 )
 {
-  dprintf(("CRTDLL: _stricoll not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+  dprintf(("CRTDLL: _stricoll\n"));
+  return stricmp(s1,s2);
 }
 
@@ -2985 +3572 @@
  *           CRTDLL__strnset     (CRTDLL.293)
  */
-char * CDECL CRTDLL__strnset( char *string, int c, size_t len )
-{
-  dprintf(("CRTDLL: _strnset not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+char * CDECL CRTDLL__strnset(char* szToFill, int szFill, size_t sizeMaxFill)
+{
+  dprintf(("CRTDLL: _strnset\n"));
+  char *t = szToFill;
+  int i = 0;
+  while( *szToFill != 0 && i < sizeMaxFill)
+  {
+        *szToFill = szFill;
+        szToFill++;
+        i++;
+  }
+  return t;
 }
 
@@ -2996 +3590 @@
  *           CRTDLL__strrev      (CRTDLL.294)
  */
-char * CDECL CRTDLL__strrev( char *string )
-{
-  dprintf(("CRTDLL: _strrev not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+char * CDECL CRTDLL__strrev( char *s )
+{
+  dprintf(("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;
 }
 
@@ -3007 +3612 @@
  *           CRTDLL__strset      (CRTDLL.295)
  */
-char * CDECL CRTDLL__strset( char *string, int c )
-{
-  dprintf(("CRTDLL: _strset not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+char * CDECL CRTDLL__strset(char* szToFill, int szFill)
+{
+  dprintf(("CRTDLL: _strset\n"));
+  char *t = szToFill;
+  while( *szToFill != 0 )
+  {
+        *szToFill = szFill;
+        szToFill++;
+  }
+  return t;
 }
 
@@ -3086 +3696 @@
 
 /*********************************************************************
- *           CRTDLL__tzset       (CRTDLL.308)
+ *           _tzset      (CRTDLL.308)
  */
 void CDECL CRTDLL__tzset( void )
@@ -3276 +3886 @@
 {
   dprintf(("CRTDLL: _y1\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
   return (_y1(x));
 }
@@ -3365 +3974 @@
  *                  bsearch     (CRTDLL.346)
  */
-void * CDECL CRTDLL_bsearch( const void *key, const void *base,  size_t nmemb,
-         size_t size, int (*compar)(const void *pkey, const void *pbase) )
-{
-  dprintf(("CRTDLL: bsearch not implemented.\n"));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+void * CDECL CRTDLL_bsearch( const void *key, const void *base0,  size_t nelem,
+         size_t size, int (*cmp)(const void *ck, const void *ce))
+{
+  dprintf(("CRTDLL: bsearch\n"));
+  char *base = (char *)base0;
+  int lim, cmpval;
+  void *p;
+
+  for (lim = nelem; lim != 0; lim >>= 1)
+  {
+    p = base + (lim >> 1) * size;
+    cmpval = (*cmp)(key, p);
+    if (cmpval == 0)
+      return p;
+    if (cmpval > 0)
+    {                           /* key > p: move right */
+      base = (char *)p + size;
+      lim--;
+    } /* else move left */
+  }
+  return 0;
 }
 
@@ -3798 +4422 @@
 /*********************************************************************
  *                  is_wctype    (CRTDLL.390)
- *      FIXME - Could not find anything about it
- */
-INT CDECL CRTDLL_is_wctype(DWORD ret)
-{
-        dprintf(("CRTDLL: is_wctype\n"));
+ */
+INT CDECL CRTDLL_is_wctype(wint_t wc, wctype_t wctypeFlags)
+{
+        dprintf(("CRTDLL: is_wctype not implemented.\n"));
         return 0;
 }
@@ -3871 +4494 @@
  *                  iswascii    (CRTDLL.404)
  */
-int CDECL CRTDLL_iswascii(wint_t i)
-{
-  dprintf(("CRTDLL: iswascii(%08xh) not implemented.\n", i));
-  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
-  return FALSE;
+int CDECL CRTDLL_iswascii(wint_t c)
+{
+  dprintf(("CRTDLL: iswascii\n", c));
+  return  (!((c)&(~0x7f)));
 }
 
@@ -4554 +5176 @@
   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;
+}

trunk/src/crtdll/crtinc.h

@@ -1 @@
-/* $Id: crtinc.h,v 1.5 1999-10-07 09:28:49 sandervl Exp $ */
+/* $Id: crtinc.h,v 1.6 1999-10-09 09:39:13 sandervl Exp $ */
 
 /* Definitions for the CRTDLL library (CRTDLL.DLL)
@@ -6 +6 @@
  */
 
-
 #define MB_LEN_MAX      2
 #ifndef MAX_PATHNAME_LEN 
@@ -12 +11 @@
 #endif 
 
+// Errno Defs
+#define EAGAIN          11      /* Resource temporarily unavailable */
+#define EINVAL          22      /* Invalid argument */
+
+
+// MBC Defs
+#define _MBC_SINGLE      0      
+#define _MBC_LEAD        1      
+#define _MBC_TRAIL       2              
+#define _MBC_ILLEGAL    -1              
+
+#define _MB_CP_SBCS      0
+#define _MB_CP_OEM      -2
+#define _MB_CP_ANSI     -3
+#define _MB_CP_LOCALE   -4
+
+#define _KNJ_M  ((char)0x01)    /* Non-punctuation of Kana-set */
+#define _KNJ_P  ((char)0x02)    /* Punctuation of Kana-set */
+#define _KNJ_1  ((char)0x04)    /* Legal 1st byte of double byte stream */
+#define _KNJ_2  ((char)0x08)    /* Legal 2nd btye of double byte stream */
+
+#define ___     0
+#define _1_     _KNJ_1 /* Legal 1st byte of double byte code */
+#define __2     _KNJ_2 /* Legal 2nd byte of double byte code */
+#define _M_     _KNJ_M /* Non-puntuation in Kana-set */
+#define _P_     _KNJ_P /* Punctuation of Kana-set */
+#define _12     (_1_|__2)
+#define _M2     (_M_|__2)
+#define _P2     (_P_|__2)
+
+#define CASE_DIFF (0x8281 - 0x8260)
+
+// Defs
 #define DOSFS_GetFullName(a,b,c) strcpy(c,a) 
 
@@ -34 +66 @@
     int   drive;
 } DOS_FULL_NAME;
+
+
+#ifndef _DISKFREE_T_DEFINED
+#define _DISKFREE_T_DEFINED
+#define _DISKFREE_T_DEFINED_
+struct _diskfree_t {
+        unsigned total_clusters;
+        unsigned avail_clusters;
+        unsigned sectors_per_cluster;
+        unsigned bytes_per_sector;
+};
+#define diskfree_t _diskfree_t
+#endif
 
 
@@ -89 +134 @@
 long            CDECL CRTDLL__filelength( int i );
 VOID            CDECL CRTDLL__exit(DWORD ret);
+INT             CDECL CRTDLL_isalnum(int i);
+int             CDECL CRTDLL_isgraph(int i);
+int             CDECL CRTDLL__access(const char *path,int mode);
+int             CDECL CRTDLL__getch(void);
+size_t          CDECL CRTDLL_fread( void *ptr, size_t size, size_t n, FILE *fp );
+int             CDECL CRTDLL__mbbtype( unsigned char c, int type );
+LPSTR           CDECL CRTDLL__mbsinc( LPCSTR str );
+int             CDECL CRTDLL__ismbbkalnum( unsigned int c );
+int             CDECL CRTDLL__ismbbkana( unsigned int c );
+int             CDECL CRTDLL__ismbbalpha( unsigned int c );
+int             CDECL CRTDLL__ismbbtrail( unsigned int c );
+int             CDECL CRTDLL__ismbblead( unsigned int c );
+char *          CDECL CRTDLL_getenv( const char *name );
+
+//
+// Definitions for internal functions
+//
+int             __set_errno (int error);
+unsigned int    _mbbtoupper(unsigned int c);
+unsigned int    _mbbtolower(unsigned int c);
+size_t          _mbclen2(const unsigned int s);
+
+
+//
+// MBC Includes
+//
+static unsigned short han_to_zen_ascii_table[0x5f] = {
+  0x8140, 0x8149, 0x8168, 0x8194, 0x8190, 0x8193, 0x8195, 0x8166,
+  0x8169, 0x816a, 0x8196, 0x817b, 0x8143, 0x817c, 0x8144, 0x815e,
+  0x824f, 0x8250, 0x8251, 0x8252, 0x8253, 0x8254, 0x8255, 0x8256,
+  0x8257, 0x8258, 0x8146, 0x8147, 0x8183, 0x8181, 0x8184, 0x8148,
+  0x8197, 0x8260, 0x8261, 0x8262, 0x8263, 0x8264, 0x8265, 0x8266,
+  0x8267, 0x8268, 0x8269, 0x826a, 0x826b, 0x826c, 0x826d, 0x826e,
+  0x826f, 0x8270, 0x8271, 0x8272, 0x8273, 0x8274, 0x8275, 0x8276,
+  0x8277, 0x8278, 0x8279, 0x816d, 0x818f, 0x816e, 0x814f, 0x8151,
+  0x8165, 0x8281, 0x8282, 0x8283, 0x8284, 0x8285, 0x8286, 0x8287,
+  0x8288, 0x8289, 0x828a, 0x828b, 0x828c, 0x828d, 0x828e, 0x828f,
+  0x8290, 0x8291, 0x8292, 0x8293, 0x8294, 0x8295, 0x8296, 0x8297,
+  0x8298, 0x8299, 0x829a, 0x816f, 0x8162, 0x8170, 0x8150
+};
+static unsigned short han_to_zen_kana_table[0x40] = {
+  0x8140, 0x8142, 0x8175, 0x8176, 0x8141, 0x8145, 0x8392, 0x8340,
+  0x8342, 0x8344, 0x8346, 0x8348, 0x8383, 0x8385, 0x8387, 0x8362,
+  0x815b, 0x8341, 0x8343, 0x8345, 0x8347, 0x8349, 0x834a, 0x834c,
+  0x834e, 0x8350, 0x8352, 0x8354, 0x8356, 0x8358, 0x835a, 0x835c,
+  0x835e, 0x8360, 0x8363, 0x8365, 0x8367, 0x8369, 0x836a, 0x836b,
+  0x836c, 0x836d, 0x836e, 0x8371, 0x8374, 0x8377, 0x837a, 0x837d,
+  0x837e, 0x8380, 0x8381, 0x8382, 0x8384, 0x8386, 0x8388, 0x8389,
+  0x838a, 0x838b, 0x838c, 0x838d, 0x838f, 0x8393, 0x814a, 0x814b
+};
+static unsigned char zen_to_han_kana_table[0x8396-0x8340+1] = {
+  0xa7, 0xb1, 0xa8, 0xb2, 0xa9, 0xb3, 0xaa, 0xb4,
+  0xab, 0xb5, 0xb6, 0xb6, 0xb7, 0xb7, 0xb8, 0xb8,
+  0xb9, 0xb9, 0xba, 0xba, 0xbb, 0xbb, 0xbc, 0xbc,
+  0xbd, 0xbd, 0xbe, 0xbe, 0xbf, 0xbf, 0xc0, 0xc0,
+  0xc1, 0xc1, 0xaf, 0xc2, 0xc2, 0xc3, 0xc3, 0xc4,
+  0xc4, 0xc5, 0xc6, 0xc7, 0xc8, 0xc9, 0xca, 0xca,
+  0xca, 0xcb, 0xcb, 0xcb, 0xcc, 0xcc, 0xcc, 0xcd,
+  0xcd, 0xcd, 0xce, 0xce, 0xce, 0xcf, 0xd0, 0,
+  0xd1, 0xd2, 0xd3, 0xac, 0xd4, 0xad, 0xd5, 0xae,
+  0xd6, 0xd7, 0xd8, 0xd9, 0xda, 0xdb, 0xdc, 0xdc,
+  0xb2, 0xb4, 0xa6, 0xdd, 0xb3, 0xb6, 0xb9
+};
+#define ZTOH_SYMBOLS 9
+static unsigned short zen_to_han_symbol_table_1[ZTOH_SYMBOLS] = {
+  0x8142, 0x8175, 0x8176, 0x8141, 0x8145, 0x815b, 0x814a, 0x814b
+};
+static unsigned char zen_to_han_symbol_table_2[ZTOH_SYMBOLS] = {
+  0xa1, 0xa2, 0xa3, 0xa4, 0xa5, 0xb0, 0xde, 0xdf
+};
+#define ISKANA(c) ((c) >= 0xa1 && (c) <= 0xdf)
+#define JISHIRA(c) ((c) >= 0x829f && (c) <= 0x82f1)
+#define JISKANA(c) ((c) >= 0x8340 && (c) <= 0x8396 && (c) != 0x837f)
+#define JTOKANA(c) ((c) <= 0x82dd ? (c) + 0xa1 : (c) + 0xa2)
+
+char _jctype[257] = {
+/*-1*/  ___,
+/*0x*/  ___,___,___,___,___,___,___,___,___,___,___,___,___,___,___,___,
+/*1x*/  ___,___,___,___,___,___,___,___,___,___,___,___,___,___,___,___,
+/*2x*/  ___,___,___,___,___,___,___,___,___,___,___,___,___,___,___,___,
+/*3x*/  ___,___,___,___,___,___,___,___,___,___,___,___,___,___,___,___,
+/*4x*/  __2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,
+/*5x*/  __2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,
+/*6x*/  __2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,
+/*7x*/  __2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,__2,___,
+/*8x*/  __2,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,
+/*9x*/  _12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,
+/*Ax*/  __2,_P2,_P2,_P2,_P2,_P2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,
+/*Bx*/  _M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,
+/*Cx*/  _M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,
+/*Dx*/  _M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,_M2,
+/*Ex*/  _12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,
+/*Fx*/  _12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,_12,___,___,___
+};