src/Resource/Resource.cdl

   1 -- Created on: 1995-04-20
   2 -- Created by: Tony GEORGIADES
   3 -- Copyright (c) 1995-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 --              Modified Tue Sep 19 1995 by Jean-Louis Frenkel
  18 --              Modified Tue Jan 19 1999 by Louis Dusuzeau
  19
  20 package Resource
  21     ---Purpose: Resources management.
  22     --          A RESOURCE is a parameter saved on a file and used to
  23     --          initialize a variable.
  24
  25 uses
  26     TCollection,MMgt,SortTools,TColStd
  27 is
  28
  29    enumeration FormatType is
  30         SJIS,
  31         EUC,
  32         ANSI,
  33         GB
  34    end FormatType ;
  35         ---Purpose:
  36         -- List of non ASCII format types which may be
  37         -- converted into the Unicode 16 bits format type.
  38         -- Use the functions provided by the
  39         -- Resource_Unicode class to convert a string
  40         -- from one of these non ASCII format to Unicode, and vice versa.
  41
  42    imported DataMapOfAsciiStringAsciiString;
  43
  44    imported DataMapIteratorOfDataMapOfAsciiStringAsciiString;
  45
  46    imported DataMapOfAsciiStringExtendedString;
  47
  48    imported DataMapIteratorOfDataMapOfAsciiStringExtendedString;
  49
  50    class QuickSortOfArray1 instantiates
  51          QuickSort from SortTools(AsciiString from TCollection,
  52                                   Array1OfAsciiString from TColStd,
  53                                   LexicalCompare from Resource) ;
  54
  55 ---Class:
  56    class LexicalCompare ;
  57
  58    class Manager;
  59
  60    class Unicode;
  61
  62    exception NoSuchResource inherits NoSuchObject from Standard;
  63
  64 end Resource;