[ruby-list:31243] Re: cgi.rb で HTML 4.01 Frameset の出力

高橋征義です。

Ryo Amano <[e-mail]>さん：
> module Html4Fr の中で、def doctype 〜 end とあり、ここで Frameset 用の DTD
> をセットしているようですが、この直後に extend Html4Tr をしているところ
> があり、ここでメソッドのオーバーライドが生じていることが原因かと推察した
> のですが、まだ Ruby に関しても勉強中であり、いまひとつわかりません。

いえいえ、お察しの通りではないかと。

> 私のスクリプトの書き方、あるいは環境になにか問題があるのでしょうか。

そうではなくて、cgi.rb側の問題でしょう。


というわけで、extendするのはやめて、むりやりHtml4Trのタグ部分を
Html4Frにコピってみました。真面目に動作確認したわけではない
(cgi.rbは今一つ追いきれてない)のですが、ざっと試してみたところ
では、frameset.dtd な Doctypeになっているようです。
# HTML4.01じゃなくてHTML4.0ですが。

以下、パッチです。


--- cgi.rb.orig	Tue Sep  4 21:44:50 2001
+++ cgi.rb	Tue Sep  4 21:46:40 2001
@@ -1872,11 +1872,14 @@
 
     def element_init
       extend TagMaker
-      extend Html4Tr
-      element_init()
       methods = ""
       # - -
-      for element in %w[ FRAMESET ]
+      for element in %w[ TT I B U S STRIKE BIG SMALL EM STRONG DFN
+          CODE SAMP KBD VAR CITE ABBR ACRONYM FONT SUB SUP SPAN BDO
+          ADDRESS DIV CENTER MAP OBJECT APPLET H1 H2 H3 H4 H5 H6 PRE Q
+          INS DEL DL OL UL DIR MENU LABEL SELECT OPTGROUP FIELDSET
+          LEGEND BUTTON TABLE IFRAME NOFRAMES TITLE STYLE SCRIPT
+          NOSCRIPT TEXTAREA FORM A BLOCKQUOTE CAPTION FRAMESET ]
         methods.concat( <<-BEGIN + nn_element_def(element) + <<-END )
           def #{element.downcase}(attributes = {})
         BEGIN
@@ -1885,8 +1888,19 @@
       end
 
       # - O EMPTY
-      for element in %w[ FRAME ]
+      for element in %w[ IMG BASE BASEFONT BR AREA LINK PARAM HR INPUT
+          COL ISINDEX META ]
         methods.concat( <<-BEGIN + nOE_element_def(element) + <<-END )
+          def #{element.downcase}(attributes = {})
+        BEGIN
+          end
+        END
+      end
+
+      # O O or - O
+      for element in %w[ HTML P DT DD LI OPTION THEAD TFOOT TBODY
+          COLGROUP TR TH TD HEAD ]
+        methods.concat( <<-BEGIN + nO_element_def(element) + <<-END )
           def #{element.downcase}(attributes = {})
         BEGIN
           end



高橋征義 (TAKAHASHI Masayoshi)       Email:[e-mail]