/*******************************************************************************
Copyright (c) 1997-2007, Perforce Software, Inc. All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:
1. Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
2. Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTR
IBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL PERFORCE SOFTWARE, INC. BE LIABLE FOR ANY
DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*******************************************************************************/
/*******************************************************************************
* Name : specmgr.cc
*
* Author : Tony Smith <tony@perforce.com> or <tony@smee.org>
*
* Description : Perl bindings for the Perforce API. Class for handling
* Perforce specs. This class provides other classes with
* generic support for parsing and formatting Perforce
* specs.
*
******************************************************************************/
#include <clientapi.h>
#include <strops.h>
#include <spec.h>
#include <strtable.h>
#include "perlheaders.h"
#include "p4perldebug.h"
#include "specmgr.h"
struct defaultspec {
const char *type;
const char *spec;
} speclist[] = {
{
"branch",
"Branch;code:301;rq;ro;fmt:L;len:32;;"
"Update;code:302;type:date;ro;fmt:L;len:20;;"
"Access;code:303;type:date;ro;fmt:L;len:20;;"
"Owner;code:304;fmt:R;len:32;;"
"Description;code:306;type:text;len:128;;"
"Options;code:309;type:line;len:32;val:"
"unlocked/locked;;"
"View;code:311;type:wlist;words:2;len:64;;"
},
{
"change",
"Change;code:201;rq;ro;fmt:L;seq:1;len:10;;"
"Date;code:202;type:date;ro;fmt:R;seq:3;len:20;;"
"Client;code:203;ro;fmt:L;seq:2;len:32;;"
"User;code:204;ro;fmt:L;seq:4;len:32;;"
"Status;code:205;ro;fmt:R;seq:5;len:10;;"
"Description;code:206;type:text;rq;seq:6;;"
"JobStatus;code:207;fmt:I;type:select;seq:8;;"
"Jobs;code:208;type:wlist;seq:7;len:32;;"
"Files;code:210;type:llist;len:64;;"
},
{
"client",
"Client;code:301;rq;ro;seq:1;len:32;;"
"Update;code:302;type:date;ro;seq:2;fmt:L;len:20;;"
"Access;code:303;type:date;ro;seq:4;fmt:L;len:20;;"
"Owner;code:304;seq:3;fmt:R;len:32;;"
"Host;code:305;seq:5;fmt:R;len:32;;"
"Description;code:306;type:text;len:128;;"
"Root;code:307;rq;type:line;len:64;;"
"AltRoots;code:308;type:llist;len:64;;"
"Options;code:309;type:line;len:64;val:"
"noallwrite/allwrite,noclobber/clobber,nocompress/compress,"
"unlocked/locked,nomodtime/modtime,normdir/rmdir;;"
"SubmitOptions;code:313;type:select;fmt:L;len:25;val:"
"submitunchanged/submitunchanged+reopen/revertunchanged/"
"revertunchanged+reopen/leaveunchanged/leaveunchanged+reopen;;"
"LineEnd;code:310;type:select;fmt:L;len:12;val:"
"local/unix/mac/win/share;;"
"View;code:311;type:wlist;words:2;len:64;;"
},
{
"depot",
"Depot;code:251;rq;ro;len:32;;"
"Owner;code:252;len:32;;"
"Date;code:253;type:date;ro;len:20;;"
"Description;code:254;type:text;len:128;;"
"Type;code:255;rq;len:10;;"
"Address;code:256;len:64;;"
"Suffix;code:258;len:64;;"
"Map;code:257;rq;len:64;;"
},
{
"group",
"Group;code:401;rq;ro;len:32;;"
"MaxResults;code:402;type:word;len:12;;"
"MaxScanRows;code:403;type:word;len:12;;"
"MaxLockTime;code:407;type:word;len:12;;"
"Timeout;code:406;type:word;len:12;;"
"Subgroups;code:404;type:wlist;len:32;opt:default;;"
"Owners;code:408;type:wlist;len:32;opt:default;;"
"Users;code:405;type:wlist;len:32;opt:default;;"
},
{
"job",
"Job;code:101;rq;len:32;;"
"Status;code:102;type:select;rq;len:10;"
"pre:open;val:open/suspended/closed;;"
"User;code:103;rq;len:32;pre:$user;;"
"Date;code:104;type:date;ro;len:20;pre:$now;;"
"Description;code:105;type:text;rq;pre:$blank;;"
},
{
"label",
"Label;code:301;rq;ro;fmt:L;len:32;;"
"Update;code:302;type:date;ro;fmt:L;len:20;;"
"Access;code:303;type:date;ro;fmt:L;len:20;;"
"Owner;code:304;fmt:R;len:32;;"
"Description;code:306;type:text;len:128;;"
"Options;code:309;type:line;len:64;val:"
"unlocked/locked;;"
"Revision;code:312;type:word;words:1;len:64;;"
"View;code:311;type:wlist;len:64;;"
},
{
"license",
"License;code:451;len:32;;"
"License-Expires;code:452;len:10;;"
"Support-Expires;code:453;len:10;;"
"Customer;code:454;type:line;len:128;;"
"Application;code:455;len:32;;"
"IPaddress;code:456;len:24;;"
"Platform;code:457;len:32;;"
"Clients;code:458;len:8;;"
"Users;code:459;len:8;;"
},
{
"protect",
"Protections;code:501;type:wlist;words:5;opt:default;len:64;;"
},
{
"spec",
"Fields;code:351;type:wlist;words:5;rq;;"
"Words;code:352;type:wlist;words:2;;"
"Formats;code:353;type:wlist;words:3;;"
"Values;code:354;type:wlist;words:2;;"
"Presets;code:355;type:wlist;words:2;;"
"Comments;code:356;type:text;;"
},
{
"triggers",
"Triggers;code:551;type:wlist;words:4;len:64;opt:default;"
},
{
"typemap",
"TypeMap;code:601;type:wlist;words:2;len:64;opt:default;"
},
{
"user",
"User;code:651;rq;ro;seq:1;len:32;;"
"Email;code:652;fmt:R;rq;seq:3;len:32;;"
"Update;code:653;fmt:L;type:date;ro;seq:2;len:20;;"
"Access;code:654;fmt:L;type:date;ro;len:20;;"
"FullName;code:655;fmt:R;type:line;rq;len:32;;"
"JobView;code:656;type:line;len:64;;"
"Password;code:657;len:32;;"
"Reviews;code:658;type:wlist;len:64;;"
},
{ 0, 0 }
};
SpecMgr::SpecMgr()
{
debug = 0;
specs = 0;
Reset();
}
SpecMgr::~SpecMgr()
{
delete specs;
}
void
SpecMgr::AddSpecDef( const char *type, StrPtr &specDef )
{
if( specs->GetVar( type ) )
specs->RemoveVar( type );
specs->SetVar( type, specDef );
}
void
SpecMgr::AddSpecDef( const char *type, const char *specDef )
{
if( specs->GetVar( type ) )
specs->RemoveVar( type );
specs->SetVar( type, specDef );
}
void
SpecMgr::Reset()
{
delete specs;
specs = new StrBufDict;
for( struct defaultspec *sp = &speclist[ 0 ]; sp->type; sp++ )
AddSpecDef( sp->type, sp->spec );
}
int
SpecMgr::HaveSpecDef( const char *type )
{
return specs->GetVar( type ) != 0;
}
//
// Convert a Perforce StrDict into a Perl hash. Convert multi-level
// data (Files0, Files1 etc. ) into (nested) array members of the hash.
//
SV *
SpecMgr::StrDictToHash( StrDict *dict, SV * hashref )
{
StrRef var, val;
int i;
HV * hash;
if( !hashref )
{
hash = newHV();
hashref = newRV_noinc( (SV*) hash );
}
else
{
hash = (HV*)SvRV( hashref );
}
for ( i = 0; dict->GetVar( i, var, val ); i++ )
{
if( var == "specdef" || var == "func" || var == "specFormatted" )
continue;
InsertItem( hash, &var, &val );
}
return hashref;
}
//
// Convert a Perforce StrDict into a P4::Spec object
//
/*
SV *
SpecMgr::StrDictToSpec( StrDict *dict, StrPtr *specDef )
{
SV * spec = NewSpec( specDef );
return StrDictToHash( dict, spec );
}
*/
SV *
SpecMgr::StringToSpec( const char *type, const char *form, Error *e )
{
SpecDataTable specData;
StrPtr * specDef = specs->GetVar( type );
Spec s( specDef->Text(), "", e );
if( P4PERL_DEBUG_FORMS )
PerlIO_stdoutf( "[SpecMgr::StringToSpec]: Input form is:\n%s\n", form );
if( !e->Test() )
s.ParseNoValid( form, &specData, e );
if( e->Test() )
return 0;
return StrDictToHash( specData.Dict() );
}
//
// Format routine. updates a StrBuf object with the form content.
// The StrBuf can then be converted to a Perl string where required.
//
void
SpecMgr::SpecToString( const char *type, HV * hash, StrBuf &b, Error *e )
{
StrBuf buf;
SpecMgr m;
StrPtr * specDef = specs->GetVar( type );
if( P4PERL_DEBUG_FORMS )
PerlIO_stdoutf( "[SpecMgr::SpecToString]: Converting %s from hash to string\n",
type );
if( !specDef )
{
e->Set( E_FAILED, "No specdef available. Cannot convert hash to a "
"Perforce form" );
return;
}
Spec s( specDef->Text(), "", e );
if( e->Test() ) return;
SpecDataTable specData;
//
// Iterate over the hash examining and converting each element as
// we go
//
SV * sv;
SV * rv;
AV * av;
char * key;
I32 klen;
int i;
StrDict * dict = specData.Dict();
StrBuf msg;
for( hv_iterinit( hash ); sv = hv_iternextsv( hash, &key, &klen ); )
{
if( P4PERL_DEBUG_FORMCONV )
PerlIO_stdoutf( "\tConverting member %s\n", key );
if( SvROK( sv ) && SvTYPE( SvRV( sv ) ) == SVt_PVAV )
{
//
// Our hash contains an array ref. So, we iterate over the
// array, generating new keys based on the top level key
// name and inserting them into the dictionary. i.e. if the
// key is 'View', and it's an array ref, then we set View0,
// View1, View2, etc...
//
if( P4PERL_DEBUG_FORMCONV )
PerlIO_stdoutf( "\t\tIterating over %s array\n", key );
av = (AV*) SvRV( sv );
for( i = 0; i <= av_len( av ); i++ )
{
StrBuf newKey;
SV ** elem = av_fetch( av, i, 0 );
if( !elem )
{
msg << key << " field contains a bizarre array. " <<
"Array elements may only contain strings " <<
"and numbers.";
e->Set( E_FAILED, msg.Text() );
return;
}
newKey.Set( key );
newKey << i;
if( SvPOK( *elem ) )
{
if( P4PERL_DEBUG_FORMCONV )
PerlIO_stdoutf( "\t\t\t%s -> %s\n", newKey.Text(), SvPV_nolen( *elem ) );
dict->SetVar( newKey.Text(), SvPV_nolen( *elem ) );
}
else if( SvIOK( *elem ) )
{
if( P4PERL_DEBUG_FORMCONV )
PerlIO_stdoutf( "\t\t\t%s -> %d\n", newKey.Text(), SvIV( *elem ));
dict->SetVar( newKey.Text(), SvIV( *elem ) );
}
else
{
msg.Clear();
msg << "Skipping element " << i << " of array member "
<< key << " as it is neither a string, nor a number.";
warn( msg.Text() );
}
}
}
else if( SvROK( sv ) && sv_isobject( sv ) )
{
msg.Clear();
msg << key << " field contains an object. " <<
"Perforce forms may not contain Perl objects. "
"Permitted types are strings, numbers and arrays";
e->Set( E_FAILED, msg.Text() );
return;
}
else if( SvIOK( sv ) )
{
if( P4PERL_DEBUG_FORMCONV )
PerlIO_stdoutf( "\t\tInteger: %s -> %d\n", key, SvIV( sv ) );
dict->SetVar( key, SvIV( sv ) );
}
else if( SvPOK( sv ) )
{
if( P4PERL_DEBUG_FORMCONV )
PerlIO_stdoutf( "\t\tString: %s -> %s\n", key, SvPV_nolen( sv ) );
dict->SetVar( key, SvPV_nolen( sv ) );
}
else
{
msg.Clear();
msg << "Skipping member " << key << " as it is neither a string, "
<< "nor a number.";
warn( msg.Text() );
}
}
s.Format( &specData, &b );
if( P4PERL_DEBUG_FORMS )
PerlIO_stdoutf("[SpecMgr::SpecToString]: Converted form:\n%s\n",b.Text());
}
//
// Split a key into its base name and its index. i.e. for a key "how1,0"
// the base name is "how" and they index is "1,0". We work backwards from
// the end of the key looking for the first char that is neither a
// digit, nor a comma.
//
void
SpecMgr::SplitKey( const StrPtr *key, StrBuf &base, StrBuf &index )
{
int i = 0;
base = *key;
index = "";
for ( i = key->Length(); i; i-- )
{
char prev = (*key)[ i-1 ];
if( !isdigit( prev ) && prev != ',' )
{
base.Set( key->Text(), i );
index.Set( key->Text() + i );
break;
}
}
}
//
// Insert an element into the response structure. The element may need to
// be inserted into an array nested deeply within the enclosing hash.
//
void
SpecMgr::InsertItem( HV * hash, const StrPtr *var, const StrPtr *val )
{
AV * av;
AV * tav;
SV * sv;
SV ** svp;
StrBuf msg;
StrBuf key;
StrBuf base, index;
StrRef comma( "," );
if( P4PERL_DEBUG_FORMCONV )
PerlIO_stdoutf( "[SpecMgr::InsertItem]: key %s, value %s\n",
var->Text(), val->Text() );
SplitKey( var, base, index );
if( P4PERL_DEBUG_FORMCONV )
PerlIO_stdoutf( "\tbase=%s, index=%s\n", base.Text(), index.Text() );
// If there's no index, then we insert into the top level hash
// but if the key is already defined then we need to rename the key. This
// is probably one of those special keys like otherOpen which can be
// both an array element and a scalar. The scalar comes last, so we
// just rename it to "otherOpens" to avoid trashing the previous key
// value
if( index == "" )
{
if( hv_exists( hash, base.Text(), base.Length() ) )
base << "s";
if( P4PERL_DEBUG_FORMCONV )
PerlIO_stdoutf( "\t[Simple]: %s -> %s\n", base.Text(), val->Text() );
sv = newSVpv( val->Text(), val->Length() );
hv_store( hash, base.Text(), base.Length(), sv, 0 );
return;
}
//
// Get or create the parent array from the hash.
//
svp = hv_fetch( hash, base.Text(), base.Length(), 0 );
if( !svp )
{
if( P4PERL_DEBUG_FORMCONV )
PerlIO_stdoutf( "\t[Array]: %s -> []\n", base.Text() );
av = newAV();
sv = newRV_noinc( (SV*) av );
svp = &sv;
hv_store( hash, base.Text(), base.Length(), sv ,0 );
}
else if( !SvROK( *svp ) || SvTYPE( SvRV( *svp ) ) != SVt_PVAV )
{
//
// There's an index in our var name, but the name is already defined
// and the value it contains is not an array. This means we've got a
// name collision. This can happen in 'p4 diff2' for example, when
// one file gets 'depotFile' and the other gets 'depotFile2'. In
// these cases it makes sense to keep the structure flat so we
// just use the raw variable name.
//
if( P4PERL_DEBUG_FORMCONV )
PerlIO_stdoutf( "\t[Simple]: %s -> %s\n", var->Text(), val->Text() );
hv_store( hash, var->Text(), var->Length(),
newSVpv( val->Text(), val->Length() ), 0 );
return;
}
//
// De-reference
//
av = (AV *) SvRV( *svp );
//
// At this point we know that (a) we have an index, and (b) the top hash
// contains an array reference with the right key name. Now, the index
// may be a simple digit, or it could be a comma separated list of digits.
// For each "level" in the index, we need a containing array.
//
if( P4PERL_DEBUG_FORMCONV )
PerlIO_stdoutf( "\t[Array]: %s -> [", base.Text() );
for( const char *c = 0 ; ( c = index.Contains( comma ) ); )
{
StrBuf level;
level.Set( index.Text(), c - index.Text() );
index.Set( c + 1 );
// Found another level so we need to get/create a nested array
// under the current entry. We use the level as an index so that
// missing entries are left empty deliberately.
svp = av_fetch( av, level.Atoi(), 0 );
if( !svp )
{
tav = newAV();
av_store( av, level.Atoi(), newRV_noinc( (SV*) tav ) );
av = tav;
}
else if( SvROK( *svp ) && SvTYPE( SvRV( *svp ) ) == SVt_PVAV )
{
av = (AV*) SvRV( *svp );
}
else
{
warn( "Not an array refernce" );
return;
}
if( P4PERL_DEBUG_FORMCONV )
PerlIO_stdoutf( "%s][", level.Text() );
}
int pos = index.Atoi();
if( P4PERL_DEBUG_FORMCONV )
PerlIO_stdoutf( "%d] = %s\n", pos, val->Text() );
av_store( av, pos, newSVpv( val->Text(), val->Length() ) );
}