Pārlūkot izejas kodu

Run through clang-format.

David Given 7 gadi atpakaļ
vecāks
revīzija
2b2bd93e44
1 mainītis faili ar 102 papildinājumiem un 83 dzēšanām
  1. 102 83
      util/ego/ic/ic_lib.c

+ 102 - 83
util/ego/ic/ic_lib.c

@@ -8,7 +8,6 @@
  *  I C _ L I B . C
  */
 
-
 #include <stdio.h>
 #include <em_spec.h>
 #include <em_pseu.h>
@@ -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;
 			}
 		}