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;