** Add integer part of 'x' to buffer and return new 'x' */
| 1018 | ** Add integer part of 'x' to buffer and return new 'x' |
| 1019 | */ |
| 1020 | static lua_Number adddigit (char *buff, unsigned n, lua_Number x) { |
| 1021 | lua_Number dd = l_mathop(floor)(x); /* get integer part from 'x' */ |
| 1022 | int d = (int)dd; |
| 1023 | buff[n] = cast_char(d < 10 ? d + '0' : d - 10 + 'a'); /* add to buffer */ |
| 1024 | return x - dd; /* return what is left */ |
| 1025 | } |
| 1026 | |
| 1027 | |
| 1028 | static int num2straux (char *buff, unsigned sz, lua_Number x) { |