0024830: Remove redundant keyword 'mutable' in CDL declarations
[occt.git] / src / XmlMNaming / XmlMNaming_NamingDriver.cdl
CommitLineData
973c2be1 1-- Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e 2--
973c2be1 3-- This file is part of Open CASCADE Technology software library.
b311480e 4--
d5f74e42 5-- This library is free software; you can redistribute it and/or modify it under
6-- the terms of the GNU Lesser General Public License version 2.1 as published
973c2be1 7-- by the Free Software Foundation, with special exception defined in the file
8-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9-- distribution for complete text of the license and disclaimer of any warranty.
b311480e 10--
973c2be1 11-- Alternatively, this file may be used under the terms of Open CASCADE
12-- commercial license or contractual agreement.
7fd59977 13
14class NamingDriver from XmlMNaming inherits ADriver from XmlMDF
15
16 ---Purpose:
17
18uses
19 RRelocationTable from XmlObjMgt,
20 SRelocationTable from XmlObjMgt,
21 Persistent from XmlObjMgt,
22 Element from XmlObjMgt,
23 Attribute from TDF,
24 MessageDriver from CDM,
25 ShapeSet from BRepTools
26
27is
28 Create (aMessageDriver: MessageDriver from CDM)
6e33d3ce 29 returns NamingDriver from XmlMNaming;
7fd59977 30
31 NewEmpty (me)
6e33d3ce 32 returns Attribute from TDF;
7fd59977 33
34 Paste(me; theSource : Persistent from XmlObjMgt;
6e33d3ce 35 theTarget : Attribute from TDF;
7fd59977 36 theRelocTable : out RRelocationTable from XmlObjMgt)
37 returns Boolean from Standard;
38
39 Paste(me; theSource : Attribute from TDF;
40 theTarget : in out Persistent from XmlObjMgt;
41 theRelocTable : out SRelocationTable from XmlObjMgt);
42
43end NamingDriver;