Maiko sources matching state as of 020102 prior to initial patching for Mac OSX

2026-02-05 16:04:45 +00:00 · 2015-04-20 18:53:52 -07:00
commit de170a64d9
427 changed files with 129342 additions and 0 deletions
--- a/src/lsthandl.c
+++ b/src/lsthandl.c
@@ -0,0 +1,145 @@
+/* $Id: lsthandl.c,v 1.4 1999/05/31 23:35:38 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved  */
+static char *id = "$Id: lsthandl.c,v 1.4 1999/05/31 23:35:38 sybalsky Exp $ Copyright (C) Venue";
+
+
+/************************************************************************/
+/*									*/
+/*	(C) Copyright 1989-99 Venue. All Rights Reserved.		*/
+/*	Manufactured in the United States of America.			*/
+/*									*/
+/*	The contents of this file are proprietary information 		*/
+/*	belonging to Venue, and are provided to you under license.	*/
+/*	They may not be further distributed or disclosed to third	*/
+/*	parties without the specific permission of Venue.		*/
+/*									*/
+/************************************************************************/
+
+
+/************************************************************************/
+/*
+		Including :	OP_fmemb
+				OP_listget
+
+*/
+/**********************************************************************/
+
+#include "version.h"
+
+#include "lispemul.h"
+#include "emlglob.h"
+#include "lspglob.h"
+#include "lsptypes.h"
+#include "address.h"
+#include "adr68k.h"
+#include "cell.h"
+
+
+/***********************************************************************/
+/*	 N_OP_fmemb							*/
+/**********************************************************************/
+
+LispPTR
+N_OP_fmemb(register LispPTR item, register LispPTR tos)
+{  /* OP 34Q */
+  
+  while(Listp(tos)) {
+    if ( item == car(tos) ) return tos;
+    tos = cdr(tos);
+    /* if we get an interrupt, punt so we can handle it safely */
+    if (!Irq_Stk_End) {
+      TIMER_EXIT(tos);
+    }
+  }
+  if(tos) ERROR_EXIT(tos);
+  return tos;
+
+} /* N_OP_fmemb end */
+
+
+
+/***********************************************************************/
+/*	 
+	Func Name :	fmemb(item,list)
+	>>For User programming<<
+	NOTE: You should not handle long list, because it doesn't care
+		about interrupt.
+
+*/
+/**********************************************************************/
+
+LispPTR
+fmemb(register LispPTR item, register LispPTR list)
+{  
+  
+  while(Listp(list)) {
+    if(item == car(list))
+      return (list);
+    list = cdr(list);
+  }
+
+  if(list) return(list);
+  return (list);
+  
+} /* fmemb end */
+
+
+
+/***********************************************************************/
+/*
+		Func Name :	N_OP_listget
+		Opcode	:	47Q
+ */
+/**********************************************************************/
+
+extern struct cadr_cell cadr(LispPTR cell_adr);	/** declaration only **/
+
+#define SAVE_ERROR_EXIT2(topcstk,tos) {Scratch_CSTK=topcstk; ERROR_EXIT(tos);}
+
+#define S_N_CHECKANDCADR2(sour,dest,tos,tcstk)             \
+{register LispPTR parm = sour;                  \
+  if(GetTypeNumber(parm) != TYPE_LISTP){         \
+    SAVE_ERROR_EXIT2(tcstk,tos);       \
+  } else                                           \
+      dest = cadr(parm);                      \
+}
+
+
+
+LispPTR
+N_OP_listget(register LispPTR plist, register LispPTR tos)
+{
+  REGISTER struct cadr_cell cadrobj;
+  
+  while ( plist != NIL_PTR ) {
+    S_N_CHECKANDCADR2(plist, cadrobj, tos, plist);
+    
+    if ( cadrobj.car_cell == tos ) {
+
+      if(cadrobj.cdr_cell == NIL_PTR) return NIL_PTR;
+
+      if(Listp(cadrobj.cdr_cell))
+	return(car(cadrobj.cdr_cell));
+      else    /* must punt in case car/cdrerr */
+	SAVE_ERROR_EXIT2(plist,tos);
+    }
+    
+    if( ! Listp(cadrobj.cdr_cell) )
+      { /* this list ended before we found prop */
+	return ( NIL_PTR );
+      }
+    
+    S_N_CHECKANDCADR2(cadrobj.cdr_cell, cadrobj, tos, plist);
+    plist = cadrobj.cdr_cell;
+    
+    if (!Irq_Stk_End) {
+      /* for continuation, it becomes plist on next time */
+      Scratch_CSTK = plist;
+      TIMER_EXIT(tos);
+    }
+  }
+  
+  return(NIL_PTR);
+  
+}/* N_OP_listget end */
+
+