Commit 27295376 authored by Backofen, Rainer's avatar Backofen, Rainer

added script to automatically make changes needed for revision 0.9...

added script to automatically make changes needed for revision 0.9 (GET_PARAMETER()->Paraemters::get() etc. )
parent 982bdbd7
......@@ -4,9 +4,17 @@ to new revisions according AMDiS/ChangeLog.
Start the script in your directory.
All files in directory src will be changed according AMDiS/ChangeLog.
First directory src is copied.
Script may ruin your code...
No warranty!! NO WARRANTY !!!
---------------------------------------------------------------------
1. applyChanges4Rev1210 (all cahnges according ChangeLog)
1. applyChanges4Rev1210 (all changes according ChangeLog)
2. applyChangesToRelease0.9 and updateGET_PARAMETER.gawk
changes:
Laplace_SOT -> Simple_SOT
ProblemVec->ProblemStat
ProblemInstatVec->ProblemInstat
GET_PARAMETER(...)->Parameters::get(...)
details see in updateGET_PARAMETER.gawk
#!/bin/bash
#
# secures current directory in src_beforeChanges
# replaces according ChangeLog in every
# file in src directory.
#
#
# on your own responsibility
# Rainer
#
if [ -f ./updateGET_PARAMETER.gawk ]
then
echo "updateGET_PARAMETER.gawk found"
cp -r src src_beforeChangesToRelaease0.9
#
find src/* -type f | while read file
do
./updateGET_PARAMETER.gawk < $file > $file.$$
mv -v $file.$$ $file
done
else
echo "you need updateGET_PARAMETER.gawk "
fi
\ No newline at end of file
#! /usr/bin/gawk -f
BEGIN{
#print "Change old style GET_PARAMETER(..) \
#to new Style Parameters::get(...)\n";
lineComplete=1;
cmdline="";
}
{ cmdline=cmdline$0; $0=cmdline;}
/GET_PARAMETER/ { ##find line with GET_PARAMETER
## check if line is complete
##print " 1 "cmdline;
gsub(/\(\)/,"XRAINERXX",cmdline );
gsub(/\(0\)/,"XRAINERXX0",cmdline );
gsub(/\(1\)/,"XRAINERXX1",cmdline );
gsub(/\(2\)/,"XRAINERXX2",cmdline );
gsub(/\(3\)/,"XRAINERXX3",cmdline );
gsub(/\(4\)/,"XRAINERXX4",cmdline );
split(cmdline,l,"[()]");
if(l[3]) {lineComplete=1; }
else {lineComplete=0;}
if(lineComplete==1){
## find argument of GET_PARAMETER l[2]
split(cmdline,l,"[()]");
split(cmdline,lw,"GET_"); ## get leading whitespaces
## split arguments => a[2] is label a[3]or a[4] variable
split(l[2],a,",");
## find variable
checkFormat=match(a[3],"\"");
if(checkFormat) {val=a[4];}
else{val=a[3];}
gsub(/^[ \t]+|[ \t]+$/,"",val)## remove whitespaces
where=match(val,"&") ##check for &
if (where!=0){
gsub(/\&/,"",val);
}else{
val="(&"val")";
}
cmdline= lw[1]"Parameters::get("a[2]","val");" ;
gsub(/XRAINERXX/,"()",cmdline );
gsub(/XRAINERXX0/,"(0)",cmdline );
gsub(/XRAINERXX1/,"(1)",cmdline );
gsub(/XRAINERXX2/,"(2)",cmdline );
gsub(/XRAINERXX3/,"(3)",cmdline );
gsub(/XRAINERXX4/,"(4)",cmdline );
}
}
{ if(lineComplete==1) {
gsub(/ProblemInstatVec/,"ProblemInstat",cmdline)
gsub(/ProblemVec/,"ProblemStat",cmdline)
gsub(/FactorLaplace_SOT/,"Simple_SOT",cmdline)
gsub(/Laplace_SOT/,"Simple_SOT",cmdline)
print cmdline;
cmdline=""; } }
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment