[NetScript CVS] CVS: netscript2/src/tools/IPdoc Class.pm,1.1,1.2

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/tools/IPdoc
In directory usw-pr-cvs1:/tmp/cvs-serv17035

Modified Files:
	Class.pm 
Log Message:
* fixed relative paths
* added subclasses list

Index: Class.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/tools/IPdoc/Class.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Class.pm	2002/02/05 00:30:37	1.1
--- Class.pm	2002/02/05 23:06:45	1.2
***************
*** 35,41 ****
--- 35,43 ----
      my @params = ();
      my @paramValues = ();
+     my @subclasses = ();
      $this -> { m_subs } = \@subs;
      $this -> { m_params } = \@params;
      $this -> { m_paramValues } = \@paramValues;
+     $this -> { m_subclasses } = \@subclasses;
      $this;
      }
***************
*** 103,108 ****
          my $relativeName = $filename;
          $relativeName =~ s/\.pm$/\.html/;
!         $relativeName =~ s/\/[^\/]+\//\/..\//g;
          $relativeName =~ s/^\///;
          $this -> { m_relativeName } = $relativeName;
          }
--- 105,114 ----
          my $relativeName = $filename;
          $relativeName =~ s/\.pm$/\.html/;
!         my $fullName = $relativeName;
!         $fullName =~ s/^\///;
!         $this -> { m_fullName } = $fullName;
!         $relativeName =~ s/\/[^\/]+/\/../g;
          $relativeName =~ s/^\///;
+         $relativeName =~ s/\.\.$//;
          $this -> { m_relativeName } = $relativeName;
          }
***************
*** 113,116 ****
--- 119,132 ----
  
  #/**
+ # Returns the full filename of the html file where this Class info is 
+ # stored in.
+ # @return the full filename
+ #*/
+ sub fullFileName {
+     my ($this) = @_;
+     $this -> { m_fullName };
+     }
+ 
+ #/**
  # Returns the relative filename where this class documentation is stored 
  # in.
***************
*** 132,135 ****
--- 148,156 ----
      if (defined($parent)) {
          $this -> { m_parent } = $parent;
+         # the parent may not be reachable so we
+         # eval this here..
+         eval {
+             $parent -> newSubClass($this);
+             }; 
          }
      $this -> { m_parent };
***************
*** 155,156 ****
--- 176,197 ----
      }
  
+ #/**
+ # Adds a new subclass. This is automatically called when the parent
+ # function is called so you normally don't need to call it yourself.
+ # @param the subclass to add
+ # @private
+ #*/
+ sub newSubClass {
+     my ($this, $subclass)  = @_;
+     push( @{$this -> { m_subclasses } }, $subclass );
+     }
+ 
+ #/**
+ # Returns a list reference holding all subclasses of this class.
+ # @return a list reference
+ # @public
+ #*/
+ sub subClasses {
+     my ($this) = @_;
+     $this->{m_subclasses};
+     }