From 75e4c2f77e074aebe70be86cd60d1980f80bd350 Mon Sep 17 00:00:00 2001
From: Peter Dimov <pdimov@gmail.com>
Date: Wed, 11 Oct 2023 20:08:56 +0300
Subject: [PATCH] Remove tools/preprocess.pl

---
 tools/preprocess.pl | 122 --------------------------------------------
 1 file changed, 122 deletions(-)
 delete mode 100644 tools/preprocess.pl

diff --git a/tools/preprocess.pl b/tools/preprocess.pl
deleted file mode 100644
index 56f50c5..0000000
--- a/tools/preprocess.pl
+++ /dev/null
@@ -1,122 +0,0 @@
-# // (C) Copyright Tobias Schwinger
-# //
-# // Use modification and distribution are subject to the boost Software License
-# // Version 1.0. (See http://www.boost.org/LICENSE_1_0.txt).
-
-# // Preprocess and run this script.
-# //
-# // Invocation example using the GNU preprocessor:
-# //
-# //   g++ -I$BOOST_ROOT -x c++ preprocess.pl -E |perl
-# //
-# // or in two steps:
-# //
-# //   g++ -I$BOOST_ROOT -x c++ preprocess.pl -E >temp.pl
-# //   perl temp.pl
-
-#define die(x) 1
-die("ERROR: this script has to be preprocessed, stopped");
-#undef die
-
-use strict vars;
-use File::Spec updir,curdir,catfile,canonpath,splitpath,file_name_is_absolute;
-
-# // --- Settings
-my $up = File::Spec->updir();
-
-# // Relative path to the destination directory.
-my $path = File::Spec->catdir($up,$up,$up,'boost','typeof');
-
-my $license = qq@
-/\/ Copyright (C) 2005 Arkadiy Vertleyb
-/\/ Copyright (C) 2005 Peder Holt
-/\/ 
-/\/ Use modification and distribution are subject to the boost Software License,
-/\/ Version 1.0. (See http:/\/www.boost.org/LICENSE_1_0.txt).
-
-/\/ Preprocessed code, do not edit manually !
-
-@;
-# //---
-
-# // Find this script's directory if run directly from the shell (not piped)
-$path = File::Spec->canonpath
-( File::Spec->catfile
-  ( File::Spec->file_name_is_absolute($0)
-    ? $0 : (File::Spec->curdir(),$0)
-  , $up
-  , File::Spec->splitpath($path)
-  )
-) unless ($0 eq '-');
-die 
-( ($0 eq '-')
-  ? "ERROR: please run from this script's directory, stopped" 
-  : "ERROR: target directoty not found, stopped" 
-) unless (-d $path);
-
-# // Tidy up the contents and write it to a file
-sub write_down(name,contents)
-{
-  my($name,$contents) = @_; 
-  my $filename = $name;
-
-  my $fqfname = File::Spec->catfile($path,$filename);
-  $contents =~ s"(((\n|^)\s*\#[^\n]+)|(\s*\n)){2,}"\n"g; # "
-  print STDERR "Writing file: '$filename'\n";
-  open my($file),">$fqfname" 
-    or die "ERROR: unable to open file '$filename' for writing, stopped";
-  print $file $license;
-  print $file $contents;
-  close $file;
-}
-
-# // Include external components to ensure they don't end up in the recorded
-# // output
-#define BOOST_TYPEOF_PP_INCLUDE_EXTERNAL
-my $sewer = <<'%--%-EOF-%--%'
-#include <boost/typeof/vector.hpp>
-#undef  BOOST_TYPEOF_VECTOR_HPP_INCLUDED
-%--%-EOF-%--%
-; $sewer = '';
-
-
-#define BOOST_TYPEOF_PREPROCESSING_MODE
-#define BOOST_TYPEOF_LIMIT_SIZE 50
-#define BOOST_TYPEOF_PP_NEXT_SIZE 100
-
-&write_down('vector50.hpp',<<'%--%-EOF-%--%'
-#include <boost/typeof/vector.hpp>
-%--%-EOF-%--%
-);
-#undef  BOOST_TYPEOF_VECTOR_HPP_INCLUDED
-
-#undef  BOOST_TYPEOF_LIMIT_SIZE
-#define BOOST_TYPEOF_LIMIT_SIZE 100
-#define BOOST_TYPEOF_PP_NEXT_SIZE 149
-
-&write_down('vector100.hpp',<<'%--%-EOF-%--%'
-#include <boost/typeof/vector.hpp>
-%--%-EOF-%--%
-);
-#undef  BOOST_TYPEOF_VECTOR_HPP_INCLUDED
-
-#undef  BOOST_TYPEOF_LIMIT_SIZE
-#define BOOST_TYPEOF_LIMIT_SIZE 150
-#define BOOST_TYPEOF_PP_NEXT_SIZE 199
-
-
-&write_down('vector150.hpp',<<'%--%-EOF-%--%'
-#include <boost/typeof/vector.hpp>
-%--%-EOF-%--%
-);
-#undef  BOOST_TYPEOF_VECTOR_HPP_INCLUDED
-
-#undef  BOOST_TYPEOF_LIMIT_SIZE
-#define BOOST_TYPEOF_LIMIT_SIZE 200
-#define BOOST_TYPEOF_PP_NEXT_SIZE 250
-
-&write_down('vector200.hpp',<<'%--%-EOF-%--%'
-#include <boost/typeof/vector.hpp>
-%--%-EOF-%--%
-);
-