head 1.1; branch 1.1.1; access; symbols netbsd-11-0-RC4:1.1.1.1 netbsd-11-0-RC3:1.1.1.1 netbsd-11-0-RC2:1.1.1.1 netbsd-11-0-RC1:1.1.1.1 netbsd-11:1.1.1.1.0.8 netbsd-11-base:1.1.1.1 xterm-397:1.1.1.1 netbsd-10-1-RELEASE:1.1.1.1 xterm-392:1.1.1.1 netbsd-8-3-RELEASE:1.1.1.1.4.2 netbsd-9-4-RELEASE:1.1.1.1.2.2 netbsd-10-0-RELEASE:1.1.1.1 netbsd-10-0-RC6:1.1.1.1 netbsd-10-0-RC5:1.1.1.1 netbsd-10-0-RC4:1.1.1.1 netbsd-10-0-RC3:1.1.1.1 netbsd-10-0-RC2:1.1.1.1 netbsd-10-0-RC1:1.1.1.1 xterm-382:1.1.1.1 netbsd-10:1.1.1.1.0.6 netbsd-10-base:1.1.1.1 netbsd-9-3-RELEASE:1.1.1.1.2.2 xterm-372:1.1.1.1 xterm-370:1.1.1.1 xterm-368:1.1.1.1 netbsd-9-2-RELEASE:1.1.1.1.2.2 xterm-367:1.1.1.1 netbsd-8:1.1.1.1.0.4 netbsd-9:1.1.1.1.0.2 xterm-366:1.1.1.1 xorg:1.1.1; locks; strict; comment @# @; 1.1 date 2021.02.11.12.19.55; author mrg; state Exp; branches 1.1.1.1; next ; commitid uqdG3YuikH8o0iHC; 1.1.1.1 date 2021.02.11.12.19.55; author mrg; state Exp; branches 1.1.1.1.2.1 1.1.1.1.4.1; next ; commitid uqdG3YuikH8o0iHC; 1.1.1.1.2.1 date 2021.02.11.12.19.55; author martin; state dead; branches; next 1.1.1.1.2.2; commitid BI7YP4R11SXiW2IC; 1.1.1.1.2.2 date 2021.02.17.09.45.01; author martin; state Exp; branches; next ; commitid BI7YP4R11SXiW2IC; 1.1.1.1.4.1 date 2021.02.11.12.19.55; author martin; state dead; branches; next 1.1.1.1.4.2; commitid AiVLYHEHTDVpY2IC; 1.1.1.1.4.2 date 2021.02.17.09.48.39; author martin; state Exp; branches; next ; commitid AiVLYHEHTDVpY2IC; desc @@ 1.1 log @Initial revision @ text @#!/usr/bin/env perl # $XTermId: mouse-codes,v 1.7 2020/12/13 15:07:02 tom Exp $ # ----------------------------------------------------------------------------- # this file is part of xterm # # Copyright 2018-2019,2020 by Thomas E. Dickey # # All Rights Reserved # # Permission is hereby granted, free of charge, to any person obtaining a # copy of this software and associated documentation files (the # "Software"), to deal in the Software without restriction, including # without limitation the rights to use, copy, modify, merge, publish, # distribute, sublicense, and/or sell copies of the Software, and to # permit persons to whom the Software is furnished to do so, subject to # the following conditions: # # The above copyright notice and this permission notice shall be included # in all copies or substantial portions of the Software. # # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS # OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF # MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. # IN NO EVENT SHALL THE ABOVE LISTED COPYRIGHT HOLDER(S) BE LIABLE FOR ANY # CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, # TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE # SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. # # Except as contained in this notice, the name(s) of the above copyright # holders shall not be used in advertising or otherwise to promote the # sale, use or other dealings in this Software without prior written # authorization. # ----------------------------------------------------------------------------- # Imitate xterm's BtnCode() function, to enumerate the possible inputs (button, # event state) versus output (xterm mouse-code). use strict; use warnings; use Getopt::Std; our ( $opt_b, $opt_i, $opt_x ); # Typically, # - Buttons 1, 2, and 3 are left-to-right assignments on a 3-button mouse. # - Buttons 4 and 5 are (by convention) assigned to a wheel mouse's # up/down events. # - Buttons 6 and 7 may happen to work, e.g., as left/right events from a # tiltable wheel mouse. There is no explicit support for these (there # are no related symbols in Xt), so it is not possible to use them in the # translations resource. our $maxbutton = 7; # xterm uses code 3 internally for release-events. sub ButtonName($) { my $code = shift; my $result = ""; if ( $code < 0 ) { $result = "release"; } else { $result = sprintf "Button%d", ( $code > 3 ) ? $code : ( $code + 1 ); } return $result; } # Combine the modifier state as bits: # shift key -> 1 # meta key -> 2 (Mod1 came from X11R1, but was adapted from X10) # control key -> 4 our $maxstates = 7; sub KeyState($) { my $mask = shift; my $result = ""; $result .= " + shift" if ( ( $mask & 1 ) != 0 ); $result .= " + meta" if ( ( $mask & 2 ) != 0 ); $result .= " + control" if ( ( $mask & 4 ) != 0 ); return $result; } sub Motion($) { my $code = shift; my $result = ""; $result = " + motion" if ( $code != 0 ); return $result; } sub report() { my $button; my $states; my $motion; my %encoded; my %reports; for $states ( 0 .. $maxstates ) { for $motion ( 0 .. 1 ) { for $button ( -1 .. $maxbutton ) { next if ( $button == 3 ); my $result = ( 32 + ( $states << 2 ) ); $result += 32 if ( $motion != 0 ); if ( $button < 0 ) { $result += 3; } else { $result += $button & 3; if ( $button & 4 ) { $result += 64; } if ( $button & 8 ) { $result += 128; } } my $code = sprintf "%3d", $result; my $report = sprintf "%s%s%s", &ButtonName($button), &KeyState($states), &Motion($motion); if ( defined $encoded{$code} ) { printf "OOPS %s ->%s versus %s\n", $code, $report, $encoded{$code}; } elsif ( $result > 255 and not defined $opt_x ) { printf "OOPS %s ->%s\n", $code, $report; } $encoded{$code} = $report; $reports{$report} = $result; } } } if ($opt_i) { foreach my $report ( sort keys %reports ) { printf "%s = %s\n", $report, $reports{$report}; } } else { foreach my $code ( sort keys %encoded ) { printf "%s = %s\n", $code, $encoded{$code}; } } } sub main::HELP_MESSAGE() { printf STDERR < 3 ) ? $code : ( $code + 1 ); } return $result; } # Combine the modifier state as bits: # shift key -> 1 # meta key -> 2 (Mod1 came from X11R1, but was adapted from X10) # control key -> 4 our $maxstates = 7; sub KeyState($) { my $mask = shift; my $result = ""; $result .= " + shift" if ( ( $mask & 1 ) != 0 ); $result .= " + meta" if ( ( $mask & 2 ) != 0 ); $result .= " + control" if ( ( $mask & 4 ) != 0 ); return $result; } sub Motion($) { my $code = shift; my $result = ""; $result = " + motion" if ( $code != 0 ); return $result; } sub report() { my $button; my $states; my $motion; my %encoded; my %reports; for $states ( 0 .. $maxstates ) { for $motion ( 0 .. 1 ) { for $button ( -1 .. $maxbutton ) { next if ( $button == 3 ); my $result = ( 32 + ( $states << 2 ) ); $result += 32 if ( $motion != 0 ); if ( $button < 0 ) { $result += 3; } else { $result += $button & 3; if ( $button & 4 ) { $result += 64; } if ( $button & 8 ) { $result += 128; } } my $code = sprintf "%3d", $result; my $report = sprintf "%s%s%s", &ButtonName($button), &KeyState($states), &Motion($motion); if ( defined $encoded{$code} ) { printf "OOPS %s ->%s versus %s\n", $code, $report, $encoded{$code}; } elsif ( $result > 255 and not defined $opt_x ) { printf "OOPS %s ->%s\n", $code, $report; } $encoded{$code} = $report; $reports{$report} = $result; } } } if ($opt_i) { foreach my $report ( sort keys %reports ) { printf "%s = %s\n", $report, $reports{$report}; } } else { foreach my $code ( sort keys %encoded ) { printf "%s = %s\n", $code, $encoded{$code}; } } } sub main::HELP_MESSAGE() { printf STDERR < 3 ) ? $code : ( $code + 1 ); } return $result; } # Combine the modifier state as bits: # shift key -> 1 # meta key -> 2 (Mod1 came from X11R1, but was adapted from X10) # control key -> 4 our $maxstates = 7; sub KeyState($) { my $mask = shift; my $result = ""; $result .= " + shift" if ( ( $mask & 1 ) != 0 ); $result .= " + meta" if ( ( $mask & 2 ) != 0 ); $result .= " + control" if ( ( $mask & 4 ) != 0 ); return $result; } sub Motion($) { my $code = shift; my $result = ""; $result = " + motion" if ( $code != 0 ); return $result; } sub report() { my $button; my $states; my $motion; my %encoded; my %reports; for $states ( 0 .. $maxstates ) { for $motion ( 0 .. 1 ) { for $button ( -1 .. $maxbutton ) { next if ( $button == 3 ); my $result = ( 32 + ( $states << 2 ) ); $result += 32 if ( $motion != 0 ); if ( $button < 0 ) { $result += 3; } else { $result += $button & 3; if ( $button & 4 ) { $result += 64; } if ( $button & 8 ) { $result += 128; } } my $code = sprintf "%3d", $result; my $report = sprintf "%s%s%s", &ButtonName($button), &KeyState($states), &Motion($motion); if ( defined $encoded{$code} ) { printf "OOPS %s ->%s versus %s\n", $code, $report, $encoded{$code}; } elsif ( $result > 255 and not defined $opt_x ) { printf "OOPS %s ->%s\n", $code, $report; } $encoded{$code} = $report; $reports{$report} = $result; } } } if ($opt_i) { foreach my $report ( sort keys %reports ) { printf "%s = %s\n", $report, $reports{$report}; } } else { foreach my $code ( sort keys %encoded ) { printf "%s = %s\n", $code, $encoded{$code}; } } } sub main::HELP_MESSAGE() { printf STDERR <