mirror of
https://github.com/Interlisp/maiko.git
synced 2026-04-18 16:27:14 +00:00
Reformat all C source files with Clang-format in Google style w/ 100 col width.
This commit is contained in:
Nick Briggs
144
src/kbdsubrs.c
Executable file → Normal file
144
src/kbdsubrs.c
Executable file → Normal file
@@ -1,9 +1,7 @@
|
||||
/* $Id: kbdsubrs.c,v 1.2 1999/01/03 02:07:10 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
/* $Id: kbdsubrs.c,v 1.2 1999/01/03 02:07:10 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
|
||||
*/
|
||||
static char *id = "$Id: kbdsubrs.c,v 1.2 1999/01/03 02:07:10 sybalsky Exp $ Copyright (C) Venue";
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
||||
@@ -18,10 +16,9 @@ static char *id = "$Id: kbdsubrs.c,v 1.2 1999/01/03 02:07:10 sybalsky Exp $ Copy
|
||||
|
||||
#include "version.h"
|
||||
|
||||
|
||||
#include <stdio.h>
|
||||
#ifdef DOS
|
||||
#include <time.h>
|
||||
#include <time.h>
|
||||
#include <conio.h>
|
||||
#else
|
||||
#include <sys/time.h>
|
||||
@@ -38,10 +35,10 @@ static char *id = "$Id: kbdsubrs.c,v 1.2 1999/01/03 02:07:10 sybalsky Exp $ Copy
|
||||
#include "lispemul.h"
|
||||
|
||||
#ifdef DOS
|
||||
#define PORT_A 0x60
|
||||
#define KBD_COMMAND_PORT 0x64
|
||||
#define KBD_ENABLE 0xAE
|
||||
#define KBD_DISABLE 0xAD
|
||||
#define PORT_A 0x60
|
||||
#define KBD_COMMAND_PORT 0x64
|
||||
#define KBD_ENABLE 0xAE
|
||||
#define KBD_DISABLE 0xAD
|
||||
|
||||
#include "devif.h"
|
||||
extern KbdInterface currentkbd;
|
||||
@@ -63,49 +60,44 @@ extern DspInterface currentdsp;
|
||||
extern struct screen LispScreen;
|
||||
#endif /* XWINDOW */
|
||||
|
||||
|
||||
#ifdef XWINDOW
|
||||
#include <X11/Xlib.h>
|
||||
#endif /* XWINDOW */
|
||||
|
||||
extern int LispWindowFd,
|
||||
LispReadFds;
|
||||
extern int LispWindowFd, LispReadFds;
|
||||
|
||||
extern int errno;
|
||||
|
||||
void KB_enable( args )
|
||||
LispPTR *args; /* args[0] : ON/OFF flag
|
||||
* T -- ON
|
||||
* NIL -- OFF
|
||||
*/
|
||||
void KB_enable(args) LispPTR *args; /* args[0] : ON/OFF flag
|
||||
* T -- ON
|
||||
* NIL -- OFF
|
||||
*/
|
||||
{
|
||||
if( args[0] == ATOM_T )
|
||||
if (args[0] == ATOM_T)
|
||||
#ifdef SUNDISPLAY
|
||||
LispReadFds |= 1<< LispWindowFd;
|
||||
LispReadFds |= 1 << LispWindowFd;
|
||||
#elif XWINDOW
|
||||
enable_Xkeyboard(currentdsp);
|
||||
enable_Xkeyboard(currentdsp);
|
||||
#elif DOS
|
||||
(currentkbd->device.enter)(currentkbd);
|
||||
/* outp( KBD_COMMAND_PORT, KBD_ENABLE); */
|
||||
(currentkbd->device.enter)(currentkbd);
|
||||
/* outp( KBD_COMMAND_PORT, KBD_ENABLE); */
|
||||
#endif /* DOS */
|
||||
|
||||
else if( args[0] == NIL )
|
||||
else if (args[0] == NIL)
|
||||
#ifdef SUNDISPLAY
|
||||
LispReadFds &= ~(1 << LispWindowFd);
|
||||
LispReadFds &= ~(1 << LispWindowFd);
|
||||
#elif XWINDOW
|
||||
disable_Xkeyboard(currentdsp);
|
||||
disable_Xkeyboard(currentdsp);
|
||||
#elif DOS
|
||||
(currentkbd->device.exit)(currentkbd);
|
||||
/* outp( KBD_COMMAND_PORT, KBD_DISABLE); */
|
||||
(currentkbd->device.exit)(currentkbd);
|
||||
/* outp( KBD_COMMAND_PORT, KBD_DISABLE); */
|
||||
#endif /* DOS */
|
||||
else{
|
||||
error("KB_enable: illegal arg \n");
|
||||
printf("KB_enable: arg = %d\n", args[0] );
|
||||
}
|
||||
else {
|
||||
error("KB_enable: illegal arg \n");
|
||||
printf("KB_enable: arg = %d\n", args[0]);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
/****************************************************
|
||||
*
|
||||
* KB_beep() entry of SUBRCALL 80 2
|
||||
@@ -114,63 +106,58 @@ LispPTR *args; /* args[0] : ON/OFF flag
|
||||
****************************************************/
|
||||
/*
|
||||
struct timeval belltime ={
|
||||
0,100
|
||||
0,100
|
||||
};
|
||||
*/
|
||||
extern int LispKbdFd;
|
||||
|
||||
#ifdef DOS
|
||||
int bell_status_word;
|
||||
int bell_status_word;
|
||||
#endif /* DOS */
|
||||
|
||||
void KB_beep( args )
|
||||
LispPTR *args; /* args[0] : ON/OFF flag
|
||||
* T -- ON
|
||||
* NIL -- OFF
|
||||
* args[1] : frequency
|
||||
*/
|
||||
void KB_beep(args) LispPTR *args; /* args[0] : ON/OFF flag
|
||||
* T -- ON
|
||||
* NIL -- OFF
|
||||
* args[1] : frequency
|
||||
*/
|
||||
{
|
||||
int keycommand;
|
||||
int keycommand;
|
||||
|
||||
#ifdef SUNDISPLAY
|
||||
/* belltime.tv_usec = args[1] & 0xffff;
|
||||
win_bell(LispWindowFd, belltime, 0);
|
||||
*/
|
||||
if( (LispKbdFd = open( LispScreen.scr_kbdname, O_RDWR)) == -1)
|
||||
fprintf( stderr, "can't open %s, errno=%d\n",
|
||||
LispScreen.scr_kbdname, errno);
|
||||
/* belltime.tv_usec = args[1] & 0xffff;
|
||||
win_bell(LispWindowFd, belltime, 0);
|
||||
*/
|
||||
if ((LispKbdFd = open(LispScreen.scr_kbdname, O_RDWR)) == -1)
|
||||
fprintf(stderr, "can't open %s, errno=%d\n", LispScreen.scr_kbdname, errno);
|
||||
|
||||
if( args[0] == ATOM_T ){
|
||||
keycommand = KBD_CMD_BELL; /* Turn on the bell */
|
||||
if(ioctl( LispKbdFd, KIOCCMD, &keycommand)== -1)
|
||||
fprintf( stderr, "Error at ioctl errno =%d\n", errno);
|
||||
}
|
||||
else{
|
||||
keycommand = KBD_CMD_NOBELL; /* Turn off the bell */
|
||||
if(ioctl( LispKbdFd, KIOCCMD, &keycommand)== -1)
|
||||
fprintf( stderr, "Error at ioctl errno =%d\n", errno);
|
||||
}
|
||||
if (args[0] == ATOM_T) {
|
||||
keycommand = KBD_CMD_BELL; /* Turn on the bell */
|
||||
if (ioctl(LispKbdFd, KIOCCMD, &keycommand) == -1)
|
||||
fprintf(stderr, "Error at ioctl errno =%d\n", errno);
|
||||
} else {
|
||||
keycommand = KBD_CMD_NOBELL; /* Turn off the bell */
|
||||
if (ioctl(LispKbdFd, KIOCCMD, &keycommand) == -1)
|
||||
fprintf(stderr, "Error at ioctl errno =%d\n", errno);
|
||||
}
|
||||
|
||||
close( LispKbdFd );
|
||||
close(LispKbdFd);
|
||||
|
||||
#elif XWINDOW
|
||||
if( args[0] == ATOM_T )
|
||||
beep_Xkeyboard(currentdsp);
|
||||
if (args[0] == ATOM_T) beep_Xkeyboard(currentdsp);
|
||||
#elif DOS
|
||||
if( args[0] == ATOM_T ){
|
||||
bell_status_word = inp( 0x61 );
|
||||
outp( 0x61, bell_status_word | 0x3 ); /* Turn on the speaker */
|
||||
if (args[0] == ATOM_T) {
|
||||
bell_status_word = inp(0x61);
|
||||
outp(0x61, bell_status_word | 0x3); /* Turn on the speaker */
|
||||
/* Prepare timer by sending 10111100 to port 43. */
|
||||
outp( 0x43, 0xb6 );
|
||||
outp(0x43, 0xb6);
|
||||
|
||||
/* Divide input frequency by timer ticks per second and
|
||||
* write (byte by byte) to timer. */
|
||||
outp( 0x42, (char)(1193180L / (LispIntToCInt(args[1]))) );
|
||||
outp( 0x42, (char)(1193180L / (LispIntToCInt(args[1])) >> 8) );
|
||||
outp(0x42, (char)(1193180L / (LispIntToCInt(args[1]))));
|
||||
outp(0x42, (char)(1193180L / (LispIntToCInt(args[1])) >> 8));
|
||||
} else {
|
||||
outp( 0x61, bell_status_word & ~0x3 ); /* Turn off the speaker (with */
|
||||
outp(0x61, bell_status_word & ~0x3); /* Turn off the speaker (with */
|
||||
/* bits 0 and 1). */
|
||||
|
||||
}
|
||||
#endif /* SUNDISPLAY, XWINDOW, DOS */
|
||||
}
|
||||
@@ -182,12 +169,10 @@ LispPTR *args; /* args[0] : ON/OFF flag
|
||||
*
|
||||
****************************************************/
|
||||
|
||||
void KB_setmp( args )
|
||||
LispPTR *args; /* args[0] : MPCODE */
|
||||
void KB_setmp(args) LispPTR *args; /* args[0] : MPCODE */
|
||||
{
|
||||
|
||||
#ifdef DEBUG
|
||||
printf("MP: %d\n", args[0] & 0xffff );
|
||||
#ifdef DEBUG
|
||||
printf("MP: %d\n", args[0] & 0xffff);
|
||||
#endif
|
||||
}
|
||||
|
||||
@@ -203,14 +188,11 @@ LispPTR *args; /* args[0] : MPCODE */
|
||||
*
|
||||
****************************************************/
|
||||
|
||||
void KB_setled( args )
|
||||
LispPTR *args;
|
||||
void KB_setled(args) LispPTR *args;
|
||||
{
|
||||
#ifdef DOS
|
||||
outp(PORT_A, (unsigned char)0xED);
|
||||
outp(PORT_A, (unsigned char)(((args[0] != NIL) << 2) |
|
||||
((args[1] != NIL) << 1) |
|
||||
(args[2] != NIL)));
|
||||
outp(PORT_A,
|
||||
(unsigned char)(((args[0] != NIL) << 2) | ((args[1] != NIL) << 1) | (args[2] != NIL)));
|
||||
#endif /* DOS */
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user