src/parsec/disk-image/parsec/parsec-benchmark/pkgs/libs/glib/src/glib/gen-script-table.pl

#!/usr/bin/perl -w 
#
# Script to convert http://www.unicode.org/Public/UNIDATA/Scripts.txt
# into a machine-readable table.
#
######################################################################

if (@ARGV != 1) {
    die "Usage: gen-script-table.pl Scripts.txt > gscripttable.h\n";
}

open IN, $ARGV[0] || die "Cannot open $ARGV[0]: $!\n";

my @ranges;
my $file;
my $easy_range;
my $i;
my $start;
my $end;
my $script;


while (<IN>) {
    if (/^\#\s+(Scripts-.*.txt)/) {
	$file = $1;
    }
    
    s/#.*//;
    next if /^\s*$/;
    if (!/^([0-9A-F]+)(?:\.\.([0-9A-F]+))?\s*;\s*([A-Za-z_]+)\s*$/) {
	die "Cannot parse line: '$_'\n";
    }

    if (defined $2) {
	push @ranges, [ hex $1, hex $2, uc $3 ];
    } else {
	push @ranges, [ hex $1, hex $1, uc $3 ];
    }
}

@ranges = sort { $a->[0] <=> $b->[0] } @ranges;
$date = gmtime;

print <<"EOT";
/* gscripttable.h: Generated by gen-script-table.pl
 *
 *  Date: $date
 *  Source: $file
 *
 * Do not edit.
 */

EOT

$easy_range = 0x2000;

print <<"EOT";
#define G_EASY_SCRIPTS_RANGE $easy_range

static const guchar g_script_easy_table[$easy_range] = {
EOT

$i = 0;
$end = -1;

for (my $c = 0; $c < $easy_range; $c++) {

    if ($c % 3 == 0) {
      printf "\n ";
    }

    if ($c > $end) {
        $start = $ranges[$i]->[0];
        $end = $ranges[$i]->[1];
        $script = $ranges[$i]->[2];
        $i++;
    }
    
    if ($c < $start) {
        printf " G_UNICODE_SCRIPT_UNKNOWN,";
    } else {
        printf " G_UNICODE_SCRIPT_%s,", $script;
    }
}

if ($end >= $easy_range) {
    $i--;
    $ranges[$i]->[0] = $easy_range;
}


print <<"EOT";

};

static const struct {
    gunichar    start;
    guint16     chars;
    guint16     script;
} g_script_table[] = { 
EOT

for (; $i <= $#ranges; $i++) {
    $start = $ranges[$i]->[0];
    $end = $ranges[$i]->[1];
    $script = $ranges[$i]->[2];

    while ($i <= $#ranges - 1 &&
	   $ranges[$i + 1]->[0] == $end + 1 &&
	   $ranges[$i + 1]->[2] eq $script) {
	$i++;
	$end = $ranges[$i]->[1];
    }

    printf " { %#06x, %5d, G_UNICODE_SCRIPT_%s },\n", $start, $end - $start + 1, $script;
}

printf "};\n";