mkfun.php

Go to the documentation of this file.

#!/usr/local/bin/php
 
<?php
 
$lines = file("new_fun.txt");
 
$enumfile = "enum_fun.txt";
$ef = fopen($enumfile, 'w') or die("can't open file");
foreach ($lines as $line_num => $line) {
 
        $line = trim($line);
        fwrite($ef, "        " . strtoupper($line) . ",\n");
        echo "        " . strtoupper($line) . ",\n";
}
fclose($ef);
 
$enumfile = "fun.txt";
$ff = fopen($enumfile, 'w') or die("can't open file");
foreach ($lines as $line_num => $line) {
 
        $line = trim($line);
        fwrite($ff, "                { \"" . $line . "(\",\t" . strtoupper($line) . " },\n");
        echo "                { \"" . $line . "(\",\t" . strtoupper($line) . " },\n";
}
fclose($ff);
 
$enumfile = "argc.txt";
$af = fopen($enumfile, 'w') or die("can't open file");
foreach ($lines as $line_num => $line) {
 
        $line = trim($line);
        fwrite($af, "                { \"" . $line . "(\",\t1 },\n");
        echo "                { \"" . $line . "(\",\t1 },\n";
}
fclose($af);
 
$codefile = "fun_code.txt";
$cf = fopen($codefile, 'w') or die("can't open file");
foreach ($lines as $line_num => $line) {
        $line = trim($line);
        fwrite($cf,"    case " . strtoupper($line) . " :\n");
        fwrite($cf,"            stack.back()->value = " . $line . "(stack.back()->value);\n");
        fwrite($cf,"            break;\n");
}
fclose($cf);
 
?>