117 lines
		
	
	
		
			2.6 KiB
		
	
	
	
		
			C++
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			117 lines
		
	
	
		
			2.6 KiB
		
	
	
	
		
			C++
		
	
	
		
			Executable File
		
	
	
	
	
| //
 | |
| // GLARCF.CPP
 | |
| //
 | |
| //  Source file for ArchiveLib 2.0
 | |
| //
 | |
| //  Copyright (c) Greenleaf Software, Inc. 1994-1996
 | |
| //  All Rights Reserved
 | |
| //
 | |
| // CONTENTS
 | |
| //
 | |
| //  ALGlArchive::ALGlArchive(char *)
 | |
| //  newALGlArchive()
 | |
| //
 | |
| // REVISION HISTORY
 | |
| //
 | |
| //   February 14, 1996  2.0A : New Release
 | |
| //
 | |
| 
 | |
| #include "arclib.h"
 | |
| #if !defined( AL_IBM )
 | |
| #pragma hdrstop
 | |
| #endif
 | |
| 
 | |
| #include "filestor.h"
 | |
| #include "glarc.h"
 | |
| #include "_openf.h"
 | |
| 
 | |
| //
 | |
| // NAME
 | |
| //
 | |
| //  ALGlArchive::ALGlArchive()
 | |
| //
 | |
| // PLATFORMS/ENVIRONMENTS
 | |
| //
 | |
| //  Console  Windows  PM
 | |
| //  C++  C  VB  Delphi
 | |
| //
 | |
| // SHORT DESCRIPTION
 | |
| //
 | |
| //  A Greenleaf Archive constructor that creates a file object.
 | |
| //
 | |
| // C++ SYNOPSIS
 | |
| //
 | |
| //  #include "arclib.h"
 | |
| //  #include "glarc.h"
 | |
| //
 | |
| //  ALGlArchive::ALGlArchive( const char *file_name );
 | |
| //
 | |
| // C SYNOPSIS
 | |
| //
 | |
| //  #include "arclib.h"
 | |
| //  #include "glarc.h"
 | |
| //
 | |
| //  hALArchive newALGlArchive( char *name );
 | |
| //
 | |
| // VB SYNOPSIS
 | |
| //
 | |
| //  Declare Function newALGlArchiveLib "AL20LW" ( ByVal name$& ) As Long
 | |
| //
 | |
| // DELPHI SYNOPSIS
 | |
| //
 | |
| //  function newALGlArchive( name : String ) : hALArchive;
 | |
| //
 | |
| // ARGUMENTS
 | |
| //
 | |
| //  name  :  A character string that gives the name of the file that you
 | |
| //           want to use for this GlArchive.  The file name should be a
 | |
| //           legal one for your O/S or envrionment.
 | |
| //
 | |
| // DESCRIPTION
 | |
| //
 | |
| //  There are two versions of the ALGlArchive constructor.  The first creates
 | |
| //  an archive in a storage object.  The second, this function, creates a new
 | |
| //  ALFile object using the name you specify as an argument.  This is strictly
 | |
| //  a convenience, it lets you bypass the extra step required to build the
 | |
| //  file yourself.
 | |
| //
 | |
| //  Since the constructor has created the ALFile object on the fly, we ask
 | |
| //  the ALArchive constructor to set the delete_in_dtor flag.  This means
 | |
| //  that when the archive is destroyed, the underlying storage object
 | |
| //  will be destroyed as well.
 | |
| //
 | |
| // RETURNS
 | |
| //
 | |
| //  When called by C/VB/Delphi, or with operator new in C+, this constructor
 | |
| //  returns a pointer to a newly created ALGlArchive object.
 | |
| //
 | |
| // EXAMPLE
 | |
| //
 | |
| // SEE ALSO
 | |
| //
 | |
| // REVISION HISTORY
 | |
| //
 | |
| //   February 14, 1996  2.0A : New Release
 | |
| //
 | |
| 
 | |
| AL_PROTO
 | |
| ALGlArchive::ALGlArchive( const char AL_DLL_FAR *file_name )  /* Tag public function */
 | |
|     : ALArchive( new ALFile( file_name ), 1 )
 | |
| {
 | |
|     miVersion = 0x100;
 | |
| }
 | |
| 
 | |
| #if !defined( AL_NO_C )
 | |
| 
 | |
| extern "C" AL_LINKAGE hALArchive AL_FUNCTION
 | |
| newALGlArchive( char AL_DLL_FAR *name ) /* Tag public function */
 | |
| {
 | |
|     ALArchive *archive;
 | |
| 
 | |
|     archive = new ALGlArchive( name );
 | |
|     return (hALArchive) archive;
 | |
| }
 | |
| 
 | |
| #endif
 | |
| 
 |