rwdgutenberg 0.12 → 0.13

data/code/superant.com.gutenberg/openhelpwindow.rb

@@ -0,0 +1,41 @@
+# this code is to call the help window
+def runhelpwindowrwdgutenberg
+
+     $help_topic = "rwdgutenberg_generalhelp"
+        $helptopicsarray =  $helptopicsarray  << "rwdgutenberg_generalhelp"
+	    
+   if @rwd_tab == "superantcomgutenbergfile"
+        $help_topic = "gutenbergedit_help"
+	
+    $helptopicsarray =  $helptopicsarray  << "gutenbergedit_help"
+end
+   
+    if @rwd_tab == "rwdgutenberglistfiles"
+	$help_topic = "gutenlist_help"
+	 $helptopicsarray =  $helptopicsarray  << "gutenlist_help"
+   end
+  
+   if @rwd_tab ==  "gutendisplaytexttab"
+	  $help_topic = "gutenbergtextdisplay_help"
+	   $helptopicsarray =  $helptopicsarray  << "gutenbergtextdisplay_help"
+ end	  
+	   
+     
+     helpsearchterm = @rwd_tab  + "_help"
+     
+    
+   if Helptext.has_key? helpsearchterm.intern
+                  $help_topic = helpsearchterm
+                   if  ! $helptopicsarray.include?( helpsearchterm)
+	                     $helptopicsarray << helpsearchterm 
+                  end
+   end
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

data/code/superant.com.library/marcsearch.rb

@@ -0,0 +1,30 @@
+#
+
+# 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
+def marcsearch
+	 require 'stringio'
+        #isbn = '0060932767'
+	if  @a_viewrwdsagisbn.empty?
+		@a_gutenbergmarcdata = "need to enter isbn number"
+      else		
+	@@marcisbn = @a_viewrwdsagisbn
+	isbn = @@marcisbn.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
+             zmarclocation = File.join("lib", "zmarc.rb")
+	       #$stderr.puts   zmarclocation 
+	       $tmpmarcfilesoutput = ""
+    
+			#this is child process
+			zmarcFile = File.open( zmarclocation ,"r")
+			tmpzmarc = zmarcFile .read
+		 	eval(tmpzmarc)
+	 #$stderr.puts $tmpmarcfilesoutput
+	
+	@a_gutenbergmarcdata =  $tmpmarcfilesoutput 
+	end
+end

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

@@ -0,0 +1,84 @@
+
+#***********************************************************************
+#* 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".
+#***********************************************************************/
+
+def  runlocalechangercommand
+	
+	$rwdtinkerlog.info "preparing to restart gui"
+	
+	  $lang = @a_localechooseinput  # pick the language of choice
+	  
+tempdoc = " "
+
+  Dir.chdir($progdir) # change back to top program directory
+
+
+  # build the English Language hash file from the parts
+
+   
+  require 'lib/rwdtinker/rwdlangdir'
+ 
+  tempdoc = " "
+  #go get all the po language file files in english
+    tempdoc = RwdtinkerTools.findlanguagefiles(LangDir,"en")
+
+  #writes the contents of doc into the  languagehashvariable 
+  languagehashvariable  =  tempdoc 
+
+  # END of en Lang building
+  tempdoc = " "
+  Dir.chdir($progdir) # change back to top program directory
+
+  # build the local Language hash file from the parts
+    
+  
+  
+   # Go get all the po files for the language of choice
+    tempdoc  = RwdtinkerTools.findlanguagefiles(LangDir,$lang)
+    # the contents of doc into the variable
+    languagehashvariable =  languagehashvariable   + tempdoc 
+
+    Dir.chdir($progdir) # change back to top program directory
+    
+    # lets read those po files, first english then the chosen language
+    temp = eval(   languagehashvariable )
+
+  
+
+
+  # build the actual GUI from the gui parts
+   require 'lib/rwdtinker/rwdguidir'
+   
+  tempdoc = RwdtinkerTools.findguifiles(GuiDir)
+  
+
+  # gui variable is done
+  guiRWD = ""
+  $rwd_gui_tinker =  tempdoc
+  
+   $rwdtinkerlog.info "restarting gui now"
+   
+RWDWindow.new($rwd_gui_tinker, @rwd_window).render("DEFAULT")
+
+end
+
+  

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

@@ -1,4 +1,3 @@
-
 #***********************************************************************
 #* Rwd/Tinker -- A Ruby program for the RudyWebDialog.
 #* Copyright (c) 2004 - 2005 by Steven Gibson. All Rights Reserved.
@@ -30,8 +29,6 @@ def initiateapplet(nametextlocal)
 	
 	$rwdtinkerlog.info  "initiateapplet: starting config load with: #{nametextlocal}"
 
-
-
   Dir.chdir($progdir )    #changes the current working directory
 	  
   @confignew =  "configuration/" + "#{nametextlocal}.cnf"
@@ -44,13 +41,10 @@ begin
 	 
        eval configfileload  #load  config file
        
-    
-	
 	 rescue
 	 
    $rwdtinkerlog.error  "initiateapplet: error in initiateapplets - config load"
         
-  
         debuginitiate += 1
 end
 $tempdoc = " "
@@ -58,80 +52,24 @@ $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
-
+  require 'lib/rwdtinker/rwdlangdir'
+  
+  tempdoc  = RwdtinkerTools.findlanguagefiles(LangDir,"en")
 
   #writes the contents of doc into the  languagehashvariable 
-
   
-  languagehashvariable  =  languagehashvariable + $tempdoc + ' :rwdtinker => "Rwdtinker" ) ;'
+  languagehashvariable  =  tempdoc  
 
   # 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
+  tempdoc  = RwdtinkerTools.findlanguagefiles(LangDir,$lang)
 
+   #writes the contents of doc into the variable
 
-  #writes the contents of doc into the variable
-
- languagehashvariable =  languagehashvariable  + "  Message.update(" + $tempdoc + ' :rwdtinker => "Rwdtinker" ) '
- 
-  
-    
-  $tempdoc = " "
+ languagehashvariable =  languagehashvariable + tempdoc 
 
   Dir.chdir($progdir) # change back to top program directory
 
@@ -142,44 +80,18 @@ $tempdoc = " "
   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
-
+  tempdoc = " "
+  
+   require 'lib/rwdtinker/rwdguidir'
+   
+  tempdoc = RwdtinkerTools.findguifiles(GuiDir)
+  
+ $rwd_gui_tinker = tempdoc
   
  rescue
     $rwd_gui_tinker = tempguistorage # restore old gui
     
     $rwdtinkerlog.error  "error in initiateapplets - gui building"
-     
 
         debuginitiate += 1
 end
@@ -237,5 +149,21 @@ begin # error trap
 end
 
 
+def findfiles(d)
+	a = Array.new(Dir[d].entries.sort)
+	#loop through and get the files names
+	a.each do |x|
+		#adjust the filters to the files you want to see...
+		if(!test(?d,x))
+			# only rwd files
+			if x =~ /rb|rwd|txt/
+				fileA=File.open("#{x}","r")        #opens the file thats in fileName as read only
+				$tempdoc+=fileA.read    #reads the file into the doc string
+				fileA.close    
+			end
+		end
+	end
+end
+
 
   

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

@@ -1,4 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # install rwdtinker applet from a long directory location 
+
 def installgemapplet
 	require 'fileutils'
 	require 'lib/zip/zip'

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

@@ -1,4 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # this code is to list the zips
+
 def fillzipappletname(inffile)
 	applet                = inffile.gsub(/\.zip$/, "")
 	@a_installapplet = applet

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

@@ -1,4 +1,6 @@
-# this code is to list the applets that are installed
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# this code is to list the applets that are installed
+
 def listinstalledfiles
 	fileList      = Dir.new("installed").entries.sort.reverse.delete_if { |x| ! (x =~ /inf$/) }
 	@filesresult  = fileList.rwd_method("fillappletname")

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

@@ -1,4 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # this code is to list the zipped applets that can be installed
+
 def fillziptoinstallname(inffile)
 	applet                = inffile.gsub(/\.zip$/, "")
 	@a_installapplet        = applet
@@ -7,6 +9,8 @@ end
 
 def  listzipfilestoinstall
 	
+		$zipsarraylocal = []
+		
 	if  $zipslocation.slice(0,1) == "/" ||   $zipslocation.include?(":")
 	    startlangdir = $zipslocation 
          else	

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

@@ -1,4 +1,6 @@
-# this method puts the configuration rexord on the screen
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# this method puts the configuration rexord on the screen
+
 def loadconfigurationrecord
 
 	require 'fileutils'

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

@@ -23,7 +23,9 @@ def runhelpwindowtinkerwin2
 	if @rwd_tab == "superantcomremotezipsinstall"
 		$help_topic = "remotegemapplet_install"
 	end
-
+	if @rwd_tab == "localechangertab"
+        $help_topic = "localechanger_help"
+	end
 	
 	if @rwd_window != "rwdtinkerhelpwindow"
 		$previouswindow = @rwd_window

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

@@ -0,0 +1,9 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# help about option setup for rwdtinker application
+
+
+def showlocalechoicesoptions
+
+  @localechooseoptions = $langarray.rwd_options
+end	
+   

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

@@ -1,3 +1,4 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL.
 #view contents of a tinker applet
 def viewappletcontents
 	require 'fileutils'

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

@@ -1,13 +1,16 @@
+#view the log on the tab
+
 def rwdtinkerrunviewlog
 	   require 'lib/rwdtinker/rwdtinkertools'
 	   
+                  logfilelocation = File.join(LogDirectory, 'rwdtinker.log')      
            if @a_rwdtinkerlognumber == nil
 		        @a_rwdtinkerlognumber = 11
-	                 @returnlogdisplay = RwdtinkerTools.tail("rwd_files/log/rwdtinker.log",@a_rwdtinkerlognumber.to_i)
+		        
+	    end
+		        
+	         @returnlogdisplay = RwdtinkerTools.tail(logfilelocation , @a_rwdtinkerlognumber.to_i)
 			 
-	   else
-		         @returnlogdisplay = RwdtinkerTools.tail("rwd_files/log/rwdtinker.log",@a_rwdtinkerlognumber.to_i)
-
-           end
+	   
 end