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