|
|
@ -296,11 +296,32 @@ sub render_struct_field_refs {
|
|
|
|
sub render_field_reftarget {
|
|
|
|
sub render_field_reftarget {
|
|
|
|
my ($parent, $field, $name, $reftg) = @_;
|
|
|
|
my ($parent, $field, $name, $reftg) = @_;
|
|
|
|
|
|
|
|
|
|
|
|
my $aux = $field->getAttribute('aux-value');
|
|
|
|
|
|
|
|
return if ($aux); # TODO
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $tg = $global_types{$reftg};
|
|
|
|
my $tg = $global_types{$reftg};
|
|
|
|
return if (!$tg);
|
|
|
|
return if (!$tg);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $tgname = "${name}_tg";
|
|
|
|
|
|
|
|
$tgname =~ s/_id(.?.?)_tg/_tg$1/;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $aux = $field->getAttribute('aux-value');
|
|
|
|
|
|
|
|
if ($aux) {
|
|
|
|
|
|
|
|
# minimal support (aims is unit.caste_tg)
|
|
|
|
|
|
|
|
return if $aux !~ /^\$\$\.[^_][\w\.]+$/;
|
|
|
|
|
|
|
|
$aux =~ s/\$\$\.//;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
for my $codehelper ($tg->findnodes('child::code-helper')) {
|
|
|
|
|
|
|
|
if ($codehelper->getAttribute('name') eq 'find-instance') {
|
|
|
|
|
|
|
|
my $helper = $codehelper->textContent;
|
|
|
|
|
|
|
|
$helper =~ s/\$global/df/;
|
|
|
|
|
|
|
|
$helper =~ s/\$\$/$aux/;
|
|
|
|
|
|
|
|
$helper =~ s/\$/$name/;
|
|
|
|
|
|
|
|
if ($helper =~ /^[\w\.\[\]]+$/) {
|
|
|
|
|
|
|
|
push @lines_rb, "def $tgname ; $helper ; end";
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
my $tgvec = $tg->getAttribute('instance-vector');
|
|
|
|
my $tgvec = $tg->getAttribute('instance-vector');
|
|
|
|
return if (!$tgvec);
|
|
|
|
return if (!$tgvec);
|
|
|
|
my $idx = $tg->getAttribute('key-field');
|
|
|
|
my $idx = $tg->getAttribute('key-field');
|
|
|
@ -308,9 +329,6 @@ sub render_field_reftarget {
|
|
|
|
$tgvec =~ s/^\$global/df/;
|
|
|
|
$tgvec =~ s/^\$global/df/;
|
|
|
|
return if $tgvec !~ /^[\w\.]+$/;
|
|
|
|
return if $tgvec !~ /^[\w\.]+$/;
|
|
|
|
|
|
|
|
|
|
|
|
my $tgname = "${name}_tg";
|
|
|
|
|
|
|
|
$tgname =~ s/_id(.?.?)_tg/_tg$1/;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
for my $othername (map { $_->getAttribute('name') } $parent->findnodes('child::ld:field')) {
|
|
|
|
for my $othername (map { $_->getAttribute('name') } $parent->findnodes('child::ld:field')) {
|
|
|
|
$tgname .= '_' if ($othername and $tgname eq $othername);
|
|
|
|
$tgname .= '_' if ($othername and $tgname eq $othername);
|
|
|
|
}
|
|
|
|
}
|
|
|
|