<?php # vim600:syn=php:
$filename = tempnam("/tmp", "phpt");
$fp = fopen($filename, "w+") or die("can't open $filename for append");
fwrite($fp, "quxbar");
fseek($fp, 3, SEEK_SET);
fread($fp, 1);
fseek($fp, 4, SEEK_SET);
fwrite($fp, '!');
fseek($fp, 0, SEEK_SET);
var_dump(fread($fp, 4095));
ftruncate($fp, 0);
rewind($fp);
fwrite($fp, "barfoo");
fseek($fp, 3, SEEK_SET);
fread($fp, 1);
fwrite($fp, '!');
fseek($fp, 0, SEEK_SET);
var_dump(fread($fp, 4095));
fclose($fp);
unlink($filename);
?>
ADDITIONAL INFORMATION:
File "../phpoo/runtime/ext/standard/./php-files.scm", line 730, character 24221:
# (else (error "fopen" "invalid file mode" mode)))))))
# ^
# *** ERROR:bigloo:fopen
# invalid file mode -- w+
0. fopen
1. php-funcall
2. apply
3. evaluate (3 times)
6. evaluate-block
7. evaluate-default2438
8. evaluate (2 times)
10. interpret
11. php-commandline
