<?php
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */

require_once('parser.php');
require_once('haskellTokenizer.php');
require_once('haskellParser.php');

$tokenizer = new haskellTokenizer();
$source = "<?php\n";
while ($line = fgets(STDIN)) {
    $source .= $line;
}
$tokenizer->setSource($source);
$tokenizer->debug = $yydebug;

function yylex()
{
    global $tokenizer, $yylval;

    $terminal =& $tokenizer->getTerminal();
    $token =& $terminal->getToken();
    $yylval = $terminal;

    if (!$token) {
        return $token;
    } else if (is_string($token)) {
        return ord($token);
    } else {
        return $token[0];
    }
}

function yyerror()
{
    echo "parse error!!\n";
}

haskellParser::initialize();
yyparse();