+if ($type eq 'core-ld') {
+ do_core_link(@ARGV);
+} elsif ($type eq 'link-dir') {
+ do_link_dir(@ARGV);
+} elsif ($type eq 'gen-o') {
+ do_compile(1, 0, @ARGV);
+} elsif ($type eq 'gen-so') {
+ do_compile(1, 1, @ARGV);
+} elsif ($type eq 'link-so') {
+ do_compile(0, 1, @ARGV);
+} else {
+ print STDERR "Unknown unit-cc subcommand $type!\n";
+}
+exit 1;
+
+sub message($$$) {
+ my ($type, $file, $command) = @_;
+ if ($ENV{INSPIRCD_VERBOSE}) {
+ print "$command\n";
+ } else {
+ print_format "\t<|GREEN $type:|>\t\t$file\n";
+ }