rename

epson usb2.0 控制芯片 S1R72V05 固件程序。

#! /usr/bin/perl
#
#  TOPPERS/JSP Kernel
#      Toyohashi Open Platform for Embedded Real-Time Systems/
#      Just Standard Profile Kernel
# 
#  Copyright (C) 2003 by Embedded and Real-Time Systems Laboratory
#                              Toyohashi Univ. of Technology, JAPAN
#  Copyright (C) 2004 by Embedded and Real-Time Systems Laboratory
#              Graduate School of Information Science, Nagoya Univ., JAPAN
# 
#  忋婰挊嶌尃幰偼丆埲壓偺 (1)乣(4) 偺忦審偐丆Free Software Foundation 
#  偵傛偭偰岞昞偝傟偰偄傞 GNU General Public License 偺 Version 2 偵婰
#  弎偝傟偰偄傞忦審傪枮偨偡応崌偵尷傝丆杮僜僼僩僂僃傾乮杮僜僼僩僂僃傾
#  傪夵曄偟偨傕偺傪娷傓丏埲壓摨偠乯傪巊梡丒暋惢丒夵曄丒嵞攝晍乮埲壓丆
#  棙梡偲屇傇乯偡傞偙偲傪柍彏偱嫋戻偡傞丏
#  (1) 杮僜僼僩僂僃傾傪僜乕僗僐乕僪偺宍偱棙梡偡傞応崌偵偼丆忋婰偺挊嶌
#      尃昞帵丆偙偺棙梡忦審偍傛傃壓婰偺柍曐徹婯掕偑丆偦偺傑傑偺宍偱僜乕
#      僗僐乕僪拞偵娷傑傟偰偄傞偙偲丏
#  (2) 杮僜僼僩僂僃傾傪丆儔僀僽儔儕宍幃側偳丆懠偺僜僼僩僂僃傾奐敪偵巊
#      梡偱偒傞宍偱嵞攝晍偡傞応崌偵偼丆嵞攝晍偵敽偆僪僉儏儊儞僩乮棙梡
#      幰儅僯儏傾儖側偳乯偵丆忋婰偺挊嶌尃昞帵丆偙偺棙梡忦審偍傛傃壓婰
#      偺柍曐徹婯掕傪宖嵹偡傞偙偲丏
#  (3) 杮僜僼僩僂僃傾傪丆婡婍偵慻傒崬傓側偳丆懠偺僜僼僩僂僃傾奐敪偵巊
#      梡偱偒側偄宍偱嵞攝晍偡傞応崌偵偼丆師偺偄偢傟偐偺忦審傪枮偨偡偙
#      偲丏
#    (a) 嵞攝晍偵敽偆僪僉儏儊儞僩乮棙梡幰儅僯儏傾儖側偳乯偵丆忋婰偺挊
#        嶌尃昞帵丆偙偺棙梡忦審偍傛傃壓婰偺柍曐徹婯掕傪宖嵹偡傞偙偲丏
#    (b) 嵞攝晍偺宍懺傪丆暿偵掕傔傞曽朄偵傛偭偰丆TOPPERS僾儘僕僃僋僩偵
#        曬崘偡傞偙偲丏
#  (4) 杮僜僼僩僂僃傾偺棙梡偵傛傝捈愙揑傑偨偼娫愙揑偵惗偠傞偄偐側傞懝
#      奞偐傜傕丆忋婰挊嶌尃幰偍傛傃TOPPERS僾儘僕僃僋僩傪柶愑偡傞偙偲丏
# 
#  杮僜僼僩僂僃傾偼丆柍曐徹偱採嫙偝傟偰偄傞傕偺偱偁傞丏忋婰挊嶌尃幰偍
#  傛傃TOPPERS僾儘僕僃僋僩偼丆杮僜僼僩僂僃傾偵娭偟偰丆偦偺揔梡壜擻惈傕
#  娷傔偰丆偄偐側傞曐徹傕峴傢側偄丏傑偨丆杮僜僼僩僂僃傾偺棙梡偵傛傝捈
#  愙揑傑偨偼娫愙揑偵惗偠偨偄偐側傞懝奞偵娭偟偰傕丆偦偺愑擟傪晧傢側偄丏
# 
#  @(#) $Id: rename,v 1.1 2006/04/14 02:46:34 9564907 Exp $
# 

#
#  僼傽僀儖偵儕僱乕儉傪揔梡偡傞
#
sub rename
{
	local($infile) = @_;
	local($outfile) = $infile.".new";
	local($line);

	open(INFILE, "< ".$infile) || die;
	open(OUTFILE, "> ".$outfile) || die;

	while ($line = <INFILE>) {
		$line =~ s/\b(_?)($syms)\b/$1_kernel_$2/gc;
		print OUTFILE $line;
	}

	close(INFILE);
	close(OUTFILE);

	if (`diff $infile $outfile`) {
		rename($infile, $infile.".bak");
		rename($outfile, $infile);
		print STDERR "Modified: ",$infile,"\n";
	}
	else {
		unlink($outfile);
	}
}

#
#  僄儔乕僠僃僢僋
#
if ($#ARGV < 1) {
	die "Usage: rename <prefix> <filelist>\n";
}

#
#  弶婜壔
#
@syms = ();
$name = $ARGV[0];

#
#  僔儞儃儖儕僗僩傪撉傒崬傓
#
$deffile = $name."_rename.def";
open(INFILE, $deffile) || die "Cannot open $deffile";
while ($line = <INFILE>) {
	chomp $line;
	if ($line ne "" && $line !~ /^#/) {
		@syms = (@syms, $line)
	}
	
}
close(INFILE);

$syms = join("|", @syms);
print STDERR $all_syms;

#
#  僼傽僀儖偵儕僱乕儉傪揔梡偡傞
#
shift @ARGV;
foreach $infile (@ARGV) {
	# 僼傽僀儖偱側偗傟偽僗僉僢僾
	next unless (-f $infile);

	do rename($infile) if ($infile ne $deffile);
}