[OpenSPARC-T2-DV] / tools / bin / syscan_cmd_src

use warnings;
use strict;
use Getopt::Long ;


my $numArgs = $#ARGV + 1;


    my $build_args = "";
    my $read_line = "";

    open(syscan_file_write, ">syscan_cmd_exec");

    print syscan_file_write "#!/bin/csh -f\n\n";
    print syscan_file_write "syscan \\\n";
    foreach my $x (0 .. $#ARGV) {
		print syscan_file_write "\t$ARGV[$x] \\\n";
    }
    print syscan_file_write "\n";

    close(syscan_file_write);


    `chmod 777 syscan_cmd_exec`;
    system(syscan_cmd_exec);
Commit	Line	Data
86530b38 AT	1	use warnings;
	2	use strict;
	3	use Getopt::Long ;
	4
	5
	6	my $numArgs = $#ARGV + 1;
	7
	8
	9	my $build_args = "";
	10	my $read_line = "";
	11
	12	open(syscan_file_write, ">syscan_cmd_exec");
	13
	14	print syscan_file_write "#!/bin/csh -f\n\n";
	15	print syscan_file_write "syscan \\\n";
	16	foreach my $x (0 .. $#ARGV) {
	17	print syscan_file_write "\t$ARGV[$x] \\\n";
	18	}
	19	print syscan_file_write "\n";
	20
	21	close(syscan_file_write);
	22
	23
	24	`chmod 777 syscan_cmd_exec`;
	25	system(syscan_cmd_exec);
	26
	27
	28
	29