parse-rock-version.lua

--~ package.path = package.path .. '.\\lua\\?\\init.lua'
--Added the scripts for PenLight and LuaRocks under my project path
package.path = '.\\?\\init.lua;' .. '.\\LuaRocks\\lua\\?.lua;' ..package.path

require('pl')
--Steve!
utils.printf("%s\n","That feels better")

local d = data.read('lfw_modules.tab')
local lrs = require('luarocks.search')

local full_ver = sip.compile('$i{major}.$i{minor}.$i{patch}-$i{revision}')
local no_patch_ver = sip.compile('$i{major}.$i{minor}-$i{revision}')
local no_minor_ver = sip.compile('$i{major}-$i{revision}')

local function get_highest_ver(rock_name, search_res)
    local highest = nil
    if search_res.binaries then
        local rock = search_res.binaries[rock_name:lower()]
        if rock then
            for i,v in pairs(rock) do
                res = {}
                local ok  = full_ver(i,res)
                if not ok then
                    ok = no_patch_ver(i,res)
                    if not ok then
                        ok = no_minor_ver(i,res)
                        if not ok then
                            print('wtf: ' .. i)
                            assert(nil, 'no matching pattern')
                        end
                    end
                end
                if not highest then
                    highest = res
                else
                    print(pretty.write(res))
                    print(pretty.write(highest))
                    if res.major > highest.major then
                        highest = res
                    elseif res.major == highest.major then
                        if res.minor > highest.minor then
                            highest = res
                        elseif res.minor == highest.minor then
                            if res.patch > highest.patch then
                                highest = res
                            elseif res.patch == highest.patch then
                                if res.revision > highest.revision then
                                    highest = res
                                elseif res.revision == highest.revision then
                                    --MATCH
                                    print('MATCH')
                                end
                            end
                        end
                    end
                end
            end
        end
    end
    return highest
end

local function get_rock_result(name)
    local res = lrs.return_search('',name,nil)
    if res then
        local v = get_highest_ver(name, res, sc)
        --~ print(pretty.write(r))
        if v then
            print('And the winner is... \n' .. pretty.write(v))
        else
            print('no results... bummer')
        end
    else
        print ('no results')
    end
end

local q = d:select('NAME,VERSION')
for x,y in q do
    print(x,y)
    get_rock_result(x)
end