63 lines
2.3 KiB
Perl
63 lines
2.3 KiB
Perl
# ======================================================================
|
|
# Perforce.pm
|
|
# Copyright 2003, Sony Online Entertainment
|
|
# All rights reserved.
|
|
# ======================================================================
|
|
|
|
package Perforce;
|
|
use strict;
|
|
|
|
# ======================================================================
|
|
# Perforce public variables.
|
|
# ======================================================================
|
|
|
|
# our $relativePathName;
|
|
|
|
# ======================================================================
|
|
# Setup variables that can be imported by Exporter into user modules.
|
|
# ======================================================================
|
|
|
|
use vars qw(@ISA @EXPORT_OK $VERSION);
|
|
use Exporter;
|
|
$VERSION = 1.00;
|
|
@ISA = qw(Exporter);
|
|
|
|
# These symbols are okay to export if specifically requested.
|
|
#@EXPORT_OK = qw(&buildFileLookupTable &saveFileLookupTable &loadFileLookupTable &getFullPathName);
|
|
@EXPORT_OK = qw(&findOnDiskFileName);
|
|
|
|
# ======================================================================
|
|
# Perforce private variables.
|
|
# ======================================================================
|
|
|
|
# my $debug = 0;
|
|
|
|
# ======================================================================
|
|
# Perforce public functions.
|
|
# ======================================================================
|
|
|
|
sub findOnDiskFileName
|
|
{
|
|
# Run p4 where.
|
|
my $p4DepotFile = shift;
|
|
my $output = `p4 where $p4DepotFile`;
|
|
die "p4 where failed: [$?] [$output]" if ($? != 0);
|
|
|
|
# Split p4 where output into array. Assumes no spaces in paths.
|
|
my @outputInfo = split /\s+/,$output;
|
|
my $entryCount = @outputInfo;
|
|
die "expecting a non-zero, positive multiple of 3 items returned by p4 where, found $entryCount" if ($entryCount < 3) or (($entryCount % 3) != 0);
|
|
|
|
# Return on-disk location. The correct local client mapping will be
|
|
# the last entry of the final triplet returned by P4. Earlier triplets,
|
|
# if present, appear to be "not here" minus-style mappings indicating
|
|
# places where the file could have gone but was overridden by a client
|
|
# spec setting. That part doesn't appear to be documented in 'p4 help where'.
|
|
return $outputInfo[$entryCount - 1];
|
|
}
|
|
|
|
# ======================================================================
|
|
|
|
# Indicate the module loaded successfully.
|
|
1;
|