asp/utils/applyrename

   1 #! /usr/bin/perl
   2 #
   3 #  TOPPERS Software
   4 #      Toyohashi Open Platform for Embedded Real-Time Systems
   5 #
   6 #  Copyright (C) 2003 by Embedded and Real-Time Systems Laboratory
   7 #                              Toyohashi Univ. of Technology, JAPAN
   8 #  Copyright (C) 2004-2007 by Embedded and Real-Time Systems Laboratory
   9 #              Graduate School of Information Science, Nagoya Univ., JAPAN
  10 #
  11 #  上記著作権者は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
  12 #  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
  13 #  変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
  14 #  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
  15 #      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
  16 #      スコード中に含まれていること．
  17 #  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
  18 #      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
  19 #      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
  20 #      の無保証規定を掲載すること．
  21 #  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
  22 #      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
  23 #      と．
  24 #    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
  25 #        作権表示，この利用条件および下記の無保証規定を掲載すること．
  26 #    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
  27 #        報告すること．
  28 #  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
  29 #      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
  30 #      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
  31 #      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
  32 #      免責すること．
  33 #
  34 #  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
  35 #  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
  36 #  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
  37 #  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
  38 #  の責任を負わない．
  39 #
  40 #  @(#) $Id: applyrename 332 2007-07-17 12:15:37Z hiro $
  41 #
  42
  43 #
  44 #  ファイルにリネームを適用する
  45 #
  46 sub applyrename
  47 {
  48         local($infile) = @_;
  49         local($outfile) = $infile.".new";
  50         local($line);
  51
  52         open(INFILE, "< ".$infile) || die;
  53         open(OUTFILE, "> ".$outfile) || die;
  54
  55         while ($line = <INFILE>) {
  56                 $line =~ s/\b(_?)($syms)\b/$1_kernel_$2/gc;
  57                 print OUTFILE $line;
  58         }
  59
  60         close(INFILE);
  61         close(OUTFILE);
  62
  63         if (`cmp $infile $outfile`) {
  64                 rename($infile, $infile.".bak");
  65                 rename($outfile, $infile);
  66                 print STDERR "Modified: ",$infile,"\n";
  67         }
  68         else {
  69                 unlink($outfile);
  70         }
  71 }
  72
  73 #
  74 #  エラーチェック
  75 #
  76 if ($#ARGV < 1) {
  77         die "Usage: appyrename <prefix> <filelist>\n";
  78 }
  79
  80 #
  81 #  初期化
  82 #
  83 @syms = ();
  84 $name = $ARGV[0];
  85
  86 #
  87 #  シンボルリストを読み込む
  88 #
  89 $deffile = $name."_rename.def";
  90 open(INFILE, $deffile) || die "Cannot open $deffile";
  91 while ($line = <INFILE>) {
  92         chomp $line;
  93         if ($line =~ /^#(.*)$/) {
  94                 # nothing
  95         }
  96         elsif ($line =~ /^INCLUDE[ \t]+(.*)$/) {
  97                 # nothing
  98         }
  99         elsif ($line ne "") {
 100                 @syms = (@syms, $line)
 101         }
 102 }
 103 close(INFILE);
 104
 105 #
 106 #  正規表現を作る
 107 #
 108 $syms = join("|", @syms);
 109
 110 #
 111 #  ファイルにリネームを適用する
 112 #
 113 shift @ARGV;
 114 foreach $infile (@ARGV) {
 115         # ファイルでなければスキップ
 116         next unless (-f $infile);
 117
 118         applyrename($infile) if ($infile ne $deffile);
 119 }