d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Run through clang-format.

Browse source
This commit is contained in:
David Given 2016-08-21 20:08:05 +02:00
parent 44b6421519
commit 2b2bd93e44
1 changed files with 102 additions and 83 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

147
util/ego/ic/ic_lib.c
View file

@ -8,7 +8,6 @@
* I C _ L I B . C
*/
#include <stdio.h>
#include <em_spec.h>
#include <em_pseu.h>
@ -23,26 +22,27 @@
#include "../share/files.h"
#include "ic_lib.h"
STATIC skip_string(n)
offset n;
{
/* Read a string of length n and void it */
while (n--) {
while (n--)
{
readchar();
}
}
STATIC skip_arguments()
{
/* Skip the arguments of a MES pseudo. The argument
* list is terminated by a sp_cend byte.
*/
for (;;) {
switch(table2()) {
for (;;)
{
switch (table2())
{
case sp_scon:
get_off(); /* void */
/* fall through !!! */
@ -60,10 +60,7 @@ STATIC skip_arguments()
}
}
STATIC bool proc_wanted(name)
char *name;
STATIC bool proc_wanted(name) char* name;
{
/* See if 'name' is the name of an external procedure
* that has been used before, but for which no body
@ -72,18 +69,17 @@ STATIC bool proc_wanted(name)
proc_p p;
if (( p = proclookup(name,IMPORTING)) != (proc_p) 0 &&
!(p->p_flags1 & PF_BODYSEEN)) {
if ((p = proclookup(name, IMPORTING)) != (proc_p)0 && !(p->p_flags1 & PF_BODYSEEN))
{
return TRUE;
} else {
}
else
{
return FALSE;
}
}
STATIC bool data_wanted(name)
char *name;
STATIC bool data_wanted(name) char* name;
{
/* See if 'name' is the name of an externally visible
* data block that has been used before, but for which
@ -92,16 +88,16 @@ STATIC bool data_wanted(name)
dblock_p db;
if ((db = symlookup(name,IMPORTING)) != (dblock_p) 0 &&
db->d_pseudo == DUNKNOWN) {
if ((db = symlookup(name, IMPORTING)) != (dblock_p)0 && db->d_pseudo == DUNKNOWN)
{
return TRUE;
} else {
}
else
{
return FALSE;
}
}
STATIC bool wanted_names()
{
/* Read the names of procedures and data labels,
@ -114,10 +110,13 @@ STATIC bool wanted_names()
* no defining occurrence has been met.
*/
for (;;) {
switch(table2()) {
for (;;)
{
switch (table2())
{
case DLBX:
if (data_wanted(string)) {
if (data_wanted(string))
{
return TRUE;
}
/* A data entity with the name
@ -125,7 +124,8 @@ STATIC bool wanted_names()
*/
break;
case sp_pnam:
if (proc_wanted(string)) {
if (proc_wanted(string))
{
return TRUE;
}
break;
@ -137,8 +137,6 @@ STATIC bool wanted_names()
}
}
STATIC FILE* curfile = NULL;
STATIC bool useful()
{
@ -150,29 +148,32 @@ STATIC bool useful()
* of the entities imported.
*/
for (;;) {
if (table1() != PSEU || tabval != ps_mes) {
for (;;)
{
if (table1() != PSEU || tabval != ps_mes)
{
error("cannot find MES %d in library file", ms_ext);
}
if (table2() != CSTX1) {
if (table2() != CSTX1)
{
error("message number expected");
}
if (tabval == ms_ext) {
if (tabval == ms_ext)
{
/* This is the one we searched */
return wanted_names();
/* Read the names of the imported entities
* and check if any of them is wanted.
*/
} else {
}
else
{
skip_arguments(); /* skip remainder of this MES */
}
}
}
STATIC bool is_archive(name)
char *name;
STATIC bool is_archive(name) char* name;
{
/* See if 'name' is the name of an archive file, i.e. it
* should end on ".ma" and should at least be four characters
@ -181,12 +182,11 @@ STATIC bool is_archive(name)
register char* p;
for (p = name; *p; p++);
for (p = name; *p; p++)
;
return (p > name + 3) && (*--p == 'a') && (*--p == 'm') && (*--p == '.');
}
STATIC struct ar_hdr hdr;
STATIC bool read_hdr()
@ -199,33 +199,35 @@ STATIC bool read_hdr()
register int i;
fread(c, AR_TOTAL, 1, curfile);
if (feof(curfile)) return 0;
if (feof(curfile))
return 0;
i = 14;
while (i--) {
while (i--)
{
*p++ = *c++;
}
#define get2(c) (((c)[0] & 0377) | ((unsigned)((c)[1] & 0377) << 8))
hdr.ar_date = ((long) get2(c)) << 16; c += 2;
hdr.ar_date |= ((long) get2(c)) & 0xffff; c += 2;
hdr.ar_date = ((long)get2(c)) << 16;
c += 2;
hdr.ar_date |= ((long)get2(c)) & 0xffff;
c += 2;
hdr.ar_uid = *c++;
hdr.ar_gid = *c++;
hdr.ar_mode = get2(c); c += 2;
hdr.ar_size = (long) get2(c) << 16; c += 2;
hdr.ar_mode = get2(c);
c += 2;
hdr.ar_size = (long)get2(c) << 16;
c += 2;
hdr.ar_size |= (long)get2(c) & 0xffff;
return 1;
}
STATIC int argcnt = ARGSTART - 1;
STATIC short arstate = NO_ARCHIVE;
FILE *next_file(argc,argv)
int argc;
FILE* next_file(argc, argv) int argc;
char* argv[];
{
/* See if there are more EM input files. The file names
@ -239,58 +241,75 @@ FILE *next_file(argc,argv)
long ptr;
for (;;) {
for (;;)
{
/* This loop is only exited via a return */
if (arstate == ARCHIVE) {
if (arstate == ARCHIVE)
{
/* We were reading an archive file */
if (ftell(curfile) & 1) {
if (ftell(curfile) & 1)
{
/* modules in an archive file always
* begin on a word boundary, i.e. at
* an even address.
*/
fseek(curfile, 1L, 1);
}
if (read_hdr()) { /* read header of next module */
if (read_hdr())
{ /* read header of next module */
ptr = ftell(curfile); /* file position */
file_init(curfile, ARCHIVE, hdr.ar_size);
/* tell i/o package that we're reading
* an archive module of given length.
*/
if (useful()) {
if (useful())
{
/* re-initialize file, because 'useful'
* has read some bytes too.
*/
fseek(curfile, ptr, 0); /* start module */
file_init(curfile, ARCHIVE, hdr.ar_size);
return curfile;
} else {
}
else
{
/* skip this module */
fseek(curfile,
ptr + hdr.ar_size, 0);
}
} else {
}
else
{
/* done with this archive */
arstate = NO_ARCHIVE;
}
} else {
}
else
{
/* open next file, close old */
if (curfile != NULL) {
if (curfile != NULL)
{
fclose(curfile);
}
argcnt++;
if (argcnt >= argc) {
if (argcnt >= argc)
{
/* done with all arguments */
return NULL;
}
filename = argv[argcnt];
if ((curfile = fopen(filename,"r")) == NULL) {
if ((curfile = fopen(filename, "r")) == NULL)
{
error("cannot open %s", filename);
}
if (is_archive(filename)) {
if (is_archive(filename))
{
/* ends on '.ma' */
arstate = ARCHIVE;
arch_init(curfile); /* read magic ar number */
} else {
}
else
{
file_init(curfile, NO_ARCHIVE, 0L);
return curfile;
}