rwdlanguage 0.01

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

@@ -0,0 +1,19 @@
+def openappletname 
+	require 'fileutils'
+	nametext = "%s" % [@a_installlist]
+
+	begin # exception trapped block
+		fileName = "installed/" + nametext + ".inf"
+
+		fd = File.open(fileName,"r")
+		@displaytext = " "
+		while ! fd.eof?
+			@displaytext = fd.read
+		end
+		fd.close
+	rescue
+		@displaytext = "\n" + "error"
+	end # exception rescue
+
+end
+

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

@@ -0,0 +1,40 @@
+# this code is to call the help window
+def runhelpwindowtinkerwin2
+
+	# $helptopicsarray =  $helptopicsarray | [""]
+
+	$help_topic = "tinkerwin2_help"
+	if @rwd_tab == "rwdzipslister"
+		$help_topic = "tinkerwin2_help"
+	end
+
+	if @rwd_tab == "filelister" 
+		$help_topic = "applet_viewing"
+
+	end
+	if @rwd_tab == "zipslister" 
+		$help_topic = "applet_installation"
+
+	end
+	if @rwd_tab == "editconfigurationfile"
+		$help_topic = "applet_tinkerbackeditconfiguration"
+	
+	end
+	if @rwd_tab == "superantcomremotezipsinstall"
+		$help_topic = "remotegemapplet_install"
+	end
+	if @rwd_tab == "localechangertab"
+        $help_topic = "localechanger_help"
+	end
+	
+	if @rwd_window != "rwdtinkerhelpwindow"
+		$previouswindow = @rwd_window
+		$previoustab = @rwd_tab
+	else
+		$previouswindow = @rwd_window
+		$previoustab = @rwd_tab
+	end
+	runhelpwindow
+end
+
+

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

@@ -0,0 +1,24 @@
+# This tinker method is to retrieve the list of rwdzip applets available to install from the remote repository
+def superantcomremotegemlist
+	gemcommandoption = "search --remote "
+	gemfilename = "rwdzip"
+	commandtext = "gem search --remote rwdzip"  
+	commandtemp = $xpcommand  + commandtext
+	begin # exception trapped block
+		
+		tempremotegemappletsresult = `#{commandtemp}  2>&1`
+		@superantcomremotegemappletsfullresult = tempremotegemappletsresult
+		fileList = tempremotegemappletsresult.split(/\n/).delete_if { |x| ! (x =~ /\Arwdzip/) }
+		
+		@superantcomremotegemappletsresult = fileList.rwd_method("superantcomremotegemappletdirsname")
+	rescue SystemCallError, StandardError
+		@superantcomremotegemappletsresult  = "system call error: " + $!
+	end # exception rescue
+end
+
+def superantcomremotegemappletdirsname(inffile)
+	applet                = inffile
+	@superantcominstallremoteappletinput       = applet
+	
+end
+

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

@@ -0,0 +1,46 @@
+# method to remove a tinker applet
+def removeapplet
+	require 'fileutils'
+	nametext = "%s" % [@a_removeapplet]
+
+       fileName = "installed/" + nametext + ".inf"
+       @appletremoveresult = removeappletvariables(nametext)
+       
+       setuphelpaboutoptions # update the help about list
+       setuptinkerdocuments # update the document pull down list
+       runhelpwindow   # update the help menu
+        showjumplinkoptions # update the application link menu
+	runrwdtinkerbackwindow # back to applet window
+
+	begin # exception trapped block
+		
+		count =  0
+		fd = File.open(fileName,"r") 
+
+
+		fd.each { |oneline|   
+			if count == 1
+				if File.exist?(oneline.chop)
+					FileUtils.rm_rf( oneline.chop)
+				end
+
+			end
+			count = 1
+		}
+		fd.close
+ 
+           
+
+		FileUtils.rm_rf( fileName)
+		
+		  
+		@removeapplettext = "applet files removed!" + " " + @appletremoveresult
+             
+             runbackwindowappletremove
+             
+	rescue
+		@removeapplettext = " removeapplet" + "  .."
+
+	end # exception rescue
+
+end

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

@@ -0,0 +1,52 @@
+
+#***********************************************************************
+#* 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 "steven@superant.com".
+#***********************************************************************/
+
+def removeappletvariables(tempremovename)
+	
+ 	 begin # exception trapped block
+	
+        $rwdtinkerlog.info "in removeappletvariables"
+
+	 # removefileinf = File.open(tempremove){|f| f.read}
+	 
+        
+        removemethod =  tempremovename
+        
+          
+        send "#{removemethod}"
+	
+	tmpremoveapplet = " successfull applet variable removal "
+	
+ 	 rescue
+ 	
+		tmpremoveapplet =  " removeappletvariables .."
+
+	 end # exception rescue
+  
+      return  tmpremoveapplet
+      
+    end
+
+
+  
+  

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

@@ -0,0 +1,11 @@
+# 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
+
+# call the rwdtinker helpwindow  
+
+def runremotezipsinstall
+	@rwd_window = "tinkerbackwindow"
+	@rwd_tab = "superantcomremotezipsinstall"
+end   
+

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

@@ -0,0 +1,15 @@
+# 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
+
+# call the rwdtinker helpwindow  
+
+def runrwdtinkerbackwindow
+	@rwd_window = "tinkerbackwindow"
+	@rwd_tab = "rwdzipslister"
+end   
+
+def runbackwindowappletremove
+	@rwd_window = "tinkerbackwindow"
+	@rwd_tab = "filelister"
+end   

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

@@ -0,0 +1,13 @@
+# 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 runrwdtinkerwin2version
+	@rwd_window = "applicationversion"
+	@versionappnamedisplay = "RwdTinkerWin2"
+	@versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+	@versionnumberdisplay =  "Version " + RwdTinkerWin2Version
+
+end
+

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

@@ -0,0 +1,19 @@
+# this method saves the configuration record
+def saveconfigurationrecord 
+	require 'fileutils'
+	if @a_configurationfilename
+		newname = "%s" %   [@a_configurationfilename] # grab the filename to create
+		newdata =@a_configurationfile
+
+          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
+end
+

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

@@ -0,0 +1,9 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# help about option setup for rwdtinker application
+
+
+def showlocalechoicesoptions
+
+  @localechooseoptions = $langarray.rwd_options
+end	
+   

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

@@ -0,0 +1,23 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL.
+#view contents of a tinker applet
+def viewappletcontents
+	require 'fileutils'
+	require 'lib/zip/zip'
+	nametext = "%s" % [@a_installapplet]
+
+	begin # exception trapped block
+		fullname =  nametext + ".zip"
+		fileName = File.join($zipslocation,fullname)
+		tempfilecontents = " "
+		zf = Zip::ZipFile.new(fileName)
+		zf.sort.each {
+			|entry|
+			tempfilecontents =  tempfilecontents + entry.to_s  + "\n"
+		}
+		@appletcontentstext = tempfilecontents 
+
+	rescue
+		@installapplettext = "unzip error - error opening applet"
+	end # exception rescue
+
+end

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

@@ -0,0 +1,24 @@
+#view gem info
+def viewgemappletcontents
+	require 'fileutils'
+	require 'lib/zip/zip'
+	nametext = "%s" % [@a_installapplet]
+
+	begin # exception trapped block
+		fullname =  nametext + ".zip"
+
+		tempfilecontents = " "
+		zf = Zip::ZipFile.new(fullname)
+		zf.sort.each {
+			|entry|
+			tempfilecontents =  tempfilecontents + entry.to_s  + "\n"
+		}
+		@appletcontentstext = tempfilecontents 
+
+	rescue
+		@installapplettext = "unzip error - error opening applet"
+	end # exception rescue
+
+end
+
+

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

@@ -0,0 +1,16 @@
+#view the log on the tab
+
+def rwdtinkerrunviewlog
+	   require 'lib/rwdtinker/rwdtinkertools'
+	   
+                  logfilelocation = File.join(LogDirectory, 'rwdtinker.log')      
+           if @a_rwdtinkerlognumber == nil
+		        @a_rwdtinkerlognumber = 11
+		        
+	    end
+		        
+	         @returnlogdisplay = RwdtinkerTools.tail(logfilelocation , @a_rwdtinkerlognumber.to_i)
+			 
+	   
+end
+

data/code/superant.com.thesaurus/clearhttpview3.rb

@@ -0,0 +1,9 @@
+   # this method clears the on screen variables
+   def clearthesaurus
+ 
+        
+      @a_thesaurusdata = ""
+      
+     
+
+  end

data/code/superant.com.thesaurus/listwordlookup.rb

@@ -0,0 +1,37 @@
+# this code is to list the word results
+def fillthesaurusword(inffile)
+  applet                = inffile
+  @a_thesaurusinput  = applet
+  
+end
+
+  
+def listwordresults
+require "lib/oothesaurus"
+
+the=OOThesaurus.new()
+history=[]
+ 
+ filepath = "rwd_files"
+ filepathidx = File.join(filepath,"idx")
+ filepathdat = File.join(filepath,"dat")
+word = @a_thesaurusinput.downcase.strip 
+notesarray = the::dosearch(the,history,word,true,filepathidx,filepathdat)
+       
+       finalarray = []
+   
+	 a_thesaurusdata  = ""
+	notesarray.each { |x| x.each { |x2| 
+	 
+	finalarray << x2 unless x2 == "(noun)" or x2 == "(verb)" or  x2 == "(adj)"
+	}
+	
+	}
+		        	@a_thesaurusdata  = finalarray.entries.sort.rwd_method("fillthesaurusword")
+	end
+	
+
+
+
+
+

data/code/superant.com.thesaurus/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.words/dictlookup.rb

@@ -0,0 +1,20 @@
+# dictionary
+  def dictlookup
+  require 'lib/dict'
+if ! @a_dictionaryinput.empty?
+
+  dict = DICT.new('dict.org', DICT::DEFAULT_PORT)
+  dict.client('a Ruby/DICT client')
+  definitions = dict.define(DICT::ALL_DATABASES, @a_dictionaryinput)
+  @dictionary_display = ""
+  if definitions
+    definitions.each do |d|
+   @dictionary_display = @dictionary_display +  d.description  + d.database + "\n"
+      d.definition.each { |line| @dictionary_display = @dictionary_display + line }
+    end
+  end
+
+  dict.disconnect
+  @dictionary_display  = @dictionary_display + "\n\n"
+  end
+end

data/code/superant.com.words/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 = "sagdictlookup"
+   end   
+   

data/code/superant.com.words/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 rwdwordshelpaboutsetup
+return ["RwdWords","(c) 2004,2005 Steven Gibson ","Version #{RwdWordsVersion}"]
+end
+
+