Lines Matching refs:arg
571 my @arg= split('=', $i);
572 @arg[0] =~ tr/A-Z/a-z/;
574 if (@arg[0] eq "-pose-exe")
576 $pose_exe=$arg[1];
578 elsif (@arg[0] eq "-pose-prc")
580 $pose_prc=$arg[1];
582 elsif (@arg[0] eq "-pdb-orig")
584 $pdb_orig_dir=$arg[1];
585 $pdb_orig=$arg[1];
589 elsif (@arg[0] eq "-pdb-new")
591 $pdb_new_dir=$arg[1];
592 $pdb_new=$arg[1];
596 elsif (@arg[0] eq "-xml-orig")
598 $xml_orig=$arg[1];
600 elsif (@arg[0] eq "-xml-new")
602 $xml_new_dir=$arg[1];
603 $xml_new=$arg[1];
607 elsif (@arg[0] eq "-env")
609 &set_env_from_props($arg[1]);
611 elsif (@arg[0] eq "-list")
613 $test_list = $arg[1];
615 elsif (@arg[0] eq "-test")
617 $infile = $arg[1];
619 elsif (@arg[0] eq "-merge")
659 my @arg = split('=', $_);
660 @arg[0] =~ tr/a-z/A-Z/;
661 my $len = @arg;
664 die "Malformed property in $arg[0]";
666 if (@arg[0] eq "POSE_EXE")
668 $pose_exe=$arg[1];
670 elsif (@arg[0] eq "POSE_PRC")
672 $pose_prc=$arg[1];
674 elsif (@arg[0] eq "PDB_ORIG")
676 $pdb_orig_dir=$arg[1];
677 $pdb_orig=$arg[1];
681 elsif (@arg[0] eq "PDB_NEW")
683 $pdb_new_dir=$arg[1];
684 $pdb_new=$arg[1];
688 elsif (@arg[0] eq "XML_ORIG")
690 $xml_orig=$arg[1];
692 elsif (@arg[0] eq "XML_NEW")
694 $xml_new_dir=$arg[1];
695 $xml_new=$arg[1];