Annotation of /MITgcm_contrib/jmc_script/rn_pickup

#!/bin/sh

# $Header:  $
# $Name:  $

#- default:
prt=1
action=1
cmd='mv -i'
#- use main-pickup prefix to select between ckptA / ckptB:
pref='pickup'

flag=0 ; opt='' ; nbArg=$#
while [ $nbArg -ge 1 ]
do
  case $1 in
   '-s') if test $prt = 1 ; then prt=0 ; else prt=-1 ; fi
         opt="$opt $1" ; nbArg=`expr $nbArg - 1` ; shift ;;
   '-v') if test $prt = 1 ; then prt=2 ; else prt=-1 ; fi
         opt="$opt $1" ; nbArg=`expr $nbArg - 1` ; shift ;;
   '-n') action=0 ;
         opt="$opt $1" ; nbArg=`expr $nbArg - 1` ; shift ;;
   '-f') cmd='mv -f'
         opt="$opt $1" ; nbArg=`expr $nbArg - 1` ; shift ;;
   '-p') if [ $# -ge 2 ]
         then pref=$2 ; opt="$opt $1=$2" 
              nbArg=`expr $nbArg - 2` ; shift ; shift
         else echo "Error: prefix missing after '$1'" ; flag=-1 ; nbArg=0
         fi ;;
   'A'|'B'|'I'|'T') if test $flag = 0 
         then flag=$1 ; nbArg=`expr $nbArg - 1` ; shift
         else echo "Error: incompatible methods '$flag' & '$1' "
              flag=-1 ; nbArg=0 
         fi ;;
      *) echo "Error: unrecognized option: '$1'" ; flag=-1 ; nbArg=0 ;;
  esac
done
if test $prt = -1 ; then 
  echo "Error: options: '$opt' are not compatible" ; 
  flag=0;
fi

if [ $prt -ge 2 ] ; then 
  echo " flag='$flag' ; cmd='$cmd' ; move='$action' ; prt='$prt' ; opt='$opt'"
fi
if test $flag  = 0 -o $flag = -1
then
  echo "Usage: `basename $0`  method [options]"
  echo " Rename 'pickup*.ckpt[A,B].*' files to 'pickup*.[10-digits-iter].*'"
  echo "  method= A :: select pickup with suffix 'ckptA'"
  echo "  method= B :: select pickup with suffix 'ckptB'"
  echo "  method= I :: select the largest Iter number between 'ckptA' & 'ckptB'" 
  echo "  method= T :: by Time: select the most recent pickup"
  echo " option: -v = verbose-mode  /  -s = silent   (<- not both)"
  echo " option: -n = do nothing (no mv)"
  echo " option: -f = force to move files (using 'mv -f')"
  echo " option: -p PREFIX = use PREFIX to select ckptA/B (e.g.: 'pickup_cd')"
  echo "           (default: PREFIX='pickup' corresponds to main pickup file)"
  exit 2
fi
#  ( Note: PREFIX does not limit the Nb of pickup files to
#    rename, since it always rename all the pickup*.ckpt?.* )
#- exit status:
#      0 = normal renaming ; 1 = nothing to do ; > 1 = error :
#      2 = argument list error  ; 3 = meta file is missing 
#      4 = error in reading iteration number from meta file
#--------------------------------------------------------------

#- 1) make the list of potential pickup-meta file (-> listM)
if test $flag = 'T'
then
 listM=`ls -t -1 $pref.*.meta 2> /dev/null | head -1`
 if test "x$listM" = x
 then echo "Error: no '$pref.*.meta' found" ; exit 3 ; fi
 zz=`echo $listM | sed "s/$pref\.//" | sed 's/\..*$//'`
 xx=`echo $zz | sed 's/[0-9]/a/g'`
 if test $xx = 'aaaaaaaaaa'
 then echo  ' => no need to rename pickup: latest='$listM
 exit 1
 fi
fi

if test $flag = 'A' -o $flag = 'B'
then
 zz="ckpt$flag"
 listM=`ls -1 $pref.${zz}*.meta 2> /dev/null | head -1`
 if test "x$listM" = x
 then echo "Error: no '$pref.${zz}*.meta' found" ; exit 3 ; fi
fi

if test $flag = 'I'
then
#-  first search for global meta file, then tiled meta file
  listM=`ls -1 $pref.ckpt{A,B}.meta 2> /dev/null`
 if test "x$listM" = x ; then 
  listM=`ls -1 $pref.ckpt{A,B}.[0-9][0-9][0-9].[0-9][0-9][0-9].meta 2> /dev/null`
 fi
 if test "x$listM" = x
 then echo "Error: no '$pref.ckpt[A or B]*.meta' found" ; exit 3 ; fi
fi

if [ $prt -ge 2 ] ; then echo ' listM='$listM ; fi
#-- 2) select the meta-file corresponding to the largest iteration number
iter=0; 
for xx in $listM
do
  num=`grep '^ timeStepNumber =' $xx | sed 's/timeStepNumber = \[//' | sed 's/ \];$//'`
  if [ $num -gt $iter ] ; then
   iter=$num
   zz=`echo $xx | sed "s/$pref\.//" | sed 's/\..*$//'`
   if [ $prt -ge 2 ] ; then echo ' num='$num 'in' $zz ; fi
  fi
done
if test $iter = 0 ; then echo "Error: no iter found in meta file" ; exit 4 ; fi

#-- 3) move pickup files:
sufx=`printf "%10.10i\n" $iter`
listP=`ls pickup*.${zz}* | sed 's/\..*//g' | uniq`
if [ $prt -ge 1 ] ; then echo ' rename' $zz  '->' $sufx 'for all:' $listP ; fi
for yy in $listP
do
  listF=`ls -1 $yy.${zz}*`
  for xx in $listF
  do
    new=`echo $xx | sed "s/^$yy\.$zz/$yy\.$sufx/"`
    if [ $prt -ge 2 ] ; then echo $cmd $xx $new ; fi
    if test $action = 1 ; then    $cmd $xx $new ; fi
  done
done
exit 0
1	jmc	1.1	#!/bin/sh
2
3			# $Header: $
4			# $Name: $
5
6			#- default:
7			prt=1
8			action=1
9			cmd='mv -i'
10			#- use main-pickup prefix to select between ckptA / ckptB:
11			pref='pickup'
12
13			flag=0 ; opt='' ; nbArg=$#
14			while [ $nbArg -ge 1 ]
15			do
16			case $1 in
17			'-s') if test $prt = 1 ; then prt=0 ; else prt=-1 ; fi
18			opt="$opt $1" ; nbArg=`expr $nbArg - 1` ; shift ;;
19			'-v') if test $prt = 1 ; then prt=2 ; else prt=-1 ; fi
20			opt="$opt $1" ; nbArg=`expr $nbArg - 1` ; shift ;;
21			'-n') action=0 ;
22			opt="$opt $1" ; nbArg=`expr $nbArg - 1` ; shift ;;
23			'-f') cmd='mv -f'
24			opt="$opt $1" ; nbArg=`expr $nbArg - 1` ; shift ;;
25			'-p') if [ $# -ge 2 ]
26			then pref=$2 ; opt="$opt $1=$2"
27			nbArg=`expr $nbArg - 2` ; shift ; shift
28			else echo "Error: prefix missing after '$1'" ; flag=-1 ; nbArg=0
29			fi ;;
30			'A'\|'B'\|'I'\|'T') if test $flag = 0
31			then flag=$1 ; nbArg=`expr $nbArg - 1` ; shift
32			else echo "Error: incompatible methods '$flag' & '$1' "
33			flag=-1 ; nbArg=0
34			fi ;;
35			*) echo "Error: unrecognized option: '$1'" ; flag=-1 ; nbArg=0 ;;
36			esac
37			done
38			if test $prt = -1 ; then
39			echo "Error: options: '$opt' are not compatible" ;
40			flag=0;
41			fi
42
43			if [ $prt -ge 2 ] ; then
44			echo " flag='$flag' ; cmd='$cmd' ; move='$action' ; prt='$prt' ; opt='$opt'"
45			fi
46			if test $flag = 0 -o $flag = -1
47			then
48			echo "Usage: `basename $0` method [options]"
49			echo " Rename 'pickup.ckpt[A,B].' files to 'pickup.[10-digits-iter].'"
50			echo " method= A :: select pickup with suffix 'ckptA'"
51			echo " method= B :: select pickup with suffix 'ckptB'"
52			echo " method= I :: select the largest Iter number between 'ckptA' & 'ckptB'"
53			echo " method= T :: by Time: select the most recent pickup"
54			echo " option: -v = verbose-mode / -s = silent (<- not both)"
55			echo " option: -n = do nothing (no mv)"
56			echo " option: -f = force to move files (using 'mv -f')"
57			echo " option: -p PREFIX = use PREFIX to select ckptA/B (e.g.: 'pickup_cd')"
58			echo " (default: PREFIX='pickup' corresponds to main pickup file)"
59			exit 2
60			fi
61			# ( Note: PREFIX does not limit the Nb of pickup files to
62			# rename, since it always rename all the pickup.ckpt?. )
63			#- exit status:
64			# 0 = normal renaming ; 1 = nothing to do ; > 1 = error :
65			# 2 = argument list error ; 3 = meta file is missing
66			# 4 = error in reading iteration number from meta file
67			#--------------------------------------------------------------
68
69			#- 1) make the list of potential pickup-meta file (-> listM)
70			if test $flag = 'T'
71			then
72			listM=`ls -t -1 $pref.*.meta 2> /dev/null \| head -1`
73			if test "x$listM" = x
74			then echo "Error: no '$pref.*.meta' found" ; exit 3 ; fi
75			zz=`echo $listM \| sed "s/$pref\.//" \| sed 's/\..*$//'`
76			xx=`echo $zz \| sed 's/[0-9]/a/g'`
77			if test $xx = 'aaaaaaaaaa'
78			then echo ' => no need to rename pickup: latest='$listM
79			exit 1
80			fi
81			fi
82
83			if test $flag = 'A' -o $flag = 'B'
84			then
85			zz="ckpt$flag"
86			listM=`ls -1 $pref.${zz}*.meta 2> /dev/null \| head -1`
87			if test "x$listM" = x
88			then echo "Error: no '$pref.${zz}*.meta' found" ; exit 3 ; fi
89			fi
90
91			if test $flag = 'I'
92			then
93			#- first search for global meta file, then tiled meta file
94			listM=`ls -1 $pref.ckpt{A,B}.meta 2> /dev/null`
95			if test "x$listM" = x ; then
96			listM=`ls -1 $pref.ckpt{A,B}.[0-9][0-9][0-9].[0-9][0-9][0-9].meta 2> /dev/null`
97			fi
98			if test "x$listM" = x
99			then echo "Error: no '$pref.ckpt[A or B]*.meta' found" ; exit 3 ; fi
100			fi
101
102			if [ $prt -ge 2 ] ; then echo ' listM='$listM ; fi
103			#-- 2) select the meta-file corresponding to the largest iteration number
104			iter=0;
105			for xx in $listM
106			do
107			num=`grep '^ timeStepNumber =' $xx \| sed 's/timeStepNumber = \[//' \| sed 's/ \];$//'`
108			if [ $num -gt $iter ] ; then
109			iter=$num
110			zz=`echo $xx \| sed "s/$pref\.//" \| sed 's/\..*$//'`
111			if [ $prt -ge 2 ] ; then echo ' num='$num 'in' $zz ; fi
112			fi
113			done
114			if test $iter = 0 ; then echo "Error: no iter found in meta file" ; exit 4 ; fi
115
116			#-- 3) move pickup files:
117			sufx=`printf "%10.10i\n" $iter`
118			listP=`ls pickup.${zz} \| sed 's/\..*//g' \| uniq`
119			if [ $prt -ge 1 ] ; then echo ' rename' $zz '->' $sufx 'for all:' $listP ; fi
120			for yy in $listP
121			do
122			listF=`ls -1 $yy.${zz}*`
123			for xx in $listF
124			do
125			new=`echo $xx \| sed "s/^$yy\.$zz/$yy\.$sufx/"`
126			if [ $prt -ge 2 ] ; then echo $cmd $xx $new ; fi
127			if test $action = 1 ; then $cmd $xx $new ; fi
128			done
129			done
130			exit 0