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