./wordnet/0040755000000000000000000000000007634745325011537 5ustar rootwheel./wordnet/sample/0040755000000000000000000000000007634712045013011 5ustar rootwheel./wordnet/sample/index.php0100644000175300017530000003317107634711701014454 0ustar mikemike"noun",2=>"verb",3=>"adj",4=>"adv"); $help_menu = array(1=> array("".WN_HYPERPTR => 0, "".WN_ANTPTR => 2, "".WN_COORDS =>3, "".(-WN_HYPERPTR) =>4, "".WN_HYPOPTR =>5, "".(-WN_HYPOPTR) =>6, "".WN_HOLONYM =>7, "".(-WN_HOLONYM) =>8, "".WN_MERONYM =>9, "".(-WN_MERONYM) =>10, "".WN_ATTRIBUTE =>12, "".WN_FREQ =>13, "".WN_ISPARTPTR => 7, "".WN_ISMEMBERPTR => 7, "".WN_ISSTUFFPTR => 7), 2=>array("".WN_HYPERPTR =>0, "".WN_RELATIVES =>1, "".WN_ANTPTR =>2, "".WN_COORDS =>3, "".(-WN_HYPERPTR) =>4, "".WN_HYPOPTR =>5, "".WN_ENTAILPTR =>6, "".WN_CAUSETO =>7, "".WN_FRAMES=>9, "".WN_FREQ =>10), 3=>array("".WN_SIMPTR =>0, "".WN_ANTPTR =>1, "".WN_PERTPTR =>0, "".WN_ATTRIBUTE =>2, "".WN_FREQ =>3), 4=>array("".WN_SYNS =>0, "".WN_ANTPTR =>1, "".WN_PERTPTR =>0, "".WN_FREQ =>3)); // these are the menu's.. $posmenu = array(1=> array("".WN_HYPERPTR =>"Synonyms, ordered by frequency", // "24" =>"Synonyms, grouped by similarity", "".WN_ANTPTR =>"Antonyms", "".WN_COORDS =>"Coordinate Terms", "".(-WN_HYPERPTR) =>"Hypernyms (this is a kind of...)", "".WN_HYPOPTR =>"Hyponyms (...is a kind of this), brief", "".(-WN_HYPOPTR) =>"Hyponyms (...is a kind of this), full", "".WN_HOLONYM =>"Holonyms (this is a part of...), regular", "".(-WN_HOLONYM) =>"Holonyms (this is a part of...), inherited", "".WN_MERONYM =>"Meronyms (parts of this), regular", "".(-WN_MERONYM) =>"Meronyms (parts of this), inherited", "".WN_ATTRIBUTE =>"Attributes (...is a value of this)", "".WN_FREQ =>"Familiarity", "".WN_ISPARTPTR => "Part Holonyms", "".WN_ISMEMBERPTR => "Member Holonyms", "".WN_ISSTUFFPTR => "Substance Holonyms"), //WN_ //"27" =>"Context sentences"), 2=>array("".WN_HYPERPTR =>"Synonyms, ordered by frequency", "".WN_RELATIVES =>"Synonyms, grouped by similarity", "".WN_ANTPTR =>"Antonyms", "".(-WN_HYPERPTR) =>"Hypernyms (this is one way to...)", "".WN_HYPOPTR =>"Troponyms (particular ways to this)", "".WN_ENTAILPTR =>"this entails doing...", "".WN_CAUSETO =>"this causes...", "".WN_FRAMES=>"Sentence frames", "".WN_FREQ =>"Familiarity"), 3=>array("".WN_SIMPTR =>"Synonyms", "".WN_ANTPTR =>"Antonyms", "".WN_PERTPTR =>"this is an value of...", "".WN_ATTRIBUTE => "Attribute", "".WN_FREQ =>"Familiarity"), 4=>array("".WN_SYNS =>"Synonyms", "".WN_ANTPTR =>"Antonyms", "".WN_PERTPTR =>"Pertainyms", "".WN_FREQ =>"Familiarity")); function DoTop($title){ echo "$title\n"; echo "\n"; }; function SplitAndTagList($text,$word){ global $PHP_SELF; $reply = ""; $names = explode(",",$text); // echo "Split($text)\n"; if(count($names)>0){ $i=0; while(list($key,$name)=each($names)){ $name = trim($name); if($i) $reply .=", "; if(!strcasecmp($name,$word)) $reply .= "$name"; else $reply .= "$name"; $i = 1; } } return $reply; }; function HTMLize($text){ $text = ereg_replace("\n","
\n",$text); $text = ereg_replace(" ","  ",$text); return $text; }; // this finds the help type for a search.shade tree natural object function FindType($pos, $search){ global $posmenu; reset($posmenu); $i=0; while(list($key, $val)=each($posmenu[$pos])){ if($search==$key) return $i; $i++; } return 0; }; function DoBlurb(){ ?>

WordNet® is an on-line lexical reference system whose design is inspired by current psycholinguistic theories of human lexical memory. English nouns, verbs, adjectives and adverbs are organized into synonym sets, each representing one underlying lexical concept. Different relations link the synonym sets.

This interface to the wordnet database was written by Mike McDonald <mike@foxproject.org> and provides PHP access to the wordnet library. The source is available here

WordNet Website
PHP Website 		Visitors since
Jan 16/2001
 Counter

WordNet $wnver"; echo "
A Lexical Database for the English Language\n"; echo "

"; echo ""; echo "Search word : "; echo ""; echo "
"; }; // this is called to check if a word is in wordnet and to // print out the menu of all the options. function DoMainSearchWord($string){ global $wnver,$debug_wn; DoTop("Wordnet search ".$string); $mstring = DoMorphWord($string); wn_glosses(1); echo "
WordNet $wnver overview for \"".stripslashes($string)."\"

\n"; $bitfield = ""; for($pos = 1;$pos<5;$pos++){ $bitfield = wn_is_defined($mstring,$pos); if($morph = wn_morphstr($mstring,$pos)){ do { $bitfield |= wn_is_defined($mstring,$pos); } while ($morph = wn_morphstr("",$pos)); } if($bitfield){ $senses = DoWordDefinitionList($string,$pos); //if($debug_wn) // echo "senses = \"$senses\"
\n"; DoSenseSearchForm($string,$pos,$bitfield,$senses); } } if(count($senses)<1) echo "No matches for $string\n"; }; // this prints out a list of all the senses for a word. // notes.. // it highlights the word in red. // and returns an array of senses. // where value is the sense number. function DoWordDefinitionList($string,$pos){ global $posname,$debug_wn; $senses = array(); $mstring = DoMorphWord($string); $out = wn_findtheinfo($mstring,$pos,WN_OVERVIEW,0); if($debug_wn) echo "Out is \"".nl2br($out)."\"

\n"; if(!ereg("([^\n ]+) has ([0-9]+) senses?",$out,$array)){ return false; } $sensecount = $array[2]; $morphedword = trim($array[1]); echo "

The ".$posname[$pos]." \"$morphedword\" has $sensecount "; if($sensecount==1) echo "sense"; else echo "senses"; echo " in Wordnet

\n"; $lines = explode("\n",$out); $i =0; while($i < count($lines)){ $line = $lines[$i]; if($debug_wn) echo "Line = \"$line\"
\n"; if(ereg("^([0-9]+)\.(.*)$",$line,$array)){ // $i++; $senses[]= $array[1]; echo $array[1].". "; echo DoWNHighLight($lines[$i],$morphedword); } else if(ereg("( )*(=)|(-)>(.*)--",$line)){ echo DoWNHighLight($line,$morphedword); } $i++; } return $senses; }; // this prints out the form for a complex search of a // word given an array of senses.. function DoSenseSearchForm($word,$pos,$bitfield,$senses){ global $posmenu; reset($posmenu[$pos]); echo "
\n"; echo ""; echo "\n"; echo "\n"; echo "

Search for \n"; echo "of Sense(s)
\n"; echo " Show Glosses
\n"; echo " Show Help
\n"; echo ""; echo "

\n"; }; function DoComplexSearch($word,$pos,$type,$sense){ global $glosses, $posname,$posmenu, $wnver,$contexthelp,$debug_wn,$help_menu; $mstring = DoMorphWord($word); DoTop("Wordnet complex search ".$word); echo "
WordNet $wnver results for \"".ereg_replace("this",stripslashes($word),$posmenu[$pos]["$type"])."\""; echo "search of ".$posname[$pos]." \"".stripslashes($word)."\"
\n"; if($glosses) wn_glosses(1); else wn_glosses(0); if($contexthelp){ $id = $help_menu[$pos]["$type"]; $help = wn_contexthelp($pos, $id); $help = HTMLize($help); // $help = ereg_replace("\n","
\n",$help); // $help = ereg_replace(" "," ",$help); echo "
$help

\n"; } $out = wn_findtheinfo($mstring,$pos,$type,$sense); if($debug_wn) echo "Out is \"".nl2br($out)."\"
\n"; if(!$out){ echo "
Nothing valid for ".stripslashes($word)."\n"; return; } // turn the con based output to something htmlish // and highlight the word we're looking for // $out = ereg_replace("\n","
\n",$out); // $out = ereg_replace(" ","  ",$out); $lines = explode("\n",$out); reset($lines); while(list($dummy,$line)=each($lines)){ echo DoWNHighLight($line,$word); } } function DoWNHighLight($text,$word){ global $debug_wn; $reply =""; // echo "
($text)
"; //ereg("( )*(=)|(-)>(.*)--",$line) if(strlen($text)==0) return; if(eregi("^(sense [1-9]+)$",$text,$array)){ if($debug_wn) echo "type0
\n"; $reply = "
".$array[1]."\n"; } else if(eregi("(.*)=>(.*)--(.*)",$text,$array)){ if($debug_wn) echo "type1
\n"; $reply .= HTMLize($array[1]." => "); $reply .= SplitAndTagList($array[2],$word); $reply .= " -- ".$array[3]; } else if (eregi("(.*)->(.*)--(.*)",$text,$array)){ if($debug_wn) echo "type2
\n"; $reply .= HTMLize($array[1]." -> "); $reply .= SplitAndTagList($array[2],$word); $reply .= " -- ".$array[3]; } else if(eregi("(.*: )(.*)--(.*)",$text,$array)){ if($debug_wn) echo "type3
\n"; $reply .= $array[1].SplitAndTagList($array[2],$word); $reply .= " -- ".$array[3]; } else if(eregi("(.*)(---+)(.*)",$text,$array)){ if($debug_wn) echo "type4
\n"; $reply .= $array[1].$array[2].$array[3]; } else if(eregi("^[0-9]+\. (\([0-9]+\)+)?(.*)--(.*)",$text,$array)){ if($debug_wn) echo "type5
\n"; $reply .= SplitAndTagList($array[2],$word); $reply .= " -- ".$array[3]; } else if(eregi("(.*)--(.*)",$text,$array)){ if($debug_wn) echo "type6
\n"; $reply .= SplitAndTagList($array[1],$word); $reply .= " -- ".$array[2]; } else { if($debug_wn) echo "type7
\n"; $reply = eregi_replace("([^a-z]|^)($word)(([^a-z-]+.*--)|( --))","\\1\\2\\3",$text); } $reply .="
\n"; return $reply; }; /* core program logic. * */ if(!$action){ PrintSearchBox(); } else{ if($action == "search" && $word){ DoMainSearchWord($word); } else if($action == "complexsearch"){ DoComplexSearch($word,$POS,$searchtype,$sense); } else { PrintSearchBox(); } } ?> ./wordnet/sample/php_wn.gif0100644000175300017530000002733207634711701014620 0ustar mikemikeGIF89aBBDbbdrrt䒒RRT""$vvtVbVR\224rzFJT^j~ZZ\jjljr춺NZ::Fdfbl얖䆆664^j삎^Zdfr26\~~ff|bnnn:>\..,^^tR^z~BFTz~NVzz|$FN|rv.6T^n&.L 6>d4̂RVl&&$nnl>>-T3& p y mf_7@ *E`B0~O85<r /&D \sq5Їs(z{"hë 7XB(BqN0Q K,f108$D0 { -ʡ=ޡ0D hԭHU !o4@)(F ^CA^jP&塘`,B8=1*OO:<ٷ< n`?44bC.wm}O%uH1p P=m6L =([|s PUܔ."@oK'0: 0RFp S+1ŧ+4FgpPԶQcr 48(N( D 4tAHKx 'ps$$|E !P!dVricDu$0Jޠ_f_0{=>F@Pa9 tXu}7p  gh/xr Yg@y=0`!"34$(43 $wX0 0rX1~`8H`wpx@ @r @0 P`=`0 eC!G e\XP1p(H@s|q 0(NP>p9- j6jfkϠrp6 Ppkϐ} l%1$ mP!Q7(Ri0@4  mPS0L0p?CP }(N 9|@ SQ ᧓3" r@)"@60@SeT7_}RΠucHb 0& 0=`xu P $& ԰[dPdeKN(@d #'==H`qvR} 0 D09(5IVQ -PHH P'K2 -p9m` @VTHVǩS% f}G?u +1yD`3 @Vx#xA  @a@+9wP  Ug2]9 Ȱ1:IUT3w  I? 8 rjeݩS`@@f>Z1 9Hސ ž( Hmpㅅ^%[H"qHVNBDJVpdA+{p 04@@eS0Dv#aFVW X; R:<'C@ v'FlpznEcuS00z0 ?C hZ` =1CmiTt$p5D`]DF0)NpitCcu"-PJKfSv oHgD =q,3}3dp?7C VF >xW` PwQژ".Pzt> =QX#4`NEY @:ՎA}Xٟ:U0 Zp." `#iPI=a9~]v:1R0a)/(O `| 1 P-0L0oSA30 $ ` c`wF{dPh,4@ JK9+NPÚN}KVp *i`P:VY$ p (F@ ʷSE-'3X)nM;>;H }F(SP0 J n2|KK0 ikl K< 7/)1k'J 'N%+-,HOe6( 4Pp ~0з gyypۈ55!!5^D+h> ȭ~du mp4pH"8U(X"p쩳B<&иG2o0HD<L PpjnKGB`%>P @ @v1'"hM@\= [R.v{|(` "`G0| 0@@P 4$<rf> " ('"+KVq( H %۔<^} P0 03- L0P$ 0 MHcR~k` 4] 3@@rKVK{$@ <.T\dr@ `39H\0WFVp 1`P -wdE 0+ +C jx=Qp/4 [ B}L ې`HoЉLHС2u$t0LHIto tLPzdm\Gb9 sp/k:\(s 8Ҡ!>`B @蠀KܣŰmX H: D9I\O೴4wd@peR*N ׌ͩTj@ ]TA 4 >$[89=2K {ɪ$ktn<Y KhA 2_# vE4k@ J"X6%"93z PQ}U݊ \j.NpKDP @>jq'  %zÅ0xp 벮UݗDǵ :% ">P+p d|`s+Ve'2PC!$ߩT.Cpx[wu߰ P@3} s(?nP9(Q  FPs`   ;\A)H;`]R}ɋ(Bd_˨Ki}Rs#T4 \gf_@ isOu<g@.ް@zmYNuY'-`ݸoݲ k o3U -H P $ p * ? P1pqysp\XfHFYf3h14j+\Ĉ aO~d2|ҝȏ-Y6<ʖ%z" J%}zCC7D£ 2 !`ŀ)SFM@A tDpCAJ#$`lUZmݾW[p򠑃'g$BT)d^'F8f&ʢHpFW; cǨGAZk(p8WycōG݂֒ RnЖ<1kd'Z]q̙kUwmuzb^+Ԟ]普xĀ( УG8"rhHB /ᓁ %=M@j @+D"nEҡo3`lo0djB k&`ʹFe (0L1 ;,oRI `/ Id<$#+OCKhк11< @DȮZAҮ ௜򈠭JxRydLSOmK$hÐdGD <5-:`'hES4!{;`F`),QEV‡b&sێi ;v{2` vlQFAgܥy[p h LR2 ݬ N{1؅|GXM#I,3 :=o4@b(f&a-hfD+I XKAb@Մ.tΟQJ f0χVPXeThPl R @VXb=k8xE+4 89NǾ8\ Jm[:Ks}4ٌ.%lZZ"$H&ǐC0ވV.opAIFDk<7tA "FDg{{@FK:fM>fTN0B0t_>0U,y|pGVF0ЀnHRƥp o т|`otKXf G>Q8zHZFBp`41&Ddh`Z5H@I")XQ?O<ԭ+>p!rupf:$G^ab>Ø<&@!$MF5PR# &AC<@f8shć8I$3+p!F֕lRZNC}л^v†!¡uh:` ]X9 CU_ò BbF`،!1(p]5ԂKOW0<M*hAf e{X#2Ff^9Ĕ:`3u +F0P # @"KP: @xX4X^#^91#cƲ5:`,]FПpH:EuW`_Chae}c v;5s970t'x'R r@5  T9lW4#Oyƈ8I1 (1롊* oWJ#C4.g: d:. TR`Pa SQ7'@cXb^a`5 a>K}/ fEмd]` Hb#J0+0t+3Jm``PC ÒpH3wEB 5N6FhZ왇5A8JzJ$ '5!yY:@>!hm`d @6{DIh:EW"k/:<%0SaO?a x ސ57#v!?y %G t'@\4:^t0A_# *`=d7x#%0=+ߖMr1ڇCp 5٩E9g`ЃiQЃ)XuP߮uU;Vy 2ȃqՃ]0K֠GUصh ]'2k_X y6Rjxkx]ȣ-;Q0c- #DxGf]ʙ @a( hC1T1X)gx_E@L"Yd PХ'11pd6%g.ڶgeo8&F9@d !'(QWbm g|n 8k +QQUGHapdSZmaF} .y`t6J}Xg-iȯě ;pȮ℮` x Ѓ58 G`j(@=> 2OXmS;ȃ!gqBci ]Xƶ4ZWc[ ':S1x^ QX (>kkr>`ZX)wFk0赘ށ] @Z~dސ_XDGؔaκWlɾ)xNy&ջc5mF<F>V ڦ0>Id~8 2o11vɃx ׾ߔ9rUU H.eFQ-z<(giFQ*1hᑭVOev߄ uo8ځhHprLOo^5,H#1ZTǼi$1R@]bֵ0^5Mj^|f hMv rk2QvʃO7+72  jH[SxuG; 1Qx^B(eSBկow"Q8b]hwBԈ0rXM+*촶n'yltK'. v)gpe]޿`VOƼ8Wi}VxϞиiJp>Q`nt)/X@}{PIx xph$ƘF\ r˃?4h@f7N9 XzhG  8w9 }7ĝ9L 2h>ʼe~19x bU I>-1OJm-5W^7,h „ 2l!Ĉ'C(rh t(؂Ʈi0|P(gҬi A!$Πc!3\h;BRZuTk^:Շ [!iW"ZA ׸r>$E&)QtqpM᳖&(P`1 q\&"pNQ/.] 4a 73dTӮm{.zKMDR=z"4xʗ׼C 4ڷsX;Ǔ/o<׳o=ӯo>? 8 x * : >;./wordnet/ReadMe.txt0100644000175300017530000000177707532555102013256 0ustar mikemikeThe following functions are included. long wn_in_wn(string,pos) long wn_is_defined(string,pos) long wn_getindex(string,pos) string wn_morphstr(string,pos) string wn_findtheinfo(string,pos,seachtype,sense) object wn_findtheinfo_ds(string, pos, searchtype, sense) string wn_contexthelp(pos,search) bool wn_glosses(bool) // sets dflag bool wn_senseflag(bool) // sets wnsnsflag bool wn_fileinfo(bool) // sets fileinfoflag bool wn_byteoffse(bool) // sets offsetflag The following constants are defined. WN_ALL_POS WN_NOUN WN_VERB WN_ADJECTIVE WN_ADVERB WN_SATELLITE WN_ALLSENSES WN_ANTPTR WN_HYPERPTR WN_HYPOPTR WN_ENTAILPTR WN_SIMPTR WN_ISMEMBERPTR WN_ISSTUFFPTR WN_ISPARTPTR WN_HASMEMBERPTR WN_HASSTUFFPTR WN_HASPARTPTR WN_MERONYM WN_HOLONYM WN_CAUSETO WN_PPLPTR WN_SEEALSOPTR WN_PERTPTR WN_ATTRIBUTE WN_VERBGROUP WN_SYNS WN_FREQ WN_FRAMES WN_COORDS WN_RELATIVES WN_HMERONYM WN_HHOLONYM WN_WNGREP WN_OVERVIEW WN_UNKNOWN_MARKER WN_PADJ WN_NPADJ WN_IPADJ WN_VERSION ./wordnet/config.m40100644000175300017530000000340107634740621013056 0ustar mikemikednl $Id$ dnl config.m4 for extension wordnet AC_DEFUN(WORDNET_INC_CHK,[if test -r $i$1/wn.h; then WORDNET_DIR=$i; WORDNET_INCDIR=$i$1]) PHP_ARG_WITH(wordnet, for wordnet support, [ --with-wordnet Include wordnet support]) if test "$PHP_WORDNET" != "no"; then # --with-wordnet -> check with-path SEARCH_PATH="/usr/local/WordNet-1.7.1 /usr/local/wordnet1.7 /usr/local/wordnet1.6 /usr/local/wordnet /usr/local /usr" # you might want to change this if test -r $PHP_WORDNET/; then # path given as parameter WORDNET_DIR=$PHP_WORDNET else # search default path list AC_MSG_CHECKING([for wordnet files in default path]) for i in $SEARCH_PATH ; do WORDNET_INC_CHK(/include) el[]WORDNET_INC_CHK(/include/wn) el[]WORDNET_INC_CHK(/include/wordnet) el[]WORDNET_INC_CHK(/include/wordnet1.6) el[]WORDNET_INC_CHK(/include/wordnet1.7) el[]WORDNET_INC_CHK(/include/WordNet-1.7.1) fi done fi if test -z "$WORDNET_DIR"; then AC_MSG_RESULT([not found]) AC_MSG_ERROR([Please reinstall the wordnet distribution]) fi AC_MSG_RESULT(Wordnet include $WORDNET_INCDIR) # --with-wordnet -> add include path PHP_ADD_INCLUDE($WORDNET_INCDIR) # --with-wordnet -> chech for lib and symbol presence LIBNAME=wn # you may want to change this LIBSYMBOL=wninit # you most likely want to change this PHP_CHECK_LIBRARY($LIBNAME,$LIBSYMBOL, [ PHP_ADD_LIBRARY_WITH_PATH($LIBNAME, $WORDNET_DIR/lib, WORDNET_SHARED_LIBADD) AC_DEFINE(HAVE_WORDNETLIB,1,[ ]) ],[ AC_MSG_ERROR([wrong wordnet lib version or lib not found]) ],[ -L$WORDNET_DIR/lib ]) PHP_SUBST(WORDNET_SHARED_LIBADD) PHP_NEW_EXTENSION(wordnet, php_wordnet.c wordnet.c wordnet_synset.c wordnet_util.c, $ext_shared) fi ./wordnet/install.txt0100644000175300017530000000111407634712536013561 0ustar mikemike This extension offers a PHP interface to the Wordnet 1.7.1 api. There is a known bug when installing in a php with gd compiled. Wordnet does not work in such a php $PHP = the root of your php build like /home/mike/php-4.3.1 cp wordnet.php.tgz $PHP/ext/ cd $PHP/ext/ tar -xvzf wordnet.php.tgz cd .. < might need to delete your existing configure script > ./Buildconf ./Configure --with-wordnet make The build will search for wordnet in the following locations /usr/local/WordNet-1.7.1 /usr/local/wordnet1.7 /usr/local/wordnet1.6 /usr/local/wordnet /usr/local/ /usr/ ./wordnet/php_wordnet.c0100644000175300017530000001633107634744170014055 0ustar mikemike#include "wordnet.h" #include "php_ini.h" #include "php_wordnet.h" /* {{{ proto string wn_morphstr(string word,int pos) is the basic user interface to Morphy. It tries to find the base form (lemma) of the word or collocation origstr in the specified pos . The first call (with origstr specified) returns a string of the first base form found. Subsequent calls requesting base forms of the same string must be made with the first argument of NULL. When no more base forms for origstr can be found, NULL is returned. */ PHP_FUNCTION(wn_morphstr) { zval **sarg,**parg; int pos; char *morph; if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &sarg, &parg) == FAILURE) { WRONG_PARAM_COUNT; } convert_to_string_ex(sarg); convert_to_long_ex(parg); pos = (*parg)->value.lval; if((*sarg)->value.str.len>0){ morph = (*sarg)->value.str.val; } else { morph = 0; } morph = morphstr (morph, pos); if(morph){ RETURN_STRING(morph,1); }else { RETURN_FALSE; } } /* }}} */ /* {{{ proto long wn_is_defined(string,pos) sets a bit for each search type that is valid for searchstr in pos , and returns the resulting unsigned long integer. Each bit number corresponds to a pointer type constant. */ PHP_FUNCTION(wn_is_defined){ zval **parg, **sarg; int pos; unsigned long retv; if (ARG_COUNT(ht) != 2 || zend_get_parameters_ex(2, &sarg,&parg) == FAILURE) { WRONG_PARAM_COUNT; } convert_to_string_ex(sarg); convert_to_long_ex(parg); pos = (*(parg))->value.lval; retv = is_defined(Z_STRVAL_PP(sarg),pos); RETURN_LONG(retv); } /* }}} */ /* {{{ proto long wn_is_wn(string,pos = ALL) is used to find the syntactic categories in the WordNet database that contain one or more senses of searchstr . If pos is not set all syntactic categories are checked. Otherwise, only the part of speech passed is checked */ PHP_FUNCTION(wn_in_wn) { zval **parg, **sarg; int pos; unsigned long retv; int arg_count = ARG_COUNT(ht); if (arg_count <1 || arg_count >2 || zend_get_parameters_ex(arg_count, &sarg,&parg) == FAILURE) { WRONG_PARAM_COUNT; } convert_to_string_ex(sarg); if(arg_count != 2) pos = 0; else { convert_to_long_ex(parg); pos = (*(parg))->value.lval; } retv = in_wn(Z_STRVAL_PP(sarg),pos); RETURN_LONG(retv); } /* }}} */ /* {{{ proto string wn_findtheinfo(string,pos,seachtype,sense) is the primary search algorithm for use with database interface applications. Search results are automatically formatted, and a pointer to the text buffer is returned. */ PHP_FUNCTION(wn_findtheinfo){ zval **args[4]; char *reply; // char dbout[1024]; if (ZEND_NUM_ARGS() != 4 || zend_get_parameters_array_ex(4, args) == FAILURE) { WRONG_PARAM_COUNT; } convert_to_string_ex(args[0]); convert_to_long_ex(args[1]); convert_to_long_ex(args[2]); convert_to_long_ex(args[3]); // snprintf(dbout,1024,"Searching >>\"%s\",%d,%d,%d\n",(*args[0])->value.str.val, // (*args[1])->value.lval,(*args[2])->value.lval, (*args[3])->value.lval); // wn_debug_log(dbout); reply = findtheinfo((*args[0])->value.str.val, (*args[1])->value.lval, (*args[2])->value.lval, (*args[3])->value.lval); if(reply){ // snprintf(dbout,1024,"<<(%d)\"%s\"\n",strlen(reply),reply); // wn_debug_log(dbout); RETVAL_STRING(reply,1); } else { RETVAL_FALSE; } } /* }}} */ /* {{{ proto index wn_getindex(string,int pos) is used to find the index object in the WordNet database that matches string. It applies to string an algorithm that replaces underscores with hyphens, hyphens with underscores, removes hyphens and underscores, and removes periods in an attempt to find a form of the string that is an exact match for an entry in the index file corresponding to pos. */ PHP_FUNCTION(wn_getindex) { zval **parg, **sarg; IndexPtr wn_index; if (ARG_COUNT(ht)!=2 || zend_get_parameters_ex(2, &sarg,&parg) == FAILURE) { WRONG_PARAM_COUNT; } convert_to_string_ex(sarg); convert_to_long_ex(parg); wn_index = getindex(Z_STRVAL_PP(sarg),(*(parg))->value.lval); if(!wn_index){ RETURN_FALSE; } if (object_init(return_value) == FAILURE){ php_error(E_ERROR, "Unable to initialize object"); RETURN_FALSE; } AddPropertyArray(return_value,"ptruse",BuildIntArray(wn_index->ptruse,wn_index->ptruse_cnt)); AddPropertyArray(return_value,"offset",BuildLongArray(wn_index->offset,wn_index->off_cnt)); add_property_string(return_value,"wd",wn_index->wd,1); add_property_long(return_value, "pos", getpos(wn_index->pos)); add_property_long(return_value, "sense_cnt", wn_index->sense_cnt); add_property_long(return_value, "tagged_cnt", wn_index->tagged_cnt); free_index(wn_index); return; } /* }}} */ /* {{{ proto object wn_findtheinfo_ds(string searchstr, int pos, int ptr_type, int sense_num) */ PHP_FUNCTION(wn_findtheinfo_ds){ zval **args[4]; SynsetPtr syn; if (ZEND_NUM_ARGS() != 4 || zend_get_parameters_array_ex(4, args) == FAILURE) { WRONG_PARAM_COUNT; } convert_to_string_ex(args[0]); convert_to_long_ex(args[1]); convert_to_long_ex(args[2]); convert_to_long_ex(args[3]); syn = findtheinfo_ds((*args[0])->value.str.val, (*args[1])->value.lval, (*args[2])->value.lval, (*args[3])->value.lval); if(!syn){ RETURN_FALSE; } BuildSynset(return_value, syn,1); return; } /* }}} */ /* {{{ proto */ PHP_FUNCTION(wn_glosses) { zval **arg; if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg) == FAILURE) { WRONG_PARAM_COUNT; } convert_to_boolean_ex(arg); dflag = (*arg)->value.lval; RETURN_TRUE; } /* }}} */ /* {{{ proto */ PHP_FUNCTION(wn_fileinfo) { zval **arg; if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg) == FAILURE) { WRONG_PARAM_COUNT; } convert_to_boolean_ex(arg); fileinfoflag = (*arg)->value.lval; RETURN_TRUE; } /* }}} */ /* {{{ proto */ PHP_FUNCTION(wn_byteoffset) { zval **arg; if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg) == FAILURE) { WRONG_PARAM_COUNT; } convert_to_boolean_ex(arg); offsetflag = (*arg)->value.lval; RETURN_TRUE; } /* }}} */ /* {{{ proto */ PHP_FUNCTION(wn_senseflag) { zval **arg; if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg) == FAILURE) { WRONG_PARAM_COUNT; } convert_to_boolean_ex(arg); wnsnsflag = (*arg)->value.lval; RETURN_TRUE; } /* }}} */ /* {{{ proto */ PHP_FUNCTION(wn_contexthelp) { zval **parg, **sarg; int pos,search; if (ZEND_NUM_ARGS() !=2 || zend_get_parameters_ex(2, &parg,&sarg) == FAILURE) { WRONG_PARAM_COUNT; } convert_to_long_ex(parg); convert_to_long_ex(sarg); pos = (*(parg))->value.lval; search = (*(sarg))->value.lval; RETURN_STRING(helptext[pos][search],1); } /* }}} */ /* {{{ proto PHP_FUNCTION(wn_wninit) { wninit(); RETURN_TRUE; } PHP_FUNCTION(wn_morphinit) { morphinit(); RETURN_TRUE; } PHP_FUNCTION(wn_wnclose) { wnclose(); RETURN_TRUE; } PHP_FUNCTION(wn_morphclose) { morphclose(); RETURN_TRUE; } }}} */ /* * Local variables: * tab-width: 4 * c-basic-offset: 4 * End: */ ./wordnet/php_wordnet.h0100644000175300017530000000567107634744167014075 0ustar mikemike/* +----------------------------------------------------------------------+ | PHP version 4.0 | +----------------------------------------------------------------------+ | Copyright (c) 1997, 1998, 1999, 2000 The PHP Group | +----------------------------------------------------------------------+ | This source file is subject to version 2.02 of the PHP license, | | that is bundled with this package in the file LICENSE, and is | | available at through the world-wide-web at | | http://www.php.net/license/2_02.txt. | | If you did not receive a copy of the PHP license and are unable to | | obtain it through the world-wide-web, please send a note to | | license@php.net so we can mail you a copy immediately. | +----------------------------------------------------------------------+ | Authors: | | | +----------------------------------------------------------------------+ */ #ifndef PHP_WORDNET_H #define PHP_WORDNET_H extern zend_module_entry wordnet_module_entry; #define phpext_wordnet_ptr &wordnet_module_entry #ifdef PHP_WIN32 #define PHP_WORDNET_API __declspec(dllexport) #else #define PHP_WORDNET_API #endif PHP_MINIT_FUNCTION(wordnet); PHP_MSHUTDOWN_FUNCTION(wordnet); PHP_RINIT_FUNCTION(wordnet); PHP_RSHUTDOWN_FUNCTION(wordnet); PHP_MINFO_FUNCTION(wordnet); //PHP_FUNCTION(wn_wninit); //PHP_FUNCTION(wn_morphinit); //PHP_FUNCTION(wn_wnclose); //PHP_FUNCTION(wn_morphclose); PHP_FUNCTION(wn_getindex); PHP_FUNCTION(wn_is_defined); PHP_FUNCTION(wn_in_wn); PHP_FUNCTION(wn_morphstr); PHP_FUNCTION(wn_findtheinfo); PHP_FUNCTION(wn_findtheinfo_ds); PHP_FUNCTION(wn_fileinfo); PHP_FUNCTION(wn_byteoffset); PHP_FUNCTION(wn_glosses); PHP_FUNCTION(wn_senseflag); PHP_FUNCTION(wn_contexthelp); /* for synset objects */ PHP_FUNCTION(wn_nextss); PHP_FUNCTION(wn_nextform); PHP_FUNCTION(wn_ptrlist); /* Declare any global variables you may need between the BEGIN and END macros here: ZEND_BEGIN_MODULE_GLOBALS(wordnet) int global_variable; ZEND_END_MODULE_GLOBALS(wordnet) */ /* In every function that needs to use variables in php_wordnet_globals, do call WORDNETLS_FETCH(); after declaring other variables used by that function, and always refer to them as WORDNETG(variable). You are encouraged to rename these macros something shorter, see examples in any other php module directory. */ #ifdef ZTS #define WORDNETG(v) (wordnet_globals->v) #define WORDNETLS_FETCH() php_wordnet_globals *wordnet_globals = ts_resource(wordnet_globals_id) #else #define WORDNETG(v) (wordnet_globals.v) #define WORDNETLS_FETCH() #endif #endif /* PHP_WORDNET_H */ /* * Local variables: * tab-width: 4 * c-basic-offset: 4 * End: */ ./wordnet/wordnet.c0100644000175300017530000002117007634744171013204 0ustar mikemike/* +----------------------------------------------------------------------+ | PHP version 4.0 | +----------------------------------------------------------------------+ | Copyright (c) 1997, 1998, 1999, 2000 Mike McDonald, The PHP Group | +----------------------------------------------------------------------+ | This source file is subject to version 2.02 of the PHP license, | | that is bundled with this package in the file LICENSE, and is | | available at through the world-wide-web at | | http://www.php.net/license/2_02.txt. | | If you did not receive a copy of the PHP license and are unable to | | obtain it through the world-wide-web, please send a note to | | license@php.net so we can mail you a copy immediately. | +----------------------------------------------------------------------+ | Authors: | | Mike McDonald | / Description: | | Wordnet 1.6 Module for PHP. | +----------------------------------------------------------------------+ The Following objects will be returned. class index{ string wd -- word long pos -- part of spech long sense_cnt -- sense count long tagged_cnt -- number of tags array offset -- array of longs array ptruse -- array of longs } class synset{ long hereiam long sstype long fnum string pos long whichword string defn array words -- array of strings array lexid -- array of longs array wnsns -- array of longs array ptrtype -- array of longs array ptroff -- array of longs array ppos -- array of longs array pto -- array of longs array pfrm -- array of longs == following 2 only exist in verbs.. array frmid -- array of longs array frmto -- array of longs == following 2 may or maynot exist. string headword string headsense == following member functions exist for syset objects synset nextss() synset ptrlist() synset nextform() } Following functions are offered to php string wn_morphstr(string word,long pos) long wn_is_defined(string word,long pos) long wn_in_wn(string word,long pos = WN_ALL_POS) string wn_findtheinfo(string word,long pos,long seachtype,long sense) index wn_getindex(string word,long pos) synset wn_findtheinfo_ds(string searchstr, long pos, long ptr_type, long sense_num) */ #include "wordnet.h" #include "php_ini.h" #include "php_wordnet.h" /* Every user visible function must have an entry in wordnet_functions[]. */ FILE *wn_log; function_entry wordnet_functions[] = { // PHP_FE(wn_wninit, NULL) // PHP_FE(wn_morphinit, NULL) // PHP_FE(wn_wnclose, NULL) // PHP_FE(wn_morphclose, NULL) PHP_FE(wn_getindex, NULL) PHP_FE(wn_findtheinfo, NULL) PHP_FE(wn_findtheinfo_ds, NULL) PHP_FE(wn_is_defined, NULL) PHP_FE(wn_in_wn, NULL) PHP_FE(wn_glosses, NULL) PHP_FE(wn_fileinfo, NULL) PHP_FE(wn_byteoffset, NULL) PHP_FE(wn_senseflag, NULL) PHP_FE(wn_contexthelp, NULL) PHP_FE(wn_morphstr, NULL) {NULL, NULL, NULL} /* Must be the last line in wordnet_functions[] */ }; zend_module_entry wordnet_module_entry = { STANDARD_MODULE_HEADER, "wordnet", wordnet_functions, PHP_MINIT(wordnet), PHP_MSHUTDOWN(wordnet), PHP_RINIT(wordnet), PHP_RSHUTDOWN(wordnet), PHP_MINFO(wordnet), NO_VERSION_YET, STANDARD_MODULE_PROPERTIES }; #ifdef COMPILE_DL_WORDNET ZEND_GET_MODULE(wordnet) #endif PHP_MINIT_FUNCTION(wordnet) { /* WordNet part of speech stuff */ REGISTER_LONG_CONSTANT("WN_ALL_POS", ALL_POS, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_NOUN", NOUN, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_VERB", VERB, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_ADJECTIVE", ADJ, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_ADVERB", ADV, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_SATELLITE", SATELLITE, CONST_CS | CONST_PERSISTENT); /* Pointer type and search type */ /* pointers */ REGISTER_LONG_CONSTANT("WN_ALLSENSES", ALLSENSES, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_ANTPTR", ANTPTR, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_HYPERPTR", HYPERPTR, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_HYPOPTR", HYPOPTR, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_ENTAILPTR", ENTAILPTR, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_SIMPTR", SIMPTR, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_ISMEMBERPTR", ISMEMBERPTR, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_ISSTUFFPTR", ISSTUFFPTR, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_ISPARTPTR", ISPARTPTR, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_HASMEMBERPTR", HASMEMBERPTR, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_HASSTUFFPTR", HASSTUFFPTR, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_HASPARTPTR", HASPARTPTR, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_MERONYM", MERONYM, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_HOLONYM", HOLONYM, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_CAUSETO", CAUSETO, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_PPLPTR", PPLPTR, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_SEEALSOPTR", SEEALSOPTR, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_PERTPTR", PERTPTR, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_ATTRIBUTE", ATTRIBUTE, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_VERBGROUP", VERBGROUP, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_SYNS", SYNS, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_FREQ", FREQ, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_FRAMES", FRAMES, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_COORDS", COORDS, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_RELATIVES", RELATIVES, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_HMERONYM", HMERONYM, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_HHOLONYM", HHOLONYM, CONST_CS | CONST_PERSISTENT); // REGISTER_LONG_CONSTANT("WN_WNESCORT", WNESCORT, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_WNGREP", WNGREP, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_OVERVIEW", OVERVIEW, CONST_CS | CONST_PERSISTENT); /* Adjective markers */ REGISTER_LONG_CONSTANT("WN_UNKNOWN_MARKER", UNKNOWN_MARKER, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_PADJ", PADJ, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_NPADJ", NPADJ, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("WN_IPADJ", IPADJ, CONST_CS | CONST_PERSISTENT); REGISTER_STRING_CONSTANT("WN_VERSION", wnrelease, CONST_CS | CONST_PERSISTENT); RegisterSynset(module_number); /* start up wordnet and morphy */ // wn_log = fopen("/php/php.log","w"); wninit(); return SUCCESS; } PHP_MSHUTDOWN_FUNCTION(wordnet) { wnclose(); // fclose(wn_log); return SUCCESS; } /* Remove if there's nothing to do at request start */ PHP_RINIT_FUNCTION(wordnet) { return SUCCESS; } /* Remove if there's nothing to do at request end */ PHP_RSHUTDOWN_FUNCTION(wordnet) { return SUCCESS; } PHP_MINFO_FUNCTION(wordnet) { char searchdir[256]; char *env; php_info_print_table_start(); php_info_print_table_header(2, "wordnet support", "enabled"); php_info_print_table_row(2, "Wordnet Version", wnrelease); if((env=getenv("WNHOME"))==NULL){ strcpy(searchdir, DEFAULTPATH); } else { sprintf(searchdir, "%s%s",env,DICTDIR); } php_info_print_table_row(2, "Search directory", searchdir); php_info_print_table_end(); } /* * Local variables: * tab-width: 4 * c-basic-offset: 4 * End: */ ./wordnet/wordnet.h0100644000175300017530000000071707634744171013215 0ustar mikemike#include "php.h" #include "zend_API.h" #define UNIX #include #include #include #include zval *BuildIntArray(int *array,int count); zval *BuildLongArray(long *array,int count); zval *BuildStringArray(char **array,int count); void AddPropertyArray(zval *obj,char *name,zval *array); void BuildSynset(zval *tmp, SynsetPtr synptr,int set); void RegisterSynset(int module_number); void wnclose(void); //void morphclose(void); ./wordnet/wordnet_synset.c0100644000175300017530000001066407634744171014617 0ustar mikemike#include "wordnet.h" #include "php_ini.h" #include "php_wordnet.h" static int le_synset; // resource for list of synsets, static zend_class_entry *synset_class_entry_ptr; // synset object methods static zend_function_entry php_synset_class_functions[] = { PHP_FALIAS(nextss, wn_nextss, NULL) PHP_FALIAS(nextform, wn_nextform, NULL) PHP_FALIAS(ptrlist, wn_ptrlist, NULL) {NULL, NULL, NULL} }; // id is the le_synset php resourse id. // set is what type of set.. // if it's a 1 it's a list and we call free_syns // if it's a 2 it's a single synset and we call free_synset // if it's a 0 it's part of a list and we don't call anything. // synptr is a pointer to the actual synset. typedef struct { int id; int set; SynsetPtr synptr; } php_synset; static void _synset_dtor(zend_rsrc_list_entry *rsrc) { php_synset *synset = (php_synset *)rsrc->ptr; if(synset->set == 1) free_syns(synset->synptr); else if(synset->set == 2) free_synset(synset->synptr); efree(synset); } /* Register the class synset and our resource list. */ void RegisterSynset(int module_number){ zend_class_entry synset_class_entry; /* register synset class */ le_synset = zend_register_list_destructors_ex(_synset_dtor, NULL, "synset", module_number); INIT_CLASS_ENTRY(synset_class_entry, "synset", php_synset_class_functions); synset_class_entry_ptr = zend_register_internal_class(&synset_class_entry); } /* this creates a php object and files it with the * values for a synset. the parameters are * tmp is the zval * to fill * synptr is the synset to be copied * set is is for how we destory this synset.(See the note on php_synset) */ void BuildSynset(zval *tmp, SynsetPtr synptr,int set){ php_synset *synp; synp = emalloc(sizeof(php_synset)); synp->set = set; synp->id = zend_list_insert(synp,le_synset); synp->synptr = synptr; object_init_ex(tmp, synset_class_entry_ptr); add_property_resource(tmp, "handle", synp->id); zend_list_addref(synp->id); AddPropertyArray(tmp,"words", BuildStringArray(synptr->words,synptr->wcount)); AddPropertyArray(tmp,"lexid", BuildIntArray(synptr->lexid,synptr->wcount)); AddPropertyArray(tmp,"wnsns", BuildIntArray(synptr->wnsns,synptr->wcount)); AddPropertyArray(tmp,"ptrtype", BuildIntArray(synptr->ptrtyp,synptr->ptrcount)); AddPropertyArray(tmp,"ptroff", BuildLongArray(synptr->ptroff,synptr->ptrcount)); AddPropertyArray(tmp,"ppos", BuildIntArray(synptr->ppos,synptr->ptrcount)); AddPropertyArray(tmp,"pto", BuildIntArray(synptr->pto,synptr->ptrcount)); AddPropertyArray(tmp,"pfrm", BuildIntArray(synptr->pfrm,synptr->ptrcount)); if(getpos(synptr->pos)==VERB){ AddPropertyArray(tmp,"frmid", BuildIntArray(synptr->frmid,synptr->fcount)); AddPropertyArray(tmp,"frmto", BuildIntArray(synptr->frmto,synptr->fcount)); } add_property_string(tmp,"defn",synptr->defn,1); add_property_long(tmp, "hereiam", synptr->hereiam); add_property_long(tmp, "sstype", synptr->sstype); add_property_long(tmp, "fnum", synptr->fnum); add_property_long(tmp, "whichword", synptr->whichword); add_property_long(tmp, "pos", getpos(synptr->pos)); if(synptr->searchtype){ add_property_long(tmp, "searchtype", synptr->searchtype); } if(synptr->headword && strlen(synptr->headword)>0){ add_property_string(tmp, "headword", synptr->headword,1); } if(synptr->headsense){ add_property_long(tmp, "headsense", synptr->headsense); } }; /* Fetch the php_synset object associated with this function call. * */ #define SYN_FINDME() zval **tmp, *myself; \ php_synset *syn; \ myself = getThis(); \ if (zend_hash_find(myself->value.obj.properties, "handle", \ sizeof("handle"), (void **)&tmp) == FAILURE) { \ php_error(E_WARNING, "unable to find my handle property"); \ RETURN_FALSE; \ } \ ZEND_FETCH_RESOURCE(syn,php_synset *,tmp,-1, "synset", le_synset) /* * These are the synset member functions. */ PHP_FUNCTION(wn_nextss) { SYN_FINDME(); if(syn->synptr->nextss) { BuildSynset(return_value,syn->synptr->nextss,0); } else { RETURN_FALSE; } } PHP_FUNCTION(wn_nextform) { SYN_FINDME(); if(syn->synptr->nextform) { BuildSynset(return_value,syn->synptr->nextform,0); } else { RETURN_FALSE; } } PHP_FUNCTION(wn_ptrlist) { SYN_FINDME(); if(syn->synptr->ptrlist) { BuildSynset(return_value,syn->synptr->ptrlist,0); } else { RETURN_FALSE; } } ./wordnet/wordnet_util.c0100644000175300017530000000410007634744172014234 0ustar mikemike#include "wordnet.h" /* * closes wordnet's database files.. */ void wnclose(void) { int i; if (OpenDB) { for (i = 1; i < NUMPARTS + 1; i++) { if (datafps[i] != NULL) fclose(datafps[i]); datafps[i] = NULL; if (indexfps[i] != NULL) fclose(indexfps[i]); indexfps[i] = NULL; } if (sensefp != NULL) { fclose(sensefp); sensefp = NULL; } // if (cousinfp != NULL) { // fclose(cousinfp); cousinfp = NULL; // } // if (cousinexcfp != NULL) { // fclose(cousinexcfp); cousinexcfp = NULL; // } if (vsentfilefp != NULL) { fclose(vsentfilefp); vsentfilefp = NULL; } if (vidxfilefp != NULL) { fclose(vidxfilefp); vidxfilefp = NULL; } OpenDB = 0; } } /* add an array to an object as a property */ void AddPropertyArray(zval *obj,char *name,zval *array){ zend_hash_update(obj->value.obj.properties, name, strlen(name)+1, (void *) &array, sizeof(zval *), NULL); }; /* Macro (overkill??) to create a helper function to build a * php array from a C array. * * the macros will create the functions. * zval *BuildStringArray(char **array,int count); * zval *BuildLongArray(long *array,int count); * zval *BuildIntArray(int *array,int count); */ #define add_index_mystring(array,key,value) add_index_string(array,key,value,1) #define add_next_index_mystring(array,value) add_next_index_string(array,value,1) #define DeclareArrayBuilder(name,ctype,atype,ztype) \ zval *Build##name##Array(atype array,int count){ \ zval *tmp; \ int i;\ atype ptr; \ ctype c; \ MAKE_STD_ZVAL(tmp); \ if(array_init(tmp) == FAILURE) { \ php_error(E_ERROR, "Unable to initialize array"); \ } else { \ if(count ==0){ \ ptr = array; \ while(ptr){ \ c = *ptr; \ add_next_index_##ztype (tmp,c); \ ptr++; \ } \ } else { \ for(i = 0;i < count ;i++){ \ add_index_##ztype (tmp,i,array[i]); \ } \ } \ } \ return tmp; \ } DeclareArrayBuilder(Int,int,int *,long) DeclareArrayBuilder(Long,long,long *,long) DeclareArrayBuilder(String,char *,char **,mystring)