Subversion Repositories DevTools

Rev

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

Rev 2021 Rev 3921
Line 1... Line 1...
1 
########################################################################
 1 
########################################################################
2 
# Copyright (C) 2007 ERG Limited, All rights reserved
 2 
# Copyright (C) 1998-2013 Vix Technology, All rights reserved
3 
#
 3 
#
4 
# Module name   : jats.sh
 4 
# Module name   : DebianPackager.pl
5 
# Module type   : Makefile system
 5 
# Module type   : Makefile system
6 
# Compiler(s)   : n/a
 6 
# Compiler(s)   : Perl
7 
# Environment(s): jats
 7 
# Environment(s): jats
8 
#
 8 
#
9 
# Description   : This program is invoked by the MakeDebianPackage
 9 
# Description   : This program is invoked by the MakeDebianPackage
10 
#                 directive, that is a part of this package
 10 
#                 directive, that is a part of this package
11 
#
 11 
#
Line 112... Line 112...
112 
my $opt_pkgbindir;
 112 
my $opt_pkgbindir;
113 
my $opt_pkgpkgdir;
 113 
my $opt_pkgpkgdir;
114 
my $opt_output;
 114 
my $opt_output;
115 
my $opt_name;
 115 
my $opt_name;
116 
my $opt_variant;
 116 
my $opt_variant;
- 
 
 117 
my $opt_pkgarch;
117 
 
 118 
 
118 
#
 119 
#
119 
#   Options derived from script directives
 120 
#   Options derived from script directives
120 
#
 121 
#
121 
my $opt_control = '';
 122 
my $opt_control = '';
Line 172... Line 173...
172 
                "PackageBinDir=s"   => \$opt_pkgbindir,
 173 
                "PackageBinDir=s"   => \$opt_pkgbindir,
173 
                "PackagePkgDir=s"   => \$opt_pkgpkgdir,
 174 
                "PackagePkgDir=s"   => \$opt_pkgpkgdir,
174 
                "Output=s"          => \$opt_output,
 175 
                "Output=s"          => \$opt_output,
175 
                "Variant:s"         => \$opt_variant,
 176 
                "Variant:s"         => \$opt_variant,
176 
                "Name=s"            => \$opt_name,
 177 
                "Name=s"            => \$opt_name,
- 
 
 178 
                "PkgArch:s"         => \$opt_pkgarch,
177 
    );
 179 
    );
178 
 
 180 
 
179 
    $opt_verbose++ unless ( $opt_vargs eq '@' );
 181 
    $opt_verbose++ unless ( $opt_vargs eq '@' );
180 
 
 182 
 
181 
    ErrorConfig( 'name'    => 'DebianUtils',
 183 
    ErrorConfig( 'name'    => 'DebianUtils',
Line 238... Line 240...
238 
    Message    "       Variant: $opt_variant" if ($opt_variant);
 240 
    Message    "       Variant: $opt_variant" if ($opt_variant);
239 
    Message    "       Version: $opt_buildversion";
 241 
    Message    "       Version: $opt_buildversion";
240 
    Message    "  Building for: $opt_platform, $opt_target";
 242 
    Message    "  Building for: $opt_platform, $opt_target";
241 
    Message    "       Product: $opt_product";
 243 
    Message    "       Product: $opt_product";
242 
    Message    "          Type: $opt_type";
 244 
    Message    "          Type: $opt_type";
- 
 
 245 
    Message    "      Pkg Arch: $opt_pkgarch" if ($opt_pkgarch);
243 
    Verbose    "       Verbose: $opt_verbose";
 246 
    Verbose    "       Verbose: $opt_verbose";
244 
    Verbose    "  InterfaceDir: $opt_interfacedir";
 247 
    Verbose    "  InterfaceDir: $opt_interfacedir";
245 
    Message    "       Package: $DebianPkgName";
 248 
    Message    "       Package: $DebianPkgName";
246 
    Message    "======================================================================";
 249 
    Message    "======================================================================";
247 
 
 250 
 
248 
    #
 251 
    #
- 
 
 252 
    #   Defaults
- 
 
 253 
    #
- 
 
 254 
    $opt_pkgarch = $opt_platform unless ( $opt_pkgarch );
- 
 
 255 
 
- 
 
 256 
    #
249 
    #   Perform Clean up
 257 
    #   Perform Clean up
250 
    #   Invoked during "make clean" or "make clobber"
 258 
    #   Invoked during "make clean" or "make clobber"
251 
    #
 259 
    #
252 
    if ( $opt_clean )
 260 
    if ( $opt_clean )
253 
    {
 261 
    {
Line 366... Line 374...
366 
 
 374 
 
367 
        } elsif ( m~^Version:~ ) {
 375 
        } elsif ( m~^Version:~ ) {
368 
            $_ = "Version: $opt_buildversion";
 376 
            $_ = "Version: $opt_buildversion";
369 
 
 377 
 
370 
        } elsif ( m~^Architecture:~ ) {
 378 
        } elsif ( m~^Architecture:~ ) {
371 
            $_ = "Architecture: $opt_platform";
 379 
            $_ = "Architecture: $opt_pkgarch";
372 
 
 380 
 
373 
        } elsif ( $opt_description && m~^Description:~ ) {
 381 
        } elsif ( $opt_description && m~^Description:~ ) {
374 
            $_ = "Description: $opt_description";
 382 
            $_ = "Description: $opt_description";
375 
        }
 383 
        }
376 
        print DF $_ , "\n";
 384 
        print DF $_ , "\n";
Line 397... Line 405...
397 
    open (DF, '>', $dst) || Error ("CreateControlFile: Cannot create:$dst");
 405 
    open (DF, '>', $dst) || Error ("CreateControlFile: Cannot create:$dst");
398 
    print DF "Package: $opt_buildname\n";
 406 
    print DF "Package: $opt_buildname\n";
399 
    print DF "Version: $opt_buildversion\n";
 407 
    print DF "Version: $opt_buildversion\n";
400 
    print DF "Section: main\n";
 408 
    print DF "Section: main\n";
401 
    print DF "Priority: standard\n";
 409 
    print DF "Priority: standard\n";
402 
    print DF "Architecture: $opt_platform\n";
 410 
    print DF "Architecture: $opt_pkgarch\n";
403 
    print DF "Essential: yes\n";
 411 
    print DF "Essential: No\n";
404 
    print DF "Maintainer: ERG\n";
 412 
    print DF "Maintainer: Vix Technology\n";
405 
    print DF "Description: $opt_description\n";
 413 
    print DF "Description: $opt_description\n";
406 
    close (DF);
 414 
    close (DF);
407 
}
 415 
}
408 
 
 416 
 
409 
#-------------------------------------------------------------------------------
 417 
#-------------------------------------------------------------------------------