From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 13 May 1992 16:50:13 +0000 (+0000)
Subject: Add a primitive to set the keyboard modifier bit mask.
X-Git-Tag: 20090517-FFI~9411
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f13fdd1799acd34b70edf4f177ae94707356dc9b;p=mit-scheme.git

Add a primitive to set the keyboard modifier bit mask.
---

diff --git a/v7/src/microcode/prdosenv.c b/v7/src/microcode/prdosenv.c
index d22501b59..c420cc6d0 100644
--- a/v7/src/microcode/prdosenv.c
+++ b/v7/src/microcode/prdosenv.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/prdosenv.c,v 1.1 1992/05/05 06:55:13 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/prdosenv.c,v 1.2 1992/05/13 16:50:13 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -129,3 +129,16 @@ DEFINE_PRIMITIVE ("HOSTNAME", Prim_hostname, 0, 0,
   PRIMITIVE_RETURN
     (char_pointer_to_string ((unsigned char *) "IBMPC"));
 }
+
+DEFINE_PRIMITIVE ("DOS-SET-KEYBOARD-MODIFIER-MASK!", Prim_dos_set_kbd_mod_mask,
+		  1, 1,
+		  "Set the keyboard modifier mask")
+{
+  extern unsigned char EXFUN (dos_set_kbd_modifier_mask, (unsigned char));
+  PRIMITIVE_HEADER (1);
+  
+  PRIMITIVE_RETURN (long_to_integer
+		    ((long)
+		     (dos_set_kbd_modifier_mask ((unsigned char)
+						 (arg_integer (1))))));
+}