src/lib/support/XAIFStrings.cxx

Go to the documentation of this file.

// ##########################################################
// # This file is part of OpenADFortTk.                     #
// # The full COPYRIGHT notice can be found in the top      #
// # level directory of the OpenADFortTk source tree.       #
// # For more information visit                             #
// # http://www.mcs.anl.gov/openad                          #
// ##########################################################

#include <iostream>

#include <stdlib.h>
#include <string.h>

#include "XAIFStrings.h"


using std::cerr;
using std::endl;


XAIFStringRepository XAIFStrings;

// Note: The order must match the enumeration!
const char* XAIFStringRepository::c_strTbl[] = {
  // -----------------------------------------------------
  
  // Common attributes
  "annotation",
  "vertex_id",
  "edge_id",
  "scope_id",
  "symbol_id",
  
  "active",
  "deriv",
  
  "source",
  "target",
  
  "lineNumber",

  // -----------------------------------------------------
  // top level

  "prefix",

  // -----------------------------------------------------
  // xaif:CallGraph
  "xaif:CallGraph",

  // -----------------------------------------------------
  // xaif:ScopeHierarchy, xaif:Scope, xaif:SymbolTable
  "xaif:ScopeHierarchy",
  "xaif:Scope",
  "xaif:SymbolTable",

  // xaif:Symbol
  "xaif:Symbol",
  "kind",
  "type",
  "feType",
  "shape",
  "temp",
  
  // xaif:DimensionBounds
  "xaif:DimensionBounds",
  "lower",
  "upper",
  
  // -----------------------------------------------------
  
  // xaif:ControlFlowGraph, xaif:ReplacementList, xaif:Replacement
  "xaif:ControlFlowGraph",
  "xaif:ReplacementList", 
  
  "xaif:ArgumentList",
  "xaif:ArgumentSymbolReference",
  "intent",
  "structured",
  
  "xaif:Replacement",
  "placeholder",
  
  "xaif:ControlFlowEdge",
  "has_condition_value",
  "condition_value",
  
  // xaif:BasicBlock
  "xaif:BasicBlock",
  "xaif:Entry",
  "xaif:Exit",
  "xaif:Branch",
  "xaif:ForLoop",
  "xaif:PreLoop",
  "xaif:PostLoop",
  
  "xaif:EndBranch",
  "xaif:EndLoop",
  
  "xaif:Initialization",
  "xaif:Condition",
  "xaif:Update",
  
  // Statements
  "xaif:Assignment",
  "xaif:SubroutineCall",
  "xaif:InlinableSubroutineCall",
  "xaif:Marker",
  
  "xaif:AssignmentLHS",
  "xaif:AssignmentRHS",
  
  "xaif:Argument",
  
  "subroutine_name",
  "formalArgCount",
  
  // Expressions
  "xaif:VariableReference",
  "xaif:Constant",
  "xaif:Intrinsic",
  "xaif:FunctionCall",
  "xaif:BooleanOperation",

  "xaif:ExpressionEdge",

  "name",
  "value",
  "position",
  
  // Variable Reference Expressions
  "xaif:SymbolReference",
  "xaif:ArrayElementReference",
  
  "xaif:IndexTriplet",
  "xaif:Index",
  "xaif:Bound",
  "xaif:Stride",
  
  "xaif:VariableReferenceEdge",

  // DerivativeAccumulator
  "xaif:DerivativePropagator", // block
  
  "xaif:SetDeriv",             // stmt
  "xaif:SetNegDeriv",
  "xaif:IncDeriv",
  "xaif:DecDeriv",
  "xaif:ZeroDeriv",
  "xaif:Sax",
  "xaif:Saxpy",
  
  "xaif:Tgt",                  // expr
  "xaif:Src",
  "xaif:AX",
  "xaif:A",
  "xaif:X",
  "xaif:Y",
  
  // -----------------------------------------------------
  
  // Special tags
  "{SymTab_Id#",
  "{Sym_Id#",
  "{PU_Id#",
  "{WHIRL_Id#",
  
  "{StmtGoto#",
  "{StmtLabel#",
  "{StmtReturn#",
  
  "{IntrinsicKey#",
  "{PregId#",
  
  "}"
};

XAIFStringRepository::XAIFStringRepository()
{ 
  x_strTbl = new XMLCh*[NUM_STRINGS];
  for (int i = 0; i < NUM_STRINGS; ++i) {
    x_strTbl[i] = NULL;
  }
}

void
XAIFStringRepository::XMLInitialize()
{ 
  for (int i = 0; i < NUM_STRINGS; ++i) {
    const char* str = c_strTbl[i];
    unsigned int len = strlen(str);
    
    x_strTbl[i] = new XMLCh[len + 1];
    XMLString::transcode(str, x_strTbl[i], len);
  }
}

XAIFStringRepository::~XAIFStringRepository()
{
  for (int i = 0; i < NUM_STRINGS; ++i) {
    delete[] x_strTbl[i];
  }
  delete[] x_strTbl;
}