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

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

initial

File size: 2.7 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) 2001-2003 by Embedded and Real-Time Systems Laboratory
8# Toyohashi Univ. of Technology, JAPAN
9#
10# 上記著作権者
11は,以下の (1)〜(4) の条件か,Free Software Foundation
12# によってå…
13¬è¡¨ã•ã‚Œã¦ã„ã‚‹ GNU General Public License の Version 2 に記
14# 述されている条件を満たす場合に限り,本ソフトウェア(本ソフトウェア
15# を改変したものを含む.以下同じ)を使用・複製・改変・再é…
16å¸ƒï¼ˆä»¥ä¸‹ï¼Œ
17# 利用と呼ぶ)することを無償で許諾する.
18# (1) 本ソフトウェアをソースコードの形で利用する場合には,上記の著作
19# 権表示,この利用条件および下記の無保証規定が,そのままの形でソー
20# スコード中に含まれていること.
21# (2) 本ソフトウェアを,ライブラリ形式など,他のソフトウェア開発に使
22# 用できる形で再é…
23å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
24å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
25# 者
26マニュアルなど)に,上記の著作権表示,この利用条件および下記
27# の無保証規定を掲載すること.
28# (3) 本ソフトウェアを,機器に組み込むなど,他のソフトウェア開発に使
29# 用できない形で再é…
30å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
31# と.
32# (a) 再é…
33å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
34マニュアルなど)に,上記の著
35# 作権表示,この利用条件および下記の無保証規定を掲載すること.
36# (b) 再é…
37å¸ƒã®å½¢æ…
38‹ã‚’,別に定める方法によって,TOPPERSプロジェクトに
39# 報告すること.
40# (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
41# 害からも,上記著作権者
42およびTOPPERSプロジェクトをå…
43è²¬ã™ã‚‹ã“と.
44#
45# 本ソフトウェアは,無保証で提供されているものである.上記著作権者
46お
47# よびTOPPERSプロジェクトは,本ソフトウェアに関して,その適用可能性も
48# 含めて,いかなる保証も行わない.また,本ソフトウェアの利用により直
49# 接的または間接的に生じたいかなる損害に関しても,その責任を負わない.
50#
51# @(#) $Id: gencheck,v 1.5 2003/12/04 14:14:39 honda Exp $
52#
53
54while ($line = <>) {
55 chomp $line;
56 $line =~ s/[\r\n]//g;
57
58 next unless ($line =~ /\@$/);
59
60 $line =~ s/[@ \t]//g;
61 $line =~ s/\([^0-9]*([0-9]*)\)/$1/g;
62
63 print $line,"\n";
64}
Note: See TracBrowser for help on using the repository browser.