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
  74 char *itoa (unsigned long value)
  75 {
  76     static char str[8 * sizeof (long) + 1];
  77
  78     /* decompose */
  79     char buffer[8 * sizeof (long) + 1] = {0};
  80     int size = 0;
  81     do {
  82         char x = value % obase;
  83         buffer[size++] = (x > 9) ? 'a' + x - 10 : '0' + x;
  84         value /= obase;
  85     } while (value != 0);
  86
  87     /* revert */
  88     int i;
  89     for (i = 0; i < size; i++) {
  90         str[i] = buffer [size - i - 1];
  91     }
  92     str[size] = '\0';
  93
  94     return str;
  95 }
  96
  97 /* vim: set ts=4 sw=4 et: */
  98
  99
 100
 101
 102 double print (double value)
 103 {
 104     if (obase == 10) {
 105         fprintf (stdout, _format ? _format : DEFAULT_FORMAT, value);
 106     } else {
 107         fprintf (stdout, "%s%s\n", (_prompt) ? _prompt : DEFAULT_PROMPT, itoa ((unsigned int)value));
 108     }
 109     fflush (stdout);
 110     return value;
 111 }
 112
 113 double printl (double value)
 114 {
 115     if (obase == 10) {
 116         fprintf (stdout, _minform ? _minform : DEFAULT_MINFORM, value);
 117     } else {
 118         fprintf (stdout, "%s%s", (_prompt) ? _prompt : DEFAULT_PROMPT, itoa ((unsigned int)value));
 119     }
 120     fflush (stdout);
 121     return value;
 122 }
 123
 124 /* vim: set ts=4 sw=4 et: */