version 1.49, 2016/03/27 15:55:13 |
version 1.50, 2017/02/23 06:40:17 |
|
|
static __inline char *pop_string(void); |
static __inline char *pop_string(void); |
static __inline void clear_stack(void); |
static __inline void clear_stack(void); |
static __inline void print_tos(void); |
static __inline void print_tos(void); |
|
static void print_err(void); |
static void pop_print(void); |
static void pop_print(void); |
static void pop_printn(void); |
static void pop_printn(void); |
static __inline void print_stack(void); |
static __inline void print_stack(void); |
|
|
{ 'a', to_ascii }, |
{ 'a', to_ascii }, |
{ 'c', clear_stack }, |
{ 'c', clear_stack }, |
{ 'd', dup }, |
{ 'd', dup }, |
|
{ 'e', print_err }, |
{ 'f', print_stack }, |
{ 'f', print_stack }, |
{ 'i', set_ibase }, |
{ 'i', set_ibase }, |
{ 'k', set_scale }, |
{ 'k', set_scale }, |
|
|
if (value != NULL) { |
if (value != NULL) { |
print_value(stdout, value, "", bmachine.obase); |
print_value(stdout, value, "", bmachine.obase); |
(void)putchar('\n'); |
(void)putchar('\n'); |
|
} |
|
else |
|
warnx("stack empty"); |
|
} |
|
|
|
static void |
|
print_err(void) |
|
{ |
|
struct value *value = tos(); |
|
if (value != NULL) { |
|
print_value(stderr, value, "", bmachine.obase); |
|
(void)putc('\n', stderr); |
} |
} |
else |
else |
warnx("stack empty"); |
warnx("stack empty"); |