fix-bounding-box.prl

一个用在mips体系结构中的操作系统

#!/usr/local/bin/perl5 -w
#
# Copyright (C) 1996-1998 by the Board of Trustees
#    of Leland Stanford Junior University.
# 
# This file is part of the SimOS distribution. 
# See LICENSE file for terms of the license. 
#

# 
# Steve Herrod
#
# Terrible hack to fix the bounding box... 

while (<>) {
    if (/^\%\%BoundingBox: (\d+) (\d+) (\d+) (\d+)/) {
        printf("%sBoundingBox: $1 $2 %s $4\n", "%%", $3+65);
    } else {
        print;
    }
}