<?php
class FileStorage {
   var $data;

   function FileStorage($data) 
   {
	   $this->data = $data;
   }

   function write($name) 
   {
	   $fp = fopen(name, "w");
	   fwrite($fp, $this->data);
	   fclose($data);
   }
}

class WDDXStorage {
   var $data;
   var $version = "1.0";
   var $_id; // variable "privée"

   function WDDXStorage($data) 
   {
	   $this->data = $data;
	   $this->_id = $this->_genID();
   }

   function store()
   {
	   if ($this->_id) {
		   $pid = wddx_packet_start($this->_id);
		   wddx_add_vars($pid, "this->data");
		   $packet = wddx_packet_end($pid);
	   } else {
		   $packet = wddx_serialize_value($this->data);
	   }
	   $dbh = dba_open("varstore", "w", "gdbm");
	   dba_insert(md5(uniqid("", true)), $packet, $dbh);
	   dba_close($dbh);
   }

   // méthode privée
   function _genID()
   {
	   return md5(uniqid(rand(), true));
   }
}

class DBStorage {
   var $data;
   var $dbtype = "mysql";

   function DBStorage($data) 
   {
	   $this->data = $data;
   }

   function save() 
   {
	   $dbh = mysql_connect();
	   mysql_select_db("storage", $dbh);
	   $serdata = serialize($this->data);
	   mysql_query("insert into vars ('$serdata',now())", $dbh);
	   mysql_close($dbh);
   }
}

?>

<?php
include "storageclasses.inc";

// quelques utilitaires

function p_arr($arr) 
{
   foreach ($arr as $k => $v)
	   $out[] = "\t$k => $v";
   return implode("\n", $out);
}

function object_info($obj) 
{
   $out[] = "Classe : " . get_class($obj);
   foreach (get_object_vars($obj) as $var=>$val) {
	   if (is_array($val)) {
		   $out[] = "propriété : $var (array)\n" . p_arr($val);
	   } else {
		   $out[] = "propriété : $var = $val";
	   }
   }
   foreach (get_class_methods($obj) as $method) {
	   $out[] = "méthode : $method";
   }
   return implode("\n", $out);
}


$data = array(M_PI, "kludge != cruft");

// créons quelques objets simples
$fs = new FileStorage($data);
$ws = new WDDXStorage($data);

// affichons des informations sur ces objets
echo "\$fs object\n";
echo object_info($fs) . "\n";
echo "\n\$ws object\n";
echo object_info($ws) . "\n";

// maintenant, quelques agrégations

echo "\nagrégeons \$fs avec la classe WDDXStorage\n";
aggregate($fs, "WDDXStorage");
echo "L'objet \$fs \n";
echo object_info($fs) . "\n";

echo"\nagrégeons le résultat avec la classe DBStorage \n";
aggregate($fs, "DBStorage");
echo "L'objet \$fs \n";
echo object_info($fs)."\n";

echo "\nEt finalement, désagrégeons WDDXStorage\n";
deaggregate($fs, "WDDXStorage");
echo "L'objet \$fs \n";
echo object_info($fs) . "\n";

?>