/[jscoverage]/trunk/js/config/fastcwd.pl
ViewVC logotype

Annotation of /trunk/js/config/fastcwd.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 399 - (hide annotations)
Tue Dec 9 03:37:47 2008 UTC (11 years, 8 months ago) by siliconforks
File MIME type: text/plain
File size: 2241 byte(s)
Use SpiderMonkey from Firefox 3.1b2.

1 siliconforks 399 #!perl5
2     #
3     # ***** BEGIN LICENSE BLOCK *****
4     # Version: MPL 1.1/GPL 2.0/LGPL 2.1
5     #
6     # The contents of this file are subject to the Mozilla Public License Version
7     # 1.1 (the "License"); you may not use this file except in compliance with
8     # the License. You may obtain a copy of the License at
9     # http://www.mozilla.org/MPL/
10     #
11     # Software distributed under the License is distributed on an "AS IS" basis,
12     # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
13     # for the specific language governing rights and limitations under the
14     # License.
15     #
16     # The Original Code is mozilla.org code.
17     #
18     # The Initial Developer of the Original Code is
19     # Netscape Communications Corporation.
20     # Portions created by the Initial Developer are Copyright (C) 1998
21     # the Initial Developer. All Rights Reserved.
22     #
23     # Contributor(s):
24     #
25     # Alternatively, the contents of this file may be used under the terms of
26     # either of the GNU General Public License Version 2 or later (the "GPL"),
27     # or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
28     # in which case the provisions of the GPL or the LGPL are applicable instead
29     # of those above. If you wish to allow use of your version of this file only
30     # under the terms of either the GPL or the LGPL, and not to allow others to
31     # use your version of this file under the terms of the MPL, indicate your
32     # decision by deleting the provisions above and replace them with the notice
33     # and other provisions required by the GPL or the LGPL. If you do not delete
34     # the provisions above, a recipient may use your version of this file under
35     # the terms of any one of the MPL, the GPL or the LGPL.
36     #
37     # ***** END LICENSE BLOCK *****
38    
39     sub fastcwd {
40     local($odev, $oino, $cdev, $cino, $tdev, $tino);
41     local(@path, $path);
42     local(*DIR);
43    
44     ($cdev, $cino) = stat('.');
45     for (;;) {
46     ($odev, $oino) = ($cdev, $cino);
47     chdir('..');
48     ($cdev, $cino) = stat('.');
49     last if $odev == $cdev && $oino == $cino;
50     opendir(DIR, '.');
51     for (;;) {
52     $_ = readdir(DIR);
53     next if $_ eq '.';
54     next if $_ eq '..';
55    
56     last unless $_;
57     ($tdev, $tino) = lstat($_);
58     last unless $tdev != $odev || $tino != $oino;
59     }
60     closedir(DIR);
61     unshift(@path, $_);
62     }
63     chdir($path = '/' . join('/', @path));
64     $path;
65     }
66     1;

  ViewVC Help
Powered by ViewVC 1.1.24