New upstream version 4.1upstream/4.1

1 files changed, 1040 insertions, 0 deletions

diff --git a/bin/xml_from_json.py b/bin/xml_from_json.py
new file mode 100755
index 00000000..d28b626b
--- /dev/null
+++ b/bin/xml_from_json.py
@@ -0,0 +1,1040 @@
+#!/usr/bin/env python3
+#
+# Create deprecated iso-codes XML from JSON
+#
+# Copyright © 2016 Dr. Tobias Quathamer <toddy@debian.org>
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+import json
+import sys
+
+# Get the current ISO code domain, the path to the JSON data dir, and the XML output file
+if len(sys.argv) != 4:
+    sys.exit("Please provide the domain, the path to the JSON data dir, and the XML output file.")
+domain = sys.argv[1]
+datapath = sys.argv[2]
+xml_file = sys.argv[3]
+
+#
+# Define the headers of the XML files
+#
+headers = {
+    "639": """<?xml version="1.0" encoding="UTF-8" ?>
+
+<!--
+
+WARNING: THIS FILE IS DEPRECATED.
+
+PLEASE USE THE JSON DATA INSTEAD.
+
+Usually, this data can be found in /usr/share/iso-codes/json.
+
+This file gives a list of all languages in the ISO 639
+standard, and is used to provide translations via gettext
+
+Copyright (C) 2004-2006 Alastair McKinstry <mckinstry@computer.org>
+Copyright (C) 2004-2012 Christian Perrier <bubulle@debian.org>
+Copyright (C) 2005-2008 Tobias Quathamer <toddy@debian.org>
+
+    This file is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This file is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser General Public
+    License along with this file; if not, write to the Free Software
+    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+Source: <http://www.loc.gov/standards/iso639-2/>
+-->
+
+<!DOCTYPE iso_639_entries [
+	<!ELEMENT iso_639_entries (iso_639_entry+)>
+	<!ELEMENT iso_639_entry EMPTY>
+	<!ATTLIST iso_639_entry
+		iso_639_2B_code		CDATA	#REQUIRED
+		iso_639_2T_code		CDATA	#REQUIRED
+		iso_639_1_code		CDATA	#IMPLIED
+		name			CDATA	#REQUIRED
+		common_name		CDATA	#IMPLIED
+	>
+]>
+""",
+    "639-3": """<?xml version="1.0" encoding="UTF-8" ?>
+
+<!--
+
+WARNING: THIS FILE IS DEPRECATED.
+
+PLEASE USE THE JSON DATA INSTEAD.
+
+Usually, this data can be found in /usr/share/iso-codes/json.
+
+This file gives a list of all languages in the ISO 639-3
+standard, and is used to provide translations via gettext
+
+Copyright © 2005 Alastair McKinstry <mckinstry@computer.org>
+Copyright © 2008,2012,2013 Tobias Quathamer <toddy@debian.org>
+
+    This file is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This file is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser General Public
+    License along with this file; if not, write to the Free Software
+    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+Source: <http://www.sil.org/iso639-3/>
+-->
+
+<!DOCTYPE iso_639_3_entries [
+	<!ELEMENT iso_639_3_entries (iso_639_3_entry+)>
+	<!ELEMENT iso_639_3_entry EMPTY>
+	<!ATTLIST iso_639_3_entry
+		id		CDATA	#REQUIRED
+		part1_code	CDATA	#IMPLIED
+		part2_code	CDATA	#IMPLIED
+		status		CDATA	#REQUIRED
+		scope		CDATA   #REQUIRED
+		type		CDATA	#REQUIRED
+		inverted_name	CDATA	#IMPLIED
+		reference_name	CDATA	#REQUIRED
+		name		CDATA	#REQUIRED
+		common_name	CDATA	#IMPLIED
+	>
+]>
+""",
+    "639-5": """<?xml version="1.0" encoding="UTF-8" ?>
+
+<!--
+
+WARNING: THIS FILE IS DEPRECATED.
+
+PLEASE USE THE JSON DATA INSTEAD.
+
+Usually, this data can be found in /usr/share/iso-codes/json.
+
+This file gives a list of all languages in the ISO 639-5
+standard, and is used to provide translations via gettext
+
+Copyright © 2014 Pander <pander@opentaal.org>
+
+    This file is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This file is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser General Public
+    License along with this file; if not, write to the Free Software
+    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+Source: <http://www.loc.gov/standards/iso639-5/>
+-->
+
+<!DOCTYPE iso_639_5_entries [
+	<!ELEMENT iso_639_5_entries (iso_639_5_entry+)>
+	<!ELEMENT iso_639_5_entry EMPTY>
+	<!ATTLIST iso_639_5_entry
+		id		CDATA	#REQUIRED
+		parents		CDATA	#IMPLIED
+		name		CDATA	#REQUIRED
+	>
+]>
+""",
+    "3166": """<?xml version="1.0" encoding="UTF-8" ?>
+
+<!--
+
+WARNING: THIS FILE IS DEPRECATED.
+
+PLEASE USE THE JSON DATA INSTEAD.
+
+Usually, this data can be found in /usr/share/iso-codes/json.
+
+This file gives a list of all countries in the ISO 3166
+standard, and is used to provide translations via gettext
+
+Copyright (C) 2002, 2004, 2006 Alastair McKinstry <mckinstry@computer.org>
+Copyright (C) 2004 Andreas Jochens <aj@andaco.de>
+Copyright (C) 2004, 2007 Christian Perrier <bubulle@debian.org>
+Copyright (C) 2005, 2006, 2007 Tobias Quathamer <toddy@debian.org>
+
+    This file is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This file is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser General Public
+    License along with this file; if not, write to the Free Software
+    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+Source: <http://www.iso.org/iso/country_codes>
+-->
+
+<!DOCTYPE iso_3166_entries [
+	<!ELEMENT iso_3166_entries (iso_3166_entry+, iso_3166_3_entry*)>
+	<!ELEMENT iso_3166_entry EMPTY>
+	<!ATTLIST iso_3166_entry
+		alpha_2_code		CDATA	#REQUIRED
+		alpha_3_code		CDATA	#REQUIRED
+		numeric_code		CDATA	#REQUIRED
+		common_name		CDATA	#IMPLIED
+		name			CDATA	#REQUIRED
+		official_name		CDATA	#IMPLIED
+	>
+	<!ELEMENT iso_3166_3_entry EMPTY>
+	<!ATTLIST iso_3166_3_entry
+		alpha_4_code		CDATA	#REQUIRED
+		alpha_3_code		CDATA	#REQUIRED
+		numeric_code		CDATA	#IMPLIED
+		date_withdrawn		CDATA	#IMPLIED
+		names			CDATA	#REQUIRED
+		comment			CDATA	#IMPLIED
+	>
+]>
+""",
+    "3166-2": """<?xml version="1.0" encoding="UTF-8" ?>
+
+<!--
+
+WARNING: THIS FILE IS DEPRECATED.
+
+PLEASE USE THE JSON DATA INSTEAD.
+
+Usually, this data can be found in /usr/share/iso-codes/json.
+
+This file gives a list of all country subdivisions in the ISO 3166-2
+standard, and is used to provide translations via gettext
+
+The following conventions are used in this file:
+If the standard lists a subdivision name in more than one language
+and/or romanization system, only the first listed name is shown.
+
+For some countries the standard also lists a second level of
+regional divisions (e.g. for BE, FR, GB, IT, etc.). The codes
+for these regional divisions are shown as 'XX YYYY', i.e. with a
+space character instead of the '-'.
+
+Copyright (C) 2004-2006 Alastair McKinstry <mckinstry@computer.org>
+Copyright (C) 2004, 2007 Christian Perrier <bubulle@debian.org>
+Copyright (C) 2005-2007 Tobias Quathamer <toddy@debian.org>
+Copyright (C) 2007, 2009 LI Daobing <lidaobing@gmail.com>
+Copyright (C) 2007-2010 Alexis Darrasse <alexis@ortsa.com>
+
+    This file is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This file is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser General Public
+    License along with this file; if not, write to the Free Software
+    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+Source: <http://www.iso.org/iso/country_codes/background_on_iso_3166/iso_3166-2.htm>
+-->
+
+
+<!DOCTYPE iso_3166_2_entries [
+	<!ELEMENT iso_3166_2_entries (iso_3166_country+)>
+  <!ELEMENT iso_3166_country (iso_3166_subset*)>
+	<!ATTLIST iso_3166_country
+		code			CDATA	#REQUIRED
+	>
+	<!ELEMENT iso_3166_subset (iso_3166_2_entry+)>
+	<!ATTLIST iso_3166_subset
+		type			CDATA	#REQUIRED
+	>
+	<!ELEMENT iso_3166_2_entry EMPTY>
+	<!ATTLIST iso_3166_2_entry
+		code			CDATA	#REQUIRED
+		name			CDATA	#REQUIRED
+		parent			CDATA	#IMPLIED
+	>
+]>
+""",
+    "15924": """<?xml version="1.0" encoding="UTF-8" ?>
+
+<!--
+
+WARNING: THIS FILE IS DEPRECATED.
+
+PLEASE USE THE JSON DATA INSTEAD.
+
+Usually, this data can be found in /usr/share/iso-codes/json.
+
+This file gives a list of all script names in the ISO 15924
+standard, and is used to provide translations via gettext
+
+Copyright (C) 2007 Ivan Masar <helix84@centrum.sk>
+Copyright (C) 2007-2011 Christian Perrier <bubulle@debian.org>
+Copyright (C) 2007 Tobias Quathamer <toddy@debian.org>
+
+    This file is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This file is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser General Public
+    License along with this file; if not, write to the Free Software
+    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+Source: <http://unicode.org/iso15924/>
+Source for changes: <http://unicode.org/iso15924/codechanges.html>
+-->
+
+<!DOCTYPE iso_15924_entries [
+	<!ELEMENT iso_15924_entries (iso_15924_entry+)>
+	<!ELEMENT iso_15924_entry EMPTY>
+	<!ATTLIST iso_15924_entry
+		alpha_4_code		CDATA	#REQUIRED
+		numeric_code  		CDATA	#REQUIRED
+		name			CDATA	#REQUIRED
+	>
+]>
+""",
+    "4217": """<?xml version="1.0" encoding="UTF-8"?>
+
+<!--
+
+WARNING: THIS FILE IS DEPRECATED.
+
+PLEASE USE THE JSON DATA INSTEAD.
+
+Usually, this data can be found in /usr/share/iso-codes/json.
+
+This file gives a list of all currencies in the ISO 4217
+standard, and is used to provide translations via gettext
+
+Copyright (C) 2004-2006 Alastair McKinstry <mckinstry@computer.org>
+Copyright (C) 2005-2009 Tobias Quathamer <toddy@debian.org>
+Copyright (C) 2007 Christian Perrier <bubulle@debian.org>
+
+    This file is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This file is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser General Public
+    License along with this file; if not, write to the Free Software
+    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+Source: <http://www.bsi-global.com/en/Standards-and-Publications/Industry-Sectors/Services/BSI-Currency-Code-Service/>
+-->
+
+<!DOCTYPE iso_4217_entries [
+	<!ELEMENT iso_4217_entries (iso_4217_entry+, historic_iso_4217_entry*)>
+	<!ELEMENT iso_4217_entry EMPTY>
+	<!ATTLIST iso_4217_entry
+		letter_code		CDATA	#REQUIRED
+		numeric_code		CDATA	#IMPLIED
+		currency_name		CDATA	#REQUIRED
+	>
+	<!ELEMENT historic_iso_4217_entry EMPTY>
+	<!ATTLIST historic_iso_4217_entry
+		letter_code		CDATA	#REQUIRED
+		numeric_code		CDATA	#IMPLIED
+		currency_name		CDATA	#REQUIRED
+		date_withdrawn		CDATA	#REQUIRED
+	>
+]>
+""",
+}
+
+def get_iso_entries(standard):
+    """ Return all entries from the given standard
+    """
+    with open(datapath + "/iso_" + standard + ".json", encoding="utf-8") as input_file:
+        iso = json.load(input_file)
+        return iso[standard]
+
+# Create the output file
+with open(xml_file, "w", encoding="utf-8") as outfile:
+    #
+    # Handle ISO 639-2
+    #
+    if domain == "iso_639-2":
+        outfile.write(headers["639"])
+        outfile.write("\n")
+        outfile.write("<iso_639_entries>\n")
+        for entry in get_iso_entries("639-2"):
+            outfile.write("\t<iso_639_entry\n")
+            if "bibliographic" in entry:
+                outfile.write("\t\tiso_639_2B_code=\"" + entry["bibliographic"] + "\"\n")
+            else:
+                outfile.write("\t\tiso_639_2B_code=\"" + entry["alpha_3"] + "\"\n")
+            outfile.write("\t\tiso_639_2T_code=\"" + entry["alpha_3"] + "\"\n")
+            if "alpha_2" in entry:
+                outfile.write("\t\tiso_639_1_code=\"" + entry["alpha_2"] + "\"\n")
+            outfile.write("\t\tname=\"" + entry["name"] + "\"")
+            if "common_name" in entry:
+                outfile.write("\n\t\tcommon_name=\"" + entry["common_name"] + "\"")
+            outfile.write(" />\n")
+        outfile.write("</iso_639_entries>\n")
+    #
+    # Handle ISO 639-3
+    #
+    elif domain == "iso_639-3":
+        outfile.write(headers["639-3"])
+        outfile.write("\n")
+        outfile.write("<iso_639_3_entries>\n")
+        for entry in get_iso_entries("639-3"):
+            outfile.write("\t<iso_639_3_entry\n")
+            outfile.write("\t\tid=\"" + entry["alpha_3"] + "\"\n")
+            if "alpha_2" in entry:
+                outfile.write("\t\tpart1_code=\"" + entry["alpha_2"] + "\"\n")
+            if "bibliographic" in entry:
+                outfile.write("\t\tpart2_code=\"" + entry["bibliographic"] + "\"\n")
+            # Special case for lcq, which is the only entry with status "Retired"
+            if entry["alpha_3"] == "lcq":
+                outfile.write("\t\tstatus=\"Retired\"\n")
+            else:
+                outfile.write("\t\tstatus=\"Active\"\n")
+            outfile.write("\t\tscope=\"" + entry["scope"] + "\"\n")
+            outfile.write("\t\ttype=\"" + entry["type"] + "\"\n")
+            if "inverted_name" in entry:
+                outfile.write("\t\tinverted_name=\"" + entry["inverted_name"] + "\"\n")
+            outfile.write("\t\treference_name=\"" + entry["name"] + "\"\n")
+            if "common_name" in entry:
+                outfile.write("\t\tcommon_name=\"" + entry["common_name"] + "\"\n")
+            if "inverted_name" in entry:
+                outfile.write("\t\tname=\"" + entry["inverted_name"] + "\"")
+            else:
+                outfile.write("\t\tname=\"" + entry["name"] + "\"")
+            outfile.write(" />\n")
+        outfile.write("</iso_639_3_entries>\n")
+    #
+    # Handle ISO 639-5
+    #
+    elif domain == "iso_639-5":
+        outfile.write(headers["639-5"])
+        outfile.write("\n")
+        outfile.write("<iso_639_5_entries>\n")
+        for entry in get_iso_entries("639-5"):
+            outfile.write("\t<iso_639_5_entry\n")
+            outfile.write("\t\tid=\"" + entry["alpha_3"] + "\"\n")
+            outfile.write("\t\tname=\"" + entry["name"] + "\"")
+            outfile.write(" />\n")
+        outfile.write("</iso_639_5_entries>\n")
+    #
+    # Handle ISO 3166
+    #
+    elif domain == "iso_3166-1":
+        outfile.write(headers["3166"])
+        outfile.write("\n")
+        outfile.write("<iso_3166_entries>\n")
+        for entry in get_iso_entries("3166-1"):
+            outfile.write("\t<iso_3166_entry\n")
+            outfile.write("\t\talpha_2_code=\"" + entry["alpha_2"] + "\"\n")
+            outfile.write("\t\talpha_3_code=\"" + entry["alpha_3"] + "\"\n")
+            outfile.write("\t\tnumeric_code=\"" + entry["numeric"] + "\"\n")
+            if "common_name" in entry:
+                outfile.write("\t\tcommon_name=\"" + entry["common_name"] + "\"\n")
+            outfile.write("\t\tname=\"" + entry["name"] + "\"")
+            if "official_name" in entry:
+                outfile.write("\n\t\tofficial_name=\"" + entry["official_name"] + "\"")
+            outfile.write(" />\n")
+        for entry in get_iso_entries("3166-3"):
+            outfile.write("\t<iso_3166_3_entry\n")
+            outfile.write("\t\talpha_4_code=\"" + entry["alpha_4"] + "\"\n")
+            outfile.write("\t\talpha_3_code=\"" + entry["alpha_3"] + "\"\n")
+            if "numeric" in entry:
+                outfile.write("\t\tnumeric_code=\"" + entry["numeric"] + "\"\n")
+            if "withdrawal_date" in entry:
+                outfile.write("\t\tdate_withdrawn=\"" + entry["withdrawal_date"] + "\"\n")
+            outfile.write("\t\tnames=\"" + entry["name"] + "\"")
+            if "comment" in entry:
+                outfile.write("\n\t\tcomment=\"" + entry["comment"] + "\"")
+            outfile.write(" />\n")
+        outfile.write("</iso_3166_entries>\n")
+    #
+    # Handle ISO 3166-2
+    #
+    elif domain == "iso_3166-2":
+        outfile.write(headers["3166-2"])
+        outfile.write("\n")
+        outfile.write("<iso_3166_2_entries>\n")
+        last_country_code = ""
+        subsets = {}
+        for entry in get_iso_entries("3166-2"):
+            country_code = entry["code"].split("-")[0]
+            # Initialize for every new country
+            if last_country_code != country_code:
+                # Write out if subsets are filled
+                if len(subsets) > 0:
+                    outfile.write("<iso_3166_country code=\"" + last_country_code + "\">\n")
+                    for subset in sorted(subsets):
+                        outfile.write("<iso_3166_subset type=\"" + subset + "\">\n")
+                        for item in subsets[subset]:
+                            outfile.write("\t<iso_3166_2_entry\n")
+                            outfile.write("\t\tcode=\"" + item["code"] + "\"\tname=\"" + item["name"] + "\"")
+                            if "parent" in item:
+                                outfile.write("\tparent=\"" + item["parent"] + "\"")
+                            outfile.write(" />\n")
+                        outfile.write("</iso_3166_subset>\n")
+                    outfile.write("</iso_3166_country>\n")
+                last_country_code = country_code
+                subsets = {}
+            # Group by subset types
+            if entry["type"] not in subsets:
+                subsets[entry["type"]] = [entry]
+            else:
+                subsets[entry["type"]].append(entry)
+        outfile.write("</iso_3166_2_entries>\n")
+    #
+    # Handle ISO 15924
+    #
+    elif domain == "iso_15924":
+        outfile.write(headers["15924"])
+        outfile.write("\n")
+        outfile.write("<iso_15924_entries>\n")
+        for entry in get_iso_entries("15924"):
+            outfile.write("\t<iso_15924_entry\n")
+            outfile.write("\t\talpha_4_code=\"" + entry["alpha_4"] + "\"\n")
+            outfile.write("\t\tnumeric_code=\"" + entry["numeric"] + "\"\n")
+            outfile.write("\t\tname=\"" + entry["name"] + "\"")
+            outfile.write(" />\n")
+        outfile.write("</iso_15924_entries>\n")
+    #
+    # Handle ISO 4217
+    #
+    elif domain == "iso_4217":
+        outfile.write(headers["4217"])
+        outfile.write("\n")
+        outfile.write("<iso_4217_entries>\n")
+        for entry in get_iso_entries("4217"):
+            outfile.write("\t<iso_4217_entry\n")
+            outfile.write("\t\tletter_code=\"" + entry["alpha_3"] + "\"\n")
+            if "numeric" in entry:
+                outfile.write("\t\tnumeric_code=\"" + entry["numeric"] + "\"\n")
+            outfile.write("\t\tcurrency_name=\"" + entry["name"] + "\"")
+            outfile.write(" />\n")
+        # Insert the obsolete historic entries, which are no
+        # longer included in the JSON data files.
+        outfile.write("""	<historic_iso_4217_entry
+		letter_code="ADP"
+		numeric_code="020"
+		currency_name="Andorran Peseta"
+		date_withdrawn="2002-03" />
+	<historic_iso_4217_entry
+		letter_code="ADF"
+		currency_name="Andorran Franc"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="AFA"
+		numeric_code="004"
+		currency_name="Afghani"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="ALK"
+		currency_name="Albanian Old Lek"
+		date_withdrawn="1989-12" />
+	<historic_iso_4217_entry
+		letter_code="AOK"
+		currency_name="Angolan Kwanza"
+		date_withdrawn="1991-03" />
+	<historic_iso_4217_entry
+		letter_code="AON"
+		numeric_code="024"
+		currency_name="Angolan New Kwanza"
+		date_withdrawn="2000-02" />
+	<historic_iso_4217_entry
+		letter_code="AOR"
+		numeric_code="982"
+		currency_name="Angola Kwanza Reajustado"
+		date_withdrawn="2000-02" />
+	<historic_iso_4217_entry
+		letter_code="ARA"
+		currency_name="Argentine Austral"
+		date_withdrawn="1992-01" />
+	<historic_iso_4217_entry
+		letter_code="ARM"
+		currency_name="Argentine peso moneda nacional"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="ARL"
+		currency_name="Argentine peso ley"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="ARP"
+		currency_name="Peso Argentino"
+		date_withdrawn="1985-07" />
+	<historic_iso_4217_entry
+		letter_code="ATS"
+		numeric_code="040"
+		currency_name="Austrian Schilling"
+		date_withdrawn="2002-03" />
+	<historic_iso_4217_entry
+		letter_code="AZM"
+		numeric_code="031"
+		currency_name="Azerbaijanian Manat"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="BAD"
+		numeric_code="070"
+		currency_name="Bosnia and Herzegovina Dinar"
+		date_withdrawn="1997-07" />
+	<historic_iso_4217_entry
+		letter_code="BEC"
+		numeric_code="993"
+		currency_name="Belgian Franc Convertible"
+		date_withdrawn="1990-03" />
+	<historic_iso_4217_entry
+		letter_code="BEF"
+		numeric_code="056"
+		currency_name="Belgian Franc"
+		date_withdrawn="2002-03" />
+	<historic_iso_4217_entry
+		letter_code="BEL"
+		numeric_code="992"
+		currency_name="Belgian Franc Financial"
+		date_withdrawn="1990-03" />
+	<historic_iso_4217_entry
+		letter_code="BGJ"
+		currency_name="Bulgarian Lev A/52"
+		date_withdrawn="1990" />
+	<historic_iso_4217_entry
+		letter_code="BGK"
+		currency_name="Bulgarian Lev A/62"
+		date_withdrawn="1990" />
+	<historic_iso_4217_entry
+		letter_code="BGL"
+		numeric_code="100"
+		currency_name="Bulgarian Lev A/99"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="BOP"
+		currency_name="Bolivian Peso"
+		date_withdrawn="1987-02" />
+	<historic_iso_4217_entry
+		letter_code="BRB"
+		currency_name="Brazilian Cruzeiro"
+		date_withdrawn="1986-03" />
+	<historic_iso_4217_entry
+		letter_code="BRC"
+		currency_name="Brazilian Cruzado"
+		date_withdrawn="1989-02" />
+	<historic_iso_4217_entry
+		letter_code="BRE"
+		numeric_code="076"
+		currency_name="Brazilian Cruzeiro"
+		date_withdrawn="1993-03" />
+	<historic_iso_4217_entry
+		letter_code="BRN"
+		currency_name="Brazilian New Cruzado"
+		date_withdrawn="1990-03" />
+	<historic_iso_4217_entry
+		letter_code="BRR"
+		numeric_code="987"
+		currency_name="Brazilian Cruzeiro Real"
+		date_withdrawn="1994-07" />
+	<historic_iso_4217_entry
+		letter_code="BUK"
+		currency_name="Kyat"
+		date_withdrawn="1990-02" />
+	<historic_iso_4217_entry
+		letter_code="BYB"
+		currency_name="Belarussian Rouble"
+		date_withdrawn="1999" />
+	<historic_iso_4217_entry
+		letter_code="CNX"
+		currency_name="Chinese Peoples Bank Dollar"
+		date_withdrawn="1989-12" />
+	<historic_iso_4217_entry
+		letter_code="CSD"
+		numeric_code="891"
+		currency_name="Serbian Dinar"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="CSJ"
+		currency_name="Czechoslovak Krona A/53"
+		date_withdrawn="1990" />
+	<historic_iso_4217_entry
+		letter_code="CSK"
+		numeric_code="200"
+		currency_name="Czechoslovak Koruna"
+		date_withdrawn="1993-03" />
+	<historic_iso_4217_entry
+		letter_code="DDM"
+		numeric_code="278"
+		currency_name="East German Mark of the GDR"
+		date_withdrawn="1990-09" />
+	<historic_iso_4217_entry
+		letter_code="DEM"
+		numeric_code="276"
+		currency_name="Deutsche Mark"
+		date_withdrawn="2002-03" />
+	<historic_iso_4217_entry
+		letter_code="ECS"
+		numeric_code="218"
+		currency_name="Ecuador Sucre"
+		date_withdrawn="2000-09-15" />
+	<historic_iso_4217_entry
+		letter_code="ECV"
+		numeric_code="983"
+		currency_name="Ecuador Unidad de Valor Constante UVC"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="ESA"
+		numeric_code="996"
+		currency_name="Spanish Peseta ('A' Account)"
+		date_withdrawn="1981" />
+	<historic_iso_4217_entry
+		letter_code="ESB"
+		numeric_code="995"
+		currency_name="Spanish Peseta (convertible)"
+		date_withdrawn="1994-12" />
+	<historic_iso_4217_entry
+		letter_code="ESP"
+		numeric_code="724"
+		currency_name="Spanish Peseta"
+		date_withdrawn="2002-03" />
+	<historic_iso_4217_entry
+		letter_code="FIM"
+		numeric_code="246"
+		currency_name="Finnish Markka"
+		date_withdrawn="2002-03" />
+	<historic_iso_4217_entry
+		letter_code="FRF"
+		numeric_code="250"
+		currency_name="French Franc"
+		date_withdrawn="2002-03" />
+	<historic_iso_4217_entry
+		letter_code="GEK"
+		numeric_code="268"
+		currency_name="Georgian Coupon"
+		date_withdrawn="1995-10" />
+	<historic_iso_4217_entry
+		letter_code="GNE"
+		currency_name="Guinea Syli"
+		date_withdrawn="1989-12" />
+	<historic_iso_4217_entry
+		letter_code="GNS"
+		currency_name="Guinea Syli"
+		date_withdrawn="1986-02" />
+	<historic_iso_4217_entry
+		letter_code="GQE"
+		numeric_code="226"
+		currency_name="Equatorial Guinea Ekwele"
+		date_withdrawn="1989-12" />
+	<historic_iso_4217_entry
+		letter_code="GHC"
+		numeric_code="288"
+		currency_name="Cedi"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="GRD"
+		numeric_code="300"
+		currency_name="Greek Drachma"
+		date_withdrawn="2002-03" />
+	<historic_iso_4217_entry
+		letter_code="GWE"
+		currency_name="Guinea Escudo"
+		date_withdrawn="1981" />
+	<historic_iso_4217_entry
+		letter_code="GWP"
+		numeric_code="624"
+		currency_name="Guinea-Bissau Peso"
+		date_withdrawn="1997-04" />
+	<historic_iso_4217_entry
+		letter_code="HRD"
+		currency_name="Croatian Dinar"
+		date_withdrawn="1995-01" />
+	<historic_iso_4217_entry
+		letter_code="IEP"
+		numeric_code="372"
+		currency_name="Irish Pound"
+		date_withdrawn="2002-03" />
+	<historic_iso_4217_entry
+		letter_code="ILP"
+		currency_name="Israeli Pound"
+		date_withdrawn="1981" />
+	<historic_iso_4217_entry
+		letter_code="ILR"
+		currency_name="Israeli Old Shekel"
+		date_withdrawn="1990" />
+	<historic_iso_4217_entry
+		letter_code="ISJ"
+		currency_name="Iceland Old Krona"
+		date_withdrawn="1990" />
+	<historic_iso_4217_entry
+		letter_code="ITL"
+		numeric_code="380"
+		currency_name="Italian Lira"
+		date_withdrawn="2002-03" />
+	<historic_iso_4217_entry
+		letter_code="LAJ"
+		currency_name="Lao kip"
+		date_withdrawn="1989-12" />
+	<historic_iso_4217_entry
+		letter_code="LSM"
+		currency_name="Lesotho Maloti"
+		date_withdrawn="1985-05" />
+	<historic_iso_4217_entry
+		letter_code="LTT"
+		currency_name="Lithuanian Talonas"
+		date_withdrawn="1993-07" />
+	<historic_iso_4217_entry
+		letter_code="LUC"
+		numeric_code="989"
+		currency_name="Luxembourg Convertible Franc"
+		date_withdrawn="1990-03" />
+	<historic_iso_4217_entry
+		letter_code="LUF"
+		numeric_code="442"
+		currency_name="Luxembourg Franc"
+		date_withdrawn="2002-03" />
+	<historic_iso_4217_entry
+		letter_code="LUL"
+		numeric_code="988"
+		currency_name="Luxembourg Financial Franc"
+		date_withdrawn="1990-03" />
+	<historic_iso_4217_entry
+		letter_code="LVR"
+		currency_name="Latvian Ruble"
+		date_withdrawn="1994-12" />
+	<historic_iso_4217_entry
+		letter_code="MAF"
+		currency_name="Mali Franc"
+		date_withdrawn="1989-12" />
+	<historic_iso_4217_entry
+		letter_code="MGF"
+		numeric_code="450"
+		currency_name="Malagasy Franc"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="MLF"
+		numeric_code="446"
+		currency_name="Mali Franc"
+		date_withdrawn="1984-11" />
+	<historic_iso_4217_entry
+		letter_code="MTP"
+		currency_name="Maltese Pound"
+		date_withdrawn="1983-06" />
+	<historic_iso_4217_entry
+		letter_code="MVQ"
+		currency_name="Maldive Rupee"
+		date_withdrawn="1989-12" />
+	<historic_iso_4217_entry
+		letter_code="MXP"
+		currency_name="Mexican Peso"
+		date_withdrawn="1993-01" />
+	<historic_iso_4217_entry
+		letter_code="MZE"
+		currency_name="Mozambique Escudo"
+		date_withdrawn="1981" />
+	<historic_iso_4217_entry
+		letter_code="MZM"
+		numeric_code="508"
+		currency_name="Mozambique Metical"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="NIC"
+		currency_name="Nicaraguan Cordoba"
+		date_withdrawn="1990-10" />
+	<historic_iso_4217_entry
+		letter_code="NLG"
+		numeric_code="528"
+		currency_name="Netherlands Guilder"
+		date_withdrawn="2002-03" />
+	<historic_iso_4217_entry
+		letter_code="PEH"
+		currency_name="Peruvian Sol"
+		date_withdrawn="1990" />
+	<historic_iso_4217_entry
+		letter_code="PEI"
+		currency_name="Peruvian Inti"
+		date_withdrawn="1991-07" />
+	<historic_iso_4217_entry
+		letter_code="PES"
+		currency_name="Peruvian Sol"
+		date_withdrawn="1986-02" />
+	<historic_iso_4217_entry
+		letter_code="PLZ"
+		numeric_code="616"
+		currency_name="Polish Złoty"
+		date_withdrawn="1997-01" />
+	<historic_iso_4217_entry
+		letter_code="PTE"
+		numeric_code="620"
+		currency_name="Portuguese Escudo"
+		date_withdrawn="2002-03" />
+	<historic_iso_4217_entry
+		letter_code="RHD"
+		currency_name="Rhodesian Dollar"
+		date_withdrawn="1981" />
+	<historic_iso_4217_entry
+		letter_code="ROK"
+		currency_name="Romanian Leu A/52"
+		date_withdrawn="1990" />
+	<historic_iso_4217_entry
+		letter_code="ROL"
+		numeric_code="642"
+		currency_name="Romanian Old Leu"
+		date_withdrawn="2005-06" />
+	<historic_iso_4217_entry
+		letter_code="RUR"
+		numeric_code="810"
+		currency_name="Russian Rouble"
+		date_withdrawn="1997" />
+	<historic_iso_4217_entry
+		letter_code="SDD"
+		numeric_code="736"
+		currency_name="Sudanese Pound"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="SDP"
+		currency_name="Sudanese Pound"
+		date_withdrawn="1998-06" />
+	<historic_iso_4217_entry
+		letter_code="SIT"
+		numeric_code="705"
+		currency_name="Slovenian Tolar"
+		date_withdrawn="2006-12-31" />
+	<historic_iso_4217_entry
+		letter_code="SKK"
+		numeric_code="703"
+		currency_name="Slovak Koruna"
+		date_withdrawn="2009-01-01" />
+	<historic_iso_4217_entry
+		letter_code="SRG"
+		numeric_code="740"
+		currency_name="Suriname Guilder"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="SUR"
+		currency_name="USSR Rouble"
+		date_withdrawn="1990-12" />
+	<historic_iso_4217_entry
+		letter_code="TJR"
+		numeric_code="762"
+		currency_name="Tajik Rouble"
+		date_withdrawn="2000" />
+	<historic_iso_4217_entry
+		letter_code="TLE"
+		numeric_code="626"
+		currency_name="Timor Escudo"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="TRL"
+		numeric_code="792"
+		currency_name="Turkish Lira"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="UAK"
+		numeric_code="804"
+		currency_name="Ukrainian Karbovanet"
+		date_withdrawn="1996-09" />
+	<historic_iso_4217_entry
+		letter_code="UGS"
+		currency_name="Uganda Schilling"
+		date_withdrawn="1987-05" />
+	<historic_iso_4217_entry
+		letter_code="UGW"
+		currency_name="Uganda Old Schilling"
+		date_withdrawn="1990" />
+	<historic_iso_4217_entry
+		letter_code="UYN"
+		currency_name="Old Uruguayan Peso"
+		date_withdrawn="1989-12" />
+	<historic_iso_4217_entry
+		letter_code="UYP"
+		currency_name="Uruguayan Peso"
+		date_withdrawn="1993-03" />
+	<historic_iso_4217_entry
+		letter_code="VEB"
+		numeric_code="862"
+		currency_name="Venezuela Bolívar"
+		date_withdrawn="2008-01-01" />
+	<historic_iso_4217_entry
+		letter_code="VNC"
+		currency_name="Viet Nam Old Dong"
+		date_withdrawn="1990" />
+	<historic_iso_4217_entry
+		letter_code="XEU"
+		numeric_code="954"
+		currency_name="European Currency Unit ECU"
+		date_withdrawn="1999-01" />
+	<historic_iso_4217_entry
+		letter_code="XRE"
+		currency_name="RINET Funds Code"
+		date_withdrawn="1999-11" />
+	<historic_iso_4217_entry
+		letter_code="YDD"
+		numeric_code="720"
+		currency_name="Yemeni Dinar"
+		date_withdrawn="1991-09" />
+    <historic_iso_4217_entry
+		letter_code="YUD"
+		numeric_code="891"
+		currency_name="Yugoslavian Dinar"
+		date_withdrawn="unknown" />
+	<historic_iso_4217_entry
+		letter_code="YUN"
+		numeric_code="890"
+		currency_name="Yugoslavian Dinar"
+		date_withdrawn="1995-11" />
+	<historic_iso_4217_entry
+		letter_code="ZAL"
+		numeric_code="991"
+		currency_name="South African Financial Rand"
+		date_withdrawn="1995-03" />
+	<historic_iso_4217_entry
+		letter_code="ZRN"
+		currency_name="New Zaire"
+		date_withdrawn="1999-06" />
+	<historic_iso_4217_entry
+		letter_code="ZRZ"
+		numeric_code="180"
+		currency_name="Zaire"
+		date_withdrawn="1994-02" />
+""")
+        outfile.write("</iso_4217_entries>\n")