View difference between Paste ID: yf013znn and QrZ33T6H

-local note_lookup_table = {
+-- make global functions local for faster lookup
-	['1000'] = '4',    ['0100'] = '2',
+local table = table
-	['0010'] = '8',    ['0001'] = '6',
+local append, concat = table.insert, table.concat
-	['1100'] = '1',    ['1010'] = '7',
+local string = string
-	['1001'] = 'B',    ['0110'] = 'A',
+local sub, gsub, lower = string.sub, string.gsub, string.lower
-	['0101'] = '3',    ['0011'] = '9',
+local find, match, gmatch = string.find, string.match, string.gmatch
-	['1110'] = '<81>', ['0111'] = '<83>',
+local ipairs, pairs = ipairs, pairs
-	['1101'] = '<61>', ['1011'] = '<8B>',
+
-	['1111'] = '<19>', ['0000'] = '0',
+local function file_search(filter, dir_path)
-}
+	local function c_in(value, tab)
 		for _, v in pairs(tab) do
-function string:getFieldContents(field)
+			if v == value then return true end
-	local _, idx = self:find('#' .. field .. ':')
+
-	local str = self:match('%b:;', idx)
+		return false
-	return str:sub(2, #str - 1)
+
 
 	function string:split(sep)
 		local sep, fields = sep or ":", {}
 		local pattern = string.format("([^%s]+)", sep)
 		self:gsub(pattern, function(c) fields[#fields+1] = c end)
 		return fields
-		table.insert(beat_notes, note_lookup_table[note])
+
-		table.insert(beat_notes, '') -- for possible note padding
+
 	local fs = require 'lfs'
 	local filter = string.lower(filter) or "*"
 	local dir_path = dir_path or fs.currentdir()
 	local extensions = filter:split(";")
 
-	elseif note_count == 8 then
+	local files = {}
 	for _, path in ipairs(dir_path:split(";")) do
 		for f in fs.dir(path) do
-		beat_notes[1] = '['; table.insert(beat_notes, ']')
+			if f ~= "." and f ~= ".." then
 				local attr = fs.attributes(path..'\\'..f)
-		beat_notes[1] = '('; table.insert(beat_notes, ')')
+				if attr.mode == "file" then
 					if filter=="*" or
-		beat_notes[1] = '['; table.insert(beat_notes, ']')
+					c_in(lower(f:match('%.%w*$')), extensions) then
 						append(files, {path = path..'\\', name = f})
 					end
-		beat_notes[1] = '{'; table.insert(beat_notes, '}')
+				elseif attr.mode == "directory" then
 					local subf = file_search(filter, path..'\\'..f)
 					for _, v in ipairs(subf) do
-		beat_notes[1] = '`'; table.insert(beat_notes, '\'')
+						append(files, {path = v.path, name = v.name})
 					end
-		beat_notes[1] = '{'; table.insert(beat_notes, '}')
+				end
 			end
 		end
-		beat_notes[1] = '`'; table.insert(beat_notes, '\'')
+
 	return files
-		beat_notes[1] = '`'; table.insert(beat_notes, '\'')
+
 
 local function processMeasure(measure)
 	local note_lookup_table = {
 		['1000'] = '4',    ['0100'] = '2',
-	return table.concat(beat_notes) .. '\n'
+		['0010'] = '8',    ['0001'] = '6',
 		['1100'] = '1',    ['1010'] = '7',
 		['1001'] = 'B',    ['0110'] = 'A',
 		['0101'] = '3',    ['0011'] = '9',
 		['1110'] = '<81>', ['0111'] = '<83>',
 		['1101'] = '<61>', ['1011'] = '<8B>',
 		['1111'] = '<19>', ['0000'] = '0',
-		local tmp = io.open(full_path .. '.sm')
+	}
 	local beat_notes = {''} -- reserve beat_notes[1] for opening tag if necessary
 	local note_count = 0
 
 	for note in measure:gmatch('%d%d%d%d') do
 		append(beat_notes, note_lookup_table[note])
 		append(beat_notes, '') -- for possible note padding
 		note_count = note_count + 1
 	end
 
-		if idx then
+
-			changebpm = changebpm:sub(idx + 1)
+
-		else
+	elseif note_count == 8 then
-			changebpm = ''
+
 		for i=3, 25, 2 do beat_notes[i] = '0' end
 		beat_notes[1] = '['; append(beat_notes, ']')
 	elseif note_count == 16 then
-	-- multiply all measures by 4 to convert to beat counts
+		beat_notes[1] = '('; append(beat_notes, ')')
-	local changebpm_str = {}
+
-	if changebpm ~= '' then
+		beat_notes[1] = '['; append(beat_notes, ']')
-		for beat, bpm, comma in changebpm:gmatch('(%d+%.?%d*)%s*(=%s*%d+%.?%d*)(,?)') do
+
-			table.insert(changebpm_str, string.format("%.3f", tonumber(beat) * 4)..bpm)
+
-			if comma ~= '' then table.insert(changebpm_str, ',') end
+		beat_notes[1] = '{'; append(beat_notes, '}')
 	elseif note_count == 48 then
 		for i=3, 97, 2 do beat_notes[i] = '000' end
 		beat_notes[1] = '`'; append(beat_notes, '\'')
 	elseif note_count == 64 then
 		beat_notes[1] = '{'; append(beat_notes, '}')
-	table.insert(file_contents, '#TITLE:'		  .. sm_file:getFieldContents('TITLE')					  .. ';\n')
+
-	table.insert(file_contents, '#ARTIST:'		  .. sm_file:getFieldContents('ARTIST')					  .. ';\n')
+
-	table.insert(file_contents, '#FILE:'		  .. sm_file:getFieldContents('MUSIC')					  .. ';\n')
+		beat_notes[1] = '`'; append(beat_notes, '\'')
-	table.insert(file_contents, '#BPM:'			  .. start_bpm											  .. ';\n')
+
-	table.insert(file_contents, '#GAP:'			  .. tonumber(sm_file:getFieldContents('OFFSET')) * -1000 .. ';\n')
+		beat_notes[1] = '`'; append(beat_notes, '\'')
-	table.insert(file_contents, '#SAMPLESTART:'	  .. sm_file:getFieldContents('SAMPLESTART')			  .. ';\n')
+
-	table.insert(file_contents, '#SAMPLELENGTH:'  .. sm_file:getFieldContents('SAMPLELENGTH')			  .. ';\n\n')
+
-	if changebpm ~= '' then
+
-		table.insert(file_contents, '#CHANGEBPM:' .. table.concat(changebpm_str)						  .. ';\n')
+
 	return concat(beat_notes) .. '\n'
-	table.insert(file_contents, '#SINGLE:MANIAC:1:\n')
+
 
-	do -- extract start of note data to end of file
+-------------------------------------------------------------------------------------------------
-		local _, idx = sm_file:find('%d+%.%d+%s*%:', idx)
+
-		sm_file = sm_file:sub(idx + 1)
+
 	-- open sm file to read contents into string
 	local sm_file
 	do
-		table.insert(file_contents, processMeasure(measure))
+		local tmp = io.open(full_path)
 		sm_file = tmp:read('*a')
 		tmp:close()
-	-- save converted file
+
-	local dwi_file = io.open(full_path .. '.dwi', 'w')
+
-	dwi_file:write(table.concat(file_contents)..'\n')
+	function string:getFieldContents(field)
-	dwi_file:close()
+		local _, idx = self:find('#'..field..':')
 		local str = self:match('%b:;', idx)
 		return str:sub(2, #str - 1)
-smToDwi('test')
+
 
 	local changebpm = sm_file:getFieldContents('BPMS')
 	local start_bpm
 	do -- separate first bpm and bpm changes
 		start_bpm = changebpm:match('%d+%.?%d*%s*=%s*(%d+%.?%d*)')
 		local _, idx = changebpm:find('%d+%.?%d*%s*=%s*%d+%.?%d*%s*,')
 
 		if idx then	changebpm = changebpm:sub(idx + 1)
 		else changebpm = ''	end
 	end
 
 	if changebpm then -- multiply all measures by 4 to convert to beats
 		changebpm = changebpm:gsub('(%d+%.?%d*)(%s*=%s*%d+%.?%d*,?)', function(beat, bpm)
 			return string.format('%.3f', beat * 4)..bpm
 		end)
 	end
 
 	-- process common .sm file fields
 	local file_contents = {}
 	append(file_contents, '#TITLE:'			.. sm_file:getFieldContents('TITLE')					.. ';\n')
 	append(file_contents, '#ARTIST:'		.. sm_file:getFieldContents('ARTIST')					.. ';\n')
 	append(file_contents, '#FILE:'			.. sm_file:getFieldContents('MUSIC')					.. ';\n')
 	append(file_contents, '#BPM:'			.. start_bpm											.. ';\n')
 	append(file_contents, '#GAP:'			.. tonumber(sm_file:getFieldContents('OFFSET')) * -1000 .. ';\n')
 	append(file_contents, '#SAMPLESTART:'	.. sm_file:getFieldContents('SAMPLESTART')				.. ';\n')
 	append(file_contents, '#SAMPLELENGTH:'  .. sm_file:getFieldContents('SAMPLELENGTH')				.. ';\n\n')
 	if changebpm then
 		append(file_contents, '#CHANGEBPM:' .. changebpm											.. ';\n')
 	end
 	append(file_contents, '#SINGLE:MANIAC:1:\n')
 
 	sm_file = sm_file:match(':.+$') -- extract start of note data to end of file
 
 	for measure in sm_file:gmatch('.-[,;]') do
 		append(file_contents, processMeasure(measure))
 	end
 
 	do -- save converted file
 		local contents = concat(file_contents)
 		local dwi_file = io.open(full_path:gsub('%.%w*$', '.dwi'), 'w')
 		dwi_file:write(contents..'\n')
 		dwi_file:close()
 	end
 end
 
 -------------------------------------------------------------------------------------------------
 
 for _, file in ipairs(file_search('.sm;.ssc;.ds')) do
 	smToDwi(file.path .. file.name)
 end