summaryrefslogtreecommitdiffhomepage
path: root/libtommath/filter.pl
diff options
context:
space:
mode:
authorMatt Johnston <matt@ucc.asn.au>2020-10-15 19:55:15 +0800
committerMatt Johnston <matt@ucc.asn.au>2020-10-15 19:55:15 +0800
commit0e3e8db5bfca0c579be55e7580a46c593c1384be (patch)
tree2b1a718f633fb95c1f2d689a591cf9e8642697f3 /libtommath/filter.pl
parent78e17f6ee9a944430da3e517ee1fe384fd6b275b (diff)
parent17873e8c922eded2cec86184673a6d110df6403f (diff)
merge from main
--HG-- branch : fuzz
Diffstat (limited to 'libtommath/filter.pl')
-rwxr-xr-xlibtommath/filter.pl34
1 files changed, 0 insertions, 34 deletions
diff --git a/libtommath/filter.pl b/libtommath/filter.pl
deleted file mode 100755
index ad980e5..0000000
--- a/libtommath/filter.pl
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/perl
-
-# we want to filter every between START_INS and END_INS out and then insert crap from another file (this is fun)
-
-use strict;
-use warnings;
-
-open(my $src, '<', shift);
-open(my $ins, '<', shift);
-open(my $tmp, '>', 'tmp.delme');
-
-my $l = 0;
-while (<$src>) {
- if ($_ =~ /START_INS/) {
- print {$tmp} $_;
- $l = 1;
- while (<$ins>) {
- print {$tmp} $_;
- }
- close $ins;
- } elsif ($_ =~ /END_INS/) {
- print {$tmp} $_;
- $l = 0;
- } elsif ($l == 0) {
- print {$tmp} $_;
- }
-}
-
-close $tmp;
-close $src;
-
-# ref: $Format:%D$
-# git commit: $Format:%H$
-# commit time: $Format:%ai$