rwdeliza 0.03

data/code/dd0viewphoto/dd0viewphoto.rb

@@ -0,0 +1,3 @@
+def viewphoto
+	@rwd_window = "photo"
+end

data/code/superant.com.rwdeliza/0uninstallapplet.rb

@@ -0,0 +1,10 @@
+
+def rwdweliza_0_03()
+$tinkerdocumentsarray.delete_if {|x| x == "HowTo_Eliza.txt"}
+$tinkerhelpaboutarray.delete_if {|x| x == "RwdEliza"}
+Helptext.delete_if {|key, value| key == :rwdeliza_help  }
+Helptext.delete_if {|key, value| key == :rwdeliza_configuration }
+$rwdjumplink.delete_if {|x| x == "RwdElizaWindow"}
+$rwdjumplink.delete_if {|x| x == "RwdWordsMainWindow"}
+
+end

data/code/superant.com.rwdeliza/eliza01.rb

@@ -0,0 +1,45 @@
+# process statements
+
+BEGIN {
+	$LOAD_PATH.unshift File::dirname(File::dirname( __FILE__ )) + "/lib"
+	require 'linguistics'
+       require 'linkparser'
+	
+}
+
+def process_eliza_sentence
+Linguistics::use( :en )
+
+# Just 
+
+
+
+
+  
+  # Test to see whether or not the link parser is loaded.
+#Linguistics::EN.has_link_parser?
+temp_sentence = "unknown"
+if ! @a_sentence_in.to_s.empty?
+temp_sentence = @a_sentence_in.to_s.downcase
+end
+
+@showelizaresult = "\n"
+@showelizaresult += "Sentence = "
+
+@showelizaresult += "#{temp_sentence}" 
+begin 
+
+ temp_elizaresponse_directory = $rwdelizadata_directory + "/" + $rwdelizaresponse_directory 
+
+fileList      = Dir.new(temp_elizaresponse_directory).entries.sort.delete_if { |x| ! (x =~ /res$/) }
+  
+  temp_index_num = rand(4) 
+  temp_resfile = fileList[temp_index_num]
+  fileName = File.join(temp_elizaresponse_directory,temp_resfile)
+  fd = File.open(fileName,"r")
+  temp_response = fd.readline.chomp
+ @showelizaresult = temp_response
+  @eventrecordsresult = "error opening response"
+  end # end of error function
+  
+end

data/code/superant.com.rwdeliza/helptexthashrwdeliza.rb

@@ -0,0 +1,39 @@
+  
+
+ Helptext.update( :rwdelizasentence_help => "     Eliza is a toy program
+  to test sentence production by computer
+      
+  This program is just starting to be developed
+
+   on the 'Sentence' tab you can enter a simple sentence
+   like
+   
+  feed the dog
+
+   if it can parse the sentence It displays the subject, verb and object. 
+   don't use puncuation.
+     The words that can be parsed are in
+   tiny.dict in the ElizaData directoy
+   and in the words directoy under that
+   
+   
+  ",
+       
+       
+       :rwdeliza_generalhelp => "  Eliza is a toy program
+  to test sentence production by computer
+      
+  This program is just starting to be developed
+
+  at this version it is just responding randomly
+  
+  The plan is to parse input sentences and general
+  responses that are learned over time
+ 
+   The 'Sentence' tab can do simple parsing of simple sentences.
+   
+   like:   feed the dog 
+ "
+ 
+
+)

data/code/superant.com.rwdeliza/openhelpwindowrwdeliza.rb

@@ -0,0 +1,23 @@
+# this code is to call the help window
+def runhelpwindowrwdeliza
+
+     $help_topic = "rwdeliza_generalhelp"
+   if @rwd_tab == "RwdEliza"
+     $help_topic = "rwdeliza_generalhelp"
+   end
+   if @rwd_tab == "SentenceStructure"
+   $help_topic = "rwdelizasentence_help"
+   end
+      
+   $helptopicsarray =  $helptopicsarray | ["rwdeliza_generalhelp","rwdelizasentence_help"]
+  
+   
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

data/code/superant.com.rwdeliza/runrwdshellwindow.rb

@@ -0,0 +1,12 @@
+# Application Rwdtinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a contact book
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def runrwdelizawindow
+
+   @rwd_window = "rwdelizawindow"
+   @rwd_tab="RwdEliza"
+   
+   end   
+   

data/code/superant.com.rwdeliza/rwdtinkerversion.rb

@@ -0,0 +1,10 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# For  information see http://www.rubyforge.net/projects/rwdapplications
+
+# return the version constant defined in the config file
+def rwdelizahelpaboutsetup
+return ["RwdEliza","(c) 2005 Steven Gibson ","Version #{RwdElizaVersion}"]
+end
+
+

data/code/superant.com.rwdeliza/tagsentence.rb

@@ -0,0 +1,39 @@
+#!/usr/bin/ruby
+
+BEGIN {
+	$LOAD_PATH.unshift File::dirname(File::dirname( __FILE__ )) + "/lib"
+	require 'linguistics'
+       require 'linkparser'
+	
+}
+
+def tag_sentence_rwdeliza
+Linguistics::use( :en )
+
+# Just a fun little demo of the conjunction (junction, what's your) function.
+
+
+
+
+  
+  # Test to see whether or not the link parser is loaded.
+#Linguistics::EN.has_link_parser?
+temp_sentence = "unknown"
+if ! @a_sentence_in_to_tag.to_s.empty?
+temp_sentence = @a_sentence_in_to_tag.to_s.downcase
+end
+
+@showrwdelizasentenceresult = "\n"
+@showrwdelizasentenceresult += "Sentence = "
+
+@showrwdelizasentenceresult += "#{temp_sentence}" 
+@showrwdelizasentenceresult += "\n"
+@showrwdelizasentenceresult += "Subject = "
+@showrwdelizasentenceresult += "#{temp_sentence}".en.sentence.subject.to_s 
+@showrwdelizasentenceresult += "\n"
+@showrwdelizasentenceresult += "Verb = "
+@showrwdelizasentenceresult += "#{temp_sentence}".en.sentence.verb.to_s 
+@showrwdelizasentenceresult += "\n"
+@showrwdelizasentenceresult += "Object = "
+@showrwdelizasentenceresult +=  "#{temp_sentence}".en.sentence.object.to_s
+end

data/code/superant.com.rwdtinkerbackwindow/diagnostictab.rb

@@ -0,0 +1,19 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# For information  see http://www.rubyforge.net/projects/rwdapplications
+
+require 'resolv'
+require 'date'
+
+# return the platform information
+def runviewplatform
+	@platformdisplay = "Platform is " + RUBY_PLATFORM + "\n"
+	@platformdisplay =  @platformdisplay + "Ruby Version " + VERSION + "\n" 
+	@platformdisplay  = @platformdisplay  + "rwdtinker version " + RwdTinkerVersion + "\n"
+	@platformdisplay = @platformdisplay + "program directory " + $progdir + "\n"
+	@platformdisplay = @platformdisplay  + "hostname " + Resolv.getname(Resolv.getaddress("localhost")) + "\n"
+	@platformdisplay = @platformdisplay  + "application name " +  $rwdapplicationidentity   + "\n"
+	@platformdisplay = @platformdisplay +  "Date " +      Date.today().to_s
+
+end
+

data/code/superant.com.rwdtinkerbackwindow/helptexthashtinkerwin2.rb

@@ -0,0 +1,61 @@
+# help text files used by context sensitive help  
+
+ Helptext.update( :tinkerwin2_help => "    You can view the list of applets you can install
+      by clicking on the list files button
+
+           You can download an applet created by someone else
+           
+      put the file in the zips directory
+      
+      rwdtinker applets packaged as RubyGems can be used if you have RubyGems installed.
+      You can download rwdtinker gems at the 'Install Remote Applets' tab
+      to install applets you need the ruby zlib library installed
+      ",
+     :applet_viewing   =>  "You can get a list of all installed applets by clicking the 'listfiles button'
+         To see the text of a install file
+       Type in the name of the file you want.
+      
+       type it without the inf ending
+       rwdapplet-0.1
+       
+       Then click the 'View Installed File' button
+       
+       If it finds the file it will open it. It displays the text the search box.
+
+      You can uninstall applets on this screen",
+      
+  :applet_installation  => " You can download an applet created by someone else\n
+      put the file in the zips directory\n
+      
+      click on the 'list zips' tab\n
+      click on 'list applets available for installing'\n
+      
+      chose the applet you want\n
+      click on 'install applet'\n
+      If all goes well the applet should be installed.\n
+      You will need to restart rwdtinker to see the new screens
+       to install applets you need the ruby zlib library installed",
+
+     :applet_tinkerbackeditconfiguration  => " You can edit the configuration
+  
+  Remember to reload the configuration variables if you want your
+  changes used.",
+  :remotegemapplet_install  => " To download and install use the 'Install Remote Applets'
+  
+  First click on 'List applets in the Remote GEM Repository available for downloading'
+  then go to the very bottom to click on the applet you want
+  then on the top click 'install remote Gem applet package'
+  
+  This installs the package in the Gem system
+  You still need to install it into rwdtinker - do that in the 'List Zips' tab
+  
+  For this feature to work, you need
+  RubyGems installed
+   Variables set correctly in the tinerwin2.cnf file
+      $xpcommand,  $gemdirectory_withgemfiles and  $geminstalled_directory
+    the defaults as shipped will normally be for a Debian Linux system  
+   On Debian Linux, you would usually need to be running rwdtinker as root in order to install RubyGems
+   
+   You can view the list of rwdtinker applets you have installed already by clicking 'view already installed GEM applets'
+ "
+)

data/code/superant.com.rwdtinkerbackwindow/initiateapplets.rb

@@ -0,0 +1,240 @@
+
+#***********************************************************************
+#* Rwd/Tinker -- A Ruby program for the RudyWebDialog.
+#* Copyright (c) 2004 - 2005 by Steven Gibson. All Rights Reserved.
+#*
+#* This library is free software; you can redistribute it and/or
+#* modify it under the terms of the GNU General Public
+#* License as published by the Free Software Foundation; either
+#* .
+#*
+#* These files are distributed in the hope that they will be useful,
+#* but WITHOUT ANY WARRANTY; without even the implied warranty of
+#* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#* General Public License for more details.
+#*
+#* You should have received a copy of the GNU General Public
+#* License along with these files; if not, write to the Free Software
+#* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#*
+#* For further information please contact the author by e-mail
+#* at "smalllinux@gmail.com".
+#***********************************************************************/
+
+
+
+# integrate the new configuration files
+def initiateapplet(nametextlocal)
+	
+	debuginitiate = 0
+	
+	if $DEBUG
+ $stderr.puts "starting config load with: #{nametextlocal}"
+        end
+
+
+  Dir.chdir($progdir )    #changes the current working directory
+	  
+  @confignew =  "configuration/" + "#{nametextlocal}.cnf"
+  @configdist =  "configuration/" + "#{nametextlocal}.dist"
+  Rconftool::install(@configdist,@confignew)
+
+begin 
+
+  configfileload = File.open(@configdist){|f| f.read}
+	 
+       eval configfileload  #load  config file
+       
+    
+	
+	 rescue
+   
+           if $DEBUG
+              $stderr.puts  "error in initiateapplets - config load"
+          end
+        debuginitiate += 1
+end
+$tempdoc = " "
+  
+  Dir.chdir($progdir) # change back to top program directory
+
+  # build the English Language hash file from the parts
+  languagehashvariable = 'Message.update('
+  startlangdir = File.join(LangDir,"en")
+  #get a list of the files and subdirectories on the starting directory only
+  alanghash = Array.new(Dir[startlangdir].entries.sort)
+  #loop through the list, ignore the files and add all new directories found
+  alanghash.each do |x|
+	  #if a directory...
+	  if(test(?d,x))
+		  # add to the original list of directories
+		  @@tmproot = x + "/**"
+		  #adds the new ones to the array
+		  blanghash = Dir[@@tmproot].entries.sort
+		  blanghash.each do |x|
+			  if(test(?d,x))
+				  alanghash.push(x)  #appends to the end of the array...
+			  end
+		  end
+	  end
+  end
+  alanghash.each do |x|
+	  #if it is a file...
+	  if(!test(?d,x))
+		  alanghash.delete(x)
+	  else              #it is a directory...
+		  findfiles(x + "/**")
+	  end
+  end
+
+
+  #writes the contents of doc into the  languagehashvariable 
+
+  
+  languagehashvariable  =  languagehashvariable + $tempdoc + ' :rwdtinker => "Rwdtinker" ) ;'
+
+  # END of en Lang building
+  $tempdoc = " "
+  Dir.chdir($progdir) # change back to top program directory
+
+  # build the local Language hash file from the parts
+  startlangdir = File.join(LangDir,$lang)
+  #get a list of the files and subdirectories on the starting directory only
+  alanghash = Array.new(Dir[startlangdir].entries.sort)
+  #loop through the list, ignore the files and add all new directories found
+  alanghash.each do |x|
+	  #if a directory...
+	  if(test(?d,x))
+		  # add to the original list of directories
+		  @@tmproot = x + "/**"
+		  #adds the new ones to the array
+		  blanghash = Dir[@@tmproot].entries.sort
+		  blanghash.each do |x|
+			  if(test(?d,x))
+				  alanghash.push(x)  #appends to the end of the array...
+			  end
+		  end
+	  end
+  end
+  alanghash.each do |x|
+	  #if it is a file...
+	  if(!test(?d,x))
+		  alanghash.delete(x)
+	  else              #it is a directory...
+		  findfiles(x + "/**")
+	  end
+  end
+
+
+  #writes the contents of doc into the variable
+
+ languagehashvariable =  languagehashvariable  + "  Message.update(" + $tempdoc + ' :rwdtinker => "Rwdtinker" ) '
+ 
+  
+    
+  $tempdoc = " "
+
+  Dir.chdir($progdir) # change back to top program directory
+
+   temp = eval(   languagehashvariable )
+
+  
+  tempguistorage = $rwd_gui_tinker # if gui load fails restore old
+  begin # error trap
+  
+	# build the actual GUI from the gui parts
+  $tempdoc = " "
+  #get a list of the files and subdirectories on the starting directory only
+  a = Array.new(Dir[GuiDir].entries.sort)
+  #loop through the list, ignore the files and add all new directories found
+  a.each do |x|
+	  #if a directory...
+	  if(test(?d,x))
+		  #use this new dir find to add to the original list of directories
+		  @@root = x + "/**"
+		  #adds the new ones to the array
+		  b = Dir[@@root].entries.sort
+		  b.each do |x|
+			  if(test(?d,x))
+				  a.push(x)  #appends to the end of the array...
+			  end
+		  end
+	  end
+  end
+  a.each do |x|
+	  #if it is a file...
+	  if(!test(?d,x)) 
+		  a.delete(x)
+
+	  else #it is a directory...
+		  loadguifile(x + "/**")
+		  
+		  
+	  end
+  end
+
+$rwd_gui_tinker = $tempdoc
+
+  
+ rescue
+    $rwd_gui_tinker = tempguistorage # restore old gui
+           if $DEBUG
+              $stderr.puts  "error in initiateapplets - gui building"
+          end
+
+        debuginitiate += 1
+end
+
+begin # error trap
+# now load in the code files
+
+$tempdoc  = ""
+tempcodeinstallline  = ""
+
+         @fileName = "installed/" + nametextlocal + ".inf"
+	
+  tmpfilearray = File.readlines(@fileName)
+  
+  tmpfilearray.each do |line|
+	  
+       tempcodeinstallline = line.chomp
+       if tempcodeinstallline.include?('code/')
+	     findfiles(tempcodeinstallline  + "/**")
+            tempcoderesult = eval( $tempdoc ) # read the program code and evaluate
+       end
+end 
+
+
+ rescue
+    if $DEBUG
+              $stderr.puts  "error in initiateapplets - code building"
+          end
+        debuginitiate += 1
+    
+
+  end
+  
+ setuphelpaboutoptions # update the help about list
+       setuptinkerdocuments # update the document pull down list
+       runhelpwindow   # update the help menu
+        showjumplinkoptions # update the application link menu
+	runrwdtinkerbackwindow # back to applet window
+
+ # resultend =  tempcodeinstallline .index("\n",resultstart)
+ tempresult  = @fileName
+ 
+return " applet loading successful " + tempresult 
+
+
+  
+       if  debuginitiate > 0
+         return " initiateapplet .."
+       else
+	   return " initiateapplet success"
+	end
+
+end
+
+
+
+