rwdgutenberg 0.09 → 0.12

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

@@ -2,30 +2,68 @@
   def rwdgutenloadbookrecord
  
          require 'fileutils'
-        @a_gutenbergdatapath =       ""
-         @a_gutenbergdatainfo =        ""
-          @a_gutenbergdatalocation =     ""
-           @a_gutenbergdatalines =        ""
-            @a_gutenbergdataspeed =        ""
-	   	       @a_gutenbergdatacomments =      ""
+          @a_gutenbergdatapath =       ""
+          @a_gutenbergdatainfo =        ""
+          @a_gutenbergdatalocation =     ""
+           @a_gutenbergdatalines =        ""
+           @a_gutenbergdataspeed =        ""
+          @a_gutenbergdatacomments =      ""
 	      
 	      
         begin # exception trapped block
        
-       
-	      tmpfileName =  @a_viewgutenberg + ".gut"
+               if File.extname(@a_viewgutenberg) == ".lnk" 
+		  tmpfileName = @a_viewgutenberg
+	    else
+		 tmpdirname = File.dirname(@a_viewgutenberg)
+	          tmpext = File.extname(@a_viewgutenberg)
+	         tmpfilename = File.basename(@a_viewgutenberg,"#{tmpext}")
+	          tmpfileName = tmpfilename.to_s + ".lnk"	  
+	      
+	      end
         fileName = File.join($rwdgutenberg_directory,tmpfileName)
 	      fd = File.open(fileName,"r")
-	      @a_gutenbergdatapath =        fd.readline.chomp
-         @a_gutenbergdatainfo =        fd.readline.chomp
-          @a_gutenbergdatalocation =        fd.readline.chomp
-           @a_gutenbergdatalines =        fd.readline.chomp
-            @a_gutenbergdataspeed =        fd.readline.chomp
-	   	       @a_gutenbergdatacomments =        fd.readline.chomp
-	      
-        fd.close
+	      @a_gutenbergdatapath =        fd.readline.chomp
+              @a_gutenbergdatainfo =        fd.readline.chomp
+              @a_gutenbergdatalocation =        fd.readline.chomp
+              @a_gutenbergdatalines =        fd.readline.chomp
+              @a_gutenbergdataspeed =        fd.readline.chomp
+	       @a_gutenbergdatacomments =        fd.readline.chomp
+	      
+              fd.close
+        rescue SystemCallError, StandardError
+          $rwdtinkerlog.error "rwdgutenloadbookrecord: system call error #{$!}"
+           
+        end # exception rescue
+
+  end
+ def rwdgutenloadbookrecord2
+ 
+         require 'fileutils'
+        @a_gutenbergdata =       ""
+     
+	      
+	      
+          begin # exception trapped block
+       
+               if File.extname(@a_viewgutenberg) == ".lnk"   
+	            tmpfilename = File.basename(@a_viewgutenberg,".lnk")
+	            tmpfileName = tmpfilename.to_s + ".txt"
+		  
+	       else
+		     tmpfileName = @a_viewgutenberg
+	      
+	      
+	        end
+              fileName = File.join($rwdgutenberg_directory,tmpfileName)
+	      fd = File.open(fileName,"r")
+	      @a_gutenbergdata =        fd.read
+   	      
+              fd.close
         rescue SystemCallError, StandardError
-            $stderr.print "system call error: " + $!
+
+             $rwdtinkerlog.error "rwdgutenloadbookrecord2: system call error "
+            
         end # exception rescue
 
   end

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

@@ -3,20 +3,20 @@
  
          require 'fileutils'
           
-               @a_gutenconfigurationfilename = "rwdwgutenberg-" + RwdGutenbergVersion + ".cnf" 
+               @a_gutenconfigurationfilename = "rwdwgutenberg.cnf" 
         
 	      
         begin # exception trapped block
        
        Dir.chdir($progdir)
-	      fileName = File.join(ConfigurationDir, "rwdwgutenberg-" + RwdGutenbergVersion + ".cnf")
+	      fileName = File.join(ConfigurationDir, "rwdwgutenberg.cnf")
         
         
 	      fd = File.open(fileName,"r")
-	      @a_gutenconfigurationfile =        fd.read
+	      @a_gutenconfigurationfile =        fd.read
         fd.close
         rescue SystemCallError, StandardError
-            $stderr.print "system call error: " + $!
+            $rwdtinkerlog.error "system call error: #{$!}" 
         end # exception rescue
 
   end

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

@@ -1,13 +1,23 @@
    # this method loads the on screen variables into the running class
    def loadrwdgutenbergconfigurationvariables
-   
-   configfiletoload = File.join(ConfigurationDir,"rwdgutenberg.cnf")
-   begin
-    load configfiletoload
-    @extragutenconfigdatadisplay = ""
-@newgutenconfigurationresult = "Config Variables loaded"
-rescue
- @extragutenconfigdatadisplay = ""
- @newgutenconfigurationresult = "loading error"
+ 
+           $rwdtinkerlog.debug "in loadrwdgutenbergconfigurationvariables"
+ 
+       filename = "rwdwgutenberg.cnf"   
+       configfiletoload = File.join(ConfigurationDir,filename)
+       begin
+           load configfiletoload
+           @extragutenconfigdatadisplay = ""
+          @newgutenconfigurationresult = "Config Variables loaded"
+       
+         $rwdtinkerlog.debug "Config Variables loaded"
+       
+       rescue
+        @extragutenconfigdatadisplay = ""
+       @newgutenconfigurationresult = "loading error"
+      
+        $rwdtinkerlog.debug "loadrwdgutenbergconfigurationvariables: loading error"
+ 
+resc
  end
   end

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

@@ -0,0 +1,31 @@
+   # this method views an existing address record
+  def loadgutenbergrecord
+ 
+         require 'fileutils'
+
+	      
+        begin # exception trapped block
+       
+              tmpdirname = File.dirname(@a_viewgutenberghtml)
+	      tmpext = File.extname(@a_viewgutenberghtml)
+	      tmpfilename = File.basename(@a_viewgutenberghtml,"#{tmpext}")
+	      newname = tmpfilename.to_s + ".lnk"
+	      fileName =  File.join(tmpdirname,newname)
+              if File.file?( fileName)
+	             fd = File.open(fileName,"r")
+	             @a_gutenbergdata =        fd.read
+		      fd.close
+		      
+	      else
+		     @a_gutenbergdata = "#{fileName} does not exit"   
+                    
+              end
+ 
+	      tmpnewname = tmpfilename.to_s  + tmpext
+	 @a_viewgutenberg  =  File.join(tmpdirname,tmpnewname)
+        rescue SystemCallError, StandardError
+         $rwdtinkerlog.error "system call error: #{$!}" 
+	
+	end # exception rescue
+
+  end

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

@@ -9,9 +9,15 @@ def runhelpwindowrwdgutenberg
      
    if @rwd_tab == "superantcomgutenbergfile"
         $help_topic = "gutenbergedit_help"
-   end
   
+end
+
    if @rwd_tab == "rwdgutenberglistfiles"
+	$help_topic = "gutenlist_help"
+   end
   
-   
+   if @rwd_tab ==  "gutendisplaytexttab"
+	  $help_topic = "gutenbergtextdisplay_help"
+ end	  
+	   
   if @rwd_tab == "viewrwdgutenbergconfiguration"
   $help_topic = "rwdgutenberg_configuration"
   end

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

@@ -0,0 +1,7 @@
+   # this method resets the hypernote directory to the top default setting
+   def saggutenbergresetdir
+ 
+        
+     $temp_rwdgutenberg_directory=   $rwdgutenberg_directory
+      @gutenberg_directory = $temp_rwdhypernote_directory
+  end

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

@@ -1,10 +1,16 @@
-# Application RwdAddresses 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 runrwdgutenbergbackwindow
-   @rwd_window = "rwdgutenbergwindow"
-   @rwd_tab = "superantcomgutenbergfile"
-   end   
-   
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a contact book
+# For more info  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def runrwdgutenbergwindow
+   @rwd_window = "rwdgutenbergwindow"
+   @rwd_tab = "rwdgutenbergedit"
+  
+   end   
+
+  def rungutenbergbackwindow
+   @rwd_window = "rwdgutenbergbackwindow"
+   @rwd_tab = "superantcomgutenbergfile"
+   end   
+   

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

@@ -1,71 +1,89 @@
-# method to open new TEXT gutenberg window
- def rungutenbergwindow
-      @rwd_window	= "gutendisplaywindowtwo"
-      rwdgutenbergwindowtwo
-  end
-  
-# method to open new HTML gutenberg window
- def rungutenbergwindowhtml
-   @rwd_window	= "gutendisplayhtmlwindowtwo"
-    rwdgutenbergwindowtwo
-  end
-  $tempnumber  = 0
- 
- # start book from beginning
-  def rungutenbergreset
-  $booklocation = 0
-   $gutenbergcommand = "openbook"
-  
-     rwdgutenbergwindowtwo
-  end
- 
- # display text and advance text
-  def rwdgutenbergwindowtwo
-  begin
-    tempdoc = ""
-    @gutendisplayvariable = ""
-    tempcount = 0
-    
-   
-   if $gutenbergcommand == "openbook"
-      
-       fileName = $rwdgutenberg_directory + "/" +  @a_viewgutenberg + ".gut"
-          fd = File.open(fileName,"r")
-          booktitle =        fd.readline.chomp
-    
-          $bookfile=File.new(booktitle,"r")        #opens the file thats in fileName as read only
-         $gutenbergcommand == "continue"
-   
-   end
-     
-   if $gutenbergcommand == "continue"
-       tempcount = 0
-      while   tempcount <  $booksteps 
-       tempdoc += $bookfile.gets    #reads the file into the doc string
-       tempcount += 1
-      end
-       $booklocation = $booklocation + $booksteps
-      end
-   if  $gutenbergcommand == "openbook"
-
-     while   tempcount < $booklocation + $booksteps 
-       tempdoc += $bookfile.gets    #reads the file into the doc string
-       
-       tempcount += 1
-     end
-     $booklocation = $booksteps
-     $gutenbergcommand = "continue"
-    end
-   if $gutenbergcommand == "closebook"      
-          $bookfile.close   
-    end       
-       @gutendisplayvariable = tempdoc
-   
-   
-     rescue SystemCallError , StandardError, RuntimeError
-     		$stderr.print "system call error: " + $! + "\n"
-
-      $gutenbergcommand == "closebook"
-    
-   end
-  end
+# method to open new TEXT gutenberg window
+ def rungutenbergwindow
+      @rwd_window	= "gutendisplaywindowtwo"
+      rwdgutenbergwindowtwo
+  end
+  
+# method to open new HTML gutenberg window
+ def rungutenbergwindowhtml
+   @rwd_window	= "gutendisplayhtmlwindowtwo"
+    rwdgutenbergwindowtwo
+  end
+  $tempnumber  = 0
+ 
+def loadoptionsgutenberg
+
+ gutenbergarray = [5,10,20,50,100,500]
+ @gutenbergspeedoptions = gutenbergarray.rwd_options
+
+end
+
+ # start book from beginning
+  def rungutenbergreset
+  $booklocation = 0
+   $gutenbergcommand = "openbook"
+  
+     rwdgutenbergwindowtwo
+  end
+ 
+ # display text and advance text
+  def rwdgutenbergwindowtwo
+ if @a_gutenbergspeedinput == nil
+   $rwdtinkerlog.debug "rwdgutenbergwindowtwo: steps = nil"
+ else
+   $booksteps = @a_gutenbergspeedinput.to_i
+  end
+
+  begin
+    tempdoc = ""
+    @gutendisplayvariable = ""
+    tempcount = 0
+    
+   
+   if $gutenbergcommand == "openbook"
+      
+                  if File.extname(@a_viewgutenberg) == ".lnk" 
+                            fileName =  @a_viewgutenberg.strip 
+       
+                            fd = File.open(fileName,"r")
+                            booktitle =        fd.readline.chomp
+		    else
+	                    booktitle = @a_viewgutenberg.strip 
+		    end
+		    if File.file?(booktitle)
+                                    $bookfile=File.new(booktitle,"r")        #opens the file thats in fileName as read only
+                                     $gutenbergcommand == "continue"
+                   end
+   end
+     
+   if $gutenbergcommand == "continue"
+       tempcount = 0
+      while   tempcount <  $booksteps 
+       tempdoc += $bookfile.gets    #reads the file into the doc string
+       tempcount += 1
+      end
+       $booklocation = $booklocation + $booksteps
+      end
+   if  $gutenbergcommand == "openbook"
+
+     while   tempcount < $booklocation + $booksteps 
+       tempdoc += $bookfile.gets    #reads the file into the doc string
+       
+       tempcount += 1
+     end
+     $booklocation = $booksteps
+     $gutenbergcommand = "continue"
+    end
+   if $gutenbergcommand == "closebook"      
+          $bookfile.close   
+    end       
+       @gutendisplayvariable = tempdoc
+   
+   
+     rescue SystemCallError , StandardError, RuntimeError
+     		$stderr.print "system call error: " + $! + "\n"
+
+      $gutenbergcommand == "closebook"
+    
+   end
+  end

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

@@ -1,27 +1,27 @@
- 
- 
-  def rwdgutenbergbackward
-  tempdoc = ""
-  @gutendisplayvariable = ""
-  
-  tempcount = 0
-  if @rwd_tab== "rwdgutenberg"
-    @rwd_window	= "gutendisplaywindowtwo"
-    end
-       $booklocation = $booklocation - ($booksteps + $booksteps)
-      while   tempcount < $booklocation + $booksteps  
-       $bookfile.gets
-    if tempcount > $booklocation -1       
-                   tempdoc += $bookfile.gets    #reads the file into the doc string
-     end
-  
-        tempcount += 1
-      end  
-      
-      $booklocation = $booklocation + $booksteps
-       if $gutenbergcommand == "closebook"      
-               $bookfile.close   
-        end       
-    @gutendisplayvariable = tempdoc
-  
-end
+# move back
+ 
+def rwdgutenbergbackward
+  tempdoc = ""
+  @gutendisplayvariable = ""
+  
+  tempcount = 0
+  if @rwd_tab== "rwdgutenberg"
+    @rwd_window	= "gutendisplaywindowtwo"
+  end
+       $booklocation = $booklocation - ($booksteps + $booksteps)
+      while   tempcount < $booklocation + $booksteps  
+       $bookfile.gets
+    if tempcount > $booklocation -1       
+               tempdoc += $bookfile.gets    #reads the file into the doc string
+     end
+  
+        tempcount += 1
+      end  
+      
+      $booklocation = $booklocation + $booksteps
+       if $gutenbergcommand == "closebook"      
+               $bookfile.close   
+        end       
+    @gutendisplayvariable = tempdoc
+  
+end