mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-17 23:53:20 +08:00
6e33d3ced2
Redundant keyword 'mutable' removed in CDL files. In IGESConvGeom_GeomBuilder, unused methods MakeXY() and MakeXYZ() removed. Method StepAP214_AutoDesignGroupAssignment::Init() replicating same method of the base class is removed as it causes CDL extraction error after above (seemingly irrelevant) changes.
70 lines
3.3 KiB
Plaintext
70 lines
3.3 KiB
Plaintext
-- Created on: 1995-03-16
|
|
-- Created by: Christian CAILLET
|
|
-- Copyright (c) 1995-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 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.
|
|
|
|
class FuncShape from XSControl
|
|
|
|
---Purpose : Defines additionnal commands for XSControl to :
|
|
-- - control of initialisation (xinit, xnorm, newmodel)
|
|
-- - analyse of the result of a transfer (recorded in a
|
|
-- TransientProcess for Read, FinderProcess for Write) :
|
|
-- statistics, various lists (roots,complete,abnormal), what
|
|
-- about one specific entity, producing a model with the
|
|
-- abnormal result
|
|
--
|
|
-- This appendix of XSControl is compiled separately to distinguish
|
|
-- basic features from user callable forms
|
|
|
|
uses CString, AsciiString from TCollection,
|
|
WorkSession from XSControl, HSequenceOfShape from TopTools
|
|
|
|
is
|
|
|
|
Init (myclass);
|
|
---Purpose : Defines and loads all functions which work on shapes for XSControl (as ActFunc)
|
|
|
|
MoreShapes (myclass; session : WorkSession from XSControl;
|
|
list : in out HSequenceOfShape from TopTools;
|
|
name : CString) returns Integer;
|
|
---Purpose : Analyses a name as designating Shapes from a Vars or from
|
|
-- XSTEP transfer (last Transfer on Reading). <name> can be :
|
|
-- "*" : all the root shapes produced by last Transfer (Read)
|
|
-- i.e. considers roots of the TransientProcess
|
|
-- a name : a name of a variable DRAW
|
|
--
|
|
-- Returns the count of designated Shapes. Their list is put in
|
|
-- <list>. If <list> is null, it is firstly created. Then it is
|
|
-- completed (Append without Clear) by the Shapes found
|
|
-- Returns 0 if no Shape could be found
|
|
|
|
FileAndVar (myclass; session : WorkSession from XSControl;
|
|
file, var, def : CString;
|
|
resfile, resvar : out AsciiString from TCollection)
|
|
returns Boolean;
|
|
---Purpose : Analyses given file name and variable name, with a default
|
|
-- name for variables. Returns resulting file name and variable
|
|
-- name plus status "file to read"(True) or "already read"(False)
|
|
-- In the latter case, empty resfile means no file available
|
|
--
|
|
-- If <file> is null or empty or equates ".", considers Session
|
|
-- and returned status is False
|
|
-- Else, returns resfile = file and status is True
|
|
-- If <var> is neither null nor empty, resvar = var
|
|
-- Else, the root part of <resfile> is considered, if defined
|
|
-- Else, <def> is taken
|
|
|
|
|
|
end FuncShape;
|