Subversion Repositories DevTools

Rev

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

Rev 7300 Rev 7310
Line 1387... Line 1387...
1387 
}
 1387 
}
1388 
 
 1388 
 
1389 
#-------------------------------------------------------------------------------
 1389 
#-------------------------------------------------------------------------------
1390 
# Function        : PrintList
 1390 
# Function        : PrintList
1391 
#
 1391 
#
1392 
# Description     : Pretty format an array to fit within 80 char line
 1392 
# Description     : Pretty format an array to fit within 100 char line
1393 
#                   Perform wrapping as required
 1393 
#                   Perform wrapping as required
1394 
#
 1394 
#
1395 
# Inputs          : $title          - Title string
 1395 
# Inputs          : $title          - Title string
1396 
#                   $len            - Desired length of title area
 1396 
#                   $len            - Desired length of title area
1397 
#                   @list           - An array of items to print
 1397 
#                   @list           - An array of items to print
Line 1408... Line 1408...
1408 
    $llen = $nlen;
 1408 
    $llen = $nlen;
1409 
 
 1409 
 
1410 
    for my $k (sort @list)
 1410 
    for my $k (sort @list)
1411 
    {
 1411 
    {
1412 
        my $klen = length($k);
 1412 
        my $klen = length($k);
1413 
        if ($llen + $klen > 78 )
 1413 
        if ($llen + $klen >= 100 )
1414 
        {
 1414 
        {
1415 
            $string .= $nl;
 1415 
            $string .= $nl;
1416 
            $llen = $nlen;
 1416 
            $llen = $nlen;
1417 
        }
 1417 
        }
1418 
        $string .= ' ' .  $k;
 1418 
        $string .= ' ' .  $k;