Integration of OCCT 6.5.0 from SVN

src/HeaderSection/HeaderSection.cdl

@@ -0,0 +1,37 @@
+-- File:        HeaderSection.cdl
+-- Created:     Thu Jun 16 18:05:48 1994
+-- Author:      EXPRESS->CDL V0.2 Translator
+-- Copyright:   Matra-Datavision 1993
+
+
+
+
+package HeaderSection 
+
+uses
+
+
+	TCollection, TColStd, StepData, Interface, MMgt
+
+is
+
+
+
+class Protocol;
+
+
+class FileName;
+class FileDescription;
+class FileSchema;
+
+class HeaderRecognizer;
+
+--class Array1OfHAsciiString instantiates Array1(HAsciiString);
+--class HArray1OfHAsciiString instantiates HArray1(HAsciiString,Array1OfHAsciiString from HeaderSection);
+-- already instantiated in package Interface
+
+	Protocol returns Protocol from HeaderSection;
+	---Purpose : creates a Protocol
+
+end HeaderSection;
+

src/HeaderSection/HeaderSection.cxx

@@ -0,0 +1,15 @@
+
+#include <HeaderSection.ixx>
+
+#include <Interface_Statics.hxx>
+#include <HeaderSection_Protocol.hxx>
+
+StaticHandle(HeaderSection_Protocol, proto);
+
+Handle(HeaderSection_Protocol) HeaderSection::Protocol()
+
+	{
+		InitHandleVoid(HeaderSection_Protocol, proto);
+		return proto;
+	}
+

src/HeaderSection/HeaderSection_FileDescription.cdl

@@ -0,0 +1,38 @@
+-- File:        FileDescription.cdl
+-- Created:     Thu Jun 16 18:05:54 1994
+-- Author:      EXPRESS->CDL V0.2 Translator
+-- Copyright:   Matra-Datavision 1993
+
+
+class FileDescription from HeaderSection 
+
+inherits TShared from MMgt
+
+uses
+
+	HArray1OfHAsciiString from Interface,
+	HAsciiString from TCollection
+is
+
+	Create returns mutable FileDescription;
+	---Purpose: Returns a FileDescription
+
+	Init (me : mutable;
+	      aDescription : mutable HArray1OfHAsciiString from Interface;
+	      aImplementationLevel : mutable HAsciiString from TCollection);
+
+	-- Specific Methods for Field Data Access --
+
+	SetDescription(me : mutable; aDescription : mutable HArray1OfHAsciiString);
+	Description (me) returns mutable HArray1OfHAsciiString;
+	DescriptionValue (me; num : Integer) returns mutable HAsciiString;
+	NbDescription (me) returns Integer;
+	SetImplementationLevel(me : mutable; aImplementationLevel : mutable HAsciiString);
+	ImplementationLevel (me) returns mutable HAsciiString;
+
+fields
+
+	description : HArray1OfHAsciiString from Interface;
+	implementationLevel : HAsciiString from TCollection;
+
+end FileDescription;

src/HeaderSection/HeaderSection_FileDescription.cxx

@@ -0,0 +1,45 @@
+#include <HeaderSection_FileDescription.ixx>
+
+
+HeaderSection_FileDescription::HeaderSection_FileDescription ()  {}
+
+void HeaderSection_FileDescription::Init(
+	const Handle(Interface_HArray1OfHAsciiString)& aDescription,
+	const Handle(TCollection_HAsciiString)& aImplementationLevel)
+{
+	// --- class own fields ---
+	description = aDescription;
+	implementationLevel = aImplementationLevel;
+}
+
+
+void HeaderSection_FileDescription::SetDescription(const Handle(Interface_HArray1OfHAsciiString)& aDescription)
+{
+	description = aDescription;
+}
+
+Handle(Interface_HArray1OfHAsciiString) HeaderSection_FileDescription::Description() const
+{
+	return description;
+}
+
+Handle(TCollection_HAsciiString) HeaderSection_FileDescription::DescriptionValue(const Standard_Integer num) const
+{
+	return description->Value(num);
+}
+
+Standard_Integer HeaderSection_FileDescription::NbDescription () const
+{
+	if (description.IsNull()) return 0;
+	return description->Length();
+}
+
+void HeaderSection_FileDescription::SetImplementationLevel(const Handle(TCollection_HAsciiString)& aImplementationLevel)
+{
+	implementationLevel = aImplementationLevel;
+}
+
+Handle(TCollection_HAsciiString) HeaderSection_FileDescription::ImplementationLevel() const
+{
+	return implementationLevel;
+}

src/HeaderSection/HeaderSection_FileName.cdl

@@ -0,0 +1,60 @@
+-- File:        FileName.cdl
+-- Created:     Thu Jun 16 18:05:53 1994
+-- Author:      EXPRESS->CDL V0.2 Translator
+-- Copyright:   Matra-Datavision 1993
+
+
+class FileName from HeaderSection 
+
+inherits TShared from MMgt
+
+uses
+
+	HAsciiString from TCollection, 
+	HArray1OfHAsciiString from Interface
+is
+
+	Create returns mutable FileName;
+	---Purpose: Returns a FileName
+
+	Init (me : mutable;
+	      aName : mutable HAsciiString from TCollection;
+	      aTimeStamp : mutable HAsciiString from TCollection;
+	      aAuthor : mutable HArray1OfHAsciiString from Interface;
+	      aOrganization : mutable HArray1OfHAsciiString from Interface;
+	      aPreprocessorVersion : mutable HAsciiString from TCollection;
+	      aOriginatingSystem : mutable HAsciiString from TCollection;
+	      aAuthorisation : mutable HAsciiString from TCollection);
+
+	-- Specific Methods for Field Data Access --
+
+	SetName(me : mutable; aName : mutable HAsciiString);
+	Name (me) returns mutable HAsciiString;
+	SetTimeStamp(me : mutable; aTimeStamp : mutable HAsciiString);
+	TimeStamp (me) returns mutable HAsciiString;
+	SetAuthor(me : mutable; aAuthor : mutable HArray1OfHAsciiString);
+	Author (me) returns mutable HArray1OfHAsciiString;
+	AuthorValue (me; num : Integer) returns mutable HAsciiString;
+	NbAuthor (me) returns Integer;
+	SetOrganization(me : mutable; aOrganization : mutable HArray1OfHAsciiString);
+	Organization (me) returns mutable HArray1OfHAsciiString;
+	OrganizationValue (me; num : Integer) returns mutable HAsciiString;
+	NbOrganization (me) returns Integer;
+	SetPreprocessorVersion(me : mutable; aPreprocessorVersion : mutable HAsciiString);
+	PreprocessorVersion (me) returns mutable HAsciiString;
+	SetOriginatingSystem(me : mutable; aOriginatingSystem : mutable HAsciiString);
+	OriginatingSystem (me) returns mutable HAsciiString;
+	SetAuthorisation(me : mutable; aAuthorisation : mutable HAsciiString);
+	Authorisation (me) returns mutable HAsciiString;
+
+fields
+
+	name : HAsciiString from TCollection;
+	timeStamp : HAsciiString from TCollection;
+	author : HArray1OfHAsciiString from Interface;
+	organization : HArray1OfHAsciiString from Interface;
+	preprocessorVersion : HAsciiString from TCollection;
+	originatingSystem : HAsciiString from TCollection;
+	authorisation : HAsciiString from TCollection;
+
+end FileName;

src/HeaderSection/HeaderSection_FileName.cxx

@@ -0,0 +1,116 @@
+#include <HeaderSection_FileName.ixx>
+
+
+HeaderSection_FileName::HeaderSection_FileName ()  {}
+
+void HeaderSection_FileName::Init(
+	const Handle(TCollection_HAsciiString)& aName,
+	const Handle(TCollection_HAsciiString)& aTimeStamp,
+	const Handle(Interface_HArray1OfHAsciiString)& aAuthor,
+	const Handle(Interface_HArray1OfHAsciiString)& aOrganization,
+	const Handle(TCollection_HAsciiString)& aPreprocessorVersion,
+	const Handle(TCollection_HAsciiString)& aOriginatingSystem,
+	const Handle(TCollection_HAsciiString)& aAuthorisation)
+{
+	// --- class own fields ---
+	name = aName;
+	timeStamp = aTimeStamp;
+	author = aAuthor;
+	organization = aOrganization;
+	preprocessorVersion = aPreprocessorVersion;
+	originatingSystem = aOriginatingSystem;
+	authorisation = aAuthorisation;
+}
+
+
+void HeaderSection_FileName::SetName(const Handle(TCollection_HAsciiString)& aName)
+{
+	name = aName;
+}
+
+Handle(TCollection_HAsciiString) HeaderSection_FileName::Name() const
+{
+	return name;
+}
+
+void HeaderSection_FileName::SetTimeStamp(const Handle(TCollection_HAsciiString)& aTimeStamp)
+{
+	timeStamp = aTimeStamp;
+}
+
+Handle(TCollection_HAsciiString) HeaderSection_FileName::TimeStamp() const
+{
+	return timeStamp;
+}
+
+void HeaderSection_FileName::SetAuthor(const Handle(Interface_HArray1OfHAsciiString)& aAuthor)
+{
+	author = aAuthor;
+}
+
+Handle(Interface_HArray1OfHAsciiString) HeaderSection_FileName::Author() const
+{
+	return author;
+}
+
+Handle(TCollection_HAsciiString) HeaderSection_FileName::AuthorValue(const Standard_Integer num) const
+{
+	return author->Value(num);
+}
+
+Standard_Integer HeaderSection_FileName::NbAuthor () const
+{
+	if (author.IsNull()) return 0;
+	return author->Length();
+}
+
+void HeaderSection_FileName::SetOrganization(const Handle(Interface_HArray1OfHAsciiString)& aOrganization)
+{
+	organization = aOrganization;
+}
+
+Handle(Interface_HArray1OfHAsciiString) HeaderSection_FileName::Organization() const
+{
+	return organization;
+}
+
+Handle(TCollection_HAsciiString) HeaderSection_FileName::OrganizationValue(const Standard_Integer num) const
+{
+	return organization->Value(num);
+}
+
+Standard_Integer HeaderSection_FileName::NbOrganization () const
+{
+	if (organization.IsNull()) return 0;
+	return organization->Length();
+}
+
+void HeaderSection_FileName::SetPreprocessorVersion(const Handle(TCollection_HAsciiString)& aPreprocessorVersion)
+{
+	preprocessorVersion = aPreprocessorVersion;
+}
+
+Handle(TCollection_HAsciiString) HeaderSection_FileName::PreprocessorVersion() const
+{
+	return preprocessorVersion;
+}
+
+void HeaderSection_FileName::SetOriginatingSystem(const Handle(TCollection_HAsciiString)& aOriginatingSystem)
+{
+	originatingSystem = aOriginatingSystem;
+}
+
+Handle(TCollection_HAsciiString) HeaderSection_FileName::OriginatingSystem() const
+{
+	return originatingSystem;
+}
+
+void HeaderSection_FileName::SetAuthorisation(const Handle(TCollection_HAsciiString)& aAuthorisation)
+{
+	authorisation = aAuthorisation;
+}
+
+Handle(TCollection_HAsciiString) HeaderSection_FileName::Authorisation() const
+{
+	return authorisation;
+}

src/HeaderSection/HeaderSection_FileSchema.cdl

@@ -0,0 +1,34 @@
+-- File:        FileSchema.cdl
+-- Created:     Thu Jun 16 18:05:54 1994
+-- Author:      EXPRESS->CDL V0.2 Translator
+-- Copyright:   Matra-Datavision 1993
+
+
+class FileSchema from HeaderSection 
+
+inherits TShared from MMgt
+
+uses
+
+	HArray1OfHAsciiString from Interface,
+	HAsciiString from TCollection
+is
+
+	Create returns mutable FileSchema;
+	---Purpose: Returns a FileSchema
+
+	Init (me : mutable;
+	      aSchemaIdentifiers : mutable HArray1OfHAsciiString from Interface);
+
+	-- Specific Methods for Field Data Access --
+
+	SetSchemaIdentifiers(me : mutable; aSchemaIdentifiers : mutable HArray1OfHAsciiString);
+	SchemaIdentifiers (me) returns mutable HArray1OfHAsciiString;
+	SchemaIdentifiersValue (me; num : Integer) returns mutable HAsciiString;
+	NbSchemaIdentifiers (me) returns Integer;
+
+fields
+
+	schemaIdentifiers : HArray1OfHAsciiString from Interface;
+
+end FileSchema;

src/HeaderSection/HeaderSection_FileSchema.cxx

@@ -0,0 +1,33 @@
+#include <HeaderSection_FileSchema.ixx>
+
+
+HeaderSection_FileSchema::HeaderSection_FileSchema ()  {}
+
+void HeaderSection_FileSchema::Init(
+	const Handle(Interface_HArray1OfHAsciiString)& aSchemaIdentifiers)
+{
+	// --- class own fields ---
+	schemaIdentifiers = aSchemaIdentifiers;
+}
+
+
+void HeaderSection_FileSchema::SetSchemaIdentifiers(const Handle(Interface_HArray1OfHAsciiString)& aSchemaIdentifiers)
+{
+	schemaIdentifiers = aSchemaIdentifiers;
+}
+
+Handle(Interface_HArray1OfHAsciiString) HeaderSection_FileSchema::SchemaIdentifiers() const
+{
+	return schemaIdentifiers;
+}
+
+Handle(TCollection_HAsciiString) HeaderSection_FileSchema::SchemaIdentifiersValue(const Standard_Integer num) const
+{
+	return schemaIdentifiers->Value(num);
+}
+
+Standard_Integer HeaderSection_FileSchema::NbSchemaIdentifiers () const
+{
+	if (schemaIdentifiers.IsNull()) return 0;
+	return schemaIdentifiers->Length();
+}

src/HeaderSection/HeaderSection_HeaderRecognizer.cdl

@@ -0,0 +1,24 @@
+-- File:	HeaderSection_HeaderRecognizer.cdl
+-- Created:	Mon Jun 27 17:42:45 1994
+-- Author:	Frederic MAUPAS
+--		<fma@nonox>
+---Copyright:	 Matra Datavision 1994
+
+
+
+class HeaderRecognizer         from HeaderSection
+      inherits FileRecognizer  from StepData
+
+    ---Purpose : Recognizes STEP Standard Header Entities
+    --           (FileName, FileDescription, FileSchema)
+
+uses AsciiString from TCollection
+
+is
+
+    Create returns mutable HeaderRecognizer ;
+
+    Eval (me : mutable ; key : AsciiString from TCollection)  is protected;
+    ---Purpose: Recognizes data types of Header STEP Standard
+
+end HeaderRecognizer;

src/HeaderSection/HeaderSection_HeaderRecognizer.cxx

@@ -0,0 +1,38 @@
+// File:	HeaderSection_HeaderRecognizer.cxx
+// Created:	Mon Jun 27 17:43:28 1994
+// Author:	Frederic MAUPAS
+//		<fma@nonox>
+
+#include <HeaderSection_HeaderRecognizer.ixx>
+
+#include <HeaderSection_FileName.hxx>
+#include <HeaderSection_FileSchema.hxx>
+#include <HeaderSection_FileDescription.hxx>
+
+
+
+static TCollection_AsciiString reco_FileName    ("FILE_NAME");
+static TCollection_AsciiString reco_FileSchema ("FILE_SCHEMA");
+static TCollection_AsciiString reco_FileDescription ("FILE_DESCRIPTION");
+
+
+
+HeaderSection_HeaderRecognizer::HeaderSection_HeaderRecognizer ()
+{ }
+
+void HeaderSection_HeaderRecognizer::Eval
+  (const TCollection_AsciiString& key)
+{
+  if (key.IsEqual(reco_FileName)) { 
+    SetOK(new HeaderSection_FileName);
+    return;
+  }
+  if (key.IsEqual(reco_FileSchema)) { 
+    SetOK(new HeaderSection_FileSchema);
+    return;
+  }
+  if (key.IsEqual(reco_FileDescription)) { 
+    SetOK(new HeaderSection_FileDescription);
+    return;
+  } 
+}

src/HeaderSection/HeaderSection_Protocol.cdl

@@ -0,0 +1,22 @@
+-- File:        Protocol.cdl
+-- Created:     Thu Jun 16 18:05:53 1994
+-- Author:      EXPRESS->CDL V0.2 Translator
+-- Copyright:   Matra-Datavision 1993
+
+
+
+class Protocol from HeaderSection inherits Protocol from StepData
+	---Purpose : Protocol for HeaderSection Entities
+	--           It requires HeaderSection as a Resource
+
+uses Protocol from Interface,
+     CString from Standard
+
+is
+	Create returns mutable Protocol from HeaderSection;
+	TypeNumber (me; atype : any Type) returns Integer is redefined;
+	---Purpose :Returns a Case Number for each of the HeaderSection Entities
+	SchemaName(me) returns CString from Standard is redefined;
+	-- was C++ : return const
+
+end Protocol;

src/HeaderSection/HeaderSection_Protocol.cxx

@@ -0,0 +1,24 @@
+#include <HeaderSection_Protocol.ixx>
+
+#include <HeaderSection_FileName.hxx>
+#include <HeaderSection_FileDescription.hxx>
+#include <HeaderSection_FileSchema.hxx>
+
+#include <StepData_UndefinedEntity.hxx>
+
+static Standard_CString schemaName = "header_section";
+
+HeaderSection_Protocol::HeaderSection_Protocol () { }
+
+Standard_Integer HeaderSection_Protocol::TypeNumber(const 
+Handle(Standard_Type)& atype) const
+{
+	if      (atype == STANDARD_TYPE(HeaderSection_FileName)) return 1;
+	else if (atype == STANDARD_TYPE(HeaderSection_FileDescription)) return 2;
+	else if (atype == STANDARD_TYPE(HeaderSection_FileSchema)) return 3;
+	else if (atype == STANDARD_TYPE(StepData_UndefinedEntity)) return 4;
+	else    return 0;
+}
+
+Standard_CString HeaderSection_Protocol::SchemaName() const
+	{	return schemaName; }