1#! /usr/bin/perl
2#
3#                           TERMS AND CONDITIONS
4#                                   FOR
5#                         OPEN SOURCE CODE LICENSE
6#                               Version 1.1
7#
8# Japan Registry Services Co., Ltd. ("JPRS"), a Japanese corporation
9# having its head office at Chiyoda First Bldg. East 13F 3-8-1 Nishi-Kanda,
10# Chiyoda-ku, Tokyo 101-0065, Japan, grants you the license for open source
11# code specified in EXHIBIT A the "Code" subject to the following Terms and
12# Conditions ("OSCL").
13#
14# 1. License Grant.
15#   JPRS hereby grants you a worldwide, royalty-free, non-exclusive
16#   license, subject to third party intellectual property claims:
17#   (a) under intellectual property rights (other than patent or
18#       trademark) licensable by JPRS to use, reproduce, modify, display,
19#       perform, sublicense and distribute the Code (or portions thereof)
20#       with or without modifications, and/or as part of a derivative work;
21#       or
22#   (b) under claims of the infringement through the making, using,
23#       offering to sell and/or otherwise disposing the JPRS Revised Code
24#       (or portions thereof);
25#   (c) the licenses granted in this Section 1(a) and (b) are effective on
26#       the date JPRS first distributes the Code to you under the terms of
27#       this OSCL;
28#   (d) Notwithstanding the above stated terms, no patent license is
29#       granted:
30#       1)  for a code that you delete from the Code;
31#       2)  separate from the Code; or
32#       3)  for infringements caused by:
33#            i) modification of the Code; or
34#           ii) combination of the Code with other software or devices.
35#
36# 2. Consents.
37#   You agree that:
38#   (a) you must include a copy of this OSCL and the notice set forth in
39#       EXHIBIT A with every copy of the Code you distribute;
40#   (b) you must include a copy of this OSCL and the notice set forth in
41#       EXHIBIT A with every copy of binary form of the Code in the
42#       documentation and/or other materials provided with the distribution;
43#   (c) you may not offer or impose any terms on any source code version
44#       that alters or restricts the applicable version of this OSCL or
45#       the recipients' rights hereunder.
46#   (d) If the terms and conditions are set forth in EXHIBIT A, you must
47#       comply with those terms and conditions.
48#
49# 3. Proprietary Information.
50#   All trademarks, service marks, patents, copyrights, trade secrets, and
51#   other proprietary rights in or related to the Code are and will remain
52#   the exclusive property of JPRS or its licensors, whether or not
53#   specifically recognized or perfected under local law except specified
54#   in this OSCL; provided however you agree and understand that the JPRS
55#   name may not be used to endorse or promote this Code without prior
56#   written approval of JPRS.
57#
58# 4. WARRANTY DISCLAIMER.
59#   JPRS MAKES NO REPRESENTATIONS AND WARRANTIES REGARDING THE USE OF THE
60#   CODE, NOR DOES JPRS MAKE ANY REPRESENTATIONS THAT THE CODE WILL BECOME
61#   COMMERCIALLY AVAILABLE. JPRS, ITS AFFILIATES, AND ITS SUPPLIERS DO NOT
62#   WARRANT OR REPRESENT THAT THE CODE IS FREE OF ERRORS OR THAT THE CODE
63#   IS SUITABLE FOR TRANSLATION AND/OR LOCALIZATION. THE CODE IS PROVIDED
64#   ON AN "AS IS" BASIS AND JPRS AND ITS SUPPLIERS HAVE NO OBLIGATION TO
65#   CORRECT ERRORS OR TO SUPPORT THE CODE UNDER THIS OSCL FOR ANY REASON.
66#   TO THE FULL EXTENT PERMITTED BY LAW, ALL OBLIGATIONS ARE HEREBY
67#   EXCLUDED WHETHER EXPRESS, STATUTORY OR IMPLIED UNDER LAW, COURSE OF
68#   DEALING, CUSTOM, TRADE USAGE, ORAL OR WRITTEN STATEMENT OR OTHERWISE,
69#   INCLUDING BUT NOT LIMITED TO ANY IMPLIED WARRANTIES OF MERCHANTABILITY
70#   OR FITNESS FOR A PARTICULAR PURPOSE CONCERNING THE CODE.
71#
72# 5. NO LIABILITY.
73#   UNDER NO CIRCUMSTANCES SHALL JPRS AND/OR ITS AFFILIATES, LICENSORS, OR
74#   REPRESENTATIVES BE LIABLE FOR ANY DAMAGES INCLUDING BUT NOT LIMITED TO
75#   CONSEQUENTIAL, INDIRECT, SPECIAL, PUNITIVE OR INCIDENTAL DAMAGES,
76#   WHETHER FORESEEABLE OR UNFORESEEABLE, BASED ON YOUR CLAIMS, INCLUDING,
77#   BUT NOT LIMITED TO, CLAIMS FOR LOSS OF DATA, GOODWILL, PROFITS, USE OF
78#   MONEY, INTERRUPTION IN USE OR AVAILABILITY OF DATA, STOPPAGE, IMPLIED
79#   WARRANTY, BREACH OF CONTRACT, MISREPRESENTATION, NEGLIGENCE, STRICT
80#   LIABILITY IN TORT, OR OTHERWISE.
81#
82# 6. Indemnification.
83#   You hereby agree to indemnify, defend, and hold harmless JPRS for any
84#   liability incurred by JRPS due to your terms of warranty, support,
85#   indemnity, or liability offered by you to any third party.
86#
87# 7. Termination.
88# 7.1 This OSCL shall be automatically terminated in the events that:
89#   (a) You fail to comply with the terms herein and fail to cure such
90#       breach within 30 days of becoming aware of the breach;
91#   (b) You initiate patent or copyright infringement litigation against
92#       any party (including a cross-claim or counterclaim in a lawsuit)
93#       alleging that the Code constitutes a direct or indirect patent or
94#       copyright infringement, in such case, this OSCL to you shall
95#       terminate as of the date such litigation is filed;
96# 7.2 In the event of termination under Sections 7.1(a) or 7.1(b) above,
97#     all end user license agreements (excluding distributors and
98#     resellers) which have been validly granted by You or any distributor
99#     hereunder prior to termination shall survive termination.
100#
101#
102# 8. General.
103#   This OSCL shall be governed by, and construed and enforced in
104#   accordance with, the laws of Japan. Any litigation or arbitration
105#   between the parties shall be conducted exclusively in Tokyo, Japan
106#   except written consent of JPRS provides other venue.
107#
108#
109#                                EXHIBIT A
110#
111# The original open source code of idnkit-2 is idnkit-1.0 developed and
112# conceived by Japan Network Information Center ("JPNIC"), a Japanese
113# association, Kokusai-Kougyou-Kanda Bldg 6F, 2-3-4 Uchi-Kanda,
114# Chiyoda-ku, Tokyo 101-0047, Japan, and JPRS modifies above original code
115# under following Terms and Conditions set forth by JPNIC.
116#
117#                                  JPNIC
118#
119# Copyright (c) 2000-2002 Japan Network Information Center.  All rights reserved.
120#
121# By using this file, you agree to the terms and conditions set forth bellow.
122#
123#                       LICENSE TERMS AND CONDITIONS
124#
125# The following License Terms and Conditions apply, unless a different
126# license is obtained from Japan Network Information Center ("JPNIC"),
127# a Japanese association, Kokusai-Kougyou-Kanda Bldg 6F, 2-3-4 Uchi-Kanda,
128# Chiyoda-ku, Tokyo 101-0047, Japan.
129#
130# 1. Use, Modification and Redistribution (including distribution of any
131#    modified or derived work) in source and/or binary forms is permitted
132#    under this License Terms and Conditions.
133#
134# 2. Redistribution of source code must retain the copyright notices as they
135#    appear in each source code file, this License Terms and Conditions.
136#
137# 3. Redistribution in binary form must reproduce the Copyright Notice,
138#    this License Terms and Conditions, in the documentation and/or other
139#    materials provided with the distribution. For the purposes of binary
140#    distribution the "Copyright Notice" refers to the following language:
141#    "Copyright (c) 2000-2002 Japan Network Information Center.  All rights reserved."
142#
143# 4. The name of JPNIC may not be used to endorse or promote products
144#    derived from this Software without specific prior written approval of
145#    JPNIC.
146#
147# 5. Disclaimer/Limitation of Liability: THIS SOFTWARE IS PROVIDED BY JPNIC
148#    "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
149#    LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
150#    PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL JPNIC BE LIABLE
151#    FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
152#    CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
153#    SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
154#    BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
155#    WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
156#    OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
157#    ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
158#
159#
160#                        JPRS Public License Notice
161#                                   For
162#                                idnkit-2.
163#
164# The contents of this file are subject to the Terms and Conditions for
165# the Open Source Code License (the "OSCL"). You may not use this file
166# except in compliance with above terms and conditions. A copy of the OSCL
167# is available at <http://jprs.co.jp/idn/>.
168# The JPRS Revised Code is idnkit-2.
169# The Initial Developer of the JPRS Revised Code is Japan Network
170# Information Center ("JPNIC"), a Japanese association,
171# Kokusai-Kougyou-Kanda Bldg 6F, 2-3-4 Uchi-Kanda, Chiyoda-ku, Tokyo
172# 101-0047, Japan.
173# "Copyright (c) 2000-2002 Japan Network Information Center.  All rights reserved."
174# "Copyright (c) 2010-2012 Japan Registry Services Co., Ltd.  All rights reserved."
175# Contributor(s): ______________________________________.
176#
177# If you wish to allow use of your version of this file only under the
178# above License(s) and not to allow others to use your version of this
179# file, please indicate your decision by deleting the relevant provisions
180# above and replacing them with the notice and other provisions required
181# by the above License(s). If you do not delete the relevant provisions,
182# a recipient may use your version of this file under either the above
183# License(s).
184#
185
186use lib qw(../../util);
187use UCD;
188
189my $datadir = (@ARGV >= 2 && $ARGV[0] eq '-d') ? $ARGV[1] : '../../data';
190my $file = $datadir . '/' . UCD::UnicodeData::DEFAULT_FILE;
191
192my $reader = new UCD::UnicodeData($file);
193while (my $data = $reader->get()) {
194    next if (!defined $data->{DECOMP});
195
196    printf "%04X;", $data->{CODE};
197    my $compat = shift(@{$data->{DECOMP}});
198    foreach my $i (@{$data->{DECOMP}}) {
199	printf " %04X", $i;
200    }
201    print "; compat" if ($compat ne '');
202    print "\n";
203}
204