static void
appendPath(const GURL &url,
GMap<GUTF8String,void *> &map,
GList<GURL> &list)
{
if( !url.is_empty()
&& !map.contains(url.get_string()) && url.is_dir() )
{
map[url.get_string()]=0;
list.append(url);
}
}
GList<GURL>
DjVuMessage::GetProfilePaths(void)
{
static bool first=true;
static GList<GURL> realpaths;
if(first)
{
first=false;
GMap<GUTF8String,void *> pathsmap;
GList<GURL> paths;
GURL path;
const GUTF8String envp(GOS::getenv(DjVuEnv));
if(envp.length())
appendPath(GURL::Filename::UTF8(envp),pathsmap,paths);
#if defined(WIN32) || defined(UNIX)
GURL mpath(GetModulePath());
if(!mpath.is_empty() && mpath.is_dir())
{
#if defined(UNIX) && !defined(AUTOCONF) && !defined(NDEBUG)
appendPath(GURL::UTF8(DebugModuleDjVuDir,mpath),pathsmap,paths);
#endif
appendPath(mpath,pathsmap,paths);
mpath=mpath.base();
appendPath(GURL::UTF8(ModuleDjVuDir,mpath),pathsmap,paths);
mpath=mpath.base();
appendPath(GURL::UTF8(ModuleDjVuDir,mpath),pathsmap,paths);
}
#endif
#if defined(AUTOCONF)
GURL dpath = GURL::Filename::UTF8(DjVuDataDir);
appendPath(dpath,pathsmap,paths);
#endif
#ifdef WIN32
appendPath(RegOpenReadConfig(HKEY_CURRENT_USER),pathsmap,paths);
appendPath(RegOpenReadConfig(HKEY_LOCAL_MACHINE),pathsmap,paths);
#else
GUTF8String home=GOS::getenv("HOME");
# if HAVE_GETPWUID
if (! home.length()) {
struct passwd *pw=0;
if ((pw = getpwuid(getuid())))
home=GNativeString(pw->pw_dir);
}
# endif
if (home.length()) {
GURL hpath = GURL::UTF8(LocalDjVuDir,GURL::Filename::UTF8(home));
appendPath(hpath,pathsmap,paths);
}
#endif
#ifdef LT_DEFAULT_PREFIX
appendPath(GURL::Filename::UTF8(DjVuPrefixDir),pathsmap,paths);
#endif
appendPath(GURL::Filename::UTF8(RootDjVuDir),pathsmap,paths);
pathsmap.empty();
GPosition pos;
GList< GMap<GUTF8String,GP<lt_XMLTags> > > localemaps;
for(pos=paths;pos;++pos)
{
path=GURL::UTF8(LanguageFile,paths[pos]);
if(path.is_file())
{
const GP<lt_XMLTags> xml(lt_XMLTags::create(ByteStream::create(path,"rb")));
const GPList<lt_XMLTags> Body(xml->get_Tags(bodystring));
GPosition pos=Body;
if(!pos || (pos != Body.lastpos()))
{
G_THROW( ERR_MSG("XMLAnno.extra_body") );
}
const GP<lt_XMLTags> GBody(Body[pos]);
if(!GBody)
{
G_THROW( ERR_MSG("XMLAnno.no_body") );
}
GMap<GUTF8String,GP<lt_XMLTags> > localemap;
lt_XMLTags::get_Maps(languagestring,localestring,Body,localemap);
localemaps.append(localemap);
}
}
GList<GURL> localepaths;
GList<GURL> osilocalepaths;
// Need to do it the right way!
GUTF8String defaultlocale = getenv("LANGUAGE");
if (! defaultlocale)
{
const GUTF8String oldlocale(setlocale(LC_MESSAGES,0));
defaultlocale = setlocale(LC_MESSAGES,"");
setlocale(LC_MESSAGES,(const char *)oldlocale);
}
// Unfathomable search.
for(int loop=0; loop<2; loop++)
{
static const char sepchars[]=" _.@";
const char *p=sepchars+sizeof(sepchars)-1;
do
{
int sepcharpos=p[0]?defaultlocale.search(p[0]):defaultlocale.length();
if(sepcharpos > 0)
{
const GUTF8String sublocale(defaultlocale,sepcharpos);
const GUTF8String downcasesublocale("downcase^"+sublocale.downcase());
for(pos=localemaps;pos;++pos)
{
const GMap<GUTF8String,GP<lt_XMLTags> > &localemap=localemaps[pos];
GPosition pos=localemap.contains(sublocale);
if(!pos)
pos=localemap.contains(downcasesublocale);
if(pos)
{
const GMap<GUTF8String,GUTF8String>&args
= localemap[pos]->get_args();
pos = args.contains(srcstring);
if (pos)
{
const GUTF8String src(args[pos]);
for(pos=paths;pos;++pos)
{
path=GURL::UTF8(src,paths[pos]);
if(path.is_dir())
localepaths.append(path);
path=GURL::UTF8(GUTF8String(opensourcedir)+"/"+src,paths[pos]);
if(path.is_dir())
osilocalepaths.append(path);
}
}
// We don't need to check anymore language files.
p=sepchars;
break;
}
}
if(!pos)
{
for(pos=paths;pos;++pos)
{
path=GURL::UTF8(sublocale,paths[pos]);
if(path.is_dir())
{
localepaths.append(path);
}
path=GURL::UTF8(GUTF8String(opensourcedir)+"/"+sublocale,paths[pos]);
if(path.is_dir())
{
osilocalepaths.append(path);
}
}
}
}
} while(p-- != sepchars);
if((GPosition) localepaths)
break;
defaultlocale="C";
}
for(pos=localepaths;pos;++pos)
appendPath(localepaths[pos],pathsmap,realpaths);
for(pos=paths;pos;++pos)
appendPath(paths[pos],pathsmap,realpaths);
for(pos=osilocalepaths;pos;++pos)
appendPath(osilocalepaths[pos],pathsmap,realpaths);
for(pos=paths;pos;++pos)
{
path=GURL::UTF8(opensourcedir,paths[pos]);
appendPath(path,pathsmap,realpaths);
}
}
return realpaths;
}