Browse Source

punkcheck debugging - again

master
Julian Noble 3 months ago
parent
commit
dc5fbab30f
  1. 7
      src/bootsupport/modules/punkcheck-0.1.0.tm
  2. 7
      src/modules/punkcheck-0.1.0.tm

7
src/bootsupport/modules/punkcheck-0.1.0.tm

@ -303,10 +303,13 @@ namespace eval punkcheck {
set o_targets [lsort -dictionary -increasing $relativepath_targetset] ;#exact sort order not critical - but must be consistent set o_targets [lsort -dictionary -increasing $relativepath_targetset] ;#exact sort order not critical - but must be consistent
#load as dict to test for dupes
set targetdict [my targetset_dict]
set record_list [punkcheck::load_records_from_file $punkcheck_file] set record_list [punkcheck::load_records_from_file $punkcheck_file]
#load as dict to test for dupes
#set targetdict [my targetset_dict]
set targetdict [punkcheck::recordlist::records_as_target_dict $record_list]
set extractioninfo [punkcheck::recordlist::extract_or_create_fileset_record $o_targets $record_list] set extractioninfo [punkcheck::recordlist::extract_or_create_fileset_record $o_targets $record_list]
set o_fileset_record [dict get $extractioninfo record] set o_fileset_record [dict get $extractioninfo record]
set record_list [dict get $extractioninfo recordset] set record_list [dict get $extractioninfo recordset]

7
src/modules/punkcheck-0.1.0.tm

@ -303,10 +303,13 @@ namespace eval punkcheck {
set o_targets [lsort -dictionary -increasing $relativepath_targetset] ;#exact sort order not critical - but must be consistent set o_targets [lsort -dictionary -increasing $relativepath_targetset] ;#exact sort order not critical - but must be consistent
#load as dict to test for dupes
set targetdict [my targetset_dict]
set record_list [punkcheck::load_records_from_file $punkcheck_file] set record_list [punkcheck::load_records_from_file $punkcheck_file]
#load as dict to test for dupes
#set targetdict [my targetset_dict]
set targetdict [punkcheck::recordlist::records_as_target_dict $record_list]
set extractioninfo [punkcheck::recordlist::extract_or_create_fileset_record $o_targets $record_list] set extractioninfo [punkcheck::recordlist::extract_or_create_fileset_record $o_targets $record_list]
set o_fileset_record [dict get $extractioninfo record] set o_fileset_record [dict get $extractioninfo record]
set record_list [dict get $extractioninfo recordset] set record_list [dict get $extractioninfo recordset]

Loading…
Cancel
Save