0024830: Remove redundant keyword 'mutable' in CDL declarations
[occt.git] / src / UTL / UTL.cdl
CommitLineData
b311480e 1-- Created on: 1997-11-21
2-- Created by: Mister rmi
3-- Copyright (c) 1997-1999 Matra Datavision
973c2be1 4-- Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e 5--
973c2be1 6-- This file is part of Open CASCADE Technology software library.
b311480e 7--
d5f74e42 8-- This library is free software; you can redistribute it and/or modify it under
9-- the terms of the GNU Lesser General Public License version 2.1 as published
973c2be1 10-- by the Free Software Foundation, with special exception defined in the file
11-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12-- distribution for complete text of the license and disclaimer of any warranty.
b311480e 13--
973c2be1 14-- Alternatively, this file may be used under the terms of Open CASCADE
15-- commercial license or contractual agreement.
7fd59977 16
17package UTL
18uses Resource, TCollection,Storage, OSD
19is
20
21 xgetenv(aCString: CString from Standard)
22 returns ExtendedString from TCollection;
23
24 OpenFile(aFile: in out BaseDriver from Storage; aName: ExtendedString from TCollection; aMode : OpenMode from Storage)
25 returns Error from Storage;
26
6e33d3ce 27 AddToUserInfo(aData: Data from Storage; anInfo: ExtendedString from TCollection);
7fd59977 28
29 Path(aFileName: ExtendedString from TCollection) returns Path from OSD;
30
31 Disk(aPath: Path from OSD) returns ExtendedString from TCollection;
32 Trek(aPath: Path from OSD) returns ExtendedString from TCollection;
33 Name(aPath: Path from OSD) returns ExtendedString from TCollection;
34 Extension(aPath: Path from OSD) returns ExtendedString from TCollection;
35
36 FileIterator(aPath: Path from OSD; aMask:ExtendedString from TCollection) returns FileIterator from OSD;
37
38 Extension(aFileName: ExtendedString from TCollection) returns ExtendedString from TCollection;
39
40 LocalHost returns ExtendedString from TCollection;
41
42 ExtendedString(anAsciiString: AsciiString from TCollection)
43 returns ExtendedString from TCollection;
44
45
46 GUID(anXString: ExtendedString from TCollection)
47 returns GUID from Standard;
48
49 Find(aResourceManager: Manager from Resource; aResourceName: ExtendedString from TCollection)
50 returns Boolean from Standard;
51
52 Value(aResourceManager: Manager from Resource; aResourceName: ExtendedString from TCollection)
53 returns ExtendedString from TCollection;
54
55
56 IntegerValue(anExtendedString: ExtendedString from TCollection)
57 returns Integer from Standard;
58
59 CString(anExtendedString: ExtendedString from TCollection)
60 returns CString from Standard;
61
62 IsReadOnly(aFileName: ExtendedString from TCollection)
63 returns Boolean from Standard;
64
65end UTL;