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 /* multi base integer to ascii function */
  97
  98 char *mbitoa (unsigned long value)
  99 {
 100     static char str[8 * sizeof (long) + 1];
 101
 102     /* decompose */
 103     char buffer[8 * sizeof (long) + 1] = {0};
 104     int size = 0;
 105     do {
 106         char x = value % _obase;
 107         buffer[size++] = (x > 9) ? 'a' + x - 10 : '0' + x;
 108         value /= _obase;
 109     } while (value != 0);
 110
 111     /* revert */
 112     int i;
 113     for (i = 0; i < size; i++) {
 114         str[i] = buffer [size - i - 1];
 115     }
 116     str[size] = '\0';
 117
 118     return str;
 119 }
 120
 121 double print (double value)
 122 {
 123     if (_obase == 10) {
 124         printf (_format ? _format : DEFAULT_FORMAT, value);
 125     } else {
 126         printf ("%s%s\n", (_prompt) ? _prompt : DEFAULT_PROMPT, mbitoa ((unsigned int)value));
 127     }
 128     return value;
 129 }
 130
 131 double printl (double value)
 132 {
 133     if (_obase == 10) {
 134         printf (_minform ? _minform : DEFAULT_MINFORM, value);
 135     } else {
 136         printf ("%s%s", (_prompt) ? _prompt : DEFAULT_PROMPT, mbitoa ((unsigned int)value));
 137     }
 138     return value;
 139 }
 140
 141 /* vim: set ts=4 sw=4 et: */