+if ( !class_exists( 'POMO_FileReader' ) ):
+class POMO_FileReader extends POMO_Reader {
+ function POMO_FileReader($filename) {
+ parent::POMO_Reader();
+ $this->_f = fopen($filename, 'r');
+ }
+
+ function read($bytes) {
+ return fread($this->_f, $bytes);
+ }
+
+ function seekto($pos) {
+ if ( -1 == fseek($this->_f, $pos, SEEK_SET)) {
+ return false;
+ }
+ $this->_pos = $pos;
+ return true;
+ }
+
+ function is_resource() {
+ return is_resource($this->_f);
+ }
+
+ function feof() {
+ return feof($this->_f);
+ }
+
+ function close() {
+ return fclose($this->_f);
+ }
+
+ function read_all() {
+ $all = '';
+ while ( !$this->feof() )
+ $all .= $this->read(4096);
+ return $all;
+ }
+}
+endif;
+
+if ( !class_exists( 'POMO_StringReader' ) ):
+/**
+ * Provides file-like methods for manipulating a string instead
+ * of a physical file.
+ */
+class POMO_StringReader extends POMO_Reader {
+
+ var $_str = '';
+
+ function POMO_StringReader($str = '') {
+ parent::POMO_Reader();
+ $this->_str = $str;
+ $this->_pos = 0;
+ }
+
+
+ function read($bytes) {
+ $data = $this->substr($this->_str, $this->_pos, $bytes);
+ $this->_pos += $bytes;
+ if ($this->strlen($this->_str) < $this->_pos) $this->_pos = $this->strlen($this->_str);
+ return $data;
+ }
+
+ function seekto($pos) {
+ $this->_pos = $pos;
+ if ($this->strlen($this->_str) < $this->_pos) $this->_pos = $this->strlen($this->_str);
+ return $this->_pos;
+ }
+
+ function length() {
+ return $this->strlen($this->_str);
+ }
+
+ function read_all() {
+ return $this->substr($this->_str, $this->_pos, $this->strlen($this->_str));
+ }
+
+}
+endif;
+
+if ( !class_exists( 'POMO_CachedFileReader' ) ):
+/**
+ * Reads the contents of the file in the beginning.
+ */
+class POMO_CachedFileReader extends POMO_StringReader {
+ function POMO_CachedFileReader($filename) {
+ parent::POMO_StringReader();
+ $this->_str = file_get_contents($filename);
+ if (false === $this->_str)
+ return false;
+ $this->_pos = 0;
+ }
+}
+endif;
+
+if ( !class_exists( 'POMO_CachedIntFileReader' ) ):
+/**
+ * Reads the contents of the file in the beginning.
+ */
+class POMO_CachedIntFileReader extends POMO_CachedFileReader {
+ function POMO_CachedIntFileReader($filename) {
+ parent::POMO_CachedFileReader($filename);
+ }
+}
+endif;
\ No newline at end of file