HFile_conv.php

Go to the documentation of this file.

 
<?php
 
ini_set('max_execution_time', 300000);
 
$BEAUT_PATH = realpath(".")."/Services/COPage/syntax_highlight/php";
if (!isset ($BEAUT_PATH)) return;
require "$BEAUT_PATH/Beautifier/HFile.php";
 
//######## Configuration Conversion functions
 
// Function to go through an Ultraedit-style configuration file and convert to a PHP include
 
function HFile_print_php_file($tofile = 1)
{
 
global $LANGNAME;
        global $indent, $unindent, $stringchars, $config, $keywords, $delimiters, $lang_name;
        global $linecommenton, $blockcommenton, $blockcommentoff;
        global $perl, $nocase, $notrim;
        if ($tofile) print "<?php\n"; else print "&lt;?\n";
        
        print 'require_once(\'HFile.php\');'."\n";
        print '  class HFile_'.$LANGNAME.' extends HFile{'."\n";
        print '   function HFile_'.$LANGNAME.'(){'."\n";
        print '     $this->HFile();     '."\n";
 
        
        
        print "######################################\n";
        print "# Beautifier Highlighting Configuration File \n";
        print "# $lang_name\n";
        print "######################################\n";
        print "# Flags\n\n";
        dump_var($nocase,                       "\$this->nocase            ");
        dump_var($notrim,                       "\$this->notrim            ");
        dump_var($perl,                         "\$this->perl              ");
        print "\n# Colours\n\n";
        $used_categories = get_categories();
        dump_colours($used_categories);
        dump_var("blue",                        "\$this->quotecolour       ");
        dump_var("green",                       "\$this->blockcommentcolour");
        dump_var("green",                       "\$this->linecommentcolour ");
        print "\n# Indent Strings\n\n";
        dump_array($indent,                     "\$this->indent            ");
        dump_array($unindent,                   "\$this->unindent          ");
        print "\n# String characters and delimiters\n\n";
        dump_array($stringchars,                "\$this->stringchars       ");
        dump_array($delimiters,                 "\$this->delimiters        ");
        dump_var  ($escchar,                    "\$this->escchar           ");
        print "\n# Comment settings\n\n";
        dump_var  ($linecommenton,              "\$this->linecommenton     ");
        dump_var  ($blockcommenton,             "\$this->blockcommenton    ");
        dump_var  ($blockcommentoff,            "\$this->blockcommentoff   ");
        print "\n# Keywords (keyword mapping to colour number)\n\n";
        dump_hash ($keywords,                   "\$this->keywords          ");
        print "\n# Special extensions\n";
        dump_linkscripts($used_categories);
        if ($tofile) print "\n}?>"; else print "}\n?&gt;";
}
 
function get_categories()
{
        global $keywords;
        $usedcats = array();
        
        foreach(array_keys($keywords) as $k)
        {
                $cat = $keywords[$k];
                if (!in_array($cat, $usedcats)) array_push($usedcats, $cat);
        }
        return $usedcats;
}
 
function dump_linkscripts($cats)
{
        print "
// Each category can specify a PHP function that returns an altered
// version of the keyword.
        # This link is then placed in a <a href=\"...\">foo</a>; structure around keyword 'foo' - which is
        \n\n";
        
        $linkhash = array();
        
        foreach($cats as $c)
        {
                $linkhash{$c} = "donothing";
        }
        
        dump_hash($linkhash, "\$this->linkscripts    ");
        print "}\n# DoNothing link function\n\n";
        print "function donothing(\$keywordin)\n{\n     return \$keywordin;\n}\n";
}
 
function dump_colours($cats)
{
        global $colours;
        
        $usedcols = array();
        foreach($cats as $c)
        {
                array_push($usedcols, $colours[$c-1]);
        }
        dump_array($usedcols, "\$this->colours        ");
}
 
function dump_var($variable, $name)
{
        print $name."   = \"".addslashes($variable)."\";\n";
}
 
function dump_array($array, $name)
{
        $first = 1;
        print $name."   = array(";
        foreach($array as $a)
        {
                if (!$first) print ", "; else $first = 0;
                print "\"".addslashes($a)."\"";
        }
        print ");\n";
}
 
function dump_hash($hash, $name)
{
        $first = 1;
        print $name."   = array(";
        foreach(array_keys($hash) as $k)
        {
                if (!$first) print ", "; else $first = 0;
                print "\n                       \"".addslashes($k)."\"";
                print " => \"".addslashes($hash[$k])."\"";
        }
        print ");\n";
}
 
function convert($file){
  $file = str_replace("./", "", $file);
  global $LANGNAME;
  $LANGNAME = $file;
  $LANGNAME = str_replace(".txt", "", $LANGNAME);
  
  $fileout = '../object/'.$LANGNAME . '.php';
 
  print "Writing $file to $fileout\n";
  
        HFile_parse_file($file);
 
        ob_start();
        ob_implicit_flush(0);
 
        HFile_print_php_file(isset($fileout));
        $out = ob_get_contents();               
        ob_end_clean(); 
  
        if (isset($fileout))
        {
                $fd = fopen($fileout, "w");
                fputs($fd, $out);
                fclose($fd);
        }
  
 
 
 
  
 
 
}
 
 
convert($argv[1]);
 
 
 
 
?>