Function URL_new

engine/script/src/script_msg.cpp:336–452

creates a new URL from separate arguments * * @name msg.url * @param [socket] [type:string|hash] socket of the URL * @param [path] [type:string|hash] path of the URL * @param [fragment] [type:string|hash] fragment of the URL * @return url [type:url] a new URL * @examples * * ```lua * local my_socket = "main" -- specify by valid name * local my

     * ```
     */
    int URL_new(lua_State* L)
    {
        int top = lua_gettop(L);
        (void)top;
        dmMessage::URL url;
        dmMessage::ResetURL(&url);
        if (top < 2)
        {
            ResolveURL(L, 1, &url, 0x0);
        }
        else if (top == 3)
        {
            dmMessage::URL source;
            if (lua_isnil(L, 1))
            {
                dmMessage::ResetURL(&source);
                GetURL(L, &source);
            }
            if (!lua_isnil(L, 1))
            {
                dmhash_t* phash = dmScript::ToHash(L, 1);
                if (phash != 0)
                {
                    url.m_Socket = *phash;
                }
                else
                {
                    const char* s = lua_tostring(L, 1);
                    dmMessage::Result result = dmMessage::GetSocket(s, &url.m_Socket);
                    switch (result)
                    {
                        case dmMessage::RESULT_OK:
                        case dmMessage::RESULT_NAME_OK_SOCKET_NOT_FOUND:
                            break;
                        case dmMessage::RESULT_INVALID_SOCKET_NAME:
                            return luaL_error(L, "The socket '%s' name is invalid.", s);
                        default:
                            return luaL_error(L, "Error when getting socket '%s': %d.", s, result);
                    }
                }
            }
            else
            {
                url.m_Socket = source.m_Socket;
            }
            if (!lua_isnil(L, 2))
            {
                if (lua_isstring(L, 2))
                {
                    const char* path = lua_tostring(L, 2);
                    if (lua_isnil(L, 1) || (lua_isstring(L, 1) && *lua_tostring(L, 1) == '\0'))
                    {
                        size_t path_size = strlen(path);
                        if (path_size > 0)
                        {
                            ResolvePath(L, path, path_size, url.m_Path);
                        }
                        else