// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

#include <IGESData_DirPart.hxx>
#include <IGESData_IGESType.hxx>
#include <Standard_PCharacter.hxx>

IGESData_DirPart::IGESData_DirPart() {}

void IGESData_DirPart::Init(const Standard_Integer i1,
                            const Standard_Integer i2,
                            const Standard_Integer i3,
                            const Standard_Integer i4,
                            const Standard_Integer i5,
                            const Standard_Integer i6,
                            const Standard_Integer i7,
                            const Standard_Integer i8,
                            const Standard_Integer i9,
                            const Standard_Integer i10,
                            const Standard_Integer i11,
                            const Standard_Integer i12,
                            const Standard_Integer i13,
                            const Standard_Integer i14,
                            const Standard_Integer i15,
                            const Standard_Integer i16,
                            const Standard_Integer i17,
                            const Standard_CString res1,
                            const Standard_CString res2,
                            const Standard_CString label,
                            const Standard_CString subscript)
{
  thevals[0]  = i1;
  thevals[1]  = i2;
  thevals[2]  = i3;
  thevals[3]  = i4;
  thevals[4]  = i5;
  thevals[5]  = i6;
  thevals[6]  = i7;
  thevals[7]  = i8;
  thevals[8]  = i9;
  thevals[9]  = i10;
  thevals[10] = i11;
  thevals[11] = i12;
  thevals[12] = i13;
  thevals[13] = i14;
  thevals[14] = i15;
  thevals[15] = i16;
  thevals[16] = i17;
  for (Standard_Integer i = 0; i < 8; i++)
  {
    theres1[i] = res1[i];
    theres2[i] = res2[i];
    thelabl[i] = label[i];
    thesubs[i] = subscript[i];
  }
  theres1[8] = '\0';
  theres2[8] = '\0';
  thelabl[8] = '\0';
  thesubs[8] = '\0';
}

//   CString : on modifie leur CONTENU, pas le POINTEUR LUI-MEME

//=================================================================================================

void IGESData_DirPart::Values(Standard_Integer&      i1,
                              Standard_Integer&      i2,
                              Standard_Integer&      i3,
                              Standard_Integer&      i4,
                              Standard_Integer&      i5,
                              Standard_Integer&      i6,
                              Standard_Integer&      i7,
                              Standard_Integer&      i8,
                              Standard_Integer&      i9,
                              Standard_Integer&      i10,
                              Standard_Integer&      i11,
                              Standard_Integer&      i12,
                              Standard_Integer&      i13,
                              Standard_Integer&      i14,
                              Standard_Integer&      i15,
                              Standard_Integer&      i16,
                              Standard_Integer&      i17,
                              const Standard_CString res1,
                              const Standard_CString res2,
                              const Standard_CString label,
                              const Standard_CString subscript) const
{
  Standard_PCharacter pres1, pres2, plabel, psubscript;
  Standard_Integer    i;
  //
  pres1      = (Standard_PCharacter)res1;
  pres2      = (Standard_PCharacter)res2;
  plabel     = (Standard_PCharacter)label;
  psubscript = (Standard_PCharacter)subscript;
  //
  i1  = thevals[0];
  i2  = thevals[1];
  i3  = thevals[2];
  i4  = thevals[3];
  i5  = thevals[4];
  i6  = thevals[5];
  i7  = thevals[6];
  i8  = thevals[7];
  i9  = thevals[8];
  i10 = thevals[9];
  i11 = thevals[10];
  i12 = thevals[11];
  i13 = thevals[12];
  i14 = thevals[13];
  i15 = thevals[14];
  i16 = thevals[15];
  i17 = thevals[16];
  for (i = 0; i < 8; ++i)
  {
    pres1[i]      = theres1[i];
    pres2[i]      = theres2[i];
    plabel[i]     = thelabl[i];
    psubscript[i] = thesubs[i];
  }
  pres1[8]      = '\0';
  pres2[8]      = '\0';
  plabel[8]     = '\0';
  psubscript[8] = '\0';
}

IGESData_IGESType IGESData_DirPart::Type() const
{
  return IGESData_IGESType(thevals[0], thevals[16]);
} // type & forme