programr 0.0.1

data/.gitignore

@@ -0,0 +1,17 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in programr.gemspec
+gemspec

data/LICENSE

@@ -0,0 +1,22 @@
+Copyright (c) 2012 Robert Whitney
+
+MIT License
+
+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.

data/README.md

@@ -0,0 +1,64 @@
+# Programr
+
+### Aside:
+
+This is just a simple port of http://aiml-programr.rubyforge.org/ (authored in 2007), to something
+a tiny bit more usable. No new code really, I just sorta took the necessary parts to turn it into a gem for curiosities sake.
+
+AIML itself seems pretty simple, and weak as far as pattern matching goes, but the ALICE bot has won the Loebner prize, so there's that.
+
+### About:
+
+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
+
+### Authors
+
+Mauro Cicio, Nicholas H.Tollervey and Ben Minton
+
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'programr'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install programr
+
+## Usage
+```ruby
+#programr_test.rb
+
+require 'bundler'
+Bundler.setup :default
+
+require 'programr'
+
+if ARGV.empty?
+  puts 'Please pass a list of AIMLs and/or directories as parameters'
+  puts 'Usage: ruby programr_test.rb {aimlfile|dir}[{aimlfile|dir}]...'
+  exit
+end
+
+robot = ProgramR::Facade.new
+robot.learn(ARGV)
+
+while true
+  print '>> '
+  s = STDIN.gets.chomp
+  reaction = robot.get_reaction(s)
+  STDOUT.puts "<< #{reaction}"
+end
+```
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Added some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request

data/Rakefile

@@ -0,0 +1,2 @@
+#!/usr/bin/env rake
+require "bundler/gem_tasks"

data/conf/readOnlyTags.yaml

@@ -0,0 +1,37 @@
+---
+    'bot_name': 'infobot'
+    'bot_location': 'vancouver'
+    'bot_gender': 'male'
+    'bot_birthday': 'December 19, 2008'
+    'bot_master': 'infil00p'
+    'bot_birthplace': 'vancouver'
+    'bot_boyfriend': 'no'
+    'bot_favoritefood': 'mathematics'
+    'bot_favoritemovie': 'Wargames'
+    'bot_favoriteband': 'Flight of the Conchords'
+    'bot_favoritebook': 'I, Robot'
+    'bot_favoritecolor': 'red'
+    'bot_favoritesong': 'The Humans are Dead'
+    'bot_friends': 'alice'
+    'bot_girlfriend': 'no'
+    'bot_wear': 'casual'
+    'bot_sign': 'none'
+    'bot_looklike': 'handsome'
+    'bot_music': 'rock'
+    'bot_talkabout': 'science'
+    'for_fun': 'read'
+    'getversion': '01'
+    'getsize': '0'
+    'question': 
+      - "are you never tired to do the same things every day?"
+      - "Say something nice to me"
+    'name': "client"
+    'topic': 'general'
+    'ip': 'localhost'
+    'it': 'it'
+    'they': 'they'
+    'we': 'we'
+    'gender': 'male'
+    'location': 'canada'
+    'age': '40'
+    'has': 'nothing'

data/lib/programr.rb

@@ -0,0 +1,5 @@
+require "programr/version"
+require 'programr/facade'
+
+module Programr
+end

data/lib/programr/aiml_elements.rb

@@ -0,0 +1,352 @@
+require 'programr/environment'
+
+module ProgramR
+
+class Category
+  attr_accessor :template, :that, :topic
+
+  @@cardinality = 0
+  def initialize 
+    @@cardinality += 1 
+    @pattern = []
+    @that    = []
+  end
+  
+  def Category.cardinality; @@cardinality end
+
+  def add_pattern(anObj)
+    @pattern.push(anObj)
+  end
+
+  def add_that(anObj)
+    @that.push(anObj)
+  end
+
+  def get_pattern
+    res = ''
+    @pattern.each{|tocken|
+      res += tocken.to_s
+    }
+    return res.split(/\s+/)
+  end
+  
+  def get_that
+    res = ''
+    @that.each{|tocken|
+      res += tocken.to_s
+    }
+    return res.split(/\s+/)
+  end
+end
+
+class Template
+  attr_accessor :value
+
+  def initialize() @value = [] end
+  def add(anObj) @value << anObj end
+  def append(aString)
+    @value << aString.gsub(/\s+/, ' ')
+  end
+
+  def inspect
+    res = ''
+    @value.each{|tocken| res += tocken.inspect }
+    res
+  end
+end
+
+class Random
+  @@environment = Environment.new
+  
+  def initialize; @conditions = [] end
+  def setListElement(someAttributes) 
+    @conditions.push([])
+  end
+  
+  def add(aBody)
+    @conditions[-1].push(aBody)
+  end
+
+  def execute
+    res = ''
+    @@environment.getRandom(@conditions).each{|tocken|
+      res += tocken.to_s
+    }
+    return res.strip
+  end
+  alias to_s execute
+  def inspect(); "random -> #{execute}" end
+end
+
+class Condition
+  #se c'e' * nel value?
+  @@environment = Environment.new
+  
+  def initialize(someAttributes)
+    @conditions = {}
+    @property = someAttributes['name']
+    @currentCondition = someAttributes['value'].sub('*','.*')
+  end
+  
+  def add(aBody)
+    unless @conditions[@currentCondition]
+      @conditions[@currentCondition] = []
+    end
+    @conditions[@currentCondition].push(aBody)
+  end
+
+  def setListElement(someAttributes)
+    @property = someAttributes['name'] if(someAttributes.key?('name'))
+    @currentCondition = '_default'
+    if(someAttributes.key?('value'))
+      @currentCondition = someAttributes['value'].sub('*','.*') 
+    end
+  end
+  
+  def execute
+    return '' unless(@@environment.get(@property) =~ /^#{@currentCondition}$/)
+    res = ''
+    @conditions[@currentCondition].each{|tocken|
+      res += tocken.to_s
+    }
+    return res.strip
+  end
+  alias to_s execute
+  def inspect()
+    "condition -> #{execute}" 
+  end
+end
+
+class ListCondition < Condition
+  def initialize(someAttributes)
+    @conditions = {}
+    @property = someAttributes['name'] if(someAttributes.key?('name'))
+  end
+  
+  def execute
+    @conditions.keys.each do |key|
+      if(@@environment.get(@property) == key)
+        res = ''
+        @conditions[key].each{|tocken|
+        res += tocken.to_s
+      }
+      return res.strip
+      end
+    end
+    return ''
+  end
+  alias to_s execute
+end
+
+class SetTag
+  @@environment = Environment.new
+  
+  def initialize(aLocalname,attributes)
+    if(attributes.empty?)
+      @localname = aLocalname.sub(/^set_/,'')
+    else
+      @localname = attributes['name']
+    end
+    @value = []
+  end
+  
+  def add(aBody)
+    @value.push(aBody)
+  end
+  
+  def execute
+    res = ''
+    @value.each{|tocken|
+      res += tocken.to_s
+    }
+    @@environment.set(@localname,res.strip)
+  end
+  alias to_s execute
+  def inspect(); "set tag #{@localname} -> #{execute}" end
+end
+
+class Input
+  @@environment = Environment.new
+  
+  def initialize(someAttributes)
+    @index = 1 
+    @index = someAttributes['index'].to_i if(someAttributes.key?('index'))
+  end
+  
+  def execute
+    @@environment.getStimula(@index)
+  end
+  alias to_s execute
+  def inspect(); "input -> #{@@environment.getStimula(@index)}" end
+end
+
+class Star
+  @@environment = Environment.new
+
+  def initialize(aStarName,someAttributes)
+    @star = aStarName
+    @index = 0
+    @index = someAttributes['index'].to_i-1 unless(someAttributes.empty?)
+  end
+  
+  def execute
+    @@environment.send(@star,@index) 
+  end
+  alias to_s execute
+  def inspect() 
+    return "#{@star} #{@index} -> #{@@environment.send(@star,@index)}" 
+  end
+end
+
+class ReadOnlyTag
+  @@environment = Environment.new
+
+  def initialize(aLocalname,someAttributes)
+    @localname    = aLocalname.sub(/^get_/,'')
+    if(someAttributes.key?('index') && @localname == 'that')
+      @localname = 'justbeforethat' if someAttributes['index'] == '2,1'
+      someAttributes = {}
+    end
+    @attributed   = someAttributes
+  end
+  
+  def execute
+    return @@environment.get(@localname) if(@attributed.empty?)
+    @@environment.get(@attributed['name']) 
+  end
+  alias to_s execute
+  def inspect() 
+    return "roTag #{@localname} -> #{execute}" 
+  end
+end
+
+class Think
+  def initialize(aStatus); @status = aStatus end
+
+  def execute; @status end
+  alias to_s execute
+  def inspect(); "think status -> #{@status}" end
+end
+
+class Size
+  def execute; Category.cardinality.to_s end
+  alias to_s execute
+  def inspect(); "size -> #{Category.cardinality.to_s}" end
+end
+
+class Sys_Date
+  def execute; Date.today.to_s  end
+  alias to_s execute
+  def inspect(); "date -> #{Date.today.to_s}" end
+end
+
+class Srai
+def initialize(anObj=nil) 
+  @pattern = [] 
+  @pattern.push(anObj) if(anObj)
+end
+def add(anObj); @pattern.push(anObj) end
+def pattern
+  res = ''
+  @pattern.each{|tocken|
+    res += tocken.to_s
+  }
+  return res.strip
+end
+  def inspect(); "srai -> #{pattern}" end
+end
+
+class Person2
+  @@environment = Environment.new
+  @@swap = {'me' => 'you', 'you' => 'me'}
+  def initialize; @sentence = [] end
+  def add(anObj); @sentence.push(anObj) end
+  def execute
+    res = ''
+    @sentence.each{|tocken|
+      res += tocken.to_s
+    }
+    gender = @@environment.get('gender')
+    res.gsub(/\b((with|to|of|for|give|gave|giving) (you|me)|you|i)\b/i){
+      if($3)
+        $2.downcase+' '+@@swap[$3.downcase]
+      elsif($1.downcase == 'you')
+        'i'
+      elsif($1.downcase == 'i')
+        'you'
+      end
+    }
+  end
+  alias to_s execute
+  def inspect(); "person2 -> #{execute}" end
+end
+
+class Person
+  @@environment = Environment.new
+  @@swap = {'male' => {'me'     => 'him', 
+                       'my'     => 'his', 
+                       'myself' => 'himself', 
+                       'mine'   => 'his', 
+                       'i'      => 'he', 
+                       'he'     => 'i', 
+                       'she'    => 'i'},
+            'female' => {'me'   => 'her', 
+                         'my'     => 'her', 
+                         'myself' => 'herself',
+	                       'mine'   => 'hers',
+                         'i'      => 'she',
+                         'he'     => 'i',
+                         'she'    => 'i'}}
+
+  def initialize; @sentence = [] end
+  def add(anObj); @sentence.push(anObj) end
+  def execute
+    res = ''
+    @sentence.each{|tocken|
+      res += tocken.to_s
+    }
+    gender = @@environment.get('gender')
+    res.gsub(/\b(she|he|i|me|my|myself|mine)\b/i){
+      @@swap[gender][$1.downcase]
+    }
+  end
+  alias to_s execute
+  def inspect(); "person-> #{execute}" end
+end
+
+class Gender
+  def initialize; @sentence = [] end
+  def add(anObj); @sentence.push(anObj) end
+  def execute
+    res = ''
+    @sentence.each{|tocken|
+      res += tocken.to_s
+    }
+    res.gsub(/\b(she|he|him|his|(for|with|on|in|to) her|her)\b/i){
+
+    pronoun = $1.downcase
+      if(pronoun == 'she')
+        'he'
+      elsif(pronoun ==  'he')
+        'she'
+      elsif(pronoun ==  'him' || pronoun ==  'his')
+        'her'
+      elsif(pronoun ==  'her')
+        'his'
+      else
+        $2.downcase + ' ' + 'him'
+      end
+    }
+  end
+  alias to_s execute
+  def inspect(); "gender -> #{execute}" end
+end
+
+class Command
+  def initialize(text) @command = text end
+  def execute; `#{@command}` end
+  alias to_s execute
+  def inspect() "cmd -> #{@command}" end
+end
+
+end #ProgramR