1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-21 10:13:43 +03:00
occt/src/IGESData/IGESData_DirPart.cxx
abv 42cf5bc1ca 0024002: Overall code and build procedure refactoring -- automatic
Automatic upgrade of OCCT code by command "occt_upgrade . -nocdl":
- WOK-generated header files from inc and sources from drv are moved to src
- CDL files removed
- All packages are converted to nocdlpack
2015-07-12 07:42:38 +03:00

98 lines
3.9 KiB
C++

// 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
//=======================================================================
//function : Values
//purpose :
//=======================================================================
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