github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-27 04:12:51 +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

67
src/typeof.c Executable file → Normal file
View File

@@ -1,8 +1,7 @@
/* $Id: typeof.c,v 1.3 1999/05/31 23:35:44 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
/* $Id: typeof.c,v 1.3 1999/05/31 23:35:44 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
*/
static char *id = "$Id: typeof.c,v 1.3 1999/05/31 23:35:44 sybalsky Exp $ Copyright (C) Venue";
/************************************************************************/
/* */
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
@@ -17,17 +16,13 @@ static char *id = "$Id: typeof.c,v 1.3 1999/05/31 23:35:44 sybalsky Exp $ Copyri
#include "version.h"
/****************************************************************/
/* LISTP(3Q),NTYPEX(4Q),TYPEP(5Q),DTEST(6Q) ,INSTANCEP(303Q) */
/****************************************************************/
/*
changed : Jan. 13 1987 take
changed : Feb. 05 1987 take
changed : Jul. 24 1987 take
changed : Jan. 13 1987 take
changed : Feb. 05 1987 take
changed : Jul. 24 1987 take
*/
@@ -37,7 +32,6 @@ static char *id = "$Id: typeof.c,v 1.3 1999/05/31 23:35:44 sybalsky Exp $ Copyri
#include "lispmap.h"
#include "lspglob.h"
/************************************************************************/
/* */
/* N _ O P _ d t e s t */
@@ -46,26 +40,20 @@ static char *id = "$Id: typeof.c,v 1.3 1999/05/31 23:35:44 sybalsky Exp $ Copyri
/* */
/************************************************************************/
LispPTR N_OP_dtest(register LispPTR tos, register int atom_index)
{
register struct dtd *dtd68k ;
LispPTR N_OP_dtest(register LispPTR tos, register int atom_index) {
register struct dtd *dtd68k;
for(dtd68k=(struct dtd *) GetDTD(GetTypeNumber(tos));
for (dtd68k = (struct dtd *)GetDTD(GetTypeNumber(tos));
#ifdef BIGVM
atom_index != dtd68k->dtd_name;
atom_index != dtd68k->dtd_name;
#else
atom_index != dtd68k->dtd_namelo+(dtd68k->dtd_namehi<<16) ;
atom_index != dtd68k->dtd_namelo + (dtd68k->dtd_namehi << 16);
#endif /* BIGVM */
dtd68k=(struct dtd *) GetDTD(dtd68k->dtd_supertype))
{
if( dtd68k->dtd_supertype == 0) ERROR_EXIT(tos);
}
return(tos);
} /* OP_DTEST END */
dtd68k = (struct dtd *)GetDTD(dtd68k->dtd_supertype)) {
if (dtd68k->dtd_supertype == 0) ERROR_EXIT(tos);
}
return (tos);
} /* OP_DTEST END */
/************************************************************************/
/* */
@@ -75,22 +63,19 @@ LispPTR N_OP_dtest(register LispPTR tos, register int atom_index)
/* */
/************************************************************************/
LispPTR N_OP_instancep(register LispPTR tos, register int atom_index)
{
register unsigned int type ;
register struct dtd *dtd68k ;
LispPTR N_OP_instancep(register LispPTR tos, register int atom_index) {
register unsigned int type;
register struct dtd *dtd68k;
for( dtd68k=(struct dtd *)GetDTD(GetTypeNumber(tos));
for (dtd68k = (struct dtd *)GetDTD(GetTypeNumber(tos));
#ifdef BIGVM
atom_index != dtd68k->dtd_name;
atom_index != dtd68k->dtd_name;
#else
atom_index != dtd68k->dtd_namelo+(dtd68k->dtd_namehi<<16) ;
atom_index != dtd68k->dtd_namelo + (dtd68k->dtd_namehi << 16);
#endif /* BIGVM */
dtd68k=(struct dtd *)GetDTD(dtd68k->dtd_supertype) )
{
if( dtd68k->dtd_supertype== 0) { return(NIL_PTR); }
}
return(ATOM_T);
} /* N_OP_instancep END */
dtd68k = (struct dtd *)GetDTD(dtd68k->dtd_supertype)) {
if (dtd68k->dtd_supertype == 0) { return (NIL_PTR); }
}
return (ATOM_T);
} /* N_OP_instancep END */