mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-22 18:31:44 +00:00
46 lines
1.4 KiB
C
46 lines
1.4 KiB
C
/* $Id: kbdif.c,v 1.3 1999/05/31 23:35:35 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
|
static char *id = "$Id: kbdif.c,v 1.3 1999/05/31 23:35:35 sybalsky Exp $ Copyright (C) Venue";
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989, 1990, 1990, 1991, 1992, 1993, 1994, 1995 Venue. */
|
|
/* All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/* The contents of this file are proprietary information */
|
|
/* belonging to Venue, and are provided to you under license. */
|
|
/* They may not be further distributed or disclosed to third */
|
|
/* parties without the specific permission of Venue. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
/* * K Y E B O A R D I N T E R F A C E * */
|
|
|
|
#include "lispemul.h"
|
|
#include "dbprint.h"
|
|
#include "devif.h"
|
|
|
|
KbdInterfaceRec _curkbd;
|
|
KbdInterface currentkbd = &_curkbd;
|
|
|
|
#ifdef DOS
|
|
extern void Kbd_event();
|
|
extern void EnterDosKbd();
|
|
extern void ExitDosKbd();
|
|
extern unsigned long GenericReturnT();
|
|
#endif /* DOS */
|
|
|
|
make_kbd_instance(KbdInterface kbd) {
|
|
#ifdef DOS
|
|
kbd->device_event = &Kbd_event; /* */
|
|
kbd->device.enter = &EnterDosKbd;
|
|
kbd->device.exit = &ExitDosKbd;
|
|
kbd->device.before_raid = &ExitDosKbd;
|
|
kbd->device.after_raid = &EnterDosKbd;
|
|
kbd->device.active = FALSE;
|
|
#elif XWINDOW
|
|
#endif /* DOS or XWINDOW */
|
|
}
|