rwdeliza 0.03

data/rwdconfig.dist

@@ -0,0 +1,21 @@
+##VERSION:1.69
+# rwdtinker core configuration file
+##NAME: ConfigLocation:0
+ConfigLocation=""
+##NAME: ZipsLocation:0
+ ZipsLocation=""
+##NAME:$testharnessarray:0
+$testharnessarray = ["rwdtinker_all_tests"]
+##NAME:TestNow:0
+TestNow=false  # turning this on will run the unit tests
+##NAME:$testharness:0
+$testharness=true
+##NAME:$tinkerhelpaboutarray:0
+$tinkerhelpaboutarray = ["Tinker"]
+##NAME:$tinkerdocumentsarray:0
+$tinkerdocumentsarray = ["Readme.txt"]
+##NAME:$tinkeruninstallarray:0
+$tinkeruninstallarray = ["Tinker"]
+##NAME:JumpLink:0
+JumpLink = Hash.new { |hh, kk| hh[kk] = "ERROR: link not found: #{kk.inspect}."; hh[kk] }
+

data/rwdeliza.rb

@@ -0,0 +1 @@
+# this file does nothing

data/tests/RubyGauge.rb

@@ -0,0 +1,179 @@
+#--------------------------------------------------------------------#
+#                                                                    #
+#  RubyGauge version 1                                               #
+#  Copyright (c) 2005,  Harrison Ainsworth.                          #
+#                                                                    #
+#  http://hxa7241.org/                                               #
+#                                                                    #
+#--------------------------------------------------------------------#
+
+
+
+
+require 'find'
+
+
+
+
+# Counts lines of code in ruby source files.
+#
+# just a simple example ruby program, produced as an exercise.
+#
+# * directories are looked in recursively for source files
+# * source files with the following name extensions are recognized:
+#   .rb .rbw
+# * a line is counted as code if it is not empty and not solely comment
+#
+# == requirements
+# ruby 1.8
+#
+# == usage
+# RubyGauge.rb [-f...] (file|directory)pathname ...
+# RubyGauge.rb -help|-?
+#
+# switches:
+#    -f<[l|s][1|2]>  set output format to long/short, linecount only /
+#                    linecount and filecount (defaults to -fl2)
+#    -help|-?        prints this message
+#
+# ==acknowledgements
+# * ruby: http://ruby-lang.org/
+# * the pragmaticprogrammers pickaxe book:
+#   http://phrogz.net/ProgrammingRuby/
+# * rubygarden: http://rubygarden.org/ruby?CodingInRuby
+#
+# == license
+# this software is too short and insignificant to have a license.
+
+module RubyGauge
+
+	# Entry point if run from the command line.
+	#
+	# Reads command line args, writes output to stdout.
+	#
+	def RubyGauge.main
+
+		# check if help message needed
+		if $*.empty? || !(RubyGauge.getSwitchs( $*, '(help|\?)' ).empty?)
+
+			puts "\n#{@@BANNER}\n#{@@HELP}"
+
+		else
+
+			# count
+			pathnames = RubyGauge.getTokens( $*, '^[^-\/]', ' ' )
+
+			fileCount = []
+			lineCount = RubyGauge.countLinesInFileTree( pathnames, fileCount )
+
+			# output counts
+			format = RubyGauge.getSwitchs( $*, 'f', '-fl2' ).last[2,2]
+
+			(@@LINES_FORMAT = { 's' => "#{lineCount}" }).default = "\n   #{lineCount} line#{lineCount == 1 ? '' : 's'} of code\n"
+			(@@FILES_FORMAT = { 's' => " #{fileCount}" }).default = "   #{fileCount[0]} file#{fileCount[0] == 1 ? '' : 's'}\n"
+			print @@LINES_FORMAT[format[0,1]]
+			print @@FILES_FORMAT[format[0,1]] unless format[1,1] == '1'
+
+		end
+
+	end
+
+
+	def RubyGauge.getSwitchs( commandline, pattern, default=nil )
+
+		RubyGauge.getTokens( commandline, '^(-|\/)' + pattern, default )
+
+	end
+
+
+	def RubyGauge.getTokens( commandline, pattern, default=nil )
+
+		tokens = []
+
+		commandline.each do |token|
+			if token =~ /#{pattern}/
+				tokens.push token
+			end
+		end
+
+		if tokens.empty? && default
+			tokens.push default
+		end
+
+		tokens
+
+	end
+
+
+	# Counts lines of ruby code in filetree recursively.
+	#
+	# A line is counted as code if it is not empty and not solely comment.
+	#
+	# == parameters
+	# * pathnames: Array of String of file or directory pathname
+	#   (relative or absolute)
+	# * fileCount: Array of Numeric, length 1. Just an example of a
+	#   'reference' parameter
+	# * return: Fixnum of the line count
+	#
+	def RubyGauge.countLinesInFileTree( pathnames, fileCount=[] )
+
+		fileCount[0] = 0
+		lineCount    = 0
+
+		# scan directory tree
+		Find.find( *pathnames ) do |fileOrDirName|
+
+			# filter file types (to ruby)
+			if FileTest.file?( fileOrDirName ) &&
+			   FileTest.readable?( fileOrDirName ) &&
+			   fileOrDirName =~ /\.(rb|rbw)\Z/
+
+			   fileCount[0] += 1
+
+				filePathname = File.expand_path( fileOrDirName )
+
+				# read file
+				File.open( filePathname, 'r' ) do |file|
+
+					# scan file lines
+					file.each_line do |line|
+						# select non blank, non comment-only line
+						unless line =~ /^\s*(#|\Z)/
+							lineCount += 1
+						end
+					end
+
+				end
+
+			end
+		end
+
+		lineCount
+
+	end
+
+
+	@@BANNER = "-------------------------------------------------------------\n" +
+	           "RubyGauge 2005 (v1)\n" +
+	           "Copyright (c) 2005,  Harrison Ainsworth.\n\n" +
+	           "http://hxa7241.org/\n" +
+	           "-------------------------------------------------------------\n"
+
+	@@HELP   = "RubyGauge counts lines of code in ruby source files.\n\n" +
+	           "* directories are looked in recursively for source files\n" +
+	           "* source files with the following name extensions are recognized: .rb .rbw\n" +
+	           "* a line is counted as code if it is not empty and not solely comment\n" +
+	           "\nusage:\n" +
+	           "   RubyGauge.rb [-f...] (file|directory)pathname ...\n" +
+	           "   RubyGauge.rb -help|-?\n" +
+	           "\nswitches:\n" +
+	           "   -f<[l|s][1|2]>  set output format to long/short, linecount only / linecount and filecount (defaults to -fl2)\n" +
+	           "   -help|-?        prints this message\n"
+
+end
+
+
+
+
+RubyGauge.main

data/tests/checkdepends.sh

@@ -0,0 +1,4 @@
+#!/bin/sh
+ruby rdep.rb ../*.rb
+echo "checking installapplet.rb"
+ruby rdep.rb ../code/superant.com.rwdtinkerbackwindow/installapplet.rb

data/tests/cleancnf.sh

@@ -0,0 +1,6 @@
+#!/bin/sh
+rm *.cnf
+rm *.bak
+rm configuration/*.cnf
+rm configuration/*.bak
+rm *.gem

data/tests/makedist-rwdweliza.rb

@@ -0,0 +1,56 @@
+#!/usr/bin/ruby -w
+#***********************************************************************
+#* Rwd/Tinker -- A Ruby program for the RudyWebDialog.
+#* Copyright (c) 2004, 2005 by Steven Gibson. All Rights Reserved.
+#* at "steven@superant.com".
+#***********************************************************************/
+$progdir =""
+$tinkerhelpaboutarray = [""]
+$tinkerdocumentsarray = [""]
+$testharnessarray = [""]
+$rwdjumplink = [""]
+JumpLink = Hash.new("default")
+require 'fileutils'
+DistroName = "rwdweliza"
+DistroVersion=0.03
+load "configuration/#{DistroName}-#{DistroVersion}.dist"
+
+
+DistroTitle="#{DistroName}-#{DistroVersion}"
+
+
+	
+$progdir = File::expand_path( File.dirname(__FILE__))
+results = " "
+
+puts "creating #{DistroName} distribution files version #{DistroVersion}"
+
+#puts "moving up one directory"
+#Dir.chdir("..")
+
+
+FileUtils.rm_rf("#{DistroTitle}.zip")
+zipcreatecmd = "zip  -r #{DistroTitle}.zip *" 
+puts "#{zipcreatecmd}"
+ `#{zipcreatecmd}`
+
+gemspecfilename = "rwdzip#{DistroTitle}.gemspec"
+tobject = Time.now
+year = tobject.year.to_s
+month = tobject.mon.to_s
+daydate = tobject.day.to_s
+
+fd = File.open(gemspecfilename,"w")
+fd.print("Gem::Specification.new do |s|\n")
+fd.print("  s.name = %q{rwdzip#{DistroName}}\n")
+fd.print("  s.version = \"#{DistroVersion}\"\n")
+fd.print("  s.date = %q{#{year}-#{month}-#{daydate}}")
+load "tests/gemspec-#{DistroName}"
+fd.print($gemspecvar)
+fd.close
+
+ListingCommand = "ls -1 -s -h rwdzip#{DistroTitle}*"
+
+puts `#{ListingCommand}`
+
+print "Build finished\n"

data/tests/makedist.rb

@@ -0,0 +1,66 @@
+#!/usr/bin/ruby -w
+#***********************************************************************
+#* Rwd/Tinker -- A Ruby program for the RudyWebDialog.
+#* Copyright (c) 2004, 2005 by Steven Gibson. All Rights Reserved.
+#* at "steven@superant.com".
+#***********************************************************************/
+$progdir =""
+$tinkerhelpaboutarray = [""]
+$tinkerdocumentsarray = [""]
+$testharnessarray = [""]
+$rwdjumplink = [""]
+JumpLink = Hash.new("default")
+require 'fileutils'
+
+DistroName = "rwdweliza"
+
+DistroVersion="0.03"
+
+DistroTitle="#{DistroName}-#{DistroVersion}.dist"
+load "configuration/#{DistroTitle}"
+DistroName = "rwdeliza"
+ DistroTitle = "#{DistroName}-#{DistroVersion}"
+
+	
+$progdir = File::expand_path( File.dirname(__FILE__))
+results = " "
+
+puts "creating #{DistroName} distribution files version #{DistroVersion}"
+puts "cleaning conf files"
+`tests/cleancnf.sh`
+puts "moving up one directory"
+Dir.chdir("..")
+
+
+
+FileUtils.rm_rf("#{DistroTitle}.zip")
+zipcreatecmd = "zip  -r #{DistroTitle}.zip #{DistroName}" 
+puts "#{zipcreatecmd}"
+ `#{zipcreatecmd}`
+ tarcreatecmd = "tar --gzip -cf  #{DistroTitle}.tar.gz #{DistroName}"
+puts "#{tarcreatecmd}"
+`#{tarcreatecmd}`
+ tarcreatecmd2 = "tar --bzip2 -cf  #{DistroTitle}.tar.bz2 #{DistroName}"
+puts "#{tarcreatecmd2}"
+`#{tarcreatecmd2}`
+
+gemspecfilename = "#{DistroTitle}.gemspec"
+tobject = Time.now
+year = tobject.year.to_s
+month = tobject.mon.to_s
+daydate = tobject.day.to_s
+
+fd = File.open(gemspecfilename,"w")
+fd.print("Gem::Specification.new do |s|\n")
+fd.print("  s.name = %q{#{DistroName}}\n")
+fd.print("  s.version = \"#{DistroVersion}\"\n")
+fd.print("  s.date = %q{#{year}-#{month}-#{daydate}}")
+load "#{DistroName}/tests/gemspec"
+fd.print($gemspecvar)
+fd.close
+
+ListingCommand = "ls -1 -s -h #{DistroTitle}*"
+
+puts `#{ListingCommand}`
+
+print "Build finished\n"

data/tests/rdep.rb

@@ -0,0 +1,354 @@
+=begin
+
+rdep - The Ruby Dependency Tool
+Version 1.4
+
+Hal E. Fulton
+2 November 2002
+Ruby's license
+
+Purpose
+
+  Determine the library files on which a specified Ruby file is dependent 
+  (and their location and availability).
+
+Usage notes
+
+  Usage: ruby rdep.rb sourcefile
+
+  The sourcefile may or may not have a .rb extension.
+
+  The directories in the $: array (which includes the RUBYLIB environment 
+  variable) are searched first. File extensions are currently searched for 
+  in this order: no extension, .rb, .o, .so, .dll (this may not be correct).
+
+  If there are no detected dependencies, the program will give the
+  message, "No dependencies found."
+
+  If the program finds [auto]load and require statements that it can 
+  understand, it searches for the specified files. Any recognized Ruby 
+  source files (*.rb) are processed recursively in the same way. No attempt 
+  is made to open the files that appear to be binary.
+
+  The program will print up to four lists (any or all may be omitted):
+    1. A list of files it found by going through RUBYLIB.;
+    2. A list of files found under the searchroot (or under '.');
+    3. A list of directories under searchroot which should perhaps be 
+       added to RUBYLIB; and
+    4. A list of files (without extensions) which could not be found.
+
+  If there were unparseable [auto]load or require statements, a warning 
+  will be issued.
+
+  Between lists 3 and 4, the program will give an opinion about the overall
+  situation. The worst case is that files were not found; the uncertain
+  case is when there were unparseable statements; and the best case is 
+  when all files could be found (lists 1 and 2).
+  
+Exit codes
+
+  0 - Usage or successful execution
+  1 - Nonexistent sourcefile specified
+  2 - Improper sourcefile (pipe, special file, ...)
+  3 - Some kind of problem reading a file
+
+Limitations
+
+  Requires Ruby 1.6.0 or higher
+  No recursion on binaries
+  Can't look at dynamically built names
+  Can't detect "tested" requires (e.g.: flag = require "foo.rb")
+  [auto]load/require can be preceded only by whitespace on the line
+  Only recognizes simple strings ("file" or 'file')
+  Does not recognized named constants (e.g.: require MyFile)
+  Assumes every directory entry is either a file or subdirectory
+  Does not handle the Windows variable RUBYLIB_PREFIX
+  May be SLOW if a directory structure is deep (especially
+    on Windows with 1.6.x)
+
+Known bugs:
+
+  Logic may be incorrect in terms of search order, file extensions, etc.
+  Injected a bug in 1.3: In rare cases will recurse until stack overflow
+
+Revision history
+
+  Version 1.0 - 13 October 2000  - Initial release
+  Version 1.1 - 10 July 2001     - Bug fixes
+  Version 1.2 - 15 August 2002   - Works correctly on Win98
+  Version 1.3 - 21 October 2002  - Removed globals; removed search root;
+                                   added $: instead of RUBYLIB; etc.
+  Version 1.4 -  2 November 2002 - Fixed autoload recursion bug
+
+To-do list
+
+  Possibly change extension search order?
+  Possibly add extensions to list?
+  Are explicit extensions allowed other than .rb?
+  Is a null extension really legal?
+  Additional tests/safeguards? (file permissions, non-empty files,...)
+  Change inconsistent expansion of tilde, dot, etc.?
+  Make it smarter somehow??
+
+=end
+
+#
+# File.doc_skip - iterator to skip embedded docs in Ruby input file
+#
+
+class File
+
+  def doc_skip
+    loop do
+      str = gets
+      break if not str
+      if str =~ /^=begin([ \t]|$)/
+        loop do
+          str = gets
+          break if not str
+          break if str =~ /^=end([ \t]|$)/
+        end
+      else
+        yield str
+      end
+    end
+  end
+
+end
+
+class Dependency
+
+#
+# unquote - Find the value of a string. Called from scan.
+#
+
+def unquote(str)
+  # Still more kludgy code.
+  return nil if str == nil
+  if [?', ?"].include? str[0]       # ' Unconfuse gvim 
+    str = str[1..-2]
+  else
+    ""
+  end
+end
+
+#
+# scan - Scans a line and returns the filename from a load or require
+#        statement. Returns null string if there was a parsing problem.
+#        Returns nil if this is not a load or require.
+#
+
+def scan(line)
+  line.strip!
+  if line =~ /^load/ or line =~ /^auto/ or line =~ /^require/
+    @has_dep = true   # At least one dependency found.
+    # Kludge!!
+    junk = %w[ require load autoload ( ) , ] + [""]
+    temp = line.split(/[ \t\(\),]/) - junk
+    if temp[2] and temp[2][0].chr =~ /[#;]/ # Comments, semi...
+      temp = temp[0..1]
+    end
+    if temp[-1] =~ /\#\{/          # #{} means trouble
+      str = ""
+    else
+      str = unquote(temp[-1])      # May return nil.
+    end
+    str
+  else
+    nil
+  end
+end
+
+#
+# find_files - The heart of the program. Search for files using $:
+#
+
+def find_files(source)
+  # loadable - This file or some variant can be found in one of the
+  #            directories in $:
+  loadable = false
+
+  files = []  # Save a list of load/require files.
+  found = []  # Save a list of files found (.rb only for now)
+  
+  # Open the file, strip embedded docs, and look for load/require statements.
+  
+  begin
+    File.open(source).doc_skip {|line| files << scan(line)}
+  rescue => err
+    puts "Problem processing file #{source}: #{err}"
+    caller.each {|x| puts "  #{x}"}
+    exit 3
+  end
+
+  # If no dependencies, don't bother searching!
+  if ! @has_dep
+    puts "No dependencies found."
+    exit 0
+  end
+
+  files.compact!
+  catch(:skip) do
+    for file in files
+  
+      if file == ""   # Warning
+        @warnfiles << source
+        next
+      end
+  
+      throw :skip if (@inpath.include? file) || (@cantfind.include? file)
+  
+      if file =~ /\.rb$/ then  # Don't add suffix to *.rb
+        suffixes = [""]  # Hmm... .rbw?? Probably not needed.
+      else 
+        suffixes = @suffixes   # Use any suffix (extension)
+      end
+  
+      # Look through search path (@search_path)
+  
+      for dir in @search_path
+  
+        for suf in suffixes
+          filename = dir + file + suf
+          loadable = test ?e, filename
+          break if loadable
+        end
+  
+        if loadable
+          @inpath << filename  # Files we found in RUBYLIB
+          # Add to 'found' if it's a source file (so we can recurse)
+          found << filename if filename =~ /\.rb$/
+          break
+        end
+  
+      end
+    
+      @cantfind << file if !loadable
+    end
+  end
+
+  found.uniq!
+  found.compact!
+  list = found
+  found.each {|x| list += find_files(x)}
+  
+  list
+end
+
+#
+# print_list - Print a header message followed by a list of files 
+#              or directories.
+#
+
+def print_list(header, list)
+  return if list.empty?
+  puts header + "\n\n"  # Extra newlines
+  list.each {|x| puts "  #{x}"}
+  puts "\n"             # Extra newline
+end
+
+SEP = File::Separator
+DIRSEP = if SEP=="/" then ":" else ";" end
+
+def execute
+  @has_dep    = false
+  @warnfiles  = []
+  @newdirs    = []
+  @inpath     = []
+  @cantfind   = []
+  @suffixes   = [""] + %w[ .rb .o .so .dll ]
+  @rdirs = []
+  @global_found = []
+  
+  # No parameters? Usage message
+  
+  if not ARGV[0]
+    puts "Usage: ruby rdep.rb sourcefile [searchroot]"
+    exit 0
+  end
+  
+  # Does sourcefile exist?
+  
+  if ! test ?e, ARGV[0]
+    puts "#{ARGV[0]} does not exist."
+    exit 1
+  end
+  
+  # Is sourcefile a "real" file? 
+  
+  if ! test ?f, ARGV[0]
+    puts "#{ARGV[0]} is not a regular file."
+    exit 2
+  end
+
+  # Be sure to search under the dir where the 
+  # program lives...
+
+  @proghome = File.dirname(File.expand_path(ARGV[0]))
+  if @proghome != File.expand_path(".")
+    $: << @proghome
+  end
+  
+  # Get list of dirs in $:
+  
+  @search_path = $:
+  @search_path.collect! {|x| x[-1] == SEP ? x : x + SEP }
+  
+  # All real work happens here -- big recursive find
+  
+  find_files(ARGV[0])
+  
+  @warnfiles.uniq!
+  @cantfind.uniq!
+  @newdirs.uniq!
+  @inpath.map! {|x| File.expand_path(x)}
+  @inpath.uniq!
+  
+  #
+  # Now, what are all the results? Report to user.
+  #
+  
+  if @inpath[0]
+    print_list("Found in search path:", @inpath)
+    if ! @cantfind.empty? && @warnfiles.empty?
+      puts "This will probably be sufficient.\n"
+    end
+  end
+
+  # Did we use any dirs under the "home"?
+
+  homedirs = @inpath.find_all {|x| x =~ Regexp.new("^"+@proghome)}
+  if homedirs[0]  # not empty
+    homedirs.map! {|x| File.dirname(x) }.uniq!
+    puts "Consider adding these directories to RUBYPATH:\n\n"
+    homedirs.each {|x| puts "  #{x}" }
+    puts
+    if @warnfiles[0] and homedirs == [] # There are unparseable statements.
+      puts "This will probably NOT be sufficient. See below.\n\n"
+    end
+  end
+  
+  # What's our opinion?
+
+  if @cantfind[0]     # There are unknown files.
+    puts "This will probably NOT be sufficient. See below.\n\n"
+  elsif @warnfiles[0] and homedirs == [] # There are unparseable statements.
+    puts "Files may still be missing. See below.\n\n"
+  else                # We think everything is OK.
+    puts "This will probably be sufficient."
+  end
+  
+  # Report unknown files
+  print_list("Not located anywhere:", @cantfind)
+  
+  # Print warning about load/require strings we couldn't understand
+  print_list("Warning: Unparseable usages of 'load' or 'require' in:",
+             @warnfiles)
+end
+
+end
+
+Dependency.new.execute
+ 
+exit 0
+