github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-30 05:24:22 +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

63
src/bin.c Executable file → Normal file
View File

@@ -1,10 +1,6 @@
/* $Id: bin.c,v 1.3 1999/05/31 23:35:24 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
static char *id = "$Id: bin.c,v 1.3 1999/05/31 23:35:24 sybalsky Exp $ Copyright (C) Venue";
/************************************************************************/
/* */
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
@@ -19,21 +15,19 @@ static char *id = "$Id: bin.c,v 1.3 1999/05/31 23:35:24 sybalsky Exp $ Copyright
#include "version.h"
/***********************************************************************/
/*
File Name : bin.c
File Name : bin.c
Desc :
Date : Jul. 22, 1987
Edited by : Takeshi Shimizu
Changed :
Including : OP_bin
Desc :
Date : Jul. 22, 1987
Edited by : Takeshi Shimizu
Changed :
Including : OP_bin
*/
/**********************************************************************/
@@ -44,28 +38,25 @@ static char *id = "$Id: bin.c,v 1.3 1999/05/31 23:35:24 sybalsky Exp $ Copyright
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "cell.h"
#include "stream.h"
LispPTR N_OP_bin(register int tos)
{
register Stream *stream68k; /* stream instance on TOS */
register char *buff68k; /* pointer to BUFF */
#include "cell.h"
#include "stream.h"
if(GetTypeNumber(tos) == TYPE_STREAM)
{
stream68k=(Stream *) Addr68k_from_LADDR(tos);
LispPTR N_OP_bin(register int tos) {
register Stream *stream68k; /* stream instance on TOS */
register char *buff68k; /* pointer to BUFF */
if(!stream68k->BINABLE) ERROR_EXIT(tos);
if (GetTypeNumber(tos) == TYPE_STREAM) {
stream68k = (Stream *)Addr68k_from_LADDR(tos);
if(stream68k->COFFSET >= stream68k->CBUFSIZE) ERROR_EXIT(tos);
/* get BUFFER instance */
buff68k =(char *)Addr68k_from_LADDR(stream68k->CBUFPTR);
if (!stream68k->BINABLE) ERROR_EXIT(tos);
/* get BYTE data and set it to TOS */
return(S_POSITIVE | (Get_BYTE(buff68k + (stream68k->COFFSET)++)) );
}
else ERROR_EXIT(tos);
if (stream68k->COFFSET >= stream68k->CBUFSIZE) ERROR_EXIT(tos);
/* get BUFFER instance */
buff68k = (char *)Addr68k_from_LADDR(stream68k->CBUFPTR);
/* get BYTE data and set it to TOS */
return (S_POSITIVE | (Get_BYTE(buff68k + (stream68k->COFFSET)++)));
} else
ERROR_EXIT(tos);
}