Differences From:

File tools/cvs2fossil/lib/c2f_file.tcl part of check-in [cb70cf4ad6] - The basic work of setting up and linking revisions, tags, and branches is complete. by aku on 2007-10-13 05:39:00. [view]

To:

File tools/cvs2fossil/lib/c2f_file.tcl part of check-in [27470a9304] - Extended pass I to capture the 'file executable' info of rcs archives. Currently the only way to store this info in the destination will be the use of fossil tags. by aku on 2007-10-13 21:15:30. [view]

@@ -30,11 +30,12 @@
 snit::type ::vc::fossil::import::cvs::file {
     # # ## ### ##### ######## #############
     ## Public API
 
-    constructor {path project} {
-	set mypath    $path
-	set myproject $project
+    constructor {path executable project} {
+	set mypath       $path
+	set myexecutable $executable
+	set myproject    $project
 	return
     }
 
     method path    {} { return $mypath }
@@ -187,9 +188,10 @@
 
     # # ## ### ##### ######## #############
     ## State
 
-    variable mypath            {} ; # Path of our rcs archive.
+    variable mypath            {} ; # Path of the file's rcs archive.
+    variable myexecutable      0  ; # Boolean flag 'file executable'.
     variable myproject         {} ; # Reference to the project object
 				    # the file belongs to.
     variable myrev -array      {} ; # Maps revision number to the
 				    # associated revision object.
@@ -226,9 +228,8 @@
 			     # number means 'Defined earlier', means
 			     # 'Created later'.
 
     ### TODO ###
-    ### File flag - executable,
     ### RCS mode info (kb, kkb, ...)
 
     # # ## ### ##### ######## #############
     ## Internal methods