25 #include "pips_config.h"
108 if (strcmp (lang,
"F77") == 0) {
111 else if (strcmp (lang,
"C") == 0) {
114 else if (strcmp (lang,
"F95") == 0) {
117 else if (strcmp (lang,
"native") == 0) {
162 return isdigit(label[0]) ?
"l%s:" :
"%s:";
language make_language_fortran(void)
char * get_string_property(const char *)
bool prettyprint_language_is_fortran95_p()
void set_prettyprint_language(language lang)
set the prettyprint language from a newgen language object
void set_prettyprint_language_from_property(enum language_utype native)
set the prettyprint language according to the property PRETTYPRINT_LANGUAGE @description If the prope...
language get_prettyprint_language()
please avoid using this function directly, use predicate instead (see below)
static language prettyprint_language
==================== Language management ===========
bool prettyprint_language_is_c_p()
enum language_utype get_prettyprint_language_tag()
bool prettyprint_language_is_fortran_p()
string get_C_label_printf_format(const char *label)
Get the prettyprint format of a C label.
void set_prettyprint_language_tag(enum language_utype lang)
set the prettyprint language from a language_utype argument
#define pips_internal_error
#define language_undefined