Changeset 109 for uKadecot/trunk/ssp/utils/genrename
- Timestamp:
- Jun 11, 2015, 6:37:56 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
uKadecot/trunk/ssp/utils/genrename
-
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 37 # 38 # {\tgEFAÍC³ÛØÅñ³êÄ¢éàÌÅ éDãLì Ò¨ 39 # æÑTOPPERSvWFNgÍC{\tgEFAÉÖµÄCÁèÌgpÚI 40 # ÉηéK«àÜßÄC¢©ÈéÛØàsíÈ¢DܽC{\tgEF 41 # AÌpÉæè¼ÚIܽÍÔÚIɶ¶½¢©Èé¹QÉÖµÄàC» 42 # ÌÓCðíÈ¢D 43 # 44 # @(#) $Id: genrename 509 2007-08-22 23:09:56Z hiro $ 45 # 46 47 # 48 # æªÉ¯é¶ñ 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$ 41 # 42 43 # 44 # 先頭につける文字列 49 45 # 50 46 sub prefix_string { … … 60 56 61 57 # 62 # l[è`𶬷é58 # リネーム定義を生成する 63 59 # 64 60 sub generate_define … … 77 73 78 74 # 79 # l[ð𶬷é75 # リネーム解除を生成する 80 76 # 81 77 sub generate_undef … … 87 83 88 84 # 89 # CN[hfBNeBu𶬷é85 # インクルードディレクティブを生成する 90 86 # 91 87 sub generate_include … … 98 94 99 95 # 100 # G[`FbN96 # エラーチェック 101 97 # 102 98 if ($#ARGV != 0) { … … 105 101 106 102 # 107 # ú»103 # 初期化 108 104 # 109 105 @syms = (); … … 115 111 116 112 # 117 # V{XgðÇÝÞ113 # シンボルリストを読み込む 118 114 # 119 115 open(INFILE, $infile) || die "Cannot open $infile"; … … 125 121 126 122 # 127 # ???_rename.h 𶬷é123 # ???_rename.h を生成する 128 124 # 129 125 $includes = ""; … … 188 184 189 185 # 190 # ???_unrename.h 𶬷é186 # ???_unrename.h を生成する 191 187 # 192 188 $includes = ""; -
Property svn:eol-style
set to
Note:
See TracChangeset
for help on using the changeset viewer.