mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-08-10 08:19:37 +08:00
bugmaster
164 lines
6.6 KiB
Plaintext
Executable File
164 lines
6.6 KiB
Plaintext
Executable File
-- Created on: 1996-01-26
|
|
-- Created by: Christian CAILLET
|
|
-- Copyright (c) 1996-1999 Matra Datavision
|
|
-- Copyright (c) 1999-2012 OPEN CASCADE SAS
|
|
--
|
|
-- The content of this file is subject to the Open CASCADE Technology Public
|
|
-- License Version 6.5 (the "License"). You may not use the content of this file
|
|
-- except in compliance with the License. Please obtain a copy of the License
|
|
-- at http://www.opencascade.org and read it completely before using this file.
|
|
--
|
|
-- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
|
|
-- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
|
|
--
|
|
-- The Original Code and all software distributed under the License is
|
|
-- distributed on an "AS IS" basis, without warranty of any kind, and the
|
|
-- Initial Developer hereby disclaims all such warranties, including without
|
|
-- limitation, any warranties of merchantability, fitness for a particular
|
|
-- purpose or non-infringement. Please see the License for the specific terms
|
|
-- and conditions governing the rights and limitations under the License.
|
|
|
|
|
|
|
|
class ContextWrite from IFSelect
|
|
|
|
---Purpose : This class gathers various informations used by File Modifiers
|
|
-- apart from the writer object, which is specific of the norm
|
|
-- and of the physical format
|
|
--
|
|
-- These informations are controlled by an object AppliedModifiers
|
|
-- (if it is not defined, no modification is allowed on writing)
|
|
--
|
|
-- Furthermore, in return, ContextModif can record Checks, either
|
|
-- one for all, or one for each Entity. It supports trace too.
|
|
|
|
uses Transient, CString, AsciiString from TCollection,
|
|
InterfaceModel, EntityIterator, Graph, HGraph,
|
|
Protocol from Interface, Check, CheckIterator, GeneralModifier,
|
|
AppliedModifiers
|
|
|
|
raises NoSuchObject
|
|
|
|
is
|
|
|
|
Create (model : InterfaceModel; proto : Protocol;
|
|
applieds : mutable AppliedModifiers; filename : CString)
|
|
returns ContextWrite;
|
|
---Purpose : Prepares a ContextWrite with these informations :
|
|
-- - the model which is to be written
|
|
-- - the protocol to be used
|
|
-- - the filename
|
|
-- - an object AppliedModifiers to work. It gives a list of
|
|
-- FileModifiers to be ran, and for each one it can give
|
|
-- a restricted list of entities (in the model), else all
|
|
-- the model is considered
|
|
|
|
Create (hgraph : HGraph; proto : Protocol;
|
|
applieds : mutable AppliedModifiers; filename : CString)
|
|
returns ContextWrite;
|
|
---Purpose : Same as above but with an already computed Graph
|
|
|
|
Model (me) returns InterfaceModel;
|
|
---Purpose : Returns the Model
|
|
|
|
Protocol (me) returns Protocol;
|
|
---Purpose : Returns the Protocol;
|
|
|
|
FileName (me) returns CString;
|
|
---Purpose : Returns the File Name
|
|
|
|
AppliedModifiers (me) returns mutable AppliedModifiers;
|
|
---Purpose : Returns the object AppliedModifiers
|
|
|
|
Graph (me : in out) returns Graph;
|
|
---Purpose : Returns the Graph, either given when created, else created
|
|
-- the first time it is queried
|
|
---C++ : return const &
|
|
|
|
|
|
-- -- Control when running -- --
|
|
|
|
NbModifiers (me) returns Integer;
|
|
---Purpose : Returns the count of recorded File Modifiers
|
|
|
|
SetModifier (me : in out; numod : Integer) returns Boolean;
|
|
---Purpose : Sets active the File Modifier n0 <numod>
|
|
-- Then, it prepares the list of entities to consider, if any
|
|
-- Returns False if <numod> out of range
|
|
|
|
FileModifier (me) returns mutable GeneralModifier;
|
|
---Purpose : Returns the currently active File Modifier. Cast to be done
|
|
-- Null if not properly set : must be test IsNull after casting
|
|
|
|
IsForNone (me) returns Boolean;
|
|
---Purpose : Returns True if no modifier is currently set
|
|
|
|
IsForAll (me) returns Boolean;
|
|
---Purpose : Returns True if the current modifier is to be applied to
|
|
-- the whole model. Else, a restricted list of selected entities
|
|
-- is defined, it can be exploited by the File Modifier
|
|
|
|
NbEntities (me) returns Integer;
|
|
---Purpose : Returns the total count of selected entities
|
|
|
|
Start (me : in out);
|
|
---Purpose : Starts an iteration on selected items. It takes into account
|
|
-- IsForAll/IsForNone, by really iterating on all selected items.
|
|
|
|
More (me) returns Boolean;
|
|
---Purpose : Returns True until the iteration has finished
|
|
|
|
Next (me : in out);
|
|
---Purpose : Advances the iteration
|
|
|
|
Value (me) returns Transient raises NoSuchObject;
|
|
---Purpose : Returns the current selected entity in the model
|
|
|
|
|
|
-- -- Trace and Check -- --
|
|
|
|
AddCheck (me : in out; check : Check) is static;
|
|
---Purpose : Adds a Check to the CheckList. If it is empty, nothing is done
|
|
-- If it concerns an Entity from the Model (by SetEntity)
|
|
-- to which another Check is attached, it is merged to it.
|
|
-- Else, it is added or merged as to GlobalCheck.
|
|
|
|
AddWarning (me : in out; start : Transient; mess : CString; orig : CString = "");
|
|
---Purpose : Adds a Warning Message for an Entity from the Model
|
|
-- If <start> is not an Entity from the model (e.g. the
|
|
-- model itself) this message is added to Global Check.
|
|
|
|
AddFail (me : in out; start : Transient; mess : CString; orig : CString = "");
|
|
---Purpose : Adds a Fail Message for an Entity from the Model
|
|
-- If <start> is not an Entity from the model (e.g. the
|
|
-- model itself) this message is added to Global Check.
|
|
|
|
CCheck (me : in out; num : Integer = 0) returns Check;
|
|
---Purpose : Returns a Check given an Entity number (in the Model)
|
|
-- by default a Global Check. Creates it the first time.
|
|
-- It can then be acknowledged on the spot, in condition that the
|
|
-- caller works by reference ("Interface_Check& check = ...")
|
|
|
|
CCheck (me : in out; start : Transient) returns Check;
|
|
---Purpose : Returns a Check attached to an Entity from the Model
|
|
-- It can then be acknowledged on the spot, in condition that the
|
|
-- caller works by reference ("Interface_Check& check = ...")
|
|
|
|
CheckList (me) returns CheckIterator is static;
|
|
---Purpose : Returns the complete CheckList
|
|
|
|
fields
|
|
|
|
themodel : InterfaceModel;
|
|
theproto : Protocol;
|
|
thefile : AsciiString;
|
|
theapply : AppliedModifiers;
|
|
thehgraf : HGraph;
|
|
thecheck : CheckIterator;
|
|
thenumod : Integer;
|
|
thenbent : Integer;
|
|
thecurr : Integer;
|
|
themodif : GeneralModifier;
|
|
|
|
end ContextWrite;
|