rwdgutenberg 0.07 → 0.08

data/ev/tree.rb

@@ -88,7 +88,7 @@ class TreeObject
   def inspect
     parent, children	= @parent, @children
 
-    @parent, @children	= parent.id, children.collect{|obj| obj.id}
+    @parent, @children	= parent.object_id, children.collect{|obj| obj.object_id}
 
     res = "  " * (level-1) + "#{self.class}(#{@subtype}) #{super}"
 
@@ -96,6 +96,34 @@ class TreeObject
 
     res
   end
+
+  def previous(klass=[], skip=[])
+    klass	= [klass].flatten
+    skip	= [skip].flatten
+
+    po	= @parent
+    return nil	if po.nil?
+
+    ch	= po.children
+    return nil	if ch.nil?
+
+    n	= ch.index(self)
+    return nil	if n.nil?
+
+    res	= nil
+    if klass.nil?
+      n -= 1
+      res	= ch[n]
+    else
+      begin
+        n -= 1
+        res	= ch[n]
+      end while (klass.empty? or klass.collect{|k| ch[n-1].kind_of?(k)}.sort.uniq == [true]) \
+            and (skip.empty? or skip.collect{|k| ch[n-1].kind_of?(k)}.sort.uniq == [false])
+    end
+
+    res
+  end
 end
 
 class Tree
@@ -138,7 +166,7 @@ class Tree
   end
 
   def self.location(url, form=Hash.new)
-    s	= HTTPClient.get(url, form)
+    s	= HTTPClient.get(url, {}, form)
     s	= ""	if s.nil?
     new(s)
   end
@@ -155,7 +183,7 @@ class Tree
 
     tree	= nil
 
-    Dir.mkdirrec(dir)
+    File.mkpath(dir)
 
     if File.file?(file)
       @@mutex.synchronize do
@@ -227,7 +255,7 @@ class Tree
   end
 
   def markclosed
-    ([self].concat @objects).each do |obj|
+    ([self] + @objects).each do |obj|
       obj.children.each_index do |i|
         co1		= obj.children[i]
         co2		= obj.children[i+1]
@@ -238,7 +266,7 @@ class Tree
   end
 
   def deletedummies
-    ([self].concat @objects).each do |obj|
+    ([self] + @objects).each do |obj|
       obj.children.delete_if do |obj2|
         obj2.upordown == Dummy
       end

data/ev/xml.rb

@@ -1,4 +1,101 @@
 require "ev/sgml"
 
+class SGMLObject
+  def to_x(closetags=true)
+    res	= ""
+
+    parsetree("prechildren_to_x", "postchildren_to_x", res, closetags)
+
+    res
+  end
+end
+
+class Text < SGMLObject
+  def prechildren_to_x(res, closetags)
+    res << @text.strip	unless @text.strip.empty?
+  end
+end
+
+class Comment < SGMLObject
+  def prechildren_to_x(res, closetags)
+    res << "\n"	if not previous([], [Text]).kind_of?(Comment)
+    lines	= @text.gsub(/(<!--|-->)/, "").lf.split(/\n/)
+    if lines.length == 1
+      res << "  "*(@level-1) + "<!-- " + lines[0].strip + " -->" + "\n"
+    else
+      res << "  "*(@level-1) + "<!--" + "\n"
+      res << lines.collect{|s| "  "*(@level-1) + s.strip}.delete_if{|s| s.compress.empty?}.join("\n")
+      res << "\n"
+      res << "  "*(@level-1) + "-->" + "\n"
+      res << "\n"
+    end
+  end
+end
+
+class Special < SGMLObject
+  def prechildren_to_x(res, closetags)
+    res << "  "*(@level-1) + @text.compress + "\n"
+  end
+end
+
+class Instruction < SGMLObject
+  def prechildren_to_x(res, closetags)
+    res << "  "*(@level-1) + @text.compress + "\n"
+  end
+end
+
+class OpenTag < Tag
+  def prechildren_to_x(res, closetags)
+    a	= [@subtype]
+
+    args	= @args.dup
+    args.delete("id")
+    args.delete("name")
+    args	= args.sort
+    args.unshift(["id", @args["id"]])		if @args.include?("id")
+    args.unshift(["name", @args["name"]])	if @args.include?("name")
+
+    args.each do |k, v|
+      if not v.include?("'")
+        a << "#{k}='#{v}'"
+      else
+        if not v.include?('"')
+          a << "#{k}=\"#{v}\""
+        else
+          a << "#{k}='#{v.gsub(/\'/, '"')}'"
+        end
+      end
+    end
+
+    if @children.length == 0 or (@children.length == 1 and @children[0].kind_of?(Text) and @children[0].text.compress.empty?)
+      res << "  "*(@level-1) + "<#{a.join(" ")}/>" + "\n"
+    else
+      if @children.length == 1 and @children[0].kind_of?(Text) and @children[0].text.lf.split(/\n/).length == 1
+        res << "  "*(@level-1) + "<#{a.join(" ")}>"
+      else
+        res << "  "*(@level-1) + "<#{a.join(" ")}>" + "\n"
+      end
+    end
+  end
+
+  def postchildren_to_x(res, closetags)
+    if closetags
+      unless @children.length == 0 or (@children.length == 1 and @children[0].kind_of?(Text) and @children[0].text.compress.empty?)
+        res << "\n"		if @children.length == 1 and @children[0].kind_of?(Text) and @children[0].text.lf.split(/\n/).length > 1
+        res << "  "*(@level-1)	unless @children.length == 1 and @children[0].kind_of?(Text) and @children[0].text.lf.split(/\n/).length == 1
+        res << "</#{@subtype}>"
+        res << "\n"
+      end
+    end
+  end
+end
+
 class XML < SGML
+  def to_x(closetags=true)
+    res	= ""
+
+    parsetree("prechildren_to_x", "postchildren_to_x", res, closetags)
+
+    res
+  end
 end

data/gui/00coreguibegin/applicationguitop.rwd

@@ -1,4 +1,4 @@
 $rwdguivar=
 "<application>
-  <window name=\"main\" title=\"RwdGutenberg - RubyWebDialogs\">
+  <window name=\"main\" title=\"RwdTinker - RubyWebDialogs\">
 <tabs>"

data/gui/frontwindowselectionbegin/selectiontabbegin/00selectiontabbegin.rwd

@@ -1,6 +1,6 @@
 $rwdguivar=
 "	
-      <tab name=\"selectiontab\" caption=\"Menu Panel\">
+      <tab name=\"selectiontab\" caption=#{Message[:menu_panel]}>
 
       <table>
       <row> <p align=\"right\">Open a new location </row>

data/gui/frontwindowselections/superant.com.rwdtinkerwin2selectiontab/jumplinkcommands.rwd

@@ -1,7 +1,7 @@
 $rwdguivar=
 "
 <horizontal>
-<button caption=\"Show Jump Links\" action=\"showjumplinkoptions\"/>
+<button caption=#{Message[:showjump_links]} action=\"showjumplinkoptions\"/>
 
 </horizontal>
  <table>
@@ -10,6 +10,6 @@ $rwdguivar=
    </table>
 
       <horizontal>
-      <button caption=\"Jump to Application Location\" action=\"runjumplinkcommand\"/>
+      <button caption=#{Message[:jumptoapplication_location]} action=\"runjumplinkcommand\"/>
     </horizontal>
 "

data/gui/frontwindowtdocuments/superant.com.documents/tinkerdocuments.rwd

@@ -1,7 +1,7 @@
 $rwdguivar=
 "
 <horizontal>
-<button caption=\"Show Documents List\" action=\"setuptinkerdocuments\"/>
+<button caption=#{Message[:showdocument_list]} action=\"setuptinkerdocuments\"/>
 
 </horizontal>
  <table>
@@ -9,6 +9,6 @@ $rwdguivar=
 
    </table>
 <horizontal>
-      <button caption=\"Open Document\" action=\"runopentinkerdocument\"/>
+      <button caption=#{Message[:open_document]} action=\"runopentinkerdocument\"/>
   </horizontal>
 "

data/gui/helpaboutbegin/superant.com.helpaboutbegin/zzdocumentend.rwd

@@ -1,7 +1,7 @@
 $rwdguivar=
 "     
 <horizontal>       
-      <button caption=\"Help\" action=\"runhelpwindow\"/>
+      <button caption=#{Message[:help]} action=\"runhelpwindow\"/>
       
     </horizontal>
 	</tab>"

data/gui/helpaboutbegin/superant.com.helpaboutbegin/zzzzhelpscreenstart.rwd

@@ -1,3 +1,3 @@
 $rwdguivar=
 "
-<helpwindow name=\"main\" title=\"Help About\">"
+<helpwindow name=\"main\" title=#{Message[:help_about]}>"

data/gui/helpaboutinstalled/superant.com.tinkerhelpabout/helpabouttab.rwd

@@ -1,7 +1,7 @@
 $rwdguivar=
 "
 <horizontal>
-<button caption=\"Show Help About Links\" action=\"setuphelpaboutoptions\"/>
+<button caption=#{Message[:showhelpabout_links]} action=\"setuphelpaboutoptions\"/>
 
 </horizontal>
  <table>
@@ -10,6 +10,6 @@ $rwdguivar=
    </table>
 
       <horizontal>
-      <button caption=\"Open Selected Help About\" action=\"runrwdtinkerversion\"/>
+      <button caption=#{Message[:openselectedhelp_about]} action=\"runrwdtinkerversion\"/>
     </horizontal>
 "

data/gui/helpaboutzend/superant.com.helpaboutend/zhelpscreenstart2.rwd

@@ -1,3 +1,3 @@
 $rwdguivar=
 "
-<helpwindow name=\"tinkerbackwindow\" title=\"Help About\">"
+<helpwindow name=\"tinkerbackwindow\" title=#{Message[:help_about]}>"

data/gui/helpaboutzend/superant.com.helpaboutend/zzzzhelpabout2.rwd

@@ -1,7 +1,7 @@
 $rwdguivar=
 "
 <horizontal>
-<button caption=\"Show Help About Links\" action=\"setuphelpaboutoptions\"/>
+<button caption=#{Message[:showhelpabout_links]} action=\"setuphelpaboutoptions\"/>
 
 </horizontal>
  <table>
@@ -10,6 +10,6 @@ $rwdguivar=
    </table>
 
       <horizontal>
-      <button caption=\"Open Selected Help About\" action=\"runrwdtinkerversion\"/>
+      <button caption=#{Message[:openselectedhelp_about]} action=\"runrwdtinkerversion\"/>
     </horizontal>
 "

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/1appname.rwd

@@ -1,5 +1,5 @@
 $rwdguivar=
 "
-<window name = \"tinkerbackwindow\" title=\"Tinker Back Window\">
+<window name = \"tinkerbackwindow\" title=#{Message[:tinkerback_window]}>
 
 <tabs>"

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/40rwdlistzips.rwd

@@ -1,9 +1,9 @@
 $rwdguivar=
 "
-	<tab name=\"rwdzipslister\" caption=\"List Zips\">
+	<tab name=\"rwdzipslister\" caption=#{Message[:list_zips]}>
 
     <table>
-      <row> <p align=\"right\">File Name:</p>  <text size=70 name=\"a_installapplet\"/> </row>
+      <row> <p align=\"right\">#{Message[:file_name]}</p>  <text size=70 name=\"a_installapplet\"/> </row>
 
     </table>
      
@@ -11,26 +11,25 @@ $rwdguivar=
       <horizontal>
 
 
-<button caption=\"install (rwdtinker) applet\" action=\"installgemapplet\"/>
-      <button caption=\"Help\" action=\"runhelpwindowtinkerwin2\"/>
-      
-    </horizontal>
+<button caption=#{Message[:install_applet]} action=\"installgemapplet\"/>
+      <button caption=#{Message[:help]} action=\"runhelpwindowtinkerwin2\"/>
+          </horizontal>
     <p>%installapplettext%</p>
 
  <horizontal>
       
-       <button caption=\"view (rwdtinker) applet contents\" action=\"viewgemappletcontents\"/>
+       <button caption=#{Message[:viewapplet_contents]} action=\"viewgemappletcontents\"/>
     </horizontal>
     <p>%appletcontentstext%</p>
     <table>
-      <row> <p align=\"right\">Click below to view the list of zip files </row>
+      <row> <p align=\"right\">#{Message[:clickbelowtoviewlistof_zip]} </row>
       
     </table>
 
     <horizontal>
-       <button caption=\"List (zip directory) applets available for installing\" action=\"listzipfilestoinstall\"/>
+       <button caption=#{Message[:listappletsavailablefor_installation]} action=\"listzipfilestoinstall\"/>
       
-     <button caption=\"List applets (in the GEM Directory) available for installing\" action=\"listgemzips\"/>
+     <button caption=#{Message[:listappletsinthegem_directory]} action=\"listgemzips\"/>
       
     </horizontal>
 

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/45installremotezip.rwd

@@ -3,12 +3,12 @@ $rwdguivar=
 	<tab name=\"superantcomremotezipsinstall\" caption=\"Install Remote Applets\">
 
     <table>
-      <row> <p align=\"right\">File Name:</p>  <text size=70 name=\"superantcominstallremoteappletinput\"/> </row>
+      <row> <p align=\"right\">#{Message[:file_name]}</p>  <text size=70 name=\"superantcominstallremoteappletinput\"/> </row>
 
     </table>
       <horizontal>
       <button caption=\"install remote Gem applet package\" action=\"superantcominstallremotegemapplet\"/>
-      <button caption=\"Help\" action=\"runhelpwindowtinkerwin2\"/>
+      <button caption=#{Message[:help]} action=\"runhelpwindowtinkerwin2\"/>
       
     </horizontal>
     <p>%superantcominstallremotegemappletresult%</p>
@@ -17,7 +17,7 @@ $rwdguivar=
 
 
 
-       <button caption=\"view already installed GEM applets\" action=\"superantcomshowgemfiledirs\"/>
+       <button caption=#{Message[:viewalreadyinstalled_applications]} action=\"superantcomshowgemfiledirs\"/>
     </horizontal>
     <p>%%superantcomshowgemappletdirsresult%%</p>
 
@@ -26,13 +26,13 @@ $rwdguivar=
 
 
     <table>
-      <row> <p align=\"right\">Click below to view the list of zip files </row>
+      <row> <p align=\"right\">#{Message[:clickbelowtoviewlistof_zip]} </row>
       
     </table>
 
     <horizontal>
        
-     <button caption=\"List applets in the Remote GEM Repository available for downloading\" action=\"superantcomremotegemlist\"/>
+     <button caption=#{Message[:listappletsinthegem_directory]} action=\"superantcomremotegemlist\"/>
       
     </horizontal>
  <p>%superantcomremotegemappletsfullresult%</p>

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/50rwdlistapplets.rwd

@@ -1,38 +1,38 @@
 $rwdguivar=
 "
-	<tab name=\"filelister\" caption=\"List Applets\">
+	<tab name=\"filelister\" caption=#{Message[:list_applets]}>
 
 
     <table>
-      <row> <p align=\"right\">File Name:</p>  <text name=\"a_installlist\"/> </row>
+      <row> <p align=\"right\">#{Message[:file_name]}</p>  <text name=\"a_installlist\"/> </row>
 
     </table>
 
       <horizontal>
-       <button caption=\"View Install Text\" action=\"openappletname\"/>
-        <button caption=\"Help\" action=\"runhelpwindowtinkerwin2\"/>
+       <button caption=#{Message[:viewinstalled_text]} action=\"openappletname\"/>
+        <button caption=#{Message[:help]} action=\"runhelpwindowtinkerwin2\"/>
     </horizontal>
           <p>%displaytext%</p>
 
     <table>
-      <row> <p align=\"right\">File Name:</p>  <text name=\"a_removeapplet\"/> </row>
+      <row> <p align=\"right\">#{Message[:file_name]}</p>  <text name=\"a_removeapplet\"/> </row>
 
     </table>
 
     <p>%removeapplettext%</p>
       <horizontal>
-       <button caption=\"remove applet\" action=\"removeapplet\"/>
-      <button caption=\"Cancel\" action=\"main\"/>
+       <button caption=#{Message[:remove_applet]} action=\"removeapplet\"/>
+      <button caption=#{Message[:cancel]} action=\"main\"/>
       
     </horizontal>
     <table>
       <row> <p> </row>
-      <row> <p align=\"right\">View the list of installation files </row>
+      <row> <p align=\"right\">#{Message[:viewlistinstall_files]} </row>
       
     </table>
     <horizontal>
       
-      <button caption=\"List Files\" action=\"listinstalledfiles\"/>
+      <button caption=#{Message[:list_files]} action=\"listinstalledfiles\"/>
       
     </horizontal>
 

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/60editconfiguration.rwd

@@ -7,9 +7,9 @@ $rwdguivar=
  <row> <p> </row>
  <horizontal>
       <button caption=\"Load Record\" action=\"loadconfigurationrecord\"/>
-      <button caption=\"Save Changes\" action=\"saveconfigurationrecord\"/>
+      <button caption=#{Message[:save_changes]} action=\"saveconfigurationrecord\"/>
       <button caption=\"Reload Variables\" action=\"loadconfigurationvariables\"/>
-       <button caption=\"Help\" action=\"runhelpwindowtinkerwin2\"/>
+       <button caption=#{Message[:help]} action=\"runhelpwindowtinkerwin2\"/>
       
 
 

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/70rwddiagnostics.rwd

@@ -2,7 +2,7 @@ $rwdguivar=
 "
 	<tab name=\"diagnostictab\" caption=\"Diagnostic Tab\">
       <horizontal>
-       <button caption=\"View Platform Information\" action=\"runviewplatform\"/>
+       <button caption=#{Message[:viewplatform_information]} action=\"runviewplatform\"/>
     
       
     </horizontal>

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/81jumplinkcommands.rwd

@@ -1,8 +1,8 @@
 $rwdguivar=
 "
-<tab name=selectiontab caption=\"Selection Tab\">
+<tab name=selectiontab caption=#{Message[:selection_tab]}>
 <horizontal>
-<button caption=\"Show Jump Links\" action=\"showjumplinkoptions\"/>
+<button caption=#{Message[:showjump_links]} action=\"showjumplinkoptions\"/>
 
 </horizontal>
  <table>
@@ -11,7 +11,7 @@ $rwdguivar=
    </table>
 
       <horizontal>
-      <button caption=\"Jump to Application Location\" action=\"runjumplinkcommand\"/>
+      <button caption=#{Message[:jumptoapplication_location]} action=\"runjumplinkcommand\"/>
     </horizontal>
     </tab>
 "

data/gui/tinkerbackwindows/superant.com.tinkerhelpwindow/1appname.rwd

@@ -10,7 +10,7 @@ $rwdguivar=
  
  </table>
 <horizontal> 
-%rwdhelpdataoutput%
+%%rwdhelpdataoutput%%
 </horizontal>
 <row> <p></row>
 <table>

data/gui/tinkerbackwindows/superant.com.versionwindow/1appname.rwd

@@ -1,6 +1,6 @@
 $rwdguivar=
 "
-<window name = \"applicationversion\" title=\"Application Version\">
+<window name = \"applicationversion\" title=#{Message[:application_version]}>
 
  <row> <p></row>
           <p>%versionappnamedisplay%</p>
@@ -11,7 +11,7 @@ $rwdguivar=
 <p>%versionnumberdisplay%</p>
 
       <horizontal>
-<button caption=Return action=returntomain/>
+<button caption=#{Message[:return]} action=returntomain/>
     </horizontal>
 
 </window>"

data/gui/tinkerbackwindows/superant.com.versionwindow/helpaboutwindow.rwd

@@ -1,8 +1,8 @@
 $rwdguivar=
 "
-<window name=tinkerhelpabout title=\"Help About Window\">
+<window name=tinkerhelpabout title=#{Message[:help_about]}>
 <horizontal>
-<button caption=\"Show Help About Links\" action=\"setuphelpaboutoptions\"/>
+<button caption=#{Message[:showhelpabout_links]} action=\"setuphelpaboutoptions\"/>
 
 </horizontal>
  <table>
@@ -11,7 +11,7 @@ $rwdguivar=
    </table>
 
       <horizontal>
-      <button caption=\"Open Selected Help About\" action=\"runrwdtinkerversion\"/>
+      <button caption=#{Message[:openselectedhelp_about]} action=\"runrwdtinkerversion\"/>
     </horizontal>
     </window>
 "

data/installed/gutenbergdata02.inf

@@ -0,0 +1,5 @@
+#rwdgutenberg - sample data #2
+Books/marip10.txt
+Books/Mariposa.gut
+Books/shannon1948.html
+Books/Shannon.gut

data/installed/rwdwgutenberg-0.06.inf

@@ -0,0 +1,7 @@
+#rwdgutenberg - text reading frontend
+configuration/rwdgutenberg.dist
+gui/tinkerbackwindows/superant.com.gutenberg
+gui/tinkerbackwindows/superant.com.gutendisplay
+rwd_files/HowTo_Gutenberg.txt
+code/superant.com.gutenberg
+tests/makerwdwgutenberg-0.06.rb