gen qq{
! EDG_WLL_NUMBER_OF_${un}S /**< Number of ${n}s */
};
+ my $an="edg_wll_Status" . $n . "Names[]";
gen qq{
!\};
+
+extern char *$an;
+
};
}
}
/* starting from bit 10 private flags begins - do not add 1024 and more! */
+
/**
* Initialize empty status structure.
* Fills in the stucture with NULL's or values with no meaning
gen qq{$sep};
@@@}
+
+@@@{
+ for my $n ($status->getAllFieldsOrdered) {
+# XXX: we've got only _common_ in jobStatus, no clash possible
+ my $f = selectField $status $n;
+ if ($f->{codes}) {
+ my $n = ucfirst getName $f;
+ printf("\nchar *edg_wll_Status$n");
+ printf("Names[] = \{");
+ my $num = 0;
+ for (@{$f->{codes}}) {
+ my $uc = uc $_->{name};
+ $uc =~ tr/-/_/;
+ if ( $num != 0 ) { printf (","); }
+ printf(" \"$uc\"");
+ $num++;
+ }
+ my $un = uc $n;
+ printf (" };\n");
+ }
+ }
+@@@}
+
extern void edg_wll_FreeTagList(edg_wll_TagValue *);
void edg_wll_FreeStatus(edg_wll_JobStat *stat)