** Read a line and try to load (compile) it first as an expression (by ** adding "return " in front of it) and second as a statement. Return ** the final status of load/call with the resulting function (if any) ** in the top of the stack. */
| 649 | ** in the top of the stack. |
| 650 | */ |
| 651 | static int loadline (lua_State *L) { |
| 652 | const char *line; |
| 653 | int status; |
| 654 | lua_settop(L, 0); |
| 655 | if (!pushline(L, 1)) |
| 656 | return -1; /* no input */ |
| 657 | if ((status = addreturn(L)) != LUA_OK) /* 'return ...' did not work? */ |
| 658 | status = multiline(L); /* try as command, maybe with continuation lines */ |
| 659 | line = lua_tostring(L, 1); |
| 660 | if (line[0] != '\0') /* non empty? */ |
| 661 | lua_saveline(line); /* keep history */ |
| 662 | lua_remove(L, 1); /* remove line from the stack */ |
| 663 | lua_assert(lua_gettop(L) == 1); |
| 664 | return status; |
| 665 | } |
| 666 | |
| 667 | |
| 668 | /* |
no test coverage detected