Forked from
jlab / hallc / exp / polhe3 / hallc_replay
699 commits behind the upstream repository.
-
Brad Sawatzky authored
* Add vim lint to .gitignore * Update replay scripts to search in a list of paths - NOTE: This requires the podd submodule be updated to include modifcations to the THaRun constructor that can search a pathList. - The default './raw' and './cache' pathnames that are searched here should generally be symlinks to the relevant local path on the Hall C cluster, and the /cache/mss/hallc/.../raw/ path, respectively. For example: cd hallc_replay ln -s /net/cdaq/cdaql3data/coda/data/raw raw ln -s /cache/mss/hallc/spring17/raw cache - FWIW: The batch filtering of the replay scripts was done with this perl script: cd SCRIPTS/ find . -name '*.C' -exec ./filter.pl {} \; --- filter.pl --- #!/usr/bin/perl use File::Slurp; my $file = read_file($ARGV[0]); $file =~ s/\Qchar RunFileName[100];\E\W*\Qsprintf(RunFileName, RunFileNamePattern, RunNumber);\E\W*\QTHaRun* run = new THaRun(RunFileName);\E/THaRun* run = new THaRun( pathList, Form(RunFileNamePattern, RunNumber) );/s; $file =~ s/\Qconst char* RunFileNamePattern = "\E.*?\/(.*?\.dat)";/const char* RunFileNamePattern = "$1";\n vector<TString> pathList;\n pathList.push_back(".");\n pathList.push_back(".\/raw");\n pathList.push_back(".\/cache");\n/s; write_file("$ARGV[0]", $file); ---
Brad Sawatzky authored* Add vim lint to .gitignore * Update replay scripts to search in a list of paths - NOTE: This requires the podd submodule be updated to include modifcations to the THaRun constructor that can search a pathList. - The default './raw' and './cache' pathnames that are searched here should generally be symlinks to the relevant local path on the Hall C cluster, and the /cache/mss/hallc/.../raw/ path, respectively. For example: cd hallc_replay ln -s /net/cdaq/cdaql3data/coda/data/raw raw ln -s /cache/mss/hallc/spring17/raw cache - FWIW: The batch filtering of the replay scripts was done with this perl script: cd SCRIPTS/ find . -name '*.C' -exec ./filter.pl {} \; --- filter.pl --- #!/usr/bin/perl use File::Slurp; my $file = read_file($ARGV[0]); $file =~ s/\Qchar RunFileName[100];\E\W*\Qsprintf(RunFileName, RunFileNamePattern, RunNumber);\E\W*\QTHaRun* run = new THaRun(RunFileName);\E/THaRun* run = new THaRun( pathList, Form(RunFileNamePattern, RunNumber) );/s; $file =~ s/\Qconst char* RunFileNamePattern = "\E.*?\/(.*?\.dat)";/const char* RunFileNamePattern = "$1";\n vector<TString> pathList;\n pathList.push_back(".");\n pathList.push_back(".\/raw");\n pathList.push_back(".\/cache");\n/s; write_file("$ARGV[0]", $file); ---
filter.pl 643 B