Changeset 24525

Timestamp:

11/21/08 01:20:38 (7 weeks ago)

Author:

daisuke

Message:

slowly progressing...

Location:

lang/perl/DateTime-Lite/trunk/tools

Files:

• benchmark/simple_create.pl (modified) (1 diff)
• lib/DateTime/Lite/Tool/Locale/Generator.pm (modified) (2 diffs)
• lib/DateTime/Lite/Tool/Locale/LDML.pm (modified) (1 diff)

lang/perl/DateTime-Lite/trunk/tools/benchmark/simple_create.pl

@@ -9 +9 @@
 cmpthese(10000, {
     dt => sub {
-        DateTime->new(year => 2000, month => 1, day => 1); # , time_zone => 'Asia/Tokyo')
+        DateTime->new(year => 2000, month => 1, day => 1, time_zone => 'Asia/Tokyo')
     },
     dt_lite => sub {
-        DateTime::Lite->new(year => 2000, month => 1, day => 1); # , time_zone => 'Asia/Tokyo')
+        DateTime::Lite->new(year => 2000, month => 1, day => 1, time_zone => 'Asia/Tokyo')
     }
 });

lang/perl/DateTime-Lite/trunk/tools/lib/DateTime/Lite/Tool/Locale/Generator.pm

@@ -9 +9 @@
 use File::Temp ();
 use LWP::UserAgent;
+use Carp::Always;
 
-use LWP::UserAgent;
+our $VERSION = '0.00001';
 
 with 'MooseX::Getopt';
@@ -107 +108 @@
 
 sub generate_dat_file {
-    my $ldml = shift;
+    my ($self, $ldml) = @_;
 
-    my $dat_file = file( qw( misc locale ), $ldml->id() . q{.dat} );
+    my $dat_file = Path::Class::File->new( qw( misc locale ), $ldml->id() . q{.dat} );
 #    write_to_manifest($dat_file);
+
+    my $parent = $dat_file->parent;
+    if (! -d $parent) {
+        $parent->mkpath() or die;
+    }
 
     open my $fh, '>:utf8', $dat_file
         or die "Cannot write to $dat_file: $!";
 
-    write_pm_header( $fh, $ldml );
-    write_pm_inheritance( $fh, $ldml );
-    write_pm_cldr_version( $fh );
-    write_pm_subs( $fh, $ldml );
-    write_pm_footer( $fh, $ldml );
+#    write_pm_header( $fh, $ldml );
+#    write_pm_inheritance( $fh, $ldml );
+#    write_pm_cldr_version( $fh );
+#    write_pm_subs( $fh, $ldml );
+#    write_pm_footer( $fh, $ldml );
+#}
+
+    print $fh <<EOF;
+###########################################################################
+#
+# This file is auto-generated by the Perl DateTime Suite time locale
+# generator ($VERSION).  This code generator comes with the
+# DateTime::Locale distribution in the tools/ directory, and is called
+# $0.
+#
+# This file as generated from the CLDR XML locale data.  See the
+# LICENSE.cldr file included in this distribution for license details.
+#
+# Do not edit this file directly.
+#
+###########################################################################
+EOF
+    my %data = (
+        cldr_version => $self->version
+    );
+
+    foreach my $attr ( sort { $a->name() cmp $b->name() }
+                       DateTime::Lite::Tool::Locale::LDML->meta()->compute_all_applicable_attributes() )
+    {
+        next unless $attr->name() =~
+            /^(?:day_|month_|quarter_|am_pm|era_|date_|time_|datetime_|first_day_)/;
+
+        next if make_alias( $fh, $ldml, $attr->name() );
+
+        my $type = $attr->type_constraint();
+
+        if ( $type->is_a_type_of('ArrayRef') )
+        {
+            write_arrayref_sub( $fh, $ldml, $attr->name() );
+        }
+        elsif ( $type->is_a_type_of('HashRef') )
+        {
+            write_hashref_sub( $fh, $ldml, $attr->name() );
+        }
+        elsif ( $type->is_a_type_of('Str') )
+        {
+            write_string_sub( $fh, $ldml, $attr->name() );
+        }
+        elsif ( $type->is_a_type_of('Int') )
+        {
+            write_int_sub( $fh, $ldml, $attr->name() );
+        }
+        else
+        {
+            die "Cannot handle type: " . $type->name();
+        }
+    }
+
 }
 

lang/perl/DateTime-Lite/trunk/tools/lib/DateTime/Lite/Tool/Locale/LDML.pm

@@ -507 +507 @@
     # alias for the entire file, so they can be investigated as
     # needed.
+
     my $path = $node->getAttribute('path') || $node->parentNode()->nodePath();
+
+    if (! $path) {
+        printf STDERR "TODO: alias node has source (%s), but we don't know to do with it\n", $node->getAttribute('source');
+        return;
+    }
 
     $class->_replace_alias_with_path( $node, $path, $doc, $target_file );