Added upstream from http://ftp.icm.edu.pl/pub/loglan/
[loglan.git] / sources / f2c / output.h
1 /* nice_printf -- same arguments as fprintf.
2
3         All output which is to become C code must be directed through this
4    function.  For now, no buffering is done.  Later on, every line of
5    output will be filtered to accomodate the style definitions (e.g. one
6    statement per line, spaces between function names and argument lists,
7    etc.)
8 */
9 #include "nicepr.h"
10
11 extern int nice_printf ();
12
13
14 /* Definitions for the opcode table.  The table is indexed by the macros
15    which are #defined in   defines.h   */
16
17 #define UNARY_OP 01
18 #define BINARY_OP 02
19
20 #define SPECIAL_FMT NULL
21
22 #define is_unary_op(x) (opcode_table[x].type == UNARY_OP)
23 #define is_binary_op(x) (opcode_table[x].type == BINARY_OP)
24 #define op_precedence(x) (opcode_table[x].prec)
25 #define op_format(x) (opcode_table[x].format)
26
27 /* _assoc_table -- encodes left-associativity and right-associativity
28    information; indexed by precedence level.  Only 2, 3, 14 are
29    right-associative.  Source:  Kernighan & Ritchie, p. 49 */
30
31 extern char _assoc_table[];
32
33 #define is_right_assoc(x) (_assoc_table [x])
34 #define is_left_assoc(x) (! _assoc_table [x])
35
36
37 typedef struct {
38     int type;                   /* UNARY_OP or BINARY_OP */
39     int prec;                   /* Precedence level, useful for adjusting
40                                    number of parens to insert.  Zero is a
41                                    special level, and 2, 3, 14 are
42                                    right-associative */
43     char *format;
44 } table_entry;
45
46
47 extern char *fl_fmt_string;     /* Float constant format string */
48 extern char *db_fmt_string;     /* Double constant format string */
49 extern char *cm_fmt_string;     /* Complex constant format string */
50 extern char *dcm_fmt_string;    /* Double Complex constant format string */
51
52 extern int indent;              /* Number of spaces to indent; this is a
53                                    temporary fix */
54 extern int tab_size;            /* Number of spaces in each tab */
55 extern int in_string;
56
57 extern table_entry opcode_table[];
58
59
60 void expr_out (), out_init (), out_addr (), out_const ();
61 void out_name (), extern_out (), out_asgoto ();
62 void out_if (), out_else (), elif_out ();
63 void endif_out (), end_else_out ();
64 void compgoto_out (), out_for ();
65 void out_end_for (), out_and_free_statement ();