65 lines
2.1 KiB
C
65 lines
2.1 KiB
C
/* nice_printf -- same arguments as fprintf.
|
|
|
|
All output which is to become C code must be directed through this
|
|
function. For now, no buffering is done. Later on, every line of
|
|
output will be filtered to accomodate the style definitions (e.g. one
|
|
statement per line, spaces between function names and argument lists,
|
|
etc.)
|
|
*/
|
|
#include "niceprintf.h"
|
|
|
|
|
|
/* Definitions for the opcode table. The table is indexed by the macros
|
|
which are #defined in defines.h */
|
|
|
|
#define UNARY_OP 01
|
|
#define BINARY_OP 02
|
|
|
|
#define SPECIAL_FMT NULL
|
|
|
|
#define is_unary_op(x) (opcode_table[x].type == UNARY_OP)
|
|
#define is_binary_op(x) (opcode_table[x].type == BINARY_OP)
|
|
#define op_precedence(x) (opcode_table[x].prec)
|
|
#define op_format(x) (opcode_table[x].format)
|
|
|
|
/* _assoc_table -- encodes left-associativity and right-associativity
|
|
information; indexed by precedence level. Only 2, 3, 14 are
|
|
right-associative. Source: Kernighan & Ritchie, p. 49 */
|
|
|
|
extern char _assoc_table[];
|
|
|
|
#define is_right_assoc(x) (_assoc_table [x])
|
|
#define is_left_assoc(x) (! _assoc_table [x])
|
|
|
|
|
|
typedef struct {
|
|
int type; /* UNARY_OP or BINARY_OP */
|
|
int prec; /* Precedence level, useful for adjusting
|
|
number of parens to insert. Zero is a
|
|
special level, and 2, 3, 14 are
|
|
right-associative */
|
|
char *format;
|
|
} table_entry;
|
|
|
|
|
|
extern char *fl_fmt_string; /* Float constant format string */
|
|
extern char *db_fmt_string; /* Double constant format string */
|
|
extern char *cm_fmt_string; /* Complex constant format string */
|
|
extern char *dcm_fmt_string; /* Double Complex constant format string */
|
|
|
|
extern int indent; /* Number of spaces to indent; this is a
|
|
temporary fix */
|
|
extern int tab_size; /* Number of spaces in each tab */
|
|
extern int in_string;
|
|
|
|
extern table_entry opcode_table[];
|
|
|
|
|
|
void compgoto_out Argdcl((FILEP, tagptr, tagptr));
|
|
void endif_out Argdcl((FILEP));
|
|
void expr_out Argdcl((FILEP, tagptr));
|
|
void out_and_free_statement Argdcl((FILEP, tagptr));
|
|
void out_end_for Argdcl((FILEP));
|
|
void out_if Argdcl((FILEP, tagptr));
|
|
void out_name Argdcl((FILEP, Namep));
|