Add support for a filename to record the name of the node in which the
table will be presented. Accessor methods are used to access the
attribute.
diff --git a/Doc/perl/SynopsisTable.pm b/Doc/perl/SynopsisTable.pm
index fb063d4..6a03dd2 100644
--- a/Doc/perl/SynopsisTable.pm
+++ b/Doc/perl/SynopsisTable.pm
@@ -1,7 +1,7 @@
package SynopsisTable;
sub new{
- return bless {names=>'', info=>{}};
+ return bless {names=>'', info=>{}, file=>''};
}
sub declare{
@@ -15,6 +15,20 @@
$self->{info}{$name} = "$key,$type,";
}
+# The 'file' attribute is used to store the filename of the node in which
+# the table will be presented; this assumes that each table will be presented
+# only once, which works for the current use of this object.
+
+sub set_file{
+ my($self, $filename) = @_;
+ $self->{file} = "$filename";
+}
+
+sub get_file{
+ my $self = shift;
+ return $self->{file};
+}
+
sub set_synopsis{
my($self,$name,$synopsis) = @_;
my($key,$type,$unused) = split ',', $self->{info}{$name}, 3;