← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/mit-scheme/intrepid-updates

« back to all changes in this revision

Viewing changes to src/microcode/x11base.c

  • Committer: Bazaar Package Importer
  • Author(s): Chris Hanson
  • Date: 2005-01-18 00:33:57 UTC
  • mfrom: (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20050118003357-pv3i8iqlm5m80tl5
Tags: 7.7.90-5
http://bugs.debian.org/290845
* Add "libx11-dev" to build-depends.  (closes: Bug#290845)
* Fix debian/control and debian/menu to eliminate some lintian errors
  and warnings.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/microcode/x11base.c
1
1
/* -*-C-*-
2
2
 
3
 
$Id: x11base.c,v 1.77 2001/07/02 01:55:25 cph Exp $
4
 
 
5
 
Copyright (c) 1989-2001 Massachusetts Institute of Technology
6
 
 
7
 
This program is free software; you can redistribute it and/or modify
 
3
$Id: x11base.c,v 1.80 2003/04/25 03:08:04 cph Exp $
 
4
 
 
5
Copyright 1989,1990,1991,1992,1993,1994 Massachusetts Institute of Technology
 
6
Copyright 1995,1996,1997,1998,2000,2001 Massachusetts Institute of Technology
 
7
Copyright 2003 Massachusetts Institute of Technology
 
8
 
 
9
This file is part of MIT/GNU Scheme.
 
10
 
 
11
MIT/GNU Scheme is free software; you can redistribute it and/or modify
8
12
it under the terms of the GNU General Public License as published by
9
13
the Free Software Foundation; either version 2 of the License, or (at
10
14
your option) any later version.
11
15
 
12
 
This program is distributed in the hope that it will be useful, but
 
16
MIT/GNU Scheme is distributed in the hope that it will be useful, but
13
17
WITHOUT ANY WARRANTY; without even the implied warranty of
14
18
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15
19
General Public License for more details.
16
20
 
17
21
You should have received a copy of the GNU General Public License
18
 
along with this program; if not, write to the Free Software
 
22
along with MIT/GNU Scheme; if not, write to the Free Software
19
23
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
20
24
USA.
 
25
 
21
26
*/
22
27
 
23
28
/* Common X11 support. */
949
954
  if (state & ControlMask) bucky |= 0x0002; /* control */
950
955
  if (state & Mod2Mask)    bucky |= 0x0004; /* super */
951
956
  if (state & Mod3Mask)    bucky |= 0x0008; /* hyper */
952
 
  if (state & Mod4Mask)    bucky |= 0x0010; /* top */
953
957
  if (allp)
954
958
    {
955
 
      if (state & ShiftMask)   bucky |= 0x0020;
956
 
      if (state & LockMask)    bucky |= 0x0040;
957
 
      if (state & Mod2Mask)    bucky |= 0x0080;
958
 
      if (state & Mod5Mask)    bucky |= 0x0100;
959
 
      if (state & Button1Mask) bucky |= 0x0200;
960
 
      if (state & Button2Mask) bucky |= 0x0400;
961
 
      if (state & Button3Mask) bucky |= 0x0800;
962
 
      if (state & Button4Mask) bucky |= 0x1000;
963
 
      if (state & Button5Mask) bucky |= 0x2000;
 
959
      if (state & ShiftMask)   bucky |= 0x0010;
 
960
      if (state & LockMask)    bucky |= 0x0020;
 
961
      if (state & Mod4Mask)    bucky |= 0x0040;
 
962
      if (state & Mod5Mask)    bucky |= 0x0080;
 
963
      if (state & Button1Mask) bucky |= 0x0100;
 
964
      if (state & Button2Mask) bucky |= 0x0200;
 
965
      if (state & Button3Mask) bucky |= 0x0400;
 
966
      if (state & Button4Mask) bucky |= 0x0800;
 
967
      if (state & Button5Mask) bucky |= 0x1000;
964
968
    }
965
969
  return (LONG_TO_UNSIGNED_FIXNUM (bucky));
966
970
}