Function trydecpoint

Source/Misc/lua/src/lua.c:6890–6901

static void trydecpoint (LexState *ls, SemInfo *seminfo) {
/* format error: try to update decimal point separator */
struct lconv *cv = localeconv();
char old = ls->decpoint;
ls->decpoint = (cv ? cv->decimal_point[0] : '.');
buffreplace(ls, old, ls->decpoint);  /* try updated decimal separator */
if (!luaO_str2d(luaZ_buffer(ls->buff), &seminfo->r)) {
/* format error with correct decimal point: no more options */
buffreplace(ls, ls->decpoint, '.');  /* undo change (for error message) */
luaX_lexerror(ls, "malformed number", TK_NUMBER);
}
}


/* LUA_NUMBER */