home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / DMAKE38B.ZIP / DBUG / MALLOC / TOSTRING.C < prev    next >
C/C++ Source or Header  |  1992-01-23  |  3KB  |  152 lines
  1. /*
  2.  * (c) Copyright 1990 Conor P. Cahill (uunet!virtech!cpcahil).  
  3.  * You may copy, distribute, and use this software as long as this
  4.  * copyright statement is not removed.
  5.  */
  6. #include "tostring.h"
  7.  
  8. /*
  9.  * Function:    tostring()
  10.  *
  11.  * Purpose:    to convert an integer to an ascii display string
  12.  *
  13.  * Arguments:    buf    - place to put the 
  14.  *        val    - integer to convert
  15.  *        len    - length of output field (0 if just enough to hold data)
  16.  *        base    - base for number conversion (only works for base <= 16)
  17.  *        fill    - fill char when len > # digits
  18.  *
  19.  * Returns:    length of string
  20.  *
  21.  * Narrative:    IF fill character is non-blank
  22.  *            Determine base
  23.  *                If base is HEX
  24.  *                    add "0x" to begining of string
  25.  *                IF base is OCTAL
  26.  *                    add "0" to begining of string
  27.  *
  28.  *        While value is greater than zero
  29.  *            use val % base as index into xlation str to get cur char
  30.  *            divide val by base
  31.  *
  32.  *        Determine fill-in length
  33.  *
  34.  *        Fill in fill chars
  35.  *
  36.  *        Copy in number
  37.  *        
  38.  *
  39.  * Mod History:    
  40.  *   90/01/24    cpcahil        Initial revision.
  41.  */
  42.  
  43. #ifndef lint
  44. static
  45. char rcs_hdr[] = "$Id: tostring.c,v 1.1 1992/01/24 03:29:16 dvadura Exp $";
  46. #endif
  47.  
  48. #define T_LEN 10
  49.  
  50. int
  51. tostring(buf,val,len,base,fill)
  52.     int      base;
  53.     char    * buf;
  54.     char      fill;
  55.     int      len;
  56.     int      val;
  57.     
  58. {
  59.     char    * bufstart = buf;
  60.     int      i = T_LEN;
  61.     char    * xbuf = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
  62.     char      tbuf[T_LEN];
  63.  
  64.     /*
  65.      * if we are filling with non-blanks, make sure the
  66.      * proper start string is added
  67.      */
  68.     if( fill != ' ' )
  69.     {
  70.         switch(base)
  71.         {
  72.             case B_HEX:
  73.                 *(buf++) = '0';
  74.                 *(buf++) = 'x';
  75.                 if( len )
  76.                 {
  77.                     len -= 2;
  78.                 }
  79.                 break;
  80.             case B_OCTAL:
  81.                 *(buf++) = fill;
  82.                 if( len )
  83.                 {
  84.                     len--;
  85.                 }
  86.                 break;
  87.             default:
  88.                 break;
  89.         }
  90.     }
  91.  
  92.     while( val > 0 )
  93.     {
  94.         tbuf[--i] = xbuf[val % base];
  95.         val = val / base;
  96.     }
  97.  
  98.     if( len )
  99.     {
  100.         len -= (T_LEN - i);
  101.  
  102.         if( len > 0 )
  103.         {
  104.             while(len-- > 0)
  105.             {
  106.                 *(buf++) = fill;
  107.             }
  108.         }
  109.         else
  110.         {
  111.             /* 
  112.              * string is too long so we must truncate
  113.              * off some characters.  We do this the easiest
  114.              * way by just incrementing i.  This means the
  115.              * most significant digits are lost.
  116.              */
  117.             while( len++ < 0 )
  118.             {
  119.                 i++;
  120.             }
  121.         }
  122.     }
  123.  
  124.     while( i < T_LEN )
  125.     {
  126.         *(buf++) = tbuf[i++];
  127.     }
  128.  
  129.     return( (int) (buf - bufstart) );
  130.  
  131. } /* tostring(... */
  132.  
  133. /*
  134.  * $Log: tostring.c,v $
  135.  * Revision 1.1  1992/01/24  03:29:16  dvadura
  136.  * dmake Version 3.8, Initial revision
  137.  *
  138.  * Revision 1.4  90/05/11  00:13:11  cpcahil
  139.  * added copyright statment
  140.  * 
  141.  * Revision 1.3  90/02/24  21:50:33  cpcahil
  142.  * lots of lint fixes
  143.  * 
  144.  * Revision 1.2  90/02/24  17:29:42  cpcahil
  145.  * changed $Header to $Id so full path wouldnt be included as part of rcs 
  146.  * id string
  147.  * 
  148.  * Revision 1.1  90/02/22  23:17:44  cpcahil
  149.  * Initial revision
  150.  * 
  151.  */
  152.