}
$code[] = $this->{$method}(empty($args) ? NULL : $args);
}
return count($code) == 1 ? array_shift($code) : $code;
}
}
if (isset($argv)) {
$file = array_pop($argv);
if ($file == '-d') {
define('D', true);
$file = array_pop($argv);
}
if (!defined('D')) {
define('D', false);
}
if (file_exists($file)) {
$contents = file_get_contents($file);
if (!empty($contents)) {
$S = new Scheme();
$code = $S->parse($contents) . ';' . N;
if (D) {
puts($code);
}
eval($code);
} else {
echo "file was empty" . N;
}
} else {
echo "Could not find a file to parse." . N;
}
}
