Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. /****************************************************************************
  2. *
  3. *                            Open Watcom Project
  4. *
  5. *    Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
  6. *
  7. *  ========================================================================
  8. *
  9. *    This file contains Original Code and/or Modifications of Original
  10. *    Code as defined in and that are subject to the Sybase Open Watcom
  11. *    Public License version 1.0 (the 'License'). You may not use this file
  12. *    except in compliance with the License. BY USING THIS FILE YOU AGREE TO
  13. *    ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
  14. *    provided with the Original Code and Modifications, and is also
  15. *    available at www.sybase.com/developer/opensource.
  16. *
  17. *    The Original Code and all software distributed under the License are
  18. *    distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
  19. *    EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
  20. *    ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
  21. *    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
  22. *    NON-INFRINGEMENT. Please see the License for the specific language
  23. *    governing rights and limitations under the License.
  24. *
  25. *  ========================================================================
  26. *
  27. * Description:  Implementation of itoa() and utoa().
  28. *
  29. ****************************************************************************/
  30.  
  31.  
  32. #include "variety.h"
  33. #include "widechar.h"
  34. #include <stdlib.h>
  35.  
  36. extern const char __based(__segname("_CONST")) __Alphabet[];
  37.  
  38. unsigned __udiv( unsigned, unsigned _WCNEAR * );
  39. #if defined(__386__)
  40.     #pragma aux __udiv = \
  41.         "xor edx,edx" \
  42.         "div dword ptr [ebx]" \
  43.         "mov [ebx],eax" \
  44.         parm caller [eax] [ebx] \
  45.         modify exact [eax edx] \
  46.         value [edx];
  47. #elif defined(M_I86) && defined(__BIG_DATA__)
  48.     #pragma aux __udiv = \
  49.         "xor dx,dx" \
  50.         "div word ptr ss:[bx]" \
  51.         "mov ss:[bx],ax" \
  52.         parm caller [ax] [bx] \
  53.         modify exact [ax dx] \
  54.         value [dx];
  55. #elif defined(M_I86) && defined(__SMALL_DATA__)
  56.     #pragma aux __udiv = \
  57.         "xor dx,dx" \
  58.         "div word ptr [bx]" \
  59.         "mov [bx],ax" \
  60.         parm caller [ax] [bx] \
  61.         modify exact [ax dx] \
  62.         value [dx];
  63. #endif
  64.  
  65.  
  66. _WCRTLINK CHAR_TYPE *__F_NAME(utoa,_utow)( unsigned value, CHAR_TYPE *buffer, int radix )
  67. {
  68.     CHAR_TYPE   *p = buffer;
  69.     char        *q;
  70.     unsigned    rem;
  71.     unsigned    quot;
  72.     char        buf[34];    // only holds ASCII so 'char' is OK
  73.  
  74.     buf[0] = '\0';
  75.     q = &buf[1];
  76.     do {
  77. #if defined(_M_IX86) && defined(__WATCOMC__)
  78.         quot = radix;
  79.         rem = __udiv( value, (unsigned _WCNEAR *) &quot );
  80. #else
  81.         rem = value % radix;
  82.         quot = value / radix;
  83. #endif
  84.         *q = __Alphabet[rem];
  85.         ++q;
  86.         value = quot;
  87.     } while( value != 0 );
  88.     while( (*p++ = (CHAR_TYPE)*--q) )
  89.         ;
  90.     return( buffer );
  91. }
  92.  
  93.  
  94. _WCRTLINK CHAR_TYPE *__F_NAME(itoa,_itow)( int value, CHAR_TYPE *buffer, int radix )
  95. {
  96.     CHAR_TYPE   *p = buffer;
  97.  
  98.     if( radix == 10 ) {
  99.         if( value < 0 ) {
  100.             *p++ = '-';
  101.             value = - value;
  102.         }
  103.     }
  104.     __F_NAME(utoa,_utow)( value, p, radix );
  105.     return( buffer );
  106. }
  107.