format.c

   1 #include <malloc.h>
   2 #include <stdio.h>
   3 #include <string.h>
   4
   5 #include "format.h"
   6
   7 /* global variables */
   8
   9 int _ibase = 10;
  10 int _obase = 10;
  11
  12 #define DEFAULT_FORMAT "=> %.6g\n"
  13 char *_format = NULL;
  14 #define DEFAULT_MINFORM "%.6g"
  15 char *_minform = NULL;
  16
  17 int _precision = 6;
  18
  19 #define DEFAULT_PROMPT "=> "
  20 char *_prompt = NULL;
  21
  22 /* print function */
  23
  24 void set_precision (int precision)
  25 {
  26     _precision = precision;
  27 }
  28
  29 int get_precision ()
  30 {
  31     return _precision;
  32 }
  33
  34 void set_prompt (char *prompt)
  35 {
  36     if (_prompt) {
  37         free (_prompt);
  38     }
  39     _prompt = strdup (prompt);
  40 }
  41
  42 void set_format ()
  43 {
  44     char buffer[128] = {0};
  45     sprintf (buffer, "%s%%.%dg\n", _prompt ? _prompt : DEFAULT_PROMPT, _precision);
  46     if (_format) {
  47         free (_format);
  48     }
  49     _format = strdup (buffer);
  50     sprintf (buffer, "%%.%dg", _precision);
  51     if (_minform) {
  52         free (_minform);
  53     }
  54     _minform = strdup (buffer);
  55 }
  56
  57 void free_format ()
  58 {
  59     if (_format) {
  60         free (_format);
  61         _format = NULL;
  62     }
  63     if (_minform) {
  64         free (_minform);
  65         _minform = NULL;
  66     }
  67     if (_prompt) {
  68         free (_prompt);
  69         _prompt = NULL;
  70     }
  71 }
  72
  73 void set_base (int in, int out)
  74 {
  75     _ibase = in;
  76     _obase = out;
  77 }
  78
  79 int is_input_decimal ()
  80 {
  81     return (_ibase == 10);
  82 }
  83
  84 char *show_base ()
  85 {
  86     static char str[16] = {0};
  87     sprintf (str, "%d/%d", _ibase, _obase);
  88     return str;
  89 }
  90
  91 int get_ibase ()
  92 {
  93     return _ibase;
  94 }
  95
  96 char *itoa (unsigned long value)
  97 {
  98     static char str[8 * sizeof (long) + 1];
  99
 100     /* decompose */
 101     char buffer[8 * sizeof (long) + 1] = {0};
 102     int size = 0;
 103     do {
 104         char x = value % _obase;
 105         buffer[size++] = (x > 9) ? 'a' + x - 10 : '0' + x;
 106         value /= _obase;
 107     } while (value != 0);
 108
 109     /* revert */
 110     int i;
 111     for (i = 0; i < size; i++) {
 112         str[i] = buffer [size - i - 1];
 113     }
 114     str[size] = '\0';
 115
 116     return str;
 117 }
 118
 119 double print (double value)
 120 {
 121     if (_obase == 10) {
 122         printf (_format ? _format : DEFAULT_FORMAT, value);
 123     } else {
 124         printf ("%s%s\n", (_prompt) ? _prompt : DEFAULT_PROMPT, itoa ((unsigned int)value));
 125     }
 126     return value;
 127 }
 128
 129 double printl (double value)
 130 {
 131     if (_obase == 10) {
 132         printf (_minform ? _minform : DEFAULT_MINFORM, value);
 133     } else {
 134         printf ("%s%s", (_prompt) ? _prompt : DEFAULT_PROMPT, itoa ((unsigned int)value));
 135     }
 136     return value;
 137 }
 138
 139 /* vim: set ts=4 sw=4 et: */