libgm2/libm2cor/KeyBoardLEDs.cc

   1 /* KeyBoardLEDs.c provide access to the keyboard LEDs.
   2
   3 Copyright (C) 2005-2022 Free Software Foundation, Inc.
   4 Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.
   5
   6 This file is part of GNU Modula-2.
   7
   8 GNU Modula-2 is free software; you can redistribute it and/or modify
   9 it under the terms of the GNU General Public License as published by
  10 the Free Software Foundation; either version 3, or (at your option)
  11 any later version.
  12
  13 GNU Modula-2 is distributed in the hope that it will be useful, but
  14 WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16 General Public License for more details.
  17
  18 Under Section 7 of GPL version 3, you are granted additional
  19 permissions described in the GCC Runtime Library Exception, version
  20 3.1, as published by the Free Software Foundation.
  21
  22 You should have received a copy of the GNU General Public License and
  23 a copy of the GCC Runtime Library Exception along with this program;
  24 see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  25 <http://www.gnu.org/licenses/>.  */
  26
  27 #include <config.h>
  28 #include <m2rts.h>
  29
  30 #define EXPORT(FUNC) m2cor ## _KeyBoardLEDs_ ## FUNC
  31 #define M2EXPORT(FUNC) m2cor ## _M2_KeyBoardLEDs_ ## FUNC
  32 #define M2LIBNAME "m2cor"
  33
  34 #if defined(linux)
  35
  36 #include <sys/types.h>
  37 #include <sys/stat.h>
  38 #include <fcntl.h>
  39 #include <linux/kd.h>
  40 #include <sys/ioctl.h>
  41 #include <stdio.h>
  42
  43 #include <stdlib.h>
  44
  45 static int fd;
  46 static bool initialized = false;
  47
  48
  49 void
  50 initialize_module (void)
  51 {
  52   if (! initialized)
  53     {
  54       initialized = true;
  55       fd = open ("/dev/tty", O_RDONLY);
  56       if (fd == -1)
  57         {
  58           perror ("unable to open /dev/tty");
  59           exit (1);
  60         }
  61     }
  62 }
  63
  64 extern "C" void
  65 EXPORT(SwitchScroll) (int scrolllock)
  66 {
  67   unsigned char leds;
  68
  69   initialize_module ();
  70   int r = ioctl (fd, KDGETLED, &leds);
  71   if (scrolllock)
  72     leds = leds | LED_SCR;
  73   else
  74     leds = leds & (~ LED_SCR);
  75   r = ioctl (fd, KDSETLED, leds);
  76 }
  77
  78 extern "C" void
  79 EXPORT(SwitchNum) (int numlock)
  80 {
  81   unsigned char leds;
  82
  83   initialize_module ();
  84   int r = ioctl (fd, KDGETLED, &leds);
  85   if (numlock)
  86     leds = leds | LED_NUM;
  87   else
  88     leds = leds & (~ LED_NUM);
  89   r = ioctl (fd, KDSETLED, leds);
  90 }
  91
  92 extern "C" void
  93 EXPORT(SwitchCaps) (int capslock)
  94 {
  95   unsigned char leds;
  96
  97   initialize_module ();
  98   int r = ioctl (fd, KDGETLED, &leds);
  99   if (capslock)
 100     leds = leds | LED_CAP;
 101   else
 102     leds = leds & (~ LED_CAP);
 103   r = ioctl (fd, KDSETLED, leds);
 104 }
 105
 106 extern "C" void
 107 EXPORT(SwitchLeds) (int numlock, int capslock, int scrolllock)
 108 {
 109   EXPORT(SwitchScroll) (scrolllock);
 110   EXPORT(SwitchNum) (numlock);
 111   EXPORT(SwitchCaps) (capslock);
 112 }
 113
 114 extern "C" void
 115 M2EXPORT(init) (int, char **, char **)
 116 {
 117 }
 118
 119 #else
 120 extern "C" void
 121 EXPORT(SwitchLeds) (int numlock, int capslock, int scrolllock)
 122 {
 123 }
 124
 125 extern "C" void
 126 EXPORT(SwitchScroll) (int scrolllock)
 127 {
 128 }
 129
 130 extern "C" void
 131 EXPORT(SwitchNum) (int numlock)
 132 {
 133 }
 134
 135 extern "C" void
 136 EXPORT(SwitchCaps) (int capslock)
 137 {
 138 }
 139
 140 extern "C" void
 141 M2EXPORT(init) (int, char **, char **)
 142 {
 143 }
 144 #endif
 145
 146 /* GNU Modula-2 linking hooks.  */
 147
 148 extern "C" void
 149 M2EXPORT(fini) (int, char **, char **)
 150 {
 151 }
 152
 153 extern "C" void
 154 M2EXPORT(dep) (void)
 155 {
 156 }
 157
 158 extern "C" void __attribute__((__constructor__))
 159 M2EXPORT(ctor) (void)
 160 {
 161   m2pim_M2RTS_RegisterModule ("KeyBoardLEDs", M2LIBNAME,
 162                               M2EXPORT(init), M2EXPORT(fini),
 163                               M2EXPORT(dep));
 164 }