Function lspo_message

src/sp_lev.c:3072–3109

}

DISABLE_WARNING_UNREACHABLE_CODE

/* message("What a strange feeling!"); */
int
lspo_message(lua_State *L)
{
    char *levmsg;
    int old_n, n;
    const char *msg;

    int argc = lua_gettop(L);

    if (argc < 1) {
        nhl_error(L, "Wrong parameters");
        /*NOTREACHED*/
        return 0;
    }

    create_des_coder();

    msg = luaL_checkstring(L, 1);

    old_n = gl.lev_message ? (Strlen(gl.lev_message) + 1) : 0;
    n = Strlen(msg);

    levmsg = (char *) alloc(old_n + n + 1);
    if (old_n)
        levmsg[old_n - 1] = '\n';
    if (gl.lev_message)
        (void) memcpy((genericptr_t) levmsg, (genericptr_t) gl.lev_message,
                      old_n - 1);
    (void) memcpy((genericptr_t) &levmsg[old_n], msg, n);
    levmsg[old_n + n] = '\0';
    Free(gl.lev_message);
    gl.lev_message = levmsg;

    return 0;  /* number of results */
}

RESTORE_WARNING_UNREACHABLE_CODE