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

35
src/array2.c Executable file → Normal file
View File

@@ -1,9 +1,6 @@
/* This is G-file @(#) array2.c Version 2.9 (10/12/88). copyright Xerox & Fuji Xerox */
static char *id = "@(#) array2.c 2.9 10/12/88";
/************************************************************************/
/* */
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
@@ -18,8 +15,6 @@ static char *id = "@(#) array2.c 2.9 10/12/88";
#include "version.h"
/************************************************************************/
/* */
/* A R R A Y 2 . C */
@@ -39,8 +34,6 @@ static char *id = "@(#) array2.c 2.9 10/12/88";
#include "arith.h"
#include "my.h"
/************************************************************************/
/* */
/* N _ O P _ m i s c 4 */
@@ -49,23 +42,23 @@ static char *id = "@(#) array2.c 2.9 10/12/88";
/* */
/************************************************************************/
LispPTR N_OP_misc4(register LispPTR data, register LispPTR base, register LispPTR typenumber, register LispPTR inx, int alpha)
{
register int new;
register int index;
int type;
LispPTR N_OP_misc4(register LispPTR data, register LispPTR base, register LispPTR typenumber,
register LispPTR inx, int alpha) {
register int new;
register int index;
int type;
if (alpha != 7) ERROR_EXIT(inx);
if (alpha != 7) ERROR_EXIT(inx);
/* test and setup index */
N_GetPos(inx, index, inx);
/* test and setup typenumber */
N_GetPos(typenumber, type, inx);
/* test and setup index */
N_GetPos(inx, index, inx);
aset_switch(type, inx);
/* test and setup typenumber */
N_GetPos(typenumber, type, inx);
doufn: ERROR_EXIT(inx);
aset_switch(type, inx);
} /* end N_OP_misc4() */
doufn:
ERROR_EXIT(inx);
} /* end N_OP_misc4() */