-- Created on: 1992-02-11 -- Created by: Christian CAILLET -- Copyright (c) 1992-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 StepReaderTool from StepData inherits FileReaderTool ---Purpose : Specific FileReaderTool for Step; works with FileReaderData -- provides references evaluation, plus access to litteral data -- and specific methods defined by FileReaderTool -- Remarks : works with a ReaderLib to load Entities uses Integer, Boolean, Transient, InterfaceModel, Check, GeneralLib, ReaderLib, StepReaderData, FileRecognizer, Protocol from StepData is -- -- File data storing and access (specific) -- -- Create (reader : mutable StepReaderData; protocol : Protocol from StepData) returns StepReaderTool; ---Purpose : creates StepReaderTool to work with a StepReaderData according -- to a Step Protocol. Defines the ReaderLib at this time -- -- setting empty entities before loading model -- -- Prepare (me : in out; optimize : Boolean = Standard_True); ---Purpose : Bounds empty entities to records, uses default Recognition -- provided by ReaderLib and ReaderModule. Also calls computation -- of references (SetEntityNumbers from StepReaderData) -- Works only on data entities (skips header) -- given False allows to test some internal algorithms -- which are normally avoided (see also StepReaderData) Prepare (me : in out; reco : mutable FileRecognizer; optimize : Boolean = Standard_True); ---Purpose : Bounds empty entities to records, works with a specific -- FileRecognizer, stored and later used in Recognize -- Works only on data entities (skips header) -- is to call -- RecognizeByLib -- -- managing Header -- -- -- Header is defined as a list of StepEntities (without ident) PrepareHeader (me : in out; reco : mutable FileRecognizer); ---Purpose : bounds empty entities and sub-lists to header records -- works like Prepare + SetEntityNumbers, but for header -- (N.B.: in Header, no Ident and no reference) -- FileRecognizer is to specify Entities which are allowed to be -- defined in the Header (not every type can be) -- -- loading entities into the model -- -- BeginRead (me : in out; amodel : mutable InterfaceModel); ---Purpose : fills model's header; that is, gives to it Header entities -- and commands their loading. Also fills StepModel's Global -- Check from StepReaderData's GlobalCheck AnalyseRecord (me : in out; num : Integer; anent : mutable Transient; acheck : in out Check) returns Boolean; ---Purpose : fills an entity, given record no; works by using a ReaderLib -- to load each entity, which must be a Transient -- Actually, returned value is True if no fail, False else EndRead (me : in out; amodel : mutable InterfaceModel) is redefined; ---Purpose : Ends file reading after reading all the entities -- Here, it binds in the model, Idents to Entities (for checks) fields thereco : FileRecognizer; theglib : GeneralLib; therlib : ReaderLib; end StepReaderTool;