mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 18:03:36 +00:00
c3fd4a0ab3
Explicitly use the target's char value range in the appropriate places instead of the host's char value range. The range of char values is the same for all existing targets, though, so this change mainly serves as documentation. compiler/string_encoding.m: Add `target_char_range' predicate. compiler/switch_util.m: compiler/type_util.m: Use the target char value range where appropriate. Delete XXXs.
80 lines
2.3 KiB
Mathematica
80 lines
2.3 KiB
Mathematica
%----------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et
|
|
%----------------------------------------------------------------------------%
|
|
% Copyright (C) 2015 The Mercury team.
|
|
% This file may only be copied under the terms of the GNU General
|
|
% Public License - see the file COPYING in the Mercury distribution.
|
|
%----------------------------------------------------------------------------%
|
|
|
|
:- module backend_libs.string_encoding.
|
|
:- interface.
|
|
|
|
:- import_module libs.
|
|
:- import_module libs.globals.
|
|
|
|
:- import_module list.
|
|
|
|
:- type string_encoding
|
|
---> utf8
|
|
; utf16.
|
|
|
|
:- pred target_char_range(compilation_target, int, int).
|
|
:- mode target_char_range(in, out, out) is det.
|
|
|
|
:- func target_string_encoding(compilation_target) = string_encoding.
|
|
|
|
:- pred to_code_unit_list(string_encoding::in, string::in, list(int)::out)
|
|
is det.
|
|
|
|
:- pred from_code_unit_list(string_encoding::in, list(int)::in, string::out)
|
|
is semidet.
|
|
|
|
%----------------------------------------------------------------------------%
|
|
%----------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- import_module string.
|
|
|
|
target_char_range(_Target, Min, Max) :-
|
|
% The range of `char' is the same for all existing targets.
|
|
Min = 0,
|
|
Max = 0x10ffff.
|
|
|
|
target_string_encoding(Target) = Encoding :-
|
|
(
|
|
( Target = target_c
|
|
; Target = target_erlang
|
|
),
|
|
Encoding = utf8
|
|
;
|
|
( Target = target_il
|
|
; Target = target_java
|
|
; Target = target_csharp
|
|
),
|
|
Encoding = utf16
|
|
).
|
|
|
|
to_code_unit_list(Encoding, String, CodeUnits) :-
|
|
(
|
|
Encoding = utf8,
|
|
string.to_utf8_code_unit_list(String, CodeUnits)
|
|
;
|
|
Encoding = utf16,
|
|
string.to_utf16_code_unit_list(String, CodeUnits)
|
|
).
|
|
|
|
from_code_unit_list(Encoding, CodeUnits, String) :-
|
|
require_complete_switch [Encoding]
|
|
(
|
|
Encoding = utf8,
|
|
string.from_utf8_code_unit_list(CodeUnits, String)
|
|
;
|
|
Encoding = utf16,
|
|
string.from_utf16_code_unit_list(CodeUnits, String)
|
|
).
|
|
|
|
%----------------------------------------------------------------------------%
|
|
:- end_module backend_libs.string_encoding.
|
|
%----------------------------------------------------------------------------%
|