gen.pl

#!/usr/bin/perl

# requires pandoc 1.10+

sub pandoc_generate_pdf
{
	($DIR, $DOC) = @_;

	chdir($DIR);

	print "Generating $DOC PDF...\n";

	my $CMD = "pandoc $DOC.markdown " .
		" -f markdown+pipe_tables+fenced_code_blocks+definition_lists " .
        	"--smart --normalize --number-sections --section-divs --toc " .
        	"--variable=links-as-notes:true --variable=documentclass:report --to=latex " .
        	"--variable=lang:english --variable=urlcolor:black --variable=linkcolor:black " .
		" --variable=verbatim-in-note:true " .
        	"--output=$DOC.pdf";

	print "$CMD\n";

	system($CMD);

	chdir("..");

	print "Done!\n";
}

$USER_DIR = "User";
$USER_DOC = "FreeRDP-User-Manual";

$DEV_DIR = "Developer";
$DEV_DOC = "FreeRDP-Developer-Manual";

$CFG_DIR = "Configuration";
$CFG_DOC = "FreeRDP-Configuration-Manual";

$TEST_DIR = "Testing";
$TEST_DOC = "FreeRDP-Testing-Manual";

@DIRS = ();
@DOCS = ();

foreach $i (0 .. $#ARGV) {
	if ($ARGV[$i] =~ m/^user$/) {
		push(@DIRS, $USER_DIR);
		push(@DOCS, $USER_DOC);
	} elsif ($ARGV[$i] =~ m/^dev$/) {
		push(@DIRS, $DEV_DIR);
		push(@DOCS, $DEV_DOC);
	} elsif ($ARGV[$i] =~ m/^cfg$/) {
		push(@DIRS, $CFG_DIR);
		push(@DOCS, $CFG_DOC);
	} elsif ($ARGV[$i] =~ m/^test$/) {
		push(@DIRS, $TEST_DIR);
		push(@DOCS, $TEST_DOC);
	}
}

if ($#ARGV eq -1) {
	@DIRS = ($USER_DIR, $DEV_DIR, $CFG_DIR, $TEST_DIR);
	@DOCS = ($USER_DOC, $DEV_DOC, $CFG_DOC, $TEST_DOC);
}

foreach (@DOCS) {
	$DIR = shift(@DIRS);
	pandoc_generate_pdf($DIR, $_,);
}