art5

   1 #!/usr/bin/perl
   2
   3 use Art5;
   4
   5 my $dump = 0;
   6 my $v, $s;
   7 my @path = ();
   8 my $cache = undef;
   9
  10 # raw argument parsing
  11 while ($v = shift(@ARGV)) {
  12         if ($v eq '-d') {
  13                 $dump  = 1;
  14         }
  15         elsif ($v eq '-I') {
  16                 push(@path, shift(@ARGV));
  17         }
  18         elsif ($v eq '-c') {
  19                 $cache = shift(@ARGV);
  20         }
  21         elsif ($v eq '-l') {
  22                 update_lang();
  23         }
  24         elsif ($v eq '-h') {
  25                 usage();
  26         }
  27         else {
  28                 # script name
  29         }
  30 }
  31
  32 if (!defined($s)) {
  33         $s = join('', <>);
  34 }
  35
  36 my $a = Art5->new( path => \@path, cache => $cache);
  37
  38 my $c = $a->compile($s);
  39
  40 if ($dump) {
  41         use Data::Dumper;
  42
  43         print Dumper($c), "\n";
  44 }
  45 else {
  46         print $a->exec($c);
  47 }
  48
  49 exit 0;
  50
  51
  52
  53 sub update_lang
  54 # updates all language files
  55 {
  56         my @lang = glob("lang_*");
  57
  58         if (scalar(@lang) == 0) {
  59                 print "Error: no lang_* files.\n";
  60                 exit 1;
  61         }
  62
  63         # read now all templates in the current directory
  64         # searching for translateable strings
  65         my %h = ();
  66
  67         foreach my $t (glob("*")) {
  68                 # skip language files themselves
  69                 if ($t =~ /lang_.*$/) {
  70                         next;
  71                 }
  72
  73                 # read template
  74                 if (open F, $t) {
  75                         my $l;
  76
  77                         while ($l = <F>) {
  78                                 my @s = ($l =~ /@\"([^\"]+)"/g);
  79
  80                                 foreach my $s (@s) {
  81                                         $h{$s}++;
  82                                 }
  83                         }
  84
  85                         close F;
  86                 }
  87         }
  88
  89         my $a = Art5->new( path => ['.']);
  90
  91         # now all keys in the templates must be
  92         # merged into each language file
  93         # ...
  94
  95         foreach my $l (@lang) {
  96                 print "Rebulding $l...\n";
  97
  98                 # load and execute this template file
  99                 my $c = $a->code($l);
 100                 $a->exec($c);
 101
 102                 open F, ">$l";
 103
 104                 print F "<{T\n";
 105                 foreach my $k (sort keys(%h)) {
 106                         print F "\"$k\" \n";
 107                         print F "\"", ($a->{t}->{$k} || ''), "\"\n\n";
 108                 }
 109                 print F "}>\n";
 110
 111                 close F;
 112         }
 113
 114         exit 0;
 115 }
 116
 117
 118 sub usage {
 119         print <<EOF;
 120
 121 Artemus 5 Command Line Interpreter
 122 Copyright (C) 2000/2010 Angel Ortega <angel\@triptico.com>
 123
 124 Usage:
 125
 126 art5 [options]
 127
 128 Options
 129 -------
 130
 131  -d       Do not execute the compiled code, but dump it (using
 132           Data::Dumper).
 133  -I {dir} Add {dir} to the template search path.
 134  -c {dir} Use {dir} as a folder to store caching information.
 135  -l       Reads all templates in the current directory, extracts all
 136           translateable strings and updates all templates matching
 137           'lang_*' with them. To start with a new language, just
 138           create an empty language file.
 139  -h       Show this help.
 140
 141 EOF
 142
 143         exit 0;
 144 }