b311480e |
1 | -- Created on: 1995-04-20 |
2 | -- Created by: Tony GEORGIADES |
3 | -- Copyright (c) 1995-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. |
b311480e |
16 | |
7fd59977 |
17 | -- Modified Tue Sep 19 1995 by Jean-Louis Frenkel |
18 | -- Modified Tue Jan 19 1999 by Louis Dusuzeau |
7fd59977 |
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 | |
df8d3970 |
42 | imported DataMapOfAsciiStringAsciiString; |
7fd59977 |
43 | |
df8d3970 |
44 | imported DataMapIteratorOfDataMapOfAsciiStringAsciiString; |
45 | |
46 | imported DataMapOfAsciiStringExtendedString; |
47 | |
48 | imported DataMapIteratorOfDataMapOfAsciiStringExtendedString; |
7fd59977 |
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; |
7fd59977 |
59 | |
60 | class Unicode; |
61 | |
62 | exception NoSuchResource inherits NoSuchObject from Standard; |
63 | |
64 | end Resource; |