<?php
$cvs_version_tracker[]="\$Id$";  //Generated automatically - do not edit

$lang_language_dir = "../languages/";
$lang_translations_dir = "translations/";
$lang_prj_translations_dir = "project_specific_translations/";
$lang_compiled_dir = "compiled/";
$lang_project_default = "en";
$lang_log_level = 0;
$lang_log_file = $lang_language_dir."translator.log";

/*************************
 * Parses the language interface file containing the tokens (can parse .po-style files)
 ************************/
function parseLanguageInterface($file){
    $translation_file = file($file);
    for ($i = 0;$i<sizeof($translation_file);$i++){
	$entry = ltrim(trim($translation_file[$i]));
	if (($pos=strpos($entry, "msgid"))!==false){	//If found msgid entry
	    $token=getPOLineContent($entry);
	    if (ltrim(trim($token))!=""){
		$interface[]=$token;
	    }
	}
    }
    return $interface;
}


/***************************
 * Builds the lookup arrays from the language interface file
 * and the language files found in the $dir directory subtree
 ***************************/
function buildLanguages($langdir,$transdir,$prjtransdir,$compdir){
    global $lang_project_default;

    $fh=fopen($langdir."last_compile_timer","w");			//Touching compile timer
    fwrite($fh, time());
    fclose($fh);

    //First build the list of defines for the tokens
    //and place it in an include file in the directory
    $interface = parseLanguageInterface($langdir.$transdir.$lang_project_default.".po");	//Get the interface
    if (!$fh = fopen($langdir.$compdir."language_interface.inc","w")) { language_log("Could not access $langdir $compdir - please check permissions",2); exit;};
    fwrite($fh, "<?php\n");
    for ($i=0;$i<sizeof($interface);$i++){
	fwrite($fh, "define(".$interface[$i].",".$i.");\n");		//Translate to PHP
    }
    fwrite($fh, '?>');
    fclose($fh);
    $real_interface_size = sizeof($interface);
    
    //Now run trough each language and recompile their
    //lookup arrays.
    if (is_dir($langdir.$transdir)) {
        if ($dh = opendir($langdir.$transdir)) {			//If dir exists
            while (($file = readdir($dh)) !== false) {			//read contents
                if ($file==".." or $file=="."){
                } else if (substr($file,-3)==".po"){			//only files ending in .po
///////////////////////////////////////////////////////////////////////////////////////////////////
		    language_log("----------------Compiling $file---------------",0);
		    $language = parseLanguage($langdir.$transdir.$file, $interface);
		    if (!$fh = fopen($langdir.$compdir.$file.".inc","w")) { language_log("ERROR: could not access $langdir $compdir - please check permissions",2); exit;};
		    fwrite($fh, "<?php\n");
		    $keys = array_keys($language);
		    for ($i=0;$i<sizeof($interface);$i++){
			if ($language[$keys[$i]]!="")
			    fwrite($fh, "\$language_lookup_array[".$keys[$i]."] = \"".addslashes($language[$keys[$i]])."\";\n");		//Translate to PHP
		    }
		    fwrite($fh, '?>');
		    fclose($fh);
//////////////////////////////////////////////////////////////////////////////////////////////////
                } else {
		    //debug("File $file with unknown extension found in $info_dir");
		}
            }
            closedir($dh);
        } else {
	    //debug("$info_dir could not be opened - check permissions?");
	}
    } else {
	//debug("$info_dir not found or is not a directory");
    }

    //Do the same again, this time for the project specific language files and instead of
    //creating new compiled files just add to whatever existing ones
    if (is_dir($langdir.$prjtransdir)) {
	$interface = parseLanguageInterface($langdir.$prjtransdir.$lang_project_default.".po");	//Get the interface
	if (!$fh = fopen($langdir.$compdir."language_interface.inc","a")) { language_log("ERROR: could not access $langdir $compdir - please check permissions",2); exit;};
	fwrite($fh, "<?php\n");
	for ($i=0;$i<sizeof($interface);$i++){
	    fwrite($fh, "define(".$interface[$i].",".($i+$real_interface_size).");\n");		//Translate to PHP
	}
	fwrite($fh, '?>');
	fclose($fh);
        if ($dh = opendir($langdir.$prjtransdir)) {			//If dir exists
            while (($file = readdir($dh)) !== false) {			//read contents
                if ($file==".." or $file=="."){
                } else if (substr($file,-3)==".po"){			//only files ending in .po
///////////////////////////////////////////////////////////////////////////////////////////////////
		    language_log("----------------Compiling project specific $file---------------",0);
		    $language = parseLanguage($langdir.$prjtransdir.$file, $interface);
		    if (!$fh = fopen($langdir.$compdir.$file.".inc","a")) { language_log("ERROR: could not access $langdir $compdir - please check permissions",2); exit;};
		    fwrite($fh, "<?php\n");
		    $keys = array_keys($language);
		    for ($i=0;$i<sizeof($interface);$i++){
			if ($language[$keys[$i]]!="")
			    fwrite($fh, "\$language_lookup_array[".($real_interface_size+$keys[$i])."] = \"".addslashes($language[$keys[$i]])."\";\n");		//Translate to PHP
		    }
		    fwrite($fh, '?>');
		    fclose($fh);
//////////////////////////////////////////////////////////////////////////////////////////////////
                } else {
		    //debug("File $file with unknown extension found in $info_dir");
		}
            }
            closedir($dh);
        } else {
	    //debug("$info_dir could not be opened - check permissions?");
	}
    } else {
	//debug("$info_dir not found or is not a directory");
    }


}

/***************************
 * Have some of the files changed?
 **************************/
function languagesNeedsRebuild($langdir,$transdir,$prjtransdir, $compdir){
//    return true;		//Uncomment this to speed up things when you know that you will manually recompile the languages when updated...
    
    
    $last_compile = filemtime($langdir."last_compile_timer");		//This file gets touched each time a compile finishes

    if (is_dir($langdir.$transdir)) {
        if ($dh = opendir($langdir.$transdir)) {			//If dir exists
            while (($file = readdir($dh)) !== false) {			//read contents
                if ($file==".." or $file=="."){
                } else if (substr($file,-3)==".po"){			//only files ending in .po
		    if (filemtime($langdir.$transdir.$file)>$last_compile) return true;
		}
            }
            closedir($dh);
        }
    }
    if (is_dir($langdir.$prjtransdir)) {
        if ($dh = opendir($langdir.$prjtransdir)) {			//If dir exists
            while (($file = readdir($dh)) !== false) {			//read contents
                if ($file==".." or $file=="."){
                } else if (substr($file,-3)==".po"){			//only files ending in .po
		    if (filemtime($langdir.$prjtransdir.$file)>$last_compile) return true;
		}
            }
            closedir($dh);
        }
    }
    return false;							//All checks say that nothing has changed.
}

/**************************
 * Parses a gettext .po-file into an indexed PHP array, 
 * checking for inconsistencies if needed.
 * The $file is parsed and validated against $interface
 *************************/
function parseLanguage($file, $interface){
    if (sizeof($interface)<1){ language_log("No interface defined for 'compileLanguages()'",2); exit;}
    $translation_file = file($file);
    $first_entry = true;
    for ($i = 0;$i<sizeof($translation_file);$i++){
	$entry = ltrim(trim($translation_file[$i]));
	//echo $entry;
	if (($pos=strpos($entry, "msgid"))!==false){	//If found msgid entry
	    if (!$first_entry){			//If this is not the first, save the previous entry
		//Does token msgid entry exist in interface?
		//If so, add to output
		$id = checkToken($current_token, $interface, $i);
		if ($id!==false){
		    $output[$id]=$current_token_text;
		}
	    }
	    $current_token = getPOLineContent($entry);
	    $current_token_text="";
	    $first_entry=false;			//Now it is no longer the first entry
	} elseif (substr($translation_file[$i],0,1)!="#") {
	    //echo "Else";
	    $current_token_text.=getPOLineContent($entry);
	}
    }
    $id = checkToken($current_token, $interface, $i);
    if ($id!==false){
        $output[$id]=$current_token_text;
    }
    checkMissingTokens($output, $interface);
    return $output;
}

/*********************
 * Checks if token is in interface.
 * Displays error if not
 **********************/
function checkToken($current_token, $interface, $line){
    $id = array_search($current_token,$interface);
    if ($id===false){
        language_log("Above line ".$line.": Language file $file has a token (".$current_token.") that is not defined in the interface.",1);
	return false;
    } else {
	return $id;
    }
}

/*****************
 * This function prints any missing tokens as errors
 *****************/
function checkMissingTokens($language_array, $interface){
    $diff = array_values(array_diff( array_keys($interface),array_keys($language_array)));
    for ($i=0; $i<sizeof($diff); $i++){
	language_log("Language file is missing token (".$interface[$diff[$i]].")",1);
    }
}

/***********************
 * Returns the contents of a line (ie removes "" from start and end)
 *********************/
function getPOLineContent($line){
    $start = strpos($line, '"')+1;
    $stop = strrpos($line, '"');
    return substr($line, $start, $stop-$start);
}

/************************
 * Translate token
 * Use the token name as a constant - like echo tr(MENU_ABOUT);
 ************************/
function tr($tokennumber){
    global $language_lookup_array, $default_language_lookup_array;
    if (strval(intval($tokennumber))!=$tokennumber){
	echo "token $tokennumber missing from language interface.";
    }
    
    if (array_key_exists($tokennumber,$language_lookup_array)){		//If language has got the token
	return stripslashes($language_lookup_array[$tokennumber]);	//If found in client language, return that
    }
    
    if (array_key_exists($tokennumber, $default_language_lookup_array)){	//Fallback to a lookup in the project default language
        return stripslashes($default_language_lookup_array[$tokennumber]);	//Return from default language
    }
    
    return "[MISSING TEXT]";							//If not found there either, display "MISSING TEXT"
}

function language_log($message, $loglevel=0){
    global $lang_log_level, $lang_log_file;
    if ($loglevel==0) $msg = "[ Debug    ]";
    if ($loglevel==1) $msg = "[ Warning  ]";
    if ($loglevel==2) $msg = "[ CRITICAL ]";
    
    if ($loglevel>=$lang_log_level){
	$fh = fopen($lang_log_file,"a");
	fwrite($fh, date("Y-m-d H:i:s",time())." ".$msg." ".$message."\n");
	fclose($fh);
    }
}


if (languagesNeedsRebuild($lang_language_dir, $lang_translations_dir, $lang_prj_translations_dir, $lang_compiled_dir) || get_str("compile_languages")){
    buildLanguages($lang_language_dir,$lang_translations_dir,$lang_prj_translations_dir, $lang_compiled_dir);
}

// Define some constants that the language files can use in the translation:
$PROJECT = PROJECT;


if (file_exists($lang_language_dir.$lang_compiled_dir."language_interface.inc")){
    require_once($lang_language_dir.$lang_compiled_dir."language_interface.inc");
    require_once($lang_language_dir.$lang_compiled_dir.$lang_project_default.".po.inc");
    $default_language_lookup_array=$language_lookup_array;
    //Find out which language to use (todo: iterate trough list instead of picking first out:
    $client_language=strtolower(substr($HTTP_SERVER_VARS["HTTP_ACCEPT_LANGUAGE"],0,2));
    if ($client_language!=$lang_project_default){
	if (file_exists($lang_language_dir.$lang_compiled_dir.$client_language.".po.inc")){	//If we have the language
            require_once($lang_language_dir.$lang_compiled_dir.$client_language.".po.inc");	//Include it
	}
    }
} else {
    language_log("Could not load language interface.",2);
    echo "ERROR: Could not load language interface. This is a fatal error, exitting."; flush; exit;
};

?>