mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-16 08:15:31 +00:00
5481a14812
Add some missing default function result types (int). Add some missing void result types where appropriate. modified: src/Cldeetr.c modified: src/atom.c modified: src/bbtsub.c modified: src/bitblt.c modified: src/byteswap.c modified: src/chardev.c modified: src/chatter.c modified: src/colorbltfns.c modified: src/common.c modified: src/dir.c modified: src/dlpi.c modified: src/doskbd.c modified: src/dosmouse.c modified: src/draw.c modified: src/dsk.c modified: src/dspsubrs.c modified: src/ejlisp.c modified: src/ether.c modified: src/imagefile.c modified: src/imagefile2.c modified: src/inet.c modified: src/initdsp.c modified: src/initkbd.c modified: src/kbdsubrs.c modified: src/ldeboot.c modified: src/llcolor.c modified: src/llstk.c modified: src/loader.c modified: src/loopsops.c modified: src/lpdual.c modified: src/lpmain.c modified: src/lpread.c modified: src/lptran.c modified: src/lpwrite.c modified: src/main.c modified: src/misc7.c modified: src/mkatom.c modified: src/mnwevent.c modified: src/mnxmeth.c modified: src/mouseif.c modified: src/ocr.c modified: src/ocrproc.c modified: src/oether.c modified: src/oldeether.c modified: src/osmsg.c modified: src/picture.c modified: src/rawcolor.c modified: src/rawrs232c.c modified: src/rpc.c modified: src/rs232c.c modified: src/socdvr.c modified: src/socket.c modified: src/testdsp.c modified: src/testtool.c modified: src/timeoday.c modified: src/timeofday.c modified: src/timer.c modified: src/truecolor.c modified: src/tty.c modified: src/ufn.c modified: src/ufs.c modified: src/unixcomm.c modified: src/unixfork.c modified: src/unwind.c modified: src/uraid.c modified: src/vesainit.c modified: src/vgainit.c modified: src/vmemsave.c modified: src/xcursor.c modified: src/xinit.c modified: src/xlspwin.c modified: src/xmkicon.c modified: src/xrdopt.c modified: src/xwinman.c
75 lines
2.3 KiB
C
75 lines
2.3 KiB
C
/* $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(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
|