127 lines
3.2 KiB
C++
Executable File
127 lines
3.2 KiB
C++
Executable File
//
|
|
// ENTRDUP.CPP
|
|
//
|
|
// Source file for ArchiveLib 2.0
|
|
//
|
|
// Copyright (c) Greenleaf Software, Inc. 1994-1996
|
|
// All Rights Reserved
|
|
//
|
|
// CONTENTS
|
|
//
|
|
// ALEntry::Duplicate()
|
|
// ALEntryDuplicate()
|
|
//
|
|
// REVISION HISTORY
|
|
//
|
|
// February 14, 1996 2.0A : New release
|
|
//
|
|
|
|
#include "arclib.h"
|
|
#if !defined( AL_IBM )
|
|
#pragma hdrstop
|
|
#endif
|
|
|
|
//
|
|
// NAME
|
|
//
|
|
// ALEntry::Duplicate()
|
|
//
|
|
// PLATFORMS/ENVIRONMENTS
|
|
//
|
|
// Console Windows PM
|
|
// C++ C VB Delphi
|
|
//
|
|
// SHORT DESCRIPTION
|
|
//
|
|
// Check a list for a duplicate name.
|
|
//
|
|
// C++ SYNOPSIS
|
|
//
|
|
// #include "arclib.h"
|
|
//
|
|
// int ALEntry::Duplicate( ALEntryList &list )
|
|
//
|
|
// C SYNOPSIS
|
|
//
|
|
// #include "arclib.h"
|
|
//
|
|
// int ALEntryDuplicate( hALEntry this_object,
|
|
// hALEntryList list );
|
|
//
|
|
// VB SYNOPSIS
|
|
//
|
|
// Declare Function ALEntryDuplicate Lib "AL20LW"
|
|
// (ByVal this_object&, ByVal list&) As Integer
|
|
//
|
|
// DELPHI SYNOPSIS
|
|
//
|
|
// function ALEntryDuplicate( this_object : hALEntry;
|
|
// list : hALEntryList ) : Integer;
|
|
//
|
|
// ARGUMENTS
|
|
//
|
|
// this_object : A reference or pointer to the ALEntry object that
|
|
// is going to be compared to the list. Note that the
|
|
// C++ member function version of this call doesn't have
|
|
// an argument called 'this_object', since it has access
|
|
// to 'this' implicitly.
|
|
//
|
|
// list : A reference to an ALEntryList. This is the list that
|
|
// will be scanned for duplicates.
|
|
//
|
|
// DESCRIPTION
|
|
//
|
|
// This function is used to scan a list of ALEntry objects to see if
|
|
// any of them have the same name as this. Unmarked objects are ignored.
|
|
// All the function does is zip through the ALEntryList, checking each
|
|
// marked member for an ASCII match with the name of the storage object
|
|
// pointed to by this. You can see that the case sensitivity of this
|
|
// is observed when making the comparison.
|
|
//
|
|
// RETURNS
|
|
//
|
|
// 0 if the entry is not duplicated, 1 if it is.
|
|
//
|
|
// EXAMPLE
|
|
//
|
|
// SEE ALSO
|
|
//
|
|
// REVISION HISTORY
|
|
//
|
|
// February 14, 1996 2.0A : New release
|
|
//
|
|
|
|
int AL_PROTO
|
|
ALEntry::Duplicate( ALEntryList &list ) /* Tag public function */
|
|
{
|
|
char AL_DLL_FAR *name = mpStorageObject->mName;
|
|
int case_sensitive = mpStorageObject->mName.mCase == AL_MIXED;
|
|
ALEntry *job = list.GetFirstEntry();
|
|
while ( job ) {
|
|
if ( job->GetMark() && job != this ) {
|
|
if ( case_sensitive ) {
|
|
if ( strcmp( name, job->mpStorageObject->mName ) == 0 )
|
|
return 1;
|
|
} else {
|
|
if ( stricmp( name, job->mpStorageObject->mName ) == 0 )
|
|
return 1;
|
|
}
|
|
}
|
|
job = job->GetNextEntry();
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
#if !defined( AL_NO_C )
|
|
|
|
extern "C" AL_LINKAGE int AL_FUNCTION
|
|
ALEntryDuplicate( hALEntry this_object, /* Tag public function */
|
|
hALEntryList list )
|
|
{
|
|
AL_ASSERT_OBJECT( this_object, ALEntry, "ALEntryDuplicate" );
|
|
AL_ASSERT_OBJECT( list, ALEntryList, "ALEntryDuplicate" );
|
|
return ( (ALEntry *) this_object )->Duplicate( * (ALEntryList *) list );
|
|
}
|
|
|
|
#endif
|