rwdlanguage 0.01

data/code/01rwdcore/test_harness.rb

@@ -0,0 +1,20 @@
+# this to start the test harness
+def rwdtest_harness
+
+	print "in test harness\n"
+       $testasserts = 0
+       $testerrorarray = [""]
+        $testfailures = 0 
+ 	
+	$testharnessarray.each { |x| 
+		print "calling #{x}\n"
+		eval("#{x}")
+
+	}
+	$rwdtinkerlog.info "successes = #{$testasserts}"
+	$rwdtinkerlog.info "failures  =  #{$testfailures}"
+	$rwdtinkerlog.info  "failed methods #{$testerrorarray}" 
+	$rwdtinkerlog.info  "tested methods #{$testharnessarray}"
+
+end
+

data/code/01rwdcore/uploadreturns.rb

@@ -0,0 +1,65 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# return information to the author
+
+def uploadreturnsfile
+	require 'net/ftp'
+	BasicSocket.do_not_reverse_lookup = true 
+	@returnsftpdisplays = ""
+	randomnumber = rand(9999) + 1000
+	puts randomnumber.to_i
+
+
+	returns_ftpsite = "ftp.superant.com"
+	returns_ftplogin = "anonymous@superant.com"
+	returns_ftppassword = "anonymous@superant.com"
+	returns_ftpdirectory = "/incoming/returns/"
+
+	begin
+		platformdisplay = "Platform is " + RUBY_PLATFORM + "\n"
+		platformdisplay =  platformdisplay + "Ruby Version " + VERSION + "\n" 
+		platformdisplay  = platformdisplay  + "rwdtinker version " + RwdTinkerVersion + "\n"
+		platformdisplay = platformdisplay + "application name " + $rwdapplicationidentity + "\n"
+		platformdisplay = platformdisplay + "program directory " + $progdir + "\n"
+		platformdisplay = platformdisplay  + "hostname " + Resolv.getname(Resolv.getaddress("localhost")) + "\n"
+		platformdisplay = platformdisplay +  "Date " +      Date.today().to_s + "\n"
+		if ! @a_emailupload.empty?
+			platformdisplay = platformdisplay + @a_emailupload + "\n"
+		end
+		if ! @a_emailupload.empty?
+			platformdisplay = platformdisplay + @a_commentupload + "\n"
+		end
+		updatefile = Date.today().to_s + Resolv.getname(Resolv.getaddress("localhost")) + randomnumber.to_s
+
+		tmpdir = ENV['TMP']
+		if tmpdir.to_s.empty?
+			tmpdir = "/tmp"   
+		end
+		fileName = File.join( tmpdir, updatefile)
+		fd = File.open(fileName,"w")
+		fd.print(platformdisplay) # save the record info to the file
+		fd.close
+		ftp = Net::FTP::new(returns_ftpsite)
+		@returnsftpdisplay  = "data uploaded" + "\n" 
+
+		filedirname = File.join(tmpdir,updatefile)
+
+		ftp.debug_mode = false
+		ftp.login(returns_ftplogin, returns_ftppassword)
+		ftp.chdir(returns_ftpdirectory)
+		print "I'm in the directory ", ftp.pwd(), "\n"
+
+		puts filedirname
+		ftp.puttextfile(filedirname  , updatefile)
+		@returnsftpdisplay  =   @returnsftpdisplay + platformdisplay   
+
+
+		ftp.close
+
+	rescue
+		@returnsftpdisplay = "upload error"
+		if ftp
+			ftp.close
+		end
+		print "ftp error"
+	end
+end

data/code/dd0viewphoto/dd0viewphoto.rb

@@ -0,0 +1,5 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+
+def viewphoto
+	@rwd_window = "photo"
+end

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

@@ -0,0 +1,22 @@
+# uninstall
+
+def rwdwlanguage()
+
+$tinkerdocumentsarray.delete_if {|x| x == "HowTo_Language.txt"}
+$tinkerhelpaboutarray.delete_if {|x| x == "RwdLanguage"}
+Helptext.delete_if {|key, value| key == :rwdlanguage_help  }
+Helptext.delete_if {|key, value| key == :rwdlanguage_configuration }
+$rwdjumplink.delete_if {|x| x == "RwdLanguageWindow"}
+$rwdjumplink.delete_if {|x| x == "RwdWordsMainWindow"}
+$rwdjumplink.delete_if {|x| x == "RwdThesaurus"}
+$rwdtinkerlog.debug "wlanguageuninstall: DeleteLanguageConf"
+if DeleteLanguageConfig
+
+fileName =  File.join("configuration","rwdwlanguage.cnf")
+File.delete(fileName)
+
+
+end
+return true
+end
+

data/code/superant.com.language/googlelang.rb

@@ -0,0 +1,25 @@
+#
+def rwdlanggoogle_lookup
+
+require 'lib/g_translate'
+  @rwdlangspanish_result =   GTranslate.translate  @rwdlanguage_datain, :from => 'en'  , :to =>  'es'
+@rwdlangjapanese_result = GTranslate.translate @rwdlanguage_datain, :from => 'en'  , :to =>  'ja'
+
+
+@rwdlangnl_result = GTranslate.translate @rwdlanguage_datain, :from => 'en'  , :to =>  'nl'
+
+@rwdlangar_result  = GTranslate.translate @rwdlanguage_datain, :from => 'en'  , :to =>  'ar'
+
+@rwdlangfr_result = GTranslate.translate @rwdlanguage_datain, :from => 'en'  , :to =>  'fr'
+
+@rwdlangit_result = GTranslate.translate @rwdlanguage_datain, :from => 'en'  , :to =>  'it'
+@rwdlangel_result = GTranslate.translate @rwdlanguage_datain, :from => 'en'  , :to =>  'el'
+@rwdlangru_result = GTranslate.translate @rwdlanguage_datain, :from => 'en'  , :to =>  'ru'
+@rwdlangzh_result = GTranslate.translate @rwdlanguage_datain, :from => 'en'  , :to =>  'zh'
+@rwdlangde_result = GTranslate.translate @rwdlanguage_datain, :from => 'en'  , :to =>  'de'
+@rwdlangpt_result = GTranslate.translate @rwdlanguage_datain, :from => 'en'  , :to =>  'pt'
+@rwdlanghe_result = GTranslate.translate @rwdlanguage_datain, :from => 'en'  , :to => 'he'
+@rwdlanghi_result = GTranslate.translate @rwdlanguage_datain, :from => 'en'  , :to => 'hi'
+@rwdlangko_result = GTranslate.translate @rwdlanguage_datain, :from => 'en'  , :to => 'kp'
+end
+

data/code/superant.com.language/helptexthashload.rb

@@ -0,0 +1,22 @@
+   # this code loads the help text
+
+                 
+               tmphelpfilename = "rwdlanguagehelpfiles.txt" 
+               tmphelpdir = "rwd_files"
+	      
+        begin # exception trapped block
+       
+       
+	      fileName = File.join(tmphelpdir ,tmphelpfilename )
+        
+        
+	      fd = File.open(fileName,"r")
+	      tmphelptext =        fd.read
+             fd.close
+	     eval  tmphelptext
+	     
+        rescue SystemCallError, StandardError
+	    $rwdtinkerlog.error  "foldeditor help file load: system call error: "
+        end # exception rescue
+
+  

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

@@ -0,0 +1,22 @@
+   # this method puts the configuration rexord on the screen
+  def loadrwdelizaconfiguration
+ 
+         require 'fileutils'
+          
+               @a_languageconfigurationfilename = "rwdwlanguage.cnf" 
+        
+	      
+        begin # exception trapped block
+       
+       Dir.chdir($progdir)
+	      fileName = File.join(ConfigurationDir, @a_languageconfigurationfilename  )
+        
+        
+	      fd = File.open(fileName,"r")
+	      @a_languageconfigurationfile=        fd.read
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,14 @@
+   # this method loads the on screen variables into the running class
+   def loadrwdelizaconfigurationvariables
+
+   tmpfilename = "rwdwlanguage.cnf"
+   configfiletoload = File.join(ConfigurationDir, tmpfilename )
+   begin
+    load configfiletoload
+  
+
+rescue
+ 
+ $stderr.puts "loading error"
+ end
+  end

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

@@ -0,0 +1,24 @@
+# this code is to call the help window
+def runhelpwindowrwdlanguage
+
+     $help_topic = "rwdlanguage_generalhelp"
+        $helptopicsarray =  $helptopicsarray  << "rwdlanguage_generalhelp"
+     
+     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.language/rubySteak.rb

@@ -0,0 +1,40 @@
+#!/usr/bin/ruby
+# an implementation of the Steak translation dictionary in Ruby
+
+
+
+#    @foundGermanValue = String.new("Deutsch <-> Englisch")
+
+  
+ def findByGermanEntry(searchEntry,langfile)
+    
+    tmpsearchEntry = String.new(searchEntry)
+    foundGermanValue = Array.new
+    foundGermanValue << "DE <-> EN"
+    foundGermanValue << "\n"
+    langfile.each_line{
+      |line|
+      if line.include?(tmpsearchEntry) then
+        foundGermanValue << line
+      end
+    }
+    return foundGermanValue
+  end
+
+
+
+def germanlookup
+
+aDictionaryFile = File.new("lib/ger-eng.txt")
+
+@german_display = findByGermanEntry(@a_germaninput,aDictionaryFile)
+
+end
+
+
+
+
+
+
+
+# -------------------------- DONE ------------------------

data/code/superant.com.language/runappletwindow.rb

@@ -0,0 +1,12 @@
+# Application Rwdtinker 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 runrwdthesaurus
+
+   @rwd_window = "rwdwordsbackwindow"
+   @rwd_tab="superantcomthesaurus"
+   
+   end   
+   

data/code/superant.com.language/runrwdshellwindow.rb

@@ -0,0 +1,12 @@
+# Application Rwdtinker 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 runrwdlanguagewindow
+
+   @rwd_window = "rwdlanguagewindow"
+   @rwd_tab="googlewindow"
+   
+   end   
+   

data/code/superant.com.language/runrwdwordsbackwindow.rb

@@ -0,0 +1,10 @@
+# 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 runrwdwordsbackwindow
+   @rwd_window = "rwdwordsbackwindow"
+   @rwd_tab = "unixfortunes"
+   end   
+   

data/code/superant.com.language/rwdtinkerversion.rb

@@ -0,0 +1,10 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# For  information see http://www.rubyforge.net/projects/rwdapplications
+
+# return the version constant defined in the config file
+def rwdlanguagehelpaboutsetup
+return ["RwdLanguage","(c) 2005-2008 Steven Gibson ","Version #{RwdLanguageVersion}"]
+end
+
+

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

@@ -0,0 +1,20 @@
+  # this method adds a new address record
+  def saverwdelizaconfiguration
+   require 'fileutils'
+
+   
+   newname = "rwdwlanguage.cnf" # grab the filename to create
+   newdata = @a_languageconfigurationfile
+   
+	  
+        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.language/test_cases.rb

@@ -0,0 +1,20 @@
+# this is the test harness
+def rwdlanguage_all_tests
+
+	$rwdtinkerlog.info "in rwdlanguage all tests"
+ 	test_runrwdlanguagewindow
+
+	end
+
+def test_runrwdlanguagewindow
+
+     
+    rwd_jump( "dictlookup")
+         if  @rwd_tab == "dictlookup"
+	    $testasserts += 1
+	        else
+	     $testfailures += 1
+	     $testerrorarray << "dictlookup"
+     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
+
+