WebSVN – DevTools – Diff – /debian_packager/trunk/src/tools/scripts/DebianPackager.pl

+#
 #                   Transfer it to the users 'BIN' directory, where it is
 #                   available to be packaged.
+#
 #                 Summary of directives available to the user-script:
+#                       Message                 - Display progress text
 #                       AddInitScript           - Add an init script
 #                       CatFile                 - Append to a file
 #                       ConvertFile             - Convert file(s) to Unix or Dos Text
 #                       CopyDir                 - Copy directory tree
 #                       CopyFile                - Copy a file
 #                       CopyBinFile             - Copy an executable file
 #                       CopyLibFile             - Copy a library file
+#                       CopyDebPackage          - Copy a Debian Package
 #                       CreateDir               - Create a directory
 #                       DebianFiles             - Specify control and script files
 #                       DebianControlFile       - Specify control and script files
 #                       DebianDepends           - Add Depends entry to control file
 #                       EchoFile                - Place text into a file
 #                       SetVerbose              - Control progress display
 #                       IsProduct               - Flow control
 #                       IsPlatform              - Flow control
 #                       IsTarget                - Flow control
 #                       IsVariant               - Flow control
+#                       IsAlias                 - Flow control
+#
 #                 Thoughts for expansion:
 #                       SrcDir                  - Extend path for resolving local files
+#
 #                   Less used:
+#
 #   Globals
+#
 my @ResolveFileList;                    # Cached Package File List
 my @ResolveBinFileList;                 # Cached PackageBin File List
+my @ResolveDebFileList;                 # Cached PackageDeb File List
 my @ResolveLibFileList;                 # Cached PackageLib File List
 my %DebianControlFiles;                 # Control Files
 my %DebianControlFileNames;             # Control Files by name
 my @DependencyList;                     # Package Dependencies
 my @ConfigList;                         # Config Files
     ReadBuildConfig ($opt_interfacedir, $opt_platform, '--NoTest' );
+    #
     #   Build the package image in a directory based on the target being created
+    #
-    $DebianWorkDirBase = "$opt_platform$opt_type.image";
+    $DebianWorkDirBase = uc("$opt_platform$opt_type.image");
     $DebianWorkDir = "$DebianWorkDirBase/$opt_name";
+    #
     #   Configure the System command to fail on any error
+    #
+{
     CopyFileCommon( \&ResolveLibFile, @_ );
+}
 #-------------------------------------------------------------------------------
+# Function        : CopyDebianPackage
+#
+# Description     : Copy a Debian Package to a target dir
+#                   Will look in places where Debian Packages are stored.
+#
+# Inputs          : $src        - BaseName for 'Debian Package' (no version, no extension)
+#                   $dst_dir    - Within the output workspace
+#                   Optional arguments embedded into the BaseName
+#                   --Arch=XXXX         - Architecture - if not current
+#                   --Product=XXXX      - Product - if required
+#                   --Debug             - If not the current type
+#                   --Prod              - If not the current type
+#
+# Returns         : Full path to destination file
+#
+# Notes           : Copying Debian Packages from external packages
+#
+#                   The tool will attempt to copy a well-formed debian packages
+#                   These are:
+#
+#                       "BaseName_VersionString[_Product]_Arch${PkgType}.deb";
+#
+#                   Where 'Product' is optional (and rare)
+#                   Where 'PkgType' is P or D or nothing
+#                   Where 'Arch' may be 'all'
+#
+#                   The routine will locate Debian packages in
+#                       - The root of the package
+#                       - bin/TARGET[P|D/]
+#                       - bin/Arch[P|D]
+#
+#
+sub CopyDebianPackage
+{
+    CopyFileCommon( \&ResolveDebPackage, @_ );
+}
+#-------------------------------------------------------------------------------
 # Function        : CopyFileCommon
+#
 # Description     : Common ( internal File Copy )
+#
 # Inputs          : $resolver           - Ref to function to resolve source file
 #-------------------------------------------------------------------------------
 # Function        : IsProduct
 #                   IsPlatform
 #                   IsTarget
 #                   IsVariant
+#                   IsAlias
+#
 # Description     : This function allows some level of control in the
 #                   packaging scripts. It will return true if the current
 #                   product is listed.
+#
         return 1 if ( $opt_variant eq $_ );
+    }
     return 0;
+}
+my %opt_aliases;
+sub IsAlias
+{
+    #
+    #   Get the aliases from the build info
+    #   This function was introduced late so its not always available
+    #
+    Error("IsAlias not supported in this version of JATS")
+        unless (defined &ReadBuildConfig::getAliases);
+    #
+    #   Create an hash of aliases to simplify testing
+    #   Do it onceand cache the results
+    #
+    unless (%opt_aliases) {
+        %opt_aliases = map { $_ => 1 } getAliases();
+    }
+    foreach ( @_ )
+    {
+        return 1 if ( exists $opt_aliases{$_} );
+    }
+    return 0;
+}
 #************ INTERNAL USE ONLY  **********************************************
 # Function        : FindFiles
+#
 # Description     : Locate files within a given dir tree
+#
         splice (@done, 1);
+    }
     return wantarray ? @done : $done[0];
+}
+#-------------------------------------------------------------------------------
+# Function        : ResolveDebPackage
+#
+# Description     : Determine where the source for a Debian Package is
+#                   Will look in (default):
+#                       Local directory
+#                       Local Include
+#                   Or  (FromPackage)
+#                       Our Package directory
+#                       Interface directory (BuildPkgArchives)
+#                       Packages (LinkPkgArchive)
+#
+# Inputs          : $from_package   - 0:Local File
+#                   $baseName       - Basename for a 'DebianPackage'
+#                                     Do not provide version info, architecture or suffix
+#                                     May contain embedded options
+#                                       --Arch=XXX      - Specify alternate architcute
+#                                       --Product=YYYY  - Specify product family
+#                                       --Debug         - Use alternate build type
+#                                       --Prod          - Use alternate build type
+#
+# Returns         : Path
+#
+sub ResolveDebPackage
+{
+    my ($from_package, $file) = @_;
+    my @path;
+    my $arch;
+    my $product;
+    my $buildType;
+    my @types;
+    my $baseName;
+    my @options;
+    #
+    #   Extract options from file
+    #
+    ($baseName, @options) = split ( ',', $file);
+    foreach ( @options )
+    {
+        if ( m/^--Arch=(.+)/ ) {
+            $arch=$1;
+        } elsif ( m/^--Product=(.+)/ ) {
+            $product = $1;
+        } elsif ( m/^--Debug/ ) {
+            Error ("ResolveDebPackage: Cannot specify --Prod and --Debug") if defined $buildType;
+            $buildType = 'D';
+        } elsif ( m/^--Prod/ ) {
+            Error ("ResolveDebPackage: Cannot specify --Prod and --Debug") if defined $buildType;
+            $buildType = 'P';
+        } else {
+            Error ("Unknown suboption to ResolveDebPackage: $_" );
+        }
+    }
+    #
+    #   Insert defaults
+    #
+    $buildType = $opt_type unless ($buildType);
+    $arch = $opt_target unless ($arch);
+    #
+    #   Determine the paths to search
+    #
+    if ( $from_package )
+    {
+        unless ( @ResolveDebFileList )
+        {
+            push @ResolveDebFileList,  $opt_pkgdir, $opt_pkgdir . '/bin';
+            foreach my $entry ( getPackageList() )
+            {
+                if ( my $path = $entry->getBase(3) )
+                {
+                    push @ResolveDebFileList, $path if ( -d $path );
+                    $path .= '/bin';
+                    push @ResolveDebFileList, $path if ( -d $path );
+                }
+            }
+        }
+        @path = @ResolveDebFileList;
+        @types = ($opt_type, '');
+    }
+    else
+    {
+        @path = ($opt_bindir, $opt_localbindir);
+        @types = ($opt_type, '');
+    }
+    #
+    #   The debian  package name is
+    #   In packages BIN dir
+    #       (BaseName)_VersionString(_Product)(_Arch).deb
+    #
+    #   In root of package
+    #       (BaseName)_VersionString(_Product)(_Arch)(_Type).deb
+    #
+    #
+    #   The package may be found in
+    #       Package Root
+    #       Package bin directory
+    #
+    $file = $baseName . '_*';
+    if (defined $product) {
+        $file .= ( '_' . $product)
+        }
+    $file .= '_' . $arch;
+    #
+    #   Determine a full list of 'parts' to search
+    #   This is provided within the build information
+    #
+    my @parts = getPlatformParts ();
+    push @parts, '';
+    my @done;
+    foreach my $root (  @path )
+    {
+        foreach my $subdir ( @parts )
+        {
+            foreach my $type ( @types )
+            {
+                my $sfile;
+                $sfile = "$root/$subdir$type/$file";
+                $sfile =~ s~//~/~g;
+                foreach my $type2 ( @types )
+                {
+                    my $tfile = $sfile;
+                    $tfile .= '_' . $type2 if $type2;
+                    $tfile .= '.deb';
+                    Verbose2("ResolveDebPackage: $tfile");
+                    foreach  ( glob ( $tfile ) )
+                    {
+                        push @done, $_;
+                    }
+                }
+            }
+        }
+    }
+    Error ("ResolveDebPackage: Package not found: $file", "Search Path:", @path)
+        unless ( @done );
+    if ( $#done > 0 )
+    {
+        Error ("ResolveDebPackage: Multiple instances of Package found.", @done);
+    }
+    return wantarray ? @done : $done[0];
+}
 #-------------------------------------------------------------------------------
 # Function        : AUTOLOAD
+#
 # Description     : Intercept bad user directives and issue a nice error message

Subversion Repositories DevTools

(root)/debian_packager/trunk/src/tools/scripts/DebianPackager.pl – Rev 5217 → 6088