From 2b2bd93e44155d1fb64593deebc629f0b145557e Mon Sep 17 00:00:00 2001 From: David Given Date: Sun, 21 Aug 2016 20:08:05 +0200 Subject: [PATCH] Run through clang-format. --- util/ego/ic/ic_lib.c | 185 ++++++++++++++++++++++++------------------- 1 file changed, 102 insertions(+), 83 deletions(-) diff --git a/util/ego/ic/ic_lib.c b/util/ego/ic/ic_lib.c index e23bdd5d9..aa86a5d0a 100644 --- a/util/ego/ic/ic_lib.c +++ b/util/ego/ic/ic_lib.c @@ -8,7 +8,6 @@ * I C _ L I B . C */ - #include #include #include @@ -23,29 +22,30 @@ #include "../share/files.h" #include "ic_lib.h" - STATIC skip_string(n) - offset 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 !!! */ + /* fall through !!! */ case sp_icon: case sp_ucon: case sp_fcon: @@ -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,9 +137,7 @@ STATIC bool wanted_names() } } - - -STATIC FILE *curfile = NULL; +STATIC FILE* curfile = NULL; STATIC bool useful() { /* Determine if any entity imported by the current @@ -150,43 +148,45 @@ STATIC bool useful() * of the entities imported. */ - for (;;) { - if (table1() != PSEU || tabval != ps_mes) { - error("cannot find MES %d in library file",ms_ext); + 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 * long (i.e. the name ".ma" is not accepted as an archive name!). */ - register char *p; + register char* p; - for (p = name; *p; p++); - return (p > name+3) && (*--p == 'a') && (*--p == 'm') && (*--p == '.'); + for (p = name; *p; p++) + ; + return (p > name + 3) && (*--p == 'a') && (*--p == 'm') && (*--p == '.'); } - - STATIC struct ar_hdr hdr; STATIC bool read_hdr() @@ -194,39 +194,41 @@ STATIC bool read_hdr() /* Read the header of an archive module */ char buf[AR_TOTAL]; - register char *c = buf; - register char *p = hdr.ar_name; + register char* c = buf; + register char* p = hdr.ar_name; 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)) +#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_size |= (long) get2(c) & 0xffff; + 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; - char *argv[]; +FILE* next_file(argc, argv) int argc; +char* argv[]; { /* See if there are more EM input files. The file names * are given via argv. If a file is an archive file @@ -237,61 +239,78 @@ FILE *next_file(argc,argv) * occurrence, although we have seen a used occurrence. */ - long ptr; + 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); + 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); + 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); + 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); + 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) { - error("cannot open %s",filename); + 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 { - file_init(curfile,NO_ARCHIVE,0L); + } + else + { + file_init(curfile, NO_ARCHIVE, 0L); return curfile; } }