bigtinker 0.95 → 0.96

data/code/superant.com.rwdaddresses/uploadrwdaddressfiles.rb

@@ -0,0 +1,30 @@
+def uploadrwdaddressfiles
+	require 'net/ftp'
+	BasicSocket.do_not_reverse_lookup = true 
+	@rwdaddressftpdisplays = ""
+	begin
+		ftp = Net::FTP::new($rwdaddresses_ftpsite)
+		@rwdaddressesftpdisplay  = "files uploaded" + "\n" 
+
+		fileListarray = Dir.new($addressfiles_directory).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /nam$/) }
+		if fileListarray
+			ftp.debug_mode = false
+			ftp.login($rwdaddresses_ftplogin, $rwdaddresses_ftppassword)
+			ftp.chdir($rwdaddresses_ftpdirectory)
+			print "I'm in the directory ", ftp.pwd(), "\n"
+			fileListarray.each do |temp|
+				tmpfilenametoupload = File.join($addressfiles_directory,temp)
+				ftp.puttextfile(tmpfilenametoupload  , temp)
+				@rwdaddressesftpdisplay  =   @rwdaddressesftpdisplay + temp + "\n"   
+			end
+		end
+		ftp.close
+
+	rescue
+
+		if ftp
+			ftp.close
+		end
+		print "ftp error"
+	end
+end

data/code/superant.com.rwdaddresses/viewaddressconfiguration.rb

@@ -0,0 +1,21 @@
+def viewaddressesconfiguration 
+	require 'fileutils'
+	begin # exception trapped block
+
+		Dir.chdir($progdir)
+		rwdaddrssesconfigurationfile = File.join( "configuration", "rwdaddresses.cnf" )
+		if  File.exist?(rwdaddrssesconfigurationfile)
+			fd = File.open(rwdaddrssesconfigurationfile,"r")
+			@rwdaddressesconfigurationtext = " "
+			while ! fd.eof?
+				@rwdaddressesconfigurationtext = fd.read
+			end
+			fd.close
+		else
+			@rwdaddressesconfigurationtext  = "File error"
+		end
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+		@rwdaddressesconfigurationtext = "File error"
+	end # exception rescue
+end

data/code/superant.com.rwdaddresses/viewnamedata.rb

@@ -0,0 +1,28 @@
+#view name
+def viewnamedata 
+	require 'fileutils'
+	$currentnametext = "%s" % [@a_viewnamedata]
+	photoname = $currentnametext + ".jpg"
+	begin # exception trapped block
+		path_to = File.join( "rwd_files", "contacttmp.jpg" )
+		path_from = File.join($addressfiles_directory, photoname )
+		if ! File.exist?(path_from)
+			path_from = File.join($addressfiles_directory,"nophoto.jpg" )
+		end
+
+		Dir.chdir($progdir)
+		FileUtils.cp(path_from, path_to)
+		sleep $photodelay
+		fileName = $addressfiles_directory + "/" + $currentnametext + ".nam"
+
+		fd = File.open(fileName,"r")
+		@viewnamedatadisplay = " "
+		while ! fd.eof?
+			@viewnamedatadisplay = fd.read
+		end
+		fd.close
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+	end # exception rescue
+
+end

data/code/superant.com.rwdaddresses/viewphoto.rb

@@ -0,0 +1,4 @@
+def viewcontactphoto
+	@rwd_window = "contactphoto"
+end
+

data/code/superant.com.rwdaddresses/viewrwdaddressesconfiguration.rb

@@ -0,0 +1,23 @@
+#view configuration
+def viewrwdaddressesconfiguration 
+	require 'fileutils'
+	begin # exception trapped block
+
+		Dir.chdir($progdir)
+		rwdaddressesconfigurationfile = File.join( "configuration", "rwdaddresses.cnf" )
+		if  File.exist?(rwdaddressesconfigurationfile)
+			fd = File.open(rwdaddressesconfigurationfile,"r")
+			@rwdaddressesconfigurationtext = " "
+			while ! fd.eof?
+				@rwdaddressesconfigurationtext = fd.read
+			end
+			fd.close
+		else
+			@rwdaddressesconfigurationtext  = "File error"
+		end
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+		@rwdaddressesconfigurationtext = "File error"
+	end # exception rescue
+end
+

data/code/superant.com.rwdaddresses/viewtmpcontactphoto.rb

@@ -0,0 +1,12 @@
+# this code is to list the photo names
+def viewtmpcontactphoto
+	fileList      = Dir.new($tmpphoto_directory).entries.sort.delete_if { |x| ! (x =~ /jpg$/) }
+	@listnamerecordfilesresult = ""
+	@listphotosfromtmp  = fileList.rwd_method("filltmpcontactphoto")
+end
+
+def filltmpcontactphoto(inffile)
+	applet                = inffile.gsub(/\.nam$/, "")
+	@a_tmpphotoname       = applet
+end
+

data/code/superant.com.rwdaddresses/viewvcarddata.rb

@@ -0,0 +1,22 @@
+#view name
+def viewvcarddata 
+	require 'fileutils'
+	$currentnametext = "%s" % [@a_viewvcarddata]
+	
+	begin # exception trapped block
+		
+
+		
+		fileName = $addressfiles_directory + "/" + $currentnametext + ".vcf"
+
+		fd = File.open(fileName,"r")
+		@viewvcarddatadisplay = " "
+		while ! fd.eof?
+			@viewvcarddatadisplay = fd.read
+		end
+		fd.close
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+	end # exception rescue
+
+end

data/code/superant.com.rwdcalc/ca2multiply.rb

@@ -0,0 +1,10 @@
+
+  def rwdmultiply
+    @result = "%s * %s = %s" % [@a_calc, @b_calc, @a_calc.to_i*@b_calc.to_i]
+    
+    $runningtotal += @result + "\n"
+    
+    @runningtape = $runningtotal
+    @a_calc = "%s" % [@a_calc.to_i*@b_calc.to_i] 
+  end
+	

data/code/superant.com.rwdcalc/changescriptname.rb

@@ -0,0 +1,16 @@
+ # this code is to change the contact name
+ def calcchangescriptname
+ begin
+  oldName =  $shellscript_directory + "/" + @a_scriptfilename +  ".sh"
+  newName =  $shellscript_directory + "/" + @a_changescriptname + ".sh"
+ 
+ File.rename(oldName, newName)
+  @scriptfilechangeresult = "File Renamed!"
+  $currentscriptname = @a_changescriptname 
+  rescue
+  @scriptfilechangeresult = "rename error"
+  end
+  
+   end
+
+

data/code/superant.com.rwdcalc/clearscriptscreendisplay.rb

@@ -0,0 +1,9 @@
+   # this method clears the on screen variables
+   def clearcalcscreendisplay
+ 
+        @a_tmpscriptfilename = ""
+      @a_calcscriptrecord = ""
+      
+
+
+  end

data/code/superant.com.rwdcalc/deletescriptrecord.rb

@@ -0,0 +1,20 @@
+   # this method views an existing address record
+  def deletecalcscriptrecord
+ 
+    require 'fileutils'
+  
+      if @a_calcscriptfilename
+      $currentscriptname =  @a_calcscriptfilename
+      end
+              
+              
+    begin # exception trapped block
+      fileName = $calcscript_directory + "/" + $currentscriptname + ".math"
+      File.delete(fileName)
+      @calcscriptfilechangeresult = "File Deleted!"
+      $currentscriptname = ""
+     rescue 
+         @calcscriptfilechangeresult = "File Deletion error"
+    end # exception rescue
+
+  end

data/code/superant.com.rwdcalc/fadd.rb

@@ -0,0 +1,10 @@
+
+  def frwdadd
+    @fresult = "%s + %s = %s" % [@a_fcalc, @b_fcalc, @a_fcalc.to_f+@b_fcalc.to_f]
+    
+    $frunningtotal += @fresult + "\n"
+    
+    @frunningtape = $frunningtotal
+    @a_fcalc = "%s" % [@a_fcalc.to_f+@b_fcalc.to_f] 
+  end
+	

data/code/superant.com.rwdcalc/frwdcleartape.rb

@@ -0,0 +1,9 @@
+
+  def frwdcleartape
+    
+    
+    $frunningtotal = " "
+    
+    @frunningtape = $frunningtotal
+  end
+	

data/code/superant.com.rwdcalc/frwddivide.rb

@@ -0,0 +1,10 @@
+
+  def frwddivide
+    @fresult = "%s / %s = %s" % [@a_fcalc, @b_fcalc, @a_fcalc.to_f/@b_fcalc.to_f]
+    
+    $frunningtotal += @fresult + "\n"
+    
+    @frunningtape = $frunningtotal
+    @a_fcalc = "%s" % [@a_fcalc.to_f/@b_fcalc.to_f] 
+  end
+	

data/code/superant.com.rwdcalc/frwdmultiply.rb

@@ -0,0 +1,10 @@
+
+  def frwdmultiply
+    @fresult = "%s * %s = %s" % [@a_fcalc, @b_fcalc, @a_fcalc.to_f*@b_fcalc.to_f]
+    
+    $frunningtotal += @fresult + "\n"
+    
+    @frunningtape = $frunningtotal
+    @a_fcalc = "%s" % [@a_fcalc.to_f*@b_fcalc.to_f] 
+  end
+	

data/code/superant.com.rwdcalc/frwdsubtract.rb

@@ -0,0 +1,10 @@
+
+  def frwdsubtract
+    @fresult = "%s - %s = %s" % [@a_fcalc, @b_fcalc, @a_fcalc.to_f-@b_fcalc.to_f]
+    
+    $frunningtotal += @fresult + "\n"
+    
+    @frunningtape = $frunningtotal
+    @a_fcalc = "%s" % [@a_fcalc.to_f-@b_fcalc.to_f] 
+  end
+	

data/code/superant.com.rwdcalc/helptexthashrwdcalc.rb

@@ -0,0 +1,16 @@
+  
+
+ Helptext.update( :rwdcalc_generalhelp => "      Simple Calculator
+  add or multiply 2 numbers together
+  subtract or divide
+  see a running tape
+ 
+       
+       ",
+
+   :rwdcalc_scripthelp => "
+ script running tab
+  script editing
+  script rename, delete
+"
+)

data/code/superant.com.rwdcalc/listscripts.rb

@@ -0,0 +1,13 @@
+# this code is to list the scripts 
+def  listcalcscripts
+  fileList      = Dir.new($calcscript_directory).entries.sort.delete_if { |x| ! (x =~ /math$/) }
+  @listcalcscriptresult = fileList.rwd_method("calcfillscriptname")
+end
+ 
+def calcfillscriptname(inffile)
+  applet                = inffile.gsub(/\.math$/, "")
+  @a_calcscriptfilename  = applet
+  $currentcalcscriptname = applet
+  @a_calcscriptcmd = applet
+end
+

data/code/superant.com.rwdcalc/loadscriptrecord.rb

@@ -0,0 +1,20 @@
+   # this method views an existing address record
+  def loadcalcscriptrecord
+ 
+         require 'fileutils'
+         $currentscriptname = @a_calcscriptfilename 
+	      
+        begin # exception trapped block
+       
+       
+	      fileName = $calcscript_directory + "/" + $currentscriptname + ".math"
+        
+	      fd = File.open(fileName,"r")
+	      @a_calcscriptrecord  =        fd.read
+	      
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

data/code/superant.com.rwdcalc/mathcommands.rb

@@ -0,0 +1,53 @@
+
+  def runmathcommand
+   
+    commandtext =  @a_mathcommandinput.to_s 
+    
+  
+    begin # exception trapped block
+         
+         
+         
+     @mathcommandresult = "no result"
+                  
+if commandtext == "sin" 
+
+ @mathcommandresult = Math.sin(  @a_mathtoola.to_f )
+ end
+if commandtext == "cos" 
+
+ @mathcommandresult = Math.cos(  @a_mathtoola.to_f )
+ end
+ if commandtext == "atan2"
+ @mathcommandresult = Math.atan2(  @a_mathtoola.to_f ,@a_mathtoolsb.to_f)
+ end
+if commandtext == "exp" 
+
+ @mathcommandresult = Math.exp(  @a_mathtoola.to_f )
+ end
+ if commandtext == "log" 
+
+ @mathcommandresult = Math.log(  @a_mathtoola.to_f )
+ end
+ if commandtext == "log10" 
+
+ @mathcommandresult = Math.log10(  @a_mathtoola.to_f )
+ end
+ if commandtext == "sqrt" 
+
+ @mathcommandresult = Math.sqrt(  @a_mathtoola.to_f )
+ end
+ if commandtext == "tan" 
+
+ @mathcommandresult = Math.tan(  @a_mathtoola.to_f )
+ end
+    rescue SystemCallError, StandardError
+     @mathcommandresult = "system call error: " + $!
+    end # exception rescue
+
+  end
+
+
+def showmathcommandoptions
+ @mathcommandoptions = ["sin","atan2","cos","exp","log","log10","sqrt","tan"].rwd_options
+ end

data/code/superant.com.rwdcalc/openhelpwindowrwdcalc.rb

@@ -0,0 +1,21 @@
+# this code is to call the help window
+def runhelpwindowrwdcalc
+
+     $help_topic = "rwdcalc_generalhelp"
+
+    
+  if @rwd_tab  == "scriptutilitiesrwdshell"
+    $help_topic = "rwdcalc_scripthelp"
+    end
+   $helptopicsarray =  $helptopicsarray | ["rwdcalc_generalhelp","rwdcalc_scripthelp" ]
+  
+   
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

data/code/superant.com.rwdcalc/playscript.rb

@@ -0,0 +1,22 @@
+  def playcalcscript
+  
+    
+    nametext = "%s" % [@a_calcscriptcmd]
+	 
+      begin # exception trapped block
+         fileName = "scripts/" + nametext + ".math"
+        
+	    
+	       calcfile_contents = File.read( fileName)
+     temp  = eval( calcfile_contents)
+	      
+      
+	      
+	      
+        
+
+        
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+  end

data/code/superant.com.rwdcalc/renamecalcrecord.rb

@@ -0,0 +1,14 @@
+ # this code is to change the file name
+ def changecalcscriptname
+  oldName =  $calcscript_directory + "/" + @a_calcscriptfilename +  ".math"
+  newName =  $calcscript_directory + "/" + @a_changecalcscriptname + ".math"
+ begin 
+ File.rename(oldName, newName)
+  @calcscriptfilechangeresult = "File Renamed!" 
+  rescue
+  @calcscriptfilechangeresult = "rename error"
+  end
+  
+   end
+
+

data/code/{superant.com.rwdshell/returntomain.rb → superant.com.rwdcalc/runrwdcalcwindow.rb}

@@ -1,10 +1,10 @@
-# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
-# 
-# For more information about  see http://www.rubyforge.net/projects/rwdapplications
-  
-  # call the window  
-  def returntomain
-   @rwd_window = "main"
-   @rwd_tab = "selectiontab"
-   end   
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a calculator
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def runrwdcalcwindow
+   @rwd_window = "rwdcalcwindow"
+  @rwd_tab = "rwdfcalc"
+   end   
    

data/code/superant.com.rwdcalc/rwdadd.rb

@@ -0,0 +1,10 @@
+
+  def rwdadd
+    @result = "%s + %s = %s" % [@a_calc, @b_calc, @a_calc.to_i+@b_calc.to_i]
+    
+    $runningtotal += @result + "\n"
+    
+    @runningtape = $runningtotal
+    @a_calc = "%s" % [@a_calc.to_i+@b_calc.to_i] 
+  end
+	

data/code/{superant.com.schedule/rwdmoviesversion.rb → superant.com.rwdcalc/rwdcalcversion.rb}

@@ -3,8 +3,8 @@
 # For  information see http://www.rubyforge.net/projects/rwdapplications
 
 # return the version constant defined in the config file
-def rwdschedulehelpaboutsetup
-return ["RwdSchedule","(c) 2004-2008 Steven Gibson ","Version #{RwdScheduleVersion}"]
+def rwdcalchelpaboutsetup
+return ["RwdCalc","(c) 2004-2008 Steven Gibson ","Version #{RwdcalcVersion}"]
 end
 
 

data/code/superant.com.rwdcalc/rwdcleartape.rb

@@ -0,0 +1,9 @@
+
+  def rwdcleartape
+    
+    
+    $runningtotal = " "
+    
+    @runningtape = $runningtotal
+  end
+	

data/code/superant.com.rwdcalc/rwddivision.rb

@@ -0,0 +1,10 @@
+
+  def rwddivide
+    @result = "%s / %s = %s" % [@a_calc, @b_calc, @a_calc.to_i/@b_calc.to_i]
+    
+    $runningtotal += @result + "\n"
+    
+    @runningtape = $runningtotal
+    @a_calc = "%s" % [@a_calc.to_i/@b_calc.to_i] 
+  end
+	

data/code/superant.com.rwdcalc/rwdsubtraction.rb

@@ -0,0 +1,10 @@
+
+  def rwdsubtract
+    @result = "%s - %s = %s" % [@a_calc, @b_calc, @a_calc.to_i-@b_calc.to_i]
+    
+    $runningtotal += @result + "\n"
+    
+    @runningtape = $runningtotal
+    @a_calc = "%s" % [@a_calc.to_i-@b_calc.to_i] 
+  end
+	

data/code/superant.com.rwdcalc/savechangedscript.rb

@@ -0,0 +1,19 @@
+ 
+def savecalcrecord # this method adds a new script file
+  require 'fileutils'
+  if @a_calcscriptfilename   
+   newdata =@a_calcscriptrecord.to_s     
+	 fullnewname = @a_calcscriptfilename.to_s + ".math"
+        begin # exception trapped block
+         fileName = File.join( $calcscript_directory, fullnewname )
+        	fd = File.open(fileName,"w")
+	        fd.print(newdata) # save the record info to the file
+	        fd.close
+          @newdisplay=newdata # show the record info in the browser
+   $currentscriptname = "%s" %   [@a_calcscriptfilename] # grab the new filename to create
+
+       rescue 
+            @newdisplay = "\n" + "system error in createnew method"
+        end  # exception rescue
+   end
+  end # end of createnew

data/code/superant.com.rwdcalc/uninstallapplet.rb

@@ -0,0 +1,31 @@
+
+#***********************************************************************
+#* 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@gmai.com".
+#***********************************************************************/
+
+def rwdwcalc
+$tinkerdocumentsarray.delete_if {|x| x == "HowTo_RwdCalc.txt"}
+$tinkerhelpaboutarray.delete_if {|x| x == "RwdCalc"}
+Helptext.delete_if {|key, value| key == :rwdcalc_generalhelp }
+Helptext.delete_if {|key, value| key == :rwdcalc_scripthelp }
+$rwdjumplink.delete_if {|x| x == "RwdCalcMainWindow"}
+
+end

data/code/superant.com.rwdcalc/viewscript.rb

@@ -0,0 +1,18 @@
+  def viewcalcscript 
+   require 'fileutils'
+    $currentscriptname = "%s" % [@a_calcscriptfilename]
+	 
+        begin # exception trapped block
+   	 fileName = $calcscript_directory+  "/" + $currentscriptname + ".math"
+        
+	fd = File.open(fileName,"r")
+	 @displayscripttext = " "
+	while ! fd.eof?
+	 @displayscripttext = fd.read
+	 end
+	 fd.close
+        rescue
+            @displayscripttext = "\n" + "error"
+        end # exception rescue
+
+  end

data/code/superant.com.rwdshell/0runrefreshacpi.rb

@@ -0,0 +1,7 @@
+def runrefreshacpiwindow()
+  
+   @rwd_window = "rwdrefreshacpiwindow"
+   @rwd_tab = "rwdrefresh"
+  
+   end   
+   

data/code/superant.com.rwdshell/0uninstallapplet.rb

@@ -1,15 +1,15 @@
 # uninstall
 
-def rwdwshell_1_04()
+def rwdwruby()
 
-$tinkerdocumentsarray.delete_if {|x| x == "HowTo_Shell.txt"} 
-$tinkerhelpaboutarray.delete_if {|x| x == "RwdShell"} 
-Helptext.delete_if {|key, value| key == :rwdshell_help  } 
-Helptext.delete_if {|key, value| key == :rwdcalc_scripthelp } 
+$tinkerdocumentsarray.delete_if {|x| x == "HowTo_Ruby.txt"} 
+$tinkerhelpaboutarray.delete_if {|x| x == "RwdRuby"} 
+Helptext.delete_if {|key, value| key == :rwdruby_help  } 
 Helptext.delete_if {|key, value| key == :ShellEnvironment_help } 
 Helptext.delete_if {|key, value| key == :shelledit_help }  
-$rwdjumplink.delete_if {|x| x == "RwdShellBackWindow"} 
-$rwdjumplink.delete_if {|x| x == "RunShell" } 
+$rwdjumplink.delete_if {|x| x == "RwdRubyBackWindow"} 
+$rwdjumplink.delete_if {|x| x == "RunRuby" } 
+$rwdjumplink.delete_if {|x| x == "RefreshAcpi" } 
 
 @rwd_window = "main"
  

data/code/superant.com.rwdshell/helptexthashshell.rb

@@ -27,5 +27,17 @@
     :shelledit_help =>  "You can edit scripts here
  'Fill Record'   will load the file selected on the script run tab
   'Save Changes' will save the changes you have made - 
- 'Clear' will clear the screen " 
+ 'Clear' will clear the screen " ,
+  :RubyScript_help=> ' you can put in something like "Hello!" 
+  <p>
+  "Howdy Steven".upcase
+  <p>
+  carray = ["one "] ; carray << " two" ; carray.each{|x| x.upcase} 
+  <p>
+  10.between?(7,12)
+  <p>
+  ["tivo","nokia", "ipaq"].length
+  <p>
+  xhash = { "altima" => "nissan", "camry" => "toyota", "rx7" => "mazda" }  ; xhash.keys
+'
 )

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

@@ -3,14 +3,14 @@
  
          require 'fileutils'
           
-               rwdshellname = "rwdwshell-" + RwdShellVersion + ".cnf"
-               @a_rshellconfigurationfilename = rwdshellname 
+               rwdrubyname = "rwdwruby.cnf"
+               @a_rshellconfigurationfilename = rwdrubyname 
                
 	      
         begin # exception trapped block
        
        Dir.chdir($progdir)
-	      fileName = File.join(ConfigurationDir, rwdshellname)
+	      fileName = File.join(ConfigurationDir, rwdrubyname)
         
         
 	      fd = File.open(fileName,"r")