#!/usr/bin/perl
#
#

# Let's process the TOC file

open(TOC, "examples.toc");
while (<TOC>) {
	chop;
	($page, $name) = split;
	$table{$name} = $page;
}
close(TOC);

open(IN, "contents.in");
open(OUT, ">01.contents.ps");

while (<IN>) {
	while (($name) = /\@page\(([^)]+)\)/) {
		if (!defined($table{$name})) {
			print 
		"Warning! \@page($name) not found.\n";
		}
		s/\@page\($name\)/$table{$name}/g;
	}
	print OUT $_;
}

close(IN);
close(OUT);