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 | ||
20a64561 LM |
9 | int ibase = 10; |
10 | int obase = 10; | |
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 | ||
20a64561 LM |
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 | ||
a24bd519 LM |
102 | double print (double value) |
103 | { | |
20a64561 LM |
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 | } | |
e2a309f9 LM |
109 | fflush (stdout); |
110 | return value; | |
111 | } | |
112 | ||
113 | double printl (double value) | |
114 | { | |
20a64561 LM |
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 | } | |
a24bd519 LM |
120 | fflush (stdout); |
121 | return value; | |
122 | } | |
e4c7b513 LM |
123 | |
124 | /* vim: set ts=4 sw=4 et: */ |