source: anotherchoice/tags/jsp-1.4.4-full-UTF8/utils/rename@ 26

Last change on this file since 26 was 26, checked in by ykominami, 10 years ago

initial

File size: 3.8 KB
Line 
1#! /usr/bin/perl
2#
3# TOPPERS/JSP Kernel
4# Toyohashi Open Platform for Embedded Real-Time Systems/
5# Just Standard Profile Kernel
6#
7# Copyright (C) 2003 by Embedded and Real-Time Systems Laboratory
8# Toyohashi Univ. of Technology, JAPAN
9# Copyright (C) 2004 by Embedded and Real-Time Systems Laboratory
10# Graduate School of Information Science, Nagoya Univ., JAPAN
11#
12# 上記著作権者
13は,以下の (1)〜(4) の条件か,Free Software Foundation
14# によってå…
15¬è¡¨ã•ã‚Œã¦ã„ã‚‹ GNU General Public License の Version 2 に記
16# 述されている条件を満たす場合に限り,本ソフトウェア(本ソフトウェア
17# を改変したものを含む.以下同じ)を使用・複製・改変・再é…
18å¸ƒï¼ˆä»¥ä¸‹ï¼Œ
19# 利用と呼ぶ)することを無償で許諾する.
20# (1) 本ソフトウェアをソースコードの形で利用する場合には,上記の著作
21# 権表示,この利用条件および下記の無保証規定が,そのままの形でソー
22# スコード中に含まれていること.
23# (2) 本ソフトウェアを,ライブラリ形式など,他のソフトウェア開発に使
24# 用できる形で再é…
25å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
26å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
27# 者
28マニュアルなど)に,上記の著作権表示,この利用条件および下記
29# の無保証規定を掲載すること.
30# (3) 本ソフトウェアを,機器に組み込むなど,他のソフトウェア開発に使
31# 用できない形で再é…
32å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
33# と.
34# (a) 再é…
35å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
36マニュアルなど)に,上記の著
37# 作権表示,この利用条件および下記の無保証規定を掲載すること.
38# (b) 再é…
39å¸ƒã®å½¢æ…
40‹ã‚’,別に定める方法によって,TOPPERSプロジェクトに
41# 報告すること.
42# (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
43# 害からも,上記著作権者
44およびTOPPERSプロジェクトをå…
45è²¬ã™ã‚‹ã“と.
46#
47# 本ソフトウェアは,無保証で提供されているものである.上記著作権者
48お
49# よびTOPPERSプロジェクトは,本ソフトウェアに関して,その適用可能性も
50# 含めて,いかなる保証も行わない.また,本ソフトウェアの利用により直
51# 接的または間接的に生じたいかなる損害に関しても,その責任を負わない.
52#
53# @(#) $Id: rename,v 1.3 2005/08/02 01:40:15 hiro Exp $
54#
55
56#
57# ファイルにリネームを適用する
58#
59sub rename
60{
61 local($infile) = @_;
62 local($outfile) = $infile.".new";
63 local($line);
64
65 open(INFILE, "< ".$infile) || die;
66 open(OUTFILE, "> ".$outfile) || die;
67
68 while ($line = <INFILE>) {
69 $line =~ s/\b(_?)($syms)\b/$1_kernel_$2/gc;
70 print OUTFILE $line;
71 }
72
73 close(INFILE);
74 close(OUTFILE);
75
76 if (`diff $infile $outfile`) {
77 rename($infile, $infile.".bak");
78 rename($outfile, $infile);
79 print STDERR "Modified: ",$infile,"\n";
80 }
81 else {
82 unlink($outfile);
83 }
84}
85
86#
87# エラーチェック
88#
89if ($#ARGV < 1) {
90 die "Usage: rename <prefix> <filelist>\n";
91}
92
93#
94# 初期化
95#
96@syms = ();
97$name = $ARGV[0];
98
99#
100# シンボルリストを読み込む
101#
102$deffile = $name."_rename.def";
103open(INFILE, $deffile) || die "Cannot open $deffile";
104while ($line = <INFILE>) {
105 chomp $line;
106 if ($line ne "" && $line !~ /^#/) {
107 @syms = (@syms, $line)
108 }
109
110}
111close(INFILE);
112
113$syms = join("|", @syms);
114print STDERR $all_syms;
115
116#
117# ファイルにリネームを適用する
118#
119shift @ARGV;
120foreach $infile (@ARGV) {
121 # ファイルでなければスキップ
122 next unless (-f $infile);
123
124 do rename($infile) if ($infile ne $deffile);
125}
Note: See TracBrowser for help on using the repository browser.