Mercurial > repos > ktnyt > gembassy

comparison GEMBASSY-1.0.3/doc/text/copydesc.pl @ 0:8300eb051bea draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial upload
author ktnyt
date Fri, 26 Jun 2015 05:19:29 -0400
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:8300eb051bea
1 use strict;
2 use warnings;
3
4 my @progs = split "\n", `wossname -showembassy GEMBASSY -auto | cut -d ' ' -f 1| grep ^g | sort`;
5
6 copy($_) foreach @progs;
7
8 sub copy {
9 my $prog = shift;
10
11 print STDERR "\r\e[K$prog";
12
13 open my $rdr, "<", "old/$prog.txt";
14 open my $wtr, ">", "final/$prog.txt";
15 open my $tmp, "<", "new/$prog.txt";
16
17 my $out = join "", <$tmp>;
18
19 my $progdesc;
20
21 while(my $line = readline $rdr) {
22 if($line =~ /^Description/) {
23 readline $rdr;
24 while($line !~ /SOAP/) {
25 $line = readline $rdr;
26 last if $line =~ /SOAP/;
27 $progdesc .= $line;
28 }
29 $progdesc =~ s/\n+$//smg;
30 }
31 }
32
33 $out =~ s/\[ProgDef\]\n/$progdesc/smg;
34
35 print $wtr $out;
36 }