agent_cat.php

<?php
/*
 * MIT License
 * 
 * Copyright (c) 2014-2021 by Anton Kolonin, Aigents®
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in all
 * copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 * SOFTWARE.
 */

include_once("test_api.php");

function init(){
	global $version;
	global $copyright;
	
	//login, registration, verification
	say("My name john, email john@doe.org, surname doe.");
	get("What your secret question, secret answer?");
	say("My secret question q, secret answer a.");
	get("What your q?");
	say("My q a.");
	get("Ok. Hello John Doe!\nMy Aigents ".$version.$copyright);
}

function cleanup(){
	//cleanup and logout
	say("trust true new false, trust false.");
	get();
	say("trust true new false, trust false.");
	get();
	say("No there times today.");
	get();
	say("You forget.");
	get();
	
	say("Your trusts no john.");
	get("Ok.");
	say("No name john.");
	get("Ok.");
	say("You forget.");
	get();
	say("My logout.");
	get("Ok.");
}


function test_agent_expereinces() {
	global $timeout;
	
	init();
	//make sure we can load different categoroes of actions in respect to texts
	say("there text 'clicked text', click true, new true, times today.");
	get("Ok.");
	say("there text 'searched text', query true, new true, times today.");
	get("Ok.");
	say("there text 'selected text', selection true, times today.");
	get("Ok.");
	say("there text 'copypasted text', copypaste true, times today.");
	get("Ok.");
	say("there text 'copypasted and selected text', copypaste true, selection true, times today.");
	get("Ok.");
	say("what my news times, click, query, new?");
	say("what my clicks text, times?");
	get("Your clicks text clicked text, times today.");
	say("what my queries text?");
	get("Your queries text searched text.");
	say("what my selections text?");
	get("Your selections text copypasted and selected text; text selected text.");
	say("what my copypastes text?");
	get("Your copypastes text copypasted and selected text; text copypasted text.");
	say("what times today text, new, copypaste, click, query, selection?");
	get("There click false, copypaste false, new false, query false, selection true, text selected text; click false, copypaste false, new true, query true, selection false, text searched text; click false, copypaste true, new false, query false, selection false, text copypasted text; click false, copypaste true, new false, query false, selection true, text copypasted and selected text; click true, copypaste false, new true, query false, selection false, text clicked text.");
	say("new true new false");
	say("click true click false");
	say("query true query false");
	say("selection true selection false");
	say("copypaste true copypaste false");
	say("no there times today");
	get("Ok.");
	say("what times today text, new, copypaste, click, query, selection?");
	get("No.");
	//make sure old things (past the attention period) are forgotten
	say("there text 'new regular text', new true, trust true, times today.");
	say("there text 'old regular text', new true, trust true, times 2019-01-01.");
	say("there text 'new selected text', selection true, trust true, times today.");
	say("there text 'old selected text', selection true, trust true, times 2019-01-01.");
	say("what times today or 2019-01-01 times, text?");
	get("There text new regular text, times today; text new selected text, times today; text old regular text, times 2019-01-01; text old selected text, times 2019-01-01.");
	say("you forget");//can be run by admin user only, runs behind the scene periodically for all other non-admin users
	say("what times today or 2019-01-01 times, text?");
	get("There text new regular text, times today; text new selected text, times today.");
	say("trust true trust false");
	say("new true new false");
	say("selection true selection false");
	say("no there times today");
	get("Ok.");
	say("what times today?");
	get("No.");
	
	//get patterns from texts without of storing texts in aigents
	say("You cluster format json texts '[\"germans live in germany\",\"russians live in russia\",\"spaniards live in spain\",\"cars ride on roads\",\"cat is a mammal\",\"trains ride on rails\",\"bikes ride on trails\"]'.");
	get("{\"categories\":[[\"in\",\"live\"],[\"on\",\"ride\"]],\"category_documents\":{\"in, live\":{\"germans live in germany\":\"2\",\"russians live in russia\":\"2\",\"spaniards live in spain\":\"2\"},\"on, ride\":{\"bikes ride on trails\":\"2\",\"cars ride on roads\":\"2\",\"trains ride on rails\":\"2\"}},\"category_features\":{\"in, live\":{\"germans\":\"2\",\"germany\":\"2\",\"in\":\"6\",\"live\":\"6\",\"russia\":\"2\",\"russians\":\"2\",\"spain\":\"2\",\"spaniards\":\"2\"},\"on, ride\":{\"bikes\":\"2\",\"cars\":\"2\",\"on\":\"6\",\"rails\":\"2\",\"ride\":\"6\",\"roads\":\"2\",\"trails\":\"2\",\"trains\":\"2\"}}}");

	//get patterns from texts with storing texts in aigents
	say("There text 'germans live in germany', times 2019-01-01, selection true, trust true.");
	say("There text 'russians live in russia', times 2019-01-01, query true, trust true.");
	say("There text 'spaniards live in spain', times 2019-01-01, click true, trust true.");
	say("There text 'cars ride on roads', times 2019-01-01, copypaste true, trust true.");
	say("There text 'trains ride on rails', times 2019-01-01, trust true.");
	say("There text 'bikes ride on trails', times 2019-01-01, trust true.");
	say("You cluster!");
	get("You topics ({in live} {on ride}).'{in live}' sites germans live in germany, russians live in russia, spaniards live in spain;\n '{on ride}' sites bikes ride on trails, cars ride on roads, trains ride on rails.\n'{in live}' patterns germans, germany, in, live, russia, russians, spain, spaniards;\n '{on ride}' patterns bikes, cars, on, rails, ride, roads, trails, trains.");	
	say("you forget!"); //cleanup date by attention period
	
	//pattern mining by profiler API
	say("what my topics name, trust?");//ensure that we have no topics set up
	get("No.");
	say("what my sites name, trust?");//ensure that we have no sites set up
	get("No.");
	//get some content "trusted"
	say("There text 'germans live in germany', sources 'http://localtest.com/people.html', times today, selection true, trust true, new true.");
	say("There text 'russians live in russia', sources 'http://localtest.com/people.html', times today, query true, trust true, new true.");
	say("There text 'spaniards live in spain', sources 'http://localtest.com/people.html', times today, click true, trust true, new true.");
	say("There text 'cars ride on roads'     , sources 'http://localtest.com/transport.html', times today, copypaste true, trust true, new true.");
	say("There text 'trains ride on rails'   , sources 'http://localtest.com/transport.html', times today, trust true, new true.");
	say("There text 'bikes ride on trails'   , sources 'http://localtest.com/transport.html', times today, trust true, new true.");
	say("You profile!");//do clustering and pattern mining on the selected content
	sleep($timeout);
	say("what my topics name, trust?");
	say("Your topics name live, trust true; name ride, trust true.");
	say("what my sites name, trust?");
	get("Your sites name http://localtest.com/people.html, trust true; name http://localtest.com/transport.html, trust true.");
	
	//sentiment propagation
	say("sources 'http://localtest.com/people.html' is live");
	get("Ok.");
	say("sources 'http://localtest.com/transport.html' is ride");
	get("Ok.");
	say("what is live sources, text?");
	get("There sources http://localtest.com/people.html, text germans live in germany; sources http://localtest.com/people.html, text russians live in russia; sources http://localtest.com/people.html, text spaniards live in spain.");
	say("what is ride sources, text?");
	get("There sources http://localtest.com/transport.html, text bikes ride on trails; sources http://localtest.com/transport.html, text cars ride on roads; sources http://localtest.com/transport.html, text trains ride on rails.");
	say("You think!");
	get("Ok.");
	say("What new true text, sentiment?");
	get("There sentiment 0, text bikes ride on trails; sentiment 0, text cars ride on roads; sentiment 0, text trains ride on rails; sentiment 100, text germans live in germany; sentiment 100, text russians live in russia; sentiment 100, text spaniards live in spain.");
	say("what my topics name, positive, negative?");
	get("Your topics name live, positive 100.0; name ride.");
	
	//cleanup actions
	say("new true new false, query false, selection false, click false, copypaste false");
	cleanup();
	
	init();
	say("Classify sentiment text 'good pleasant nasty guy'!");
	get("Negative 25, negatives nasty, positive 50, positives good, pleasant, sentiment 50, text good pleasant nasty guy.");
	say("Classify rudeness text 'you are an idiot'!");
	get("Rudeness 25, rudenesses idiot, text you are an idiot.");
	say("Classify rudeness text 'you jerk and idiot'!");
	get("Rudeness 50, rudenesses idiot, jerk, text you jerk and idiot.");
	say("Classify rudeness text 'you are a  good guy'!");
	get("Rudeness 0, text you are a  good guy.");
	say("my format json");
	get("Ok.");
	say("classify sentiment text bad good nasty guy!");
	get("[{\"negative\":\"50\",\"negatives\":[\"bad\",\"nasty\"],\"positive\":\"25\",\"positives\":[\"good\"],\"sentiment\":\"-50\",\"text\":\"bad good nasty guy\"}]");
	say("My format text");
	get("Ok.");
	
	say("Classify sentiment text 'good pleasant happy nasty guy'!");
	get("Negative 20, negatives nasty, positive 60, positives good, happy, pleasant, sentiment 67, text good pleasant happy nasty guy.");
	say("your sentiment maximized false");
	get("Ok.");
	say("Classify sentiment text 'good pleasant happy nasty guy'!");
	get("Negative 20, negatives nasty, positive 60, positives good, happy, pleasant, sentiment 40, text good pleasant happy nasty guy.");
	say("your sentiment logarithmic true");
	get("Ok.");
	say("Classify sentiment text 'good pleasant happy nasty guy'!");
	get("Negative 66, negatives nasty, positive 89, positives good, happy, pleasant, sentiment 23, text good pleasant happy nasty guy.");
	say("your sentiment maximized true");
	get("Ok.");
	say("Classify sentiment text 'good pleasant happy nasty guy'!");
	get("Negative 66, negatives nasty, positive 89, positives good, happy, pleasant, sentiment 26, text good pleasant happy nasty guy.");
	say("your sentiment logarithmic false");
	get("Ok.");
	say("your sentiment maximized, sentiment logarithmic?");
	get("My sentiment logarithmic false, sentiment maximized true.");
	say("Classify sentiment text 'happy lucky winter day'!");
	get("Negative 0, positive 50, positives happy, lucky, sentiment 100, text happy lucky winter day.");
	say("Classify sentiment text 'just happy winter day'!");
	get();
	say("Your sentiment logarithmic true, sentiment maximized false.");
	say("Classify sentiment text 'happy lucky winter day'!");
	get("Negative 0, positive 85, positives happy, lucky, sentiment 85, text happy lucky winter day.");
	say("Classify sentiment text 'just happy winter day'!");
	get();
	say("Your sentiment logarithmic false, sentiment maximized true.");
	
	cleanup();
	
//TODO trainable sentiment mining (with either "there text 'good stuff', is good." or "there text 'good stuff', good true." !?)
//TODO social reporting
//TODO graph mining
}

function test_agent_cluster() {
	global $basePath;
	global $timeout;
	
	//extremal cases
	/**
	init();
	say("There new true, text 'http://localtest.com/test/text/debug_d0.txt', times today, trust true.");
	say("There new true, text 'http://localtest.com/test/text/debug_ro.txt', times today, trust true.");
	say("There new true, text 'http://localtest.com/test/text/debug_da.txt', times today, trust true.");
	say("There new true, text 'http://localtest.com/test/text/debug_ja.txt', times today, trust true.");
	say("You cluster!");
	get();//results are senseless because no language dictonary is involved  
	brk();
	cleanup();
	**/
	
	init();
	say("There new true, text '".file_get_contents('html/test/text/debug_d0.txt')."', sources 'http://localtest.com/test/text/debug_d0.txt', times today, trust true.");
	say("There new true, text '".file_get_contents('html/test/text/debug_ro.txt')."', sources 'http://localtest.com/test/text/debug_ro.txt', times today, trust true.");
	say("There new true, text '".file_get_contents('html/test/text/debug_da.txt')."', sources 'http://localtest.com/test/text/debug_da.txt', times today, trust true.");
	say("There new true, text '".file_get_contents('html/test/text/debug_ja.txt')."', sources 'http://localtest.com/test/text/debug_ja.txt', times today, trust true.");
	say("You profile!");//do clustering and pattern mining on the selected content
	sleep($timeout);
	say("what my topics name, trust?");
	get("Your topics name '{ai few help like network}', trust true; name ai, trust true.");
	cleanup();
	
	//more extremal cases
	init();
	
	say("Your clustering timeout 60000.");
	say("what your http timeout, clustering timeout?");
	get("My clustering timeout 60000, http timeout 60000.");
	say("your clustering timeout 1100.");
	get("Ok.");
	say("what your clustering timeout?");
	get("My clustering timeout 1100.");
	say("your clustering timeout 60000.");
	say("what your clustering timeout?");
	get("My clustering timeout 60000.");
	
	//say("There new true, text 'aa bb cc dd ee ff gg hh', times today, trust true.");
	//say("There new true, text 'hh ii jj kk ll mm nn oo', times today, trust true.");
	say("There new true, text 'lion cat puma tiger', times today, trust true.");
	say("There new true, text 'lion elephant zebra hippopotamus', times today, trust true.");
	say("You cluster!");
//TODO this and other extremal cases
//TODO make this or that depemdant on number of features involved!?
	get("You topics lion.'lion' sites lion cat puma tiger, lion elephant zebra hippopotamus.\n'lion' patterns cat, elephant, hippopotamus, lion, puma, tiger, zebra.");
	//get("You topics ({cat puma tiger} {elephant hippopotamus zebra} lion).'{cat puma tiger}' sites lion cat puma tiger;\n '{elephant hippopotamus zebra}' sites lion elephant zebra hippopotamus;\n 'lion' sites lion cat puma tiger, lion elephant zebra hippopotamus.\n'{cat puma tiger}' patterns cat, lion, puma, tiger;\n '{elephant hippopotamus zebra}' patterns elephant, hippopotamus, lion, zebra;\n 'lion' patterns cat, elephant, hippopotamus, lion, puma, tiger, zebra.");
	cleanup();
	
	//basic clustering
	init();
	
	/*
	H: My area of interest texts "тунец это рыба", "кошка это млекопитающее", "Петя работает программистом", "Маша работает бухгалтером".
	A: Ok.
	H: You cluster area of interest!
	A: Ok.
	H: What my area of interest categories?
	A: Your area of interest categories "это", "работает".
	H: What "это" texts?
	A: "Это" texts  "тунец это рыба", "кошка это млекопитающее".
	H: What "работает" texts?
	A: "Работает" texts  "Петя работает программистом", "Маша работает бухгалтером".
	H: What "работает" patterns?
	A: "Работает" patterns "{Маша Петя} работает {программистом бухгалтером}".
	H: What "'это" patterns?
	A: "Работает" patterns "{кошка тунец} это {млекопитающее рыба}".
	H: My area of interest texts "паук это насекомое", "Боря работает фандрайзером".
	A: Ok.
	H: You classify area of interest!
	A: Ok.
	H: What "паук это насекомое" categories?
	A: "Паук это насекомое" categories "это".
	H: What "Боря работает фандрайзером" categories?
	A: "Боря работает фандрайзером" categories "работает".	
	*/
	
	file_put_contents($basePath."html/test/cat/fly.html","<html><body>fly is an insect</body></html>");
	file_put_contents($basePath."html/test/cat/eagle.html","<html><body>eagle is a bird</body></html>");
	file_put_contents($basePath."html/test/cat/snake.html","<html><body>snake is a reptile</body></html>");
	file_put_contents($basePath."html/test/cat/french.html","<html><body>french live in france</body></html>");
	file_put_contents($basePath."html/test/cat/chinese.html","<html><body>chinese live in china</body></html>");
	say("There new true, text 'http://localtest.com/test/cat/fly.html', times today, trust true.");
	say("There new true, text 'http://localtest.com/test/cat/eagle.html', times today, trust true.");
	say("There new true, text 'http://localtest.com/test/cat/snake.html', times today, trust true.");
	say("There new true, text 'tuna is a fish', times today, trust true.");
	say("There new true, text 'cat is a mammal', times today, trust true.");
	say("There new true, text 'http://localtest.com/test/cat/french.html', times today, trust true.");
	say("There new true, text 'http://localtest.com/test/cat/chinese.html', times today, trust true.");
	say("There new true, text 'germans live in germany', times today, trust true.");
	say("There new true, text 'russians live in russia', times today, trust true.");
	say("There new true, text 'spaniards live in spain', times today, trust true.");

	say("You cluster!");
	get();
	
	//TODO: make it working right!?
	say("What 'is' patterns?");
	get();
	say("What '{in live}' patterns?");
	get();
				
	say("What new true text?");
	get("There text cat is a mammal; text germans live in germany; text http://localtest.com/test/cat/chinese.html; text http://localtest.com/test/cat/eagle.html; text http://localtest.com/test/cat/fly.html; text http://localtest.com/test/cat/french.html; text http://localtest.com/test/cat/snake.html; text russians live in russia; text spaniards live in spain; text tuna is a fish.");
	
	say("What text 'http://localtest.com/test/cat/french.html'?");
	get();
	
	say("What text 'http://localtest.com/test/cat/french.html' categories?");
	get();
	
	say("What 'live in' texts?");
	get();

	say("What 'live in' patterns?");
	get();
	
	//TODO: use SAL instead of HAL?
	//say("My trusts 'cat is mammal', times today.");
	//get("Ok.");
	
	//Check JSON API
	say("You cluster format json texts '[\"http://localtest.com/test/cat/fly.html\",\"http://localtest.com/test/cat/eagle.html\",\"http://localtest.com/test/cat/snake.html\",\"tuna is a fish\",\"cat is a mammal\",\"http://localtest.com/test/cat/french.html\",\"http://localtest.com/test/cat/chinese.html\",\"germans live in germany\",\"russians live in russia\",\"spaniards live in spain\"]'.");
	//get("{\"categories\":[[\"in\",\"live\"],[\"is\"]],\"category_documents\":{\"in, live\":{\"germans live in germany\":\"2\",\"http://localtest.com/test/cat/chinese.html\":\"2\",\"http://localtest.com/test/cat/french.html\":\"2\",\"russians live in russia\":\"2\",\"spaniards live in spain\":\"2\"},\"is\":{\"cat is a mammal\":\"1\",\"http://localtest.com/test/cat/eagle.html\":\"1\",\"http://localtest.com/test/cat/fly.html\":\"1\",\"http://localtest.com/test/cat/snake.html\":\"1\",\"tuna is a fish\":\"1\"}},\"category_features\":{\"in, live\":{\"china\":\"2\",\"chinese\":\"2\",\"france\":\"2\",\"french\":\"2\",\"germans\":\"2\",\"germany\":\"2\",\"in\":\"10\",\"live\":\"10\",\"russia\":\"2\",\"russians\":\"2\",\"spain\":\"2\",\"spaniards\":\"2\"},\"is\":{\"an\":\"1\",\"bird\":\"1\",\"cat\":\"1\",\"eagle\":\"1\",\"fish\":\"1\",\"fly\":\"1\",\"insect\":\"1\",\"is\":\"5\",\"mammal\":\"1\",\"reptile\":\"1\",\"snake\":\"1\",\"tuna\":\"1\"}}}");
	get("{\"categories\":[[\"is\"],[\"in\",\"live\"]],\"category_documents\":{\"in, live\":{\"germans live in germany\":\"2\",\"http://localtest.com/test/cat/chinese.html\":\"2\",\"http://localtest.com/test/cat/french.html\":\"2\",\"russians live in russia\":\"2\",\"spaniards live in spain\":\"2\"},\"is\":{\"cat is a mammal\":\"1\",\"http://localtest.com/test/cat/eagle.html\":\"1\",\"http://localtest.com/test/cat/fly.html\":\"1\",\"http://localtest.com/test/cat/snake.html\":\"1\",\"tuna is a fish\":\"1\"}},\"category_features\":{\"in, live\":{\"china\":\"2\",\"chinese\":\"2\",\"france\":\"2\",\"french\":\"2\",\"germans\":\"2\",\"germany\":\"2\",\"in\":\"10\",\"live\":\"10\",\"russia\":\"2\",\"russians\":\"2\",\"spain\":\"2\",\"spaniards\":\"2\"},\"is\":{\"an\":\"1\",\"bird\":\"1\",\"cat\":\"1\",\"eagle\":\"1\",\"fish\":\"1\",\"fly\":\"1\",\"insect\":\"1\",\"is\":\"5\",\"mammal\":\"1\",\"reptile\":\"1\",\"snake\":\"1\",\"tuna\":\"1\"}}}");
	
	cleanup();
}

function test_agent_cat() {
	init();
	
	//TODO:
	//test
	//classifier
	//hook-based parser architecture?
	//emoticon-aware parser
	
	say("There text 'I like it :-)', is good.");
	get("Ok.");
	say("There text 'I dislike it :-(' is bad.");
	get("Ok.");
	say("There text 'I like :-) and dislike :-( it' is bad, good.");
	get("Ok.");
	say("Good is quality.");
	get("Ok.");
	say("Bad is quality.");
	get("Ok.");
	say("What text 'I like :-) and dislike :-( it' is?");
	get("There is bad, good.");
	say("What text 'I dislike it :-(' is?");
	get("There is bad.");
	say("What text 'I like it :-)' is?");
	get("There is good.");
	say("What is bad text?");
	get("There text 'I dislike it :-('; text 'I like :-) and dislike :-( it'.");
	say("What is good text?");
	get("There text 'I like :-) and dislike :-( it'; text 'I like it :-)'.");
	say("What is good or bad text?");
	get("There text 'I dislike it :-('; text 'I like :-) and dislike :-( it'; text 'I like it :-)'.");
	
	//TODO: fix
	//say("What is good and bad text?");
	//Int:[[is (good bad)] text]?
	//I:09d18046587b4814acd172a9b55e52f9:There not.
	//get("There text 'I like :-) and dislike :-( it'.");

	//TODO:
	say("You learn good!");//learn all patterns of text with good
	get();//get("Ok.");
	say("You learn bad!");//learn all patterns of text with bad
	get();//get("Ok.");
	
	say("What bad patterns?");
	get();//get("Bad patterns dislike, ':-('.");
	say("What good patterns?");
	get();//get("Good patterns like, ':-)'.");

	/*
	
	Cat is animal, dog is animal. Cat, dog is animal.
	Animals are dog, cat.
	Goods 
	
	TODO: something like this...
	say("What text 'They like me' is?");
	get("No.");
	say("What text 'They like me' goodness?");
	get("No.");
	say("Tou think 'They like me', good.");
	get("Ok.");
	say("What text 'They like me' is?");
	get("There is good.");
	say("What text 'They like me' goodness?");
	get("There goodness 0.95.");
	
	TODO:
	<term> := <assessment>? <negation>? ( <anonymous>? | <self> | <peer> | <id> | <name> | <value> | <qualifier> )
	<negation> := '~' | ('not' | 'no') | ('нет' | 'не')
	<assessment> := <literal-assessment> | <percent-assessment> | <boolean-assessment>
	<boolean-assessment> := ('true' | 'yes' | 'да' ) | ('false' | 'no' | 'нет')
	<percent-assessment> := (0..100)'%'
	<literal-assessment> := (('surely' | 'probably' | 'possibly') | ('точно' | 'вероятно' | 'возможно'))?

	100%-80% = точно = surely (по умолчанию, можно не указывать)
	60%-80% = вероятно = probably
	50%-60% = возможно = possibly

        жизнь это точно хорошо.
        еда это вероятно хорошо.
        вода это возможно хорошо.
        вода это возможно не хорошо.
        боль это вероятно не хорошо.
        мор это точно не хорошо.

        life is surely good.
        food is probably good.
        water is possibly good.
        water is possibly not good.
        pain is probably not good.
        death is surely not good.

        life is 98% good.
        food is 65% good.
        water is 50% good.
        water is 50% not good.
        pain is 38% good.
        death is 1% good.
        pain is 62% not good.
        death is 99% not good.

		my trusts <x>. //in context of i/my
		<x> trust true.
		<x> trust 99%.
		<x> is trust.
		<x> is 99% trust.
		trusts are <x>.

		my relevances <x>. //in context of i/my
		<x> relevance true.
		<x> relevance 99%.
		<x> is relevance.
		<x> is 99% relevance.
		relevances are <x>. 
		
	TODO:
	1) emotions explicit
	1-1) parse sentiment (smiles) from news and explicitly set goodness/badness (lowest=false/low/medium/high/highest=true) is (good/bad)
	1-2) AL: you parse <text>, format <format>, language <language>, features <words|phrases|emoticons> 
	1-3) extract Facebooks emotions and explicitly set goodness/badness
	1-4) render emotions in reports
	1-5) display emotions in graphs
	1-6) display emotions in lists
	2) communicate emotions
	2-1) true/false => false/low/medium/high/highest
	3) infer emotions	
	3-1) parse texts for bigrams with max distance 1 (no hops and no distance-based evidence weighting)
	3-2) use vocabulary (en/ru) for "controlled" featuress
	3-3) use bigram features only first ("priority on order") and only then the rests (so 'not good' takes over 'good')
	3-4) boolean ranking (count on feature number, no inference)
	3-5) use only features uniquely identifying category in a domain (Cf = 1), if present (if not, then relax to Cf=2, etc.)
	3-6) train on Julia-s dataset
	4) communicate inference
	4-1) 'You think!'
	4-2) 'You think life, is!'
	4-3) 'You think life, good, bad!'
	4-4) 'You think life, is, good, bad!'
	4-5) Implicit inference - infer only of no answer on query!?
	*/

	say("No there is good.");
	get("Ok.");
	say("No there is bad.");
	get("Ok.");
	say("No name good.");
	get("Ok.");
	say("No name bad.");
	get("Ok.");
	say("No name quality.");
	get("Ok.");
	
	cleanup();
}


function test_agent_parse() {
	init();

	//nrgam - all - parser
	say("You parse text 'aaaaa ping BBBB PONG \"123\" XXyyZx'!");
	get("There text 'aaaaa ping BBBB PONG \"123\" XXyyZx', tokens [aaaaa ping bbbb pong 123 xxyyzx], grams [ping pong].");
	say("You parse text 'there is a tree'!");
	get("There text there is a tree, tokens [there is a tree], grams ([there is] [is a] [a tree]).");
	say("You parse distance 2, text 'there is a tree'!");
	get("There text there is a tree, tokens [there is a tree], grams ([there is] [there a] [is a] [is tree] [a tree]).");
	say("You parse text 'tuna is a fish'!");
	get("There text tuna is a fish, tokens [tuna is a fish], grams ([tuna is] [is a] [a fish]).");

	//link grammar
	//TODO real implementation and more tests
	say("You parse type link, text 'tuna is a fish'!");
	//TODO
	//get("There text tuna is a fish, tokens [tuna is a fish], grams ([tuna is] [is fish] [a fish]).");
	get("There text tuna is a fish, tokens [tuna is a fish], grams ([tuna is] [tuna fish] [a fish]).");
	
	//nrgam - tree - parser
	//TODO
	//say("You parse type tree, text 'tuna is a fish'!");
	//get("There text tuna is a fish, tokens [tuna is a fish], grams ([tuna is] [is fish] [a fish]).");
	get();
	say("You parse type tree, mode clean, text 'a fish'!");
	get();
	say("You parse type tree, text 'a tuna'!");
	get();
	say("You parse type tree, text 'a fish'!");
	get();
	say("You parse type tree, text 'an animal'!");
	get();
	say("You parse type tree, text 'is a fish'!");
	get();
	say("You parse type tree, text 'is an animal'!");
	get();
	say("You parse type tree, text 'tuna is a fish'!");
	get();
	say("You parse type tree, text 'fish is an animal'!");
	get();
	
	//brk();
	
	cleanup();
}

test_init();
//test_agent_cluster();
//test_agent_expereinces();
//test_agent_cat();
test_agent_parse();
printtimers();
test_summary();

?>