diff options
Diffstat (limited to 'rt/lib/RT/I18N/cs.pm')
| -rw-r--r-- | rt/lib/RT/I18N/cs.pm | 115 |
1 files changed, 0 insertions, 115 deletions
diff --git a/rt/lib/RT/I18N/cs.pm b/rt/lib/RT/I18N/cs.pm deleted file mode 100644 index 9b96be1..0000000 --- a/rt/lib/RT/I18N/cs.pm +++ /dev/null @@ -1,115 +0,0 @@ -# BEGIN BPS TAGGED BLOCK {{{ -# -# COPYRIGHT: -# -# This software is Copyright (c) 1996-2007 Best Practical Solutions, LLC -# <jesse@bestpractical.com> -# -# (Except where explicitly superseded by other copyright notices) -# -# -# LICENSE: -# -# This work is made available to you under the terms of Version 2 of -# the GNU General Public License. A copy of that license should have -# been provided with this software, but in any event can be snarfed -# from www.gnu.org. -# -# This work is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -# 02110-1301 or visit their web page on the internet at -# http://www.gnu.org/copyleft/gpl.html. -# -# -# CONTRIBUTION SUBMISSION POLICY: -# -# (The following paragraph is not intended to limit the rights granted -# to you to modify and distribute this software under the terms of -# the GNU General Public License and is only of importance to you if -# you choose to contribute your changes and enhancements to the -# community by submitting them to Best Practical Solutions, LLC.) -# -# By intentionally submitting any modifications, corrections or -# derivatives to this work, or any other work intended for use with -# Request Tracker, to Best Practical Solutions, LLC, you confirm that -# you are the copyright holder for those contributions and you grant -# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -# royalty-free, perpetual, license to use, copy, create derivative -# works based on those contributions, and sublicense and distribute -# those contributions and any derivatives thereof. -# -# END BPS TAGGED BLOCK }}} -package RT::I18N::cs; - -# # CZECH TRANSLATORS COMMENTS see Locale::Maketext::TPJ13 -# Obecne parametry musi byt docela slozite (v pripade Slavistickych jazyku) -# typu pocet, slovo, pad a rod -# -#pad 1., rod muzsky: -#0 krecku -#1 krecek -#2..4 krecci -#5.. krecku (nehodi se zde resit pravidlo mod 1,2,3,4 krom mod 11,12,13,14) -# -#0 kabatu -#1 kabat -#2..4 kabaty -#5 kabatu -# -# => Vyplati se udelat quant s parametry typu pocet, slovo1, slovo2..4, slovo5 a slovo0 -# - -sub quant { - my($handle, $num, @forms) = @_; - - return $num if @forms == 0; # what should this mean? - return $forms[3] if @forms > 3 and $num == 0; # special zeroth case - - # Normal case: - # Note that the formatting of $num is preserved. - #return( $handle->numf($num) . ' ' . $handle->numerate($num, @forms) ); - return( $handle->numerate($num, @forms) ); - # Most human languages put the number phrase before the qualified phrase. -} - - -sub numerate { - # return this lexical item in a form appropriate to this number - my($handle, $num, @forms) = @_; - my $s = ($num == 1); - - return '' unless @forms; - return - $s ? $forms[0] : - ( $num > 1 && $num < 5 ) ? $forms[1] : - $forms[2]; -} - -#-------------------------------------------------------------------------- - -sub numf { - my($handle, $num) = @_[0,1]; - if($num < 10_000_000_000 and $num > -10_000_000_000 and $num == int($num)) { - $num += 0; # Just use normal integer stringification. - # Specifically, don't let %G turn ten million into 1E+007 - } else { - $num = CORE::sprintf("%G", $num); - # "CORE::" is there to avoid confusion with the above sub sprintf. - } - while( $num =~ s/^([-+]?\d+)(\d{3})/$1,$2/s ) {1} # right from perlfaq5 - # The initial \d+ gobbles as many digits as it can, and then we - # backtrack so it un-eats the rightmost three, and then we - # insert the comma there. - - $num =~ tr<.,><,.> if ref($handle) and $handle->{'numf_comma'}; - # This is just a lame hack instead of using Number::Format - return $num; -} - -1; |