Visit this project's SourceForge Project Page

phpcompiler.php

Go to the documentation of this file.

<?php

function Main($argv)
{
    // Get compiler itself
    $class_name = require_once("PhpCompiler.class.php");
    $compiler = new $class_name();

    // Get option details
    $modes = $compiler->GetModes();
    $mode_by_name = array();
    foreach($modes as $mode)
    {
        $mode_by_name[$mode["Name"]] = $mode["Default"];
    }

    // Pull self off list
    array_shift($argv);

    // Parse list of arguments
    $InFile     = array();
    $OutFile    = array();
    $show_usage = FALSE;
    while($argv)
    {
        $arg = array_shift($argv);

        if("-o" == $arg)
        {
            $OutFile[] = array_shift($argv);
        }
        elseif(preg_match("/^--(.*?)=(.*)$/", $arg, $match))
        {
            $arg = $match[1];
            $val = $match[2];

            if(isset($mode_by_name[$arg]))
            {
                if("TRUE" === $val)
                {
                    $mode_by_name[$arg] = TRUE;
                }
                elseif("FALSE" === $val)
                {
                    $mode_by_name[$arg] = FALSE;
                }
                else
                {
                    $mode_by_name[$arg] = $arg;
                }
            }
            else
            {
                print("Unknown argument $arg\n");
                $show_usage = TRUE;
            }
        }
        elseif(file_exists($arg))
        {
            $InFile[] = $arg;
        }
        else
        {
            print("Cannot find file $arg\n");
            $show_usage = TRUE;
        }
    }
    if(0 == count($InFile))
    {
        $show_usage = TRUE;
    }
    if(!$compiler->ChangeMode($mode_by_name))
    {
        print("Error assigning options\n");
        $show_usage = TRUE;
    }
    if($show_usage)
    {
        $opts = array(
                "[-o OutFile]",
                "InFile",
                "[InFile...]",
                );
        foreach($modes as $mode)
        {
            $param = "--".$mode["Name"];
            $value = "";
            if(TRUE === $mode["Default"])
            {
                $value = "=TRUE";
            }
            elseif(FALSE === $mode["Default"])
            {
                $value = "=FALSE";
            }
            $opts[] = "[$param$value]";
        }

        print("Usage: php Compiler.php ".join(" ",$opts)."\n");

        die(1);
    }

    // Get contents
    $Input = "";
    foreach($InFile as $filename)
    {
        $file = file_get_contents($filename);
        if(FALSE === $file)
        {
            print("Error reading contents of $filename\n");
            die(1);
        }

        $Input .= $file;
    }

    // Output errors should exit status 1, but not die immediately
    $die = FALSE;

    // Open outfiles
    $count = count($OutFile);
    $out_handles = array();
    for($x = 0; $x < $count; $x++)
    {
        $out = $OutFile[$x];

        $fh = fopen($out, "w");
        if(!is_resource($fh))
        {
            print("Failed to open $out for write\n");
            $die = TRUE;
        }
        else
        {
            $out_handles[$out] = $fh;
        }
    }

    // Perform the heart of the class
    $output = $compiler->Compile($Input);
    $errors = $compiler->GetErrors();

    // If errors
    if(0 < count($errors))
    {
        $fh = fopen("php://STDERR", "w");
        foreach($errors as $pos=>$error)
        {
            $lines = 0;
            $chars = 0;
            for($x = $pos-1; $x >= 0; $x --)
            {
                if("\n" == $Input[$x])
                {
                    $lines++;
                }
                elseif(0 == $lines)
                {
                    $chars++;
                }
            }
            $lines++;
            $chars++;

            fwrite($fh, "$lines,$chars: $error\n");
        }
        fclose($fh);

        if("" == $output)
        {
            die(1);
        }
    }

    // Output as appropriate
    if(0 == count($out_handles) && !$die)
    {
        print($output);
    }
    else
    {
        foreach($out_handles as $fn=>$fh)
        {
            if(FALSE === fwrite($fh, $output))
            {
                print("Failed writing $fn\n");
                $die = TRUE;
            }
            elseif(TRUE !== fclose($fh))
            {
                print("Failed closing $fn\n");
                $die = TRUE;
            }
            else
            {
                print("Wrote $fn\n");
            }
        }
    }

    // Exit with appropriate status on error
    if($die)
    {
        die(1);
    }
}

return(Main($argv));

?>

---