2 exec guile
-q -s "$0" "$@"
4 ;;; test-mb-regexp
--- A multibyte regexp
test
6 ;;; Copyright
(C
) 2010, 2011 Free Software Foundation
, Inc.
8 ;;; This library is free software
; you can redistribute it and
/or
9 ;;; modify it under the terms of the GNU Lesser General Public
10 ;;; License as published by the Free Software Foundation
; either
11 ;;; version
3 of the License
, or
(at your option
) any later version.
13 ;;; This library is distributed
in the hope that it will be useful
,
14 ;;; but WITHOUT ANY WARRANTY
; without even the implied warranty of
15 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 ;;; Lesser General Public License
for more details.
18 ;;; You should have received a copy of the GNU Lesser General Public
19 ;;; License along with this library
; if not
, write to the Free Software
20 ;;; Foundation
, Inc.
, 51 Franklin Street
, Fifth Floor
, Boston
, MA
02110-1301 USA
22 ;; This
test depends on not setting the locale
-- that multibyte
strings
23 ;; don
't trigger the abort in regexp.c:fixup_multibyte_match.
25 (use-modules (ice-9 regex))
30 (make-regexp "(.)(.)(.)")
31 (string (integer->char 200) #\x (integer->char 202)))