diff options
Diffstat (limited to 'utils/idna-derived-props-gen.pl')
-rw-r--r-- | utils/idna-derived-props-gen.pl | 96 |
1 files changed, 0 insertions, 96 deletions
diff --git a/utils/idna-derived-props-gen.pl b/utils/idna-derived-props-gen.pl deleted file mode 100644 index 515f62a40..000000000 --- a/utils/idna-derived-props-gen.pl +++ /dev/null @@ -1,96 +0,0 @@ -#!/usr/bin/perl -# -# Copyright 2014 Chris Young <chris@unsatisfactorysoftware.co.uk> -# -# This file is part of NetSurf, http://www.netsurf-browser.org/ -# -# NetSurf is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; version 2 of the License. -# -# NetSurf 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 General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program. If not, see <http://www.gnu.org/licenses/>. - -print <<HEADER; -/* This file is generated by idna-derived-props-gen.pl - * DO NOT EDIT BY HAND - */ -#ifndef _NETSURF_UTILS_IDNA_PROPS_H_ -#define _NETSURF_UTILS_IDNA_PROPS_H_ - -typedef enum idna_property { - IDNA_P_PVALID = 1, - IDNA_P_CONTEXTJ = 2, - IDNA_P_CONTEXTO = 3, - IDNA_P_DISALLOWED = 4, - IDNA_P_UNASSIGNED = 5 -} idna_property; - -typedef enum idna_unicode_jt { - IDNA_UNICODE_JT_U = 0, - IDNA_UNICODE_JT_C = 1, - IDNA_UNICODE_JT_D = 2, - IDNA_UNICODE_JT_R = 3, - IDNA_UNICODE_JT_T = 4, - IDNA_UNICODE_JT_L = 5 -} idna_unicode_jt; - - -typedef struct idna_table { - int32_t start; - int32_t end; - union p { - idna_property property; - idna_unicode_jt jt; - } p; -} idna_table; - -idna_table idna_derived[] = { -HEADER - -open(CSVFILE, "idna-tables-5.2.0-properties.csv"); -$line = <CSVFILE>; # discard header line - -while($line = <CSVFILE>) { - @items = split(/\,/, $line); - @codepoints = split(/-/, $items[0]); - if($#codepoints == 0) { $codepoints[1] = $codepoints[0]; } - print "\t{ 0x" . $codepoints[0] . ", 0x" . $codepoints[1] . ", .p.property = IDNA_P_" . $items[1] . " },\n"; -} - -close(CSVFILE); - -print <<HEADER; - { 0, 0, .p.property = 0} -}; - -idna_table idna_joiningtype[] = { -HEADER - - -open(TXTFILE, "DerivedJoiningType.txt"); - -while($line = <TXTFILE>) { - chop($line); - if(substr($line, 0, 1) eq '#') {next;} - if(length($line) == 0) {next;} - @items = split(/;/, $line); - @codepoints = split(/\./, $items[0]); - if($#codepoints == 0) { $codepoints[2] = $codepoints[0]; } - print "\t{ 0x" . $codepoints[0] . ", 0x" . $codepoints[2] . ", .p.jt = IDNA_UNICODE_JT_" . substr($items[1], 1, 1) . " },\n"; -} - -close(TXTFILE); - -print <<HEADER; - { 0, 0, .p.jt = 0} -}; -#endif -HEADER - - |