Subversion Repositories DevTools

Rev

Rev 1154 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1154 Rev 1155
Line 40... Line 40...
40 
# Returns         : None
 40 
# Returns         : None
41 
#
 41 
#
42 
BEGIN
 42 
BEGIN
43 
{
 43 
{
44 
    #
 44 
    #
- 
 
 45 
    #   Locate the QT package
- 
 
 46 
    #   Done by looking for the include/QtGui directory
- 
 
 47 
    #       If we don't find it then don't install the Qt hooks
- 
 
 48 
    #       Generate a warning when Qt is 'Used'
- 
 
 49 
    #       This allows for the building of packages that have Qt and Non-Qt parts
- 
 
 50 
    #
- 
 
 51 
    foreach my $entry ( getPackageList() )
- 
 
 52 
    {
- 
 
 53 
        foreach my $path ( $entry->getIncDirs(1) )
- 
 
 54 
        {
- 
 
 55 
            if ( -d "$path/QtGui" )
- 
 
 56 
            {
- 
 
 57 
                $qt_package = $entry;
- 
 
 58 
                last;
- 
 
 59 
            }
- 
 
 60 
        }
- 
 
 61 
    }
- 
 
 62 
 
- 
 
 63 
    #
- 
 
 64 
    #   Qt not supported in this type of a build
- 
 
 65 
    #   Just exist now. Will create an error if QtUses is activated
- 
 
 66 
    #
- 
 
 67 
    return
- 
 
 68 
        unless ( $qt_package );
- 
 
 69 
 
- 
 
 70 
 
- 
 
 71 
    #
45 
    #   Define QT specfic rules.
 72 
    #   Define QT specfic rules.
46 
    #   Will be found in the same directory as this file
 73 
    #   Will be found in the same directory as this file
47 
    #
 74 
    #
48 
    Rules ( StripFileExt( __FILE__ ), 'qt.rul' );
 75 
    Rules ( StripFileExt( __FILE__ ), 'qt.rul' );
49 
 
 76 
 
Line 59... Line 86...
59 
    #
 86 
    #
60 
    #   Files will be placed into the OBJDIR
 87 
    #   Files will be placed into the OBJDIR
61 
    #   Ensure that the compiler searches this directory
 88 
    #   Ensure that the compiler searches this directory
62 
    #
 89 
    #
63 
    AddIncDir( '*' , "\$(OBJDIR)", '--NoWarn' );
 90 
    AddIncDir( '*' , "\$(OBJDIR)", '--NoWarn' );
64 
 
 - 
 
65 
    #
 - 
 
66 
    #   Locate the QT package
 - 
 
67 
    #   Done by looking for the include/QtGui directory
 - 
 
68 
    #   It MUST exist
 - 
 
69 
    #
 - 
 
70 
    foreach my $entry ( getPackageList() )
 - 
 
71 
    {
 - 
 
72 
        foreach my $path ( $entry->getIncDirs(1) )
 - 
 
73 
        {
 - 
 
74 
            if ( -d "$path/QtGui" )
 - 
 
75 
            {
 - 
 
76 
                $qt_package = $entry;
 - 
 
77 
                last;
 - 
 
78 
            }
 - 
 
79 
        }
 - 
 
80 
    }
 - 
 
81 
    Error ("Cannot find the QT Base Package") unless ( $qt_package );
 - 
 
82 
}
 91 
}
83 
 
 92 
 
84 
#-------------------------------------------------------------------------------
 93 
#-------------------------------------------------------------------------------
85 
# Function        : QtUses
 94 
# Function        : QtUses
86 
#
 95 
#
Line 106... Line 115...
106 
{
 115 
{
107 
    my ($platforms, @components) = @_;
 116 
    my ($platforms, @components) = @_;
108 
    Debug( "QtUses: ",$platforms, @components );
 117 
    Debug( "QtUses: ",$platforms, @components );
109 
    return if ( ! ActivePlatform($platforms) );
 118 
    return if ( ! ActivePlatform($platforms) );
110 
 
 119 
 
- 
 
 120 
    Error ("Cannot find the Qt Base Package, or Qt is not supported", "on this platform") unless ( $qt_package );
- 
 
 121
111 
    foreach my $component ( @components )
 122 
    foreach my $component ( @components )
112 
    {
 123 
    {
113 
        #
 124 
        #
114 
        #   Only do it once
 125 
        #   Only do it once
115 
        #
 126 
        #