Embperl::Syntax::RTF 2.2.0

Embperl::Syntax::RTF is a Perl class derived from Embperl::Syntax to define the syntax for RTF files. RTF files can be read and written by various word processing programms. This allows you to create dynamic wordprocessing documents or let process serial letters thru Embperl.

Currently Embperl regocnices the fields DOCVARIABLE, MERGEFIELD and NEXT. Variablenames are resolved as hash keys to $param[0] e.g. foo.bar referes to $param[0]{foo}{bar}, the @param Array can by set via the param parameter of the Execute function. NEXT moves to the next element of the @param array. If the end of the document is reached, Embperl repeats the document until all element of @param are processed. This can for example be use to tie a database table to @param and generate a serial letter.

SYNOPSIS

my $x = $Embperl::req -> component -> code ;
my ($op, $cmp, $a, $b) = XML::Embperl::DOM::Node::iChildsText (%$q%,%$x%,1) =~ /:([=<>])+s*"(.*?)"(?:s*"(.*?)"s*"(.*?)")?/ ;

if ($op eq =) { $op = eq }
elsif ($op eq <) { $op = lt }
elsif ($op eq >) { $op = gt }
elsif ($op eq >=) { $op = ge }
elsif ($op eq <=) { $op = le }

print "n#" . __LINE__ . " op = $op cmp = $cmp a = $a b = $b code=$_ep_rtf_code tmp=$_ep_rtf_tmp 0=$param[0]{adressen_anrede} ndx=$_ep_rtf_ndx eval=qq[$_ep_rtf_code]n" ;
$_ep_rtf_code =~ s/$a/q[$a]/g ;
$_ep_rtf_code =~ s/$b/q[$b]/g ;
$_ep_rtf_code =~ s/$cmp/q[$cmp]/g ;
$_ep_rtf_code =~ s/$op/$op/g ;
$_ep_rtf_code =~ s/$x/$x/g ;
print "result=$_ep_rtf_coden" ;

warn "RTF IF syntax error. Missing operator" if (!$op) ;