dbfee00a |
1 | define mp-print |
2 | call (void)fputs("$arg0 = ", stdout) |
3 | if $arg0 == 0 |
4 | call (void)fputs("(null)", stdout) |
5 | else |
6 | call (void)mp_writefile($arg0, stdout, 10) |
7 | end |
8 | call (void)putchar('\n') |
9 | end |
10 | |
11 | define mp-printr |
ceb3f0c0 |
12 | call (void)fputs("$arg1 = ", stdout) |
13 | if $arg1 == 0 |
dbfee00a |
14 | call (void)fputs("(null)", stdout) |
15 | else |
ceb3f0c0 |
16 | if $arg0 == 16 |
dbfee00a |
17 | call (void)fputs("0x", stdout) |
18 | else |
ceb3f0c0 |
19 | if $arg0 == 8 |
dbfee00a |
20 | call (void)fputs("0", stdout) |
21 | else |
ceb3f0c0 |
22 | if $arg0 != 10 |
23 | call (void)fputs("$arg0:", stdout) |
dbfee00a |
24 | end |
25 | end |
26 | end |
ceb3f0c0 |
27 | call (void)mp_writefile($arg1, stdout, $arg0) |
dbfee00a |
28 | end |
29 | call (void)putchar('\n') |
30 | end |
31 | |
32 | document mp-print |
33 | Print a Catacomb MP as a base-10 integer to stdout. |
34 | end |