github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-27 04:12:51 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Nick Briggs
2015-04-20 18:53:52 -07:00
commit de170a64d9
427 changed files with 129342 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

96
src/typeof.c Executable file
View File

@@ -0,0 +1,96 @@
/* $Id: typeof.c,v 1.3 1999/05/31 23:35:44 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
static char *id = "$Id: typeof.c,v 1.3 1999/05/31 23:35:44 sybalsky Exp $ Copyright (C) Venue";
/************************************************************************/
/* */
/* (C) Copyright 1989-95 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. */
/* */
/************************************************************************/
#include "version.h"
/****************************************************************/
/* LISTP(3Q),NTYPEX(4Q),TYPEP(5Q),DTEST(6Q) ,INSTANCEP(303Q) */
/****************************************************************/
/*
changed : Jan. 13 1987 take
changed : Feb. 05 1987 take
changed : Jul. 24 1987 take
*/
#include "lispemul.h"
#include "lsptypes.h"
#include "cell.h"
#include "lispmap.h"
#include "lspglob.h"
/************************************************************************/
/* */
/* N _ O P _ d t e s t */
/* */
/* Check for type conformity, else error. */
/* */
/************************************************************************/
LispPTR N_OP_dtest(register LispPTR tos, register int atom_index)
{
register struct dtd *dtd68k ;
for(dtd68k=(struct dtd *) GetDTD(GetTypeNumber(tos));
#ifdef BIGVM
atom_index != dtd68k->dtd_name;
#else
atom_index != dtd68k->dtd_namelo+(dtd68k->dtd_namehi<<16) ;
#endif /* BIGVM */
dtd68k=(struct dtd *) GetDTD(dtd68k->dtd_supertype))
{
if( dtd68k->dtd_supertype == 0) ERROR_EXIT(tos);
}
return(tos);
} /* OP_DTEST END */
/************************************************************************/
/* */
/* N _ O P _ i n s t a n c e p */
/* */
/* Returns T if tos has type named by atom_index, else NIL. */
/* */
/************************************************************************/
LispPTR N_OP_instancep(register LispPTR tos, register int atom_index)
{
register unsigned int type ;
register struct dtd *dtd68k ;
for( dtd68k=(struct dtd *)GetDTD(GetTypeNumber(tos));
#ifdef BIGVM
atom_index != dtd68k->dtd_name;
#else
atom_index != dtd68k->dtd_namelo+(dtd68k->dtd_namehi<<16) ;
#endif /* BIGVM */
dtd68k=(struct dtd *)GetDTD(dtd68k->dtd_supertype) )
{
if( dtd68k->dtd_supertype== 0) { return(NIL_PTR); }
}
return(ATOM_T);
} /* N_OP_instancep END */