[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Documentation/Hardware/Machines/DEC/vax/data2xml.pl: 1.1 -> 1.4

Subject: Documentation/Hardware/Machines/DEC/vax/data2xml.pl: 1.1 -> 1.4
From: kano@na.rim.or.jp (OKANO Takayoshi)
To: www-changes-ja@jp.NetBSD.org
Date: Thu, 13 Apr 2006 00:29:58 +0900 (JST)
Message-Id: <200604121529.AAA27639@shell.rim.or.jp>
Delivered-To: mailing list www-changes-ja@jp.netbsd.org
Mailing-List: contact www-changes-ja-help@jp.netbsd.org; run by ezmlm-idx
以下のページの更新をしました。ツッコミをお願いします。

Documentation/Hardware/Machines/DEC/vax/data2xml.pl: 1.1 -> 1.4

金曜日までに異議がなければ、 commit します。

以下、訳と原文の差分です。

--- Documentation/Hardware/Machines/DEC/vax/data2xml.pl.orig	2006-04-13 00:28:27.000000000 +0900
+++ Documentation/Hardware/Machines/DEC/vax/data2xml.pl	2006-04-13 00:28:27.000000000 +0900
@@ -1,8 +1,8 @@
 #!/usr/bin/env perl
 
-#	$NetBSD: data2xml.pl,v 1.1 2004/12/04 21:07:36 jschauma Exp $
+#	$NetBSD: data2xml.pl,v 1.4 2005/04/09 19:45:09 heinz Exp $
 #	<!-- Based on english version: -->
-#	<!-- NetBSD: data2xml.pl,v 1.1 2004/12/04 21:07:36 jschauma Exp   -->
+#	<!-- NetBSD: data2xml.pl,v 1.4 2005/04/09 19:45:09 heinz Exp   -->
 #
 # Copyright (c) 1997 The NetBSD Foundation, Inc.
 # All rights reserved.
@@ -117,14 +117,13 @@
 <sect2 id="available-formats">
 <title>この情報は三つのフォーマットで提供されています</title>
 <itemizedlist>
-  <listitem><ulink url="sections.html">インデックス・ページ、セクション毎にわかれた
-							    ページ</ulink><html:br/>
-      特定の情報だけが必要で、すべての情報をダウンロードしたくない場合に
-      便利です。</listitem>
-  <listitem><ulink url="full.html">オール・イン・ワン・ページ</ulink><html:br/>
-      各セクションへ移動するためのインライン・リンクを使いたい場合に便利です。</listitem>
-  <listitem><ulink url="$datafile">プレイン・テキストのテーブル</ulink><html:br/>
-      上記の二つのフォーマットを生成するために使われるテキストデータベース</listitem>
+  <listitem><para><ulink url="sections.html">インデックス・ページ、セクション毎にわかれたページ</ulink></para>
+  	<para>特定の情報だけが必要で、すべての情報をダウンロードしたくない場合に
+      便利です。</para></listitem>
+  <listitem><para><ulink url="full.html">オール・イン・ワン・ページ</ulink></para>
+      <para>各セクションへ移動するためのインライン・リンクを使いたい場合に便利です。</para></listitem>
+  <listitem><para><ulink url="$datafile">プレイン・テキストのテーブル</ulink></para>
+      <para>上記の二つのフォーマットを生成するために使われるテキストデータベース。</para></listitem>
 </itemizedlist>
 </sect2>
 #;
@@ -160,14 +159,18 @@
     foreach $file (keys %file)
 	{
 	print "$file: ";
-	if (open(FILE, "$file.html"))
+	if (open(FILE, "$file.xml"))
 	    {
-	    my($tag, $olddata);
+	    my($tag, $date, $olddata);
 	    while (<FILE>)
 		{
 		if (/(\$NetBSD[^\$]*\$)/)
 		    {
 		    $tag = $1;
+		    }
+		if (/(\$Date[^\$]*\$)/)
+		    {
+		    $date = $1;
 		    last;
 		    }
 		}
@@ -176,10 +179,12 @@
 	    close(FILE);
 	    if ($tag) # substitute in existing CVS tag to reduce diffs
 		{ $file{$file} =~ s/\$NetBSD[^\$]*\$/$tag/g; }
+	    if ($date) # substitute in existing CVS tag to reduce diffs
+		{ $file{$file} =~ s/\$Date[^\$]*\$/$date/g; }
 	    if ($file{$file} eq $olddata)
-		{
-		if (open(FILE, ">>$file.xml")) # Update timestamp
-		    { close(FILE); }
+		{ # Update timestamp
+		my $now = time();
+		utime($now, $now, $file.".xml");
 		print "Unchanged\n";
 		next;
 		}
@@ -313,10 +318,10 @@
 	    { $ref = "$section.html#$section"; }
 	else
 	    { next; }
-	$file{$secloop} .= qq#<html:hr/><table width="100%">
+	$file{$secloop} .= qq#<html:hr/><table width="100%" id="section:$section:sections-table">
   <tr>
     <td><sect2 id="section:$section">\n<title>$secdata{$section}{'title'}</title></sect2></td><td align="right" valign="top">\n
-    <table border="0"><tr>\n#;
+    <table border="0" id="section:$section:nav-table"><tr>\n#;
 
 	if ($prev_section)
 	    {
Index: Documentation/Hardware/Machines/DEC/vax/data2xml.pl
===================================================================
RCS file: /cvsroot/htdocs/Documentation/Hardware/Machines/DEC/vax/data2xml.pl,v
retrieving revision 1.1
retrieving revision 1.4
diff -u -r1.1 -r1.4
--- Documentation/Hardware/Machines/DEC/vax/data2xml.pl	4 Dec 2004 21:07:36 -0000	1.1
+++ Documentation/Hardware/Machines/DEC/vax/data2xml.pl	9 Apr 2005 19:45:09 -0000	1.4
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 
-#	$NetBSD: data2xml.pl,v 1.1 2004/12/04 21:07:36 jschauma Exp $
+#	$NetBSD: data2xml.pl,v 1.4 2005/04/09 19:45:09 heinz Exp $
 #
 # Copyright (c) 1997 The NetBSD Foundation, Inc.
 # All rights reserved.
@@ -108,14 +108,13 @@
 <sect2 id="available-formats">
 <title>This information is available in three forms</title>
 <itemizedlist>
-  <listitem><ulink url="sections.html">Index page, with a separate page for each
-							    section</ulink><html:br/>
-      Useful if you only want specific information and do not want to
-      wait for everything to download.</listitem>
-  <listitem><ulink url="full.html">All in one page</ulink><html:br/>
-      Recommended if you want to use the inline links to flip between sections.</listitem>
-  <listitem><ulink url="$datafile">Plain text table</ulink><html:br/>
-      The text database used to generate the above two forms</listitem>
+  <listitem><para><ulink url="sections.html">Index page, with a separate page for each section</ulink></para>
+  	<para>Useful if you only want specific information and do not want to
+      wait for everything to download.</para></listitem>
+  <listitem><para><ulink url="full.html">All in one page</ulink></para>
+      <para>Recommended if you want to use the inline links to flip between sections.</para></listitem>
+  <listitem><para><ulink url="$datafile">Plain text table</ulink></para>
+      <para>The text database used to generate the above two forms.</para></listitem>
 </itemizedlist>
 </sect2>
 #;
@@ -151,14 +150,18 @@
     foreach $file (keys %file)
 	{
 	print "$file: ";
-	if (open(FILE, "$file.html"))
+	if (open(FILE, "$file.xml"))
 	    {
-	    my($tag, $olddata);
+	    my($tag, $date, $olddata);
 	    while (<FILE>)
 		{
 		if (/(\$NetBSD[^\$]*\$)/)
 		    {
 		    $tag = $1;
+		    }
+		if (/(\$Date[^\$]*\$)/)
+		    {
+		    $date = $1;
 		    last;
 		    }
 		}
@@ -167,10 +170,12 @@
 	    close(FILE);
 	    if ($tag) # substitute in existing CVS tag to reduce diffs
 		{ $file{$file} =~ s/\$NetBSD[^\$]*\$/$tag/g; }
+	    if ($date) # substitute in existing CVS tag to reduce diffs
+		{ $file{$file} =~ s/\$Date[^\$]*\$/$date/g; }
 	    if ($file{$file} eq $olddata)
-		{
-		if (open(FILE, ">>$file.xml")) # Update timestamp
-		    { close(FILE); }
+		{ # Update timestamp
+		my $now = time();
+		utime($now, $now, $file.".xml");
 		print "Unchanged\n";
 		next;
 		}
@@ -304,10 +309,10 @@
 	    { $ref = "$section.html#$section"; }
 	else
 	    { next; }
-	$file{$secloop} .= qq#<html:hr/><table width="100%">
+	$file{$secloop} .= qq#<html:hr/><table width="100%" id="section:$section:sections-table">
   <tr>
     <td><sect2 id="section:$section">\n<title>$secdata{$section}{'title'}</title></sect2></td><td align="right" valign="top">\n
-    <table border="0"><tr>\n#;
+    <table border="0" id="section:$section:nav-table"><tr>\n#;
 
 	if ($prev_section)
 	    {
Prev by Date: CVS commit: htdocs
Next by Date: CVS commit: htdocs
Prev by thread: Documentation/Hardware/Machines/DEC/vax/tail.txt: 1.3 -> 1.8
Next by thread: Sites/cdroms.xml: 1.20 -> 1.21
Index(es):
- Date
- Thread