413 lines
9.2 KiB
C
413 lines
9.2 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[] = "from: @(#)apilib.c 4.2 (Berkeley) 4/26/91";*/
|
||
static char rcsid[] = "$Id: apilib.c,v 1.2 1993/08/01 18:06:20 mycroft Exp $";
|
||
#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;
|
||
}
|