- Timestamp:
- 11/20/05 20:25:43 (3 years ago)
- Location:
- trunk/scripts
- Files:
-
- 12 modified
-
copy_data_2_ldrive.pl (modified) (1 diff)
-
copy_source.pl (modified) (3 diffs)
-
copy_tsuite.pl (modified) (2 diffs)
-
dayslow_master.pl (modified) (3 diffs)
-
ir_extime.pl (modified) (1 diff)
-
newtext.pl (modified) (1 diff)
-
nightly_copy_files.pl (modified) (5 diffs)
-
nightly_runL_tsuite_part2.pl (modified) (2 diffs)
-
nightly_run_tsuite.pl (modified) (3 diffs)
-
promote_last_good.pl (modified) (1 diff)
-
promote_last_good_slow.pl (modified) (1 diff)
-
weekly_backup.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/scripts/copy_data_2_ldrive.pl
r1 r2 11 11 12 12 # the data directory on the local machine 13 $local_copy="c:\\projects\\cloudy\\ current\\data";13 $local_copy="c:\\projects\\cloudy\\trunk\\data"; 14 14 # 15 $original_data="$c:\\projects\\cloudy\\ current\\data";15 $original_data="$c:\\projects\\cloudy\\trunk\\data"; 16 16 17 17 # /y suppresses asking to confirm overwriting a file -
trunk/scripts/copy_source.pl
r1 r2 11 11 12 12 # this is where the original source files live on my pc 13 $original_source_dir = "c:/projects/cloudy/ current/source";13 $original_source_dir = "c:/projects/cloudy/trunk/source"; 14 14 15 15 # the root dir where the unix files will live on the linux cluster 16 $cluster_unix_source_dir = "u:/cloudy/ current/source";16 $cluster_unix_source_dir = "u:/cloudy/trunk/source"; 17 17 18 18 # this is the ftp site on gradj … … 20 20 21 21 # the root dir where the unix files will live on my pc 22 $local_unix_source_dir = "c:/projects/cloudy/ current/unix/source";23 $local_unix_main_dir = "c:/projects/cloudy/ current/unix";22 $local_unix_source_dir = "c:/projects/cloudy/trunk/unix/source"; 23 $local_unix_main_dir = "c:/projects/cloudy/trunk/unix"; 24 24 25 25 # the win dir within the unix set 26 $local_win_source_dir = "c:/projects/cloudy/ current/win/source";26 $local_win_source_dir = "c:/projects/cloudy/trunk/win/source"; 27 27 28 28 #this is where backup files will be dropped 29 $unixhome = "c:/projects/cloudy/ current/unix";30 $winhome = "c:/projects/cloudy/ current/win";29 $unixhome = "c:/projects/cloudy/trunk/unix"; 30 $winhome = "c:/projects/cloudy/trunk/win"; 31 31 # end block - set up paths to all targets on various machines 32 32 … … 138 138 # we have now clobbered the path.c file, and need to copy a valid one from 1 dir up 139 139 # so that version on unix cluster will compile & execute 140 copy( "u:/cloudy/ current/path.c" , "u:/cloudy/current/source/path.c" );140 copy( "u:/cloudy/trunk/path.c" , "u:/cloudy/trunk/source/path.c" ); 141 141 142 142 # now zip up the files we created -
trunk/scripts/copy_tsuite.pl
r1 r2 13 13 14 14 # this is where the original files live on my pc 15 $original_tsuite_dir = "c:/projects/cloudy/ current/tsuite/auto";15 $original_tsuite_dir = "c:/projects/cloudy/trunk/tsuite/auto"; 16 16 17 17 # the root dir where the unix files will live on the linux cluster 18 $cluster_unix_tsuite_dir = "u:/cloudy/ current/tsuite";18 $cluster_unix_tsuite_dir = "u:/cloudy/trunk/tsuite"; 19 19 20 20 # this is the ftp site on gradj … … 22 22 23 23 # the root dir where the unix files will live on my pc 24 $local_unix_tsuite_dir = "c:/projects/cloudy/ current/unix/tsuite";25 $local_unix_main_dir = "c:/projects/cloudy/ current/unix";24 $local_unix_tsuite_dir = "c:/projects/cloudy/trunk/unix/tsuite"; 25 $local_unix_main_dir = "c:/projects/cloudy/trunk/unix"; 26 26 27 27 # the win dir within the unix set 28 $local_win_tsuite_dir = "c:/projects/cloudy/ current/win/tsuite";28 $local_win_tsuite_dir = "c:/projects/cloudy/trunk/win/tsuite"; 29 29 30 30 #this is where backup files will be dropped 31 $unixhome = "c:/projects/cloudy/ current/unix";32 $winhome = "c:/projects/cloudy/ current/win";31 $unixhome = "c:/projects/cloudy/trunk/unix"; 32 $winhome = "c:/projects/cloudy/trunk/win"; 33 33 # end block - set up paths to all targets on various machines 34 34 -
trunk/scripts/dayslow_master.pl
r1 r2 34 34 system( "net use $c: \\\\nimbus\\nimbus_c\$ /persistent:no" ); 35 35 36 $in_dir = "$c:/projects/cloudy/ current/tsuite/slow/";37 $out_dir = "$c:/projects/cloudy/ current/tsuite/slow/";36 $in_dir = "$c:/projects/cloudy/trunk/tsuite/slow/"; 37 $out_dir = "$c:/projects/cloudy/trunk/tsuite/slow/"; 38 38 39 39 # move to the output directory … … 63 63 64 64 #$exe = "$c:/projects/Cloudy/current_net/Debug/current_net.exe"; 65 #$exe = "$c:\\projects\\Cloudy\\ current\\current_net\\Debug\\current_net.exe";66 $exe_org = "$c:/projects/cloudy/ current/release/current.exe";65 #$exe = "$c:\\projects\\Cloudy\\trunk\\current_net\\Debug\\current_net.exe"; 66 $exe_org = "$c:/projects/cloudy/trunk/release/current.exe"; 67 67 system("cp $exe_org $out_dir "); 68 #$exe = "c:/projects/Cloudy/ current/release/current.exe";68 #$exe = "c:/projects/Cloudy/trunk/release/current.exe"; 69 69 $exe = "$out_dir"."current.exe"; 70 70 printf(ioLOG "exe is $exe\n"); … … 169 169 else 170 170 { 171 $script_dir = "$c:/projects/cloudy/ current/scripts/";171 $script_dir = "$c:/projects/cloudy/trunk/scripts/"; 172 172 system( "perl \"$script_dir\"promote_last_good_slow.pl" ); 173 173 -
trunk/scripts/ir_extime.pl
r1 r2 17 17 18 18 # Common directory 19 $curr_dir = "c://projects//cloudy// current//tsuite";19 $curr_dir = "c://projects//cloudy//trunk//tsuite"; 20 20 #$curr_dir = "/home62/guests/geetac/PROJECT2003/proj1"; 21 21 -
trunk/scripts/newtext.pl
r1 r2 1 $script_dir = "$c:/projects/cloudy/ current/scripts/";1 $script_dir = "$c:/projects/cloudy/trunk/scripts/"; 2 2 3 3 system("perl \"$script_dir\"ir_extime.pl "); -
trunk/scripts/nightly_copy_files.pl
r1 r2 13 13 14 14 # this is where the original source files live on my pc 15 $original_source_dir = "c:/projects/cloudy/ current/source";16 $original_data_dir = "c:/projects/cloudy/ current/data";17 $original_tsuite_dir = "c:/projects/cloudy/ current/tsuite/auto";15 $original_source_dir = "c:/projects/cloudy/trunk/source"; 16 $original_data_dir = "c:/projects/cloudy/trunk/data"; 17 $original_tsuite_dir = "c:/projects/cloudy/trunk/tsuite/auto"; 18 18 19 19 # this is the current debug exe, will bail out if $local_unix_source_dir/source.tar.gz source 20 20 # is younger than this 21 $original_exe = "c:/projects/cloudy/ current/debug/current.exe";21 $original_exe = "c:/projects/cloudy/trunk/debug/current.exe"; 22 22 23 23 24 24 # the root dir where the unix files will live on the linux cluster 25 $cluster_unix_source_dir = "u:/cloudy/ current/source";26 $cluster_unix_tsuite_dir = "u:/cloudy/ current/tsuite";27 $cluster_unix_data_dir = "u:/cloudy/ current/data";25 $cluster_unix_source_dir = "u:/cloudy/trunk/source"; 26 $cluster_unix_tsuite_dir = "u:/cloudy/trunk/tsuite"; 27 $cluster_unix_data_dir = "u:/cloudy/trunk/data"; 28 28 29 29 # this is the ftp site on gradj … … 31 31 32 32 # the root dir where the unix files will live on my pc 33 $local_unix_source_dir = "c:/projects/cloudy/ current/unix/source";34 $local_unix_tsuite_dir = "c:/projects/cloudy/ current/unix/tsuite";35 $local_unix_data_dir = "c:/projects/cloudy/ current/unix/data";36 $local_unix_main_dir = "c:/projects/cloudy/ current/unix";33 $local_unix_source_dir = "c:/projects/cloudy/trunk/unix/source"; 34 $local_unix_tsuite_dir = "c:/projects/cloudy/trunk/unix/tsuite"; 35 $local_unix_data_dir = "c:/projects/cloudy/trunk/unix/data"; 36 $local_unix_main_dir = "c:/projects/cloudy/trunk/unix"; 37 37 38 38 # this is the last source.tar.gz, will compare this time stamp with debug exe … … 41 41 42 42 # the win dir within the unix set 43 $local_win_source_dir = "c:/projects/cloudy/ current/win/source";44 $local_win_tsuite_dir = "c:/projects/cloudy/ current/win/tsuite";45 $local_win_data_dir = "c:/projects/cloudy/ current/win/data";43 $local_win_source_dir = "c:/projects/cloudy/trunk/win/source"; 44 $local_win_tsuite_dir = "c:/projects/cloudy/trunk/win/tsuite"; 45 $local_win_data_dir = "c:/projects/cloudy/trunk/win/data"; 46 46 47 47 #this is where backup files will be dropped 48 $unixhome = "c:/projects/cloudy/ current/unix";49 $winhome = "c:/projects/cloudy/ current/win";48 $unixhome = "c:/projects/cloudy/trunk/unix"; 49 $winhome = "c:/projects/cloudy/trunk/win"; 50 50 51 51 # do we want to check timestamp? … … 473 473 474 474 print("\n=========================\n"); 475 print("All data files have been copied to current/unix/data subdir\n");475 print("All data files have been copied to trunk/unix/data subdir\n"); 476 476 print("=========================\n"); 477 477 … … 500 500 } 501 501 # we have now clobbered the path.c file, and need to copy a valid one from 1 dir up 502 copy( "u:/cloudy/ current/path.c" , "u:/cloudy/current/source/path.c" );502 copy( "u:/cloudy/trunk/path.c" , "u:/cloudy/trunk/source/path.c" ); 503 503 504 504 # move to pc unix tsuite directory -
trunk/scripts/nightly_runL_tsuite_part2.pl
r1 r2 13 13 system( "net use $c: \\\\nimbus\\nimbus_c\$ /persistent:no" ); 14 14 15 $in_dir = "$c:/projects/cloudy/ current/tsuite/auto/";16 $out_dir = "$c:/projects/cloudy/ current/tsuite/auto/";15 $in_dir = "$c:/projects/cloudy/trunk/tsuite/auto/"; 16 $out_dir = "$c:/projects/cloudy/trunk/tsuite/auto/"; 17 17 18 18 # move to the output directory … … 30 30 31 31 $exe = "$c:/projects/Cloudy/current_net/Debug/current_net.exe"; 32 $exe = "$c:\\projects\\Cloudy\\ current\\current_net\\Debug\\current_net.exe";33 $exe = "$c:/projects/cloudy/ current/debug/current.exe";32 $exe = "$c:\\projects\\Cloudy\\trunk\\current_net\\Debug\\current_net.exe"; 33 $exe = "$c:/projects/cloudy/trunk/debug/current.exe"; 34 34 # cannot use local copy due to bug in server, must use fully resolved path 35 35 #$exe = "Current.exe"; 36 #$exe = "\\\\nimbus\\nimbus_c\$\\projects\\Cloudy\\ current\\debug\\Current.exe";36 #$exe = "\\\\nimbus\\nimbus_c\$\\projects\\Cloudy\\trunk\\debug\\Current.exe"; 37 37 printf(ioLOG "exe is $exe\n"); 38 38 -
trunk/scripts/nightly_run_tsuite.pl
r1 r2 51 51 { 52 52 # for sparc 53 $exe = "/homes/home37/feng/cloudy/ current/sparc/cloudy_sparc.exe";53 $exe = "/homes/home37/feng/cloudy/trunk/sparc/cloudy_sparc.exe"; 54 54 } 55 55 elsif (/alpha/) 56 56 { 57 57 # for alpha 58 $exe = "/homes/home37/feng/cloudy/ current/alpha/cloudy_alpha.exe";58 $exe = "/homes/home37/feng/cloudy/trunk/alpha/cloudy_alpha.exe"; 59 59 } 60 60 elsif (/Linux/) … … 78 78 # $in_dir = "$c:/projects/cloudy/tsuite/short/"; 79 79 # $out_dir = "$c:/projects/cloudy/tsuite/short/"; 80 $script_dir = "$c:/projects/cloudy/ current/scripts/";81 $in_dir = "$c:/projects/cloudy/ current/tsuite/auto/";82 $out_dir = "$c:/projects/cloudy/ current/tsuite/auto/";80 $script_dir = "$c:/projects/cloudy/trunk/scripts/"; 81 $in_dir = "$c:/projects/cloudy/trunk/tsuite/auto/"; 82 $out_dir = "$c:/projects/cloudy/trunk/tsuite/auto/"; 83 83 84 84 # the exe file name for the fast (release) version - faster but no asserts 85 $exe = "$c:/projects/cloudy/ current/release/current.exe";85 $exe = "$c:/projects/cloudy/trunk/release/current.exe"; 86 86 # the exe file name for the debug version - this has asserts and is safer 87 87 $exe = "$c:/projects/Cloudy/current_net/Debug/current_net.exe"; 88 $exe = "$c:\\projects\\Cloudy\\ current\\current_net\\Debug\\current_net.exe";89 $exe = "$c:/projects/cloudy/ current/debug/current.exe";90 91 # $source = "$c:/projects/cloudy/ current/source/";88 $exe = "$c:\\projects\\Cloudy\\trunk\\current_net\\Debug\\current_net.exe"; 89 $exe = "$c:/projects/cloudy/trunk/debug/current.exe"; 90 91 # $source = "$c:/projects/cloudy/trunk/source/"; 92 92 # the "current" project directory 93 $current= "$c:/projects/cloudy/ current/";94 # $data = "c:/projects/cloudy/ current/data/";93 $current= "$c:/projects/cloudy/trunk/"; 94 # $data = "c:/projects/cloudy/trunk/data/"; 95 95 96 96 if(/Windows_NT/ || /NIMBUS/ || /LENTICULAR/ || /NUMBUS/ ) … … 144 144 145 145 # copy exec here so that scripts that follow an use it 146 system("copy c:\\projects\\cloudy\\ current\\debug\\current.exe . ");146 system("copy c:\\projects\\cloudy\\trunk\\debug\\current.exe . "); 147 147 148 148 -
trunk/scripts/promote_last_good.pl
r1 r2 13 13 14 14 # this is where the original test suite files live on my pc 15 $original_tsuite_dir = "c:/projects/cloudy/ current/tsuite/auto";15 $original_tsuite_dir = "c:/projects/cloudy/trunk/tsuite/auto"; 16 16 # move to pc unix source dir 17 17 if( !chdir( "$original_tsuite_dir" ) ) -
trunk/scripts/promote_last_good_slow.pl
r1 r2 20 20 21 21 # this is where the original test suite files live on my pc 22 $original_tsuite_dir = "$c:/projects/cloudy/ current/tsuite/slow";22 $original_tsuite_dir = "$c:/projects/cloudy/trunk/tsuite/slow"; 23 23 24 24 # move to pc unix source dir -
trunk/scripts/weekly_backup.pl
r1 r2 13 13 $c = "c"; 14 14 # input and output directories 15 $in_dir = "$c:/projects/cloudy/ current/tsuite/auto/";15 $in_dir = "$c:/projects/cloudy/trunk/tsuite/auto/"; 16 16 17 17 # this is the letter of the cdrw drive on the network
