view src/libvterm/tbl2inc_c.pl @ 32473:c89816c3e2d7 v9.0.1568

patch 9.0.1568: with 'smoothscroll' cursor may move below botline Commit: https://github.com/vim/vim/commit/d49f646bf56b29d44bbb16e79bc877b59aab38ac Author: Luuk van Baal <luukvbaal@gmail.com> Date: Fri May 19 14:04:47 2023 +0100 patch 9.0.1568: with 'smoothscroll' cursor may move below botline Problem: With 'smoothscroll' cursor may move below botline. Solution: Call redraw_later() if needed, Compute cursor row with adjusted condition. (Luuk van Baal, closes #12415)
author Bram Moolenaar <Bram@vim.org>
date Fri, 19 May 2023 15:15:05 +0200
parents b8299e742f41
children
line wrap: on
line source

#!/usr/bin/perl

use strict;
use warnings;

my ( $encname ) = $ARGV[0] =~ m{/([^/.]+).tbl}
   or die "Cannot parse encoding name out of $ARGV[0]\n";

print <<"EOF";
static const struct StaticTableEncoding encoding_$encname = {
  {
    NULL, /* init */
    &decode_table /* decode */
  },
  {
EOF

my $row = 0;
while( <> ) {
   s/\s*#.*//; # strip comment

   if ($_ =~ m{^\d+/\d+}) {
     my ($up, $low) = ($_ =~ m{^(\d+)/(\d+)});
     my $thisrow = $up * 16 + $low;
     while ($row < $thisrow) {
	print "    0x0, /* $row */\n";
	++$row;
     }
   }

   s{^(\d+)/(\d+)}{""}e;                     # Remove 3/1
   s{ = }{""}e;                            # Remove " = "
   s{"(.)"}{sprintf "0x%04x", ord $1}e;      # Convert "A" to 0x41
   s{U\+}{0x};                               # Convert U+0041 to 0x0041

   s{$}{, /* $row */}; # append comma and index

   print "    $_";

   ++$row;
}

while ($row < 128) {
   print "    0x0, /* $row */\n";
   ++$row;
}

print <<"EOF";
  }
};
EOF