12 # Lists all directories that contain a BLD.INF or bld.inf file.

    12 # Lists all directories that contain a BLD.INF or bld.inf file.

    13 

    13 

    14 use strict;

    14 use strict;

    15 use places;

    15 use places;

    16 use usage;

    16 use usage;

    17 use File::Spec;

    18 use File::Spec;

    18 sub list_targets($);

    19 sub list_targets($);

    19 

    20 

    20 my @broken_targs = (File::Spec->catfile("buildtoolguides","sbsv2guide"));

    21 my @broken_targs = (File::Spec->catfile("buildtoolguides","sbsv2guide"));

    21 usage(\@ARGV,"This script lists the available Raptor targets in the build package",

    22 usage(\@ARGV,"This script lists the available Raptor targets in the build package",

    22 		"Lists all directories that contain a BLD.INF or bld.inf file");

    23 		"Lists all directories that contain a BLD.INF or bld.inf file");

    23 

    24 

    24 my $epocroot = get_epocroot();

    25 my $epocroot = get_epocroot();

    25 my $build_pkg_dir = get_pkg_dir();

    26 my $build_pkg_dir = get_pkg_dir();

    26 my $build_pkg_dir_parts = File::Spec->splitdir($build_pkg_dir);

    27 my $build_pkg_dir_parts = File::Spec->splitdir($build_pkg_dir);

    27   

    29   

    28 list_targets($build_pkg_dir);

    30 list_targets($build_pkg_dir);

    29 exit 0;

    31 exit 0;

    30 

    32 

    31 sub list_targets($)

    33 sub list_targets($)