bigtinker 0.94 → 0.95

data/extras/dict.rb

@@ -1,438 +0,0 @@
-# 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/gui/frontwindowselections/superant.com.rwdtinkerwin2selectiontab/jumplinkcommands.rwd

@@ -1,15 +0,0 @@
-$rwdguivar=
-"
-<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>
-"

data/gui/helpaboutbegin/superant.com.helpaboutbegin/zzzzhelpscreenstart.rwd

@@ -1,3 +0,0 @@
-$rwdguivar=
-"
-<helpwindow name=\"main\" title=\"Help About\">"

data/gui/helpaboutinstalled/superant.com.tinkerhelpabout/helpabouttab.rwd

@@ -1,15 +0,0 @@
-$rwdguivar=
-"
-<horizontal>
-<button caption=\"Show Help About Links\" action=\"setuphelpaboutoptions\"/>
-
-</horizontal>
- <table>
-      <select name=\"a_helpaboutinput\">  %%helpaboutoptions%% </select>
-
-   </table>
-
-      <horizontal>
-      <button caption=\"Open Selected Help About\" action=\"runrwdtinkerversion\"/>
-    </horizontal>
-"

data/gui/helpaboutzend/superant.com.helpaboutend/zhelpscreenstart2.rwd

@@ -1,3 +0,0 @@
-$rwdguivar=
-"
-<helpwindow name=\"tinkerbackwindow\" title=\"Help About\">"

data/gui/helpaboutzend/superant.com.helpaboutend/zzzzhelpabout2.rwd

@@ -1,15 +0,0 @@
-$rwdguivar=
-"
-<horizontal>
-<button caption=\"Show Help About Links\" action=\"setuphelpaboutoptions\"/>
-
-</horizontal>
- <table>
-      <select name=\"a_helpaboutinput\">  %%helpaboutoptions%% </select>
-
-   </table>
-
-      <horizontal>
-      <button caption=\"Open Selected Help About\" action=\"runrwdtinkerversion\"/>
-    </horizontal>
-"

data/gui/tinkerbackwindows/superant.com.addressesphotowindow/yy7addressesphoto.rwd

@@ -1,6 +0,0 @@
-$rwdguivar=
-"
-<window name=\"contactphoto\" title=\"Contact Photo\">
-<image src=\"contacttmp.jpg\">%a_viewnamedata% </image>
-   <button caption=\"Return\" action=\"runrwdaddresseswindow\"/>
-</window>"

data/gui/tinkerbackwindows/superant.com.gutenberg/00rwdgutenberg.rwd

@@ -1,5 +0,0 @@
-$rwdguivar=
-"
-<window name = \"rwdgutenbergwindow\" title=\"RwdGutenberg Window\">
-
-<tabs>"

data/gui/tinkerbackwindows/superant.com.gutenberg/10viewnote.rwd

@@ -1,32 +0,0 @@
-$rwdguivar=  
-	"
-		<tab name=\"superantcomgutenbergfile\" caption=\"View/Edit Booklist\">
-
-    <table>
-    <row>View your book list and detail on this Tab</row>
-     <row> <p> </row> 
-      <row> <p align=\"right\">Book Record:</p>  <text size=70 name=\"a_viewgutenberg\"/> </row>
-
-    </table>
-      <horizontal>
-      <button caption=\"Open Detail\" action=\"rwdgutenloadbookrecord\"/>
-    
-    <button caption=\"Create book Note\" action=\"rwdgutenbergcreatebookrecord\"/>
-       <button caption=\"Save Changes\" action=\"savegutenbergrecord\"/>
-    
-      
-       <button caption=\"Clear\" action=\"clearbookscreendisplay\"/>
-     <button caption=\"Help\" action=\"runhelpwindowrwdgutenberg\"/>
-      
-    </horizontal>
-<textarea  name=\"a_gutenbergdata\"/> 
-    
-      <horizontal>
-      <button caption=\"List Booklists\" action=\"listgutrecordfiles\"/>
-        
-      
-           
-    </horizontal>
-
-     <p>%%gutenbergrecordsresult%%</p>
-	</tab>"

data/gui/tinkerbackwindows/superant.com.gutenberg/20listfiles.rwd

@@ -1,35 +0,0 @@
-$rwdguivar=  
-	"
-	
-	<tab name=\"rwdgutenberglistfiles\" caption=\"List Files\">
-
-    <table>
-    <row>List text files</row>
-     <row> <p> </row>     
-     <row> <p align=\"right\">Directory to search:</p>
-     <text size=70 name=\"a_searchdirectorygutenberg\"/> </row>
-<row> <p> </row>      
-     <row> <p align=\"right\">New File:</p> 
-     <text size=70 name=\"a_newfilegutenberg\"/> </row>
-<row> <p align=\"right\">Name of File to Create:</p> 
-     <text size=70 name=\"a_newgutenbergdata\"/> </row>
-    </table>
-      <horizontal>
-    
-       <button caption=\"Create New File\" action=\"gutenbergcreatefile\"/>
-           
-      
-           <button caption=\"Help\" action=\"runhelpwindowrwdgutenberg\"/>
-      
-    </horizontal>
-
-    
-      <horizontal>
-      <button caption=\"List Text Files\" action=\"rwdgutenbergfiles\"/>
-      
-           
-    </horizontal>
-
-   
-    <p>%%textsfilesrecordsresult%%</p>
-	</tab>"

data/gui/tinkerbackwindows/superant.com.gutenberg/30booklistutilities.rwd

@@ -1,28 +0,0 @@
-$rwdguivar=
-"  
- <tab name=\"utilitiesrwdgutenberg\" caption=\"Booklist Utilities\">
-
-    <table>
-      <row> <p align=\"right\">Booklist Title:</p>  <text size=70 name=\"a_viewgutenberg\"/> </row>
-      <row> <p align=\"right\">New Name:</p>  <text size=70 name=\"a_changegutenbergdata\"/> </row>
-
-    </table>
-   
-      <horizontal>
-      <button caption=\"Rename Book\" action=\"changegutenbergdata\"/>
-           <button caption=\"Copy Filename into New Booklist\" action=\"copygutenbergfilename\"/>
-      <button caption=\"Delete Booklist\" action=\"deletegutenbergrecord\"/>
-      <button caption=\"Help\" action=\"runhelpwindowrwdgutenberg\"/>
-          </horizontal>
-
- <p>%%hypernotefilechangeresult%%</p>
-          <horizontal>
-  
-
-      <button caption=\"List Booklists\" action=\"listgutrecordfiles\"/>
-      
-           
-    </horizontal>
-    <p>%%gutenbergrecordsresult%%</p>
-    <p>%%gutenbergfilechangeresult%%</p>
-	</tab>"

data/gui/tinkerbackwindows/superant.com.gutenberg/35displaytab.rwd

@@ -1,10 +0,0 @@
-$rwdguivar=
-"
-  <tab name=\"gutendisplaytab\" caption=\"Book Display\" >
-
-    <p>%gutendisplayvariable%</p>
-  
-
-   <button caption=\'read forward\' action=\'rwdgutenbergwindowtwo\'/>
-  </tab>"
-

data/gui/tinkerbackwindows/superant.com.gutenberg/40rwdgutenberg.rwd

@@ -1,16 +0,0 @@
-$rwdguivar=
-"
-  <tab name=\"rwdgutenberg\" caption=\"Gutenberg Display\">
-<table>
-<horizontal>
- Open a replacement window for
- Book Record:  <text size=30 name=\"a_viewgutenberg\"/>
-</horizontal>
-<row><p> You should see that new window refresh every 15 seconds with </row>
-<row><p> You can return to this screen by clicking on back arrows or the cancel button</row>
-
-
-</table>
-    <button caption=\'Start Book\' action=\'rungutenbergwindow\'/>
-  </tab>"
-

data/gui/tinkerbackwindows/superant.com.gutenberg/67viewconfiguration.rwd

@@ -1,40 +0,0 @@
-$rwdguivar=
-"
- <tab name=\"viewrwdgutenbergconfiguration\" caption=\"RwdGutenberg Configuration\">
-
-
-	
- <table>
- <row> <p> </row>
- <row> <p align=\"right\">You can view or edit the  configuration file here</row>
- <row> <p> </row>
- <horizontal>
-      <button caption=\"Fill Record\" action=\"loadrwdgutenbergconfiguration\"/>
-      <button caption=\"Save Changes\" action=\"saverwdgutenbergconfiguration\"/>
-     <button caption=\"Reload Variables\" action=\"loadrwdgutebergconfigurationvariables\"/>
-       <button caption=\"Help\" action=\"runhelpwindowrwdgutenberg\"/>
-    </horizontal>
-   <table>
-
-      <row> <p align=\"right\">FileName:</p>  <text name=\"a_gutenconfigurationfilename\"/> </row>
-      <row> <p align=\"right\">1:</p>  <text size=70 name=\"a_gutenconfigline1\"/> </row>
-      <row> <p align=\"right\">2:</p>  <text size=70 name=\"a_gutenconfigline2\"/> </row>
-      <row> <p align=\"right\">3:</p>  <text size=70 name=\"a_gutenconfigline3\"/> </row>
-      <row> <p align=\"right\">4:</p>  <text size=70 name=\"a_gutenconfigline4\"/> </row>
-      <row> <p align=\"right\">5:</p>  <text size=70 name=\"a_gutenconfigline5\"/> </row>
-      <row> <p align=\"right\">6:</p>  <text size=70 name=\"a_gutenconfigline6\"/> </row>
-      <row> <p align=\"right\">7:</p>  <text size=70 name=\"a_gutenconfigline7\"/> </row>
-      <row> <p align=\"right\">8:</p>  <text size=70 name=\"a_gutenconfigline8\"/> </row>
-      <row> <p align=\"right\">9:</p>  <text size=70 name=\"a_gutenconfigline9\"/> </row>
-      <row> <p align=\"right\">10:</p>  <text size=70 name=\"a_gutenconfigline10\"/> </row>
-      <row> <p align=\"right\">11:</p>  <text size=70 name=\"a_gutenconfigline11\"/> </row>
-     
-    </table>
-    <p>%extragutenconfigdatadisplay%</p>
-    <p>
-    <p>%newgutenconfigurationresult%</p>
-     
-      
-
-	</tab>"
-

data/gui/tinkerbackwindows/superant.com.gutendisplay/gutendisplaywindow.rwd

@@ -1,9 +0,0 @@
-$rwdguivar=
-"
-  <window name=\"gutendisplaywindowtwo\" title=\"Book Display\" refresh=#{BookViewDisplay}>
-    <small>
-    <p>%gutendisplayvariable%</p>
-    </small>   
-   <cancel/>
-  </window>"
-