#!/usr/bin/perl

# This perl script is used to generate commands.txt.
# GPL, NO WARRANTY, see COPYING for what it's worth.

while (<>) {
	if (m{^///}) {
		s{^///}{};
		s{^ }{};
		print "   " if ($needspace & $dopad);
		print;
		$needspace = 1;
		$setdopad = 1;
	} else {
		print "\n" if ($needspace);
		$dopad = 1 if ($setdopad);
		$needspace = 0;
	}
}