pdisc/parser.lua

local function parse_zeile(marken, imms, z, ip)
	-- Kommentar entfernen
	local komment = z:find";"
	if komment then
		z = z:sub(1, komment-1)
	end

	z = z:trim()
	if #z == 0 then
		return {}
	end

	-- Marke erkennen
	local marke = z:find":"
	if marke then
		local mname = z:sub(1, marke - 1)
		marken[mname] = ip

		z = z:sub(marke+1):trim()
		if #z == 0 then
			return {}
		end
	end

	-- Befehl erkennen
	local immn = #imms+1
	local befehl = z
	local args
	local leernb = z:find" "
	if leernb then
		befehl = z:sub(1, leernb - 1)

		-- Argument(e) erkennen
		z = z:sub(leernb+1):trim()
		args = z:split","
		for i = 1,#args do
			local arg = args[i]:trim()
			if #arg == 0
			or arg == "false" then
				arg = false
			elseif arg == "true" then
				arg = true
			elseif arg:sub(1, 1) == "$" then
				imms[immn] = arg:sub(2)
				arg = immn
				immn = immn+1
			elseif tonumber(arg) then
				imms[immn] = tonumber(arg)
				arg = immn
				immn = immn+1
			end
			args[i] = arg
		end
	end

	return {befehl, args}
end

local function zeileniter(text)
	return function()
		if not text then
			return
		end
		local umbruch = text:find"\n"
		if not umbruch then
			local rv = text
			text = nil
			return rv
		end
		local rv = text:sub(1, umbruch-1)
		text = text:sub(umbruch+1)
		return rv
	end
end

return function(programm)
	local imms = {}
	local marken = {}

	-- Programm erkennen
	local anz = 0
	local liste = {}
	local zn = 1
	for zeile in zeileniter(programm) do
		local befehl = parse_zeile(marken, imms, zeile, anz + 1)
		if befehl[1] then
			befehl[3] = zn  -- Zeilennummer für Fehlernachrichten
			anz = anz + 1
			liste[anz] = befehl
		end
		zn = zn+1
	end
	local immn = #imms+1

	-- Marken durch immediates ersetzen
	for i = 1,anz do
		local args = liste[i][2]
		if args then
			for i = 1,#args do
				local mwert = marken[args[i]]
				if mwert then
					imms[immn] = mwert
					args[i] = immn
					immn = immn+1
				end
			end
		end
	end

	return {imms, liste}
end