cmfortran.c File Reference

#include <stdio.h>
#include <string.h>
#include "linear.h"
#include "genC.h"
#include "text-util.h"
#include "ri-util.h"
#include "prettyprint.h"

Include dependency graph for cmfortran.c:

Go to the source code of this file.

Functions
cons *	words_cmf_loop_range (range obj)
	Prettyprinter for CM FORTRAN loops. More...
text	text_loop_cmf (entity module, const char *label, int margin, loop obj, int n, list lr, list lidx)
	===================================================================== More...

Function Documentation

text_loop_cmf()

text text_loop_cmf	(	entity	module,
		const char*	label,
		int	margin,
		loop	obj,
		int	n,
		list	lr,
		list	lidx
	)

=====================================================================

Parameters

module	odule
label	abel
margin	argin
obj	bj
lr	r
lidx	idx

Definition at line 66 of file cmfortran.c.

{
  text result_text = text_undefined;
  instruction i;
  entity idx;
  range r;
 
  i = statement_instruction(loop_body(obj));
  idx = loop_index(obj);
  r = loop_range(obj);
 
  lr = gen_nconc(lr, CONS(RANGE, r, NIL));
  lidx = gen_nconc(lidx, CONS(ENTITY, idx, NIL));
 
  if(!instruction_assign_p(i)) {
    if(instruction_loop_p(i)) {
      result_text = text_loop_cmf(module, label, margin,
                                  instruction_loop(i), n, lr, lidx);
    }
  }
  else {
    list pc, lli, llr;
    unformatted u;
 
    pc = CHAIN_SWORD(NIL, "FORALL(");
    for(lli = lidx, llr = lr; !ENDP(lli); POP(lli), POP(llr)) {
      pc = CHAIN_SWORD(pc, entity_local_name(ENTITY(CAR(lli))));
      pc = CHAIN_SWORD(pc, " = ");
      pc = gen_nconc(pc, words_cmf_loop_range(RANGE(CAR(llr))));
      if(CDR(lli) != NIL)
        pc = CHAIN_SWORD(pc, ", ");
    }
    pc = CHAIN_SWORD(pc, ") ");
    pc = gen_nconc(pc, Words_Call(instruction_call(i), 0, true, true));
    u = make_unformatted(strdup(label), n, margin, pc) ;
    result_text = make_text(CONS(SENTENCE,
                                 make_sentence(is_sentence_unformatted,
                                               u),
                                 NIL));
  }
  return(result_text);
}

References CAR, CDR, CHAIN_SWORD, CONS, ENDP, ENTITY, entity_local_name(), gen_nconc(), instruction_assign_p(), instruction_call, instruction_loop, instruction_loop_p, is_sentence_unformatted, loop_body, loop_index, loop_range, make_sentence(), make_text(), make_unformatted(), module, NIL, POP, RANGE, SENTENCE, statement_instruction, strdup(), text_undefined, Words_Call(), and words_cmf_loop_range().

Referenced by text_loop().

Here is the call graph for this function:

Here is the caller graph for this function:

words_cmf_loop_range()

cons* words_cmf_loop_range

(

range

obj

)

Prettyprinter for CM FORTRAN loops.

cmfortran.c

There are memory leaks here since a new expression is constructed. =====================================================================

expression_constant_p(range_increment(obj)) &&

Parameters

obj

bj

Definition at line 46 of file cmfortran.c.

{
    cons *pc;
    call c = syntax_call(expression_syntax(range_increment(obj)));
 
    pc = Words_Subexpression(range_lower(obj), 0, true);
    pc = CHAIN_SWORD(pc,":");
    pc = gen_nconc(pc, Words_Subexpression(range_upper(obj), 0, true));
    if (/*  expression_constant_p(range_increment(obj)) && */
         strcmp( entity_local_name(call_function(c)), "1") == 0 )
        return(pc);
    pc = CHAIN_SWORD(pc,":");
    pc = gen_nconc(pc, Words_Expression(range_increment(obj)));
 
    return(pc);
}

References call_function, CHAIN_SWORD, entity_local_name(), expression_syntax, gen_nconc(), range_increment, range_lower, range_upper, syntax_call, Words_Expression(), and Words_Subexpression().

Referenced by text_loop_cmf().

Here is the call graph for this function:

Here is the caller graph for this function: