1 # This file is part of NIT ( http://www.nitlanguage.org ).
3 # Copyright 2004-2008 Jean Privat <jean@pryen.org>
5 # Licensed under the Apache License, Version 2.0 (the "License");
6 # you may not use this file except in compliance with the License.
7 # You may obtain a copy of the License at
9 # http://www.apache.org/licenses/LICENSE-2.0
11 # Unless required by applicable law or agreed to in writing, software
12 # distributed under the License is distributed on an "AS IS" BASIS,
13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14 # See the License for the specific language governing permissions and
15 # limitations under the License.
18 #alt1 import standard::text::ropes
21 if not args
.is_empty
then
28 var s2
: Buffer = new FlatBuffer.from
("Je dis «")
29 #alt1 s2 = new RopeBuffer.from("Je dis «")
31 s2
.append
("» et redis «")
33 s2
.append
("» et deux fois de plus : «")
40 print
(s
.search_all
("Je dis «Je dis").length
)
45 var r
= s
.search_from
("Je dis «Je dis", j
)
46 if r
== null then break
53 for k
in [0..s
.length
[ do
55 if c
>= 'a' and c
<= 'z' then