Fernando Sánchez 11 years ago
commit 5b93cc0d8b

@ -0,0 +1,80 @@
<?php
include('Eklekt/Emotion.php');
include('Eklekt/Emotion/AffectWord.php');
include('Eklekt/Emotion/EmotionalState.php');
include('Eklekt/Emotion/Empathyscope.php');
include('Eklekt/Emotion/Utility/Heuristics.php');
include('Eklekt/Emotion/Utility/Lexical.php');
#const NEUTRAL = -1;
#const HAPPINESS = 0;
#const SADNESS = 1;
#const FEAR = 2;
#const ANGER = 3;
#const DISGUST = 4;
#const SURPRISE = 5;
$wnaffect ='http://gsi.dit.upm.es/ontologies/wnaffect/ns';
$arr = array(
-1 => $wnaffect.'#neutral-emotion',
0 => $wnaffect.'#happiness',
1 => $wnaffect.'#sadness',
2 => $wnaffect.'#fear',
3 => $wnaffect.'#anger',
4 => $wnaffect.'#disgust',
5 => $wnaffect.'#surprise'
);
$empathScope = Eklekt_Emotion_Empathyscope::getInstance();
$text = $_GET['q']?$_GET['q']:'Input a string with the ?q="bla" parameter, please';
$domain = $_GET['domain']?$_GET['domain']:'http://gsi.dit.upm.es/ontologies/wndomains/ns#Root';
$sens = explode(".", $text);
$res = array();
header('Content-Type: application/xml');
#header('Content-Disposition: attachment; filename="results.rdf"');
header('Content-Type: text/plain');
echo '<?xml version="1.0"?>';
?>
<rdf:RDF
xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#"
xmlns:prov="http://www.w3.org/ns/prov#"
xmlns:wnaffect="http://gsi.dit.upm.es/ontologies/wnaffect/ns#"
xmlns:wndomains="http://gsi.dit.upm.es/ontologies/wndomains/ns#"
xmlns:onyx="http://gsi.dit.upm.es/ontologies/onyx#"
>
<rdf:Description>
<rdf:type rdf:resource="http://gsi.dit.upm.es/ontologies/onyx/ns#EmotionAnalysis<?echo $i?>"/>
<onyx:emotionOntology><? echo $wnaffect ?></onyx:emotionOntology>
<onyx:domain rdf:resource="<?echo $domain?>"/>
<onyx:algorithm>Synesketch</onyx:algorithm>
</rdf:Description>
<rdf:Description xmlns:about="http://gsi.dit.upm.es">
<rdf:type rdf:resource="http://www.w3.org/ns/prov#Agent"/>
</rdf:Description>
<?
for($i=0; $i<count($sens); $i++){
$feel = $empathScope->feel($sen);
foreach($feel->emotions as $emo){
$emo->type = array_key_exists($emo->type, $arr)?$arr[$emo->type]:"UNKNOWN";
}
array_push($res, $feel);
?>
<rdf:Description>
<rdf:type rdf:resource="http://gsi.dit.upm.es/ontologies/onyx/ns#EmotionResult<?echo $i?>"/>
<onyx:sourceText><? echo $feel->text?></onyx:sourceText>
<onyx:domain rdf:resource="<?echo $domain?>"/>
<onyx:hasEmotion>
<onyx:Emotion>
<onyx:emotionCategory rdf:resource="<? echo $emo->type?>"/>
<onyx:hasIntensity rdf:datatype="http://www.w3.org/2001/XMLSchema#float"><?echo $emo->weight?></onyx:hasIntensity>
</onyx:Emotion>
</onyx:hasEmotion>
</rdf:Description>
<?
}
?>
</rdf:RDF>
Loading…
Cancel
Save