mirror of
https://github.com/Interlisp/maiko.git
synced 2026-03-03 18:06:23 +00:00
92 lines
2.2 KiB
C
Executable File
92 lines
2.2 KiB
C
Executable File
/* $Id: atom.c,v 1.3 1999/05/31 23:35:23 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
|
static char *id = "$Id: atom.c,v 1.3 1999/05/31 23:35:23 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"
|
|
|
|
|
|
|
|
|
|
/**********************************************************************/
|
|
/*
|
|
File Name : atom.c
|
|
|
|
Desc : implement opcode ATOMCELL.N
|
|
|
|
Date : Apr 13, 1987
|
|
Edited by : Naoyuki Mitani
|
|
|
|
Including : OP_atomcellN
|
|
|
|
*/
|
|
/**********************************************************************/
|
|
|
|
#include "lispemul.h"
|
|
#include "lispmap.h"
|
|
#include "emlglob.h"
|
|
|
|
|
|
#ifndef BIGATOMS
|
|
N_OP_atomcellN(tos, n)
|
|
register int tos;
|
|
int n;
|
|
{
|
|
|
|
if ((tos & 0xffff0000) != 0) ERROR_EXIT(tos);
|
|
|
|
tos = (tos << 1);
|
|
|
|
switch(n)
|
|
{
|
|
case D_DEFSHI : return(DEFS_OFFSET + tos);
|
|
case D_VALSHI : return(VALS_OFFSET + tos);
|
|
case D_PLISHI : return(PLIS_OFFSET + tos);
|
|
case D_PNHI : return(PNP_OFFSET + tos);
|
|
default : ERROR_EXIT(tos);
|
|
}
|
|
}
|
|
|
|
#else
|
|
N_OP_atomcellN(register int tos, int n)
|
|
{
|
|
|
|
if ((tos & 0xffff0000) == 0){ /* XeroxLisp traditional symbol */
|
|
tos = (tos << 1);
|
|
switch(n)
|
|
{
|
|
case D_DEFSHI : return(DEFS_OFFSET + tos);
|
|
case D_VALSHI : return(VALS_OFFSET + tos);
|
|
case D_PLISHI : return(PLIS_OFFSET + tos);
|
|
case D_PNHI : return(PNP_OFFSET + tos);
|
|
default : ERROR_EXIT(tos);
|
|
}
|
|
}
|
|
else{ /* New Symbol */
|
|
switch(n)
|
|
{
|
|
case D_DEFSHI : return(NEWATOM_DEFN_OFFSET + tos);
|
|
case D_VALSHI : return(NEWATOM_VALUE_OFFSET + tos);
|
|
case D_PLISHI : return(NEWATOM_PLIST_OFFSET + tos);
|
|
case D_PNHI : return(NEWATOM_PNAME_OFFSET + tos);
|
|
default : ERROR_EXIT(tos);
|
|
}
|
|
}
|
|
}
|
|
|
|
#endif
|