programr 0.0.1

data/lib/programr/history.rb

@@ -0,0 +1,82 @@
+module ProgramR
+class History
+  @@topic      = 'default'
+  @@inputs     = []
+  @@responses  = []
+  @@starGreedy = []
+  @@thatGreedy = []
+  @@topicGreedy = []
+
+  def topic; @@topic end
+  
+  def that
+    return 'undef' unless @@responses[0]
+    @@responses[0] 
+  end
+  
+  def justbeforethat 
+    return 'undef' unless @@responses[1]
+    @@responses[1] 
+  end
+  
+  def justthat 
+    return 'undef' unless @@inputs[0]
+    @@inputs[0] 
+  end
+  
+  def beforethat 
+    return 'undef' unless @@inputs[1]
+    @@inputs[1] 
+  end
+  
+  def getStar(anIndex) 
+    return 'undef' unless @@starGreedy[anIndex]
+    @@starGreedy[anIndex].join(' ') 
+  end
+
+  def getThatStar(anIndex) 
+    return 'undef' unless @@thatGreedy[anIndex]
+    @@thatGreedy[anIndex].join(' ') 
+  end
+  
+  def getTopicStar(anIndex) 
+    return 'undef' unless @@topicGreedy[anIndex]
+    @@topicGreedy[anIndex].join(' ') 
+  end
+
+  def updateTopic(aTopic)
+    @@topic = aTopic
+  end
+
+  def updateResponse(aResponse)
+    @@responses.unshift(aResponse)
+  end
+
+  def updateStimula(aStimula)
+    @@inputs.unshift(aStimula)
+  end
+
+  def getStimula(anIndex)
+    @@inputs[anIndex]
+  end
+  
+  def updateStarMatches(aStarGreedyArray)
+    @@starGreedy = []
+    @@thatGreedy = []
+    @@topicGreedy = []
+    currentGreedy = @@starGreedy
+    aStarGreedyArray.each do |greedy|
+      if(greedy == '<that>')
+        currentGreedy = @@thatGreedy
+      elsif(greedy == '<topic>')
+        currentGreedy = @@topicGreedy
+      elsif(greedy == '<newMatch>')
+        currentGreedy.push([])
+      else
+        currentGreedy[-1].push(greedy)
+      end
+    end
+  end
+end
+end
+

data/lib/programr/utils.rb

@@ -0,0 +1,30 @@
+module ProgramR
+  module Cache
+  def self.dumping(aFilename,theGraphMaster)
+    File.open(aFilename,'w') do |file|
+      file.write(Marshal.dump(theGraphMaster,-1))
+    end
+  end
+
+  def self.loading(aFilename)
+    File.open(aFilename,'r') do |file|
+      return Marshal.load(file.read)
+    end rescue nil
+  end
+  end # module Cache
+
+  module AimlFinder
+    # Returns an array of aiml files recursively found
+    def self.find(files_and_dirs)
+      files = []
+      files_and_dirs.each{|file|
+        if File.file?(file) && (file  =~ /.*\.aiml$/)
+          files << file
+          next
+        end
+        files += find(Dir.glob("#{file}/*"))
+      }
+      files
+    end
+  end
+end #module ProgramR

data/lib/programr/version.rb

@@ -0,0 +1,3 @@
+module Programr
+  VERSION = "0.0.1"
+end

data/programr.gemspec

@@ -0,0 +1,17 @@
+# -*- encoding: utf-8 -*-
+require File.expand_path('../lib/programr/version', __FILE__)
+
+Gem::Specification.new do |gem|
+  gem.authors       = ["Mauro Cicio, Nicholas H.Tollervey, Ben Minton and Robert J Whitney"]
+  gem.email         = ["robertj.whitney@gmail.com"]
+  gem.description   = %q{Ruby interpreter for the AIML}
+  gem.summary       = %q{ProgramR is a Ruby implementation of an interpreter for the Artificial Intelligence Markup Language (AIML) based on the work of Dr. Wallace and defined by the Alicebot and AIML Architecture Committee of the A.L.I.C.E. AI Foundation (http://alicebot.org}
+  gem.homepage      = "http://aiml-programr.rubyforge.org/"
+
+  gem.files         = `git ls-files`.split($\)
+  gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
+  gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
+  gem.name          = "programr"
+  gem.require_paths = ["lib"]
+  gem.version       = Programr::VERSION
+end

data/test/data/1.aiml

@@ -0,0 +1,125 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<aiml version="1.0.1" xmlns="http://alicebot.org/2001/AIML-1.0.1"
+      xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+      xsi:schemaLocation="http://alicebot.org/2001/AIML-1.0.1 http://aitools.org/aiml/schema/AIML.xsd">
+<!-- Free software (c) 2001 ALICE A.I. Foundation.   -->
+<!-- This program is open source code released under -->
+<!-- the terms of the GNU General Public License     -->
+<!-- as published by the Free Software Foundation.   -->
+<!-- Complies with AIML 1.0 Tag Set Specification -->
+<!-- as adopted by the ALICE A.I. Foundation.  -->
+<!-- A.L.I.C.E. Build Wed Sep 26 13:05:06 PDT 2001   -->
+<!-- 41124 total categories.  -->
+<category>
+<pattern>1 *</pattern>
+<template>One what?
+</template></category>
+<category>
+<pattern>1 0</pattern>
+<template>One.
+</template></category>
+<category>
+<pattern>1</pattern>
+<template>Only one?
+</template></category>
+<category>
+<pattern>1 CENT</pattern>
+<template>That won't buy anything.
+</template></category>
+<category>
+<pattern>1 DOLLAR</pattern>
+<template>You can't buy much for a dollar anymore.
+</template></category>
+<category>
+<pattern>1 OR 2</pattern>
+<template>A couple.
+</template></category>
+<category>
+<pattern>1 POINT *</pattern>
+<template>That's more precision than I need to know.
+</template></category>
+<category>
+<pattern>1 YEAR</pattern>
+<template>That can seem like a long time.
+</template></category>
+<category>
+<pattern>10 *</pattern>
+<template><srai>WHAT IS 10<star/></srai>
+</template></category>
+<category>
+<pattern>10</pattern>
+<template><srai>I AM 10 YEARS OLD</srai>
+</template></category>
+<category>
+<pattern>100 *</pattern><that>HOW MUCH *</that>
+<template>Wow that is <random>
+<li>expensive.</li>
+<li>a lot of money.</li>
+<li>more than I have.</li>
+</random>
+</template></category>
+<category>
+<pattern>100 PERSON</pattern>
+<template><srai>WHO IS 100 PERSON</srai>
+</template></category>
+<category>
+<pattern>11</pattern>
+<template><srai>I am 11 years old</srai>
+</template></category>
+<category>
+<pattern>12</pattern>
+<template><srai>I am 12 years old</srai>
+</template></category>
+<category>
+<pattern>123456789</pattern>
+<template>Ten.
+</template></category>
+<category>
+<pattern>13 *</pattern>
+<template><srai>I am 13 years old</srai>
+</template></category>
+<category>
+<pattern>13</pattern>
+<template><srai>I am 13 years old</srai>
+</template></category>
+<category>
+<pattern>14 *</pattern>
+<template><srai>I am 14 years old</srai>
+</template></category>
+<category>
+<pattern>14</pattern>
+<template><srai>I am 14 years old</srai>
+</template></category>
+<category>
+<pattern>15</pattern>
+<template><srai>I am 15 years old</srai>
+</template></category>
+<category>
+<pattern>153</pattern>
+<template>One hundred fifty three.
+</template></category>
+<category>
+<pattern>16</pattern>
+<template><srai>I am 16 years old</srai>
+</template></category>
+<category>
+<pattern>17</pattern>
+<template><srai>I am 17 years old</srai>
+</template></category>
+<category>
+<pattern>18</pattern>
+<template><srai>I AM 18 YEARS OLD</srai>
+</template></category>
+<category>
+<pattern>184</pattern>
+<template><srai>WHO IS 184 PERSON</srai>
+</template></category>
+<category>
+<pattern>19</pattern>
+<template><srai>I AM 19 YEARS OLD</srai>
+</template></category>
+<category>
+<pattern>1999</pattern>
+<template>This year.
+</template></category>
+</aiml>

data/test/data/facade.aiml

@@ -0,0 +1,233 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<aiml version="1.0.1" xmlns="http://alicebot.org/2001/AIML-1.0.1"
+      xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+      xsi:schemaLocation="http://alicebot.org/2001/AIML-1.0.1 http://aitools.org/aiml/schema/AIML.xsd">
+Client: I admire robots like you. 
+ Robot: That's good information: Joe said he admire robots like me. 
+
+<topic name="WORK">
+ <category>
+  <pattern>atomic test</pattern>
+  <template>new test succeded</template>
+ </category>
+</topic>
+
+ <category> 
+  <pattern>yes *</pattern> 
+  <template><srai>yes</srai> <sr/></template> 
+ </category> 
+   
+ <category> 
+  <pattern>yes</pattern> 
+  <template>ok yes</template> 
+ </category> 
+   
+<topic name="* GAME">
+ <category>
+  <pattern>atomic test</pattern>
+  <template>topic star test succeded <topicstar/></template>
+ </category>
+</topic>
+
+ <category>
+  <pattern>test thatstar</pattern>
+  <template>WHAT IS YOUR FAVORITE FOOTBALL TEAM</template> 
+ </category>  
+     
+ <category>
+  <pattern>MY FAVORITE FOOTBALL TEAM IS *</pattern>
+  <template>ALSO MINE IS <star index='1'/></template> 
+ </category>  
+     
+ <category>
+  <pattern>*</pattern> <that>WHAT IS YOUR FAVORITE *</that>
+  <template><srai>MY FAVORITE <thatstar/> IS <star/></srai></template> 
+ </category>  
+     
+ <category> 
+  <pattern>gender test 2 *</pattern> 
+  <template><gender><star/></gender></template> 
+ </category>
+      
+ <category> 
+  <pattern>test gender</pattern> 
+  <template><gender>he told to her to take a hike</gender> but
+            <gender>his ego was too much for her</gender></template> 
+ </category>
+      
+ <category> 
+  <pattern>* answers no</pattern> 
+  <template><person><star/></person> answers no</template> 
+ </category>
+      
+ <category> 
+  <pattern>you say everything ok to me</pattern> 
+  <template><person2>you say everything ok to me</person2></template> 
+ </category>
+      
+ <category> 
+  <pattern>test input</pattern> 
+  <template><input/>.<input index="2"/></template> 
+ </category>
+      
+ <category> 
+  <pattern>random test</pattern> 
+  <template>
+   <random>
+   <li>A</li>
+   </random>
+  </template> 
+ </category>
+      
+ <category> 
+  <pattern>formal test</pattern> 
+  <template><formal>the formal test</formal></template> 
+ </category>
+      
+ <category> 
+  <pattern>sentence test</pattern> 
+  <template><sentence>the sentence test</sentence></template> 
+ </category>
+      
+ <category> 
+  <pattern>I AM BLOND</pattern> 
+  <template>You sound very
+   <condition name="gender" value="*emale">attractive.</condition> 
+   <condition name="gender" value="male">handsome.</condition> 
+  </template> 
+ </category>
+      
+<category> 
+ <pattern>I AM RED</pattern> 
+  <template>You sound very 
+   <condition> 
+    <li name="gender" value="female">attractive.</li> 
+    <li name="gender" value="male">handsome.</li> 
+   </condition> 
+  </template> 
+ </category> 
+
+<category> 
+ <pattern>I AM BLACK</pattern> 
+  <template>You sound very 
+   <condition name="gender"> 
+    <li value="female">attractive.</li> 
+    <li value="male">handsome.</li> 
+   </condition> 
+  </template> 
+ </category> 
+	
+ <category>
+  <pattern>test set</pattern>
+  <template><get_gender/>.<set_gender>female</set_gender>.<get_gender/></template>
+ </category>
+
+ <category>
+  <pattern>think test. i am male</pattern>
+  <template>ok.<think><get_gender/></think></template>
+ </category>
+
+ <category>
+  <pattern>question test</pattern>
+  <template><question/></template>
+ </category>
+
+ <category>
+  <pattern>get test 1</pattern>
+  <template><bot_name/></template>
+ </category>
+
+ <category>
+  <pattern>get test 2</pattern>
+  <template><get name="ip"/></template>
+ </category>
+
+ <category>
+  <pattern>justbeforethat tag test</pattern>
+  <template><that index="2,1"/></template>
+ </category>
+
+ <category>
+  <pattern>that tag test</pattern>
+  <template><that/></template>
+ </category>
+
+ <category>
+  <pattern>atomic test</pattern>
+  <template>test succeded</template>
+ </category>
+
+ <category>
+  <pattern>srai test</pattern>
+  <template><srai>atomic test</srai><think><set_topic>WORK</set_topic></think></template>
+ </category>
+
+ <category>
+  <pattern>that test</pattern>
+  <that>NEW TEST SUCCEDED</that>
+  <template>that test 1</template>
+ </category>
+
+ <category>
+  <pattern>that test</pattern>
+  <that>THAT TEST 1</that>
+  <template>that test 2<think><set_topic>OK GAME</set_topic></think></template>
+ </category>
+
+ <category>
+  <pattern>uppercase test</pattern>
+  <template>the <uppercase>uppercase</uppercase> test</template>
+ </category>
+
+ <category>
+  <pattern>LOWERCASE TEST</pattern>
+  <template>the <lowercase>LOWERCASE</lowercase> test</template>
+ </category>
+
+ <category>
+  <pattern>DATE TEST</pattern>
+  <template><date/></template>
+ </category>
+      
+ <category>
+  <pattern>SYSTEM TEST</pattern>
+  <template>time:<system>date</system></template>
+ </category>
+      
+ <category>
+  <pattern>SIZE TEST</pattern>
+  <template><size/></template>
+ </category>
+      
+ <category>
+  <pattern>SPACE TEST</pattern>
+  <template>  TEST   SPACE  </template>
+ </category>
+
+ <!-- next three are test for * and _ -->
+ <category>
+  <pattern>This * her</pattern>
+  <template>star wins</template>
+ </category>
+
+  <category>
+    <pattern>This _ you</pattern>
+    <template>underscore wins</template>
+  </category>
+  
+  <category>
+    <pattern>This * you</pattern>
+    <template>star does not win</template>
+  </category>
+
+  <category>
+    <pattern>This is clearly you</pattern>
+    <template>explicit pattern wins</template>
+  </category>
+
+  <category>
+    <pattern>These * clearly * them</pattern>
+    <template>first star is <star index="1"/> second star is <star index="2"/></template>
+  </category>
+  <!-- end test for * and _ -->
+</aiml>