[css2] Now also extracts XML examples.

--HG--
extra : convert_revision : svn%3A73dc7c4b-06e6-40f3-b4f7-9ed1dbc14bfc/trunk%401290

Author: bert-github

css2/bin/Attic/xextr

@@ -6,7 +6,7 @@
 # and put their contents into separate files
 #
 # Arnaud Le Hors - lehors@w3.org
-# $Id: xextr,v 1.2 1998-01-08 13:53:38 ijacobs Exp $
+# $Id: xextr,v 1.3 1998-03-20 22:09:14 bbos Exp $
 
 $PROGNAME = substr($0, rindex($0, "/") + 1);
 
@@ -82,14 +82,30 @@ sub process_html_block {
 }
 
 sub process_xml_block {
-    warn "XML extraction not implemented yet...\n";
+    my ($file, $block, $deprecated) = @_;
+
+    # comment out undesired block
+    $block =~ s/<em>(.*?)<\/em>/<!-- $1 -->/sigo;
+
+    # map characters
+    $block =~ s/&lt;/</g;
+    $block =~ s/&gt;/>/g;
+    $block =~ s/&quot;/\"/g;
+    $block =~ s/&copy;/(C)/g;
+    $block =~ s/&amp;/\&/g;
+
+    # print file out
+    print "\tXML extracting $file\n";
+    open(OUTPUT, "> $file") || die "failed to create $file\n";
+    print OUTPUT $block;
+    close(OUTPUT);
 }
 
 sub process_css_block {
     my ($file, $block, $deprecated) = @_;
 
     # comment out undesired block
-    $block =~ s/<em>(.*?)<\/em>/<!-- $1 -->/sigo;
+    $block =~ s|<em>(.*?)</em>|/* $1 */|sigo;
 
     # map characters
     $block =~ s/&lt;/</g;

css2/bin/xextr

@@ -6,7 +6,7 @@
 # and put their contents into separate files
 #
 # Arnaud Le Hors - lehors@w3.org
-# $Id: xextr,v 1.2 1998-01-08 13:53:38 ijacobs Exp $
+# $Id: xextr,v 1.3 1998-03-20 22:09:14 bbos Exp $
 
 $PROGNAME = substr($0, rindex($0, "/") + 1);
 
@@ -82,14 +82,30 @@ sub process_html_block {
 }
 
 sub process_xml_block {
-    warn "XML extraction not implemented yet...\n";
+    my ($file, $block, $deprecated) = @_;
+
+    # comment out undesired block
+    $block =~ s/<em>(.*?)<\/em>/<!-- $1 -->/sigo;
+
+    # map characters
+    $block =~ s/&lt;/</g;
+    $block =~ s/&gt;/>/g;
+    $block =~ s/&quot;/\"/g;
+    $block =~ s/&copy;/(C)/g;
+    $block =~ s/&amp;/\&/g;
+
+    # print file out
+    print "\tXML extracting $file\n";
+    open(OUTPUT, "> $file") || die "failed to create $file\n";
+    print OUTPUT $block;
+    close(OUTPUT);
 }
 
 sub process_css_block {
     my ($file, $block, $deprecated) = @_;
 
     # comment out undesired block
-    $block =~ s/<em>(.*?)<\/em>/<!-- $1 -->/sigo;
+    $block =~ s|<em>(.*?)</em>|/* $1 */|sigo;
 
     # map characters
     $block =~ s/&lt;/</g;