extension.c File Reference

#include "linear.h"
#include "genC.h"
#include "ri-util.h"
#include "text-util.h"
#include "prettyprint.h"

Include dependency graph for extension.c:

Go to the source code of this file.

Functions
string	close_extension (extension e)
	extension.c More...
string	close_extensions (extensions es, bool nl)
string	extension_to_string (extension e)
string	extensions_to_string (extensions es, bool nl)
	return a new allocated string with the string representation of the extensions. More...

Function Documentation

close_extension()

string close_extension

(

extension

e

)

extension.c

Returns

a new allocated string to close the extension.

Parameters

es,the

extension to be closed

Today we only generate omp parallel do pragma so the close is pretty easy. Later we will have to analyze the extension to generate the close string accordingly.

Definition at line 49 of file extension.c.

                                     {
  return close_pragma (extension_pragma(e));
}

References close_pragma(), and extension_pragma.

Referenced by close_extensions().

Here is the call graph for this function:

Here is the caller graph for this function:

close_extensions()

string close_extensions	(	extensions	es,
		bool	nl
	)

Returns

a new allocated string to close the extensions.

Parameters

es,the	extensions to be closed
nl,set	to true to get the string with a final new line character

Use a string_buffer for efficient string concatenation:

Free the buffer with its strings:

Parameters

es	s
nl	l

Definition at line 58 of file extension.c.

                                          {
  string s = string_undefined;
 
  if (!empty_extensions_p (es) ) {
    /* Use a string_buffer for efficient string concatenation: */
    string_buffer sb = string_buffer_make(false);
 
    list el = extensions_extension(es);
    FOREACH(EXTENSION, e, el) {
      s = close_extension(e);
      if (s != string_undefined) {
        string_buffer_append(sb, s);
        if (nl ) string_buffer_append(sb, strdup ("\n"));
        nl = true;
      }
    }
    s = string_buffer_to_string(sb);
    /* Free the buffer with its strings: */
    string_buffer_free_all(&sb);
  }
 
  return s;
}

References close_extension(), empty_extensions_p(), EXTENSION, extensions_extension, FOREACH, strdup(), string_buffer_append(), string_buffer_free_all(), string_buffer_make(), string_buffer_to_string(), and string_undefined.

Here is the call graph for this function:

extension_to_string()

string extension_to_string

(

extension

e

)

Returns

a new allocated string with the extension textual representation.

to be added later when extension can be something else than pragma switch (extension_tag(e)) { case is_extension_pragma:

default: pips_internal_error("Unknown extension type"); }

Definition at line 86 of file extension.c.

                                 {
  string s;
  /* to be added later when extension can be something else than pragma
  switch (extension_tag(e)) {
  case is_extension_pragma:
  */
    s = pragma_to_string(extension_pragma(e));
    /*  default:
    pips_internal_error("Unknown extension type");
    }*/
  return s;
}

References extension_pragma, and pragma_to_string().

Referenced by extensions_to_string().

Here is the call graph for this function:

Here is the caller graph for this function:

extensions_to_string()

string extensions_to_string	(	extensions	es,
		bool	nl
	)

return a new allocated string with the string representation of the extensions.

Basically you'll get one extension per line

Assume that all the extension from the extensions (note the presence or not of the "s"...) are defined below.

Returns

string_undefined if es is extension_undefined, an malloc()ed textual string either.

Parameters

es,the	extensions to translate to strings
nl,set	to true to get the string with a final new line character

Prettyprint in the correct language:

Use a string_buffer for efficient string concatenation:

Free the buffer with its strings:

Parameters

es	s
nl	l

Definition at line 111 of file extension.c.

                                             {
  string s = string_undefined;
 
  /* Prettyprint in the correct language: */
//  set_prettyprint_language_from_property ();
 
  if (!empty_extensions_p (es) ) {
    /* Use a string_buffer for efficient string concatenation: */
    string_buffer sb = string_buffer_make(false);
 
    list el = extensions_extension(es);
    FOREACH(EXTENSION, e, el) {
      s = extension_to_string(e);
      string_buffer_append(sb, s);
      if (nl ) string_buffer_append(sb, strdup ("\n"));
      nl = true;
    }
    s = string_buffer_to_string(sb);
    /* Free the buffer with its strings: */
    string_buffer_free_all(&sb);
  }
 
  return s;
}

References empty_extensions_p(), EXTENSION, extension_to_string(), extensions_extension, FOREACH, strdup(), string_buffer_append(), string_buffer_free_all(), string_buffer_make(), string_buffer_to_string(), and string_undefined.

Referenced by loop_pragma().

Here is the call graph for this function:

Here is the caller graph for this function: