Mercurial > vim

annotate src/libvterm/find-wide-chars.pl @ 23715:b6d8d9578375 v8.2.2399

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.2.2399: fold test fails in wide terminal Commit: https://github.com/vim/vim/commit/7cf0c114d690c91ac88c92a1a6f1b1935cb6410f Author: Bram Moolenaar <Bram@vim.org> Date: Sun Jan 24 12:00:01 2021 +0100 patch 8.2.2399: fold test fails in wide terminal Problem: Fold test fails in wide terminal. Solution: Adjust the test. (Dominique Pelle, closes https://github.com/vim/vim/issues/7731, closes https://github.com/vim/vim/issues/7739)
author Bram Moolenaar <Bram@vim.org>
date Sun, 24 Jan 2021 12:15:04 +0100
parents 55a373a243c0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
20443
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1 #!/usr/bin/perl
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
3 use strict;
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4 use warnings;
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
6 STDOUT->autoflush(1);
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
7
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
8 sub iswide
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
9 {
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
10 my ( $cp ) = @_;
20498
55a373a243c0 patch 8.2.0803: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents: 20443
diff changeset
11 return chr($cp) =~ m/\p{East_Asian_Width=Wide}|\p{East_Asian_Width=Fullwidth}/;
20443
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
12 }
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
13
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
14 my ( $start, $end );
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
15 foreach my $cp ( 0 .. 0x1FFFF ) {
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
16 iswide($cp) or next;
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
17
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
18 if( defined $end and $end == $cp-1 ) {
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
19 # extend the range
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
20 $end = $cp;
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
21 next;
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
22 }
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
23
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
24 # start a new range
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
25 printf " { %#04x, %#04x },\n", $start, $end if defined $start;
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
26
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
27 $start = $end = $cp;
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
28 }
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
29
e02d45e302a2 patch 8.2.0776: libvterm code lags behind the upstream version
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
30 printf " { %#04x, %#04x },\n", $start, $end if defined $start;