Mercurial > dropbear

comparison libtommath/filter.pl @ 1437:871b18fd7065 fuzz

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge from main (libtommath/libtomcrypt/curve25510-donna updates)
author Matt Johnston <matt@ucc.asn.au>
date Sat, 24 Jun 2017 22:51:45 +0800
parents 60fc6476e044
children 8bba51a55704
comparison
equal deleted inserted replaced
1432:41dca1e5ea34 1437:871b18fd7065
1 #!/usr/bin/perl
2
3 # we want to filter every between START_INS and END_INS out and then insert crap from another file (this is fun)
4
5 $dst = shift;
6 $ins = shift;
7
8 open(SRC,"<$dst");
9 open(INS,"<$ins");
10 open(TMP,">tmp.delme");
11
12 $l = 0;
13 while (<SRC>) {
14 if ($_ =~ /START_INS/) {
15 print TMP $_;
16 $l = 1;
17 while (<INS>) {
18 print TMP $_;
19 }
20 close INS;
21 } elsif ($_ =~ /END_INS/) {
22 print TMP $_;
23 $l = 0;
24 } elsif ($l == 0) {
25 print TMP $_;
26 }
27 }
28
29 close TMP;
30 close SRC;
31
32 # $Source$
33 # $Revision$
34 # $Date$