db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free#!/usr/bin/perl
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free# Purpose: To create internationalized versions of default.svg.
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free# Usage: create_defaults.pl
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-freeuse strict;
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-freeuse warnings;
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-freeuse utf8;
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-freemy $count = 0;
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free# Data base
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-freemy @data = (
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["be", "Пласт 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["ca", "Capa 1", "capa1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["cs", "Vrstva 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["de", "Ebene 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["eo", "Tavolo 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["es", "Capa 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["eu", "Capa 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["fi", "Taso 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["fr", "Calque 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["hu", "1. réteg", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["it", "Livello 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["ja", "レイヤー 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["lt", "Sluoksnis 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["nl", "Laag 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["pl", "Warstwa 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["pt_BR", "Camada 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["ro", "Strat 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["sk", "Vrstva 1", "layer1"],
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ["zh_TW", "圖層 1", "layer1"]
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free );
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-freeforeach my $lang (@data ) {
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free ++$count;
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free my @values = @{$lang};
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free print "$values[0]\n";
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free my $filename = "default." . $values[0] . ".svg";
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free open( OUTPUT, '>:encoding(UTF-8)', $filename ) or die "Cannot open $filename.\n";
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free # Open input again to return to top...
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free open (INPUT, '<:encoding(UTF-8)', "default.svg") or die 'Cannot open input\n';
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free while( my $line = <INPUT> ) {
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free if( $line =~ /inkscape:label=/ ) {
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free $line =~ s/Layer 1/$values[1]/;
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free }
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free print OUTPUT $line;
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free }
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free close( INPUT );
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free close( OUTPUT );
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free}
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-freeprint "Created $count files.\n";