Red source files header updater

walk-files.red

Red []

dive: function [path action [block!] filter [block!]][
	bind action 'path
	if filter [bind filter 'path]

	foreach file read path [
		if dir? file [dive append copy path file action filter]
		if any [not filter do filter][do action]
	]
]

action: [
	p: append copy path file
	data: read/binary p
	foreach rights [
		"Nenad Rakocevic. All rights reserved."
		"Qingtian Xie. All rights reserved."
	][
		if pos: find data rights [	
			change/part pos "Red Foundation" find pos dot
			either pos/-6 = #"-" [
				pos/-2: #"8"
			][
				insert skip pos -1 "-2018"
			]
			write/binary p data
		]
	]
]

dive %./ action [
	all [
		file <> %walk-files.red
		find [%.red %.r %.reds] suffix? file
	]
]