--- a/doc-src/TutorialI/Overview/delete-verbatim Fri Jun 28 19:51:40 2002 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,34 +0,0 @@
-#!/usr/bin/perl -w
-
-sub doit {
- my ($file) = @_;
-
- open (FILE, $file) || die $!;
- undef $/; $text = <FILE>; $/ = "\n";
- close FILE || die $!;
-
- $_ = $text;
-
- s/text_raw\{\*([^*]|\*[^}])*\*\}//sg; # actual work done here
- s/text\{\*([^*]|\*[^}])*\*\}//sg; # actual work done here
- s/\(\*<\*\)//sg;
- s/\(\*>\*\)//sg;
-
- $result = $_;
-
- if ($text ne $result) {
- print STDERR "fixing $file\n";
-# if (! -f "$file~~") {
-# rename $file, "$file~~" || die $!;
-# }
- open (FILE, "> Demo/$file") || die $!;
- print FILE $result;
- close FILE || die $!;
- }
-}
-
-
-foreach $file (@ARGV) {
- eval { &doit($file); };
- if ($@) { print STDERR "*** doit $file: ", $@, "\n"; }
-}