From 08bc570308b0698090ce668dc7dca4c0c76dd3df Mon Sep 17 00:00:00 2001
From: Paul Gilbert
Date: Mon, 17 Jun 2019 22:36:31 -0700
Subject: GLK: ALAN2: Initial import of full set of interpreter files

---
 engines/glk/alan2/term.cpp | 123 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 123 insertions(+)
 create mode 100644 engines/glk/alan2/term.cpp

(limited to 'engines/glk/alan2/term.cpp')

diff --git a/engines/glk/alan2/term.cpp b/engines/glk/alan2/term.cpp
new file mode 100644
index 0000000000..cf60fc5bbe
--- /dev/null
+++ b/engines/glk/alan2/term.cpp
@@ -0,0 +1,123 @@
+/* ScummVM - Graphic Adventure Engine
+ *
+ * ScummVM is the legal property of its developers, whose names
+ * are too numerous to list here. Please refer to the COPYRIGHT
+ * file distributed with this source distribution.
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ *
+ */
+
+#include "glk/alan2/main.h"
+#include "glk/alan2/term.h"
+
+namespace Glk {
+namespace Alan2 {
+
+/*======================================================================
+
+  getPageSize()
+
+  Try to get the current page size from the system, else use the ones
+  from the header.
+
+ */
+#ifdef _PROTOTYPES_
+void getPageSize(void)
+#else
+void getPageSize()
+#endif
+{
+#ifdef GLK
+  paglen = 0;
+  pagwidth = 0;
+
+#else
+#ifdef HAVE_TERMIO
+
+#include <sys/termios.h>
+
+  extern int ioctl();
+
+  struct winsize win;
+  int ecode;
+
+  ecode = ioctl(1, TIOCGWINSZ, &win);
+
+  if (ecode != 0 || win.ws_row == 0)
+    paglen = header->paglen;
+  else
+    paglen = win.ws_row;
+
+  if (ecode != 0 || win.ws_col == 0)
+    pagwidth = header->pagwidth;
+  else
+    pagwidth = win.ws_col;
+
+#else
+#ifdef __amiga__
+#include <libraries/dosextens.h>
+#include <intuition/intuition.h>
+#include <graphics/text.h>
+#include <clib/exec_protos.h>
+
+  struct Process * proc;
+  struct InfoData *id;
+  struct Window *win; 
+  struct TextFont *textFont;
+  struct StandardPacket *packet;
+
+  proc = (struct Process *) FindTask(0L);
+
+  id = (struct InfoData *) allocate(sizeof(struct InfoData));
+
+  if (proc->pr_ConsoleTask) {
+    packet = (struct StandardPacket *) allocate(sizeof(struct StandardPacket));
+    packet->sp_Msg.mn_Node.ln_Name	= (char *)&(packet->sp_Pkt);
+    packet->sp_Pkt.dp_Link		= & packet->sp_Msg;
+    packet->sp_Pkt.dp_Port		= & proc->pr_MsgPort;
+    packet->sp_Pkt.dp_Type		= ACTION_DISK_INFO;
+
+    packet->sp_Pkt.dp_Arg1 = ((LONG) id) >> 2;
+
+    PutMsg ((struct MsgPort *) proc->pr_ConsoleTask, & packet->sp_Msg);
+    WaitPort(&proc->pr_MsgPort);
+    GetMsg(&proc->pr_MsgPort);
+    free((char *)packet);
+
+    win = (struct Window *) id->id_VolumeNode;
+    free(id);
+
+    /* Calculate number of characters and lines w.r.t font size and borders */
+    textFont = win->IFont;
+    paglen = win->Height/textFont->tf_YSize-2;
+    pagwidth = win->Width/textFont->tf_XSize-3;
+  } else {
+    paglen = header->paglen;
+    pagwidth = header->pagwidth;
+  }
+
+#else
+
+  paglen = header->paglen;
+  pagwidth = header->pagwidth;
+
+#endif
+#endif
+#endif
+}
+
+} // End of namespace Alan2
+} // End of namespace Glk
-- 
cgit v1.2.3