0022484: UNICODE characters support
[occt.git] / src / UTL / UTL.cdl
1 -- Created on: 1997-11-21
2 -- Created by: Mister rmi
3 -- Copyright (c) 1997-1999 Matra Datavision
4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
5 --
6 -- This file is part of Open CASCADE Technology software library.
7 --
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
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.
13 --
14 -- Alternatively, this file may be used under the terms of Open CASCADE
15 -- commercial license or contractual agreement.
16
17 package UTL
18 uses Resource, TCollection,Storage, OSD
19 is
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     
27     AddToUserInfo(aData: Data from Storage; anInfo: ExtendedString from TCollection);
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     
65 end UTL;