//%2006////////////////////////////////////////////////////////////////////////
//
// Copyright (c) 2000, 2001, 2002 BMC Software; Hewlett-Packard Development
// Company, L.P.; IBM Corp.; The Open Group; Tivoli Systems.
// Copyright (c) 2003 BMC Software; Hewlett-Packard Development Company, L.P.;
// IBM Corp.; EMC Corporation, The Open Group.
// Copyright (c) 2004 BMC Software; Hewlett-Packard Development Company, L.P.;
// IBM Corp.; EMC Corporation; VERITAS Software Corporation; The Open Group.
// Copyright (c) 2005 Hewlett-Packard Development Company, L.P.; IBM Corp.;
// EMC Corporation; VERITAS Software Corporation; The Open Group.
// Copyright (c) 2006 Hewlett-Packard Development Company, L.P.; IBM Corp.;
// EMC Corporation; Symantec Corporation; The Open Group.
//
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to
// deal in the Software without restriction, including without limitation the
// rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
// sell copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
// 
// THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE SHALL BE INCLUDED IN
// ALL COPIES OR SUBSTANTIAL PORTIONS OF THE SOFTWARE. THE SOFTWARE IS PROVIDED
// "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT
// LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
// PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
// HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
// ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
//
//==============================================================================
//
// Author:      Adrian Schuur, schuur@de.ibm.com
//
// Modified By:
//
//%/////////////////////////////////////////////////////////////////////////////

#include "CMPI_Version.h"

#include "CMPI_Object.h"
#include "CMPI_Ftabs.h"

#include <string.h>

PEGASUS_USING_STD;
PEGASUS_NAMESPACE_BEGIN

extern "C" {

   PEGASUS_STATIC CMPIStatus arrayRelease(CMPIArray* eArray) {
   //   cout<<"--- arrayRelease()"<<endl;
      CMPIData *dta=(CMPIData*)eArray->hdl;
      if (dta) {
         delete[] dta;
         ((CMPI_Object*)eArray)->unlinkAndDelete();
      }
      CMReturn(CMPI_RC_OK);
   }

   PEGASUS_STATIC CMPIArray* arrayClone(const CMPIArray* eArray, CMPIStatus* rc) {
      CMPIData* dta=(CMPIData*)eArray->hdl;

	  if (!dta) {
		if (rc) CMSetStatus(rc, CMPI_RC_ERR_INVALID_PARAMETER);
	    return NULL;
      }
      CMPIData* nDta=new CMPIData[dta->value.uint32+1];
      CMPI_Object* obj=new CMPI_Object(nDta);
      obj->unlink();
      CMPIArray* nArray=(CMPIArray*)obj;
      CMPIStatus rrc={CMPI_RC_OK,NULL};

      if (dta->type & CMPI_ENC) for (unsigned int i=1; i<=dta->value.uint32; i++)
         nDta[i].state=CMPI_nullValue;

      for (unsigned int i=0; i<=dta->value.uint32; i++) {
         nDta[i]=dta[i];
         if (dta->type & CMPI_ENC && dta[i].state==CMPI_goodValue) {

	   if ((dta[i].type & CMPI_instance) && (dta[i].value.inst))
	       nDta[i].value.inst=
		 (dta[i].value.inst)->ft->clone(dta[i].value.inst,&rrc);

	   if ((dta[i].type & CMPI_ref) && (dta[i].value.ref))
	       nDta[i].value.ref=
		 (dta[i].value.ref)->ft->clone(dta[i].value.ref,&rrc);

	   if ((dta[i].type & CMPI_args) && (dta[i].value.args))
	       nDta[i].value.args=
		 (dta[i].value.args)->ft->clone(dta[i].value.args,&rrc);

	   if ((dta[i].type & CMPI_dateTime) && (dta[i].value.dateTime))
	       nDta[i].value.dateTime=
		 (dta[i].value.dateTime)->ft->clone(dta[i].value.dateTime,&rrc);

	   if ((dta[i].type & CMPI_enumeration) && (dta[i].value.Enum))
	       nDta[i].value.Enum=
		 (dta[i].value.Enum)->ft->clone(dta[i].value.Enum,&rrc);

	   if ((dta[i].type & CMPI_filter) && (dta[i].value.filter))
	       nDta[i].value.filter=
		 (dta[i].value.filter)->ft->clone(dta[i].value.filter,&rrc);

	   if ((dta[i].type & CMPI_charsptr) && (dta[i].value.dataPtr.length>0)) {
	       nDta[i].value.dataPtr.length=
		 dta[i].value.dataPtr.length;
               nDta[i].value.dataPtr.ptr = malloc(nDta[i].value.dataPtr.length);
               if (nDta[i].value.dataPtr.ptr == NULL) {
		 arrayRelease(nArray);
		 if (rc) *rc=rrc;
		 return NULL;
	       }
	       memcpy(nDta[i].value.dataPtr.ptr,
		      dta[i].value.dataPtr.ptr,
		      dta[i].value.dataPtr.length);
	   }

	   if ((dta[i].type & CMPI_string) && (dta[i].value.string))
	       nDta[i].value.string=
		 (dta[i].value.string)->ft->clone(dta[i].value.string,&rrc);

	   if (rrc.rc) {
		 arrayRelease(nArray);
		 if (rc) *rc=rrc;
		 return NULL;
	       }
	 }
      }
      if (rc) CMSetStatus(rc,CMPI_RC_OK);
      return nArray;
   }

   PEGASUS_STATIC CMPIData arrayGetElementAt(const CMPIArray* eArray, CMPICount pos, CMPIStatus* rc) {
      CMPIData *dta=(CMPIData*)eArray->hdl;
      CMPIData data={0,CMPI_nullValue,{0}};
	  if (!dta) {
		if (rc) CMSetStatus(rc, CMPI_RC_ERR_INVALID_PARAMETER);
	    return data;
      }
      if (rc) CMSetStatus(rc,CMPI_RC_OK);
      if (pos<dta->value.uint32) return dta[pos+1];

      if (rc) CMSetStatus(rc,CMPI_RC_ERR_NOT_FOUND);
      return data;
   }

   CMPIStatus arraySetElementAt(CMPIArray* eArray, CMPICount pos,
                                       const CMPIValue *val, CMPIType type) {
      CMPIData *dta=(CMPIData*)eArray->hdl;
	  if (!dta) 
		CMReturn( CMPI_RC_ERR_INVALID_PARAMETER);

      if (pos<dta->value.uint32) {
         if ((dta->type&~CMPI_ARRAY)==type) {
            dta[pos+1].state=CMPI_goodValue;
            dta[pos+1].value=*val;
            CMReturn(CMPI_RC_OK);
         }
	 else {
	    char msg[512];
	    sprintf(msg,"arraySetElementAt(): CMPI_RC_ERR_TYPE_MISMATCH. Is %p - should be %p",
               (void*)(long)type,(void*)(long)dta->type);
            CMReturnWithString(CMPI_RC_ERR_TYPE_MISMATCH,
	         reinterpret_cast<CMPIString*>(new CMPI_Object(msg)));
	 }
      }
      CMReturn(CMPI_RC_ERR_NOT_FOUND);
   }

   PEGASUS_STATIC CMPICount arrayGetSize(const CMPIArray* eArray, CMPIStatus* rc) {
      CMPIData *dta=(CMPIData*)eArray->hdl;
	  if (!dta) {
		if (rc) CMSetStatus(rc, CMPI_RC_ERR_INVALID_PARAMETER);
	    return 0;
      }
      if (rc) CMSetStatus(rc,CMPI_RC_OK);
      return dta->value.uint32;
   }

   PEGASUS_STATIC CMPIType arrayGetType(const CMPIArray* eArray, CMPIStatus* rc) {
      CMPIData *dta=(CMPIData*)eArray->hdl;
	  if (!dta) {
		if (rc) CMSetStatus(rc, CMPI_RC_ERR_INVALID_PARAMETER);
	    return CMPI_null;
      }
      if (rc) CMSetStatus(rc,CMPI_RC_OK);
      if (rc) CMSetStatus(rc,CMPI_RC_OK);
      return dta->type;
   }

}
static CMPIArrayFT array_FT={
     CMPICurrentVersion,
     arrayRelease,
     arrayClone,
     arrayGetSize,
     arrayGetType,
     arrayGetElementAt,
     arraySetElementAt,
};

CMPIArrayFT *CMPI_Array_Ftab=&array_FT;

PEGASUS_NAMESPACE_END