PoC script for checking if brackets/parens are matching in a Red file

check-brackets.red

Red [
    Purpose: "PoC script for checking if brackets/parens are matching in a Red file"
]

check-brackets: function [file [file!]][
	line: 1
	stack: clear []
	skip-chars: complement charset "[]()^/"
	
	parse read file [
		some [
			some skip-chars
			| pos: [
				  #"^/" (line: line + 1)
				| [#"(" | #"["] (repend stack [pos/1 line])
				| [#")" | #"]"] (
					either (select ")(][" pos/1) = first entry: skip tail stack -2 [clear entry][
						unless empty? stack [line: last stack]
						print ["No opening match for closing" pos/1 "at line" line]
						exit
					]
				)
			]
		]
	]
	either empty? stack [none][
		entry: skip tail stack -2
		print ["Opening" entry/1 "at line" entry/2 "not closed"]
	]
]