Returning the data from the function

function curl($url) { $ch = curl_init();

// Initialising cURL

curl_setopt($ch, CURLOPT_URL, $url); // Setting cURL's URL option with the $url variable passed into the function curl_setopt($ch, CURLOPT_RETURNTRANSFER, TRUE); // Setting cURL's option to return the webpage data $data = curl_exec($ch); // Executing the cURL request and assigning the returned data to the $data variable curl_close($ch); // Closing cURL

return $data;

// Returning the data from the function

}

function cekKamus($kata){ // cari di database $sql = "SELECT * from tb_katadasar where katadasar ='$kata' LIMIT 1"; //echo $sql.'
'; $result = mysql_query($sql) or die(mysql_error()); if(mysql_num_rows($result)==1){ return true; // True jika ada }else{ return false; // jika tidak ada FALSE

} }

// Hapus Inflection Suffixes ("-lah", "-kah", "-ku", "-mu", atau "-nya") function Del_Inflection_Suffixes($kata){ $kataAsal = $kata; if(eregi('([km]u|nya|[kl]ah|pun)$',$kata)){ // Cek Inflection Suffixes $__kata = eregi_replace('([km]u|nya|[kl]ah|pun)$','',$kata); if(eregi('([klt]ah|pun)$',$kata)){ // Jika berupa particles ("-lah", "-kah", "-tah" atau "pun") if(eregi('([km]u|nya)$',$__kata)){ // Hapus Possesive Pronouns ("-ku", "-mu", atau "-nya") $__kata__ = eregi_replace('([km]u|nya)$','',$__kata); return $__kata__; } } return $__kata; } return $kataAsal; }

function Cek_Rule_Precedence($kata){ if(eregi('^(be)[[:alpha:]]+(lah|an)$',$kata)){ // be- dan -i return true; } if(eregi('^(di|([mpt]e))[[:alpha:]]+(i)$',$kata)){ // di- dan -an

return true; } return false; }

// Cek Prefix Disallowed Sufixes (Kombinasi Awalan dan Akhiran yang tidak diizinkan) function Cek_Prefix_Disallowed_Sufixes($kata){ if(eregi('^(be)[[:alpha:]]+(i)$',$kata)){ // be- dan -i return true; } if(eregi('^(di)[[:alpha:]]+(an)$',$kata)){ // di- dan -an return true;

} if(eregi('^(ke)[[:alpha:]]+(i|kan)$',$kata)){ // ke- dan -i,-kan return true; } if(eregi('^(me)[[:alpha:]]+(an)$',$kata)){ // me- dan -an return true; } if(eregi('^(se)[[:alpha:]]+(i|kan)$',$kata)){ // se- dan -i,-kan return true; } return false; }

// Hapus Derivation Suffixes ("-i", "-an" atau "-kan") function Del_Derivation_Suffixes($kata){ $kataAsal = $kata; if(preg_match('/(kan)$/',$kata)){ // Cek Suffixes $__kata = preg_replace('/(kan)$/','',$kata); if(cekKamus($__kata)){ // Cek Kamus return $__kata; } } if(preg_match('/(an|i)$/',$kata)){ // cek -kan $__kata__ = preg_replace('/(an|i)$/','',$kata); if(cekKamus($__kata__)){ // Cek Kamus return $__kata__; } } if(Cek_Prefix_Disallowed_Sufixes($kata)){ return $kataAsal; } return $kataAsal; }

// Hapus Derivation Prefix ("di-", "ke-", "se-", "te-", "be-", "me-", atau "pe-") function Del_Derivation_Prefix($kata){ $kataAsal = $kata;

/* ------ Tentukan Tipe Awalan ------------*/ if(preg_match('/^(di|[ks]e)\S{1,}/',$kata)){ // Jika di-,ke-,se$__kata = preg_replace('/^(di|[ks]e)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } if(preg_match('/^([âiueo])e\\1[aiueo]\S{1,}/i',$kata)){ // aturan 37 $__kata = preg_replace('/^([âiueo])e/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } if(preg_match('/^([tmbp]e)\S{1,}/',$kata)){ //Jika awalannya adalah "te-", "me-", "be-", atau "pe" /*------------ Awalan "be-", ---------------------------------------------*/ if(preg_match('/^(be)\S{1,}/',$kata)){ // Jika awalan "be-", if(preg_match('/^(ber)[aiueo]\S{1,}/',$kata)){ // aturan 1.

$__kata = preg_replace('/^(ber)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } $__kata = preg_replace('/^(ber)/','r',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(ber)[âiueor][[:alpha:]](?!er)\S{1,}/',$kata)){ //aturan 2. $__kata = preg_replace('/^(ber)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){

return $__kata__; } }

if(preg_match('/^(ber)[âiueor][[:alpha:]]er[aiueo]\S{1,}/',$kata)){ //aturan 3. $__kata = preg_replace('/^(ber)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^belajar\S{0,}/',$kata)){ //aturan 4. $__kata = preg_replace('/^(bel)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(be)[âiueolr]er[âiueo]\S{1,}/',$kata)){ //aturan 5. $__kata = preg_replace('/^(be)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } } /*------------end "be-", ---------------------------------------------*/ /*------------ Awalan "te-", ---------------------------------------------*/ if(preg_match('/^(te)\S{1,}/',$kata)){ // Jika awalan "te-",

if(preg_match('/^(terr)\S{1,}/',$kata)){ return $kata; } if(preg_match('/^(ter)[aiueo]\S{1,}/',$kata)){ // aturan 6. $__kata = preg_replace('/^(ter)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata);

if(cekKamus($__kata__)){ return $__kata__; } $__kata = preg_replace('/^(ter)/','r',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(ter)[âiueor]er[aiueo]\S{1,}/',$kata)){ // aturan 7. $__kata = preg_replace('/^(ter)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } if(preg_match('/^(ter)[âiueor](?!er)\S{1,}/',$kata)){ // aturan 8. $__kata = preg_replace('/^(ter)/','',$kata);

if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } if(preg_match('/^(te)[âiueor]er[aiueo]\S{1,}/',$kata)){ // aturan 9. $__kata = preg_replace('/^(te)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(ter)[âiueor]er[âiueo]\S{1,}/',$kata)){ // aturan 35 belum bisa $__kata = preg_replace('/^(ter)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } } /*------------end "te-", ---------------------------------------------*/ /*------------ Awalan "me-", ---------------------------------------------*/ if(preg_match('/^(me)\S{1,}/',$kata)){ // Jika awalan "me-",

if(preg_match('/^(me)[lrwyv][aiueo]/',$kata)){ // aturan 10 $__kata = preg_replace('/^(me)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(mem)[bfvp]\S{1,}/',$kata)){ // aturan 11. $__kata = preg_replace('/^(mem)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik

} $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } /*if(preg_match('/^(mempe)\S{1,}/',$kata)){ // aturan 12 $__kata = preg_replace('/^(mem)/','pe',$kata);

if(cekKamus($__kata)){

return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }*/ if (preg_match('/^(mem)((r[aiueo])|[aiueo])\S{1,}/', $kata)){//aturan 13 $__kata = preg_replace('/^(mem)/','m',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){

return $__kata__; } $__kata = preg_replace('/^(mem)/','p',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(men)[cdjszt]\S{1,}/',$kata)){ // aturan 14. $__kata = preg_replace('/^(men)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if (preg_match('/^(men)[aiueo]\S{1,}/',$kata)){//aturan 15 $__kata = preg_replace('/^(men)/','n',$kata);

if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } $__kata = preg_replace('/^(men)/','t',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(meng)[ghqk]\S{1,}/',$kata)){ // aturan 16. $__kata = preg_replace('/^(meng)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__;

} }

if(preg_match('/^(meng)[aiueo]\S{1,}/',$kata)){ // aturan 17 $__kata = preg_replace('/^(meng)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } $__kata = preg_replace('/^(meng)/','k',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } $__kata = preg_replace('/^(menge)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata);

if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(meny)[aiueo]\S{1,}/',$kata)){ // aturan 18. $__kata = preg_replace('/^(meny)/','s',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } $__kata = preg_replace('/^(me)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } } /*------------end "me-", ---------------------------------------------*/

/*------------ Awalan "pe-", ---------------------------------------------*/ if(preg_match('/^(pe)\S{1,}/',$kata)){ // Jika awalan "pe-",

if(preg_match('/^(pe)[wy]\S{1,}/',$kata)){ // aturan 20. $__kata = preg_replace('/^(pe)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(per)[aiueo]\S{1,}/',$kata)){ // aturan 21 $__kata = preg_replace('/^(per)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } $__kata = preg_replace('/^(per)/','r',$kata);

if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } if(preg_match('/^(per)[âiueor][[:alpha:]](?!er)\S{1,}/',$kata)){ // aturan 23 $__kata = preg_replace('/^(per)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(per)[âiueor][[:alpha:]](er)[aiueo]\S{1,}/',$kata)){ // aturan 24 $__kata = preg_replace('/^(per)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(pem)[bfv]\S{1,}/',$kata)){ // aturan 25 $__kata = preg_replace('/^(pem)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(pem)(r[aiueo]|[aiueo])\S{1,}/',$kata)){ // aturan 26 $__kata = preg_replace('/^(pem)/','m',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } $__kata = preg_replace('/^(pem)/','p',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(pen)[cdjzt]\S{1,}/',$kata)){ // aturan 27 $__kata = preg_replace('/^(pen)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; }

}

if(preg_match('/^(pen)[aiueo]\S{1,}/',$kata)){ // aturan 28 $__kata = preg_replace('/^(pen)/','n',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } $__kata = preg_replace('/^(pen)/','t',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(peng)[âiueo]\S{1,}/',$kata)){ // aturan 29 $__kata = preg_replace('/^(peng)/','',$kata);

if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(peng)[aiueo]\S{1,}/',$kata)){ // aturan 30 $__kata = preg_replace('/^(peng)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } $__kata = preg_replace('/^(peng)/','k',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } $__kata = preg_replace('/^(penge)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(peny)[aiueo]\S{1,}/',$kata)){ // aturan 31 $__kata = preg_replace('/^(peny)/','s',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; }

$__kata = preg_replace('/^(pe)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(pel)[aiueo]\S{1,}/',$kata)){ // aturan 32 $__kata = preg_replace('/^(pel)/','l',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if (preg_match('/^(pelajar)\S{0,}/',$kata)){ $__kata = preg_replace('/^(pel)/','',$kata);

if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(pe)[^rwylmn]er[aiueo]\S{1,}/',$kata)){ // aturan 33 $__kata = preg_replace('/^(pe)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(pe)[^rwylmn](?!er)\S{1,}/',$kata)){ // aturan 34 $__kata = preg_replace('/^(pe)/','',$kata); if(cekKamus($__kata)){

return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } }

if(preg_match('/^(pe)[âiueor]er[âiueo]\S{1,}/',$kata)){ // aturan 36 $__kata = preg_replace('/^(pe)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } } } /*------------end "pe-", ---------------------------------------------*/ /*------------ Awalan "memper-", ---------------------------------------------*/ if(preg_match('/^(memper)\S{1,}/',$kata)){

$__kata = preg_replace('/^(memper)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } //*-- Cek luluh -r ---------$__kata = preg_replace('/^(memper)/','r',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } /*------------end "memper-", ---------------------------------------------*/ /*------------ Awalan "mempel-", ---------------------------------------------*/ if(preg_match('/^(mempel)\S{1,}/',$kata)){ $__kata = preg_replace('/^(mempel)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik }

$__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } //*-- Cek luluh -r ---------$__kata = preg_replace('/^(mempel)/','l',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } /*------------end "mempel-", ---------------------------------------------*/ /*------------awalan "memter-", ---------------------------------------------*/ if(preg_match('/^(menter)\S{1,}/',$kata)){ $__kata = preg_replace('/^(menter)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; }

//*-- Cek luluh -r ---------$__kata = preg_replace('/^(menter)/','r',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } /*------------end "memter-", ---------------------------------------------*/ /*------------awalan "member-", ---------------------------------------------*/ if(preg_match('/^(member)\S{1,}/',$kata)){ $__kata = preg_replace('/^(member)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } //*-- Cek luluh -r ---------$__kata = preg_replace('/^(member)/','r',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik

} $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } /*------------end member-", ---------------------------------------------*/ /*------------awalan "diper-", ---------------------------------------------*/ if(preg_match('/^(diper)\S{1,}/',$kata)){ $__kata = preg_replace('/^(diper)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } /*-- Cek luluh -r ----------*/ $__kata = preg_replace('/^(diper)','r',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__;

} } /*------------end "diper-", ---------------------------------------------*/ /*------------awalan "diter-", ---------------------------------------------*/ if(preg_match('/^(diter)\S{1,}/',$kata)){ $__kata = preg_replace('/^(diter)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } /*-- Cek luluh -r ----------*/ $__kata = preg_replace('/^(diter)','r',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } /*------------end "diter-", ---------------------------------------------*/ /*------------awalan "dipel-", ---------------------------------------------*/

if(preg_match('/^(dipel)\S{1,}/',$kata)){ $__kata = preg_replace('/^(dipel)/','l',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } /*-- Cek luluh -l----------*/ $__kata = preg_replace('/^(dipel)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } /*------------end dipel-", ---------------------------------------------*/ /*------------kata "terpelajar"(kasus khusus), ---------------------------------------------*/ if(preg_match('/terpelajar/',$kata)){ $__kata = preg_replace('/terpel/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik

} $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } /*------------end "terpelajar"-", ---------------------------------------------*/ /*------------kata seseorang(kasus khusus), ---------------------------------------------*/ if(preg_match('/seseorang/',$kata)){ $__kata = preg_replace('/^(sese)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } } /*------------end seseorang-", ---------------------------------------------*/ /*------------awalan "diber-"---------------------------------------------*/ if(preg_match('/^(diber)\S{1,}/',$kata)){ $__kata = preg_replace('/^(diber)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; }

/*-- Cek luluh -l----------*/ $__kata = preg_replace('/^(diber)/','r',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } /*------------end "diber-"---------------------------------------------*/ /*------------awalan "keber-"---------------------------------------------*/ if(preg_match('/^(keber)\S{1,}/',$kata)){ $__kata = preg_replace('/^(keber)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } /*-- Cek luluh -l----------*/ $__kata = preg_replace('/^(keber)/','r',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik

} $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } /*------------end "keber-"---------------------------------------------*/ /*------------awalan "keter-"---------------------------------------------*/ if(preg_match('/^(keter)\S{1,}/',$kata)){ $__kata = preg_replace('/^(keter)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } /*-- Cek luluh -l----------*/ $__kata = preg_replace('/^(keter)/','r',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__;

} } /*------------end "keter-"---------------------------------------------*/ /*------------awalan "berke-"---------------------------------------------*/ if(preg_match('/^(berke)\S{1,}/',$kata)){ $__kata = preg_replace('/^(berke)/','',$kata); if(cekKamus($__kata)){ return $__kata; // Jika ada balik } $__kata__ = Del_Derivation_Suffixes($__kata); if(cekKamus($__kata__)){ return $__kata__; } } /*------------end "berke-"---------------------------------------------*/ /* --- Cek Ada Tidaknya Prefik/Awalan ("di-", "ke-", "se-", "te-", "be-", "me-", atau "pe-") ------*/ if(preg_match('/^(di|[kstbmp]e)\S{1,}/',$kata) == FALSE){ return $kataAsal; }

return $kataAsal; }

function Enhanced_CS($kata){ $dbServer = "localhost";

$dbUser = "root"; $dbPass = ""; $dbKoneksi = mysql_connect($dbServer, $dbUser, $dbPass); $dbName = "stbi"; mysql_select_db($dbName);

$kataAsal = $kata;

/* 1. Cek Kata di Kamus jika Ada SELESAI */ if(cekKamus($kata)){ // Cek Kamus return $kata; // Jika Ada kembalikan } /* 2. Buang Infection suffixes (\-lah", \-kah", \-ku", \-mu", atau \-nya") */ $kata = Del_Inflection_Suffixes($kata);

/* 3. Buang Derivation suffix (\-i" or \-an") */ $kata = Del_Derivation_Suffixes($kata);

/* 4. Buang Derivation prefix */ $kata = Del_Derivation_Prefix($kata);

return $kata; }

function porterstemmer($word){

$dbServer = "localhost"; $dbUser = "root"; $dbPass = ""; $dbKoneksi = mysql_connect($dbServer, $dbUser, $dbPass); $dbName = "stbi"; mysql_select_db($dbName);

//STEP 1 (Cek Kamus partikel & partikel berprefiks) $partikel = mysql_query("SELECT * FROM dsr_partikel WHERE name ='$word'"); if(mysql_num_rows($partikel)==1){ //langsung tulis $dasar =$word; echo $dasar; exit; }else { $partikel_berprefiks=mysql_query("SELECT * FROM dsr_partikel_prefiks WHERE name='$word'"); if(mysql_num_rows($partikel_berprefiks)==1 && strlen($word) > 4){ //hapus prefiks if(substr($word,0,4)=="meng" or substr($word,0,4)=="peng"){ echo substr($word,4);

}else if(substr($word,0,4)=="meny" or substr($word,0,4)=="peny"){ $dasar =substr($word,4); echo "s".$dasar; }else if(substr($word,0,3)=="mel" or substr($word,0,3)=="mer" or substr($word,0,3)=="mew" or substr($word,0,3)=="mey"){ echo substr($word,2); }else if(substr($word,0,2)=="di"){ echo substr($word,2); }else if(substr($word,0,3)=="mem" or substr($word,0,3)=="pem"){ if(substr($word,3,1)=="a" or substr($word,3,1)=="i" or substr($word,3,1)=="u" or substr($word,3,1)=="e" or substr($word,3,1)=="o"){ $dasar =substr($word,3); echo "p".$dasar; }else{ $dasar =substr($word,3); echo $dasar;} }else if(substr($word,0,3 == "pel")){ $dasar =substr($word,4); echo $dasar; } else if(substr($word,0,3)=="men" or substr($word,0,3)=="pen" ){ $dasar =substr($word,3); echo "t".$dasar; } exit; } else{

//hapus partikel if((substr($word, -3) == 'kah' )||( substr($word, -3) == 'lah' )||( substr($word, -3) == 'pun' )||( substr($word, -3) == 'tah' )){ $word2 = substr($word, 0, -3);} else{ $word2 = $word;

} echo "Penghapusan partikel = ".$word2."
"; } } //STEP 2 (Cek Kamus milik & milik berprefiks) $milik = mysql_query("SELECT * FROM dsr_milik WHERE name='$word2'"); if(mysql_num_rows($milik)==1){ //langsung tulis $dasar =$word2; echo $dasar; exit; }else { $milik_berprefiks = mysql_query("SELECT * FROM dsr_milik_prefiks WHERE name='$word2'"); if(mysql_num_rows($milik_berprefiks)==1 && strlen($word2) > 4){ //hapus prefiks if(substr($word2,0,4)=="meng" or substr($word2,0,4)=="peng"){ echo substr($word2,4); }else if(substr($word2,0,4)=="meny" or substr($word2,0,4)=="peny"){ $dasar =substr($word2,4);

echo "s".$dasar; }else if(substr($word2,0,3)=="mel" or substr($word2,0,3)=="mew" or substr($word2,0,3)=="mer" or substr($word2,0,3)=="mey"){ echo substr($word2,2); }else if(substr($word2,0,2)=="di"){ echo substr($word2,2); }else if(substr($word2,0,3)=="mem" or substr($word2,0,3)=="pem" ){ if(substr($word2,3,1)=="a" or substr($word2,3,1)=="i" or substr($word2,3,1)=="u" or substr($word2,3,1)=="e" or substr($word2,3,1)=="o"){ $dasar =substr($word2,3); echo "p".$dasar; }else{ $dasar =substr($word2,3); echo $dasar;} }else if(substr($word2,0,3 == "pel")){ $dasar =substr($word2,4); echo $dasar;

}else if(substr($word2,0,3)=="men" or substr($word2,0,3)=="pen" ){ $dasar =substr($word2,3); echo "t".$dasar; } exit; } else{ //hapus milik if((substr($word2, -2)== 'ku')||(substr($word2, -2)== 'mu')){

$word3 = substr($word2, 0, -2); }else if((substr($word2, -3)== 'nya')){ $word3 = substr($word2,0, -3); } else{ $word3 = $word2; } echo "Penghapusan milik = ".$word3."
"; } } //STEP 3 (Cek Kamus prefiks1 & perfiks1 bersufiks) $prefiks1 = mysql_query("SELECT * FROM dsr_prefiks1 WHERE name='$word3'");

if(mysql_num_rows($prefiks1)==1){ //langsung tulis $dasar =$word3; echo $dasar; exit; }else { $prefiks1_sufiks = mysql_query("SELECT * FROM dsr_prefiks1_sufiks WHERE name='$word3'"); if(mysql_num_rows($prefiks1_sufiks)==1 && strlen($word3) > 4){ //hapus sufiks if (substr($word4, -3)== 'kan'){ $dasar = substr($word4, 0, -3); echo $dasar;}

elseif (substr($word4, -1)== 'i'){ $dasar = substr($word4, 0, -1); echo $dasar;} elseif (substr($word4, -2)== 'an'){ $dasar = substr($word4, 0, -2); echo $dasar;} exit; } else{ //hapus prefiks1 if(substr($word3,0,4)=="meng" or substr($word3,0,4)=="peng"){ $word4 = substr($word3,4); }else if(substr($word3,0,4)=="meny" or substr($word3,0,4)=="peny"){ $dasar = substr($word3,4); $word4 = "s".$dasar; }else if(substr($word3,0,3)=="mel" or substr($word3,0,3)=="mew" or substr($word3,0,3)=="mer" or substr($word3,0,3)=="mey"){ $word4 = substr($word3,2); }else if(substr($word3,0,2)=="di"){ $word4 = substr($word3,2); }else if(substr($word3,0,3)=="mem" or substr($word2,0,3)=="pem"){ if(substr($word3,3,1)=="a" or substr($word3,3,1)=="i" or substr($word3,3,1)=="u" or substr($word3,3,1)=="e" or substr($word3,3,1)=="o"){ $dasar =substr($word3,3); $word4 = "p".$dasar; }else{ $dasar =substr($word3,3);

$word4 = $dasar;} }else if(substr($word3,0,3 == "pel")){ $dasar =substr($word3,4); echo $dasar;

}else if(substr($word3,0,3)=="men" or substr($word3,0,3)=="pen"){ $dasar =substr($word3,3); $word4 = "t".$dasar; }else{ $word4 = $word3;

} echo "Penghapusan prefiks1= ".$word4."
";

} } //STEP 4 (Cek Kamus prefiks2 & perfiks2 bersufiks) $prefiks2 = mysql_query("SELECT * FROM dsr_prefiks2 WHERE name='$word4'");

if(mysql_num_rows($prefiks2)==1){ //langsung tulis $dasar =$word4; echo $dasar; exit; }else {

$prefiks2_sufiks = mysql_query("SELECT * FROM dsr_prefiks2_sufiks WHERE name='$word4'"); if(mysql_num_rows($prefiks2_sufiks)==1 && strlen($word4) > 4){ //hapus sufiks if (substr($word4, -3)== 'kan'){ $dasar = substr($word4, 0, -3); echo $dasar;} elseif (substr($word4, -1)== 'i'){ $dasar = substr($word4, 0, -1); echo $dasar;} elseif (substr($word4, -2)== 'an'){ $dasar = substr($word4, 0, -2); echo $dasar;} exit; } else{ //hapus prefiks2 if(substr($word4,0,3)=="ber" or substr($word4,0,3)=="per"){ $word5 = substr($word4,3); }else if(substr($word4,0,2)=="be"){ if(substr($word4,3)=="ajar"){ $dasar =substr($word4,3); $word5 = $dasar; }else{ $dasar =substr($word4,2); $word5 = $dasar;} }else if(substr($word4,0,2)=="se" or substr($word4,0,2)=="ke"){

$word5 = substr($word4,2); }else if(substr($word4,0,3) == "pel" or substr($word4,0,3) == "ter"){ $word5 =substr($word4,3); } else{ $word5 = $word4; } echo "Penghapusan prefiks2= ".$word5."
";

} } //STEP 5 (Cek Kamus prefiks2 & perfiks2 bersufiks) $sufiks = mysql_query("SELECT * FROM dsr_sufiks WHERE name='$word5'"); $prefiks2_sufiks = mysql_query("SELECT * FROM dsr_prefiks2_sufiks WHERE name='$word5'"); if(mysql_num_rows($sufiks)==1){ //langsung tulis $dasar =$word5; echo $dasar; exit; }else{ //hapus sufiks if (substr($word5, -3)== 'kan' && strlen($word5) > 4){ $dasar1 = substr($word5, 0, -3); } elseif (substr($word5, -1)== 'i'){

$dasar1 = substr($word5, 0, -1); } elseif (substr($word5, -2)== 'an'){ $dasar1 = substr($word5, 0, -2); } //

echo "Penghapusan sufiks= ".$dasar1."
";

//

exit;

}

}

$alamat=""; $alamat="http://localhost/nazief/biru.txt"; $scraped_website = curl($alamat); //

echo $scraped_website;

$dbhost = 'localhost'; $dbuser = 'root'; $dbpass = ''; $koneksi = mysqli_connect($dbhost, $dbuser, $dbpass,'stbi'); if(! $koneksi )

{ die('Gagal Koneksi: ' . mysql_error()); } $sql = 'INSERT INTO korpus '. '(namafile,isi) '. 'VALUES ( "'.$alamat.'","'.$scraped_website.'")';

//mysqli_select_db('stbi'); $tambahdata = mysqli_query( $koneksi, $sql ); if(! $tambahdata ) { die('Gagal tambah data: ' . mysqli_error()); } echo "Berhasil tambah data\n";

$someWords =strtolower($scraped_website); $someWords = trim(preg_replace('/\s\s+/', ' ', $someWords)); $wordChunks = explode(' ', $someWords); for($i = 0; $i < count($wordChunks); $i++){

//if (strlen($wordChunks[$i])>=3) //{

if (strlen($wordChunks[$i])>3) {

echo "Piece $i = $wordChunks[$i]
"; porterstemmer($wordChunks[$i]); echo "
"; echo " Stemming nazief adriani ".Enhanced_CS($wordChunks[$i]); $sql2 = 'INSERT INTO token '. '(namafile,term) '. 'VALUES ( "'.$alamat.'","'.$wordChunks[$i].'")';

//mysqli_select_db('stbi'); $tambahdata2 = mysqli_query( $koneksi, $sql2 ); if(! $tambahdata2 ) { die('Gagal tambah data: ' . mysqli_error()); } echo "Berhasil tambah data\n";

} // //} } mysqli_close($koneksi);

//

$preProcess = new Preprocessing;

//$preProcess->tokenText($scraped_website); //$preProcess->removeStopword(); //echo $preProcess->text;

?>

Our partners will collect data and use cookies for ad personalization and measurement. Learn how we and our ad partner Google, collect and use data. Agree & close