testautomation/framework/tools/includes/i18n_tools.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '
   5 ' Copyright 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/******************************************************************************
  27 '*
  28 '*  owner : gregor.hartmann@oracle.com
  29 '*
  30 '*  short description : Tools to ease working with language dependent strings/values
  31 '*
  32 '\******************************************************************************
  33
  34 function hTestLocale() as boolean
  35
  36
  37     '///<h3>Test whether we are running on an utf8 locale (Linux only)</h3><br>
  38
  39     '///<u>Parameter(s):</u><br>
  40     '///<ol>
  41     '///+<li>No input parameters</li>
  42     '///</ol>
  43
  44
  45     '///<u>Returns:</u><br>
  46     '///<ol>
  47     '///+<li>Errorcondition (boolean)</li>
  48     '///<ul>
  49     '///+<li>TRUE: Yes, this is a UTF-8 locale</li>
  50     '///+<li>FALSE: Anything else</li>
  51     '///</ul>
  52     '///</ol>
  53
  54     const CFN = "hTestLocale::"
  55     dim brc as boolean 'a multi purpose boolean returnvalue
  56     dim irc as integer
  57         irc = 0
  58
  59     dim lc_all as string
  60     dim lang as string
  61
  62     '///<u>Description:</u>
  63     '///<ul>
  64
  65     if ( gtSysName = "Linux" ) then
  66
  67         '///+<li>Retrieve LANG</li>
  68         lang = environ( "LANG" )
  69         lang = ucase( lang )
  70         if ( instr( lang , "UTF8" ) or instr( lang , "UTF-8" ) ) then
  71             irc = 1
  72         endif
  73
  74         '///+<li>Retrieve LC_ALL (Note that this variable is mostly set but has no value assigned)</li>
  75         lc_all = environ( "LC_ALL" )
  76         lc_all = ucase( lc_all )
  77         if ( instr( lc_all , "UTF8" ) or instr( lc_all , "UTF-8" ) ) then
  78             irc = irc + 1
  79         else
  80             if ( lc_all = "" ) then
  81                 printlog( CFN & "No value set for LC_ALL, assuming UTF-8" )
  82                 irc = irc + 1
  83             else
  84                 printlog( CFN & "LC_ALL is set but has no UTF-8 locale" )
  85             endif
  86         endif
  87
  88     else
  89
  90         irc = 2 ' this is Windows and Solaris - they always can handle weird content
  91
  92     endif
  93
  94     if ( irc = 2 ) then
  95         printlog( CFN & "UTF-8 locale found" )
  96         hTestLocale() = TRUE
  97     else
  98         printlog( CFN & "Please verify that you are running on UTF-8 locale" )
  99         hTestLocale() = FALSE
 100     endif
 101
 102     '///</ul>
 103
 104
 105 end function