HFile.php

Go to the documentation of this file.

<?php
 
/*
 
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
 
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
 
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
*/
 
class HFile
{
    public function __construct()
    {
        # Language name.
        $this->lang_name                        = "";
        # Language configuration hashtable.
        $this->indent_depth                     = 8;
         
        $this->config                           = array();
        $color                                  = 0;
        $parsing                                = "";
        $this->validkeys                        = array();
        
        $this->indent                           = array();
        $this->unindent                         = array();
        $this->blockcommenton                   = array();
        $this->blockcommentoff                  = array();
        $this->linecommenton                    = array();
        $this->preprocessors                    = array();
        
        # Zoning
        $this->zones                            = array();
        
        # Hashtable of keywords - maps from keyword to colour.
        $this->keywords                         = array();
        
        # Used for conversion from keyword -> regexp.
        $this->keypats                          = array();
        
        # Which colours to use for each 'level'.
        $this->colours                          = array("blue", "purple", "gray", "brown", "blue", "purple", "gray", "brown");
        $this->quotecolour                      = "blue";
        $this->blockcommentcolour               = "green";
        $this->linecommentcolour                = "green";
        $this->stringchars                      = array();
        $this->delimiters                       = array();
        $this->escchar                          = "\\";
        
        # Caches for the harvesters.
        $this->comcache                         = "";
        $this->stringcache                      = "";
        
        # Toggles
        $this->perl                             = 0;
        $this->notrim                           = 0;
        $this->nocase                           = 0;
    }
    
    public function parse_file($file)
    {
        print "This method should not be called from here, but from an extending configuration class.<br>";
    }
 
    public function to_perl($stub, $tofile = 1)
    {
        $this->used_categories = $this->_get_categories();
        print "
package HFile::$stub;
 
###############################
#
# Beautifier Perl HFile
# Language: $stub
#
###############################
 
use Beautifier::HFile;
@ISA = qw(HFile);
sub new
{
        my( \$class ) = @_;
        my \$self = {};
        bless \$self, \$class;
 
        # Flags:
";
        $this->_dump_var($this->nocase, "       \$self->{nocase}         ");
        $this->_dump_var($this->notrim, "       \$self->{notrim}         ");
        $this->_dump_var($this->perl, " \$self->{perl}           ");
        $this->_dump_perl_array($this->indent, "        \$self->{indent}         ");
        $this->_dump_perl_array($this->unindent, "      \$self->{unindent}       ");
        $this->_dump_perl_array($this->stringchars, "   \$self->{stringchars}    ");
        $this->_dump_perl_array($this->delimiters, "    \$self->{delimiters}     ");
        $this->_dump_var($this->escchar, "      \$self->{escchar}        ");
        $this->_dump_perl_array($this->linecommenton, " \$self->{linecommenton}  ");
        $this->_dump_perl_array($this->blockcommenton, "        \$self->{blockcommenton} ");
        $this->_dump_perl_array($this->blockcommentoff, "       \$self->{blockcommentoff}");
        $this->_dump_perl_hash($this->keywords, "       \$self->{keywords}       ");
        $this->_dump_perl_linkscripts();
        print "
        return \$self;
}
 
";
 
        $this->_dump_perl_defaultscripts();
        print "1;\n";
    }
    
    public function to_php($stub, $tofile = 1)
    {
        $this->used_categories = $this->_get_categories();
        
        if ($tofile) {
            print "<?php\n";
        } else {
            print "&lt;?\n";
        }
        print "require_once('psh.php');\n";
        print "class psh_$stub extends psh\n{\n";
        print "function psh_$stub(){\n";
        print "\$this->psh();\n";
        print "######################################\n";
        print "# Beautifier Highlighting Configuration File \n";
        print "# $this->lang_name\n";
        print "######################################\n";
        print "# Flags\n\n";
        $this->_dump_var($this->nocase, "\$this->nocase            ");
        $this->_dump_var($this->notrim, "\$this->notrim            ");
        $this->_dump_var($this->perl, "\$this->perl              ");
        print "\n# Colours\n\n";
        $this->_dump_colours();
        $this->_dump_var("blue", "\$this->quotecolour       ");
        $this->_dump_var("green", "\$this->blockcommentcolour");
        $this->_dump_var("green", "\$this->linecommentcolour ");
        print "\n# Indent Strings\n\n";
        $this->_dump_array($this->indent, "\$this->indent            ");
        $this->_dump_array($this->unindent, "\$this->unindent          ");
        print "\n# String characters and delimiters\n\n";
        $this->_dump_array($this->stringchars, "\$this->stringchars       ");
        $this->_dump_array($this->delimiters, "\$this->delimiters        ");
        $this->_dump_var($this->escchar, "\$this->escchar           ");
        print "\n# Comment settings\n\n";
        $this->_dump_array($this->linecommenton, "\$this->linecommenton     ");
        $this->_dump_var($this->blockcommenton, "\$this->blockcommenton    ");
        $this->_dump_var($this->blockcommentoff, "\$this->blockcommentoff   ");
        print "\n# Keywords (keyword mapping to colour number)\n\n";
        $this->_dump_hash($this->keywords, "\$this->keywords          ");
        print "\n# Special extensions\n";
        $this->_dump_linkscripts();
        print "}\n";
        if ($tofile) {
            print "\n?>";
        } else {
            print "\n?&gt;";
        }
    }
    
    public function _get_categories()
    {
        $usedcats = array();
        
        foreach (array_keys($this->keywords) as $k) {
            $cat = $this->keywords[$k];
            if (!in_array($cat, $usedcats)) {
                array_push($usedcats, $cat);
            }
        }
        return $usedcats;
    }
    
    public function _dump_linkscripts()
    {
        print "
# Each category can specify a PHP function that takes in the function name, and returns a string
# to put in its place. This can be used to generate links, images, etc.\n\n";
        
        $linkhash = array();
        
        foreach ($this->used_categories as $c) {
            $linkhash{$c} = "donothing";
        }
        
        $this->_dump_hash($linkhash, "\$this->linkscripts    ");
        print "}\n";
        print "\n# DoNothing link function\n\n";
        print "function donothing(\$keywordin)\n{\n     return \$keywordin;\n}\n";
    }
 
    public function _dump_perl_linkscripts()
    {
        print "
# Each category can specify a Perl function that takes in the function name, and returns a string
# to put in its place. This can be used to generate links, images, etc.\n\n";
 
        $linkhash = array();
        foreach ($this->used_categories as $c) {
            $linkhash{$c} = "donothing";
        }
 
        $this->_dump_perl_hash($linkhash, "\$self->{linkscripts}        ");
    }
 
    public function _dump_perl_defaultscripts()
    {
        print "\n# DoNothing link function\n\n";
        print "sub donothing\n{\nmy ( \$self ) = @_;\nreturn;\n}\n";
    }
    
    public function _dump_colours()
    {
        $usedcols = array();
        foreach ($this->used_categories as $c) {
            array_push($usedcols, $this->colours[$c-1]);
        }
        $this->_dump_array($usedcols, "\$this->colours        ");
    }
    
    public function _dump_var($variable, $name)
    {
        print $name . " = \"" . addslashes($variable) . "\";\n";
    }
    
    public 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";
    }
 
    public function _dump_perl_array($array, $name)
    {
        $first = 1;
        print $name . " = [";
        foreach ($array as $a) {
            if (!$first) {
                print ", ";
            } else {
                $first = 0;
            }
            print "\"" . addslashes($a) . "\"";
        }
        print "];\n";
    }
    
    public 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";
    }
 
    public function _dump_perl_hash($hash, $name)
    {
        $first = 1;
        print $name . " = {";
        foreach (array_keys($hash) as $k) {
            if (!$first) {
                print ", ";
            } else {
                $first = 0;
            }
            print "\n                   \"" . addslashes($k) . "\"";
            print "     => \"" . addslashes($hash[$k]) . "\"";
        }
        print "};\n";
    }
}