#!/usr/bin/perl

use warnings;
use strict;

foreach my $f (@ARGV) {
	my $d = $f;
	$d =~ s@/[^/]*$@/@;
	open X, $f or die;
	while (<X>) {
		/^\\input .*sgr\.tex/ && next;
		/^\\references/ && next;
		/^\\bye/ && last;
		s@\\(putepdf){([^}]*)}{([^}]+)}@\\$1\{$2}\{$d$3}@g;
		s@\\(figure|fig|inlinefig){([^}]+)}@\\$1\{$d$2}@g;
		s@\\(twofigures)\{([^}]+)}(\{[^}]+}\{[^}]+})\{([^}]+)}@\\$1\{$d$2}$3\{$d$4}@g;
		print;
	}
	close X;
	print "\\chapterend\n";
}