view release on metacpan or  search on metacpan

MP3/L10N/ja.pm  view on Meta::CPAN

package Apache::MP3::L10N::ja;  # Japanese
# Encoded in Shift_JIS, de facto standard of MP3 tags in Japan
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);

# Translator: miyagawa@bulknews.net

sub encoding {'shift_jis'} # Shift-JIS
sub language_tag {__PACKAGE__->SUPER::language_tag}

sub sworp {
  # Treat [ and ] as literal; use { and } as the metacharacters.
  my @in = @_;
  foreach my $x (@in) {
    $x =~ s/\[/~[/g;
    $x =~ s/\]/~]/g;
    $x =~ tr<{}><[]>;
  }
  @in;
}

%Lexicon = (sworp(
 '_VERSION' => __PACKAGE__ . ' v' . 
 ($VERSION=   '20020612'), # Last modified

 # These are links as well as button text:
 'Play All' => 'ƒvƒŒƒC',
 'Shuffle All' => 'ƒVƒƒƒbƒtƒ‹',  # Stream all in random order
 'Stream All' => 'ƒXƒgƒŠ[ƒ~ƒ“ƒO',

 # This one in just button text
 'Play Selected' => 'ƒ`ƒFƒbƒN‚µ‚½‚à‚Ì‚ðƒvƒŒƒC',
 
 "In this demo, streaming is limited to approximately {quant,_1,second,seconds}."
  => "‚±‚̃fƒ‚‚ł́AƒXƒgƒŠ[ƒ~ƒ“ƒO‚Í {quant,_1,•b,•b} ‚ÉŒÀ’肳‚ê‚Ä‚¢‚Ü‚·B",
  # In [quant,_1,seconde,secondes], the seconde is the singular form, and the secondes is the plural.
 
 # Headings:
 'CD Directories ({_1})' => 'CD ƒfƒBƒŒƒNƒgƒŠ ({_1})',
 'Playlists ({_1})' => 'ƒvƒŒƒCƒŠƒXƒg ({_1})',
 'Song List ({_1})' => 'ƒtƒ@ƒCƒ‹ƒŠƒXƒg ({_1})',

 'Playlist' => 'ƒvƒŒƒCƒŠƒXƒg',
 'Select' => '‘I‘ð',
 
 'fetch'  => 'ƒ_ƒEƒ“ƒ[ƒh',   # this file
 'stream' => 'ƒXƒgƒŠ[ƒ~ƒ“ƒO',    # this file
 
 'Shuffle'  => 'ƒVƒƒƒbƒtƒ‹',  # a subdirectory, recursively
 'Stream'   => 'ƒXƒgƒŠ[ƒ~ƒ“ƒO',            # a subdirectory, recursively
 
 # Label for a link to "http://[servername]/"
 'Home' => 'Home',

 # Credits
 "_CREDITS_before_author" => "Apache::MP3 by ",
 "_CREDITS_author"        => "Lincoln D. Stein", 
 "_CREDITS_after_author"  => ".",


 'unknown' => 'unknown',

 # Metadata fields:
 'Artist' => 'ƒA[ƒeƒBƒXƒg',
 'Comment' => 'ƒRƒƒ“ƒg',
 'Duration' => '‰‰‘tŽžŠÔ',
 'Filename' => 'ƒtƒ@ƒCƒ‹–¼',
 'Genre' => 'ƒWƒƒƒ“ƒ‹',
 'Album' => 'ƒAƒ‹ƒoƒ€',
 'Min' => '•ª',
 'Track' => 'ƒgƒ‰ƒbƒN',  # just the track number (not the track name)
 'Samplerate' => 'ƒTƒ“ƒvƒ‹ƒŒ[ƒg',
 'Bitrate' => 'ƒrƒbƒgƒŒ[ƒg',
 'Sec' => '•b',
 'Seconds' => '•b',
 'Title' => 'ƒ^ƒCƒgƒ‹',
 'Year' => '”N',


 # Now the stuff for the help page:

 'Quick Help Summary' => 'ƒNƒCƒbƒNƒwƒ‹ƒv',
  # page title as well as the text we use for linking to that page

 "= Stream all songs" => '= ‚·‚ׂĂ̋ȂðƒXƒgƒŠ[ƒ~ƒ“ƒO',
 "= Shuffle-play all Songs" => '= ‚·‚ׂĂ̋ȂðƒVƒƒƒbƒtƒ‹‚µ‚ĉ‰‘t',
 "= Go to earlier directory" => '= ã‚̃fƒBƒŒƒNƒgƒŠ‚Ö',
 "= Stream contents" => '= ƒRƒ“ƒeƒ“ƒc‚ðƒXƒgƒŠ[ƒ~ƒ“ƒO',
 "= Enter directory" => '= ƒfƒBƒŒƒNƒgƒŠ‚ðŠJ‚­',
 "= Stream this song" => '= ‚±‚Ì‹È‚ðƒXƒgƒŠ[ƒ~ƒ“ƒO',
 "= Select for streaming" => '= ƒXƒgƒŠ[ƒ~ƒ“ƒO—p‚Ƀ`ƒFƒbƒN',
 "= Download this song" => '= ‚±‚Ì‹È‚ðƒ_ƒEƒ“ƒ[ƒh',
 "= Stream this song" => '= ‚±‚Ì‹È‚ðƒXƒgƒŠ[ƒ~ƒ“ƒO',
 "= Sort by field" => '= ƒtƒB[ƒ‹ƒh‚Ń\[ƒg',

));

1;