| 380 | /* Print VALUE V. */ |
| 381 | |
| 382 | static void |
| 383 | printv (VALUE *v) |
| 384 | { |
| 385 | switch (v->type) |
| 386 | { |
| 387 | case integer: |
| 388 | mpz_out_str (stdout, 10, v->u.i); |
| 389 | putchar ('\n'); |
| 390 | break; |
| 391 | case string: |
| 392 | puts (v->u.s); |
| 393 | break; |
| 394 | default: |
| 395 | unreachable (); |
| 396 | } |
| 397 | } |
| 398 | |
| 399 | /* Return true if V is a null-string or zero-number. */ |
| 400 |