1 #!/usr/bin/perl

     2 #############################################################################

     3 ##

     4 ## Copyright (C) 2010 Nokia Corporation and/or its subsidiary(-ies).

     5 ## All rights reserved.

     6 ## Contact: Nokia Corporation (qt-info@nokia.com)

     7 ##

     8 ## This file is part of the Qt Mobility Components.

     9 ##

    10 ## $QT_BEGIN_LICENSE:LGPL$

    11 ## No Commercial Usage

    12 ## This file contains pre-release code and may not be distributed.

    13 ## You may use this file in accordance with the terms and conditions

    14 ## contained in the Technology Preview License Agreement accompanying

    15 ## this package.

    16 ##

    17 ## GNU Lesser General Public License Usage

    18 ## Alternatively, this file may be used under the terms of the GNU Lesser

    19 ## General Public License version 2.1 as published by the Free Software

    20 ## Foundation and appearing in the file LICENSE.LGPL included in the

    21 ## packaging of this file.  Please review the following information to

    22 ## ensure the GNU Lesser General Public License version 2.1 requirements

    23 ## will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.

    24 ##

    25 ## In addition, as a special exception, Nokia gives you certain additional

    26 ## rights.  These rights are described in the Nokia Qt LGPL Exception

    27 ## version 1.1, included in the file LGPL_EXCEPTION.txt in this package.

    28 ##

    29 ## If you have questions regarding the use of this file, please contact

    30 ## Nokia at qt-info@nokia.com.

    31 ##

    32 ##

    33 ##

    34 ##

    35 ##

    36 ##

    37 ##

    38 ##

    39 ## $QT_END_LICENSE$

    40 ##

    41 #############################################################################

    42 

    43 use strict;

    44 use warnings;

    45 use Cwd;

    46 use Cwd "abs_path";

    47 

    48 my $path = shift(@ARGV) or usage();

    49 my $resolvedpath = abs_path($path);

    50 print "$resolvedpath\n";

    51 

    52 exit 0;

    53 

    54 sub usage

    55 {

    56     warn " Usage:  pathhelper <path>\n";

    57     warn "         Converts <path> to an absolute path and returns it to the caller\n";

    58     exit 2;

    59 }