| 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) 2000-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 | # Copyright (C) 2005-2007 by Industrial Technology Institute,
|
|---|
| 12 | # Miyagi Prefectural Government, JAPAN
|
|---|
| 13 | #
|
|---|
| 14 | # ä¸è¨èä½æ¨©è
|
|---|
| 15 | ã¯ï¼ä»¥ä¸ã® (1)ã(4) ã®æ¡ä»¶ãï¼Free Software Foundation
|
|---|
| 16 | # ã«ãã£ã¦å
|
|---|
| 17 | ¬è¡¨ããã¦ãã GNU General Public License ã® Version 2 ã«è¨
|
|---|
| 18 | # è¿°ããã¦ããæ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§ã¢ï¼æ¬ã½ããã¦ã§ã¢
|
|---|
| 19 | # ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ã使ç¨ã»è¤è£½ã»æ¹å¤ã»åé
|
|---|
| 20 | å¸ï¼ä»¥ä¸ï¼
|
|---|
| 21 | # å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼
|
|---|
| 22 | # (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½
|
|---|
| 23 | # 権表示ï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼
|
|---|
| 24 | # ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼
|
|---|
| 25 | # (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
|---|
| 26 | # ç¨ã§ããå½¢ã§åé
|
|---|
| 27 | å¸ããå ´åã«ã¯ï¼åé
|
|---|
| 28 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨
|
|---|
| 29 | # è
|
|---|
| 30 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨
|
|---|
| 31 | # ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
|---|
| 32 | # (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
|---|
| 33 | # ç¨ã§ããªãå½¢ã§åé
|
|---|
| 34 | å¸ããå ´åã«ã¯ï¼æ¬¡ã®ããããã®æ¡ä»¶ãæºããã
|
|---|
| 35 | # ã¨ï¼
|
|---|
| 36 | # (a) åé
|
|---|
| 37 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è
|
|---|
| 38 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è
|
|---|
| 39 | # ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
|---|
| 40 | # (b) åé
|
|---|
| 41 | å¸ã®å½¢æ
|
|---|
| 42 | ãï¼å¥ã«å®ããæ¹æ³ã«ãã£ã¦ï¼TOPPERSããã¸ã§ã¯ãã«
|
|---|
| 43 | # å ±åãããã¨ï¼
|
|---|
| 44 | # (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ
|
|---|
| 45 | # 害ãããï¼ä¸è¨èä½æ¨©è
|
|---|
| 46 | ããã³TOPPERSããã¸ã§ã¯ããå
|
|---|
| 47 | 責ãããã¨ï¼
|
|---|
| 48 | #
|
|---|
| 49 | # æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è
|
|---|
| 50 | ã
|
|---|
| 51 | # ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ãã®é©ç¨å¯è½æ§ã
|
|---|
| 52 | # å«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´
|
|---|
| 53 | # æ¥çã¾ãã¯éæ¥çã«çãããããªãæ害ã«é¢ãã¦ãï¼ãã®è²¬ä»»ãè² ããªãï¼
|
|---|
| 54 | #
|
|---|
| 55 | # @(#) $Id: grep_def_inh.pl,v 1.1 2007/03/23 07:19:00 honda Exp $
|
|---|
| 56 | #
|
|---|
| 57 |
|
|---|
| 58 |
|
|---|
| 59 | #
|
|---|
| 60 | # ãã¯ã¿ãã¼ãã«çæç¨ãã£ã«ã¿
|
|---|
| 61 | # ãã³ã³ãã£ã®ã¥ã¬ã¼ã·ã§ã³ã»ãã¡ã¤ã«ã®ããªããã»ã¹çµæã
|
|---|
| 62 | #ãããã¯ã¿ãã¼ãã«çæã¹ã¯ãªãã(perl)ã«å¤æããã
|
|---|
| 63 | #ããçæãããã¹ã¯ãªããã¯genvector.plããå¼ã³åºãããã
|
|---|
| 64 | #
|
|---|
| 65 | #
|
|---|
| 66 | #ã使ãæ¹
|
|---|
| 67 | #ããgrep_def_inh.pl file_name
|
|---|
| 68 | #ãããå¼æ°file_nameï¼å
|
|---|
| 69 | ¥åãã¼ã¿ãã¡ã¤ã«
|
|---|
| 70 | #ãããããããããããã³ã³ãã£ã®ã¥ã¬ã¼ã·ã§ã³ã»ãã¡ã¤ã«ã®ããªããã»ã¹
|
|---|
| 71 | #ãããããããããããçµæã渡ããããã¨ãæ³å®ãã¦ããã
|
|---|
| 72 |
|
|---|
| 73 | #ãå¦çå
|
|---|
| 74 | 容
|
|---|
| 75 | # ãã»DEF_INHæã&define_inh(xx, "*******");ã®å½¢ã«å¤æãã¦åºåããã
|
|---|
| 76 | # ã
|
|---|
| 77 | # ãåè
|
|---|
| 78 | # ãã»ç¬¬2å¼æ°ï¼å²è¾¼ã¿ãã³ãã©å±æ§ï¼ã«TA_HLNGãæå®ããã¦ããã¨ä»®å®ãã¦ãã
|
|---|
| 79 | # ãããã»ç¬¬2å¼æ°ã¯ãã§ãã¯ãè¡ã£ã¦ããªã
|
|---|
| 80 | # ãããã»TA_HLNGã®å¤ï¼0x00uï¼ãæååç½®æã®æ£è¦è¡¨ç¾ã«ç¨ãã¦ãã
|
|---|
| 81 |
|
|---|
| 82 | #
|
|---|
| 83 | #ãDEF_INHæã®éä¸ã§æ¹è¡ããã¦ãæ£ããå¦çããããã
|
|---|
| 84 | #ãä¸åº¦ããã¹ã¦ã®è¡ãé£çµãã¦ããã;ã§åºåãç´ãã
|
|---|
| 85 | #
|
|---|
| 86 | #ãåºæ¬çã«å¥ã®ç°å¢ã§ä½ã£ãå
|
|---|
| 87 | ¥åãã¼ã¿ãèªã¿è¾¼ããã¨ã¯èæ
|
|---|
| 88 | ®ãã¦ããªãã
|
|---|
| 89 | #ãã¤ã¾ããæ¹è¡ã³ã¼ãã®éãã§ãä¸è¨ã®whileæã§ä¸è¡ãã¤èªã¿è¾¼ãã¤ããã§
|
|---|
| 90 | #ããã¹ã¦ã®è¡ã1度ã«èªã¿è¾¼ã¾ãã¦ãã¾ãå¯è½æ§ã¯ç¡è¦ãã¦ããã
|
|---|
| 91 | #
|
|---|
| 92 | $text = "";
|
|---|
| 93 | while($line = <>) {
|
|---|
| 94 | #ã#ã§å§ã¾ãè¡ã¯ããªããã»ããµã«ããã³ã¡ã³ããªã®ã§ãã¹ããããã
|
|---|
| 95 | if ($line !~ /^#/) {
|
|---|
| 96 | $text .= $line;
|
|---|
| 97 | }
|
|---|
| 98 | }
|
|---|
| 99 |
|
|---|
| 100 | #ãç°å¢ã«ä¾åããªãæ¹è¡ã³ã¼ãã®ç½®æ
|
|---|
| 101 | #ããã»æ£è¦è¡¨ç¾ã(\x0D?\x0A?)ã¨ããªãã®ã¯ã空æåã«ããããããªããã
|
|---|
| 102 | $text =~ s/(\x0D\x0A)|\x0D|\x0A//g;
|
|---|
| 103 |
|
|---|
| 104 | $text =~ s/(\s)+//g; #ã空ç½æåãåé¤
|
|---|
| 105 | @list = split(/;/, $text); #ã;æ¯ã«åºåã
|
|---|
| 106 |
|
|---|
| 107 | #
|
|---|
| 108 | # &define_inh(xx, "*******");ã®å½¢ã§åºåããã
|
|---|
| 109 | #
|
|---|
| 110 | #ãããã§ãã©ãã«åã®åå¾ã«__kernel_ã¨_entryãä»å ããªãã®ã¯
|
|---|
| 111 | #ãgccçã¨HEWçã§å
|
|---|
| 112 | ±éã«ä½¿ããããã«ããããã
|
|---|
| 113 | #ãHEWçã§ã¯ãtmp_script.plã以ä¸ã®ï¼ã¤ã®ç®çã§ä½¿ç¨ãããã
|
|---|
| 114 | #ããã»ãã¯ã¿ãã¼ãã«ã®çæ
|
|---|
| 115 | #ããã»å²è¾¼ã¿ã®åºå
|
|---|
| 116 | ¥å£å¦çã®çæ
|
|---|
| 117 | #
|
|---|
| 118 | foreach $line (@list) {
|
|---|
| 119 | if ($line =~ s/^DEF_INH\(/\&define_inh\(/) {
|
|---|
| 120 |
|
|---|
| 121 | # TA_HLNGã®å¤ã0x00uã§ãããã¨ãä»®å®ãã¦ãã
|
|---|
| 122 | $line =~ s/,{0x00u,/\,"/;
|
|---|
| 123 | $line =~ s/}\)/"\)/g;
|
|---|
| 124 |
|
|---|
| 125 | # å²è¾¼ã¿çªå·ã®æ«å°¾ã«u,ulãä»ãã¦ããå ´åã¯åé¤ãã
|
|---|
| 126 | $line =~ s/((ul)|(lu)|(u)|(l))\,/\,/i;
|
|---|
| 127 | printf "\t%s;\n", $line;
|
|---|
| 128 | }
|
|---|
| 129 | }
|
|---|
| 130 |
|
|---|
| 131 | # ã©ã¤ãã©ãªã¨ãã¦å¼ã³åºããããã«æ»ãå¤ãï¼ã«ããã
|
|---|
| 132 | print "1;\n";
|
|---|
| 133 |
|
|---|
![(please configure the [header_logo] section in trac.ini)](/trac_user/contrib/chrome/site/your_project_logo.png){kind=logo}
