github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-20 08:18:29 +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

36
src/array.c Executable file → Normal file
View File

@@ -1,10 +1,6 @@
/* @(#) array.c Version 2.8 (12/23/88). copyright envos & Fuji Xerox */
static char *id = "@(#) array.c 2.8 12/23/88 (envos & Fuji Xerox)";
/************************************************************************/
/* */
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
@@ -19,7 +15,6 @@ static char *id = "@(#) array.c 2.8 12/23/88 (envos & Fuji Xerox)";
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
@@ -49,27 +44,26 @@ type size typenumber
***********************************************************/
/*** N_OP_misc3 -- op 372/9 (base typenumber index) ***/
LispPTR N_OP_misc3(LispPTR baseL, LispPTR typenumber, LispPTR inx, int alpha)
{
register int result;
register int index, type;
register DLword *wordp;
LispPTR N_OP_misc3(LispPTR baseL, LispPTR typenumber, LispPTR inx, int alpha) {
register int result;
register int index, type;
register DLword *wordp;
/* for CREATECELL */
DLword *createcell68k(unsigned int type);
/* for CREATECELL */
DLword *createcell68k(unsigned int type);
if (alpha != 9) ERROR_EXIT(inx);
/* test and setup index */
N_GetPos(inx, index, inx);
if (alpha != 9) ERROR_EXIT(inx);
/* test and setup index */
N_GetPos(inx, index, inx);
/* test and setup typenumber */
N_GetPos(typenumber, type, inx);
/* test and setup typenumber */
N_GetPos(typenumber, type, inx);
/* disp on type */
/* disp on type */
#ifdef OS4
aref_switch(type, inx, baseL, index);
aref_switch(type, inx, baseL, index);
#else
return ( aref_switch(type, inx, baseL, index) );
return (aref_switch(type, inx, baseL, index));
#endif
} /* end N_OP_misc3() */
} /* end N_OP_misc3() */