Admin/isa-migrate
changeset 16407 e3c3405613c5
parent 16406 4f393b8f84b7
child 16408 9bbaa5695691
equal deleted inserted replaced
16406:4f393b8f84b7 16407:e3c3405613c5
    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();