FreeBsd6 estraierpure.php

pear にestraierのパッケージがないか探していましたが、
えらいお方が、pear規約でお作りになられていました。

http://page2.xrea.jp/

使用させて頂きます。
簡易ですが、コネクションpoolとID管理周りを実装した
らっぱーを作成してみました。

//使用方法
# 登録
$est = & EST::getObj("hoge");
$val['colm' ] = "name";
$val['id' ] = "20";
$val['title' ] = "name";
$val['body' ] = "あいうえお#かきくけこ";
$est->put($val);

#検索
$est = & EST::getObj("hoge");;
$val['phrase'] = "あいうえお";
$val['max' ] = 10;
$val['skip' ] = 0;
$rs = $est->get($val);

//disp
Array
(
[0] => Array
(
[id] => 20
[colm] => name
[snippet] => あいうえお #かきくけこ
)


//ソース
require_once(PEAR_DIR . 'EstraierPure/estraierpure.php');

class EST
{
　　var $mNode;
　　var $mCond;
　　var $mDoc;

　　function EST( $node )
　　{
　　　　$this->connect( $node );
　　}

　　function connect( $node )
　　{

　　　　// node
　　　　$this->mNode = &new EstraierPure_Node;
　　　　$this->mNode->set_url('http://localhost:1978/node/'.$node );
　　　　$this->mNode->set_auth('hoge', 'hogehoge');

　　　　// condition
　　　　$this->mCond = &new EstraierPure_Condition;

　　　　// document
　　　　$this->mDoc = &new EstraierPure_Document;
　　}

　　function get( $val )
　　{

　　　　// set condition
　　　　if ( isset($val['phrase']) ){ $this->mCond->set_phrase($val['phrase']);}
　　　　if ( isset($val['max' ]) ){ $this->mCond->set_max($val['max']); }
　　　　if ( isset($val['skip' ]) ){ $this->mCond->set_skip($val['skip']); }

　　　　// search
　　　　$nres = &$this->mNode->search($this->mCond, 0 );

　　　　// get result
　　　　if ($nres) {

　　　　　　for ($i = 0; $i < $nres->doc_num(); $i++) {

　　　　　　　　$rdoc = &$nres->get_doc($i);
　　　　　　　　list($rs[$i]['colm'] , $rs[$i]['id']) = split("-",$rdoc->attr('@uri'));
　　　　　　　　//$rs[$i]['uri' ] = $rdoc->attr('@uri');
　　　　　　　　//$rs[$i]['title' ] = $rdoc->attr('@title');
　　　　　　　　//$rs[$i]['author' ] = $rdoc->attr('@author');
　　　　　　　　$rs[$i]['snippet'] = $rdoc->snippet();
　　　　　　}
　　　　}

　　　　return $rs;
　　}

　　function put( $val )
　　{

　　　　$this->mDoc->add_attr('@uri' , $val['colm']."-".$val['id']);
　　　　$this->mDoc->add_attr('@title', $val['title']);
　　　　$this->mDoc->add_text( $val['body'] );

　　　　$this->mNode->put_doc($this->mDoc);
　　}


　　//singleton
　　function &getObj( $node )
　　{
　　　　static $myselfESTObj;

　　　　if($myselfESTObj == NULL)
　　　　{
　　　　　　　　$myselfESTObj = new EST( $node );

　　　　　　　　//destruct
　　　　　　　　register_shutdown_function("destroyEST");
　　　　}
　　　　return $myselfESTObj;
　　}
}

/*==============================================================================X
X Function Name : destroyConnect
X===============================================================================*/
function destroyEST()
{
　　$objdb =& EST::getObj();
　　if (is_object( $objdb )){
　　　　//$objdb->close();
　　　　unset($objdb);
　　}
}
?>