← Back to branch summary

~js-reynaud/+junk/audela

« back to all changes in this revision

Viewing changes to audela/gui/audace/plugin/tool/bddimages/scripts/console/planif/tools_planif_parse.tcl

  • Committer: fredvachier
  • Date: 2018-06-07 13:48:30 UTC
  • Revision ID: svn-v4:04217e9b-e68c-4f9b-beca-5a77afb74039:trunk:14437
changement des colonnes pour la planif du t60

Show diffs side-by-side

added added

removed removed

Lines of Context:
audela/gui/audace/plugin/tool/bddimages/scripts/console/planif/tools_planif_parse.tcl
15
15
## Cette fonction lit le fichier lst de la liste des asteroides
16
16
# @return void
17
17
#
 
18
#   Type,    Num,        Nom, Magnitude, Period(h), Binning, Expo(s), Score
18
19
proc ::tools_planif::read_lst { filelst } {
19
20
 
20
21
   gren_info "Lecture du fichier $filelst : "
28
29
   set ::tools_planif::tabephem(lst,all) ""
29
30
   foreach line $r {
30
31
      if {[string range $line 0 0]=="#"} {continue} 
 
32
      if {[string trim $line ]==""} {continue} 
 
33
      
31
34
      incr cpt
32
 
      lassign [csv:parse $line] ssotype cnum cname priority period exposure binning
 
35
      lassign [csv:parse $line] ssotype cnum cname mag period binning exposure priority
33
36
      set key [::bddimages_imgcorrection::cleanEntities "${cnum}_${cname}"]
34
37
      lappend ::tools_planif::tabephem(lst,target) $key
35
38
      lappend ::tools_planif::tabephem(lst,all)    $key