Install sccs headers and copyright notices.

[unix-history] / usr / src / usr.bin / tn3270 / api / apilib.c

diff --git a/usr/src/usr.bin/tn3270/api/apilib.c b/usr/src/usr.bin/tn3270/api/apilib.c
index b295085..f27fc20 100644 (file)
--- a/usr/src/usr.bin/tn3270/api/apilib.c
+++ b/usr/src/usr.bin/tn3270/api/apilib.c
@@ -1,12 +1,92 @@
-#define        LINT_ARGS
-#include <stdio.h>
+/*
+ *     Copyright (c) 1984-1987 by the Regents of the
+ *     University of California and by Gregory Glenn Minshall.
+ *
+ *     Permission to use, copy, modify, and distribute these
+ *     programs and their documentation for any purpose and
+ *     without fee is hereby granted, provided that this
+ *     copyright and permission appear on all copies and
+ *     supporting documentation, the name of the Regents of
+ *     the University of California not be used in advertising
+ *     or publicity pertaining to distribution of the programs
+ *     without specific prior permission, and notice be given in
+ *     supporting documentation that copying and distribution is
+ *     by permission of the Regents of the University of California
+ *     and by Gregory Glenn Minshall.  Neither the Regents of the
+ *     University of California nor Gregory Glenn Minshall make
+ *     representations about the suitability of this software
+ *     for any purpose.  It is provided "as is" without
+ *     express or implied warranty.
+ */

 
 

-#include "../api/api.h"
+#ifndef lint
+static char sccsid[] = "@(#)apilib.c   1.10 (Berkeley) %G%";
+#endif /* not lint */

 
 

-int api_sup_errno = 0;
+#include "../ctlr/api.h"
+
+#include "apilib.h"

 
 int
 
 int

-api_issue(ah, al, bh, bl, cx, dx, parms)
+    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 = (int) FP_SEG(ourseg);
+    regs->x.di = (int) 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,
 int
     ah,
     al,


@@ -15,33 +95,17 @@ int
     cx,
     dx;
 char *parms;
     cx,
     dx;
 char *parms;

+int length;                            /* Length of parms */

 {
     union REGS regs;
     struct SREGS sregs;
 {
     union REGS regs;
     struct SREGS sregs;

-    static int oures = 0;
-
-    if (oures == 0) {
-       segread(&sregs);
-       oures = sregs.es;
-    }
-    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 = oures;
-    regs.x.di = (int) parms;

 
 

-    int86x(API_INTERRUPT_NUMBER, &regs, &regs, &sregs);
-    if (regs.h.cl != 0) {
-       api_sup_errno = regs.h.cl;
-       return -1;
-    } else {
-       return 0;
-    }
+    return api_issue_regs(ah, al, bh, bl, cx, dx, parms, length, &regs, &sregs);

 }
 }

-
+\f
+/*
+ * Supervisor Services
+ */

 
 int
 api_name_resolve(name)
 
 int
 api_name_resolve(name)


@@ -51,7 +115,6 @@ char *name;
     int i;
     union REGS regs;
     struct SREGS sregs;
     int i;
     union REGS regs;
     struct SREGS sregs;

-    static int oures = 0;

 
     for (i = 0; i < sizeof parms.gate_name; i++) {
        if (*name) {
 
     for (i = 0; i < sizeof parms.gate_name; i++) {
        if (*name) {


@@ -61,24 +124,276 @@ char *name;
        }
     }
 
        }
     }
 

-    if (oures == 0) {
-       segread(&sregs);
-       oures = sregs.es;
+    if (api_issue_regs(NAME_RESOLUTION, 0, 0, 0, 0, 0, &parms, sizeof parms, &regs, &sregs)
+                   == -1) {
+       return -1;
+    } else {
+       return regs.x.dx;

     }
     }

-    regs.h.ah = NAME_RESOLUTION;
-    regs.h.al = 0;
-    regs.h.bh = 0;
-    regs.h.bl = 0;
-    regs.x.cx = 0;
-    regs.x.dx = 0;
-    sregs.es = oures;
-    regs.x.di = (int) &parms;
+}

 
 

-    int86x(API_INTERRUPT_NUMBER, &regs, &regs, &sregs);
-    if (regs.h.cl != 0) {
-       api_sup_errno = regs.h.cl;
+#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, 0, 0, &regs, &sregs)
+                   == -1) {

        return -1;
     } else {
        return -1;
     } else {

-       return regs.x.dx;
+       return 0;
+    }
+}
+#endif /* defined(unix) */
+\f
+/*
+ * 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;
+    }
+}
+\f
+/*
+ * 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;
+    }
+}
+\f
+/*
+ * 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;
+    }
+}
+\f
+/*
+ * 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()
+{
+    union REGS regs;
+    struct SREGS sregs;
+
+#if    defined(MSDOS)
+    regs.h.ah = 0x35;
+    regs.h.al = API_INTERRUPT_NUMBER;
+    intdosx(&regs, &regs, &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(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;

 }
 }