3 * Client for querying zhdaemon
10 var $mHost, $mPort, $mFP, $mConnected;
17 function ZhClient($host, $port) {
20 $this->mConnected
= $this->connect();
24 * Check if connection to zhdaemon is successful
28 function isconnected() {
29 return $this->mConnected
;
33 * Establish conncetion
39 $this->mFP
= fsockopen($this->mHost
, $this->mPort
, $errno, $errstr, 30);
48 * Query the daemon and return the result
52 function query($request) {
53 if(!$this->mConnected
)
56 fwrite($this->mFP
, $request);
58 $result=fgets($this->mFP
, 1024);
60 list($status, $len) = explode(" ", $result);
61 if($status == 'ERROR') {
62 //$len is actually the error code...
63 print "zhdaemon error $len<br />\n";
68 while(!feof($this->mFP
) && $bytesread<$len) {
69 $str= fread($this->mFP
, $len-$bytesread);
70 $bytesread +
= strlen($str);
73 //data should be of length $len. otherwise something is wrong
74 if(strlen($data) != $len)
80 * Convert the input to a different language variant
82 * @param string $text input text
83 * @param string $tolang language variant
84 * @return string the converted text
87 function convert($text, $tolang) {
89 $q = "CONV $tolang $len\n$text";
90 $result = $this->query($q);
97 * Convert the input to all possible variants
99 * @param string $text input text
100 * @return array langcode => converted_string
103 function convertToAllVariants($text) {
104 $len = strlen($text);
105 $q = "CONV ALL $len\n$text";
106 $result = $this->query($q);
109 list($infoline, $data) = explode('|', $result);
110 $info = explode(";", $infoline);
113 foreach($info as $code => $len) {
114 $ret[strtolower($code)] = substr($data, $i, $len);
120 * Perform word segmentation
122 * @param string $text input text
123 * @return string segmented text
126 function segment($text) {
127 $len = strlen($text);
128 $q = "SEG $len\n$text";
129 $result = $this->query($q);
130 if(!$result) {// fallback to character based segmentation
131 $result = ZhClientFake
::segment($text);
137 * Close the connection
149 function ZhClientFake() {
150 global $wgMemc, $wgDBname;
151 $this->zh2TW
= $wgMemc->get($key1 = "$wgDBname:zhConvert:tw");
152 $this->zh2CN
= $wgMemc->get($key2 = "$wgDBname:zhConvert:cn");
153 $this->zh2SG
= $wgMemc->get($key3 = "$wgDBname:zhConvert:sg");
154 $this->zh2HK
= $wgMemc->get($key4 = "$wgDBname:zhConvert:hk");
155 if(empty($this->zh2TW
) ||
empty($this->zh2CN
) ||
empty($this->zh2SG
) ||
empty($this->zh2HK
)) {
156 require_once("includes/ZhConversion.php");
157 $this->zh2TW
= $zh2TW;
158 $this->zh2CN
= $zh2CN;
159 $this->zh2HK
= $zh2HK;
160 $this->zh2SG
= $zh2SG;
161 $wgMemc->set($key1, $this->zh2TW
);
162 $wgMemc->set($key2, $this->zh2CN
);
163 $wgMemc->set($key3, $this->zh2SG
);
164 $wgMemc->set($key4, $this->zh2HK
);
168 function isconnected() {
177 function zh2tw($text) {
178 return strtr($text, $this->zh2TW
);
186 function zh2cn($text) {
187 return strtr($text, $this->zh2CN
);
195 function zh2sg($text) {
196 return strtr(strtr($text, $this->zh2CN
), $this->zh2SG
);
204 function zh2hk($text) {
205 return strtr(strtr($text, $this->zh2TW
), $this->zh2HK
);
209 * Convert the input to a different language variant
211 * @param string $text input text
212 * @param string $tolang language variant
213 * @return string the converted text
216 function convert($text, $tolang) {
220 $t = $this->zh2cn($text);
223 $t = $this->zh2tw($text);
226 $t = $this->zh2sg($text);
229 $t = $this->zh2hk($text);
237 function convertToAllVariants($text) {
239 $ret['zh-cn'] = $this->zh2cn($text);
240 $ret['zh-tw'] = $this->zh2tw($text);
241 $ret['zh-sg'] = $this->zh2sg($text);
242 $ret['zh-hk'] = $this->zh2hk($text);
247 * Perform "fake" word segmentation, i.e. treating each character as a word
249 * @param string $text input text
250 * @return string segmented text
253 function segment($text) {
254 /* copied from LanguageZh_cn.stripForSearch() */
255 if( function_exists( 'mb_strtolower' ) ) {
257 "/([\\xc0-\\xff][\\x80-\\xbf]*)/e",
258 "' U8' . bin2hex( \"$1\" )",
259 mb_strtolower( $text ) );
261 global $wikiLowerChars;
263 "/([\\xc0-\\xff][\\x80-\\xbf]*)/e",
264 "' U8' . bin2hex( strtr( \"\$1\", \$wikiLowerChars ) )",
270 * Close the fake connection