# Copyright 2002-2007 Interchange Development Group and others
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.  See the LICENSE file for details.
# 
# $Id: parse_locale.coretag,v 1.4 2007-03-30 23:40:49 pajamian Exp $

UserTag parse_locale hasEndTag  
UserTag parse_locale PosNumber  0
UserTag parse_locale Version    $Revision: 1.4 $
UserTag parse_locale MapRoutine Vend::Util::parse_locale

sub parse_locale {
my ($input) = @_;

return if $::Pragma->{no_locale_parse};

# avoid copying big strings
my $r = ref($input) ? $input : \$input;

if($Vend::Cfg->{Locale}) {
  my $key;
  $$r =~ s~\]+))?\]((?s:.)*?)\[/L\]~
          $key = $2 || $3;    
          defined $Vend::Cfg->{Locale}{$key}
          ?  ($Vend::Cfg->{Locale}{$key})  : $3 ~eg;
  $$r =~ s~\[LC\]((?s:.)*?)\[/LC\]~
          find_locale_bit($1) ~eg;
  undef $Lang;
}
else {
  $$r =~ s~\]+)?\]((?s:.)*?)\[/L\]~$1~g;
}

# return scalar string if one get passed initially
return ref($input) ? $input : $$r;
}