equal
deleted
inserted
replaced
25 my ($file, @content) = @_; |
25 my ($file, @content) = @_; |
26 #~ my $diag = 1; |
26 #~ my $diag = 1; |
27 my $diag = 0; |
27 my $diag = 0; |
28 $_ = join("", @content); |
28 $_ = join("", @content); |
29 if (m!^theory!cgoms) { |
29 if (m!^theory!cgoms) { |
30 my $prelude = $'; |
30 my $prelude = $`; |
31 my $thyheader = "theory"; |
31 my $thyheader = "theory"; |
32 $thyheader .= skip_wscomment(); |
32 $thyheader .= skip_wscomment(); |
33 if (m!\G(\S+)!cgoms) { |
33 if (m!\G(\S+)!cgoms) { |
34 $thyheader .= $1; |
34 $thyheader .= $1; |
35 $thyheader .= skip_wscomment(); |
35 $thyheader .= skip_wscomment(); |