Lines Matching refs:arg
647 my @arg= split('=', $i);
648 @arg[0] =~ tr/A-Z/a-z/;
650 if (@arg[0] eq "-pose-exe")
652 $pose_exe=$arg[1];
654 elsif (@arg[0] eq "-pose-prc")
656 $pose_prc=$arg[1];
658 elsif (@arg[0] eq "-pdb-orig")
660 $pdb_orig_dir=$arg[1];
661 $pdb_orig=$arg[1];
663 elsif (@arg[0] eq "-pdb-new")
665 $pdb_new_dir=$arg[1];
666 $pdb_new=$arg[1];
668 elsif (@arg[0] eq "-xml-orig")
670 $xml_orig=$arg[1];
672 elsif (@arg[0] eq "-xml-new")
674 $xml_new_dir=$arg[1];
675 $xml_new=$arg[1];
677 elsif (@arg[0] eq "-env")
679 &set_env_from_props($arg[1]);
681 elsif (@arg[0] eq "-list")
683 $test_list = $arg[1];
685 elsif (@arg[0] eq "-test")
687 $infile = $arg[1];
689 elsif (@arg[0] eq "-merge")
726 my @arg = split('=', $_);
727 @arg[0] =~ tr/a-z/A-Z/;
728 my $len = @arg;
731 die "Malformed property in $arg[0]";
733 if (@arg[0] eq "POSE_EXE")
735 $pose_exe=$arg[1];
737 elsif (@arg[0] eq "POSE_PRC")
739 $pose_prc=$arg[1];
741 elsif (@arg[0] eq "PDB_ORIG")
743 $pdb_orig_dir=$arg[1];
744 $pdb_orig=$arg[1];
746 elsif (@arg[0] eq "PDB_NEW")
748 $pdb_new_dir=$arg[1];
749 $pdb_new=$arg[1];
751 elsif (@arg[0] eq "XML_ORIG")
753 $xml_orig=$arg[1];
755 elsif (@arg[0] eq "XML_NEW")
757 $xml_new_dir=$arg[1];
758 $xml_new=$arg[1];