SoundCloud music playlist plugin for VLC

aaasoundcloud_single.lua

--[[--
  aaasoundcloud_single.lua - SonundCloud track parser
  Copyright (C) 2016-2018 Sono (https://github.com/MarcuzD)
  
  This program is free software: you can redistribute it and/or modify  
  it under the terms of the GNU General Public License as   
  published by the Free Software Foundation, either version 3, or
  (at your option) any later version.
  
  This program is distributed in the hope that it will be useful, but 
  WITHOUT ANY WARRANTY; without even the implied warranty of 
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 
  General Lesser Public License for more details.
  
  You should have received a copy of the GNU General Public License
  along with this program. If not, see <http://www.gnu.org/licenses/>.
  
  This is a VLC playlist plugin that can play SoundCloud tracks
  
  Note: if it's not working, download http://regex.info/code/JSON.lua as VLC/lua/modules/JSON.lua
  
  An example track link: https://soundcloud.com/xdefconx/jump-up-super-star-xdefconx-remix
  
  My GitHub page:     https://github.com/MarcuzD
  My Youtube channel: https://youtube.com/user/mCucc
  
--]]--

-- SoundCloud ClientID
local cid = "QoSeELR4smhYFoJcsrWJ9N6wgQmoo1Yk"

local json = require("JSON"):new()
function json.assert(wat, msg)
	if wat then
		print(msg)
	else
		vlc.msg.err(msg)
	end
end

-- Probe function.
function probe()
    return ( vlc.access == "https" or vlc.access == "http" )
        and string.match( vlc.path, "(soundcloud%.com/[^/]+/[^?/]+)" )
end

local function tf(s)
  local t = {}
  local ejj
  t.main, _, ejj = json:decode(s, 1, nil)
  if not t.main then local _, charnum =  ejj:match("column (%d)+") charnum = tonumber(charnum) vlc.msg.err("================[NO PARSER]================") vlc.msg.err(ejj) vlc.msg.err("================[JSON DUMP]================") vlc.msg.err(s:sub(charnum - 10, charnum + 10)) vlc.msg.err("================[JSON DUMP]================") error(ejj) end
  return t
end

-- Parse function.
function parse()
    local s, ejj = vlc.stream("https://soundcloud.com/oembed?format=json&url=https://" .. vlc.path)
    if s == nil then error(ejj) end
    local line = s:readline()
    if line == nil then error("No oembed line") end
    line = string.match(line, "api.soundcloud.com%%2Ftracks%%2F(%d+)")
    if line == nil then error("No track regex'd") end
    s, ejj = vlc.stream("https://api.soundcloud.com/tracks/" .. line .. "?client_id=" .. cid)
    if s == nil then error(ejj) end
    local buf = {}
    local strr = {}
    line = s:readline()
    if not line then error("No line") end
    strr = tf(line)
    local v = strr.main
    if v == nil then error("No muzik") end
    return {{
            path = (v.stream_url .. "?client_id=" .. cid),
            name = v.title,
            arturl = (v.artwork_url and v.artwork_url or v.user.artwork_url),
            title = v.title,
            artist = (v.user.username .. " (" .. v.user.permalink.. ")"),
            genre = v.genre,
            copyright = v.license,
            description = v.description,
            date = v.created_at,
            url = vlc.access .. "://" .. v.permalink_url,
            meta = 
            {
              ["tag list"] = v.tag_list,
              ["creation time"] = v.created_at
            }
           }}
end
--[[--
  aaasoundcloud_single.lua - SonundCloud track parser
  Copyright (C) 2016-2018 Sono (https://github.com/MarcuzD)
  
  This program is free software: you can redistribute it and/or modify  
  it under the terms of the GNU General Public License as   
  published by the Free Software Foundation, either version 3, or
  (at your option) any later version.
  
  This program is distributed in the hope that it will be useful, but 
  WITHOUT ANY WARRANTY; without even the implied warranty of 
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 
  General Lesser Public License for more details.
  
  You should have received a copy of the GNU General Public License
  along with this program. If not, see <http://www.gnu.org/licenses/>.
  
  This is a VLC playlist plugin that can play SoundCloud tracks
  
  Note: if it's not working, download http://regex.info/code/JSON.lua as VLC/lua/modules/JSON.lua
  
  An example track link: https://soundcloud.com/xdefconx/jump-up-super-star-xdefconx-remix
  
  My GitHub page:     https://github.com/MarcuzD
  My Youtube channel: https://youtube.com/user/mCucc
  
--]]--

-- SoundCloud ClientID
local cid = "QoSeELR4smhYFoJcsrWJ9N6wgQmoo1Yk"

local json = require("JSON"):new()
function json.assert(wat, msg)
	if wat then
		print(msg)
	else
		vlc.msg.err(msg)
	end
end

-- Probe function.
function probe()
    return ( vlc.access == "https" or vlc.access == "http" )
        and string.match( vlc.path, "(soundcloud%.com/[^/]+/[^?/]+)" )
end

local function tf(s)
  local t = {}
  local ejj
  t.main, _, ejj = json:decode(s, 1, nil)
  if not t.main then local _, charnum =  ejj:match("column (%d)+") charnum = tonumber(charnum) vlc.msg.err("================[NO PARSER]================") vlc.msg.err(ejj) vlc.msg.err("================[JSON DUMP]================") vlc.msg.err(s:sub(charnum - 10, charnum + 10)) vlc.msg.err("================[JSON DUMP]================") error(ejj) end
  return t
end

-- Parse function.
function parse()
    local s, ejj = vlc.stream("https://soundcloud.com/oembed?format=json&url=https://" .. vlc.path)
    if s == nil then error(ejj) end
    local line = s:readline()
    if line == nil then error("No oembed line") end
    line = string.match(line, "api.soundcloud.com%%2Ftracks%%2F(%d+)")
    if line == nil then error("No track regex'd") end
    s, ejj = vlc.stream("https://api.soundcloud.com/tracks/" .. line .. "?client_id=" .. cid)
    if s == nil then error(ejj) end
    local buf = {}
    local strr = {}
    line = s:readline()
    if not line then error("No line") end
    strr = tf(line)
    local v = strr.main
    if v == nil then error("No muzik") end
    return {{
            path = (v.stream_url .. "?client_id=" .. cid),
            name = v.title,
            arturl = (v.artwork_url and v.artwork_url or v.user.artwork_url),
            title = v.title,
            artist = (v.user.username .. " (" .. v.user.permalink.. ")"),
            genre = v.genre,
            copyright = v.license,
            description = v.description,
            date = v.created_at,
            url = vlc.access .. "://" .. v.permalink_url,
            meta = 
            {
              ["tag list"] = v.tag_list,
              ["creation time"] = v.created_at
            }
           }}
end