rwdgutenberg 0.12 → 0.13

data/lib/zip/zipfilesystem.rb

@@ -1,9 +1,42 @@
-require 'zip/zip'
+require 'lib/zip/zip'
 
 module Zip
+
+  # The ZipFileSystem API provides an API for accessing entries in 
+  # a zip archive that is similar to ruby's builtin File and Dir 
+  # classes.
+  #
+  # Requiring 'zip/zipfilesystem' includes this module in ZipFile
+  # making the methods in this module available on ZipFile objects.
+  #
+  # Using this API the following example creates a new zip file 
+  # <code>my.zip</code> containing a normal entry with the name
+  # <code>first.txt</code>, a directory entry named <code>mydir</code>
+  # and finally another normal entry named <code>second.txt</code>
+  #
+  #   require 'zip/zipfilesystem'
+  #   
+  #   Zip::ZipFile.open("my.zip", Zip::ZipFile::CREATE) {
+  #     |zipfile|
+  #     zipfile.file.open("first.txt", "w") { |f| f.puts "Hello world" }
+  #     zipfile.dir.mkdir("mydir")
+  #     zipfile.file.open("mydir/second.txt", "w") { |f| f.puts "Hello again" }
+  #   }
+  #
+  # Reading is as easy as writing, as the following example shows. The 
+  # example writes the contents of <code>first.txt</code> from zip archive
+  # <code>my.zip</code> to standard out.
+  #
+  #   require 'zip/zipfilesystem'
+  #   
+  #   Zip::ZipFile.open("my.zip") {
+  #     |zipfile|
+  #     puts zipfile.file.read("first.txt")
+  #   }
+
   module ZipFileSystem
 
-    def initialize
+    def initialize # :nodoc:
       mappedZip = ZipFileNameMapper.new(self)
       @zipFsDir  = ZipFsDir.new(mappedZip)
       @zipFsFile = ZipFsFile.new(mappedZip)
@@ -11,14 +44,26 @@ module Zip
       @zipFsFile.dir = @zipFsDir
     end
 
+    # Returns a ZipFsDir which is much like ruby's builtin Dir (class)
+    # object, except it works on the ZipFile on which this method is
+    # invoked
     def dir
       @zipFsDir
     end
     
+    # Returns a ZipFsFile which is much like ruby's builtin File (class)
+    # object, except it works on the ZipFile on which this method is
+    # invoked
     def file
       @zipFsFile
     end
-    
+
+    # Instances of this class are normally accessed via the accessor
+    # ZipFile::file. An instance of ZipFsFile behaves like ruby's
+    # builtin File (class) object, except it works on ZipFile entries.
+    #
+    # The individual methods are not documented due to their
+    # similarity with the methods in File
     class ZipFsFile
 
       attr_writer :dir
@@ -198,7 +243,7 @@ module Zip
 	@mappedZip.get_entry(fileName).size
       end
       
-      # nil for not found and nil for directories
+      # Returns nil for not found and nil for directories
       def size?(fileName)
 	entry = @mappedZip.find_entry(fileName)
 	return (entry == nil || entry.directory?) ? nil : entry.size
@@ -367,6 +412,12 @@ module Zip
       end
     end
 
+    # Instances of this class are normally accessed via the accessor
+    # ZipFile::dir. An instance of ZipFsDir behaves like ruby's
+    # builtin Dir (class) object, except it works on ZipFile entries.
+    #
+    # The individual methods are not documented due to their
+    # similarity with the methods in Dir
     class ZipFsDir
       
       def initialize(mappedZip)
@@ -431,7 +482,7 @@ module Zip
       alias rmdir  delete
       alias unlink delete
       
-      def mkdir(entryName, permissionInt = 0)
+      def mkdir(entryName, permissionInt = 0755)
         @mappedZip.mkdir(entryName, permissionInt)
       end
       
@@ -441,7 +492,7 @@ module Zip
 
     end
 
-    class ZipFsDirIterator
+    class ZipFsDirIterator # :nodoc:all
       include Enumerable
 
       def initialize(arrayOfFileNames)
@@ -481,7 +532,7 @@ module Zip
 
     # All access to ZipFile from ZipFsFile and ZipFsDir goes through a
     # ZipFileNameMapper, which has one responsibility: ensure
-    class ZipFileNameMapper
+    class ZipFileNameMapper # :nodoc:all
       include Enumerable
 
       def initialize(zipFile)
@@ -520,7 +571,7 @@ module Zip
                         &continueOnExistsProc)
       end
 
-      def mkdir(fileName, permissionInt = 0)
+      def mkdir(fileName, permissionInt = 0755)
         @zipFile.mkdir(expand_to_entry(fileName), permissionInt)
       end
 

data/lib/zip/ziprequire.rb

@@ -1,6 +1,35 @@
-require 'zip/zip'
+# With ziprequire you can load ruby modules from a zip file. This means
+# ruby's module include path can include zip-files.
+#
+# The following example creates a zip file with a single entry 
+# <code>log/simplelog.rb</code> that contains a single function 
+# <code>simpleLog</code>: 
+#
+#   require 'zip/zipfilesystem'
+#   
+#   Zip::ZipFile.open("my.zip", true) {
+#     |zf| 
+#     zf.file.open("log/simplelog.rb", "w") { 
+#       |f|
+#       f.puts "def simpleLog(v)"
+#       f.puts '  Kernel.puts "INFO: #{v}"'
+#       f.puts "end"
+#     }
+#   }
+#
+# To use the ruby module stored in the zip archive simply require
+# <code>zip/ziprequire</code> and include the <code>my.zip</code> zip 
+# file in the module search path. The following command shows one 
+# way to do this:
+#
+#   ruby -rzip/ziprequire -Imy.zip  -e " require 'log/simplelog'; simpleLog 'Hello world' "
 
-class ZipList
+#$: << 'data/rubycode.zip' << 'data/rubycode2.zip'
+
+
+require 'lib/zip/zip'
+
+class ZipList #:nodoc:all
   def initialize(zipFileList)
       @zipFileList = zipFileList
   end
@@ -23,7 +52,7 @@ class ZipList
 end
 
 
-module Kernel
+module Kernel #:nodoc:all
   alias :oldRequire :require
 
   def require(moduleName)

data/lib/zmarc.rb

@@ -0,0 +1,140 @@
+#!/usr/local/bin/ruby -w
+
+#based on zmarc.rb by:
+# William Denton <wtd@pobox.com>
+# April 2007
+# Released under the MIT License.
+
+# Copyright (c) 2007  William Denton
+#
+#
+# ./zmarc.rb 0195024028
+
+require 'lib/zoom'
+
+#require 'rubygems'
+require 'lib/marc'
+
+
+
+# Two lists of open Z39.50 servers:
+#   http://targettest.indexdata.com/
+#   http://staff.library.mun.ca/staff/toolbox/z3950hosts.htm
+def marcservers
+	
+return [
+  # Reorder these so that your preferred servers are first
+  # North America
+  ['sirsi.library.utoronto.ca',  2200, 'unicorn'     ], # U Toronto
+  ['amicus.collectionscanada.ca', 210, 'NL'          ], # Lib & Archives Canada
+  ['aleph.mcgill.ca',             210, 'MUSE'        ], # McGill
+# ['ualapp.library.ualberta.ca', 2200, 'unicorn',    ], # U Alberta
+  ['portage.library.ubc.ca',     7090, 'voyager'     ], # UBC
+  ['z3950.loc.gov',              7090, 'Voyager'     ], # Library of Congress
+  ['catnyp.nypl.org',             210, 'INNOPAC'     ], # New York Pub Lib
+  ['library.mit.edu',            9909, 'mit01pub'    ], # MIT
+  ['prodorbis.library.yale.edu', 7090, 'voyager'     ], # Yale
+  ['catalog.princeton.edu',      7090, 'voyager'     ], # Princeton
+  ['ipac.lib.uchicago.edu',       210, 'usmarc'      ], # Chicago
+  ['www.saclibrarycatalog.org',   210, 'INNOPAC'     ], # Sacramento Pub Lib
+  ['library.bu.edu',              210, 'INNOPAC'     ], # Boston U
+  ['voyager.wrlc.org',           7090, 'voyager'     ], # Wash Res Lib Consor
+  ['catalog.lib.jhu.edu',         210, 'horizon'     ], # Johns Hopkins
+  ['z3950.lib.umich.edu',         210, 'miu01_pub'   ], # U Michigan
+  ['catalog.library.cornell.edu',7090, 'voyager'     ], # Cornell
+  # UK and Ireland
+ # ['library.ucc.ie',              210, 'INNOPAC'     ], # U College Cork
+  ['library.ox.ac.uk',            210, 'MAIN*BIBMAST'], # Oxford
+  ['z3950.nls.uk',               7290, 'voyager'     ], # Scottish Nat Lib
+  ['lib-15.lse.ac.uk',           7090, 'voyager'     ], # LSE
+  ['libsys.lib.hull.ac.uk',       210, 'INNOPAC'     ], # Hull
+  # Europe (non-English)
+  ['sigma.nkp.cz',               9909, 'NKC'         ], # Nat Lib Czech R
+  ['lib.mpib-berlin.mpg.de',     2020, 'opac'        ], # Max Planck Inst
+  ['ubsun02.biblio.etc.tu-bs.de',2020, 'bac'         ], # Bibliotheken Berlins
+  ['z3950.kb.dk',                2100, 'KGL01'       ], # Kongelige Bibliothek
+  ['www.bne.es',                 2210, 'BIMO'        ], # Nat Lib Spain
+  ['roble.unizar.es',             210, 'INNOPAC'     ], # U Zaragoza
+  ['www.helmet.fi',               210, 'INNOPAC'     ], # Helsinki Lib
+  ['carmin.sudoc.abes.fr',        210, 'ABES-Z39-PUBLIC' ], # France
+ # ['gofor.bibli.ens-cachan.fr', 21210, 'ADVANCE'     ], # French school
+ # ['gofor.bibli.ens-cachan.fr', 21210, 'MAIN*BIBMAST'], # French school
+ # ['isis.cilea.it',              2100, 'usmarc'      ], # U Brescia
+ # ['aleph.library.tudelft.nl',   9909, 'tud01'       ], # # Techn U Delft
+ # ['z3950.bibsys.no',            2100, 'BIBSYS'      ], # Nat Lib Norway
+ # ['z3950.nb.no',                2100, 'norbok'      ], # Nat Lib Norway
+  #['alpha.bn.org.pl',             210, 'INNOPAC'     ], # Nat Lib Poland
+  #['z3950.btj.se',                210, 'BURK'        ], # Sweden
+# ['lbsihol.unimaas.nl',         7190, 'lbs'         ], # U Maastricht
+  # Australia and New Zealand
+  #['catalogue.nla.gov.au',       7090, 'voyager'     ], # Nat Lib Australia
+  #['nlnzcat.natlib.govt.nz',     7190, 'voyager'     ], # Nat Lib New Zealand
+  # Asia
+ # ['library.cuhk.edu.hk',         210, 'INNOPAC'     ], # Chinesse U HK
+ # ['linc.nus.edu.sg',             210, 'INNOPAC'     ], # Nat U Singapore
+#  ['nbinet.ncl.edu.tw',           210, 'INNOPAC'     ], # Nat Cent Lib Taiwan
+# ['wine.wul.waseda.ac.jp',       210, 'INNOPAC'     ], # Waseda U
+  # Africa
+#  ['explore.up.ac.za',            210, 'INNOPAC'     ], # U Pretoria
+# ['natlib1.unisa.ac.za',         210, 'INNOPAC'     ], # Nat Lib South Africa
+  
+]
+
+# Given an ISBN and some Z39.50 information, return MARCXML.  Why
+# MARCXML?  Because (now) the ruby-zoom module can't return a
+# ruby-marc MARC object. It can, however, return MARCXML, which
+# ruby-marc can grok, so we translate it into XML and then back.
+end
+
+def z3950query(isbn, host, port, db)
+  begin
+    ZOOM::Connection.open(host, port) do |conn|
+      conn.database_name = db
+      conn.preferred_record_syntax = 'MARC21'
+      rset = conn.search("@attr 1=7 #{isbn}")
+      return rset[0].xml
+    end
+  rescue Exception => e
+    # puts e # Uncomment to see any server erorrs
+    return nil
+  end
+end
+tempoutinfo = ""
+# Now the real business.  Loop through all the servers listed above
+# and query it about the ISBN until one answers or we run out of servers
+#isbn = '0060932767'
+	 require 'stringio'
+        isbn =      @@marcisbn
+	isbn = isbn.gsub(/[^0-9X]/, '')
+
+          if (! /(978)*\d{9}[0-9X]/.match(isbn))
+                       $stderr.puts "This is not a valid ISBN" # Not a true validity check!
+          return
+          end
+	 servers = marcservers
+	 threads = []
+
+          servers.each do |server|
+		  
+		  
+                    xtempstring = "#{server[0]} ..."
+		     tempoutinfo =  tempoutinfo + xtempstring 
+		     # $stderr.puts xtempstring
+                    marcxml = z3950query(isbn, server[0], server[1], server[2])
+                  if marcxml.nil?
+                       next
+                  else
+                      reader = MARC::XMLReader.new(StringIO.new(marcxml))
+                       reader.each do |record|
+                    #   $stderr.puts record
+		       tempoutinfo =  tempoutinfo  + record.to_s
+                         end
+                #        $stderr.puts "record search finished"
+		end
+		 $tmpmarcfilesoutput = tempoutinfo
+		
+
+       end  
+
+
+

data/rwd_files/HowTo_Gutenberg.txt

@@ -22,7 +22,10 @@ To exit, press the x inside the browser window.
  
  Bookdata can be saved in a file in the book directory
  
- 
+ Has a MARC lookup feature
+ Uses  lists of open Z39.50 servers to lookup MARC records
+   enter the ISBN number
+   
 == Tabs
  
  There are tabs to enter bookdata and links and edit configurations
@@ -117,6 +120,10 @@ Steven Gibson
 steven@superant.com
 
 == Changelog 
+version 0.13
+ MARC lookup of isbn
+ more help text
+
 version 0.12
   more help text
   moved help text to rwd_files directory

data/rwd_files/HowTo_Tinker.txt

@@ -97,8 +97,7 @@ There are two ways to add applets to the directories.
       The gui files go into your gui directory
       The gui files need to be in order by name and end with .rwd
         
-
-      
+  
       If you need a config file that goes in the configuration directory
 
  internationalization and localization are helped by replacing the
@@ -136,9 +135,11 @@ To exit, press the x inside the browser window.
 
 == Languages
 
-
  You can add tranlations in the lang subdirectory
- You change the $lang constant in Tinker config file in the configuration directory
+ You change the $langarray constant in Tinker config file in the configuration directory
+
+to change language => in the tinkerwin2variables.cnf file the [0] setting of $langarray will be the language choosen.
+
  You can see one translation on the install applet tab, after you have installed and applet
  
 == Using over a Network
@@ -168,14 +169,15 @@ Ruby I am using version 1.8.2
 
 I have tested this under Linux-Debian kernel 2.6.9
 
-= Operation:
+== Operation:
+
 The code files reside in the code directory and are combined before 
 the main Class is loaded
 
 The rwd files in gui are combined before the gui is activated
 
 Translated text reside in the lang directory
-
+ 
 == Installing:
 
 untar the file
@@ -226,10 +228,31 @@ http://www.erikveen.dds.nl/rubywebdialogs/index.html
 Thanks, Steven Gibson
 
 == Changelog
+version 1.85
+  added TabHash way of adding menu choices
+  fixed zip listing tab - showing old files bug 22302
+  
+version 1.84
+  added locale changer tab (have: en,es,ja,hi,nl,fr)
+  updated to newer Rubyzip library
+  replaced testharness framework
+  
+version 1.83
+  adding more Spanish and Hindu po strings
+  changed handling of log file
+ 
+version 1.82
+  switch to po files for translation files
+  add beginning of Hindi po file
+  added more Japanese strings
+  changed handling of lang change = in the tinkerwin2variables.cnf file the [0] setting of $langarray will be the language choosen.
+  refactored init.rb to move routines into lib/rwdtinker modules
+ 
 version 1.81
   condensed config files from 4 -> 2
   fixed document launch bug 
   add $KCODE = 'u'
+  move help files to rwd_files directory
   
 version 1.80
  changed pda handling in rwd.rb

data/rwd_files/Tinkerhelptexthash.txt

@@ -0,0 +1,84 @@
+
+# Help files for RwdTinker core Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+   
+  
+ Helptext.update(  :network_help  => "Using over a Network: To serve the application over your local LAN,change the last line in the<br>
+init.rb file to something like:\n<br>
+RwdTinker.file(RWDFile).serve(8080, '-r' ? '.rwduids' : nil)\n<br>
+Then you should be able to login at: http://yourhostname:8080")
+
+    Helptext.update(  :general_help => "#{Message[:message_general_help]}" )
+    
+ Helptext.update(   :documents_rwdtinker => "<b>Documents:
+  <p>
+  
+  when you click on a document name, the document should pop up in a <br>
+  browser window, or in another browser tab.</b>
+  ")
+      
+ Helptext.update( :tinkerwin2_help => "    You can view the list of applets you can install
+      by clicking on the list files button
+<br><br>
+           You can download an applet created by someone else
+           <br><br>
+      put the file in the zips directory
+      <br>
+      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
+      ")
+      
+       Helptext.update( 
+     :applet_viewing   =>  "You can get a list of all installed applets by clicking the 'listfiles button'<br>
+         To see the text of a install file<br>
+       Type in the name of the file you want.<br>
+      <p>
+       type it without the inf ending
+       rwdapplet-0.1<br>
+       <p>
+       Then click the 'View Installed File' button
+       <p>
+       If it finds the file it will open it. It displays the text the search box.
+<p>
+      You can uninstall applets on this screen")
+      
+     Helptext.update(   
+  :applet_installation  => " You can download an applet created by someone else<br>
+      put the file in the zips directory<br>
+      
+      click on the 'list zips' tab<br>
+      click on 'list applets available for installing<br>
+      <br>
+      chose the applet you want<br>
+      click on 'install applet'<br>
+      If all goes well the applet should be installed.<br>
+      You will need to restart rwdtinker to see the new screens<br>
+       to install applets you need the ruby zlib library installed")
+       
+ Helptext.update( 
+     :applet_tinkerbackeditconfiguration  => " You can edit the configuration
+  <p>
+  Remember to reload the configuration variables if you want your
+  changes used.")
+  
+   Helptext.update( 
+  :remotegemapplet_install  => " To download and install use the 'Install Remote Applets'
+  <br>
+  First click on 'List applets in the Remote GEM Repository available for downloading'<br>
+  then go to the very bottom to click on the applet you want<br>
+  then on the top click 'install remote Gem applet package'
+  <br>
+  This installs the package in the Gem system<br>
+  You still need to install it into rwdtinker - do that in the 'List Zips' tab<br>
+  <br>
+  For this feature to work, you need<br>
+  RubyGems installed<br>
+   Variables set correctly in the tinerwin2.cnf file<br>
+      $xpcommand,  $gemdirectory_withgemfiles and  $geminstalled_directory<br>
+    the defaults as shipped will normally be for a Debian Linux system  <br>
+   On Debian Linux, you would usually need to be running rwdtinker as root in order to install RubyGems
+   <br><br>
+   You can view the list of rwdtinker applets you have installed already by clicking 'view already installed GEM applets'
+ "
+)
+   Helptext.update( :localechanger_help => "#{Message[:locale_changer_help] }" )