From 90721f2d39b0cdd5d22409f1bf4f6ce4b7382944 Mon Sep 17 00:00:00 2001 From: "Steven G. Johnson" Date: Fri, 6 Mar 2015 17:36:08 -0500 Subject: directory cleanup: move tests and data into subdirectories --- data/data_generator.rb | 317 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 317 insertions(+) create mode 100644 data/data_generator.rb (limited to 'data') diff --git a/data/data_generator.rb b/data/data_generator.rb new file mode 100644 index 0000000..1439038 --- /dev/null +++ b/data/data_generator.rb @@ -0,0 +1,317 @@ +#!/usr/bin/env ruby + +# This file was used to generate the 'unicode_data.c' file by parsing the +# Unicode data file 'UnicodeData.txt' of the Unicode Character Database. +# It is included for informational purposes only and not intended for +# production use. + + +# Copyright (c) 2009 Public Software Group e. V., Berlin, Germany +# +# Permission is hereby granted, free of charge, to any person obtaining a +# copy of this software and associated documentation files (the "Software"), +# to deal in the Software without restriction, including without limitation +# the rights to use, copy, modify, merge, publish, distribute, sublicense, +# and/or sell copies of the Software, and to permit persons to whom the +# Software is furnished to do so, subject to the following conditions: +# +# The above copyright notice and this permission notice shall be included in +# all copies or substantial portions of the Software. +# +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER +# DEALINGS IN THE SOFTWARE. + + +# This file contains derived data from a modified version of the +# Unicode data files. The following license applies to that data: +# +# COPYRIGHT AND PERMISSION NOTICE +# +# Copyright (c) 1991-2007 Unicode, Inc. All rights reserved. Distributed +# under the Terms of Use in http://www.unicode.org/copyright.html. +# +# Permission is hereby granted, free of charge, to any person obtaining a +# copy of the Unicode data files and any associated documentation (the "Data +# Files") or Unicode software and any associated documentation (the +# "Software") to deal in the Data Files or Software without restriction, +# including without limitation the rights to use, copy, modify, merge, +# publish, distribute, and/or sell copies of the Data Files or Software, and +# to permit persons to whom the Data Files or Software are furnished to do +# so, provided that (a) the above copyright notice(s) and this permission +# notice appear with all copies of the Data Files or Software, (b) both the +# above copyright notice(s) and this permission notice appear in associated +# documentation, and (c) there is clear notice in each modified Data File or +# in the Software as well as in the documentation associated with the Data +# File(s) or Software that the data or software has been modified. +# +# THE DATA FILES AND SOFTWARE ARE PROVIDED "AS IS", WITHOUT WARRANTY OF ANY +# KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT OF +# THIRD PARTY RIGHTS. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR HOLDERS +# INCLUDED IN THIS NOTICE BE LIABLE FOR ANY CLAIM, OR ANY SPECIAL INDIRECT OR +# CONSEQUENTIAL DAMAGES, OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF +# USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER +# TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR +# PERFORMANCE OF THE DATA FILES OR SOFTWARE. +# +# Except as contained in this notice, the name of a copyright holder shall +# not be used in advertising or otherwise to promote the sale, use or other +# dealings in these Data Files or Software without prior written +# authorization of the copyright holder. + + +$ignorable_list = File.read("DerivedCoreProperties.txt")[/# Derived Property: Default_Ignorable_Code_Point.*?# Total code points:/m] +$ignorable = [] +$ignorable_list.each_line do |entry| + if entry =~ /^([0-9A-F]+)\.\.([0-9A-F]+)/ + $1.hex.upto($2.hex) { |e2| $ignorable << e2 } + elsif entry =~ /^[0-9A-F]+/ + $ignorable << $&.hex + end +end + +$grapheme_boundclass_list = File.read("GraphemeBreakProperty.txt") +$grapheme_boundclass = Hash.new("UTF8PROC_BOUNDCLASS_OTHER") +$grapheme_boundclass_list.each_line do |entry| + if entry =~ /^([0-9A-F]+)\.\.([0-9A-F]+)\s*;\s*([A-Za-z_]+)/ + $1.hex.upto($2.hex) { |e2| $grapheme_boundclass[e2] = "UTF8PROC_BOUNDCLASS_" + $3.upcase } + elsif entry =~ /^([0-9A-F]+)\s*;\s*([A-Za-z_]+)/ + $grapheme_boundclass[$1.hex] = "UTF8PROC_BOUNDCLASS_" + $2.upcase + end +end + +$exclusions = File.read("CompositionExclusions.txt")[/# \(1\) Script Specifics.*?# Total code points:/m] +$exclusions = $exclusions.chomp.split("\n").collect { |e| e.hex } + +$excl_version = File.read("CompositionExclusions.txt")[/# \(2\) Post Composition Version precomposed characters.*?# Total code points:/m] +$excl_version = $excl_version.chomp.split("\n").collect { |e| e.hex } + +$case_folding_string = File.open("CaseFolding.txt").read + +$case_folding = {} +$case_folding_string.chomp.split("\n").each do |line| + next unless line =~ /([0-9A-F]+); [CFS]; ([0-9A-F ]+);/i + $case_folding[$1.hex] = $2.split(" ").collect { |e| e.hex } +end + +$int_array = [] +$int_array_indicies = {} + +def str2c(string, prefix) + return "0" if string.nil? + return "UTF8PROC_#{prefix}_#{string.upcase}" +end +def ary2c(array) + return "NULL" if array.nil? + unless $int_array_indicies[array] + $int_array_indicies[array] = $int_array.length + array.each { |entry| $int_array << entry } + $int_array << -1 + end + return "utf8proc_sequences + #{$int_array_indicies[array]}" +end + +class UnicodeChar + attr_accessor :code, :name, :category, :combining_class, :bidi_class, + :decomp_type, :decomp_mapping, + :bidi_mirrored, + :uppercase_mapping, :lowercase_mapping, :titlecase_mapping + def initialize(line) + raise "Could not parse input." unless line =~ /^ + ([0-9A-F]+); # code + ([^;]+); # name + ([A-Z]+); # general category + ([0-9]+); # canonical combining class + ([A-Z]+); # bidi class + (<([A-Z]*)>)? # decomposition type + ((\ ?[0-9A-F]+)*); # decompomposition mapping + ([0-9]*); # decimal digit + ([0-9]*); # digit + ([^;]*); # numeric + ([YN]*); # bidi mirrored + ([^;]*); # unicode 1.0 name + ([^;]*); # iso comment + ([0-9A-F]*); # simple uppercase mapping + ([0-9A-F]*); # simple lowercase mapping + ([0-9A-F]*)$/ix # simple titlecase mapping + @code = $1.hex + @name = $2 + @category = $3 + @combining_class = Integer($4) + @bidi_class = $5 + @decomp_type = $7 + @decomp_mapping = ($8=='') ? nil : + $8.split.collect { |element| element.hex } + @bidi_mirrored = ($13=='Y') ? true : false + @uppercase_mapping = ($16=='') ? nil : $16.hex + @lowercase_mapping = ($17=='') ? nil : $17.hex + @titlecase_mapping = ($18=='') ? nil : $18.hex + end + def case_folding + $case_folding[code] + end + def c_entry(comb1_indicies, comb2_indicies) + " " << + "{#{str2c category, 'CATEGORY'}, #{combining_class}, " << + "#{str2c bidi_class, 'BIDI_CLASS'}, " << + "#{str2c decomp_type, 'DECOMP_TYPE'}, " << + "#{ary2c decomp_mapping}, " << + "#{ary2c case_folding}, " << + "#{uppercase_mapping or -1}, " << + "#{lowercase_mapping or -1}, " << + "#{titlecase_mapping or -1}, " << + "#{comb1_indicies[code] ? + (comb1_indicies[code]*comb2_indicies.keys.length) : -1 + }, #{comb2_indicies[code] or -1}, " << + "#{bidi_mirrored}, " << + "#{$exclusions.include?(code) or $excl_version.include?(code)}, " << + "#{$ignorable.include?(code)}, " << + "#{%W[Zl Zp Cc Cf].include?(category) and not [0x200C, 0x200D].include?(category)}, " << + "#{$grapheme_boundclass[code]}},\n" + end +end + +chars = [] +char_hash = {} + +while gets + if $_ =~ /^([0-9A-F]+);<[^;>,]+, First>;/i + first = $1.hex + gets + char = UnicodeChar.new($_) + raise "No last character of sequence found." unless + $_ =~ /^([0-9A-F]+);<([^;>,]+), Last>;/i + last = $1.hex + name = "<#{$2}>" + for i in first..last + char_clone = char.clone + char_clone.code = i + char_clone.name = name + char_hash[char_clone.code] = char_clone + chars << char_clone + end + else + char = UnicodeChar.new($_) + char_hash[char.code] = char + chars << char + end +end + +comb1st_indicies = {} +comb2nd_indicies = {} +comb_array = [] + +chars.each do |char| + if !char.nil? and char.decomp_type.nil? and char.decomp_mapping and + char.decomp_mapping.length == 2 and !char_hash[char.decomp_mapping[0]].nil? and + char_hash[char.decomp_mapping[0]].combining_class == 0 and + not $exclusions.include?(char.code) + unless comb1st_indicies[char.decomp_mapping[0]] + comb1st_indicies[char.decomp_mapping[0]] = comb1st_indicies.keys.length + end + unless comb2nd_indicies[char.decomp_mapping[1]] + comb2nd_indicies[char.decomp_mapping[1]] = comb2nd_indicies.keys.length + end + comb_array[comb1st_indicies[char.decomp_mapping[0]]] ||= [] + raise "Duplicate canonical mapping" if + comb_array[comb1st_indicies[char.decomp_mapping[0]]][ + comb2nd_indicies[char.decomp_mapping[1]]] + comb_array[comb1st_indicies[char.decomp_mapping[0]]][ + comb2nd_indicies[char.decomp_mapping[1]]] = char.code + end +end + +properties_indicies = {} +properties = [] +chars.each do |char| + c_entry = char.c_entry(comb1st_indicies, comb2nd_indicies) + unless properties_indicies[c_entry] + properties_indicies[c_entry] = properties.length + properties << c_entry + end +end + +stage1 = [] +stage2 = [] +for code in 0...0x110000 + next unless code % 0x100 == 0 + stage2_entry = [] + for code2 in code...(code+0x100) + if char_hash[code2] + stage2_entry << (properties_indicies[char_hash[code2].c_entry( + comb1st_indicies, comb2nd_indicies)] + 1) + else + stage2_entry << 0 + end + end + old_index = stage2.index(stage2_entry) + if old_index + stage1 << (old_index * 0x100) + else + stage1 << (stage2.length * 0x100) + stage2 << stage2_entry + end +end + +$stdout << "const int32_t utf8proc_sequences[] = {\n " +i = 0 +$int_array.each do |entry| + i += 1 + if i == 8 + i = 0 + $stdout << "\n " + end + $stdout << entry << ", " +end +$stdout << "};\n\n" + +$stdout << "const uint16_t utf8proc_stage1table[] = {\n " +i = 0 +stage1.each do |entry| + i += 1 + if i == 8 + i = 0 + $stdout << "\n " + end + $stdout << entry << ", " +end +$stdout << "};\n\n" + +$stdout << "const uint16_t utf8proc_stage2table[] = {\n " +i = 0 +stage2.flatten.each do |entry| + i += 1 + if i == 8 + i = 0 + $stdout << "\n " + end + $stdout << entry << ", " +end +$stdout << "};\n\n" + +$stdout << "const utf8proc_property_t utf8proc_properties[] = {\n" +$stdout << " {0, 0, 0, 0, NULL, NULL, -1, -1, -1, -1, -1, false,false,false,false, UTF8PROC_BOUNDCLASS_OTHER},\n" +properties.each { |line| + $stdout << line +} +$stdout << "};\n\n" + +$stdout << "const int32_t utf8proc_combinations[] = {\n " +i = 0 +comb1st_indicies.keys.each_index do |a| + comb2nd_indicies.keys.each_index do |b| + i += 1 + if i == 8 + i = 0 + $stdout << "\n " + end + $stdout << ( comb_array[a][b] or -1 ) << ", " + end +end +$stdout << "};\n\n" + -- cgit v1.2.3