rwdfoldeditor 0.02 → 0.03

data/code/01rwdcore/01rwdcore.rb

@@ -4,8 +4,8 @@
 # For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
 # This class is the top class for the RwdTinker application 
 
-$DEBUG=false
-$VERBOSE=false
+$DEBUG=true
+$VERBOSE=true
 
 class RwdTinker  < RWDialog
 

data/code/superant.com.foldback/clearhttpview3.rb

@@ -0,0 +1,9 @@
+   # this method clears the on screen variables
+   def clearthesaurus
+ 
+        
+      @a_thesaurusdata = ""
+      
+     
+
+  end

data/code/superant.com.foldback/dictlookup.rb

@@ -0,0 +1,20 @@
+# dictionary
+  def dictlookup
+  require 'lib/dict'
+if ! @a_dictionaryinput.empty?
+
+  dict = DICT.new('dict.org', DICT::DEFAULT_PORT)
+  dict.client('a Ruby/DICT client')
+  definitions = dict.define(DICT::ALL_DATABASES, @a_dictionaryinput)
+  @dictionary_display = ""
+  if definitions
+    definitions.each do |d|
+   @dictionary_display = @dictionary_display +  d.description  + d.database + "\n"
+      d.definition.each { |line| @dictionary_display = @dictionary_display + line }
+    end
+  end
+
+  dict.disconnect
+  @dictionary_display  = @dictionary_display + "\n\n"
+  end
+end

data/code/superant.com.foldback/eliza.rb

@@ -0,0 +1,8 @@
+require 'net/http'
+
+def ai_eliza()
+    response = Net::HTTP.post_form(URI.parse("http://www-ai.ijs.si/eliza-cgi-bin/eliza_script"),{'Entry1'=>@ai_datain})
+
+    @eliza_result = response.body.split("</strong>\n").last.split("\n").first
+      
+end

data/code/superant.com.foldback/helptexthashrwdhypernote.rb

@@ -0,0 +1,19 @@
+  
+
+ Helptext.update( :rwdthesaurus_generalhelp => "This program is a thesaurus word search
+      
+  If you have entered a word in this tab
+ 
+  You can search by clicking Display word results
+
+  This should search the thesaurus files you have set up and return a list of words on separate lines
+  
+  You can click on one of those and it should be transfered to the search box, then click Display again
+  
+  The words with bracketed comments won't be found, erase the bracketed part first
+  
+ This uses the openoffice Thesaurus
+ make a link from the actual oo thesaurus files you use to rwd_files/idx and rwd_files/dat
+       
+ "
+)

data/code/superant.com.foldback/listwordlookup.rb

@@ -0,0 +1,37 @@
+# this code is to list the word results
+def fillthesaurusword(inffile)
+  applet                = inffile
+  @a_thesaurusinput  = applet
+  
+end
+
+  
+def listwordresults
+require "lib/oothesaurus"
+
+the=OOThesaurus.new()
+history=[]
+ 
+ filepath = "rwd_files"
+ filepathidx = File.join(filepath,"idx")
+ filepathdat = File.join(filepath,"dat")
+word = @a_thesaurusinput.downcase.strip 
+notesarray = the::dosearch(the,history,word,true,filepathidx,filepathdat)
+       
+       finalarray = []
+   
+	 a_thesaurusdata  = ""
+	notesarray.each { |x| x.each { |x2| 
+	 
+	finalarray << x2 unless x2 == "(noun)" or x2 == "(verb)" or  x2 == "(adj)"
+	}
+	
+	}
+		        	@a_thesaurusdata  = finalarray.entries.sort.rwd_method("fillthesaurusword")
+	end
+	
+
+
+
+
+

data/code/superant.com.foldback/openhelpwindowrwdhyernote.rb

@@ -0,0 +1,13 @@
+# this code is to call the help window
+def runhelpwindowrwdthesaurus
+
+     $help_topic = "rwdthesaurus_generalhelp"
+   
+   if @rwd_tab == "superantcomthesaurus"
+        $help_topic = "rwdthesaurus_generalhelp"
+   end
+
+  runhelpwindow
+end
+
+

data/code/superant.com.foldback/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 rwdfoldbackwindow
+
+   @rwd_window = "rwdfoldbackwindow"
+   @rwd_tab="dictlookup"
+   
+   end   
+   

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

@@ -1,10 +1,11 @@
 
-def rwdwfoldeditor_0_02()
+def rwdwfoldeditor_0_03()
 $tinkerdocumentsarray.delete_if {|x| x == "HowTo_FoldEditor.txt"}
 $tinkerhelpaboutarray.delete_if {|x| x == "RwdFoldEditor"}
 Helptext.delete_if {|key, value| key == :rwdfoldeditor_generalhelp}
 Helptext.delete_if {|key, value| key == :foldlinkview_help }
 Helptext.delete_if {|key, value| key == :foldlinkutility_help }
 $rwdjumplink.delete_if {|x| x == "RwdFoldEditor"}
+$rwdjumplink.delete_if {|x| x == "FoldBackWindow"}
 
 end

data/code/superant.com.foldeditor/clearnotescreen.rb

@@ -0,0 +1,7 @@
+   # this method clears the on screen variables
+
+   def clearfoldnote
+    @folddocumentresult = ""
+      
+      
+  end

data/code/superant.com.foldeditor/rwddisplayfoldlinks.rb

@@ -1,12 +1,12 @@
-   # this method clears the on screen variables
-   def fillziptoinstallnamex(inffile)
+# this method views the fold links
+def fillziptoinstallnamex(inffile)
 	applet                = inffile.strip
 	@a_viewfoldlink         = applet
 	
 end
 
    
-  def rwddisplayfoldlinks
+def rwddisplayfoldlinks
   if @a_viewfoldlinkfile
        if @a_viewfoldlinkfile.empty?  # a fold link file has not been selected
   
@@ -24,10 +24,10 @@ end
    tmpfilearray  << line.strip  
 }
 
-  @a_displayfoldlinks01 = tmpfilearray.entries.sort.rwd_method("fillziptoinstallnamex")
+  @a_displayfoldlinks01 = tmpfilearray.entries.rwd_method("fillziptoinstallnamex")
  @displayfoldlinkoptions  = tmpfilearray.rwd_options
  
 
  
   end 
- 
+ 

data/configuration/{rwdwfoldeditor-0.02.dist → rwdwfoldeditor-0.03.dist}

@@ -1,4 +1,4 @@
-##VERSION:0.02
+##VERSION:0.03
 ##NAME:$rwdfoldeditor_directory:0
 $rwdfoldeditor_directory = "rwd_files"
 ##NAME:$foldeditorbrowser:0
@@ -7,8 +7,8 @@ $foldeditorbrowser = "firefox"
 $testharnessarray += ["rwdfoldeditor_all_tests"]
 $tinkerhelpaboutarray += ["RwdFoldEditor"] 
 $tinkerdocumentsarray += ["HowTo_FoldEditor.txt"]
-JumpLink.update(:RwdFoldEditor=>"runrwdfoldeditorwindow")
-$rwdjumplink +=["RwdFoldEditor"]
+JumpLink.update(:RwdFoldEditor=>"runrwdfoldeditorwindow", :FoldBackWindow=> "rwdfoldbackwindow")
+$rwdjumplink +=["RwdFoldEditor","FoldBackWindow"]
 ##NAME:RwdFoldEditorVersion:0
-RwdFoldEditorVersion = "0.02"
+RwdFoldEditorVersion = "0.03"
 

data/gui/tinkerbackwindows/superant.com.foldeditor/10aviewnote.rwd

@@ -5,38 +5,31 @@ $rwdguivar=
     <table>
     <row>View your note list and detail on this Tab (only click on text files)</row>
      <row> <p> </row> 
-      <row> <p align=\"right\">Note Record:</p>  <text size=40 name=\"a_viewfoldlink\"/> </row>
+      <row>   <text size=70 name=\"a_viewfoldlink\"/> </row>
 
     </table>
       <horizontal>
-      <button caption=\"Open Detail\" action=\"loadfolddocument\"/>
-    
-    <button caption=\"Create New Note\" action=\"rwdfoldeditcreatenewnote\"/>
-          
+      <button caption=\"Open Detail\" action=\"loadfolddocument\"/>
+    
+    <button caption=\"Create New Note\" action=\"rwdfoldeditcreatenewnote\"/>
+          
       <button caption=\"Save Changes\" action=\"savefoldeditrecord\"/>
-    
+    
         <button caption=\"Help\" action=\"runhelpwindowrwdfoldeditor\"/>
+        <button caption=\"Clear\" action=\"clearfoldnote\"/>
       
     </horizontal>
 <textarea  name=\"folddocumentresult\"/> 
     
+          <horizontal>
       
-     <horizontal>
-     
-      <button caption=\"List Directories\" action=\"rwdhypernotedirectories\"/>
-<button caption=\"Reset to top Directory\" action=\"rwdhypernoteresetdir\"/>
-      
-  </horizontal>    
+      <button caption=\"Save Changes\" action=\"savefoldeditrecord\"/>
       
-     <horizontal>
-     <button caption=\"List Notes\" action=\"listnotedirs\"/>
-        <button caption=\"Show Internal Links\" action=\"listlocalnotelinks\"/>
+  </horizontal>    
       
-           
-    </horizontal>
 
-   
-  
-     <p>%%folddirectoriesresult%%</p>
+   
+  
+     <p></p>
      
 	</tab>"

data/gui/tinkerbackwindows/superant.com.foldeditor/15htmlview.rwd

@@ -5,8 +5,8 @@ $rwdguivar=
     <table>
     
     
-    <row> <p align=\"right\">Note link:</p>  <text size=40 name=\"a_viewfoldlink\"/> </row>
-     <row> <p> </row> 
+       <text size=70 name=\"a_viewfoldlink\"/> 
+     
       
     </table>
  

data/gui/tinkerbackwindows/superant.com.foldwords/1appname.rwd

@@ -0,0 +1,4 @@
+$rwdguivar=
+"
+<window name = \"rwdfoldbackwindow\" title=\"rwdwords - \">
+<tabs>"

data/gui/tinkerbackwindows/superant.com.foldwords/1dictionary.rwd

@@ -0,0 +1,19 @@
+$rwdguivar=
+"
+<tab name=\"dictlookup\" caption=\"Dictionary Lookup\">  
+	
+	
+	    <table>
+      <row> <p align=\"right\">Word:</p>  <text name=\"a_dictionaryinput\"/> </row>
+
+    </table>
+   
+      <horizontal>
+      <button caption=\"Lookup\" action=\"dictlookup\"/>
+      <button caption=\"Cancel\" action=\"main\"/>
+      
+    </horizontal>
+ <p>%dictionary_display%</p>
+ </tab>
+ "
+	

data/gui/tinkerbackwindows/superant.com.foldwords/3ai.rwd

@@ -0,0 +1,22 @@
+$rwdguivar=
+"
+	<tab name=\"aiwindow\" caption=\"ai test\">
+      connect to alice internet AI bot
+    <table>
+      <row> <p align=\"right\">sentence</p>  <text size=70 name=\"ai_datain\"/> </row>
+
+    </table>
+        <horizontal>
+      <button caption=\"send to ai\" action=\"ai_eliza\"/>
+
+     <button caption=\"Help\" action=\"runhelpwindowrwdeliza\"/>
+  
+    </horizontal>
+     
+<p>%eliza_result%</p>     
+      
+    
+  
+
+	</tab>"
+

data/gui/tinkerbackwindows/superant.com.foldwords/4thesaurus.rwd

@@ -0,0 +1,36 @@
+$rwdguivar=  
+	"
+		<tab name=\"superantcomthesaurus\" caption=\"Thesaurus View\">
+
+    <table>
+  
+       <table>
+      <row> <p align=\"right\">Word:</p>  <text name=\"a_thesaurusinput\"/> </row>
+
+ 
+   
+     <row> <p> </row> 
+      
+    </table>
+      <horizontal>
+          <button caption=\"Display word results\" action=\"listwordresults\"/>
+      
+       <button caption=\"Clear file list\" action=\"clearthesaurus\"/>
+   
+           <button caption=\"Help\" action=\"runhelpwindowrwdthesaurus\"/>
+      
+    </horizontal>
+
+       
+      
+          
+   
+
+      
+  
+    <table>
+<p>%%a_thesaurusdata%%</p>
+
+   
+     </table>
+	</tab>"

data/gui/tinkerbackwindows/superant.com.foldwords/77jumplinkcommands.rwd

@@ -0,0 +1,17 @@
+$rwdguivar=
+"
+<tab name=RwdwordsMenu caption=Menu>
+<horizontal>
+<button caption=\"Show Jump Links\" action=\"showjumplinkoptions\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_jumplinkinput\">  %%jumplinkoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=\"Jump to Application Location\" action=\"runjumplinkcommand\"/>
+    </horizontal>
+    </tab>
+"

data/gui/tinkerbackwindows/superant.com.foldwords/z9end.rwd

@@ -0,0 +1,6 @@
+$rwdguivar=
+"
+</tabs>
+</window>"
+
+

data/installed/{rwdwfoldeditor-0.02.inf → rwdwfoldeditor-0.03.inf}

@@ -1,11 +1,14 @@
 # rwdwfoldeditor - book editor
 gui/tinkerbackwindows/superant.com.foldeditor
+gui/tinkerbackwindows/superant.com.foldwords
 code/superant.com.foldeditor
+code/superant.com.foldback
 tests/makedist-rwdwfoldeditor.rb
 tests/gemspec-rwdwfoldeditor
 rwd_files/HowTo_FoldEditor.txt
-configuration/rwdwfoldeditor-0.02.cnf
-configuration/rwdwfoldeditor-0.02.dist
+lib/oothesaurus.rb
+lib/dict.rb
+configuration/rwdwfoldeditor-0.03.dist
 rwd_files/default.fld
 rwd_files/rwdhypernote-0.13.fld
 

data/lib/dict.rb

@@ -0,0 +1,438 @@
+# dict.rb - a client-side implementation of the DICT protocol (RFC 2229)
+#
+# $Id: dict.rb,v 1.25 2003/04/19 06:53:41 ianmacd Exp $
+# 
+# Version : 0.9.2
+# Author  : Ian Macdonald <ian@caliban.org>
+#
+# Copyright (C) 2002-2003 Ian Macdonald
+#
+#   This program 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 version 2, or (at your option)
+#   any later version.
+#
+#   This program is distributed in the hope that it 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 this program; if not, write to the Free Software Foundation,
+#   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+=begin
+
+= NAME
+Ruby/DICT - client-side DICT protocol library
+= SYNOPSIS
+
+  require 'dict'
+
+  dict = DICT.new('dict.org', DICT::DEFAULT_PORT)
+  dict.client('a Ruby/DICT client')
+  definitions = dict.define(DICT::ALL_DATABASES, 'ruby')
+
+  if definitions
+    definitions.each do |d|
+      printf("From %s [%s]:\n\n", d.description, d.database)
+      d.definition.each { |line| print line }
+    end
+  end
+
+  dict.disconnect
+
+= DESCRIPTION
+Ruby/DICT is a client-side library implementation of the DICT protocol,
+as described in ((<RFC 2229|URL:ftp://ftp.isi.edu/in-notes/rfc2229.txt>)).
+= CLASS METHODS
+--- DICT.new(hosts, port = DICT::DEFAULT_PORT, debug = false, verbose = false)
+    This creates a new instance of the DICT class. A DICT object has four
+    instance variables: ((|capabilities|)), ((|code|)), ((|message|)) and
+    ((|msgid|)). ((|capabilities|)) is an array of Strings relating to
+    capabilities implemented on the server, ((|code|)) is the last status
+    code returned by the server, ((|message|)) is the text of the message
+    related to ((|code|)), and ((|msgid|)) is the message ID returned by the
+    server.
+= INSTANCE METHODS
+--- DICT#disconnect
+    Disconnect from the server.
+--- DICT#define(database, word)
+    Obtain definitions for ((|word|)) from ((|database|)). A list of valid
+    databases can be obtained using DICT#show(DICT::DATABASES).
+
+    To show just the first definition found, use ((|DICT::FIRST_DATABASE|))
+    as the database name. To show definitions from all databases, use
+    ((|DICT::ALL_DATABASES|)).
+
+    On success, this returns an array of Struct:Definition objects.
+    ((*nil*)) is returned on failure.
+--- DICT#match(database, strategy, word)
+    Obtain matches for ((|word|)) from ((|database|)) using ((|strategy|)).
+
+    On success, a hash of arrays is returned. The keys of the hash are the
+    database names and the values are arrays of word matches that were found
+    in that database. ((*nil*)) is returned on failure.
+--- DICT#show_server
+    This method retrieves information on the server itself.
+
+    A String is returned on success, while ((*nil*)) is returned on failure.
+--- DICT#show_db
+    This method retrieves information on the databases offered by the server.
+
+    A Hash indexed on database name and containing database descriptions
+    is returned on success, while ((*nil*)) is returned on failure.
+--- DICT#show_info(database)
+    This method retrieves information on a particular database offered by
+    the server.
+
+    A String is returned on success, while ((*nil*)) is returned on failure.
+--- DICT#show_strat
+    This method retrieves information on the strategies offered by the server.
+
+    A Hash indexed on strategy name and containing strategy descriptions
+    is returned on success, while ((*nil*)) is returned on failure.
+--- DICT#status
+    This method returns a single line String of status information from the
+    server.
+--- DICT#help
+    This method returns a String of help information from the server,
+    describing the commands it implements.
+--- DICT#client
+    This method sends a single line String of information describing a client
+    application to the server.
+--- DICT#auth(user, secret)
+    This method attempts to authenticate ((|user|)) to the server using
+    ((|secret|)). Note that ((|secret|)) is not literally passed to the server.
+= CONSTANTS
+Ruby/DICT uses a lot of constants, mostly for the status codes
+returned by DICT servers. See the source for details.
+
+Some of the more interesting other constants:
+: DICT::FIRST_DATABASE
+  Define or match, stopping at first database where match is found
+: DICT::ALL_DATABASES
+  Define or match, gathering matches from all databases
+: DICT::DEFAULT_MATCH_STRATEGY
+  Match using a server-dependent default strategy, which should be the best
+  strategy available for interactive spell checking
+: DICT::DEFAULT_PORT
+  The default port used by DICT servers, namely 2628
+: DICT::ERROR
+  A Regex constant matching any server status code indicating an error
+= EXCEPTIONS
+Exception classes are subclasses of the container class DICTError, which is,
+itself, a subclass of RuntimeError
+--- ConnectError.new(message, code = 2)
+    A ConnectError is raised if DICT::new is unable to connect to the chosen
+    DICT server for any reason. Program execution will terminate.
+--- ProtocolError.new(message, code = 3)
+    A ProtocolError exception can be used if a server operation returns a
+    status code matching DICT::ERROR. This does not happen automatically. The
+    code is stored in the ((|code|)) attribute of the instance of the DICT
+    object. Program execution will terminate.
+= AUTHOR
+Written by Ian Macdonald <ian@caliban.org>
+= COPYRIGHT
+ Copyright (C) 2002-2003 Ian Macdonald
+
+ This is free software; see the source for copying conditions.
+ There is NO warranty; not even for MERCHANTABILITY or FITNESS
+ FOR A PARTICULAR PURPOSE.
+= SEE ALSO
+* ((<"Ruby/DICT home page - http://www.caliban.org/ruby/"|URL:http://www.caliban.org/ruby/>))
+* ((<"The DICT development group - http://www.dict.org/"|URL:http://www.dict.org/>))
+* ((<"RFC 2229 - ftp://ftp.isi.edu/in-notes/rfc2229.txt"|URL:ftp://ftp.isi.edu/in-notes/rfc2229.txt>))
+= BUGS
+Send all bug reports, enhancement requests and patches to the
+author.
+= HISTORY
+$Id: dict.rb,v 1.25 2003/04/19 06:53:41 ianmacd Exp $
+
+=end
+
+
+require 'socket'
+require 'md5'
+
+
+# lines that start with .. need to be reduced to .
+#
+class String
+  def undot!
+    sub!(/^\.\./, '.')
+  end
+end
+
+
+# a basic exception class for DICT errors
+#
+class DICTError < RuntimeError
+  def initialize(message, code = 1)
+    $stderr.puts message
+    exit code
+  end
+end
+
+
+# deal with connection errors
+#
+class ConnectError < DICTError
+  def initialize(message, code = 2)
+    super
+  end
+end
+
+
+# deal with status code errors
+#
+class ProtocolError < DICTError
+  def initialize(message, code = 3)
+    super
+  end
+end
+
+# a structure for definitions
+#
+Definition = Struct.new('Definition', :word, :definition, :database,
+			:description)
+
+class DICT
+  attr_reader :capabilities, :code, :message, :msgid
+
+  DATABASES_PRESENT		= '110'
+  STRATEGIES_AVAILABLE		= '111'
+  DATABASE_INFORMATION		= '112'
+  HELP_TEXT			= '113'
+  SERVER_INFORMATION		= '114'
+  CHALLENGE_FOLLOWS		= '130'
+  DEFINITIONS_RETRIEVED		= '150'
+  WORD_DEFINITION		= '151'
+  MATCHES_PRESENT		= '152'
+  STATUS_RESPONSE		= '210'
+  CONNECTION_ESTABLISHED	= '220'
+  CLOSING_CONNECTION		= '221'
+  AUTHENTICATION_SUCCESSFUL	= '230'
+  OK				= '250'
+  SEND_RESPONSE			= '330'
+  TEMPORARILY_UNAVAILABLE	= '420'
+  SHUTTING_DOWN			= '421'
+  UNRECOGNISED_COMMAND		= '500'
+  ILLEGAL_PARAMETERS		= '501'
+  COMMAND_NOT_IMPLEMENTED	= '502'
+  PARAMETER_NOT_IMPLEMENTED	= '503'
+  ACCESS_DENIED			= '530'
+  AUTH_DENIED			= '531'
+  UNKNOWN_MECHANISM		= '532'
+  INVALID_DATABASE		= '550'
+  INVALID_STRATEGY		= '551'
+  NO_MATCH 			= '552'
+  NO_DATABASES_PRESENT		= '554'
+  NO_STRATEGIES_AVAILABLE	= '555'
+
+  ALL_DATABASES			= '*'
+  DEFAULT_MATCH_STRATEGY	= '.'
+  DEFAULT_PORT			= 2628
+  ERROR				= /^[45]/
+  FIRST_DATABASE		= '!'
+  MAX_LINE_LENGTH 		= 1024
+  PAIR				= /^(\S+)\s"(.+)"\r$/
+  REPLY_CODE			= /^\d\d\d/
+
+  def initialize(hosts, port = DEFAULT_PORT, debug = false, verbose = false)
+    hosts.each do |host|
+      @debug = debug
+      @verbose = verbose
+      printf("Attempting to connect to %s:%d...\n", host, port) if @verbose
+
+      begin
+	@sock = TCPSocket.open(host, port)
+      rescue
+	next	# cycle through list of servers, if more than one
+      end
+
+      break	# continue if connection to this host succeeded
+    end
+
+    # catch failure
+    raise ConnectError, 'Unable to connect to host' unless defined? @sock
+
+    # check status line on connect
+    line = get_line
+    raise ConnectError, line if line =~ ERROR
+
+    caps, @msgid = /<(.+?)>\s(<.+>)/.match(line)[1..2]
+    @capabilities = caps.split(/\./)
+    if @verbose
+      printf("Capabilities: %s\n", @capabilities.join(', '))
+      printf("Msgid: %s\n", @msgid)
+    end
+  end
+
+  private
+
+  # output a line to the server
+  #
+  def send_line(command)
+    line = command + "\r\n"
+    $stderr.printf("SEND: %s", line) if @debug
+    @sock.print(line)
+  end
+
+  # get a line of input from the server
+  #
+  def get_line
+    line = @sock.readline("\r\n")
+    $stderr.printf("RECV: %s", line) if @debug
+    line
+  end
+
+  # send a command and get a response
+  #
+  def exec_cmd(command)
+    send_line(command)
+    line = get_line
+    @code, @message = /^(\d\d\d)\s(.*)$/.match(line)[1..2]
+    # remember the command just executed
+    @command = command
+  end
+
+  # determine whether we're at the end of this response
+  #
+  def end_of_text?(line)
+    line =~ /^\.\r$/ ? true : false
+  end
+
+  # generic method to issue command and parse response
+  #
+  def parse_response
+    return nil if @code =~ ERROR
+
+    while line = get_line
+      # on first pass through loop, create list as either a hash
+      # or a string, depending # on what data looks like
+      list ||= line =~ PAIR ? Hash.new : ''
+
+      # check for end of data
+      return list if line =~ REPLY_CODE
+
+      if ! end_of_text? line
+	line.undot!
+	(list << line; next) if list.is_a?(String)  # list is just text
+
+	# list is a hash of data pairings
+	name, desc = PAIR.match(line)[1..2]
+	if @command =~ /^MATCH/
+	  list[name] = Array.new unless list[name]
+	  list[name] << desc
+	else
+	  list[name] = desc
+	end
+
+      end
+    end
+  end
+
+  public
+
+  # QUIT from the server
+  #
+  def disconnect
+    exec_cmd('QUIT')
+    @sock.close
+  end
+
+  # DEFINE a word
+  #
+  def define(db, word)
+    definitions = Array.new
+    d = Definition.new
+    d.word = word
+    d.definition = Array.new
+
+    exec_cmd('DEFINE %s "%s"' % [ db, word ])
+
+    return nil if @code =~ ERROR
+
+    while line = get_line
+      return definitions if line =~ /^#{OK}/
+
+      if line =~ /^#{WORD_DEFINITION}/
+	word, d.database, d.description =
+	  /^\d\d\d\s"(.+?)"\s(\S+)\s"(.+)"\r$/.match(line)[1..3]
+      elsif end_of_text? line	# finish definition and start a new one
+	definitions << d
+	d = Definition.new
+	d.word = word
+	d.definition = Array.new
+      else
+	line.undot!
+	d.definition << line
+      end
+
+    end
+  end
+
+  # MATCH a word
+  #
+  def match(db, strategy, word)
+    exec_cmd('MATCH %s %s "%s"' % [ db, strategy, word ])
+    parse_response
+  end
+
+  # get database list
+  #
+  def show_db
+    exec_cmd("SHOW DB")
+    parse_response
+  end
+
+  # get strategy list
+  #
+  def show_strat
+    exec_cmd("SHOW STRAT")
+    parse_response
+  end
+
+  # get information on database
+  #
+  def show_info(db)
+    exec_cmd('SHOW INFO %s' % db)
+    parse_response
+  end
+
+  # get server information
+  #
+  def show_server
+    exec_cmd("SHOW SERVER")
+    parse_response
+  end
+  
+  # request server STATUS information
+  #
+  def status
+    exec_cmd('STATUS')
+    @message
+  end
+
+  # request server-side HELP
+  #
+  def help
+    exec_cmd('HELP')
+    parse_response
+  end
+
+  # send CLIENT information
+  #
+  def client(info)
+    exec_cmd('CLIENT %s' % info)
+  end
+
+  # AUTHorise user
+  #
+  def auth(user, secret)
+    auth = MD5::new(@msgid + secret).hexdigest
+    exec_cmd('AUTH %s %s' % [ user, auth ])
+  end
+
+end

data/lib/oothesaurus.rb

@@ -0,0 +1,76 @@
+
+# The Open Office Thesaurus object. Create a new object with idx file and
+# main database file name and search words with "lookup".
+# Works with OO Thesaurus files 2.x
+# by kesiev at http://www.kesiev.com/
+
+class OOThesaurus
+	
+def dosearch(the,history,word,add,filepathidx,filepathdat)
+	a = []
+  if add then history.push(word) end
+  word=word
+  #$itemslist.clear
+  rt=the.lookup(word,filepathidx,filepathdat)
+  if rt.length>0
+    rt.each { |ent|
+      ent.each_with_index { |line,i|
+       # a=itemslist.append
+        a[0]=(i!=0 ? "\t" : "" )+ line
+      }
+    }
+  else
+   # a=$itemslist.append
+    a[0]="No hits."
+  end
+end
+	
+
+	def lookup(word,idxfile,datfile)
+		Dir.chdir($progdir)
+		if $DEBUG
+		$stderr.puts "in lookup\n"
+		$stderr.puts  idxfile.to_s
+		end 
+		seek=-1
+		ret=[]
+		 if File::exist?(idxfile) && File::exist?(datfile)
+			
+	 		open(idxfile,"r").each { |f|
+				f.each { |line|
+					line=line.split("|")
+					if line[0]==word
+						seek=line[1].to_i
+						break
+					end
+				}
+			}
+			ret=[]
+			ret2 = []
+			if seek!=-1
+				open(datfile,"r") { |a|
+					a.seek(seek)
+					data=a.gets.split("|")
+					data[1].to_i.times {
+						ret << a.gets.strip.split("|")
+					
+					}
+				}
+				
+			end
+		 end
+		
+		ret
+	end
+end
+
+
+
+
+def back(history)
+  if word=history.pop then
+    #$box.text=word
+    dosearch(false)
+  end
+end
+

data/rwd_files/HowTo_FoldEditor.txt

@@ -62,19 +62,19 @@ Ruby I am using version 1.8.2
 
 
 I have tested this under Linux-Debian kernel 2.6.9
-
-==Making Applets
-
-What is required in a applet for the rwdtinker framework
-
-1. config file
-2. code files - under in a unique directory under code
-3. gui files - begin with window name in unique directory(s) under gui/tinkerbackwindow
-4. install file ending with .inf under install directory - code directories are listed in here for live startup
-5. uninstall program file in code directory - to uninstall the global variables
-6. the install file, config file and uninstall method have the same name 
-
-Then zip it up and it should be ready to go.
+
+==Making Applets
+
+What is required in a applet for the rwdtinker framework
+
+1. config file
+2. code files - under in a unique directory under code
+3. gui files - begin with window name in unique directory(s) under gui/tinkerbackwindow
+4. install file ending with .inf under install directory - code directories are listed in here for live startup
+5. uninstall program file in code directory - to uninstall the global variables
+6. the install file, config file and uninstall method have the same name 
+
+Then zip it up and it should be ready to go.
 
 == PROBLEMS:
 
@@ -95,7 +95,16 @@ Don't use the back-button of the browser! Strange and unpredictable things may a
 Steven Gibson
 steven@superant.com
 
-== Changelog
+== Changelog 
+version 0.03
+ remove sort from display of fold links (we want the default order!)
+ widen text boxes that display  path and name of note file
+ remove old bad buttons from bottom of note view tab
+ add save button to bottom of note view tab
+ add dictionary search
+ thesaurus search - using openoffice
+ internet AI interface
+  
 version 0.02
  add configuration file editing
  corrected handling of fold directory
@@ -106,4 +115,4 @@ version 0.01
   select file in a fold link file
   create new text files
   edit fold link files
- 
+ 

data/tests/makedist-rwdwfoldeditor.rb

@@ -12,7 +12,7 @@ $rwdjumplink = [""]
 JumpLink = Hash.new("default")
 require 'fileutils'
 DistroName = "rwdwfoldeditor"
-DistroVersion=0.02
+DistroVersion=0.03
 load "configuration/#{DistroName}-#{DistroVersion}.dist"
 
 

data/tests/makedist.rb

@@ -14,7 +14,7 @@ require 'fileutils'
 
 DistroName = "rwdwfoldeditor"
 
-DistroVersion="0.02"
+DistroVersion="0.03"
 
 DistroTitle="#{DistroName}-#{DistroVersion}.dist"
 load "configuration/#{DistroTitle}"

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: rwdfoldeditor
 version: !ruby/object:Gem::Version 
-  version: "0.02"
+  version: "0.03"
 platform: ruby
 authors: 
 - Steven Gibson
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2008-09-14 00:00:00 -07:00
+date: 2008-09-15 00:00:00 -07:00
 default_executable: 
 dependencies: []
 
@@ -20,6 +20,7 @@ executables:
 extensions: []
 
 extra_rdoc_files: 
+- rwd_files/HowTo_FoldEditor.txt
 - Readme.txt
 - rwd_files/HowTo_Tinker.txt
 - rwd_files/HowTo_TinkerWin2.txt
@@ -40,6 +41,8 @@ files:
 - lib/zip/zip.rb
 - lib/zip/zipfilesystem.rb
 - lib/zip/tempfile_bugfixed.rb
+- lib/dict.rb
+- lib/oothesaurus.rb
 - lib/rconftool.rb
 - code/zz0applicationend/zz0end.rb
 - code/superant.com.rwdtinkerbackwindow/listgemdirs.rb
@@ -65,6 +68,13 @@ files:
 - code/superant.com.rwdtinkerbackwindow/installgemapplet.rb
 - code/superant.com.rwdtinkerbackwindow/runremoteinstall.rb
 - code/superant.com.rwdtinkerbackwindow/openappletname.rb
+- code/superant.com.foldback/dictlookup.rb
+- code/superant.com.foldback/listwordlookup.rb
+- code/superant.com.foldback/openhelpwindowrwdhyernote.rb
+- code/superant.com.foldback/eliza.rb
+- code/superant.com.foldback/helptexthashrwdhypernote.rb
+- code/superant.com.foldback/runrwdshellwindow.rb
+- code/superant.com.foldback/clearhttpview3.rb
 - code/01rwdcore/setuptinkerdocuments.rb
 - code/01rwdcore/openhelpwindow.rb
 - code/01rwdcore/setuphelpaboutoptions.rb
@@ -87,6 +97,7 @@ files:
 - code/dd0viewphoto/dd0viewphoto.rb
 - code/superant.com.foldeditor/savehtmlhypernoterecord.rb
 - code/superant.com.foldeditor/openhelpwindowrwdhyernote.rb
+- code/superant.com.foldeditor/clearnotescreen.rb
 - code/superant.com.foldeditor/changehypernotename.rb
 - code/superant.com.foldeditor/loadrwdfoldeditlinkfile.rb
 - code/superant.com.foldeditor/saveconfigurationrecord.rb
@@ -109,7 +120,7 @@ files:
 - configuration/tinkerwin2variables.dist
 - configuration/language.dist
 - configuration/rwdapplicationidentity.dist
-- configuration/rwdwfoldeditor-0.02.dist
+- configuration/rwdwfoldeditor-0.03.dist
 - lang/en/rwdcore/languagefile.rb
 - lang/es/rwdcore/languagefile-es.rb
 - lang/fr/rwdcore/languagefile.rb
@@ -142,6 +153,13 @@ files:
 - gui/tinkerbackwindows/superant.com.versionwindow
 - gui/tinkerbackwindows/superant.com.versionwindow/helpaboutwindow.rwd
 - gui/tinkerbackwindows/superant.com.versionwindow/1appname.rwd
+- gui/tinkerbackwindows/superant.com.foldwords
+- gui/tinkerbackwindows/superant.com.foldwords/1appname.rwd
+- gui/tinkerbackwindows/superant.com.foldwords/1dictionary.rwd
+- gui/tinkerbackwindows/superant.com.foldwords/77jumplinkcommands.rwd
+- gui/tinkerbackwindows/superant.com.foldwords/z9end.rwd
+- gui/tinkerbackwindows/superant.com.foldwords/3ai.rwd
+- gui/tinkerbackwindows/superant.com.foldwords/4thesaurus.rwd
 - gui/helpaboutzend/zzzzhelpscreen2end.rwd
 - gui/helpaboutzend/zzzzhelpabout2.rwd
 - gui/helpaboutzend/zhelpscreenstart2.rwd
@@ -155,7 +173,7 @@ files:
 - gui/frontwindowselections/00selectiontabbegin.rwd
 - gui/zzcoreguiend/yy9rwdend.rwd
 - installed/temp.rb
-- installed/rwdwfoldeditor-0.02.inf
+- installed/rwdwfoldeditor-0.03.inf
 - rwd_files/tinker.png
 - rwd_files/favicon.ico
 - rwd_files/default.fld
@@ -169,12 +187,11 @@ files:
 - rwd_files/HowTo_FoldEditor.txt
 - zips/rwdwgutenberg-0.09.zip
 - zips/temp.rb
-- zips/rwdwfoldeditor-0.02.zip
+- zips/rwdwfoldeditor-0.03.zip
 - zips/rwdwcalc-0.61.zip
-- zips/rwdwshell-1.04.zip
+- zips/rwdwruby-1.05.zip
 - zips/rwdwaddresses-1.05.zip
 - zips/wrubyslippers-1.06.zip
-- zips/rwdwschedule-1.04.zip
 - tests/rdep.rb
 - tests/makedist-rwdwfoldeditor.rb
 - tests/cleancnf.sh