github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-26 11:52:25 +00:00
Code Issues Projects Releases Wiki Activity

Reformat all C source files with Clang-format in Google style w/ 100 col width.

Browse Source
This commit is contained in:
Nick Briggs
2017-05-28 18:08:18 -07:00
parent 691645d048
commit 156c3292f8
167 changed files with 40520 additions and 48069 deletions
Download Patch File Download Diff File Expand all files Collapse all files

90
src/atom.c Executable file → Normal file
View File

@@ -1,10 +1,6 @@
/* $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. */
@@ -19,19 +15,16 @@ static char *id = "$Id: atom.c,v 1.3 1999/05/31 23:35:23 sybalsky Exp $ Copyrigh
#include "version.h"
/**********************************************************************/
/*
File Name : atom.c
File Name : atom.c
Desc : implement opcode ATOMCELL.N
Desc : implement opcode ATOMCELL.N
Date : Apr 13, 1987
Edited by : Naoyuki Mitani
Date : Apr 13, 1987
Edited by : Naoyuki Mitani
Including : OP_atomcellN
Including : OP_atomcellN
*/
/**********************************************************************/
@@ -40,52 +33,43 @@ static char *id = "$Id: atom.c,v 1.3 1999/05/31 23:35:23 sybalsky Exp $ Copyrigh
#include "lispmap.h"
#include "emlglob.h"
#ifndef BIGATOMS
N_OP_atomcellN(tos, n)
register int tos;
int n;
{
N_OP_atomcellN(tos, n) register int tos;
int n;
{
if ((tos & 0xffff0000) != 0) ERROR_EXIT(tos);
if ((tos & 0xffff0000) != 0) ERROR_EXIT(tos);
tos = (tos << 1);
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);
}
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)
{
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);
}
}
}
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