Subversion Repositories DevTools

Rev

Rev 5649 | Rev 5711 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5649 Rev 5654
Line 3... Line 3...
3
#
3
#
4
# Module name   : jats.sh
4
# Module name   : jats.sh
5
# Module type   : Makefile system
5
# Module type   : Makefile system
6
# Compiler(s)   : n/a
6
# Compiler(s)   : n/a
7
# Environment(s): jats
7
# Environment(s): jats
-
 
8
# Documents     : MASS-00232 Format of the Linux App Upgrade Manifest File
8
#
9
#
9
# Description   : This package extends the JATS toolset at build time
10
# Description   : This package extends the JATS toolset at build time
10
#                 It provides additional directives to the JATS makefiles
11
#                 It provides additional directives to the JATS makefiles
11
#                 to simplify the directives.
12
#                 to simplify the directives.
12
#
13
#
Line 616... Line 617...
616
            if ( my $file = $fentry->{'file'} )
617
            if ( my $file = $fentry->{'file'} )
617
            {
618
            {
618
                my $base_file = StripDir( $file );
619
                my $base_file = StripDir( $file );
619
                if ($include_md5) {
620
                if ($include_md5) {
620
                    my $md5 = digest_file_hex($file, 'MD5');
621
                    my $md5 = digest_file_hex($file, 'MD5');
621
                    print_mf ('--NoCheckLineWidth', "$name,$tier,$base_file,$md5");
622
                    print_mf ('--NoCheckLineWidth', "$name,$tier,$base_file,MD5=$md5");
622
                } else {
623
                } else {
623
                    print_mf ("$name,$tier,$base_file");
624
                    print_mf ("$name,$tier,$base_file");
624
                }
625
                }
625
                PackageFile ('*', $file, '--Subdir=' . $pkgdir, '--Strip' );
626
                PackageFile ('*', $file, '--Subdir=' . $pkgdir, '--Strip' );
626
                $last_was_comment = 0;
627
                $last_was_comment = 0;
Line 661... Line 662...
661
        {
662
        {
662
            foreach my $file ( glob ($mugdir . '/*.mug' ) )
663
            foreach my $file ( glob ($mugdir . '/*.mug' ) )
663
            {
664
            {
664
                next unless ( -f $file );
665
                next unless ( -f $file );
665
                my $base_file = StripDir($file);
666
                my $base_file = StripDir($file);
-
 
667
                if ($include_md5) {
-
 
668
                    my $md5 = digest_file_hex($file, 'MD5');
-
 
669
                    print_mf ('--NoCheckLineWidth', "$name,$tier,$base_file,MD5=$md5");
-
 
670
                } else {
666
                print_mf ("$name,$tier,$base_file");
671
                    print_mf ("$name,$tier,$base_file");
-
 
672
                }
667
                PackageFile ('*', $file, '--Subdir=mug', '--Strip' );
673
                PackageFile ('*', $file, '--Subdir=mug', '--Strip' );
668
            }
674
            }
669
        }
675
        }
670
    }
676
    }
671
 
677