2 * Copyright (C) 1995-2007 University of Karlsruhe. All right reserved.
4 * This file is part of libFirm.
6 * This file may be distributed and/or modified under the terms of the
7 * GNU General Public License version 2 as published by the Free Software
8 * Foundation and appearing in the file LICENSE.GPL included in the
9 * packaging of this file.
11 * Licensees holding valid libFirm Professional Edition licenses may use
12 * this file in accordance with the libFirm Commercial License.
13 * Agreement provided with the Software.
15 * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
16 * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
21 * Author: Matthias Braun
23 * Copyright: (c) Universitaet Karlsruhe
24 * License: This file is protected by GPL - GNU GENERAL PUBLIC LICENSE.
30 #include "beemitter.h"
33 void be_emit_init_env(be_emit_env_t *env, FILE *F)
35 memset(env, 0, sizeof(env[0]));
38 obstack_init(&env->obst);
42 void be_emit_destroy_env(be_emit_env_t *env)
44 obstack_free(&env->obst, NULL);
47 void be_emit_ident(be_emit_env_t *env, ident *id)
49 size_t len = get_id_strlen(id);
50 const char *str = get_id_str(id);
52 be_emit_string_len(env, str, len);
55 void be_emit_irvprintf(be_emit_env_t *env, const char *fmt, va_list args)
59 ir_vsnprintf(buf, sizeof(buf), fmt, args);
60 be_emit_string(env, buf);
63 void be_emit_irprintf(be_emit_env_t *env, const char *fmt, ...)
68 be_emit_irvprintf(env, fmt, ap);
72 void be_emit_write_line(be_emit_env_t *env)
74 char *finished_line = obstack_finish(&env->obst);
76 fwrite(finished_line, env->linelength, 1, env->F);
78 obstack_free(&env->obst, finished_line);
81 void be_emit_pad_comment(be_emit_env_t *env)
83 while(env->linelength <= 30) {
84 be_emit_char(env, ' ');
86 be_emit_cstring(env, " ");
89 void be_emit_finish_line_gas(be_emit_env_t *env, const ir_node *node)
92 const char *sourcefile;
96 be_emit_char(env, '\n');
97 be_emit_write_line(env);
101 be_emit_pad_comment(env);
102 be_emit_cstring(env, "/* ");
103 be_emit_irprintf(env, "%+F ", node);
105 dbg = get_irn_dbg_info(node);
106 sourcefile = be_retrieve_dbg_info(dbg, &lineno);
107 if(sourcefile != NULL) {
108 be_emit_string(env, sourcefile);
109 be_emit_irprintf(env, ":%u", lineno);
111 be_emit_cstring(env, " */\n");
112 be_emit_write_line(env);