github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-05 16:04:45 +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

123
src/lsthandl.c Executable file → Normal file
View File

@@ -1,7 +1,7 @@
/* $Id: lsthandl.c,v 1.4 1999/05/31 23:35:38 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
/* $Id: lsthandl.c,v 1.4 1999/05/31 23:35:38 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
*/
static char *id = "$Id: lsthandl.c,v 1.4 1999/05/31 23:35:38 sybalsky Exp $ Copyright (C) Venue";
/************************************************************************/
/* */
/* (C) Copyright 1989-99 Venue. All Rights Reserved. */
@@ -14,11 +14,10 @@ static char *id = "$Id: lsthandl.c,v 1.4 1999/05/31 23:35:38 sybalsky Exp $ Copy
/* */
/************************************************************************/
/************************************************************************/
/*
Including : OP_fmemb
OP_listget
Including : OP_fmemb
OP_listget
*/
/**********************************************************************/
@@ -33,113 +32,97 @@ static char *id = "$Id: lsthandl.c,v 1.4 1999/05/31 23:35:38 sybalsky Exp $ Copy
#include "adr68k.h"
#include "cell.h"
/***********************************************************************/
/* N_OP_fmemb */
/**********************************************************************/
LispPTR
N_OP_fmemb(register LispPTR item, register LispPTR tos)
{ /* OP 34Q */
while(Listp(tos)) {
if ( item == car(tos) ) return tos;
LispPTR N_OP_fmemb(register LispPTR item, register LispPTR tos) { /* OP 34Q */
while (Listp(tos)) {
if (item == car(tos)) return tos;
tos = cdr(tos);
/* if we get an interrupt, punt so we can handle it safely */
if (!Irq_Stk_End) {
TIMER_EXIT(tos);
}
if (!Irq_Stk_End) { TIMER_EXIT(tos); }
}
if(tos) ERROR_EXIT(tos);
if (tos) ERROR_EXIT(tos);
return tos;
} /* N_OP_fmemb end */
/***********************************************************************/
/*
Func Name : fmemb(item,list)
>>For User programming<<
NOTE: You should not handle long list, because it doesn't care
about interrupt.
/*
Func Name : fmemb(item,list)
>>For User programming<<
NOTE: You should not handle long list, because it doesn't care
about interrupt.
*/
/**********************************************************************/
LispPTR
fmemb(register LispPTR item, register LispPTR list)
{
while(Listp(list)) {
if(item == car(list))
return (list);
LispPTR fmemb(register LispPTR item, register LispPTR list) {
while (Listp(list)) {
if (item == car(list)) return (list);
list = cdr(list);
}
if(list) return(list);
if (list) return (list);
return (list);
} /* fmemb end */
/***********************************************************************/
/*
Func Name : N_OP_listget
Opcode : 47Q
Func Name : N_OP_listget
Opcode : 47Q
*/
/**********************************************************************/
extern struct cadr_cell cadr(LispPTR cell_adr); /** declaration only **/
extern struct cadr_cell cadr(LispPTR cell_adr); /** declaration only **/
#define SAVE_ERROR_EXIT2(topcstk,tos) {Scratch_CSTK=topcstk; ERROR_EXIT(tos);}
#define SAVE_ERROR_EXIT2(topcstk, tos) \
{ \
Scratch_CSTK = topcstk; \
ERROR_EXIT(tos); \
}
#define S_N_CHECKANDCADR2(sour,dest,tos,tcstk) \
{register LispPTR parm = sour; \
if(GetTypeNumber(parm) != TYPE_LISTP){ \
SAVE_ERROR_EXIT2(tcstk,tos); \
} else \
dest = cadr(parm); \
}
#define S_N_CHECKANDCADR2(sour, dest, tos, tcstk) \
{ \
register LispPTR parm = sour; \
if (GetTypeNumber(parm) != TYPE_LISTP) { \
SAVE_ERROR_EXIT2(tcstk, tos); \
} else \
dest = cadr(parm); \
}
LispPTR
N_OP_listget(register LispPTR plist, register LispPTR tos)
{
LispPTR N_OP_listget(register LispPTR plist, register LispPTR tos) {
REGISTER struct cadr_cell cadrobj;
while ( plist != NIL_PTR ) {
while (plist != NIL_PTR) {
S_N_CHECKANDCADR2(plist, cadrobj, tos, plist);
if ( cadrobj.car_cell == tos ) {
if(cadrobj.cdr_cell == NIL_PTR) return NIL_PTR;
if (cadrobj.car_cell == tos) {
if (cadrobj.cdr_cell == NIL_PTR) return NIL_PTR;
if(Listp(cadrobj.cdr_cell))
return(car(cadrobj.cdr_cell));
else /* must punt in case car/cdrerr */
SAVE_ERROR_EXIT2(plist,tos);
if (Listp(cadrobj.cdr_cell))
return (car(cadrobj.cdr_cell));
else /* must punt in case car/cdrerr */
SAVE_ERROR_EXIT2(plist, tos);
}
if( ! Listp(cadrobj.cdr_cell) )
{ /* this list ended before we found prop */
return ( NIL_PTR );
}
if (!Listp(cadrobj.cdr_cell)) { /* this list ended before we found prop */
return (NIL_PTR);
}
S_N_CHECKANDCADR2(cadrobj.cdr_cell, cadrobj, tos, plist);
plist = cadrobj.cdr_cell;
if (!Irq_Stk_End) {
/* for continuation, it becomes plist on next time */
Scratch_CSTK = plist;
TIMER_EXIT(tos);
}
}
return(NIL_PTR);
}/* N_OP_listget end */
return (NIL_PTR);
} /* N_OP_listget end */