#!/bin/csh -f
#
# BoundingBox をつめるもの
# shige
# 01/20 2006
# rebb
#
if ( $#argv < 1 ) then
    echo "Usage: `basename $0` [file1] > [file2]"
    echo "1)  EPS file1 から BoundingBox を詰めた EPS file2 を作成する。"
    exit
endif

if ( ! -f $argv[1] ) then
    echo "File [$argv[1]] が見つかりません。"
    exit
endif

set bbox = tmpf-bb

gs -q -dNOPAUSE -sDEVICE=bbox - < $argv[1] >& $bbox
#gs -q -dNOPAUSE -dBATCH -sDEVICE=bbox $argv[1] >& $bbox
# でもいい。
awk -v bbox=$bbox -v com=$0 '(FILENAME == bbox){h[++N]=$0}\
  (FILENAME != bbox){\
    if($0 ~ /^%%BoundingBox:/){ \
        printf "%%%%BoundingBoxTranslator: %s (by gs bbox device)\n",com; \
        sub(/^%%/,"%%Original"); print $0;\
        for(j=1;j<=N;j++) print h[j] }\
    else print $0}' $bbox $argv[1]
rm $bbox