Expert System Source Code
PC AI - LISP Programming Language Very useful page of links with good helpful annotations for vendors, search
engines, more: references (linked and non-linked) for articles, books.
Visualization and Measurement of Source Code - Dec 97 Paper on Grasp and Ada source code.
Free Software Gary Scott's extensive collection of source code links.
Spell check, thesaurus, and grammar engines, components, controls ... Linguistic products for software developers: Sentry spell check engine, ThesDB
thesaurus engine, dictionaries, grammar checkers. For MFC, ANSI C/C++, Office, ...
Links to Open Source Health Care Resources Open Source Health Care Resources.
drupal.org Community plumbing
ROG-O-MATIC: A Belligerent Expert System Presents features, architecture, and performance relative to human players.
(May 16, 1984)
Amzi! Prolog+Logic Server, Adventure in Prolog tutorial, Expert ... This extensible Prolog version runs under Windows, Linux, Solaris and HP/UX,
supporting development of client and server applications embeddable in the web, ...
Matt's Projects Matthew Lewis Euphoria downloads: Magic, Designer, EuSQL, Call by Reference,
EuCOM, DirectX Demo for EuCOM, Oracle Database Project, Win32LibEx, Matheval, ...
Medical Diagnosis Assistance Software Develops and markets medical diagnosis decision support, with database software
and interactive references. Includes screenshots. Windows only.
Abraxas Software, Inc. Provider of high quality language development tools.
PC AI - Genetic Algorithms Contains links to genetic algorithms information on the Internet along with
vendors and references. Published by PC AI magazine.
AdaCLIPS A small set of Ada (95) bindings to the CLIPS expert system shell.
Web Developer, SEO Expert, System Administration Resume: XML, Perl ... More than 5 years experience with open source web development, Perl, Linux
administration, and graphic design. Available for full-time positions or contract ...
CNN - Artificial intelligence means never having to say you're ... [CNN]
Expert Systems, Clarion Software, Web Development, Clarion ... Provides time-saving tools and services for Clarion Developers.
Complex Systems Homepage Listing Resources on Nonlinear Dynamics and Complex Systems NCSL,
MS. GUIDANCE ARTIFICIAL LIFE Links and resources.
PHP-Nuke Community-oriented publishing software requires PHP and MySQL.
Working with C++Builder NTEmacs interface for C++Builder, is an Expert with source code.
rss_url = $url;
$this->num_to_show = $numtoshow;
$this->do_update = $update;
$this->my_html = preg_replace("/(#{.*?):(.*?})/", "\\1__\\2", $html); //xx:xx tag workaround
$this->content = $this->fetch_feed();
$this->parse_feed();
$this->show();
}
/* string */
function fetch_feed()
{
$url_parts = parse_url($this->rss_url);
$filename = $url_parts['host'] . str_replace("/", ",", $url_parts['path']) . "_" . @$url_parts['query'];
if(file_exists($this->data_directory . "/$filename")) {
$last = filemtime($this->data_directory . "/$filename");
if(time() - $last > $this->update_interval * 60 || $this->update_interval == 0) {
$update = 1;
}
} else {
$create= 1;
}
if($create == 1 || ($this->do_update == TRUE && $update == 1)) {
$fp = @fsockopen($url_parts['host'], 80, $errno, $errstr, 5);
if (!$fp) {
echo "Couldn't open rss feed {$this->feed_url} in {$_SERVER['PHP_SELF']}
\n";
return;
}
fputs($fp, "GET " . $url_parts['path'] . "?" . @$url_parts['query'] . " HTTP/1.0\r\n"
."Host: " . $url_parts['host'] . "\r\n"
."User-Agent: Drew's RSS Reader 0.1\r\n"
."Connection: Close\r\n\r\n");
while(!feof($fp)) {
$rss_data .= @fgets($fp, 1024);
}
list(, $rss_data) = explode("\r\n\r\n", $rss_data, 2);
$output = @fopen($this->data_directory . "/$filename", "w+");
if(!$output) {
return $rss_data;
} else {
flock($output, LOCK_EX);
fputs($output, $rss_data);
flock($output, LOCK_UN);
fclose($output);
}
} //update
return file_get_contents($this->data_directory . "/$filename");
}
/* void */
function parse_feed()
{
preg_match("/
(.*?)<\/title>/", $this->content, $title);
$this->feed_title = @$title[1];
preg_match("/ (.*?)<\/link>/", $this->content, $link);
$this->feed_link = @$link[1];
preg_match("/(.*?)<\/description>/", $this->content, $description);
$this->feed_description = @$description[1];
preg_match_all("/- ]*>(.*?)<\/item>/s", $this->content, $items);
if (sizeof($items[0]) == 0) {
echo "No item elements found in rss feed.
\n";
}
for($i = 0; $i < sizeof($items[0]); ++$i) {
preg_match_all("/(?:<([\w:]*)[^>]*>(?:)?<\/\\1>)+?/si", preg_replace("/- ]*>/", "", $items[0][$i]), $elements);
for($j = 0; $j < sizeof($elements[0]); ++$j) {
$elements[1][$j] = str_replace(":", "__", $elements[1][$j]); //regex fix for items with : like dc:date
$this->rss[$i][$elements[1][$j]] = trim(html_entity_decode($elements[2][$j]));
}
}
}
/* void */
function show()
{
if($this->my_html == "") {
$this->show_html();
} else {
$this->show_user_html();
}
}
function show_html()
{
$show = (sizeof($this->rss) > $this->num_to_show ? $this->num_to_show : sizeof($this->rss));
for($i = 0; $i < $show; ++$i) {
echo "-
rss[$i]['link']}\" target=\"_new\">{$this->rss[$i]['title']} \n";
}
}
function show_user_html()
{
$show = (sizeof($this->rss) > $this->num_to_show ? $this->num_to_show : sizeof($this->rss));
for($i = 0; $i < $show; ++$i) {
extract($this->rss[$i]);
$item = preg_replace("/#\{([^}]+)}/e", "$\\1", $this->my_html);
echo $item;
}
}
} // end class
$url = "http://www.justinpfister.com/gnewsfeed.php?q=Expert&lang=en&ned=us";
$show = 3;
$html = "#{title} #{description} ";
$update = 1;
$rss = new rss_parser($url, $show, $html, $update);
$url = "http://search.news.yahoo.com/usns/ynsearch/categories/47/index.html?p=Expert";
$show = 3;
$html = "#{title} #{description} ";
$update = 1;
$rss = new rss_parser($url, $show, $html, $update);
?>