Format.

Author: davidgiven

lang/cem/cemcom.ansi/LLlex.c

@@ -5,8 +5,8 @@
 /* $Id$ */
 /*		    L E X I C A L   A N A L Y Z E R			*/
 
-#include	<stddef.h>
-#include 	<stdbool.h>
+#include <stddef.h>
+#include <stdbool.h>
 #include <assert.h>
 #include <alloc.h>
 #include <stdlib.h>
@@ -21,7 +21,7 @@
 #include "Lpars.h"
 #include "class.h"
 #include "sizes.h"
-#include "type.h"     /* no_long_long() */
+#include "type.h" /* no_long_long() */
 #include "error.h"
 #include "domacro.h"
 #include "specials.h" /* registration of special identifiers */
@@ -40,21 +40,20 @@ int File_Inserted = 0; /* a file has just been inserted	*/
 int LexSave = 0; /* last character read by GetChar	*/
 #define MAX_LL_DEPTH 2
 
-#define FLG_ESEEN 0x01 /* possibly a floating point number */
+#define FLG_ESEEN   0x01 /* possibly a floating point number */
 #define FLG_DOTSEEN 0x02 /* certainly a floating point number */
 
 #ifdef LINT
 extern int lint_skip_comment;
 #endif
 
-
 /* Internal function declarations */
 static arith char_constant(char*);
-static char* string_token(char *, int , int *);
+static char* string_token(char*, int, int*);
 static int quoted(int);
 static int hex_val(int);
-static void strflt2tok(char [], struct token *);
-static void strint2tok(char [], struct token *);
+static void strflt2tok(char[], struct token*);
+static void strint2tok(char[], struct token*);
 
 int LLlex(void)
 {
@@ -87,7 +86,6 @@ int LLlex(void)
 	return DOT;
 }
 
-
 int GetToken(struct token* ptok)
 {
 	/*	GetToken() is the actual token recognizer. It calls the
@@ -130,8 +128,7 @@ int GetToken(struct token* ptok)
 				*/
 				return ptok->tk_symb = EOI;
 
-			while ((ch = GetChar()), (ch == '#'
-			                          || class(ch) == STSKIP))
+			while ((ch = GetChar()), (ch == '#' || class(ch) == STSKIP))
 			{
 				/* blanks are allowed before hashes */
 				if (ch == '#')
@@ -294,8 +291,7 @@ int GetToken(struct token* ptok)
 			idef->id_file = ptok->tk_file;
 			idef->id_line = ptok->tk_line;
 			ptok->tk_symb
-			    = (idef->id_reserved
-			           ? idef->id_reserved
+			    = (idef->id_reserved                                    ? idef->id_reserved
 			           : idef->id_def && idef->id_def->df_sc == TYPEDEF ? TYPE_IDENTIFIER
 			                                                            : IDENTIFIER);
 			return IDENTIFIER;
@@ -426,7 +422,7 @@ static arith char_constant(char* nm)
 	return val;
 }
 
-static char* string_token(char *nm, int stop_char, int *plen)
+static char* string_token(char* nm, int stop_char, int* plen)
 {
 	int ch;
 	int str_size;
@@ -688,7 +684,7 @@ static void strint2tok(char intbuf[], struct token* ptok)
 	    and long, then C89 tries unsigned long, but C99 tries
 	    long long (WG14, Rationale for C99, C99RationaleV5.10.pdf,
 	    6.4.4.1 Integer constants).
-		This compiler follows C89 when the literal has no
+	    This compiler follows C89 when the literal has no
 	    long long suffix.
 	*/
 	cut = 0;
@@ -729,8 +725,7 @@ static void strint2tok(char intbuf[], struct token* ptok)
 		fund = ERRONEOUS;
 	else
 	{
-		assert(sizeof(val) > long_size ||
-		       (lnglng_size >= 0 && sizeof(val) > lnglng_size));
+		assert(sizeof(val) > long_size || (lnglng_size >= 0 && sizeof(val) > lnglng_size));
 		lexwarning("constant too large for target machine");
 		cut = 1;
 	}

lang/cem/cemcom.ansi/LLlex.h

@@ -6,58 +6,61 @@
 /* D E F I N I T I O N S   F O R   T H E   L E X I C A L   A N A L Y Z E R */
 
 /*	A token from the input stream is represented by an integer,
-	called a "symbol", but it may have other information associated
-	to it.
+    called a "symbol", but it may have other information associated
+    to it.
 */
 #ifndef LLLEX_H_
 #define LLLEX_H_
 
 #include "file_info.h"
 
 /* the structure of a token:	*/
-struct token	{
-	int tok_symb;		/* the token itself */
-	char *tok_file;		/* the file it (probably) comes from */
-	unsigned int tok_line;	/* the line it (probably) comes from */
+struct token
+{
+	int tok_symb; /* the token itself */
+	char* tok_file; /* the file it (probably) comes from */
+	unsigned int tok_line; /* the line it (probably) comes from */
 	int tok_fund;
-	union	{
-		struct idf *tok_idf;	/* for IDENTIFIER & TYPE_IDENTIFIER */
-		struct	{		/* for STRING */
-			char *tok_bts;	/* row of bytes */
-			int tok_len;	/* length of row of bytes */
+	union
+	{
+		struct idf* tok_idf; /* for IDENTIFIER & TYPE_IDENTIFIER */
+		struct
+		{ /* for STRING */
+			char* tok_bts; /* row of bytes */
+			int tok_len; /* length of row of bytes */
 		} tok_string;
-		writh tok_ival;		/* for INTEGER */
-		char *tok_fval;		/* for FLOATING */
+		writh tok_ival; /* for INTEGER */
+		char* tok_fval; /* for FLOATING */
 	} tok_data;
 };
 
-#define tk_symb	tok_symb
-#define tk_file	tok_file
-#define tk_line	tok_line
-#define tk_fund	tok_fund
-#define tk_idf	tok_data.tok_idf
-#define tk_bts	tok_data.tok_string.tok_bts
-#define tk_len	tok_data.tok_string.tok_len
-#define tk_ival	tok_data.tok_ival
-#define tk_fval	tok_data.tok_fval
+#define tk_symb tok_symb
+#define tk_file tok_file
+#define tk_line tok_line
+#define tk_fund tok_fund
+#define tk_idf  tok_data.tok_idf
+#define tk_bts  tok_data.tok_string.tok_bts
+#define tk_len  tok_data.tok_string.tok_len
+#define tk_ival tok_data.tok_ival
+#define tk_fval tok_data.tok_fval
 
 extern struct token dot, ahead, aside;
-extern int token_nmb;			/* number of the ahead token */
-extern int tk_nmb_at_last_syn_err;	/* token number at last syntax error */
+extern int token_nmb; /* number of the ahead token */
+extern int tk_nmb_at_last_syn_err; /* token number at last syntax error */
 
-extern int EoiForNewline;	/* "LLlex.c"	*/
-extern int AccFileSpecifier;	/* "LLlex.c"	*/
-extern int File_Inserted;	/* "LLlex.c"	*/
+extern int EoiForNewline; /* "LLlex.c"	*/
+extern int AccFileSpecifier; /* "LLlex.c"	*/
+extern int File_Inserted; /* "LLlex.c"	*/
 
-extern int NoUnstack;		/* buffer.c	*/
+extern int NoUnstack; /* buffer.c	*/
 
-extern int err_occurred;	/* "error.c"	*/
+extern int err_occurred; /* "error.c"	*/
 
-#define	DOT	dot.tk_symb
-#define	AHEAD	ahead.tk_symb
-#define	ASIDE	aside.tk_symb
+#define DOT   dot.tk_symb
+#define AHEAD ahead.tk_symb
+#define ASIDE aside.tk_symb
 
-#define EOF	(-1)
+#define EOF (-1)
 
 extern int GetChar(void);
 extern int LLlex(void);

lang/cem/cemcom.ansi/LLmessage.c

@@ -5,19 +5,17 @@
 /* $Id$ */
 /*		PARSER ERROR ADMINISTRATION		*/
 
-#include	<stddef.h>
-#include 	<stdbool.h>
-#include	<string.h>
-#include	<alloc.h>
-#include	"idf.h"
-#include	"arith.h"
-#include	"LLlex.h"
-#include	"Lpars.h"
-#include    "error.h"
+#include <stddef.h>
+#include <stdbool.h>
+#include <string.h>
+#include <alloc.h>
+#include "idf.h"
+#include "arith.h"
+#include "LLlex.h"
+#include "Lpars.h"
+#include "error.h"
 
-
-
-static void insert_token(int );
+static void insert_token(int);
 
 void LLmessage(int tk)
 {
@@ -52,23 +50,23 @@ static void insert_token(int tk)
 
 	switch (tk)
 	{
-	/* The operands need some body */
-	case IDENTIFIER:
-		dot.tk_idf = gen_idf();
-		break;
-	case TYPE_IDENTIFIER:
-		dot.tk_idf = str2idf("int", 0);
-		break;
-	case STRING:
-		dot.tk_bts = strdup("");
-		dot.tk_len = 1;
-		break;
-	case INTEGER:
-		dot.tk_fund = INT;
-		dot.tk_ival = 1;
-		break;
-	case FLOATING:
-		dot.tk_fval = strdup("0.0");
-		break;
+		/* The operands need some body */
+		case IDENTIFIER:
+			dot.tk_idf = gen_idf();
+			break;
+		case TYPE_IDENTIFIER:
+			dot.tk_idf = str2idf("int", 0);
+			break;
+		case STRING:
+			dot.tk_bts = strdup("");
+			dot.tk_len = 1;
+			break;
+		case INTEGER:
+			dot.tk_fund = INT;
+			dot.tk_ival = 1;
+			break;
+		case FLOATING:
+			dot.tk_fval = strdup("0.0");
+			break;
 	}
 }

lang/cem/cemcom.ansi/align.h

@@ -8,24 +8,20 @@
 #include "parameters.h"
 
 #ifndef NOCROSS
-extern int
-	short_align, word_align, int_align, long_align,
-	lnglng_align,
-	float_align, double_align, lngdbl_align,
-	pointer_align,
-	struct_align, union_align;
+extern int short_align, word_align, int_align, long_align, lnglng_align, float_align, double_align,
+    lngdbl_align, pointer_align, struct_align, union_align;
 #else /* NOCROSS */
-#define short_align	((int)AL_SHORT)
-#define word_align	((int)AL_WORD)
-#define int_align	((int)AL_INT)
-#define long_align	((int)AL_LONG)
-#define lnglng_align	((int)AL_LNGLNG)
-#define float_align	((int)AL_FLOAT)
-#define double_align	((int)AL_DOUBLE)
-#define	lngdbl_align	((int)AL_LNGDBL)
-#define pointer_align	((int)AL_POINTER)
-#define struct_align	((int)AL_STRUCT)
-#define union_align	((int)AL_UNION)
+#define short_align   ((int)AL_SHORT)
+#define word_align    ((int)AL_WORD)
+#define int_align     ((int)AL_INT)
+#define long_align    ((int)AL_LONG)
+#define lnglng_align  ((int)AL_LNGLNG)
+#define float_align   ((int)AL_FLOAT)
+#define double_align  ((int)AL_DOUBLE)
+#define lngdbl_align  ((int)AL_LNGDBL)
+#define pointer_align ((int)AL_POINTER)
+#define struct_align  ((int)AL_STRUCT)
+#define union_align   ((int)AL_UNION)
 #endif /* NOCROSS */
 
 extern arith align(arith pos, int al);