Visionaire Studio 4.2.5 Released

I didn't use lua socket yet, what's the difference between lua socket and libcurl?

--[[
Lua-Curl script for Visionaire
(c) 13/6/2015
]]

curl_multi = curl.new_multi()
curls = {}
handles_count = 1
loadcount = 0
max_loadcount = 10
loadlist = {}

function GET(url, func,param, buf, startoffset, endoffset)
	if buf~=nil then
		table.insert(curls,{curl.new(),buf, func,param})
	else
		table.insert(curls,{curl.new(),{}, func,param})
	end
    c = curls[#curls][1]
    c:setopt(curl.OPT_URL, url)
	if startoffset ~= nil then
		c:setopt(curl.OPT_RANGE, startoffset.."-"..endoffset)
	end
    c:setopt(curl.OPT_FOLLOWLOCATION, true)
    c:setopt(curl.OPT_TIMEOUT, 300)
    c:setopt(curl.OPT_IOCTLFUNCTION, function (param, buf) return #buf end)
    c:setopt(curl.OPT_HEADERFUNCTION, function (param, buf) return #buf end)
    c:setopt(curl.OPT_WRITEDATA, {curls[#curls]})
    c:setopt(curl.OPT_WRITEFUNCTION, function (param, buf)
        table.insert(param[1][2], buf) -- store a chunk of data received
--		if(param[1][4]~=nil)then
		--sprites[param[1][4]] = graphics.loadMemoryJPG(table.concat(param[1][2]))
--		end
        return #buf
    end)
    c:setopt(curl.OPT_PROGRESSDATA, {curls[#curls]})
    c:setopt(curl.OPT_PROGRESSFUNCTION, function(param, dltotal, dlnow)
        if param[1][4][2]~=nil then
            param[1][4][2](dtotal, dnow)
        end
--        print('%', url, dltotal, dlnow) -- do your fancy reporting here
    end)
    c:setopt(curl.OPT_NOPROGRESS, false) -- use this to activate progress
    curl_multi:add(c)
    curl_multi:perform()
end

function POST(url,data,func,param, buf, startoffset, endoffset)
    if buf~=nil then
        table.insert(curls,{curl.new(),buf, func,param})
    else
        table.insert(curls,{curl.new(),{}, func,param})
    end
    c = curls[#curls][1]
    c:setopt(curl.OPT_URL, url)
    if startoffset ~= nil then
        c:setopt(curl.OPT_RANGE, startoffset.."-"..endoffset)
    end
    c:setopt(curl.OPT_FOLLOWLOCATION, true)
    c:setopt(curl.OPT_TIMEOUT, 300)
    c:setopt(curl.OPT_WRITEDATA, {curls[#curls]})
    c:setopt(curl.OPT_WRITEFUNCTION, function (param, buf)
        table.insert(param[1][2], buf) -- store a chunk of data received
--		if(param[1][4]~=nil)then
		--sprites[param[1][4]] = graphics.loadMemoryJPG(table.concat(param[1][2]))
--		end
        return #buf
    end)
	c:setopt(curl.OPT_POST, true)
    c:setopt(curl.OPT_POSTFIELDS, data)
    c:setopt(curl.OPT_NOPROGRESS, false) -- use this to activate progress
    curl_multi:add(c)
    curl_multi:perform()
end

function postRequest(httpurl, data, onFinish, onProgress)
    POST(httpurl, data, onFinish, {nil, onProgress})
end

function downloadFile(httpurl, file, onFinish, onProgress)
    GET(httpurl, function(s, param) 
        local file = io.open(param[1], "wb");file:write(s);file:close() 
        onFinish() 
    end, {file, onProgress})
end

function downloadMemory(httpurl, onFinish, onProgress)
    GET(httpurl, onFinish, {nil, onProgress})
end

function update_curl()
    while loadcount < max_loadcount and #loadlist > 0 do
        loadcount = loadcount + 1 
        GET(loadlist[1][1], function(s,param) loadcount = loadcount - 1; param[2](s,param[3]) end, loadlist[1])
        table.remove(loadlist, 1)
    end
    local handles = curl_multi:perform()
    local result = curl_multi:info()
    if result ~= -1 then
        for k,v in pairs(curls) do
            if tostring(v[1]) == tostring(result) then
                local size = v[1]:getinfo(curl.INFO_CONTENT_LENGTH_DOWNLOAD)
                local downsize = v[1]:getinfo(curl.INFO_SIZE_DOWNLOAD)
                if(size~=-1 and size~=downsize)then
                    print("not complete")
                    local element = table.remove(curls, k)
--                  GET(v[1]:getinfo(curl.INFO_EFFECTIVE_URL),v[3],v[4],v[2],downsize,size)
                else
--                    if v[1][4]~=nil then
--                        sprites[v[1][4]]=nil
--                    end
                    v[3](table.concat(v[2]),v[4])
                    table.remove(curls, k)
                end
                break
            end
        end
    end
end

registerEventHandler("mainLoop", "update_curl")

— Post
postRequest("http://httpbin.org/post", "hello=world&obst=apfel",function(s, param) print(s) end)

— Download content
downloadMemory("http://google.de/",function(s, param) print(s) end)

— Download File (and save)
downloadFile("https://pbs.twimg.com/profile_images/638751551457103872/KN-NzuRl.png", localAppDir.."/test.png", function() sprite = graphics.loadFromFile(localAppDir.."/test.png") end)

— Download File as MemoryFile
downloadMemory("https://pbs.twimg.com/profile_images/638751551457103872/KN-NzuRl.png", function(s, param) sprite2 = graphics.loadMemoryJPG(s) end)

— and here an draw to display the images
function draw()
if sprite2 ~= nil then
sprite.position = {x = posx, y = 0}
graphics.drawSprite(sprite2)
end
if sprite ~= nil then
graphics.drawSprite(sprite)
end
-- Font switch
--    graphics.font = Fonts.blocked
graphics.drawFont("  Test\nTest", 10, 10)
end

graphics.setDrawFunc("draw()")

startTween("posx", posx, 300, 3000, easeQuadInOut, true, true)

local mouse_x = 0
local mouse_y = 0
local charmove_x = 0
local charmove_y = 0

function keyboardHandler(eventType, character, keycode, modifiers)
	if eventType==eEvtKeyUp then
		print('key up: ' .. keycode)
		keycode = keycode % 1073741824
		if keycode == 80 then -- left
			charmove_x = 0
		elseif keycode == 79 then -- right
			charmove_x = 0
		elseif keycode == 81 then -- down
			charmove_y = 0
		elseif keycode == 82 then -- up
			charmove_y = 0
		end
		createEvent('eEvtControllerAxisCharacterMove', {x=charmove_x, y=charmove_y},25)
		
	elseif eventType==eEvtKeyDown then
		print('key pressed: ' .. keycode)
		keycode = keycode % 1073741824
		if keycode == 80 then -- left
			charmove_x = -100
		elseif keycode == 79 then -- right
			charmove_x = 100
		elseif keycode == 81 then -- down
			charmove_y = 100
		elseif keycode == 82 then -- up
			charmove_y = -100
		end
		createEvent('eEvtControllerAxisCharacterMove', {x=charmove_x, y=charmove_y},25)		
	elseif eventType==eEvtControllerKeyUp then
		print('controller up: ' .. keycode)
		if keycode == 1000001 then --controller key A up
			createEvent('eEvtMouseLeftButtonDown')
			createEvent('eEvtMouseLeftButtonUp')
--			createEvent('eEvtKeyDown',{x=0,y=0},eKeyEscape,0)
		end
	elseif eventType==eEvtControllerKeyDown then
		print('controller down: ' .. keycode)
		if keycode == 1000001 then --controller key A down
		end
	elseif eventType==eEvtControllerAxis then
		if string.match(character, 'RIGHTX') then
			mouse_x = keycode
			createEvent('eEvtControllerAxisMouseMove', {x=mouse_x, y=mouse_y}, 19, 9)
		elseif string.match(character, 'RIGHTY') then
			mouse_y = keycode
			createEvent('eEvtControllerAxisMouseMove', {x=mouse_x, y=mouse_y}, 19, 9)
		elseif string.match(character, 'LEFTX') then
			charmove_x = keycode
			createEvent('eEvtControllerAxisCharacterMove', {x=charmove_x, y=charmove_y}, 25)
		elseif string.match(character, 'LEFTY') then
			charmove_y = keycode
			createEvent('eEvtControllerAxisCharacterMove', {x=charmove_x, y=charmove_y}, 25)
		end
  	end
  return false
end

registerEventHandler('keyEvent', 'keyboardHandler')

{
  "multiplexer":"",
  "skins": [],
  "files": [
    {
      "name": "PARTS/B_default/aliena_B.json"
    },
    {
      "name": "PARTS/DB_default/aliena_DB.json"
    },
    {
      "name": "PARTS/F_default/aliena_F.json"
    }
  ]
}