Mercurial > vim
annotate src/libvterm/find-wide-chars.pl @ 27517:f00a7a2bee21 v8.2.4286
patch 8.2.4286: Vim9: strict type checking after copy() and deepcopy()
Commit: https://github.com/vim/vim/commit/381692b6f1c2ec9b73a139500286ddc9347a1c01
Author: Bram Moolenaar <Bram@vim.org>
Date: Wed Feb 2 20:01:27 2022 +0000
patch 8.2.4286: Vim9: strict type checking after copy() and deepcopy()
Problem: Vim9: strict type checking after copy() and deepcopy().
Solution: Allow type to change after making a copy. (closes https://github.com/vim/vim/issues/9644)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Wed, 02 Feb 2022 21:15:03 +0100 |
parents | 55a373a243c0 |
children |
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; |