#!/usr/local/bin/perl

# 
# xdvi-pageroll: dvipages の組み合わせによる xdvi の全頁めくり
# 
#     [1999/09/02] OSHIRO Naoki.
# 
#     $Log:$
#

if ($#ARGV<0) {
    print STDERR "Usage: xdvi-rollpage dvifile\n";
    exit;
}

$file=$ARGV[0];
open(F, "dvipages $file|");
$page=<F>;
close(F);
chop($page);
$page=~s/^(\d+) .*/$1/;
$win=$file;
print "$file $page pages\n";
system("xse -win '$win' '<Key>0' '<Key>g'\n");
for ($i=0; $i<$page; $i++) {
    system("xse -win '$win' '<Key>space'\n");
    $has_psfig=0;
    $n=2;
    while (1) {
	$_="";
	for ($j=0; $j<$n; $j++) {
	    open(F, "ps -ax | grep 'gs'|");
	    $_.=join(' ', <F>);
	    close(F);
	    sleep(1);
	}
	if (m#/usr/local/bin/gs#) {
	    $n=5;
	} else {
	    last;
	}
  }
}
system("xse -win '$win' '<Key>0' '<Key>g'\n");