summaryrefslogtreecommitdiffstatshomepage
path: root/plugins/data/init.lua
blob: 9387a4697445b8ef57167257244faed3d91a7510 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
-- license:BSD-3-Clause
-- copyright-holders:Carl
-- A data script should contain two functions check which takes a set name and returns the data
-- heading if it supports the set otherwise nil and get which returns the data
-- the script should be named data_<name>.lua
-- this is set default on in the plugin.json
local exports = {}
exports.name = "data"
exports.version = "0.0.1"
exports.description = "Data plugin"
exports.license = "The BSD 3-Clause License"
exports.author = { name = "Carl" }

local data = exports

function data.set_folder(path)
	data.path = path
end

function data.startplugin()
	local data_scr = {}
	local valid_lst = {}
	local cur_set
	local cur_list
	emu.register_start(function()
		data_scr = {}
		for file in lfs.dir(data.path) do
			local name = string.match(file, "^(data_.*).lua$")
			if name then
				local script = require("data/" .. name)
				if script then
					data_scr[#data_scr + 1] = script
				end
			end
		end
	end)
	emu.register_callback(function(set)
		local ret
		if set == "" then
			set = emu.romname()
		end
		if set == cur_set then
			return cur_list
		end
		cur_set = set
		if not set then
			return nil
		end
		valid_lst = {}
		for num, scr in ipairs(data_scr) do
			local setname, softname = set:match("^([^,]+),?(.*)$")
			if softname == "" then
				softname = nil
			end
			local name = scr.check(setname, softname)
			if name then
				if not ret then
					ret = name
				else
					ret = ret .. "," .. name
				end
				valid_lst[#valid_lst + 1] = scr
			end
		end
		cur_list = ret
		return ret
	end, "data_list")

	emu.register_callback(function(num)
		return valid_lst[num + 1].get()
	end, "data")

	emu.register_callback(function(num)
		local ver
		if valid_lst[num + 1].ver then
			ver = valid_lst[num + 1].ver()
		end
		if ver then
			return ver
		end
		return ""
	end, "data_version")
end

return exports