Changeset 109 for uKadecot/trunk/ssp/utils/applyrename
- Timestamp:
- Jun 11, 2015, 6:37:56 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
uKadecot/trunk/ssp/utils/applyrename
-
Property svn:eol-style
set to
native
-
Property svn:keywords
set to
Id
-
Property svn:mime-type
set to
text/x-perl; charset=SHIFT_JIS
r101 r109 9 9 # Graduate School of Information Science, Nagoya Univ., JAPAN 10 10 # 11 # ãLì ÒÍCȺÌ(1)`(4)Ìðð½·êÉÀèC{\tgEF 12 # Ai{\tgEFAðüϵ½àÌðÜÞDȺ¯¶jðgpE¡»Eü 13 # ÏEÄzziȺCpÆÄÔj·é±Æð³Åø·éD 14 # (1) {\tgEFAð\[XR[hÌ`Åp·éêÉÍCãLÌì 15 # \¦C±Ìpð¨æÑºLÌ³ÛØKèªC»ÌÜÜÌ`Å\[ 16 # XR[hÉÜÜêĢ鱯D 17 # (2) {\tgEFAðCCu`®ÈÇC¼Ì\tgEFAJÉg 18 # pÅ«é`ÅÄzz·éêÉÍCÄzzɺ¤hL 19 gip 20 # Ò}j 21 AÈÇjÉCãLÌì \¦C±Ìpð¨æÑºL 22 # Ì³ÛØKèðfÚ·é±ÆD 23 # (3) {\tgEFAðC@íÉgÝÞÈÇC¼Ì\tgEFAJÉg 24 # pūȢ`ÅÄzz·éêÉÍCÌ¢¸ê©Ìðð½·± 25 # ÆD 26 # (a) Äzzɺ¤hL 27 gipÒ}j 28 AÈÇjÉCãLÌ 29 # ì \¦C±Ìpð¨æÑºLÌ³ÛØKèðfÚ·é±ÆD 30 # (b) ÄzzÌ`ÔðCÊÉèßéû@ÉæÁÄCTOPPERSvWFNgÉ 31 # ñ·é±ÆD 32 # (4) {\tgEFAÌpÉæè¼ÚIܽÍÔÚIɶ¶é¢©Èé¹ 33 # Q©çàCãLì Ò¨æÑTOPPERSvWFNgðÆÓ·é±ÆD 34 # ܽC{\tgEFAÌ[UܽÍGh[U©çÌ¢©Èé 35 # RÉîÿ©çàCãLì Ò¨æÑTOPPERSvWFNgð 36 # ÆÓ·é±ÆD 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 # 免責すること. 37 33 # 38 # {\tgEFAÍC³ÛØÅñ³êÄ¢éàÌÅ éDãLì Ò¨39 # æÑTOPPERSvWFNgÍC{\tgEFAÉÖµÄCÁèÌgpÚI40 # ÉηéK«àÜßÄC¢©ÈéÛØàsíÈ¢DܽC{\tgEF41 # AÌpÉæè¼ÚIܽÍÔÚIɶ¶½¢©Èé¹QÉÖµÄàC»42 # ÌÓCðíÈ¢D34 # 本ソフトウェアは,無保証で提供されているものである.上記著作権者お 35 # よびTOPPERSプロジェクトは,本ソフトウェアに関して,特定の使用目的 36 # に対する適合性も含めて,いかなる保証も行わない.また,本ソフトウェ 37 # アの利用により直接的または間接的に生じたいかなる損害に関しても,そ 38 # の責任を負わない. 43 39 # 44 # @(#) $Id : applyrename 332 2007-07-17 12:15:37Z hiro$40 # @(#) $Id$ 45 41 # 46 42 47 43 # 48 # t@CÉl[ðKp·é44 # ファイルにリネームを適用する 49 45 # 50 46 sub applyrename … … 76 72 77 73 # 78 # G[`FbN74 # エラーチェック 79 75 # 80 76 if ($#ARGV < 1) { … … 83 79 84 80 # 85 # ú»81 # 初期化 86 82 # 87 83 @syms = (); … … 89 85 90 86 # 91 # V{XgðÇÝÞ87 # シンボルリストを読み込む 92 88 # 93 89 $deffile = $name."_rename.def"; … … 108 104 109 105 # 110 # ³K\»ðìé106 # 正規表現を作る 111 107 # 112 108 $syms = join("|", @syms); 113 109 114 110 # 115 # t@CÉl[ðKp·é111 # ファイルにリネームを適用する 116 112 # 117 113 shift @ARGV; 118 114 foreach $infile (@ARGV) { 119 # t@CÅȯêÎXLbv115 # ファイルでなければスキップ 120 116 next unless (-f $infile); 121 117 -
Property svn:eol-style
set to
Note:
See TracChangeset
for help on using the changeset viewer.