From 912a34f4930975b7232b930bd834b91dee9b53fb Mon Sep 17 00:00:00 2001
From: "Jehan-Guillaume (ioguix) de Rorthais" <jgdr@dalibo.com>
Date: Thu, 19 May 2011 07:29:48 +0200
Subject: [PATCH] remove unused script php2po po2php from lang/

---
 lang/php2po | 100 ----------------------------------------------------
 lang/po2php |  74 --------------------------------------
 2 files changed, 174 deletions(-)
 delete mode 100755 lang/php2po
 delete mode 100755 lang/po2php

diff --git a/lang/php2po b/lang/php2po
deleted file mode 100755
index af21ffdc..00000000
--- a/lang/php2po
+++ /dev/null
@@ -1,100 +0,0 @@
-#!/usr/bin/php -f
-<?php
-/**
-	* This script creates a po file for for a new language.
-	* based on english.php
-	* Be aware that the variables in the 'Language and character set'
-	* section ($lang['app...']) are not for translation, but settings.
-	* 
-	* $Id: php2po,v 1.1 2004/11/10 01:28:10 chriskl Exp $
-	*/
-
-
-switch ($argc)
-{
-	case 2:
-		$slang = 'english';
-		$dlang = $argv[1];
-		break;
-	case 3:
-		$slang = $argv[1];
-		$dlang = $argv[2];
-		break;
-	default:
-		echo "\nUsage: $argv[0] [srclang] dstlang\n\n";
-		exit();
-}
-
-$scode = file ($slang.".php");
-
-// Parse source code
-for ($i = 0; $i < count($scode); $i++)
-{
-	$scode[$i] = trim($scode[$i]);
-	if (substr($scode[$i], 0, 2) == '//')
-	{
-		$group = substr($scode[$i], 2);
-		$src[$group] = array();
-	}
-	
-	preg_match("/.lang\['(.*?)'\] = '(.*?)';/", $scode[$i], $ret);
-	
-	if (count($ret))
-	{
-		$src[$group][$ret[1]] = $ret[2];
-	}
-}
-
-// Parse destination (if it exists)
-if (file_exists($dlang.".php"))
-{
-	$dcode = file ($dlang.".php");
-	
-	for ($i = 0; $i < count($dcode); $i++)
-	{
-		$dcode[$i] = trim($dcode[$i]);
-		
-		preg_match("/.lang\['(.*?)'\] = '(.*?)';/", $dcode[$i], $ret);
-		
-		if (count($ret))
-		{
-			$dst[$ret[1]] = $ret[2];
-		}
-	}
-}
-
-// Create po file
-if (! $fres = fopen($dlang.".po", "w"))
-{
-	echo "\nError: cannot open file ".$dlang.".po for writing\n\n";
-	exit();
-}
-
-fwrite($fres, "#\n#\n#\n#\n\n\n\n\n");
-fwrite($fres, "msgid \"\"\n");
-fwrite($fres, "msgstr \"\"\n\n\n\n");
-
-foreach ($src as $group => $strings)
-{
-	fwrite($fres, "\n");
-	fwrite($fres, "#. group $group\n");
-	
-	foreach($strings as $var => $string)
-	{
-		$string = str_replace('"', '\\"', $string);
-		fwrite($fres, "#. str $var\n");
-		fwrite($fres, "msgid \"$string\"\n");
-		fwrite($fres, "msgstr \"");
-		if ($dst[$var])
-		{
-			$tstring = str_replace('"', '\\"', $dst[$var]);
-			fwrite($fres, $tstring);
-		}
-		fwrite($fres, "\"\n\n");
-	}
-	
-}
-
-fclose($fres);
-
-?>
\ No newline at end of file
diff --git a/lang/po2php b/lang/po2php
deleted file mode 100755
index 145590d3..00000000
--- a/lang/po2php
+++ /dev/null
@@ -1,74 +0,0 @@
-#!/usr/bin/php -f
-<?php
-/**
-	* This script converts a po file generated from english.php by php2po
-	* into a new_language.php
-	* The resulted php file still needs some manual editing 
-	* (header & $lang['app...'] variables)
-	* 
-	* $Id: po2php,v 1.1 2004/11/10 01:28:10 chriskl Exp $
-	*/
-
-switch ($argc)
-{
-	case 2:
-		$dlang = $argv[1];
-		break;
-	default:
-		echo "\nUsage: $argv[0] dstlang\n\n";
-		exit();
-}
-
-
-if (!file_exists($dlang.".po"))
-{
-	echo "\nError: file not found: $dlang.po\n\n";
-	exit();
-}
-
-if (file_exists($dlang.".php"))
-{
-	echo "\nError: file $dlang.php already exists\n\n";
-	exit();
-}
-
-$scode = file ($dlang.".po");
-
-// Create lang.php file
-if (! $fres = fopen($dlang.".php", "w"))
-{
-	echo "\nError: cannot open file ".$dlang.".php for writing\n\n";
-	exit();
-}
-
-fwrite($fres, "<?php\n\n\n");
-
-// Parse source code
-for ($i = 0; $i < count($scode); $i++)
-{
-	if (preg_match("/^#. group (.*)$/", $scode[$i], $ret))
-	{
-		fwrite($fres, "\n\t//".$ret[1]."\n");
-	}
-	elseif (preg_match("/^#. str (.*)$/", $scode[$i], $ret))
-	{
-		$langvar = $ret[1];
-	}
-	elseif (preg_match("/^msgid \"(.*)\"$/", $scode[$i], $ret))
-	{
-		$base = $ret[1];
-	}
-	elseif (preg_match("/^msgstr \"(.*)\"$/", $scode[$i], $ret))
-	{
-		if (! $ret[1])
-			$ret[1] = $base;
-		
-		fwrite($fres, "\t\$lang['".$langvar."'] = '".str_replace('\\"', '"', $ret[1])."';\n");
-	}
-}
-
-fwrite($fres, "\n\n\n?>\n");
-
-fclose($fres);
-
-?>
\ No newline at end of file
-- 
2.39.5