File: data_messinfo.lua

package info (click to toggle)
mame 0.284%2Bdfsg1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 928,352 kB
  • sloc: cpp: 5,466,696; xml: 2,242,157; ansic: 752,116; sh: 34,431; lisp: 19,643; python: 17,598; makefile: 13,259; java: 8,492; yacc: 8,152; javascript: 7,147; cs: 6,013; asm: 4,786; ada: 1,681; pascal: 1,191; lex: 1,174; perl: 585; ruby: 373
file content (38 lines) | stat: -rw-r--r-- 912 bytes parent folder | download 
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
 
local dat = {}

local ver, info
local datread = require('data/load_dat')
datread, ver = datread.open(
	'messinfo.dat',
	'#     MESSINFO.DAT',
	function (str) return str:gsub('\n\n', '\n') end)

function dat.check(set, softlist)
	if softlist or not datread then
		return nil
	end
	local status, drvinfo
	status, info = pcall(datread, 'mame', 'info', set)
	if not status or not info then
		return nil
	end
	local sourcefile = emu.driver_find(set).source_file:match('[^/\\]+[/\\\\][^/\\]*$')
	status, drvinfo = pcall(datread, 'drv', 'info', sourcefile)
	if not drvinfo then
		status, drvinfo = pcall(datread, 'drv', 'info', sourcefile:match('[^/\\]*$'))
	end
	if drvinfo then
		info = info .. _p('plugin-data', '\n\n--- DRIVER INFO ---\nDriver: ') .. sourcefile .. '\n\n' .. drvinfo
	end
	return _p('plugin-data', 'MESSinfo')
end

function dat.get()
	return info
end

function dat.ver()
	return ver
end

return dat