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

78
src/rplcons.c Executable file → Normal file
View File

@@ -1,11 +1,7 @@
/* $Id: rplcons.c,v 1.3 1999/05/31 23:35:41 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
/* $Id: rplcons.c,v 1.3 1999/05/31 23:35:41 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
*/
static char *id = "$Id: rplcons.c,v 1.3 1999/05/31 23:35:41 sybalsky Exp $ Copyright (C) Venue";
/************************************************************************/
/* */
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
@@ -20,16 +16,15 @@ static char *id = "$Id: rplcons.c,v 1.3 1999/05/31 23:35:41 sybalsky Exp $ Copyr
#include "version.h"
/***********************************************************************/
/*
File Name : rplcons.c
File Name : rplcons.c
Desc : rplcons
Including : rplcons
OP_rplcons
Desc : rplcons
Including : rplcons
OP_rplcons
*/
/**********************************************************************/
@@ -40,51 +35,46 @@ static char *id = "$Id: rplcons.c,v 1.3 1999/05/31 23:35:41 sybalsky Exp $ Copyr
#include "address.h"
#include "adr68k.h"
#include "gc.h"
#include "cell.h"
#include "cell.h"
/***************************************************/
LispPTR N_OP_rplcons(register LispPTR list, register LispPTR item)
{
register struct conspage *conspage ;
register ConsCell *new_cell , *list68k;
LispPTR N_OP_rplcons(register LispPTR list, register LispPTR item) {
register struct conspage *conspage;
register ConsCell *new_cell, *list68k;
LispPTR register page;
LispPTR register page;
if(!Listp(list)) ERROR_EXIT(item);
if (!Listp(list)) ERROR_EXIT(item);
page = POINTER_PAGE(list);
list68k=(ConsCell *)Addr68k_from_LADDR(list);
page = POINTER_PAGE(list);
list68k = (ConsCell *)Addr68k_from_LADDR(list);
/* There are some rest Cell and "list" must be ONPAGE cdr_coded */
/* There are some rest Cell and "list" must be ONPAGE cdr_coded */
#ifndef NEWCDRCODING
if((GetCONSCount(page) != 0) && (list68k->cdr_code > CDR_MAXINDIRECT))
{
GCLOOKUP(item, ADDREF);
GCLOOKUP(cdr(list), DELREF);
if ((GetCONSCount(page) != 0) && (list68k->cdr_code > CDR_MAXINDIRECT)) {
GCLOOKUP(item, ADDREF);
GCLOOKUP(cdr(list), DELREF);
conspage = (struct conspage *)Addr68k_from_LPAGE(page);
new_cell =(ConsCell *)GetNewCell_68k(conspage);
conspage = (struct conspage *)Addr68k_from_LPAGE(page);
new_cell = (ConsCell *)GetNewCell_68k(conspage);
conspage->count--;
conspage->next_cell= ((freecons *)new_cell)->next_free;
conspage->count--;
conspage->next_cell = ((freecons *)new_cell)->next_free;
new_cell->car_field = item ;
new_cell->cdr_code = CDR_NIL ;
new_cell->car_field = item;
new_cell->cdr_code = CDR_NIL;
ListpDTD->dtd_cnt0++;
ListpDTD->dtd_cnt0++;
list68k->cdr_code = CDR_ONPAGE | ((LADDR_from_68k(new_cell) &0xff)>>1) ;
list68k->cdr_code = CDR_ONPAGE | ((LADDR_from_68k(new_cell) & 0xff) >> 1);
return(LADDR_from_68k(new_cell)) ;
return (LADDR_from_68k(new_cell));
}
else
} else
#endif /* ndef NEWCDRCODING */
{
N_OP_rplacd(list, item = cons(item , NIL_PTR));
return(item);
}
{
N_OP_rplacd(list, item = cons(item, NIL_PTR));
return (item);
}
}