include libslang-1.4.9 and automatically build it and link erlang-slang against it

few (erlang) people will still have libslang-1.4.9 installed or spend time
to get it to link against the driver

1 files changed, 288 insertions, 0 deletions

diff --git a/libslang/src/slos2tty.c b/libslang/src/slos2tty.c
new file mode 100644
index 0000000..4199d61
--- /dev/null
+++ b/libslang/src/slos2tty.c
@@ -0,0 +1,288 @@
+/* Copyright (c) 1992, 1999, 2001, 2002, 2003 John E. Davis
+ * This file is part of the S-Lang library.
+ *
+ * You may distribute under the terms of either the GNU General Public
+ * License or the Perl Artistic License.
+ */
+
+#include "slinclud.h"
+
+#include "slang.h"
+#include "_slang.h"
+
+#define INCL_BASE
+#define INCL_NOPM
+#define INCL_VIO
+#define INCL_KBD
+#define INCL_DOS
+#if 0
+# define INCL_DOSSEMAPHORES
+#endif
+#ifdef LONG
+#undef LONG
+#endif
+#ifdef VOID
+#undef VOID
+#endif
+#include <os2.h>
+
+#include <signal.h>
+#include <process.h>
+
+static TID SLos2_threadID = (TID) 0;
+
+KBDINFO	initialKbdInfo;	/* keyboard info */
+
+/* Code to read keystrokes in a separate thread */
+
+typedef struct kbdcodes {
+  UCHAR ascii;
+  UCHAR scan;
+/*  USHORT shift; */
+} KBDCODES;
+
+#define BUFFER_LEN 4096
+static KBDCODES threadKeys[BUFFER_LEN];
+static int atEnd = 0;
+static int startBuf;
+static int endBuf;
+
+/* Original code used semaphores to control access to threadKeys.
+ * It is expected that the semaphore code will be deleted after 0.97.
+*/
+#if 0
+
+#ifdef __os2_16__
+
+typedef USHORT APIRET;
+static HSEM Hmtx;
+
+#define DosRequestMutexSem(hmtx,timeout) DosSemRequest(hmtx,timeout)
+#define DosReleaseMutexSem(hmtx) DosSemClear(hmtx)
+#define DosCloseMutexSem(hmtx) DosCloseSem(hmtx)
+
+#else /* !defined(__os2_16__) */
+
+static HMTX Hmtx;     /* Mutex Semaphore */
+
+#endif
+
+static APIRET CreateSem(void)
+{
+#ifdef __os2_16__
+  char SemName[32];
+  sprintf(SemName, "\\SEM\\jed\\%u", getpid());
+  return ( DosCreateSem (0, &Hmtx, SemName) );
+#else
+  return ( DosCreateMutexSem (NULL, &Hmtx, 0, 0) );
+#endif
+}
+
+static APIRET RequestSem(void)
+{
+  return ( DosRequestMutexSem (Hmtx, -1) );
+}
+
+static APIRET ReleaseSem(void)
+{
+  return ( DosReleaseMutexSem (Hmtx) );
+}
+
+static APIRET CloseSem(void)
+{
+  return( DosCloseMutexSem (Hmtx) );
+}
+
+#else
+
+#define CreateSem()
+#define RequestSem()
+#define ReleaseSem()
+#define CloseSem()
+
+#endif
+
+static void set_kbd(void)
+{
+  KBDINFO kbdInfo;
+
+  kbdInfo = initialKbdInfo;
+  kbdInfo.fsMask &= ~0x0001;		/* not echo on		*/
+  kbdInfo.fsMask |= 0x0002;		/* echo off		*/
+  kbdInfo.fsMask &= ~0x0008;		/* cooked mode off	*/
+  kbdInfo.fsMask |= 0x0004;		/* raw mode		*/
+  kbdInfo.fsMask &= ~0x0100;		/* shift report	off	*/
+  KbdSetStatus(&kbdInfo, 0);
+}
+
+static void thread_getkey ()
+{
+   KBDKEYINFO keyInfo;
+   int n;
+
+   while (!atEnd) {     /* at end is a flag */
+      set_kbd();
+      KbdCharIn(&keyInfo, IO_NOWAIT, 0);       /* get a character	*/
+      if (keyInfo.fbStatus & 0x040) {          /* found a char process it */
+	if (keyInfo.chChar == SLang_Abort_Char) {
+	  if (SLang_Ignore_User_Abort == 0) SLang_Error = SL_USER_BREAK;
+	  SLKeyBoard_Quit = 1;
+	}
+	n = (endBuf + 1) % BUFFER_LEN;
+	if (n == startBuf) {
+	  DosBeep (500, 20);
+	  KbdFlushBuffer(0);
+	  continue;
+	}
+	RequestSem();
+	threadKeys [n].ascii = keyInfo.chChar;
+	threadKeys [n].scan = keyInfo.chScan;
+/*	threadKeys [n].shift = keyInfo.fsState; */
+	endBuf = n;
+	ReleaseSem();
+      } else                    /* no char available*/
+	DosSleep (20);
+   }
+}
+
+static void thread_code (void *Args)
+{
+  (void) Args;
+  startBuf = -1;      /* initialize the buffer pointers */
+  endBuf = -1;
+  thread_getkey ();
+  atEnd = 0;          /* reset the flag */
+  _endthread();
+}
+
+/* The code below is in the main thread */
+
+int SLang_init_tty(int abort_char, int dum2, int dum3)
+{
+  VIOCURSORINFO cursorInfo, OldcursorInfo;
+
+  (void) dum2; (void) dum3;
+   if (abort_char == -1) abort_char = 3;   /* ^C */
+  SLang_Abort_Char = abort_char;
+
+  /*  set ^C off */
+  signal (SIGINT, SIG_IGN);
+  signal (SIGBREAK, SIG_IGN);
+
+  /* set up the keyboard */
+
+  initialKbdInfo.cb = sizeof(initialKbdInfo);
+  KbdGetStatus(&initialKbdInfo, 0);
+  set_kbd();
+
+  /* open a semaphore */
+  CreateSem();
+
+  /* start a separate thread to read the keyboard */
+#if defined(__BORLANDC__)
+  SLos2_threadID = _beginthread (thread_code, 8096, NULL);
+#else
+  SLos2_threadID = _beginthread (thread_code, NULL,  8096, NULL);
+#endif
+
+   if ((int)SLos2_threadID == -1)
+     {
+	SLang_exit_error ("init_tty: Error starting keyboard thread.");
+     }
+
+  VioGetCurType (&OldcursorInfo, 0);
+  cursorInfo.yStart = 1;
+  cursorInfo.cEnd = 15;
+  cursorInfo.cx = 1;
+  cursorInfo.attr = 1;
+  if (VioSetCurType (&cursorInfo, 0))
+    VioSetCurType (&OldcursorInfo, 0);   /* reset to previous value */
+
+  return 0;
+}
+
+void SLang_reset_tty (void)
+{
+   if (0 == SLos2_threadID) return;
+   atEnd = 1;                      /* set flag and wait until thread ends */
+   while (atEnd) {DosSleep (0);}
+
+   CloseSem();
+
+   /* close the keyboard */
+   KbdSetStatus(&initialKbdInfo, 0); /* restore original state	*/
+   SLos2_threadID = 0;
+}
+
+#define keyWaiting() (endBuf != startBuf)
+
+/* sleep for *tsecs tenths of a sec waiting for input */
+
+int _SLsys_input_pending(int tsecs)
+{
+   if (keyWaiting()) return 1;
+
+   /* Convert tsecs to units of 20 ms */
+   tsecs = tsecs * 5;
+
+   /* If tsecs is less than 0, it represents millisecs */
+   if (tsecs < 0)
+     tsecs = -tsecs / 100;
+
+   while (tsecs > 0)
+     {
+	DosSleep(20);		       /* 20 ms or 1/50 sec */
+	if (keyWaiting()) break;
+	tsecs--;
+     }
+   return (tsecs);
+}
+
+unsigned int _SLsys_getkey ()
+{
+   unsigned int c;
+   unsigned char scan;
+
+   int tsecs = 300;
+
+   if (!keyWaiting())
+     while (!_SLsys_input_pending(tsecs));
+
+   /* read codes from buffer */
+   RequestSem();
+   startBuf = (startBuf + 1) % BUFFER_LEN;
+   c = threadKeys [startBuf].ascii;
+   scan = threadKeys [startBuf].scan;
+   ReleaseSem();
+
+   switch (c)
+     {
+      case 8:
+	if (scan == 0x0E) c = 127;
+	break;
+
+      case 0xE0:
+      case 0:
+	c = _SLpc_convert_scancode (scan, 0, 1);
+	break;
+
+      default:
+	break;
+     }
+   return (c);
+}
+
+int SLang_set_abort_signal (void (*dum)(int))
+{
+   (void) dum;
+   return 0;
+}
+
+int SLtt_set_mouse_mode (int mode, int force)
+{
+   /* FIXME: Priority=low */
+   (void) mode;
+   (void) force;
+
+   return -1;
+}