Subversion Repositories lagranto.arpege

#!/usr/bin/perl

# --------------------------------------------------------

# Separate different commands out (delimiter & and |)

# --------------------------------------------------------

# Get input command and remove all spaces

$cmd = $ARGV[0];

$_   = $cmd;s/\s+//g;$cmd=$_;

$len = length $cmd; 

# Split the command string according to logical operators

$nline = 0;

while ( $len > 0 )

{

  # Get the length of the (remaining) command string

  $len = length $cmd; 

  # Get the position of the next command separator

  $and  = index($cmd,'&');

  $or   = index($cmd,'|' );

  if ( ($and == -1) && ($or == -1) )

     { $next = $len+1; }

  elsif ( ($and == -1) && ($or >= 0) )

     { $next = $or;  @logop[$nline] = 'OR'; }

  elsif ( ($and >= 0) && ($or == -1) )

     { $next = $and; @logop[$nline] = 'AND'; }

  elsif ($and > $or)

     { $next = $or; @logop[$nline] = 'OR';  }

  else

      { $next = $and; @logop[$nline] = 'AND'; }

  # A logical operator is not allowed to be at position 0

  if ( $next == 0) 

   {    

      die('Invalid expression... Check logical operators & and |');

   }   

  # Extract the next substring

  $sub = substr($cmd,0,$next);

  $cmd = substr($cmd,$next+1,$len-$next-1);

  $len = length $cmd; 

  # Save the command in a new line

  @field[$nline] = $sub;

  $nline = $nline + 1;

}

# --------------------------------------------------------

# Handle each command line separately

# --------------------------------------------------------

# Write start marker

print "BEGIN \n";

foreach ( $i = 0; $i < $nline; $i++  )

{

    # Split the command into its four components

    @entry  = split /:/, @field[$i];

    $nentry = @entry;

    # Either four or three elements are needed

    if ( ($nentry < 3) | ($nentry > 4) )     

     {    

      die('Each expression needs either 3 or 4 fields...');

     }   

    # Write the command

    print "@entry[0] \n";

    # Get the variable and the 'mode' for this variable

    $left  = index(@entry[1],'(');

    $right = index(@entry[1],')');

    if ( ($left == -1) && ($right == -1) ) 

      { 

       $var  = @entry[1];

       $mode = 'VALUE';

      }

    elsif ( ($left > 0) && ($right > $left) ) 

      { 

       $var  = substr(@entry[1],0,$left);  

       $mode = substr(@entry[1],$left+1,$right-$left-1);

      }

    else

      {    

       die('Invalid variable specification...');

      }   

    print "$var  $mode \n";

    # Get the parameter list for this command

    @param  = split /,/, @entry[2];

    $nparam = @param;

    print "$nparam \n";

    print "@param \n";

    # If only three parameters are given, the time is assumed to be the first one

    if ( $nentry == 3 )

    {

	@entry[3]='FIRST';

    }    

    # Get the variable and the 'mode' for this variable

    $left  = index(@entry[3],'(');

    $right = index(@entry[3],')');

    if ( ($left == -1) && ($right == -1) ) 

      { 

       $time = @entry[3];

       $mode = 'ALL';

      }

    elsif ( ($left > 0) && ($right > $left) ) 

      { 

       $time = substr(@entry[3],0,$left);  

       $mode = substr(@entry[3],$left+1,$right-$left-1);

      }

    else

      {    

       die('Invalid time specification...');

      }   

    # Get the time list for this command

    if ( $time eq 'ALL' )

    {

	$time = -999;

        print "1 \n";

        print "$time \n";

    }

    elsif ( $time eq 'FIRST' )

    {

        $time = -996;

        print "1 \n";

	    print "$time \n";

    }

    elsif ( $time eq 'LAST' )

    {

        $time = -995;

        print "1 \n";

	    print "$time \n";

	}

	elsif ( $time eq 'TRIGGER' )

    {

        print "-993 \n";

    }

    else

    {

        @times  = split /,/, $time;

        $outstr = "";

	    $outlen = 0;

	    foreach $j ( @times )

        {

	    $to = index($j,'to');

            if ( $to == -1 )

               { 

		if ( $j eq 'FIRST' )

		  {

                      $outlen=$outlen+1;

		      $outstr=$outstr . " -996 ";

                  }

                elsif ( $j eq 'LAST' )

		  {

                      $outlen=$outlen+1;

		      $outstr=$outstr . " -995 ";

                  }

                else

		  {

                   $outlen=$outlen+1;

                   $outstr=$outstr . "$j "; 

	          }

               }

            else

	       { 

                $outlen = $outlen+3;

                $t1 = substr($j,0,$to);

		$t2 = substr($j,$to+2,length($j)-$to+1);

		if ( $t1 eq 'FIRST' ) 

		    { $t1='-996'; };

		if ( $t2 eq 'FIRST' ) 

		    { $t2='-996'; };

		if ( $t1 eq 'LAST'  ) 

		    { $t1='-995'; };

		if ( $t2 eq 'LAST'  ) 

		    { $t2='-995'; };

	        $outstr=$outstr . $t1 . " -994 " . $t2 . " "; 

	       }

        }

	print "$outlen \n";

        print "$outstr \n";

    }

    # Write the time mode

    if ( $mode eq 'ALL' )

    {

        print "$mode \n";

    }

    elsif ( $mode eq 'ANY' )

    {

        print "$mode \n";

    }

    elsif ( $mode eq 'NONE' )

    {

        print "$mode \n";

    }

    elsif ( $mode eq 'TRIGGER' )

    {

        print "$mode \n";

    }

    else

    {    

       die('Invalid time mode...');

    }   

    # Write the logical operator

    if ( $i < $nline-1 )

    {

      print "@logop[$i] \n";

    } 

}

# Write end marker

print "END \n";