212 lines
5.1 KiB
C++
212 lines
5.1 KiB
C++
|
//
|
||
|
|
// STORGLW.CPP
|
||
|
|
//
|
||
|
|
// Source file for ArchiveLib 2.0
|
||
|
|
//
|
||
|
|
// Copyright (c) Greenleaf Software, Inc. 1994-1996
|
||
|
|
// All Rights Reserved
|
||
|
|
//
|
||
|
|
// CONTENTS
|
||
|
|
//
|
||
|
|
// ALStorage::WriteGlShort()
|
||
|
|
// ALStorageWriteGlShort()
|
||
|
|
// ALStorage::WriteGlLong()
|
||
|
|
// ALStorageWriteGlLong()
|
||
|
|
//
|
||
|
|
// DESCRIPTION
|
||
|
|
//
|
||
|
|
// This file contains the modules used to write shorts and longs
|
||
|
|
// in Greenleaf's endian order.
|
||
|
|
//
|
||
|
|
// REVISION HISTORY
|
||
|
|
//
|
||
|
|
// February 14, 1996 2.0A : New release.
|
||
|
|
//
|
||
|
|
|
||
|
|
#include "arclib.h"
|
||
|
|
#if !defined( AL_IBM )
|
||
|
|
#pragma hdrstop
|
||
|
|
#endif
|
||
|
|
|
||
|
|
//
|
||
|
|
// NAME
|
||
|
|
//
|
||
|
|
// ALStorage::WriteGlShort()
|
||
|
|
//
|
||
|
|
// PLATFORMS/ENVIRONMENTS
|
||
|
|
//
|
||
|
|
// Console Windows PM
|
||
|
|
// C++ C VB Delphi
|
||
|
|
//
|
||
|
|
// SHORT DESCRIPTION
|
||
|
|
//
|
||
|
|
// Write a short data word using Greenleaf's portable format.
|
||
|
|
//
|
||
|
|
// C++ SYNOPSIS
|
||
|
|
//
|
||
|
|
// #include "arclib.h"
|
||
|
|
//
|
||
|
|
// int ALStorage::WriteGlShort( short short_data );
|
||
|
|
//
|
||
|
|
// C SYNOPSIS
|
||
|
|
//
|
||
|
|
// #include "arclib.h"
|
||
|
|
//
|
||
|
|
// int ALStorageWriteGlShort( hALStorage this_object, short short_data );
|
||
|
|
//
|
||
|
|
// VB SYNOPSIS
|
||
|
|
//
|
||
|
|
// Declare Function ALStorageWriteGlShort Lib "AL20LW"
|
||
|
|
// (ByVal this_object&, ByVal short_data%) As Integer
|
||
|
|
//
|
||
|
|
// DELPHI SYNOPSIS
|
||
|
|
//
|
||
|
|
// function ALStorageWriteGlShort( this_object : hALStorage;
|
||
|
|
// short_data : Integer ) : Integer;
|
||
|
|
//
|
||
|
|
// ARGUMENTS
|
||
|
|
//
|
||
|
|
// this_object : A reference or pointer to the ALStorage object that
|
||
|
|
// be written to the storage object. Note that the C++
|
||
|
|
// version of this call doesn't have an explicit argument
|
||
|
|
// here, since it has access to 'this' implicitly.
|
||
|
|
//
|
||
|
|
// short_data : The short data element that is going to be written to
|
||
|
|
// the storage object in Greenleaf format.
|
||
|
|
//
|
||
|
|
// DESCRIPTION
|
||
|
|
//
|
||
|
|
// This function writes short integers in Greenleaf portable format. It is
|
||
|
|
// complementary to ReadGlShort() which reads data in Greenleaf
|
||
|
|
// format. Unfortunately, Greenleaf format and PKWare format are
|
||
|
|
// not identical.
|
||
|
|
//
|
||
|
|
// RETURNS
|
||
|
|
//
|
||
|
|
// An ArchiveLib status code, ranging from AL_SUCCESS to any of the
|
||
|
|
// error codes < 0.
|
||
|
|
//
|
||
|
|
// EXAMPLE
|
||
|
|
//
|
||
|
|
// SEE ALSO
|
||
|
|
//
|
||
|
|
// ALStorage::WritePkShort(), ALStorage::WriteGlLong()
|
||
|
|
//
|
||
|
|
// REVISION HISTORY
|
||
|
|
//
|
||
|
|
// February 14, 1996 2.0A : New release.
|
||
|
|
//
|
||
|
|
|
||
|
|
|
||
|
|
int AL_PROTO
|
||
|
|
ALStorage::WriteGlShort( short int short_data ) /* Tag public function */
|
||
|
|
{
|
||
|
|
WriteChar( short_data >> 8 );
|
||
|
|
WriteChar( short_data );
|
||
|
|
return mStatus;
|
||
|
|
}
|
||
|
|
|
||
|
|
#if !defined( AL_NO_C )
|
||
|
|
|
||
|
|
extern "C" AL_LINKAGE int AL_FUNCTION
|
||
|
|
ALStorageWriteGlShort( hALStorage this_object, /* Tag public function */
|
||
|
|
short int short_data )
|
||
|
|
{
|
||
|
|
AL_ASSERT_OBJECT( this_object, ALStorage, "ALStorageWriteGlShort" );
|
||
|
|
return ( (ALStorage *) this_object)->WriteGlShort( short_data );
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
//
|
||
|
|
// NAME
|
||
|
|
//
|
||
|
|
// ALStorage::WriteGlLong()
|
||
|
|
//
|
||
|
|
// PLATFORMS/ENVIRONMENTS
|
||
|
|
//
|
||
|
|
// Console Windows PM
|
||
|
|
// C++ C VB Delphi
|
||
|
|
//
|
||
|
|
// SHORT DESCRIPTION
|
||
|
|
//
|
||
|
|
// Write a long data word using Greenleaf's portable format.
|
||
|
|
//
|
||
|
|
// C++ SYNOPSIS
|
||
|
|
//
|
||
|
|
// #include "arclib.h"
|
||
|
|
//
|
||
|
|
// int ALStorage::WriteGlLong( long long_data );
|
||
|
|
//
|
||
|
|
// C SYNOPSIS
|
||
|
|
//
|
||
|
|
// #include "arclib.h"
|
||
|
|
//
|
||
|
|
// int ALStorageWriteGlLong( hALStorage this_object, long long_data );
|
||
|
|
//
|
||
|
|
// VB SYNOPSIS
|
||
|
|
//
|
||
|
|
// Declare Function ALStorageWriteGlLong Lib "AL20LW"
|
||
|
|
// (ByVal this_object&, ByVal long_data&) As Integer
|
||
|
|
//
|
||
|
|
// DELPHI SYNOPSIS
|
||
|
|
//
|
||
|
|
// function ALStorageWriteGlLong( this_object : hALStorage;
|
||
|
|
// long_data : Long Int ) : Integer;
|
||
|
|
//
|
||
|
|
// ARGUMENTS
|
||
|
|
//
|
||
|
|
// this_object : A reference or pointer to the ALStorage object that
|
||
|
|
// be written to the storage object. Note that the C++
|
||
|
|
// version of this call doesn't have an explicit argument
|
||
|
|
// here, since it has access to 'this' implicitly.
|
||
|
|
//
|
||
|
|
// long_data : The long data element that is going to be written to
|
||
|
|
// the storage object in Greenleaf format.
|
||
|
|
//
|
||
|
|
// DESCRIPTION
|
||
|
|
//
|
||
|
|
// This function writes long integers in Greenleaf Gl format. It is
|
||
|
|
// complementary to ReadGlLong() which reads data in Greenleaf
|
||
|
|
// format. Unfortunately, Greenleaf format and PKWare format are
|
||
|
|
// not identical.
|
||
|
|
//
|
||
|
|
// RETURNS
|
||
|
|
//
|
||
|
|
// An ArchiveLib status code, ranging from AL_SUCCESS to any of the
|
||
|
|
// error codes < 0.
|
||
|
|
//
|
||
|
|
// EXAMPLE
|
||
|
|
//
|
||
|
|
// SEE ALSO
|
||
|
|
//
|
||
|
|
// ALStorage::ReadGlLong(), ALStorage::WriteGlShort()
|
||
|
|
//
|
||
|
|
// REVISION HISTORY
|
||
|
|
//
|
||
|
|
// February 14, 1996 2.0A : New release.
|
||
|
|
//
|
||
|
|
|
||
|
|
int AL_PROTO
|
||
|
|
ALStorage::WriteGlLong( long long_data ) /* Tag public function */
|
||
|
|
{
|
||
|
|
WriteChar( (int) ( long_data >> 24 ) );
|
||
|
|
WriteChar( (int) ( long_data >> 16 ) );
|
||
|
|
WriteChar( (int) ( long_data >> 8 ) );
|
||
|
|
WriteChar( (int) long_data );
|
||
|
|
return mStatus;
|
||
|
|
}
|
||
|
|
|
||
|
|
#if !defined( AL_NO_C )
|
||
|
|
|
||
|
|
extern "C" AL_LINKAGE int AL_FUNCTION
|
||
|
|
ALStorageWriteGlLong( hALStorage this_object, /* Tag public function */
|
||
|
|
long int long_data )
|
||
|
|
{
|
||
|
|
AL_ASSERT_OBJECT( this_object, ALStorage, "ALStorageWriteGlLong" );
|
||
|
|
return ( (ALStorage *) this_object)->WriteGlLong( long_data );
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|