1                 : /* debug.c: bcmath library file. */
       2                 : /*
       3                 :     Copyright (C) 1991, 1992, 1993, 1994, 1997 Free Software Foundation, Inc.
       4                 :     Copyright (C) 2000 Philip A. Nelson
       5                 : 
       6                 :     This library is free software; you can redistribute it and/or
       7                 :     modify it under the terms of the GNU Lesser General Public
       8                 :     License as published by the Free Software Foundation; either
       9                 :     version 2 of the License, or (at your option) any later version.
      10                 : 
      11                 :     This library is distributed in the hope that it will be useful,
      12                 :     but WITHOUT ANY WARRANTY; without even the implied warranty of
      13                 :     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      14                 :     Lesser General Public License for more details.  (COPYING.LIB)
      15                 : 
      16                 :     You should have received a copy of the GNU Lesser General Public
      17                 :     License along with this library; if not, write to:
      18                 : 
      19                 :       The Free Software Foundation, Inc.
      20                 :       59 Temple Place, Suite 330
      21                 :       Boston, MA 02111-1307 USA.
      22                 : 
      23                 :     You may contact the author by:
      24                 :        e-mail:  philnelson@acm.org
      25                 :       us-mail:  Philip A. Nelson
      26                 :                 Computer Science Department, 9062
      27                 :                 Western Washington University
      28                 :                 Bellingham, WA 98226-9062
      29                 :        
      30                 : *************************************************************************/
      31                 : 
      32                 : #include <config.h>
      33                 : #include <stdio.h>
      34                 : #include <assert.h>
      35                 : #include <stdlib.h>
      36                 : #include <ctype.h>
      37                 : #include <stdarg.h>
      38                 : #include "bcmath.h"
      39                 : #include "private.h"
      40                 : 
      41                 : /* pn prints the number NUM in base 10. */
      42                 : 
      43                 : static void
      44                 : out_char (int c)
      45               0 : {
      46               0 :   putchar(c);
      47               0 : }
      48                 : 
      49                 : 
      50                 : void
      51                 : pn (bc_num num TSRMLS_DC)
      52               0 : {
      53               0 :   bc_out_num (num, 10, out_char, 0 TSRMLS_CC);
      54               0 :   out_char ('\n');
      55               0 : }
      56                 : 
      57                 : 
      58                 : /* pv prints a character array as if it was a string of bcd digits. */
      59                 : void
      60                 : pv (name, num, len)
      61                 :      char *name;
      62                 :      unsigned char *num;
      63                 :      int len;
      64               0 : {
      65                 :   int i;
      66               0 :   printf ("%s=", name);
      67               0 :   for (i=0; i<len; i++) printf ("%c",BCD_CHAR(num[i]));
      68               0 :   printf ("\n");
      69               0 : }