Differences From:

File tools/cvs2fossil/lib/c2f_fsym.tcl part of check-in [84de38d73f] - Added a lot of skeleton files for the revision and symbol data structures, for both project and file level. by aku on 2007-10-10 03:28:22. [view]

To:

File tools/cvs2fossil/lib/c2f_fsym.tcl part of check-in [da9295c6f6] - Continued to flesh out revision and symbol processing. Started on the project level classses. by aku on 2007-10-12 07:18:27. [view]

@@ -24,14 +24,23 @@
 snit::type ::vc::fossil::import::cvs::file::sym {
     # # ## ### ##### ######## #############
     ## Public API
 
-    constructor {} {
+    constructor {symtype nr symbol} {
+	set mytype   $symtype
+	set mynr     $nr
+	set mysymbol $symbol
 	return
     }
 
+    delegate method name to mysymbol
+
     # # ## ### ##### ######## #############
     ## State
+
+    variable mytype   {} ; # Symbol type, 'tag', or 'branch'.
+    variable mynr     {} ; # Revision number of a 'tag', branch number of a 'branch'.
+    variable mysymbol {} ; # Ref to symbol object at project level.
 
     # # ## ### ##### ######## #############
     ## Internal methods
 
@@ -40,9 +49,8 @@
 
     pragma -hastypeinfo    no  ; # no type introspection
     pragma -hasinfo        no  ; # no object introspection
     pragma -hastypemethods no  ; # type is not relevant.
-    pragma -simpledispatch yes ; # simple fast dispatch
 
     # # ## ### ##### ######## #############
 }