github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-01 17:35:54 +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

56
src/array6.c Executable file → Normal file
View File

@@ -1,9 +1,6 @@
/* This is G-file @(#) array6.c Version 2.10 (4/21/92). copyright Xerox & Fuji Xerox */
static char *id = "@(#) array6.c 2.10 4/21/92";
/************************************************************************/
/* */
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
@@ -18,9 +15,6 @@ static char *id = "@(#) array6.c 2.10 4/21/92";
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
@@ -33,36 +27,34 @@ static char *id = "@(#) array6.c 2.10 4/21/92";
#include "my.h"
/*** N_OP_aset2 -- op 357 (new-value array index0 index1) ***/
LispPTR N_OP_aset2(register LispPTR data, LispPTR arrayarg, LispPTR inx0, LispPTR inx1)
{
LispPTR N_OP_aset2(register LispPTR data, LispPTR arrayarg, LispPTR inx0, LispPTR inx1) {
register int type;
register LispArray *arrayblk;
register LispPTR base;
register int new;
register int index, temp;
int j;
register int type;
register LispArray *arrayblk;
register LispPTR base;
register int new;
register int index, temp;
int j;
/* verify array */
if (GetTypeNumber(arrayarg) != TYPE_TWOD_ARRAY) ERROR_EXIT(inx1);
arrayblk = (LispArray *)Addr68k_from_LADDR(arrayarg);
base = arrayblk->base;
/* verify array */
if (GetTypeNumber(arrayarg) != TYPE_TWOD_ARRAY) ERROR_EXIT(inx1);
arrayblk = (LispArray *)Addr68k_from_LADDR(arrayarg);
base = arrayblk->base;
/* test and setup index */
N_GetPos(inx1, temp, inx1);
if (temp >= (j = arrayblk->Dim1)) ERROR_EXIT(inx1);
N_GetPos(inx0, index, inx1);
if (index >= arrayblk->Dim0) ERROR_EXIT(inx1);
index *= j;
index += temp;
/* test and setup index */
N_GetPos(inx1, temp, inx1);
if (temp >= (j = arrayblk->Dim1)) ERROR_EXIT(inx1);
N_GetPos(inx0, index, inx1);
if (index >= arrayblk->Dim0) ERROR_EXIT(inx1);
index *= j;
index += temp;
/* setup typenumber */
type = 0xFF & arrayblk->typenumber;
/* setup typenumber */
type = 0xFF & arrayblk->typenumber;
/* disp on type */
aset_switch(type, inx1);
/* disp on type */
aset_switch(type, inx1);
doufn: ERROR_EXIT(inx1);
doufn:
ERROR_EXIT(inx1);
} /* end N_OP_aset2() */