🚀 go-pugleaf

In article <931372446.20517@news.Colorado.EDU>,
 <reti@wilson.ai.mit.edu> wrote:
>    Date: Wed, 7 Jul 1999 13:00 EDT
>    From: Jeff Barnett <jbarnett@godzilla.nrtc.northrop.com>
>
>    reti@wilson.ai.mit.edu wrote:
>
>    >     Date: Tue, 6 Jul 1999 18:21 EDT
>    >     From: Jeff Barnett <jbarnett@godzilla.nrtc.northrop.com>
>    >
>    >     I have the Exceed package on a PC. I would like
>    >     to use it to pop x-windows from my NXP1000 Lispms.
>    >     Everything almost works out of the box if I use
>    >     "start x etc." on the NXP1000 and specify the host
>    >     by its IP address. ALMOST, unfortunately does not
>    >     map any key on my standard 101/102 key keyboard
>    >     as a meta key. Do any of you have an implemented
>    >     solution to make this all work? If so, please
>    >     send any email that might be smashed by netscape,
>    >     etc., directly to
>    >              jeff@split.nrtc.nortrop.com
>    >     That is the address of one of the Lispms. Please
>    >     let me know that something has been sent via the
>    >     from (or reply-to address) on the msg you are
>    >     reading now. Thanks in advance for any assistance.
>    >
>    > What does
>    >
>    >    :show x keyboard mapping
>    >
>    > show on the NXP when using Exceed?  (I've used Exceed
>
>    It says: "The keyboard layout type is NIL. Since no specific
>    key binding has been defined for this layout type, the default
>    binding is being used."
>
>So you are using the default bindings.
>
>    >
>    > successfully, but in 8.5/Open Genera 2.0.)  If it shows
>    > the default keyboard mapping, adding a namespace entry
>    > for selecting which keyboard mapping to use might be a
>    > way to go. (I'm assuming you are using 8.3.)  There were
>
>    Yes, I'm using 8.3.
>
>    >
>    > mappings for NCD and NDS x terminals, which basically useI guess my
>
>    I guess my questions are do I have some such definition as part of 8.3;
>
>Probably (I don't have an 8.3 handy here), but you can find out what keyboard
>mappings are in your world with the following:
>
>(loop for x in x-screen::*keyboard-mappings* collect
>(x-screen::keyboard-mapping-name x))
>
>    If not where do I get one; In any event, exactly how do i cons the name
>    space object to properly use it?
>
>You add a user-property to the host object, here's an example:
>
>  User Property: KEYBOARD-LAYOUT-TYPE dec-lk401-aa
>
>Again, I'm relying on my memory (perhaps faulty) that the code to set
>the keyboard layout type from the namespace was in 8.3.
>

It appears to be in 8.3.  In 8.3 X11 x_console.lisp we find:

(defun-in-flavor (keyboard-layout-type x-console) ()
  (declare (values layout-type keycode-offset))
  (let ((keyboard-type  
      (loop for (key val) in (send host :user-property)
        when (eq key :keyboard-layout-type)
          thereis
            (let ((tokens (tokenize-user-property val)))
              (cond ((= (length tokens) 1)
                 (intern (string-upcase (first tokens)) "KEYWORD"))
                ((and (= (length tokens) 2)
                  (= (parse-integer (first tokens) :junk-allowed t)
                     display-number))
                 (intern (string-upcase (second tokens)) "KEYWORD")))))))

     ...

In 8.3 X11 keyboards.lisp, I see the following keyboard types:

  Symbolics
  sun-type-3
  sun-type-4
  sgi-iris
  ncd-n-101
  nds
  apple-extended

Under embedding, there is a pc_keyboards.lisp which defines:

  ibm-pc-usa
  ibm-pc-101-usa
  ibm-pc-102-unlegended
  ibm-pc-another-102-unlegended

Whether the ones immediately above apply to X11, or only to certain embedded
configurations, I am insufficiently informed to say.

Brad Yearwood   bny@sonic.net
Cotati, CA