shithub: neindaw

ref: e71361d5f47f408ca3192ecdf2a44de48c0aeef9
dir: /piper/notegen/

View raw version 
#!/bin/rc

awk '
	BEGIN {
		octave = -1
	}

	/#/ {
		$1 = tolower($1)
		sub("#", "")
	}

	{
		split($1, n, "")
		if(n[2] != octave){
			if(octave >= 0)
				printf "	},\n"
			printf "	[%d] = {\n", n[2]
		}
		octave = n[2]
		printf "		[''%s''-''A''] = %s,\n", n[1], $2
	}

	END {
		printf "	}\n"
	}
'