rwdlanguage 0.01

data/bin/rwdlanguage

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+#--
+# Copyright 2004 Steven Gibson <steven@superant.com>
+#   RwdTinker application
+#
+# This program is free software. It may be redistributed and/or modified under
+# the terms of the GPL version 2 (or later), or the
+# Ruby licence.
+# 
+#++
+
+
+$progdir = File::expand_path( File.dirname(__FILE__))
+
+Dir.chdir($progdir)
+
+Dir.chdir("..")
+
+`ruby init.rb` 

data/code/01rwdcore/01rwdcore.rb

@@ -0,0 +1,29 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+
+
+$DEBUG=false
+$VERBOSE=false
+
+class RwdTinker  < RWDialog
+
+	def main
+		@rwd_window = "main"
+		@result = "idle"
+
+		@display= "idle"
+		if TestNow 
+                     rwdtest_harness
+		end
+            showjumplinkoptions
+            setuptinkerdocuments
+            setuphelpaboutoptionspassive
+	end
+
+	def inspect
+		"#{$rwdapplicationidentity}" 
+	end
+
+
+# for original RWD work see: http://www.erikveen.dds.nl/rubywebdialogs/index.html 
+# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
+# This class is the top class for the RwdTinker application 

data/code/01rwdcore/02helptexthashbegin.rb

@@ -0,0 +1,16 @@
+  # Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+
+ Helptext = Hash.new { |hh, kk| hh[kk] = "ERROR: Message-ID Unknown: #{kk.inspect}."; hh[kk] }
+    helpmessage = {
+    :tinker_help          => "rwdtinker is the core application for the
+                       rwdapplications. "
+      
+    }
+    helpmessage.each { |kk, vv| Helptext[kk] = vv }
+    
+
+=begin
+    this is to set up the help  buttons 
+    this uses a hash
+=end
+    

data/code/01rwdcore/03helptexthash.rb

@@ -0,0 +1,21 @@
+ # this code loads the help text
+
+                  
+               tmphelpfilename = "Tinkerhelptexthash.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  "Tinkerbell help file load: system call error: "
+        end # exception rescue
+
+  

data/code/01rwdcore/jumplinkcommand.rb

@@ -0,0 +1,36 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# Bind message passing socket to rwdtinker application
+
+    locationlink = {
+    :helpscreen=> "runhelpwindow",
+    :tinkerbackwindow=>"runrwdtinkerbackwindow",
+    :returntomain=>"returntomain",
+    :opendocuments=>"runtinkerdocuments",
+    :editconfiguration=>"runeditconfiguration"
+    }
+    locationlink.each { |kk, vv| JumpLink[kk] = vv }
+    
+def runjumplinkcommand
+	
+	if TabHash.has_key?  JumpLink[:"#{@a_jumplinkinput}"].intern
+		
+		
+		@rwd_window = TabHash.fetch(JumpLink[:"#{@a_jumplinkinput}"].intern)
+		@rwd_tab = JumpLink[:"#{@a_jumplinkinput}"]
+		
+	else
+		
+                            runjumplocation = "#{JumpLink[:"#{@a_jumplinkinput}"]}"
+
+                                 self.send(runjumplocation)                         
+         end
+	 
+   end
+
+
+# list the remote control options on the screen
+def showjumplinkoptions
+  
+	@jumplinkoptions = $rwdjumplink.rwd_options
+	
+end

data/code/01rwdcore/openhelpwindow.rb

@@ -0,0 +1,38 @@
+#  Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# this code is to call the help window
+# for RwdTinker core
+
+def runhelpwindow
+	$helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration"]
+
+	if @rwd_window == "main"
+		if @rwd_tab == "documentsrwdtinkerone"
+			$help_topic = "documents_rwdtinker"
+		end
+
+	end
+
+	if @rwd_window == "rwdtinkerhelpwindow"
+		puts "in help window processing"
+	else
+		$previouswindow = @rwd_window
+		$previoustab = @rwd_tab
+	end
+
+
+	@rwdhelptopic = $help_topic
+	@rwdhelpdataoutput      = "#{Helptext[:"#{$help_topic}"]}"
+	@rwdhelpsubchoicesoutput = $helptopicsarray.rwd_method("choosenewhelptopic")
+	@rwd_window = "rwdtinkerhelpwindow"
+end
+
+def choosenewhelptopic(inffile)
+	$help_topic                 = inffile
+	runhelpwindow
+end
+
+
+
+#  Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# this code is to call the help window
+# for RwdTinker core

data/code/01rwdcore/returntomain.rb

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

data/code/01rwdcore/rundocuments.rb

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

data/code/01rwdcore/runeditconfiguration.rb

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

data/code/01rwdcore/runhelpabout.rb

@@ -0,0 +1,15 @@
+# Application menu orginally (c) 2004 Steven Gibson under GPL. 
+# 
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+   def runtinkerhelpabout
+   @rwd_window = "rwdtinkerhelpwindow"
+  
+   end 
+
+=begin
+This def runtinkerhelpabout
+is to call the rwdtinkerhelpwindow
+=end
+

data/code/01rwdcore/runopentinkerdocument.rb

@@ -0,0 +1,7 @@
+# open document for rwdtinker application
+def runopentinkerdocument
+
+tinkerdocumenturl = "http://localhost:#{$port}/" + @a_tinkerdocumentinput
+    Thread.new( tinkerdocumenturl){ |t|  `#{Browser_Exe} #{tinkerdocumenturl}`  }
+ end
+   

data/code/01rwdcore/runtab.rb

@@ -0,0 +1,15 @@
+# Application RwdTinker orginally (c) 2004-2008 Steven Gibson under GPL. 
+#  rwdtinker application
+
+
+def runtablinkcommand
+
+		$stderr.puts TabHash.fetch(JumpLink[:"#{@a_jumplinkinput}"].intern)
+		
+		@rwd_windows = "tinkerbackwindow"
+		@rwd_tab = "selectiontab"
+	
+   end
+
+
+

data/code/01rwdcore/rwdtinkerversion.rb

@@ -0,0 +1,22 @@
+# 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 tinkerhelpaboutsetup
+return ["RwdTinker","(c) 2004-2008 Steven Gibson ","Version #{RwdTinkerVersion}"]
+end
+
+def runrwdtinkerversion
+	@rwd_window = "applicationversion"
+  helpaboutinput = @a_helpaboutinput.downcase
+  versionarraysetup = "#{helpaboutinput}helpaboutsetup"
+  versionarray= self.send(versionarraysetup)
+  
+	@versionappnamedisplay = versionarray[0].to_s
+	@versioncopyrightdisplay = versionarray[1].to_s
+	@versionnumberdisplay =  versionarray[2].to_s
+
+end
+
+

data/code/01rwdcore/rwdwindowreturn.rb

@@ -0,0 +1,9 @@
+# this code is to return to the window back from the help window
+def rwdwindowreturn
+
+	@rwd_window = "#{$previouswindow}"
+	@rwd_tab = "#{$previoustab}"
+end
+
+
+

data/code/01rwdcore/selectiontab.rb

@@ -0,0 +1,11 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# this code is to return to the window back from the help window
+
+def runselectiontab
+
+	
+	@rwd_tab = "selectiontab"
+end
+
+
+

data/code/01rwdcore/setuphelpaboutoptions.rb

@@ -0,0 +1,15 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# help about option setup for rwdtinker application
+
+def setuphelpaboutoptions 
+
+  @rwd_window = "tinkerhelpabout"
+	@helpaboutoptions = $tinkerhelpaboutarray.rwd_options
+end	
+	
+def setuphelpaboutoptionspassive 
+
+  
+	@helpaboutoptions = $tinkerhelpaboutarray.rwd_options
+end	
+   

data/code/01rwdcore/setuptinkerdocuments.rb

@@ -0,0 +1,7 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# Bind document names  to rwdtinker document tab
+def setuptinkerdocuments 
+
+	@tinkerdocumentsarray = $tinkerdocumentsarray.rwd_options
+end	
+   

data/code/01rwdcore/test_cases.rb

@@ -0,0 +1,158 @@
+# test harness
+
+	
+
+def rwdtinker_all_tests 
+	$rwdtinkerlog.info "in rwdtinker all tests"
+	
+    $rwdtinkerlog.info "Starting rwdtinker tests!\n"
+		runrwdtinkerbackwindow
+
+    if  "tinkerbackwindow" == @rwd_window
+       $testasserts += 1 
+       else
+	     $testfailures += 1
+	     $testerrorarray << "runrwdtinkerbackwindow"
+     end
+     
+  runselectiontab
+
+     if "selectiontab" == @rwd_tab
+	     $testasserts += 1
+	       else
+	     $testfailures += 1
+	     $testerrorarray << "selectiontab"
+     end
+         
+    showjumplinkoptions
+    @a_jumplinkinput = "returntomain"
+   runjumplinkcommand
+    if "main"  == @rwd_window
+  $testasserts += 1
+  	       else
+	     $testfailures += 1
+	     $testerrorarray << "returntomain"
+     end
+		@a_jumplinkinput = "helpscreen"
+    runjumplinkcommand 
+    
+     if  "rwdtinkerhelpwindow" == @rwd_window
+	     $testasserts += 1
+	            else
+	     $testfailures += 1
+	     $testerrorarray << "helpscreen"
+     end
+
+     runtinkerdocuments
+     if "documentsrwdtinkerone" == @rwd_tab
+	     $testasserts += 1
+	            else
+	     $testfailures += 1
+	     $testerrorarray << "runtinkerdocuments"
+     end
+
+
+    runrwdtinkerwin2version
+      if "applicationversion" == @rwd_window
+	      $testasserts += 1
+	                  else
+	     $testfailures += 1
+	     $testerrorarray << "runrwdtinkerwin2version"
+     end
+
+  
+    runremotezipsinstall
+     if "superantcomremotezipsinstall" ==  @rwd_tab
+	     $testasserts += 1     
+	     else
+	     $testfailures += 1
+	     $testerrorarray << "runremotezipsinstall"
+     end
+
+    runeditconfiguration   
+    if "editconfigurationfile" == @rwd_tab
+	    $testasserts += 1
+	        else
+	     $testfailures += 1
+	     $testerrorarray << "runeditconfiguration"
+     end
+ runhelpwindowtinkerwin2
+ 
+  if  @rwd_tab == "editconfigurationfile"  && @rwdhelpdataoutput.include?("Remember to reload the configuration variables")
+   $testasserts += 1
+	        else
+	     $testfailures += 1
+	     $testerrorarray << "applet_tinkerbackeditconfiguration"
+     end
+     
+     
+   rwd_jump("rwdlogfiletab", "rwd_tab_rwdlogfiletab")
+ 
+     if  @rwd_tab == "rwdlogfiletab"
+	    $testasserts += 1
+	        else
+	     $testfailures += 1
+	     $testerrorarray << "rwdlogfiletab"
+     end
+     
+    rwd_jump( "diagnostictab")
+         if  @rwd_tab == "diagnostictab"
+	    $testasserts += 1
+	        else
+	     $testfailures += 1
+	     $testerrorarray << "diagnostictab"
+     end
+ end
+ 
+ def rwd_jump(tab, go="")
+	 @rwd_tab = tab
+  @rwd_action = go
+  end
+ 
+ def teststobedown  
+          	runrwdtinkerbackwindow
+        @a_installapplet="/usr/src/rwdapplets/rwdtinker/zips/rwdahelloworld-0.5"
+    viewgemappletcontents
+    assert_not_nil(@appletcontentstext)  ; testasserts += 1
+
+ runtinkerhelpabout
+          assert_equal("rwdtinkerhelpwindow",@rwd_tab)  ; testasserts += 1
+	raise NotImplementedError, 'Need to write test_choosenewhelptopic'
+	raise NotImplementedError, 'Need to write test_listinstalledfiles'
+	raise NotImplementedError, 'Need to write test_listzipfilestoinstall'
+	raise NotImplementedError, 'Need to write test_loadconfigurationrecord'
+	raise NotImplementedError, 'Need to write test_loadconfigurationvariables'
+
+	raise NotImplementedError, 'Need to write test_main'
+
+	raise NotImplementedError, 'Need to write test_network_demon'
+
+	raise NotImplementedError, 'Need to write test_network_start'
+
+	raise NotImplementedError, 'Need to write test_openappletname'
+
+	raise NotImplementedError, 'Need to write test_removeapplet'
+
+	raise NotImplementedError, 'Need to write test_returntomain'
+
+	raise NotImplementedError, 'Need to write test_runcontrolcommand'
+
+	raise NotImplementedError, 'Need to write test_runhelpwindow'
+
+	raise NotImplementedError, 'Need to write test_runrwdtinkerversion'
+
+	raise NotImplementedError, 'Need to write test_runrwdtinkerwin2version'
+
+	raise NotImplementedError, 'Need to write test_runviewplatform'
+
+	raise NotImplementedError, 'Need to write test_rwdtinkerversiondiagnostic'
+
+	raise NotImplementedError, 'Need to write test_rwdwindowreturn'
+	raise NotImplementedError, 'Need to write test_saveconfigurationrecord'
+
+	raise NotImplementedError, 'Need to write test_viewappletcontents'
+end
+
+
+
+