xml_output.c File Reference

#include <stdio.h>
#include <ctype.h>
#include "genC.h"
#include "linear.h"
#include "ri.h"
#include "effects.h"
#include "resources.h"
#include "misc.h"
#include "ri-util.h"
#include "prettyprint.h"
#include "effects-util.h"
#include "control.h"
#include "pipsdbm.h"
#include "text-util.h"
#include "properties.h"

Include dependency graph for xml_output.c:

Go to the source code of this file.

Macros
#define	NL   "\n"
#define	XMLPRETTY   ".xml"
#define	xml_print(format, args...)

Functions
static void	xml_set_output (FILE *new_fp)
static void	xml_output (string s)
static void	xml_print_entity_name (entity e)
static void	xml_print_type (type t)
void	xml_print_entity_full (entity e)
	xml_output.c More...
static void	xml_print_parameter (entity p, bool is_a_dim)
void	gather_grid_dim (statement s, void *ctx)
bool	gpu_xml_dump (string mod_name)
	PIPSMAKE INTERFACE. More...

Variables
static FILE *	out_fp = 0

Macro Definition Documentation

NL

#define NL   "\n"

Definition at line 48 of file xml_output.c.

xml_print

#define xml_print	(		format,
			args...
	)

Value:

{ \
  pips_assert("Output is set",out_fp); \
  fprintf(out_fp,format,##args); \
}

Definition at line 62 of file xml_output.c.

XMLPRETTY

#define XMLPRETTY   ".xml"

Definition at line 50 of file xml_output.c.

Function Documentation

gather_grid_dim()

void gather_grid_dim	(	statement	s,
		void *	ctx
	)

Parameters

ctx

tx

Definition at line 165 of file xml_output.c.

                                             {
  // ctx is a pointer to a list of variable
  list *dims = (list *)ctx;
 
  string comment = statement_comments(s);
  pips_debug(3,"Statement %p, Compare comment '%s'\n",s,comment);
  if(!string_undefined_p(comment)) {
    size_t sentinel_len = strlen("// To be assigned to a call to P4A_vp_X: ");
    string sentinel;
    while((sentinel=strstr(comment,"// To be assigned to a call to P4A_vp_"))!=NULL) {
      string varname_ptr = sentinel+sentinel_len;
      string varname_end = strchr(varname_ptr,'\n');
      int varname_len = varname_end-varname_ptr;
      string varname = strndup(varname_ptr,varname_len); // to be freed
      pips_debug(2,"Catch dimension %s\n",varname);
      *dims = CONS(string,varname,*dims);
      comment = varname_end;
    }
  }
}

References comment(), CONS, pips_debug, statement_comments, string_undefined_p, and strndup().

Referenced by gpu_xml_dump().

Here is the call graph for this function:

Here is the caller graph for this function:

gpu_xml_dump()

bool gpu_xml_dump

(

string

mod_name

)

PIPSMAKE INTERFACE.

Set the current module entity required to have many things working in PIPS:

First find grid dimension by looking for magic comments

of const strings

Print current module

Parameters

mod_name

od_name

Definition at line 187 of file xml_output.c.

                                   {
 
  statement module_statement = (statement) db_get_memory_resource(DBR_CODE,
                                                                  mod_name,
                                                                  true);
 
  set_current_module_statement(module_statement);
 
  /* Set the current module entity required to have many things
   working in PIPS: */
  set_current_module_entity(module_name_to_entity(mod_name));
 
  debug_on("GPU_XML_DUMP_DEBUG_LEVEL");
  pips_assert("Statement should be OK at entry...",
              statement_consistent_p(module_statement));
 
  // Prepare the output file
  string xml_file_name = db_build_file_resource_name("RI",
                                                     mod_name,
                                                     ".out.xml");
  string output_file = strdup(concatenate(db_get_current_workspace_directory(),
                                          "/",
                                          xml_file_name,
                                          NULL));
  pips_debug(2, "Output in %s\n", output_file);
  FILE *fp = safe_fopen(output_file, "w");
  xml_set_output(fp);
 
  /* First find grid dimension by looking for magic comments */
  list /* of const strings */ dims = NIL;
  gen_context_recurse(module_statement, &dims,
     statement_domain, gen_true2, gather_grid_dim);
 
  /* Print current module */
  entity module = get_current_module_entity();
  type module_type = entity_type(module);
  pips_assert("Functional module", type_functional_p(module_type));
 
  // Remove wrapper prefix FIXME: bad hack...
  string original_name = mod_name + strlen("p4a_wrapper_");
 
  // Print Task
  xml_print("<Task name=\"%s\" kernel=\"%s\" nbParallelLoops=\"%zu\">" NL,
            original_name, mod_name, gen_length(dims));
 
  // Params
  int nparams = gen_length(functional_parameters(type_functional(module_type)));
  for(int i = 1; i <= nparams; i++) {
    entity param = find_ith_parameter(module, i);
    bool is_a_dim = false;
    FOREACH(string, dim, dims) {
      if(same_string_p(entity_user_name(param),dim)) {
        is_a_dim=true;
        break;
      }
    }
    xml_print_parameter(param, is_a_dim );
  }
 
  //xml_print_statement(module_statement);
  xml_print("</Task>" NL);
 
  // Reset output file
  xml_set_output(0);
  safe_fclose(fp, output_file);
 
  DB_PUT_FILE_RESOURCE( DBR_GPU_XML_FILE, strdup( mod_name ), xml_file_name );
 
  debug_off();
 
  reset_current_module_statement();
  reset_current_module_entity();
 
  return true;
}

References concatenate(), db_build_file_resource_name(), db_get_current_workspace_directory(), db_get_memory_resource(), DB_PUT_FILE_RESOURCE, debug_off, debug_on, entity_type, entity_user_name(), find_ith_parameter(), FOREACH, functional_parameters, gather_grid_dim(), gen_context_recurse, gen_length(), gen_true2(), get_current_module_entity(), module, module_name_to_entity(), module_statement, NIL, NL, pips_assert, pips_debug, reset_current_module_entity(), reset_current_module_statement(), safe_fclose(), safe_fopen(), same_string_p, set_current_module_entity(), set_current_module_statement(), statement_consistent_p(), statement_domain, strdup(), type_functional, type_functional_p, xml_print, xml_print_parameter(), and xml_set_output().

Here is the call graph for this function:

xml_output()

static void xml_output ( string  s )

static

Definition at line 68 of file xml_output.c.

                                 {
  xml_print("%s", s);
}

References xml_print.

Referenced by xml_print_entity_full(), xml_print_entity_name(), and xml_print_type().

Here is the caller graph for this function:

xml_print_entity_full()

void xml_print_entity_full

(

entity

e

)

xml_output.c

Definition at line 132 of file xml_output.c.

                                     {
  xml_output(entity_name( e ));
  xml_print_type(entity_type( e ));
  //xml_print_storage(entity_storage( e ));
  //xml_print_value(entity_initial( e ));
}

References entity_name, entity_type, xml_output(), and xml_print_type().

Here is the call graph for this function:

xml_print_entity_name()

static void xml_print_entity_name ( entity  e )

static

Definition at line 72 of file xml_output.c.

                                            {
  xml_output(entity_name( e ));
}

References entity_name, and xml_output().

Referenced by xml_print_type().

Here is the call graph for this function:

Here is the caller graph for this function:

xml_print_parameter()

static void xml_print_parameter ( entity  p, bool  is_a_dim  )

static

Definition at line 139 of file xml_output.c.

                                                         {
  xml_print("<Arg type=\"")
  type t = entity_type( p );
 
  // Pointeur or Array/scalar
  // BTW it would be too easy if "array" means Array type, in fact it means pointer...
  type ut = ultimate_type(t);
  if(basic_pointer_p(variable_basic(type_variable(ut)))) {
    xml_print("array");
  } else {
    xml_print("param");
  }
 
  // Name
  xml_print("\" name=\"%s\" ", entity_user_name(p));
 
  // Type
  xml_print(" typeData=\"%s\"", string_of_type(t));
 
  if(is_a_dim) {
    xml_print(" value=\"0\"")
  }
  xml_print("/>" NL)
}

References basic_pointer_p, entity_type, entity_user_name(), NL, string_of_type(), type_variable, ultimate_type(), variable_basic, and xml_print.

Referenced by gpu_xml_dump().

Here is the call graph for this function:

Here is the caller graph for this function:

xml_print_type()

static void xml_print_type ( type  t )

static

Definition at line 76 of file xml_output.c.

                                   {
  if(t == type_undefined) {
    xml_print("*undefined*");
  } else {
    switch(type_tag( t )) {
      case is_type_statement:
      xml_output("Statement (unit ?) ");
      break;
      case is_type_area:
      xml_output("Area unsupported");
      break;
      case is_type_variable:
      xml_output("Variable unsupported");
      //xml_print_variable(type_variable( t ));
      break;
      case is_type_functional:
      xml_output("Functional unsupported");
      //xml_print_functional(type_functional( t ));
      break;
      case is_type_varargs:
      xml_output("VarArgs unsupported");
      //xml_print_type(type_varargs( t ));
      break;
      case is_type_unknown:
      xml_output("Unknown");
      break;
      case is_type_void:
      xml_output("void");
      break;
      case is_type_struct: {
        FOREACH(entity, e, type_struct( t ) )
        {
          xml_print_entity_name(e);
        }
        break;
      }
      case is_type_union:
      xml_output("Union");
      FOREACH(entity, e, type_union( t ) )
      {
        xml_print_entity_name(e);
      }
      break;
      case is_type_enum:
      xml_output("Enum");
      FOREACH(entity, e, type_enum( t ) )
      {
        xml_print_entity_name(e);
      }
      break;
      default:
      break;
    }
  }
}

References FOREACH, is_type_area, is_type_enum, is_type_functional, is_type_statement, is_type_struct, is_type_union, is_type_unknown, is_type_varargs, is_type_variable, is_type_void, type_enum, type_struct, type_tag, type_undefined, type_union, xml_output(), xml_print, and xml_print_entity_name().

Referenced by xml_print_entity_full().

Here is the call graph for this function:

Here is the caller graph for this function:

xml_set_output()

static void xml_set_output ( FILE *  new_fp )

static

Definition at line 55 of file xml_output.c.

                                         {
  out_fp = new_fp;
}

References out_fp.

Referenced by gpu_xml_dump().

Here is the caller graph for this function:

Variable Documentation

out_fp

FILE* out_fp = 0

static

Definition at line 52 of file xml_output.c.

Referenced by xml_set_output().