..

0	#!/bin/awk -f
1	#―――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――
2	# Nomo: unulingvigaj_sed_parametroj
3	# Pri: Per Minetest’a tradukdosiero (*.*.tr), presas regulajn esprimojn
4	# sed-formajn kiuj anstataŭigus la originalan tekston per la
5	# traduko, se doniĝus al sed kiel parametro. Tio unulingvigus modifaĵon.
6	# Dato: 2024-08-01
7	# Perm: GPLv3
8	# El: Ĵado Ajn <jadedctrl@posteo.at>
9	#―――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――
10
11	BEGIN {
12	FS = "="
13	}
14
15	$0 ~ "=" {
16	gsub(/'/, ".", $1)
17	gsub(/"/, ".", $1)
18	gsub(/\^/, ".", $1)
19	gsub(/\[/, "\\[", $1)
20
21	gsub(/"/, "\\\"", $2)
22	printf("s^S(\"%s\"^S(\"%s\"^g; ", $1, $2)
23
24	gsub(/\\"/, "\"", $2)
25	gsub(/'/, "\"", $2)
26	printf("s^S('%s'^S('%s'^g; ", $1, $2)
27	}