mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-06 10:36:12 +03:00
973c2be1e1
The copying permission statements at the beginning of source files updated to refer to LGPL. Copyright dates extended till 2014 in advance.
69 lines
2.8 KiB
Plaintext
69 lines
2.8 KiB
Plaintext
-- Created on: 1993-07-23
|
|
-- Created by: Christian CAILLET
|
|
-- Copyright (c) 1993-1999 Matra Datavision
|
|
-- 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 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.
|
|
|
|
class FileProtocol from StepData inherits Protocol from StepData
|
|
|
|
---Purpose : A FileProtocol is defined as the addition of several already
|
|
-- existing Protocols. It corresponds to the definition of a
|
|
-- SchemaName with several Names, each one being attached to a
|
|
-- specific Protocol. Thus, a File defined with a compound Schema
|
|
-- is processed as any other one, once built the equivalent
|
|
-- compound Protocol, a FileProtocol
|
|
|
|
uses Type, CString, SequenceOfTransient,
|
|
Graph from Interface, Check from Interface,
|
|
Protocol from Interface, Protocol from StepData
|
|
|
|
is
|
|
|
|
Create returns mutable FileProtocol;
|
|
---Purpose : Creates an empty FileProtocol
|
|
|
|
Add (me : mutable; protocol : Protocol from StepData);
|
|
---Purpose : Adds a Protocol to the definition list of the FileProtocol
|
|
-- But ensures that each class of Protocol is present only once
|
|
-- in this list
|
|
|
|
NbResources (me) returns Integer is redefined;
|
|
---Purpose : Gives the count of Protocols used as Resource (can be zero)
|
|
-- i.e. the count of Protocol recorded by calling the method Add
|
|
|
|
Resource (me; num : Integer) returns Protocol from Interface is redefined;
|
|
---Purpose : Returns a Resource, given a rank. Here, rank of calling Add
|
|
|
|
TypeNumber (me; atype : any Type) returns Integer is redefined;
|
|
---Purpose : Returns a Case Number, specific of each recognized Type
|
|
-- Here, NO Type at all is recognized properly : all Types are
|
|
-- recognized by the resources
|
|
|
|
GlobalCheck (me; G : Graph; ach : in out Check)
|
|
returns Boolean is redefined;
|
|
---Purpose : Calls GlobalCheck for each of its recorded ressources
|
|
|
|
-- -- Specific for StepData -- --
|
|
|
|
SchemaName (me) returns CString is redefined;
|
|
---Purpose : Returns the Schema Name attached to each class of Protocol
|
|
-- To be redefined by each sub-class
|
|
-- Here, SchemaName returns "" (empty String)
|
|
-- was C++ : return const
|
|
|
|
fields
|
|
|
|
thecomps : SequenceOfTransient;
|
|
|
|
end FileProtocol;
|