2 /***************************************************************************
3 * Copyright (C) 2003-2006 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
6 * This program is free software; you can redistribute it and/or modify *
7 * it under the terms of the GNU General Public License as published by *
8 * the Free Software Foundation; either version 2 of the License, or *
9 * (at your option) any later version. *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 // {{{ class VarStream
28 // Stream handler to read from global variables
35 function stream_open($path, $mode, $options, &$opened_path)
37 $url = parse_url($path);
38 $this->varname
= $url['host'];
40 if (!isset($GLOBALS[$this->varname
]))
42 trigger_error('Global variable '.$this->varname
.' does not exist', E_USER_WARNING
);
51 function stream_close()
58 function stream_read($count)
60 $ret = substr($GLOBALS[$this->varname
], $this->position
, $count);
61 $this->position +
= strlen($ret);
68 function stream_write($data)
71 if ($len > $this->position +
strlen($GLOBALS[$this->varname
])) {
72 str_pad($GLOBALS[$this->varname
], $len);
75 $GLOBALS[$this->varname
] = substr_replace($GLOBALS[$this->varname
], $data, $this->position
, $len);
76 $this->position +
= $len;
84 return $this->position
>= strlen($GLOBALS[$this->varname
]);
90 function stream_tell()
92 return $this->position
;
98 function stream_seek($offs, $whence)
110 $final = strlen($GLOBALS[$this->varname
]) +
$offs;
117 $this->position
= $final;
124 function stream_flush()
133 stream_wrapper_register('var','VarStream');
135 // vim:set et sw=4 sts=4 sws=4: