Changeset 619 in quafit


Ignore:
Timestamp:
Feb 13, 2016, 10:45:20 PM (6 years ago)
Author:
alexey
Message:

Updates - fixed some bugs, simplified procedure of module generation and QuaFit? input file

Files:
3 added
2 edited

Legend:

Unmodified
Added
Removed
  • genapp_modifier/parser_gennap_modifier.pl

    r616 r619  
    55
    66
    7 my $file = '/home/alexey/QuaFit/Commented/quatest_commented.dat';
     7my $file = '/home/alexey/genapptest/quafit/module_generator/quatest_tags.dat';
    88
    99if ( !@ARGV )
     
    3535while (my $line = <$fh>) {
    3636    my $line_copy = $line;
    37     chomp $line;
    38     #print OUT $line;
    39    
    40     if ($line =~ /:/ && $line !~ m/:$/)
     37    #chomp $line;
     38     
     39    if ($line_copy =~ m/#TAG/)
    4140    {
     41        $line =~ s/#TAG//;
     42        chomp $line;
     43       
    4244        my $id = (split(/[:]/, $line))[0];
    4345        my $dval = (split(/[:]/, $line))[-1];
    4446       
     47        #print OUT "TAG: $id : $dval \n\n";
     48
    4549        $dval =~ s/\s+$//;
    4650        $dval =~ s/^\s*(.*?)\s*$/$1/;  # remove whitespace from both ends
     
    5660
    5761
    58        
    5962        if ( length $id_key )
    6063        {
     
    6265            $label_key =~ tr/a-zA-Z0-9_(\/)[] //cd;
    6366            $label_key =~ s/^\s*(.*?)\s*$/$1/;
    64             if ( $label_key =~ m/(1\/0)/ )
     67            if ( $label_key =~ m/(1\/0)/ )
    6568            {
    6669                $id_key =~ s/_10//ig;
    6770                if ($dval == 0 && !(exists $ref->{$id_key}))   # Solved problem with checkboxes!!
    6871                {
    69                     print OUT $line_copy;
     72                    $line_copy =~ s/#TAG//;
     73                    chomp $line_copy;
     74                    $line_copy =~ s/\s+$//;
     75                    print OUT $line_copy ."\n";
     76                }
     77                if ($dval == 1 && !(exists $ref->{$id_key}))   # Solved problem with checkboxes!!
     78                {
     79                    print OUT "$id:0\n";
    7080                }
    7181                                   
     
    97107
    98108close OUT;
     109close OUT1;
     110
    99111
    100112print encode_json( $res );
  • module_generator/parser_mod_sorted.pl

    r618 r619  
    55
    66
    7 #my $file = 'qualast_cut.dat';
     7#my $file = 'quatest_tags.dat';
    88
    99if ( !@ARGV )
     
    1919open(my $fh, '<', $file) or die "Can't read file '$file' [$!]\n";
    2020while (my $line = <$fh>) {
    21     chomp $line;
    22     if ($line =~ /:/ && $line !~ m/:$/)
     21    #chomp $line;
     22    if ($line =~ m/#TAG/)
    2323    {
     24        $line =~ s/#TAG//;
     25        chomp $line;
     26       
     27    #if ($line =~ /:/ && $line !~ m/:$/)
     28    #{
    2429        ++$num;
    2530        my $id = (split(/[:]/, $line))[0];
     
    5863print "\# this is a module file, any module specific info belongs here
    5964{
    60    \"moduleid\" : \"quafit_module\",
     65   \"moduleid\" : \"quafit_test\",
    6166   \"label\"    : \"QuaFit\",
    6267   \"help\"     : \"help_module\",
     
    105110                     \"required\" : \"true\",
    106111                     \"help\"     : \"\"
    107                  }"   
     112                 },"   
    108113                ;
    109              if ( $a < $size)
    110              {
    111                 print ",";
    112              }
    113         }
     114 #            if ( $a < $size)
     115 #            {
     116 #               print ",";
     117 #            }
     118       }
    114119        else
    115120        {
    116             print "
    117                  {
    118                      \"role\"     : \"input\", 
     121            print "
     122                   {
     123                     \"role\"     : \"input\", 
    119124                     \"id\"       : \"$id_key\",
    120125                     \"label\"    : \"$label_key\",
    121126                     \"type\"     : \"text\", 
    122127                     \"default\"  : \"$value\",
    123                      \"required\" : \"true\",
    124                      \"help\"     : \"\"       
    125                  }"   
    126                 ;
    127              if ( $a < $size)
    128              {
    129                 print ",";
    130              }
     128                     \"required\" : \"true\",
     129                     \"help\"     : \"\"       
     130                 },"   
     131                ;
     132 #            if ( $a < $size)
     133 #            {
     134 #               print ",";
     135 #            }
    131136        }
    132137}
     138       print "
     139                  {
     140                     \"role\"     : \"output\", 
     141                     \"id\"       : \"outputfile\",
     142                     \"label\"    : \"Quafit Output\",
     143                     \"type\"     : \"file\" 
     144                  }"   
     145            ;
     146
     147
    133148print "
    134149             ], \n
    135    \"executable\"   : \"your_executable\",
     150   \"executable\"   : \"parser_gennap_modifier.pl\",
    136151   \"submitpolicy\" : \"all\"
    137152}\n"
Note: See TracChangeset for help on using the changeset viewer.