:property modifiable by generator?

 

is  it possible to modfied the value of a :property from within a code generator? I've got an object that I'm using to terminate an if-then-else statement, called an if-terminator (where the then and else sections converge back together) and I'm trying to find a way to mark it as having been visited by the 'then' path so that it terminates for the 'then' path but is passed through by the 'else' path. I've made a :Visited count; property but I can't seem to be able to change it's value from within a code generator - is there a way to do this?

 

Thanks,

 

Matt 

else if type = 'If terminator'; then
 '}' newline
 subreport '_translators' run /* I've run this once at startup, doesn't seem to make a diff */
 if not ($visited =~ oid%wildsp) then
  variable 'visited' append oid ' ' close
 else
 do ~Statement; where #Out of statement port
 {
  do ~Statement.()
  {
   subreport 'Process Body Generator' run
  }
 }
 endif

 

No matter what happens, it always thinks that oid does not have the object's oid in it (I've verified in the debugger window that the oid value is infact being set in variable "visited", any ideas as to why the "if not ($visited =~ oid%wildsp) then" always thinks the oid is not in the variable, even when it is?

 

Thanks,

 

Matt

 

--Matt

 

$visited is going to contain something like this after you have visited three terminators:

 

oid will be something like '3_5678' if you're revisiting the 2nd

 

oid%wildsp will add spaces and stars to get '* 3_5678 *'

 

=~ will perform a wildcard match (I notice in your later posts you just used =, which won't work).

 

Note the initialization of $visited to a single space, ' ', so oid%wildsp will match even for the first object.

 

_translators only needs to be run once, right at the start of your generator. It just defines %wildsp etc., and those definitions will last until the end of the generator run.

 

Report '_recurse'

to 'indent' translate

   newline 'first line'

   newline 'second line'

   if $++ix < '5' NUM then

      subreport '_recurse' run

   endif

endto

endreport

 

It's not ideal to require the newline at the start of a line of code rather than the end, but I haven't tried messing around with a smarter regex version.

 

Your variable is also a reasonable way. Rather than having an integer variable and implementing a "for" loop in MERL (e.g. by recursion as above), you could have a string variable containing the tabs, and use a translator to add or remove one as necessary.