1 # This file is part of NIT ( http://www.nitlanguage.org ).
3 # Licensed under the Apache License, Version 2.0 (the "License");
4 # you may not use this file except in compliance with the License.
5 # You may obtain a copy of the License at
7 # http://www.apache.org/licenses/LICENSE-2.0
9 # Unless required by applicable law or agreed to in writing, software
10 # distributed under the License is distributed on an "AS IS" BASIS,
11 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
12 # See the License for the specific language governing permissions and
13 # limitations under the License.
16 #alt1 intrude import core::text::ropes
17 #alt2 intrude import core::text::ropes
19 var ons
= new CString(9)
20 var base_str
= "%Dégâštr"
22 var str
: String = base_str
23 #alt1 str = new Concat(base_str, base_str)
24 #alt2 str = new Concat(base_str, base_str.substring_from(2))
26 var copy_len
= (str
.byte_length
- 4).min
(9)
27 str
.copy_to_native
(ons
, copy_len
, 4, 0)
28 print ons
.to_s_unsafe
(copy_len
, copy
=false)