From owner-freebsd-questions  Fri Apr 11 04:59:50 1997
Return-Path: <owner-questions>
Received: (from root@localhost)
          by freefall.freebsd.org (8.8.5/8.8.5) id EAA13681
          for questions-outgoing; Fri, 11 Apr 1997 04:59:50 -0700 (PDT)
Received: from mail.EUnet.hu (www.eunet.hu [193.225.28.100])
          by freefall.freebsd.org (8.8.5/8.8.5) with ESMTP id EAA13670
          for <freebsd-questions@freebsd.org>; Fri, 11 Apr 1997 04:59:35 -0700 (PDT)
Received: by mail.EUnet.hu, id NAA02913; Fri, 11 Apr 1997 13:58:51 +0200
Received: (from zgabor@localhost) by CoDe.hu (8.7.5/8.7.3) id NAA00864; Fri, 11 Apr 1997 13:03:10 +0200 (MET DST)
From: Zahemszky Gabor <zgabor@CoDe.hu>
Message-Id: <199704111103.NAA00864@CoDe.hu>
Subject: Re: Terminal input/output mapping tool
To: freebsd-questions@freebsd.org (FreeBSD questions)
Date: Fri, 11 Apr 1997 13:03:09 +0200 (MET DST)
Cc: ru@ucb.crimea.ua
In-Reply-To: <199704061844.VAA01495@relay.ucb.crimea.ua> from Ruslan Ermilov at "Apr 6, 97 09:44:50 pm"
X-Mailer: ELM [version 2.4ME+ PL11 (25)]
MIME-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
Sender: owner-questions@freebsd.org
X-Loop: FreeBSD.org
Precedence: bulk

> Hi!
> 
> Is there some tool like SysV' mapchan in FreeBSD or ports?

Yes, but as I know, it's not documented anywhere.  The vidcontrol(1)
manual says something about the -l screenmap option, but doesn't say what's
that.  So - on syscons, as I know, the screenmap is a 256 byte file, and if
you type the char which has code 135, the driver send the 135th char in that
file.  Not too much, and maybe incorrect, as I got it from the source, not
from the authors of syscons/vidcontrol.

Gabor
---
#!/bin/ksh
trap 'rm -f /tmp/$$.$$' EXIT HUP INT QUIT TERM&&print '21N16I25C25E30, 40M30E33E25T15U!'>/tmp/$$.$$&&IFS=' ABCDEFGHIJKLMNOPQRSTUVWXYZ '&&set -A X $(</tmp/$$.$$)&&IFS=' 0123456789 '&&set -A Y $(</tmp/$$.$$);IFS=' '&&set -- "${X[@]}"&&for i do [[ $i = ? ]]&&print $i&&continue;[[ $i = ??? ]]&&j=$i&&i=${i%?};typeset -i40 i=8#$i&&print -n ${i#???}&&[[ "$j" = ??? ]]&&print -n "${j#??} "&&unset j;typeset +i i;done;set -- "${Y[@]}"&&set -A X&&for i do [[ $i = , ]]&&i=2;[[ $i = ?? ]]||typeset -l i;set -A X "${X[@]}" $i&&typeset +l i;done&&set -- ${X[@]}&&print $*