[css2] Added to allow generation of Example keyword

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

Author: ianbjacobs

css2/bin/Attic/addmarkup

@@ -0,0 +1,29 @@
+#!/usr/local/bin/perl -w
+#Add special markup to document
+#- Add keyword "Example:" before examples for non-CSS UAs
+# $id$
+# Ian Jacobs (ij@w3.org)
+
+use DB_File;
+use lib 'bin';
+use utils;
+use English;
+
+$PROG = substr($0, rindex($0, "/") + 1);
+$USAGE = "Usage: $PROG input [output]\n";
+
+if ($#ARGV >= 0) {$input = $ARGV[0]; shift;} else {die $USAGE;}
+if ($#ARGV >= 0) {$output = $ARGV[0]; shift;} else {$output = '-';}
+if ($#ARGV >= 0) {die $USAGE;}
+
+#Copy file in memory
+$buf = readfile($input);
+
+$attrs = "\\s+class\\s*=\\s*\"?example\"?";
+$buf =~ s/<div$attrs>/$&<P style="display:none">Example(s):<\/P>/sgio;
+$attrs = "\\s+class\\s*=\\s*\"?illegal-example\"?";
+$buf =~ s/<div$attrs>/$&<P style="display:none">Illegal example(s):<\/P>/sgio;
+
+open(OUTPUT, "> $output") || die "Cannot open for output: $output\n";
+print OUTPUT $buf;
+close(OUTPUT);

css2/bin/addmarkup

@@ -0,0 +1,29 @@
+#!/usr/local/bin/perl -w
+#Add special markup to document
+#- Add keyword "Example:" before examples for non-CSS UAs
+# $id$
+# Ian Jacobs (ij@w3.org)
+
+use DB_File;
+use lib 'bin';
+use utils;
+use English;
+
+$PROG = substr($0, rindex($0, "/") + 1);
+$USAGE = "Usage: $PROG input [output]\n";
+
+if ($#ARGV >= 0) {$input = $ARGV[0]; shift;} else {die $USAGE;}
+if ($#ARGV >= 0) {$output = $ARGV[0]; shift;} else {$output = '-';}
+if ($#ARGV >= 0) {die $USAGE;}
+
+#Copy file in memory
+$buf = readfile($input);
+
+$attrs = "\\s+class\\s*=\\s*\"?example\"?";
+$buf =~ s/<div$attrs>/$&<P style="display:none">Example(s):<\/P>/sgio;
+$attrs = "\\s+class\\s*=\\s*\"?illegal-example\"?";
+$buf =~ s/<div$attrs>/$&<P style="display:none">Illegal example(s):<\/P>/sgio;
+
+open(OUTPUT, "> $output") || die "Cannot open for output: $output\n";
+print OUTPUT $buf;
+close(OUTPUT);