load-ini.red

Red [
	title: "Loads an INI file and returns a map!"
	notes: "semi-colons treats as comment"
]
load-ini: function [ini [file! string!]] [
	m: copy #()
	if file? ini [ini: read ini]
	parse ini [some [copy word to "=" skip copy value to [";" | newline | end] pos: (
		if #";" = pos/1 [
			unless pos: find pos newline [pos: tail ini]
		]
		put m load word trim value
	) :pos skip]]
	m
]

write %file.ini rejoin ["a=1" newline "  bc   =  value with space" newline " d = value; and comment  " newline "ef=last"]
probe load-ini %file.ini

comment [
	>> write %file.ini rejoin ["a=1" newline "  bc   =  3" newline " d = test; comment  " newline "ef=end"]
	>> probe load-ini %file.ini

	== #(
		a: "1"
		bc: "3"
		d: "test"
		ef: "end"
	)
]