kc3-lang/libtommath/filter.pl

• Show log

  Commit

• Hash : 4f2db5fa
  Author :
  Date : 2014-10-13T15:49:02
  

  add "updatemakes" from libtomcrypt

Download

• filter.pl

• #!/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)
  
  $dst = shift;
  $ins = shift;
  
  open(SRC,"<$dst");
  open(INS,"<$ins");
  open(TMP,">tmp.delme");
  
  $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;
  
  # $Source$
  # $Revision$
  # $Date$
  

Download