rwdgutenberg 0.03

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

@@ -0,0 +1,15 @@
+ # this code is to list the file data
+ def listgutrecordfiles
+  if File.exist?($rwdgutenberg_directory)
+   fileList      = Dir.new($rwdgutenberg_directory).entries.sort.delete_if { |x| ! (x =~ /gut$/) }
+   
+   @gutenbergrecordsresult  = fileList.rwd_method("fillgutenbergrecordname")
+  end
+ end
+ 
+ # this method is to help fill in list of names
+ def fillgutenbergrecordname(inffile)
+  applet                = inffile.gsub(/\.gut$/, "")
+  @a_viewgutenberg       = applet
+ end
+

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

@@ -0,0 +1,58 @@
+# this code is to list the links
+
+def fillhypergutenbergname(inffile)
+  
+  @a_newfilegutenberg  =  inffile
+end
+
+ def findgutenbergfiles(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 lnk files
+                  if x =~ /rb|txt|lst/
+                    puts "#{x}"        #opens the file thats in fileName as read only
+                   $gutenbergarray =  $gutenbergarray | ["#{x}"] 
+                  end
+               end
+          end
+  end
+  
+def rwdgutenbergfiles
+ $gutenbergarray = [""]
+ startlangdir = @a_searchdirectorygutenberg
+ puts startlangdir
+ #get a list of the files and subdirectories on the starting directory only
+        agutenbergarray = Array.new(Dir[startlangdir].entries.sort)
+        p agutenbergarray
+	#loop through the list, ignore the files and add all new directories found
+        agutenbergarray.each do |x|
+          #if a directory...
+          if(test(?d,x))
+            # add to the original list of directories
+            @@tmproot = x + "/**"
+            puts @@tmproot
+            #adds the new ones to the array
+            bgutenbergarray = Dir[@@tmproot].entries.sort
+         p  bgutenbergarray
+           bgutenbergarray.each do |x|
+            p x  
+	    if(test(?d,x))
+                 agutenbergarray.push(x)  #appends to the end of the array...
+      p   agutenbergarray 
+        end
+            end
+          end
+       end
+        agutenbergarray.each do |x|
+                #if it is a file...
+                if(!test(?d,x))
+                        agutenbergarray.delete(x)
+                 else              #it is a directory...
+                       findgutenbergfiles(x + "/**")
+                end
+        end
+         @textsfilesrecordsresult = $gutenbergarray.rwd_method("fillhypergutenbergname")
+      end  

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

@@ -0,0 +1,21 @@
+   # this method views an existing  record
+  def rwdgutenloadbookrecord
+ 
+         require 'fileutils'
+        
+	      
+        begin # exception trapped block
+       
+       
+	      tmpfileName =  @a_viewgutenberg + ".gut"
+        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: " + $!
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,36 @@
+   # this method puts the configuration rexord on the screen
+  def loadrwdgutenbergconfiguration
+ 
+         require 'fileutils'
+          
+               @a_gutenconfigurationfilename = "rwdgutenberg.cnf" 
+        
+	      
+        begin # exception trapped block
+       
+       Dir.chdir($progdir)
+	      fileName = File.join(ConfigurationDir, "rwdgutenberg.cnf")
+        
+        
+	      fd = File.open(fileName,"r")
+	      @a_gutenconfigline1=        fd.readline.chomp
+	      @a_gutenconfigline2 =  fd.readline.chomp
+        @a_gutenconfigline3 = fd.readline.chomp
+          @a_gutenconfigline4 = fd.readline.chomp
+        @a_gutenconfigline5 = fd.readline.chomp
+         @a_gutenconfigline6 = fd.readline.chomp 
+          @a_gutenconfigline7 =fd.readline.chomp
+          @a_gutenconfigline8 = fd.readline.chomp
+           @a_gutenconfigline9 = fd.readline.chomp
+          @a_gutenconfigline10 = fd.readline.chomp
+           @a_gutenconfigline11 = fd.readline.chomp
+	 
+	      while ! fd.eof?
+	        @extragutenconfigdatadisplay = fd.readline
+	      end
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,13 @@
+   # 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"
+ end
+  end

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

@@ -0,0 +1,29 @@
+# this code is to call the help window
+def runhelpwindowrwdgutenberg
+
+     $help_topic = "rwdgutenberg_generalhelp"
+   
+   if @rwd_tab == "utilitiesrwdgutenberg"
+        $help_topic = "gutenbergutility_help"
+   end
+     
+   if @rwd_tab == "superantcomgutenbergfile"
+        $help_topic = "gutenbergedit_help"
+   end
   
+  
+   
+  if @rwd_tab == "viewrwdgutenbergconfiguration"
+  $help_topic = "rwdgutenberg_configuration"
+  end
+   $helptopicsarray =  $helptopicsarray | ["gutenbergedit_help","rwdgutenberg_generalhelp","rwdgutenberg_configuration"]
+  
+   
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

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

@@ -0,0 +1,10 @@
+# Application rwdtinker orginally (c) 2004 Steven Gibson under GPL. 
+# 
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def returntomainx
+   @rwd_window = "main"
+   @rwd_tab = "rwdscheduleselectiontab"
+   end   
+   

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

@@ -0,0 +1,42 @@
+  def rungutenbergwindow
+    
+     rwdgutenbergwindowtwo
+  end
+
+  $tempnumber  = 0
+ 
+  def rwdgutenbergwindowtwo
+  tempdoc = ""
+  @gutendisplayvariable = ""
+  
+  tempcount = 0
+  if @rwd_tab== "rwdgutenberg"
+    @rwd_window	= "gutendisplaywindowtwo"
+    end
+    if $gutenbergcommand == "openbook"
+    
+      tmpfileName =  @a_viewgutenberg + ".gut"
+        fileName = File.join($rwdgutenberg_directory,tmpfileName)
+	      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      
+      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

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

@@ -0,0 +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

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

@@ -0,0 +1,14 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# http://www.erikveen.dds.nl/rubywebdialogs/index.html 
+# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
+  
+  # return the version constant defined in the config file
+  def runrwdgutenbergversion
+  @rwd_window = "applicationversion"
+  @versionappnamedisplay = "RwdGutenberg"
+  @versioncopyrightdisplay = "(c) 2005 Steven Gibson "
+  @versionnumberdisplay =  "Version " + RwdGutenbergVersion
+
+   end
+  

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

@@ -0,0 +1,18 @@
+  # this method adds a new address record
+  def saverwdgutenbergconfiguration
+   require 'fileutils'
+   
+   newname = "rwdgutenberg.cnf" # grab the filename to create
+   newdata =@a_gutenconfigline1.to_s + "\n" + @a_gutenconfigline2.to_s + "\n" + @a_gutenconfigline3.to_s + "\n" + @a_gutenconfigline4.to_s + "\n" + @a_gutenconfigline5.to_s + "\n" + @a_gutenconfigline6.to_s + "\n" + @a_gutenconfigline7.to_s + "\n" + @a_gutenconfigline8.to_s + "\n" + @a_gutenconfigline9.to_s + "\n"+ @a_gutenconfigline10.to_s + "\n"+ @a_gutenconfigline11.to_s + "\n"+ @a_gutenconfigline9.to_s + "\n"
+	 
+        begin # exception trapped block
+          fileName = File.join( ConfigurationDir, newname )
+        	fd = File.open(fileName,"w")
+	        fd.print(newdata) # save the record info to the file
+	        fd.close
+          @newconfigurationresult=newdata # show the record info in the browser
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    
+  end

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

@@ -0,0 +1,20 @@
+  # this method adds a new  record
+  def savegutenbergrecord
+   require 'fileutils'
+    if ! @a_gutenbergdata.empty?
+   if ! @a_viewgutenberg.empty?
+   fileName =   $rwdgutenberg_directory + "/" + @a_viewgutenberg.to_s + ".gut" # grab the new filename to create
+  
+	
+        begin # exception trapped block
+       
+        	fd = File.open(fileName,"w")
+	        fd.print(  @a_gutenbergdata) # save the record info to the file
+	        fd.close
+      
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    end
+    end
+  end

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

@@ -0,0 +1,23 @@
+  # this method adds a new  record
+  def hypernotesavelinkrecord
+   require 'fileutils'
+    if ! @a_notelinksdata.empty?
+   if ! @a_viewlinksnote.empty?
+   fileName = "%s" %   [@a_viewlinksnote] # grab the new filename to create
+  
+	
+        begin # exception trapped block
+       
+        	fd = File.open(fileName,"w")
+	        fd.print(  @a_notelinksdata) # save the record info to the file
+	        fd.close
+      
+    p fileName
+   p @a_notelinksdata 
+      
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    end
+    end
+  end

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

@@ -0,0 +1,99 @@
+# Bind message passing socket to rwdtinker application
+
+def runcontrolcommand
+require 'socket'
+
+# Change this line... 
+ ip =  '127.0.0.1' 
+# And this one...
+ port =  $rwdcontrolport1
+ if @a_remoteportinput
+ port = @a_remoteportinput.to_i
+ end
+
+    commandtext =  @a_remotecommandinput.to_s 
+   remotehostnotfound = true
+ if (commandtext == "stop")
+ begin
+ client = UDPSocket::new()
+ client.send(commandtext, 0, ip, port)
+		@socket = UDPSocket::new()
+		@socket.bind(ip, port)
+	 # Rescue the "Address in use" error
+	 rescue Errno::EADDRINUSE
+		   
+  databack, info = client.recv(128)
+  @remotecommandresult =  databack
+  @lastremotecommand =  "rwdtinker remote:: Port #{port} on host #{ip} ."
+  remotehostnotfound = false
+  
+	 # Rescue the "Address not available" error
+	 rescue Errno::EADDRNOTAVAIL
+		puts "Network plugin: Address #{host} is not available to bind."
+
+	 # Rescue "permission denied errors
+    rescue Errno::EACCES
+		puts "Network plugin: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
+
+# Rescue all other errors
+	 rescue
+   puts "Network plugin: An error occured."
+		
+	 # Rescue all other errors
+	 end
+  if remotehostnotfound
+     @remotecommandresult =  "Remote Host not running"
+     end
+ @socket.close
+  # Close the socket after use
+ client.close()
+ end
+
+ remotehostnotfound = true
+ if (commandtext == "query") 
+ begin
+ client = UDPSocket::new()
+ client.send(commandtext, 0, ip, port)
+		@socket = UDPSocket::new()
+		@socket.bind(ip, port)
+	 # Rescue the "Address in use" error
+	 rescue Errno::EADDRINUSE
+		
+  databack, info = client.recv(128)
+  @remotecommandresult =  databack
+  @lastremotecommand = "rwdtinker remote: Port #{port} on host #{ip} "
+		remotehostnotfound = false
+    
+	 # Rescue the "Address not available' error
+	 rescue Errno::EADDRNOTAVAIL
+		puts "Network plugin: Address #{host} is not available to bind."
+		
+	 # Rescue "permission denied errors
+    rescue Errno::EACCES
+		puts "Network plugin: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
+		
+	 # Rescue all other errors
+	 rescue
+   puts "Network plugin: An error occured."
+		
+	 # Rescue all other errors
+	 end
+@socket.close
+
+# Close the socket after use
+client.close()
+end
+
+ if remotehostnotfound
+     @remotecommandresult =  "Remote Host not running"
+ end
+end
+
+# list the remote control options on the screen
+def showremoteportoptions
+ 
+ @remoteportoptions = $rwdcontrolports.rwd_options
+  @remotecommandoptions = ["query","stop"].rwd_options
+ end
+
+