Mercurial > repos > fgiacomoni > hr2

comparison lib/hr.pm @ 1:e2cbcf6fa22e draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
master branch Updating with tag :CI_COMMIT_TAG - - Fxx
author fgiacomoni
date Sun, 11 Dec 2022 17:16:43 +0000
parents 86296c048e46
children 23970530a518
comparison
equal deleted inserted replaced
0:86296c048e46 1:e2cbcf6fa22e
70 my ( $atomcleanconfig ) = ( undef ) ; 70 my ( $atomcleanconfig ) = ( undef ) ;
71 71
72 # basic atoms case: 72 # basic atoms case:
73 foreach my $atom ( (split(",", $atombasic )) ) { 73 foreach my $atom ( (split(",", $atombasic )) ) {
74 if ( exists $CONF->{$atom} ) { $atomsconfig->{$atom}{'max'} = $CONF->{$atom} ; } 74 if ( exists $CONF->{$atom} ) { $atomsconfig->{$atom}{'max'} = $CONF->{$atom} ; }
75 else { print "*** $atom not recognized***\n" ; }
75 } 76 }
76 77
77 # suppl. atoms case 78 # suppl. atoms case
78 foreach my $atom ( (split(",", $atomsupp )) ) { 79 foreach my $atom ( (split(",", $atomsupp )) ) {
79 print "*** $atom***\n" ; 80 print "*** $atom***\n" ;
80 if ( exists $atomsconfig->{$atom} ) { $atomsconfig->{$atom} = $CONF->{'DEFAULT_MAX'} ; } 81 if ( exists $atomsconfig->{$atom} ) { $atomsconfig->{$atom}{'max'} = $CONF->{'DEFAULT_MAX'} ; }
82 else { print "*** $atom not recognized***\n" ; }
83
81 } 84 }
82 85
83 # Create atoms and range parameters: 86 # Create atoms and range parameters:
84 foreach my $selectedAtom ( keys %{$atomsconfig} ) { 87 foreach my $selectedAtom ( keys %{$atomsconfig} ) {
85 $atomcleanconfig .= ' -'.$selectedAtom.' '.$atomsconfig->{$selectedAtom}{'min'}.'-'.$atomsconfig->{$selectedAtom}{'max'} ; 88 $atomcleanconfig .= ' -'.$selectedAtom.' '.$atomsconfig->{$selectedAtom}{'min'}.'-'.$atomsconfig->{$selectedAtom}{'max'} ;