rwdshell 0.98 → 0.99

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

@@ -1,12 +1,12 @@
 # this code is to list the gem directories that are installed
 def superantcomshowgemfiledirs
- 
-  fileList      = Dir.new($gemdirectory_withgemfiles).entries.sort.delete_if { |x| ! (x =~ /\Arwdzip/) }
-  @superantcomshowgemappletdirsresult  = fileList.rwd_method("superantcomshowgemappletdirsname")
+
+	fileList      = Dir.new($gemdirectory_withgemfiles).entries.sort.delete_if { |x| ! (x =~ /\Arwdzip/) }
+	@superantcomshowgemappletdirsresult  = fileList.rwd_method("superantcomshowgemappletdirsname")
 end
- 
+
 def superantcomshowgemappletdirsname(inffile)
-  applet                = inffile
-  @a_gemfiledirsinput       = applet
-  
+	applet                = inffile
+	@a_gemfiledirsinput       = applet
+
 end

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

@@ -1,54 +1,53 @@
 # this code is to list the zips
-
-
 def fillzipappletname(inffile)
-  applet                = inffile.gsub(/\.zip$/, "")
-  @a_installapplet = applet
-  
+	applet                = inffile.gsub(/\.zip$/, "")
+	@a_installapplet = applet
+	
+end
+
+def findzipfiles(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 zip files
+			if x =~ /\.zip/
+				puts "#{x}"        #opens the file thats in fileName as read only
+				$zipsarray =  $zipsarray | ["#{x}"] 
+			end
+		end
+	end
 end
 
- def findzipfiles(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 zip files
-                  if x =~ /\.zip/
-                    puts "#{x}"        #opens the file thats in fileName as read only
-                   $zipsarray =  $zipsarray | ["#{x}"] 
-                  end
-               end
-          end
-  end
-  
 def listgemzips
- startlangdir = $geminstalled_directory
- #get a list of the files and subdirectories on the starting directory only
-        alanghash = Array.new(Dir[startlangdir].entries.sort)
-        p alanghash
-        #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...
-                        findzipfiles(x + "/**")
-                end
-        end
-         @zipslistresult = $zipsarray.rwd_method("fillzipappletname")
-      end  
+	startlangdir = $geminstalled_directory
+	#get a list of the files and subdirectories on the starting directory only
+	alanghash = Array.new(Dir[startlangdir].entries.sort)
+	p alanghash
+	#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...
+			findzipfiles(x + "/**")
+		end
+	end
+	@zipslistresult = $zipsarray.rwd_method("fillzipappletname")
+end
+

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

@@ -1,11 +1,12 @@
 # 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")
+	fileList      = Dir.new("installed").entries.sort.reverse.delete_if { |x| ! (x =~ /inf$/) }
+	@filesresult  = fileList.rwd_method("fillappletname")
 end
- 
+
 def fillappletname(inffile)
-  applet                = inffile.gsub(/\.inf$/, "")
-  @a_installlist        = applet
-  @a_removeapplet       = applet
-end
+	applet                = inffile.gsub(/\.inf$/, "")
+	@a_installlist        = applet
+	@a_removeapplet       = applet
+end
+

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

@@ -1,31 +1,27 @@
 # this code is to list the zipped applets that can be installed
-
- 
 def fillziptoinstallname(inffile)
-  applet                = inffile.gsub(/\.zip$/, "")
-  @a_installapplet        = applet
-  
+	applet                = inffile.gsub(/\.zip$/, "")
+	@a_installapplet        = applet
+	
 end
-
 
-
-  
 def  listzipfilestoinstall
- startlangdir = File.join($progdir, $zipslocation )
- #get a list of the files and subdirectories on the starting directory only
-      
-    
-        a = Array.new(Dir["#{startlangdir}/*"].entries.sort)
-        
-         #loop through and get the files names
-         a.each do |x|
-               # only zip files
-                  if x =~ /\.zip/
-                  #  puts "#{x}"        #adds the file to the array to display on the screen
-                   $zipsarraylocal =  $zipsarraylocal | ["#{x}"] 
-               end
-              
-             end
-      
-         @zipslistresult = $zipsarraylocal.rwd_method("fillziptoinstallname")
-      end  
+	startlangdir = File.join($progdir, $zipslocation )
+	#get a list of the files and subdirectories on the starting directory only
+	
+
+	a = Array.new(Dir["#{startlangdir}/*"].entries.sort)
+
+	#loop through and get the files names
+	a.each do |x|
+		# only zip files
+		if x =~ /\.zip/
+			#  puts "#{x}"        #adds the file to the array to display on the screen
+			$zipsarraylocal =  $zipsarraylocal | ["#{x}"] 
+		end
+
+	end
+	
+	@zipslistresult = $zipsarraylocal.rwd_method("fillziptoinstallname")
+end 
+

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

@@ -1,32 +1,33 @@
-   # this method puts the configuration rexord on the screen
-  def loadconfigurationrecord
- 
-         require 'fileutils'
-         if TinkerWin2ConfigurationFileName 
-               @a_configurationfilename = TinkerWin2ConfigurationFileName 
-         end
-	      
-        begin # exception trapped block
-       
-       Dir.chdir($progdir)
-	      fileName = File.join(ConfigurationDir, TinkerWin2ConfigurationFileName)
-        
-	      fd = File.open(fileName,"r")
-	      @a_configline1=        fd.readline.chomp
-	      @a_configline2 =  fd.readline.chomp
-        @a_configline3 = fd.readline.chomp
-          @a_configline4 = fd.readline.chomp
-        @a_configline5 = fd.readline.chomp
-         @a_configline6 = fd.readline.chomp 
-          @a_configline7 =fd.readline.chomp
-          @a_configline8 = fd.readline.chomp
-	 
-	      while ! fd.eof?
-	        @extraconfigdatadisplay = fd.readline
-	      end
-        fd.close
-        rescue SystemCallError, StandardError
-            $stderr.print "system call error: " + $!
-        end # exception rescue
+# this method puts the configuration rexord on the screen
+def loadconfigurationrecord
+
+	require 'fileutils'
+	if TinkerWin2ConfigurationFileName 
+		@a_configurationfilename = TinkerWin2ConfigurationFileName 
+	end
+
+	begin # exception trapped block
+
+		Dir.chdir($progdir)
+		fileName = File.join(ConfigurationDir, TinkerWin2ConfigurationFileName)
+
+		fd = File.open(fileName,"r")
+		@a_configline1=        fd.readline.chomp
+		@a_configline2 =  fd.readline.chomp
+		@a_configline3 = fd.readline.chomp
+		@a_configline4 = fd.readline.chomp
+		@a_configline5 = fd.readline.chomp
+		@a_configline6 = fd.readline.chomp 
+		@a_configline7 =fd.readline.chomp
+		@a_configline8 = fd.readline.chomp
+
+		while ! fd.eof?
+			@extraconfigdatadisplay = fd.readline
+		end
+		fd.close
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+	end # exception rescue
+
+end
 
-  end

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

@@ -1,13 +1,14 @@
-   # this method loads the on screen variables into the running class
-   def loadconfigurationvariables
-   
-   configfiletoload = File.join(ConfigurationDir,TinkerWin2ConfigurationFileName)
-   begin
-    load configfiletoload
-    @extraconfigdatadisplay = ""
-@newconfigurationresult = "Config Variables loaded"
-rescue
- @extraconfigdatadisplay = ""
- @newconfigurationresult = "loading error"
- end
-  end
+# this method loads the on screen variables into the running class
+def loadconfigurationvariables
+
+	configfiletoload = File.join(ConfigurationDir,TinkerWin2ConfigurationFileName)
+	begin
+		load configfiletoload
+		@extraconfigdatadisplay = ""
+		@newconfigurationresult = "Config Variables loaded"
+	rescue
+		@extraconfigdatadisplay = ""
+		@newconfigurationresult = "loading error"
+	end
+end
+

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

@@ -1,87 +1,87 @@
-#!ruby
+#network
 require 'socket'		# Network stuff
 require 'timeout'		# Timeout functions
 
 def network_start
- if RUBY_PLATFORM != "i386-mswin32"
- processone = fork { 
-  network_demon }
-  Process.detach(processone)
-
- else
-  puts "fork not tried winXP?"
- end
-  @viewremotecommandresult = "starting controller on next available port"
-end
-
-  def network_demon
-	 # Find configuration variables
-	 host = "127.0.0.1"
-	 port = $rwdcontrolports[0].to_i
-	 
-openportfound = false
-until openportfound
-   
-	 # Create a socket to listen on and bind it to the host and port 
-	 begin
-		@socket = UDPSocket::new()
-		@socket.bind(host, port)
-	 # Rescue the "Address in use" error
-     openportfound = true
-   
-	 rescue Errno::EADDRINUSE
-		 puts "controller startup: Port #{port} on host #{host} is already in use."
-		port=port+1
-	 # Rescue the "Address not available' error
-	 rescue Errno::EADDRNOTAVAIL
-		puts "Network plugin: Address #{host} is not available to bind."
-		port=port+1
-	 # Rescue "permission denied errors
-    rescue Errno::EACCES
-		puts "controller startup: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
-		port=port+1
-	 # Rescue all other errors
-	 rescue
-   puts "Network plugin: An error occured."
-		port = port+1
-	 # Rescue all other errors
-	 end
- 
-   end
-   
-
-	 # Get all acceptable hosts 
-	 hosts = ["localhost","vaio-sag"] 
-	 # Do some nice errorchecking
-	 if(hosts.type != Array)
-		puts "Network plugin: No hosts found in networkConfig/acceptHosts. Shutting down plugin."
-		return -1 # Return the errorcode for plugin failure
-	 end
-
-	 # Main loop 
-	 while(true)
-		# Get data and client data from the client
-		data, info = @socket.recvfrom(256)
-
-		# Is this an acceptable IP address?
-		if(hosts.include?(info[2]) || hosts.include?(info[3]))
-		  command, parameter = data.split(';')
-		  
-		  # Command actions
-		  command.downcase!()
-		  case command
-      
-		  when 'stop'
-						  @socket.send("hello world",0,info[3],info[1].to_i)
-				
-      		  when 'query'
-							  @socket.send("#{$rwdapplicationidentity} on port #{$port}",0,info[3],info[1].to_i)
-				
-      
-		  end # case command
-
-		end # Access control if
-	 end # while(true)
-
-  end # Network::start()
+	if RUBY_PLATFORM != "i386-mswin32"
+		processone = fork { 
+			network_demon }
+			Process.detach(processone)
+
+		else
+			puts "fork not tried winXP?"
+		end
+		@viewremotecommandresult = "starting controller on next available port"
+	end
+
+	def network_demon
+		# Find configuration variables
+		host = "127.0.0.1"
+		port = $rwdcontrolports[0].to_i
+
+		openportfound = false
+		until openportfound
+
+			# Create a socket to listen on and bind it to the host and port 
+			begin
+				@socket = UDPSocket::new()
+				@socket.bind(host, port)
+				# Rescue the "Address in use" error
+				openportfound = true
+
+			rescue Errno::EADDRINUSE
+				puts "controller startup: Port #{port} on host #{host} is already in use."
+				port=port+1
+				# Rescue the "Address not available' error
+			rescue Errno::EADDRNOTAVAIL
+				puts "Network plugin: Address #{host} is not available to bind."
+				port=port+1
+				# Rescue "permission denied errors
+			rescue Errno::EACCES
+				puts "controller startup: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
+				port=port+1
+				# Rescue all other errors
+			rescue
+				puts "Network plugin: An error occured."
+				port = port+1
+				# Rescue all other errors
+			end
+
+		end
+
+
+		# Get all acceptable hosts 
+		hosts = ["localhost","vaio-sag"] 
+		# Do some nice errorchecking
+		if(hosts.type != Array)
+			puts "Network plugin: No hosts found in networkConfig/acceptHosts. Shutting down plugin."
+			return -1 # Return the errorcode for plugin failure
+		end
+
+		# Main loop 
+		while(true)
+			# Get data and client data from the client
+			data, info = @socket.recvfrom(256)
+
+			# Is this an acceptable IP address?
+			if(hosts.include?(info[2]) || hosts.include?(info[3]))
+				command, parameter = data.split(';')
+
+				# Command actions
+				command.downcase!()
+				case command
+
+				when 'stop'
+					@socket.send("hello world",0,info[3],info[1].to_i)
+
+				when 'query'
+					@socket.send("#{$rwdapplicationidentity} on port #{$port}",0,info[3],info[1].to_i)
+
+
+				end # case command
+
+			end # Access control if
+		end # while(true)
+
+	end # Network::start()