root/trunk/gregarius/dist/convert.php

<?php
        include_once('intl/en.php');

        $EXCLUDE = '#(intl|extlib|dist)#';

        //Convert('.');
        // buildPOs();
        
        function __callback__($matches) {
                if (defined($matches[1])) {
                        return '__(\''.constant($matches[1]) .'\')';
                } else {
                        echo "??? " . print_r($matches,true) . "\n";
                }
        }
        
        function buildPOs() {
                $files=array_keys(preg_find('/\.php$/','intl',PREG_FIND_RECURSIVE | PREG_FIND_FULLPATH|PREG_FIND_DIRONLY));
                if (($i=array_search('intl/en.php',$files)) !== FALSE) {
                        unset($files[$i]);
                }
                foreach($files as $file) {
                        echo "Now handling $file ...";
                        $translations = array();
                        $content = file_get_contents($file);
                        if(preg_match_all('#define\s*\([\'"](LOCALE_LINUX)[\'"][^,]*,\s*[\'"](.+)[\'"]\s*\);#',$content,$matches,PREG_SET_ORDER)) {
                                $locale = $matches[0][2];
                                if (!file_exists("intl/$locale/LC_MESSAGES")) {
                                        mkdir("intl/$locale",0755);
                                        mkdir("intl/$locale/LC_MESSAGES",0755);
                                }
                                $fp = fopen("intl/$locale/LC_MESSAGES/messages.po",'w');
                                if(!$fp) {
                                        echo "\tERROR, Couldn't create output file!\n";
                                        continue;
                                }
                                $poheader=''
.'#
#
msgid ""
msgstr ""
"Project-Id-Version: Gregarius 0.5.5\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: \n"
"PO-Revision-Date: \n"
"Last-Translator: \n"
"Language-Team: \n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=utf-8\n"
"Content-Transfer-Encoding: 8bit\n"
';
                                fwrite($fp,$poheader."\n");
                        } else {
                                echo "\tERROR, Unknown locale!\n";
                                continue;
                        }
                        
                        if (preg_match_all('#define\s*\([\'"](LBL_[^\'"]+)[\'"][^,]*,\s*[\'"](.+)[\'"]\s*\);#',$content,$matches,PREG_SET_ORDER)) {
                                foreach($matches as $match) {
                                        if (defined($match[1])) {
                                                
                                                fwrite($fp,"#: $match[1]\n");
                                                $en=str_replace('"','\"',stripslashes(stripslashes(constant($match[1]))));
                                                $intl=str_replace('"','\"',stripslashes(stripslashes($match[2])));
                                                fwrite($fp,"msgid \"$en\"\n");
                                                fwrite($fp,"msgstr \"$intl\"\n\n");
                                        }
                                }
                                fwrite($fp,"#### END Automatic translation - ". date('r')." #\n");
                                echo "\tdone!\n";
                        } else {
                                echo "\tERROR, couldn't extract labels\n";
                        }
                        if ($fp) {
                                @fclose($fp);
                        }
                }
        }
        
        function Convert($dir)
        {
                global $EXCLUDE;

                $files=array_keys(preg_find('/\.php$/',$dir,PREG_FIND_RECURSIVE | PREG_FIND_FULLPATH));
                foreach($files as  $file) {
                        if (preg_match($EXCLUDE,$file)) {
                                echo "Skiping $file\n";
                                continue;
                        }
                        echo "Now handling $file ... ";
        
                        $oldfile=$file;
                        $newfile=$file.'.new';
                        $old = fopen($oldfile, 'r');
                        $new = fopen($newfile, 'w');
                        if (! ($old && $new)){
                                die("Failed opening $oldfile and $newfile\n");
                        }
                        while (!feof($old)) {
                                fwrite($new, preg_replace_callback('#(LBL_[A-Z0-9_]+)#','__callback__', fgets($old)));
                        }

                        flush($new);
                        fclose($old);
                        fclose($new);

                        rename($oldfile, $oldfile . '.old');
                        rename($newfile, $oldfile);

                        echo "\tdone!\n";
                }
        }

        
        /*
         * Find files in a directory matching a pattern
         *
         *
         * Paul Gregg <pgregg@pgregg.com>
         * 20 March 2004,  Updated 20 April 2004
         *
         * Open Source Code:   If you use this code on your site for public
         * access (i.e. on the Internet) then you must attribute the author and
         * source web site: http://www.pgregg.com/projects/php/code/preg_find.phps
         * Working example: http://www.pgregg.com/projects/php/code/preg_find_ex.phps
         *
         */
        
        define('PREG_FIND_RECURSIVE', 1);
        define('PREG_FIND_DIRMATCH', 2);
        define('PREG_FIND_FULLPATH', 4);
        define('PREG_FIND_NEGATE', 8);
        define('PREG_FIND_DIRONLY', 16);
        define('PREG_FIND_RETURNASSOC', 32);
        
        // PREG_FIND_RECURSIVE   - go into subdirectorys looking for more files
        // PREG_FIND_DIRMATCH    - return directorys that match the pattern also
        // PREG_FIND_DIRONLY     - return only directorys that match the pattern (no files)
        // PREG_FIND_FULLPATH    - search for the pattern in the full path (dir+file)
        // PREG_FIND_NEGATE      - return files that don't match the pattern
        // PREG_FIND_RETURNASSOC - Instead of just returning a plain array of matches,
        //                         return an associative array with file stats
        // to use more than one simply seperate them with a | character
        
        
        
        // Search for files matching $pattern in $start_dir.
        // if args contains PREG_FIND_RECURSIVE then do a recursive search
        // return value is an associative array, the key of which is the path/file
        // and the value is the stat of the file.
        Function preg_find($pattern, $start_dir='.', $args=NULL) {
        
        
          $files_matched = array();
        
          $fh = opendir($start_dir);
        
          while (($file = readdir($fh)) !== false) {
                if (strcmp($file, '.')==0 || strcmp($file, '..')==0) continue;
                $filepath = $start_dir . '/' . $file;
                if (preg_match($pattern,
                                           ($args & PREG_FIND_FULLPATH) ? $filepath : $file)) {
                  $doadd =    is_file($filepath)
                                   || (is_dir($filepath) && ($args & PREG_FIND_DIRMATCH))
                                   || (is_dir($filepath) && ($args & PREG_FIND_DIRONLY));
                  if ($args & PREG_FIND_DIRONLY && $doadd && !is_dir($filepath)) $doadd = false;
                  if ($args & PREG_FIND_NEGATE) $doadd = !$doadd;
                  if ($doadd) {
                        if ($args & PREG_FIND_RETURNASSOC) { // return more than just the filenames
                          $fileres = array();
                          if (function_exists('stat')) {
                                $fileres['stat'] = stat($filepath);
                                $fileres['du'] = $fileres['stat']['blocks'] * 512;
                          }
                          if (function_exists('fileowner')) $fileres['uid'] = fileowner($filepath);
                          if (function_exists('filegroup')) $fileres['gid'] = filegroup($filepath);
                          if (function_exists('filetype')) $fileres['filetype'] = filetype($filepath);
                          if (function_exists('mime_content_type')) $fileres['mimetype'] = mime_content_type($filepath);
                          if (function_exists('dirname')) $fileres['dirname'] = dirname($filepath);
                          if (function_exists('basename')) $fileres['basename'] = basename($filepath);
                          if (isset($fileres['uid']) && function_exists('posix_getpwuid ')) $fileres['owner'] = posix_getpwuid ($fileres['uid']);
                          $files_matched[$filepath] = $fileres;
                        } else
                          array_push($files_matched, $filepath);
                  }
                }
                if ( is_dir($filepath) && ($args & PREG_FIND_RECURSIVE) ) {
                  $files_matched = array_merge($files_matched,
                                                                           preg_find($pattern, $filepath, $args));
                }
          }
        
          closedir($fh); 
          return $files_matched;
        
        }
?>