Commit | Line | Data |
---|---|---|
a24bd519 LM |
1 | #include <malloc.h> |
2 | #include <stdio.h> | |
3 | #include <string.h> | |
4 | ||
5 | #include "format.h" | |
6 | ||
7 | /* global variables */ | |
8 | ||
743e93f0 LM |
9 | int _ibase = 10; |
10 | int _obase = 10; | |
20a64561 | 11 | |
a24bd519 | 12 | #define DEFAULT_FORMAT "=> %.6g\n" |
e2a309f9 LM |
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; | |
a24bd519 LM |
21 | |
22 | /* print function */ | |
23 | ||
e2a309f9 LM |
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 () | |
a24bd519 LM |
43 | { |
44 | char buffer[128] = {0}; | |
e2a309f9 LM |
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); | |
a24bd519 LM |
55 | } |
56 | ||
57 | void free_format () | |
58 | { | |
e2a309f9 LM |
59 | if (_format) { |
60 | free (_format); | |
61 | _format = NULL; | |
62 | } | |
63 | if (_minform) { | |
64 | free (_minform); | |
65 | _minform = NULL; | |
a24bd519 | 66 | } |
e2a309f9 LM |
67 | if (_prompt) { |
68 | free (_prompt); | |
69 | _prompt = NULL; | |
a24bd519 LM |
70 | } |
71 | } | |
72 | ||
743e93f0 LM |
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 | } | |
20a64561 | 95 | |
0aa5a6e5 LM |
96 | /* multi base integer to ascii function */ |
97 | ||
98 | char *mbitoa (unsigned long value) | |
20a64561 LM |
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 { | |
743e93f0 | 106 | char x = value % _obase; |
20a64561 | 107 | buffer[size++] = (x > 9) ? 'a' + x - 10 : '0' + x; |
743e93f0 | 108 | value /= _obase; |
20a64561 LM |
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 | ||
a24bd519 LM |
121 | double print (double value) |
122 | { | |
743e93f0 | 123 | if (_obase == 10) { |
b6311fa2 | 124 | printf (_format ? _format : DEFAULT_FORMAT, value); |
20a64561 | 125 | } else { |
0aa5a6e5 | 126 | printf ("%s%s\n", (_prompt) ? _prompt : DEFAULT_PROMPT, mbitoa ((unsigned int)value)); |
20a64561 | 127 | } |
e2a309f9 LM |
128 | return value; |
129 | } | |
130 | ||
131 | double printl (double value) | |
132 | { | |
743e93f0 | 133 | if (_obase == 10) { |
b6311fa2 | 134 | printf (_minform ? _minform : DEFAULT_MINFORM, value); |
20a64561 | 135 | } else { |
0aa5a6e5 | 136 | printf ("%s%s", (_prompt) ? _prompt : DEFAULT_PROMPT, mbitoa ((unsigned int)value)); |
20a64561 | 137 | } |
a24bd519 LM |
138 | return value; |
139 | } | |
e4c7b513 LM |
140 | |
141 | /* vim: set ts=4 sw=4 et: */ |