412 lines
9.1 KiB
C
412 lines
9.1 KiB
C
|
/*-
|
|||
|
|
* Copyright (c) 1988 The Regents of the University of California.
|
|||
|
|
* All rights reserved.
|
|||
|
|
*
|
|||
|
|
* Redistribution and use in source and binary forms, with or without
|
|||
|
|
* modification, are permitted provided that the following conditions
|
|||
|
|
* are met:
|
|||
|
|
* 1. Redistributions of source code must retain the above copyright
|
|||
|
|
* notice, this list of conditions and the following disclaimer.
|
|||
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|||
|
|
* notice, this list of conditions and the following disclaimer in the
|
|||
|
|
* documentation and/or other materials provided with the distribution.
|
|||
|
|
* 3. All advertising materials mentioning features or use of this software
|
|||
|
|
* must display the following acknowledgement:
|
|||
|
|
* This product includes software developed by the University of
|
|||
|
|
* California, Berkeley and its contributors.
|
|||
|
|
* 4. Neither the name of the University nor the names of its contributors
|
|||
|
|
* may be used to endorse or promote products derived from this software
|
|||
|
|
* without specific prior written permission.
|
|||
|
|
*
|
|||
|
|
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
|
|||
|
|
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|||
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|||
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
|
|||
|
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|||
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|||
|
|
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|||
|
|
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|||
|
|
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|||
|
|
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|||
|
|
* SUCH DAMAGE.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
#ifndef lint
|
|||
|
|
static char sccsid[] = "@(#)apilib.c 4.2 (Berkeley) 4/26/91";
|
|||
|
|
#endif /* not lint */
|
|||
|
|
|
|||
|
|
#include "../ctlr/api.h"
|
|||
|
|
|
|||
|
|
#include "apilib.h"
|
|||
|
|
|
|||
|
|
int
|
|||
|
|
api_sup_errno = 0, /* Supervisor error number */
|
|||
|
|
api_sup_fcn_id = 0, /* Supervisor function id (0x12) */
|
|||
|
|
api_fcn_errno = 0, /* Function error number */
|
|||
|
|
api_fcn_fcn_id = 0; /* Function ID (0x6b, etc.) */
|
|||
|
|
|
|||
|
|
static int
|
|||
|
|
gate_sessmgr = 0,
|
|||
|
|
gate_keyboard = 0,
|
|||
|
|
gate_copy = 0,
|
|||
|
|
gate_oiam = 0;
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* Issue an API request, with reg structures supplied by the caller.
|
|||
|
|
*
|
|||
|
|
* Only certain routines need this (supervisor services come to mind).
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
static int
|
|||
|
|
api_issue_regs(ah, al, bh, bl, cx, dx, parms, length, regs, sregs)
|
|||
|
|
int ah, al, bh, bl, cx, dx;
|
|||
|
|
char *parms;
|
|||
|
|
int length;
|
|||
|
|
union REGS *regs;
|
|||
|
|
struct SREGS *sregs;
|
|||
|
|
{
|
|||
|
|
char far *ourseg = parms;
|
|||
|
|
|
|||
|
|
regs->h.ah = ah;
|
|||
|
|
regs->h.al = al;
|
|||
|
|
regs->h.bh = bh;
|
|||
|
|
regs->h.bl = bl;
|
|||
|
|
regs->x.cx = cx;
|
|||
|
|
regs->x.dx = dx;
|
|||
|
|
sregs->es = FP_SEG(ourseg);
|
|||
|
|
regs->x.di = FP_OFF(ourseg);
|
|||
|
|
|
|||
|
|
#if defined(MSDOS)
|
|||
|
|
int86x(API_INTERRUPT_NUMBER, regs, regs, sregs);
|
|||
|
|
#endif /* defined(MSDOS) */
|
|||
|
|
#if defined(unix)
|
|||
|
|
api_exch_api(regs, sregs, parms, length);
|
|||
|
|
#endif /* defined(unix) */
|
|||
|
|
|
|||
|
|
if (regs->h.cl != 0) {
|
|||
|
|
api_sup_errno = regs->h.cl;
|
|||
|
|
return -1;
|
|||
|
|
} else {
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* Issue an API request without requiring caller to supply
|
|||
|
|
* registers. Most routines use this.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
static int
|
|||
|
|
api_issue(ah, al, bh, bl, cx, dx, parms, length)
|
|||
|
|
int
|
|||
|
|
ah,
|
|||
|
|
al,
|
|||
|
|
bh,
|
|||
|
|
bl,
|
|||
|
|
cx,
|
|||
|
|
dx;
|
|||
|
|
char *parms;
|
|||
|
|
int length; /* Length of parms */
|
|||
|
|
{
|
|||
|
|
union REGS regs;
|
|||
|
|
struct SREGS sregs;
|
|||
|
|
|
|||
|
|
return api_issue_regs(ah, al, bh, bl, cx, dx, parms, length, ®s, &sregs);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* Supervisor Services
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
int
|
|||
|
|
api_name_resolve(name)
|
|||
|
|
char *name;
|
|||
|
|
{
|
|||
|
|
NameResolveParms parms;
|
|||
|
|
int i;
|
|||
|
|
union REGS regs;
|
|||
|
|
struct SREGS sregs;
|
|||
|
|
|
|||
|
|
for (i = 0; i < sizeof parms.gate_name; i++) {
|
|||
|
|
if (*name) {
|
|||
|
|
parms.gate_name[i] = *name++;
|
|||
|
|
} else {
|
|||
|
|
parms.gate_name[i] = ' ';
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (api_issue_regs(NAME_RESOLUTION, 0, 0, 0, 0, 0, (char *) &parms,
|
|||
|
|
sizeof parms, ®s, &sregs) == -1) {
|
|||
|
|
return -1;
|
|||
|
|
} else {
|
|||
|
|
return regs.x.dx;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
#if defined(unix)
|
|||
|
|
/*
|
|||
|
|
* Block until the oia or ps is modified.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
int
|
|||
|
|
api_ps_or_oia_modified()
|
|||
|
|
{
|
|||
|
|
union REGS regs;
|
|||
|
|
struct SREGS sregs;
|
|||
|
|
|
|||
|
|
if (api_issue_regs(PS_OR_OIA_MODIFIED, 0, 0, 0, 0, 0, (char *) 0,
|
|||
|
|
0, ®s, &sregs) == -1) {
|
|||
|
|
return -1;
|
|||
|
|
} else {
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
#endif /* defined(unix) */
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* Session Information Services
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
api_query_session_id(parms)
|
|||
|
|
QuerySessionIdParms *parms;
|
|||
|
|
{
|
|||
|
|
if (api_issue(0x09, QUERY_SESSION_ID, 0x80, 0x20, 0,
|
|||
|
|
gate_sessmgr, (char *)parms, sizeof *parms) == -1) {
|
|||
|
|
api_fcn_errno = 0;
|
|||
|
|
api_fcn_fcn_id = 0;
|
|||
|
|
return -1;
|
|||
|
|
} else if (parms->rc == 0) {
|
|||
|
|
return 0;
|
|||
|
|
} else {
|
|||
|
|
api_fcn_errno = parms->rc;
|
|||
|
|
api_fcn_fcn_id = parms->function_id;
|
|||
|
|
return -1;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
api_query_session_parameters(parms)
|
|||
|
|
QuerySessionParametersParms *parms;
|
|||
|
|
{
|
|||
|
|
if (api_issue(0x09, QUERY_SESSION_PARAMETERS, 0x80, 0x20, 0,
|
|||
|
|
gate_sessmgr, (char *)parms, sizeof *parms) == -1) {
|
|||
|
|
api_fcn_errno = 0;
|
|||
|
|
api_fcn_fcn_id = 0;
|
|||
|
|
return -1;
|
|||
|
|
} else if (parms->rc == 0) {
|
|||
|
|
return 0;
|
|||
|
|
} else {
|
|||
|
|
api_fcn_errno = parms->rc;
|
|||
|
|
api_fcn_fcn_id = parms->function_id;
|
|||
|
|
return -1;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
api_query_session_cursor(parms)
|
|||
|
|
QuerySessionCursorParms *parms;
|
|||
|
|
{
|
|||
|
|
if (api_issue(0x09, QUERY_SESSION_CURSOR, 0x80, 0x20, 0xff,
|
|||
|
|
gate_sessmgr, (char *)parms, sizeof *parms) == -1) {
|
|||
|
|
api_fcn_errno = 0;
|
|||
|
|
api_fcn_fcn_id = 0;
|
|||
|
|
return -1;
|
|||
|
|
} else if (parms->rc == 0) {
|
|||
|
|
return 0;
|
|||
|
|
} else {
|
|||
|
|
api_fcn_errno = parms->rc;
|
|||
|
|
api_fcn_fcn_id = parms->function_id;
|
|||
|
|
return -1;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* Keyboard Services
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
api_connect_to_keyboard(parms)
|
|||
|
|
ConnectToKeyboardParms *parms;
|
|||
|
|
{
|
|||
|
|
if (api_issue(0x09, CONNECT_TO_KEYBOARD, 0x80, 0x20, 0,
|
|||
|
|
gate_keyboard, (char *)parms, sizeof *parms) == -1) {
|
|||
|
|
api_fcn_errno = 0;
|
|||
|
|
api_fcn_fcn_id = 0;
|
|||
|
|
return -1;
|
|||
|
|
} else if (parms->rc == 0) {
|
|||
|
|
return 0;
|
|||
|
|
} else {
|
|||
|
|
api_fcn_errno = parms->rc;
|
|||
|
|
api_fcn_fcn_id = parms->function_id;
|
|||
|
|
return -1;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
api_disconnect_from_keyboard(parms)
|
|||
|
|
DisconnectFromKeyboardParms *parms;
|
|||
|
|
{
|
|||
|
|
if (api_issue(0x09, DISCONNECT_FROM_KEYBOARD, 0x80, 0x20, 0,
|
|||
|
|
gate_keyboard, (char *)parms, sizeof *parms) == -1) {
|
|||
|
|
api_fcn_errno = 0;
|
|||
|
|
api_fcn_fcn_id = 0;
|
|||
|
|
return -1;
|
|||
|
|
} else if (parms->rc == 0) {
|
|||
|
|
return 0;
|
|||
|
|
} else {
|
|||
|
|
api_fcn_errno = parms->rc;
|
|||
|
|
api_fcn_fcn_id = parms->function_id;
|
|||
|
|
return -1;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
api_write_keystroke(parms)
|
|||
|
|
WriteKeystrokeParms *parms;
|
|||
|
|
{
|
|||
|
|
if (api_issue(0x09, WRITE_KEYSTROKE, 0x80, 0x20, 0,
|
|||
|
|
gate_keyboard, (char *)parms, sizeof *parms) == -1) {
|
|||
|
|
api_fcn_errno = 0;
|
|||
|
|
api_fcn_fcn_id = 0;
|
|||
|
|
return -1;
|
|||
|
|
} else if (parms->rc == 0) {
|
|||
|
|
return 0;
|
|||
|
|
} else {
|
|||
|
|
api_fcn_errno = parms->rc;
|
|||
|
|
api_fcn_fcn_id = parms->function_id;
|
|||
|
|
return -1;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
api_disable_input(parms)
|
|||
|
|
DisableInputParms *parms;
|
|||
|
|
{
|
|||
|
|
if (api_issue(0x09, DISABLE_INPUT, 0x80, 0x20, 0,
|
|||
|
|
gate_keyboard, (char *)parms, sizeof *parms) == -1) {
|
|||
|
|
api_fcn_errno = 0;
|
|||
|
|
api_fcn_fcn_id = 0;
|
|||
|
|
return -1;
|
|||
|
|
} else if (parms->rc == 0) {
|
|||
|
|
return 0;
|
|||
|
|
} else {
|
|||
|
|
api_fcn_errno = parms->rc;
|
|||
|
|
api_fcn_fcn_id = parms->function_id;
|
|||
|
|
return -1;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
api_enable_input(parms)
|
|||
|
|
EnableInputParms *parms;
|
|||
|
|
{
|
|||
|
|
if (api_issue(0x09, ENABLE_INPUT, 0x80, 0x20, 0,
|
|||
|
|
gate_keyboard, (char *)parms, sizeof *parms) == -1) {
|
|||
|
|
api_fcn_errno = 0;
|
|||
|
|
api_fcn_fcn_id = 0;
|
|||
|
|
return -1;
|
|||
|
|
} else if (parms->rc == 0) {
|
|||
|
|
return 0;
|
|||
|
|
} else {
|
|||
|
|
api_fcn_errno = parms->rc;
|
|||
|
|
api_fcn_fcn_id = parms->function_id;
|
|||
|
|
return -1;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* Copy Services
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
api_copy_string(parms)
|
|||
|
|
CopyStringParms *parms;
|
|||
|
|
{
|
|||
|
|
if (api_issue(0x09, COPY_STRING, 0x80, 0x20, 0xff,
|
|||
|
|
gate_copy, (char *)parms, sizeof *parms) == -1) {
|
|||
|
|
api_fcn_errno = 0;
|
|||
|
|
api_fcn_fcn_id = 0;
|
|||
|
|
return -1;
|
|||
|
|
} else if (parms->rc == 0) {
|
|||
|
|
return 0;
|
|||
|
|
} else {
|
|||
|
|
api_fcn_errno = parms->rc;
|
|||
|
|
api_fcn_fcn_id = parms->function_id;
|
|||
|
|
return -1;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* Operator Information Area Services
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
api_read_oia_group(parms)
|
|||
|
|
ReadOiaGroupParms *parms;
|
|||
|
|
{
|
|||
|
|
if (api_issue(0x09, READ_OIA_GROUP, 0x80, 0x20, 0xff,
|
|||
|
|
gate_oiam, (char *)parms, sizeof *parms) == -1) {
|
|||
|
|
api_fcn_errno = 0;
|
|||
|
|
api_fcn_fcn_id = 0;
|
|||
|
|
return -1;
|
|||
|
|
} else if (parms->rc == 0) {
|
|||
|
|
return 0;
|
|||
|
|
} else {
|
|||
|
|
api_fcn_errno = parms->rc;
|
|||
|
|
api_fcn_fcn_id = parms->function_id;
|
|||
|
|
return -1;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* The "we are done" routine. This gets called last.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
api_finish()
|
|||
|
|
{
|
|||
|
|
#if defined(unix)
|
|||
|
|
if (api_close_api() == -1) {
|
|||
|
|
return -1;
|
|||
|
|
} else {
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
#endif /* defined(unix) */
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* The initialization routine. Be sure to call this first.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
api_init()
|
|||
|
|
{
|
|||
|
|
#if defined(MSDOS)
|
|||
|
|
union REGS regs;
|
|||
|
|
struct SREGS sregs;
|
|||
|
|
|
|||
|
|
regs.h.ah = 0x35;
|
|||
|
|
regs.h.al = API_INTERRUPT_NUMBER;
|
|||
|
|
intdosx(®s, ®s, &sregs);
|
|||
|
|
|
|||
|
|
if ((regs.x.bx == 0) && (sregs.es == 0)) {
|
|||
|
|
return 0; /* Interrupt not being handled */
|
|||
|
|
}
|
|||
|
|
#endif /* defined(MSDOS) */
|
|||
|
|
#if defined(unix)
|
|||
|
|
if (api_open_api((char *)0) == -1) {
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
#endif /* defined(unix) */
|
|||
|
|
|
|||
|
|
gate_sessmgr = api_name_resolve("SESSMGR");
|
|||
|
|
gate_keyboard = api_name_resolve("KEYBOARD");
|
|||
|
|
gate_copy = api_name_resolve("COPY");
|
|||
|
|
gate_oiam = api_name_resolve("OIAM");
|
|||
|
|
|
|||
|
|
if ((gate_sessmgr == gate_keyboard) ||
|
|||
|
|
(gate_sessmgr == gate_copy) ||
|
|||
|
|
(gate_sessmgr == gate_oiam) ||
|
|||
|
|
(gate_keyboard == gate_copy) ||
|
|||
|
|
(gate_keyboard == gate_oiam) ||
|
|||
|
|
(gate_copy == gate_oiam)) {
|
|||
|
|
return 0; /* Interrupt doesn't seem correct */
|
|||
|
|
}
|
|||
|
|
return 1;
|
|||
|
|
}
|