scripts/rev_control/version_control.sh

   1 #!/bin/bash
   2
   3 # these are helper functions for doing localized revision control.
   4 # this script should be sourced into other scripts that use it.
   5
   6 # one unpleasantry to take care of first; cygwin barfs aggressively if the TMP directory
   7 # is a DOS path, but we need it to be a DOS path for our XSEDE testing, so that blows.
   8 # to get past this, TMP gets changed below to a hopefully generic and safe place.
   9
  10 if [[ "$TMP" =~ .:.* ]]; then
  11   echo making weirdo temporary directory for DOS path.
  12   export TMP=/tmp/rev_control_$USER
  13 fi
  14 if [ ! -d "$TMP" ]; then
  15   mkdir $TMP
  16 fi
  17 if [ ! -d "$TMP" ]; then
  18   echo "Could not create the temporary directory TMP in: $TMP"
  19   echo "This script will not work properly without an existing TMP directory."
  20 fi
  21
  22 this_host=
  23 # gets the machine's hostname and stores it in the variable "this_host".
  24 function get_our_hostname()
  25 {
  26   if [ "$OS" == "Windows_NT" ]; then
  27     this_host=$(hostname)
  28   elif [ ! -z "$(echo $MACHTYPE | grep apple)" ]; then
  29     this_host=$(hostname)
  30   elif [ ! -z "$(echo $MACHTYPE | grep suse)" ]; then
  31     this_host=$(hostname --long)
  32   else
  33     this_host=$(hostname)
  34   fi
  35   #echo "hostname is $this_host"
  36 }
  37
  38 # this function sets a variable called "home_system" to "true" if the
  39 # machine is considered one of fred's home machines.  if you are not
  40 # fred, you may want to change the machine choices.
  41 export home_system=
  42 function is_home_system()
  43 {
  44   # load up the name of the host.
  45   get_our_hostname
  46   # reset the variable that we'll be setting.
  47   home_system=
  48   if [[ $this_host == *.gruntose.blurgh ]]; then
  49     home_system=true
  50 #temp code
  51 elif [[ $this_host == buildy ]]; then
  52 home_system=true
  53 elif [[ $this_host == simmy ]]; then
  54 home_system=true
  55 #temp code
  56   fi
  57 }
  58
  59 # we only want to totally personalize this script if the user is right.
  60 function check_user()
  61 {
  62   if [ "$USER" == "fred" ]; then
  63     export SVNUSER=fred_t_hamster@
  64     export EXTRA_PROTOCOL=+ssh
  65   else
  66     export SVNUSER=
  67     export EXTRA_PROTOCOL=
  68   fi
  69 }
  70
  71 # calculates the right modifier for hostnames / repositories.
  72 modifier=
  73 function compute_modifier()
  74 {
  75   modifier=
  76   directory="$1"; shift
  77   in_or_out="$1"; shift
  78   check_user
  79   # some project specific overrides.
  80   if [[ "$directory" == hoople* ]]; then
  81     modifier="svn${EXTRA_PROTOCOL}://${SVNUSER}svn.code.sf.net/p/hoople2/svn/"
  82   fi
  83   if [[ "$directory" == yeti* ]]; then
  84     modifier="svn${EXTRA_PROTOCOL}://${SVNUSER}svn.code.sf.net/p/yeti/svn/"
  85   fi
  86   # see if we're on one of fred's home machines.
  87   is_home_system
  88   # special override to pick local servers when at home.
  89   if [ "$home_system" == "true" ]; then
  90     if [ "$in_or_out" == "out" ]; then
  91       # need the right home machine for modifier when checking out.
  92 #huhhh?      modifier="svn://shaggy/"
  93       modifier=
  94     else
  95       # no modifier for checkin.
  96       modifier=
  97     fi
  98   fi
  99 }
 100
 101 # selects the method for check-in based on where we are.
 102 function do_checkin()
 103 {
 104   local directory="$1"; shift
 105 echo "do_checkin sees directory '$directory'"
 106   do_update "$directory"
 107   if [ $? -ne 0 ]; then
 108     echo "Repository update failed; this should be fixed before check-in."
 109     return 1
 110   fi
 111   pushd "$directory" &>/dev/null
 112   retval=0  # normally successful.
 113   if [ -d "CVS" ]; then
 114     cvs ci .
 115     retval=$?
 116   elif [ -d ".svn" ]; then
 117     svn ci .
 118     retval=$?
 119   elif [ -d ".git" ]; then
 120     # snag all new files.  not to everyone's liking.
 121     git add --all .
 122     retval=$?
 123     # tell git about all the files and get a check-in comment.
 124     git commit .
 125     retval+=$?
 126     # upload the files to the server so others can see them.
 127     git push 2>&1 | grep -v "X11 forwarding request failed"
 128     retval+=$?
 129   else
 130     echo no repository in $directory
 131     retval=1
 132   fi
 133   popd &>/dev/null
 134   return $retval
 135 }
 136
 137 function do_diff
 138 {
 139   local directory="$1"; shift
 140   pushd "$directory" &>/dev/null
 141   retval=0  # normally successful.
 142
 143   # only update if we see a repository living there.
 144   if [ -d ".svn" ]; then
 145     svn diff .
 146   elif [ -d ".git" ]; then
 147     git diff
 148   elif [ -d "CVS" ]; then
 149     cvs diff .
 150   fi
 151
 152   popd &>/dev/null
 153   return $retval
 154 }
 155
 156 function do_report_new
 157 {
 158   local directory="$1"; shift
 159   pushd "$directory" &>/dev/null
 160   retval=0  # normally successful.
 161
 162   # only update if we see a repository living there.
 163   if [ -d ".svn" ]; then
 164     # this action so far only makes sense and is needed for svn.
 165     bash $FEISTY_MEOW_SCRIPTS/rev_control/svnapply.sh \? echo
 166   fi
 167
 168   popd &>/dev/null
 169   return $retval
 170 }
 171
 172 # checks in all the folders in a specified list.
 173 function checkin_list()
 174 {
 175   local list=$*
 176   for i in $list; do
 177     # turn repo list back into an array.
 178     eval "repository_list=( ${REPOSITORY_LIST[*]} )"
 179     for j in "${repository_list[@]}"; do
 180       # add in the directory component.
 181       j="$i/$j"
 182       if [ ! -d "$j" ]; then continue; fi
 183       echo "checking in '$j'..."
 184       do_checkin $j
 185     done
 186   done
 187 }
 188
 189 # takes out the first few carriage returns that are in the input.
 190 function squash_first_few_crs()
 191 {
 192   i=0
 193   while read line; do
 194     i=$((i+1))
 195     if [ $i -le 5 ]; then
 196       echo -n "$line  "
 197     else
 198       echo $line
 199     fi
 200   done
 201   if [ $i -le 3 ]; then
 202     # if we're still squashing eols, make sure we don't leave them hanging.
 203     echo
 204   fi
 205 }
 206
 207 # selects the checkout method based on where we are (the host the script runs on).
 208 function do_update()
 209 {
 210   directory="$1"; shift
 211   # plan on success for now.
 212   retval=0
 213   pushd "$directory" &>/dev/null
 214   if [ -d "CVS" ]; then
 215     cvs update . | squash_first_few_crs
 216     retval=${PIPESTATUS[0]}
 217   elif [ -d ".svn" ]; then
 218     svn update . | squash_first_few_crs
 219     retval=${PIPESTATUS[0]}
 220   elif [ -d ".git" ]; then
 221     git pull 2>&1 | grep -v "X11 forwarding request failed" | squash_first_few_crs
 222     retval=${PIPESTATUS[0]}
 223   else
 224     # this is not an error necessarily; we'll just pretend they planned this.
 225     echo no repository in $directory
 226   fi
 227   popd &>/dev/null
 228   return $retval
 229 }
 230
 231 # gets all the updates for a list of folders under revision control.
 232 function checkout_list {
 233   list=$*
 234   for i in $list; do
 235     # turn repo list back into an array.
 236     eval "repository_list=( ${REPOSITORY_LIST[*]} )"
 237     for j in "${repository_list[@]}"; do
 238       # add in the directory for our purposes here.
 239       j="$i/$j"
 240       if [ ! -d $j ]; then
 241         if [ ! -z "$SHELL_DEBUG" ]; then
 242           echo "No directory called $j exists."
 243         fi
 244         continue
 245       fi
 246
 247       echo -n "retrieving '$j'...  "
 248       do_update $j
 249     done
 250   done
 251 }
 252
 253 # provides a list of absolute paths of revision control directories
 254 # that are located under the directory passed as the first parameter.
 255 function generate_rev_ctrl_filelist()
 256 {
 257   local dir="$1"; shift
 258   pushd "$dir" &>/dev/null
 259   local dirhere="$(\pwd)"
 260   local tempfile=$(mktemp /tmp/zz_rev_checkin.XXXXXX)
 261   echo >$tempfile
 262   find $dirhere -maxdepth 5 -type d -iname ".svn" -exec echo {}/.. ';' >>$tempfile
 263   find $dirhere -maxdepth 5 -type d -iname ".git" -exec echo {}/.. ';' >>$tempfile
 264   # CVS is not well behaved like git and (now) svn, and we seldom use it anymore.
 265   popd &>/dev/null
 266   local sortfile=$(mktemp /tmp/zz_rev_checkin_sort.XXXXXX)
 267   sort <"$tempfile" >"$sortfile"
 268   \rm "$tempfile"
 269   echo "$sortfile"
 270 }
 271
 272 # iterates across a list of directories contained in a file (first parameter).
 273 # on each directory name, it performs the action (second parameter) provided.
 274 function perform_revctrl_action_on_file()
 275 {
 276   local tempfile="$1"; shift
 277   local action="$1"; shift
 278
 279 #  dirs=($(cat $tempfile))
 280
 281   while read -u 3 dirname; do
 282 #  for dirname in "${dirs[@]}"; do
 283     if [ -z "$dirname" ]; then continue; fi
 284     pushd "$dirname" &>/dev/null
 285     echo "[$(pwd)]"
 286     $action .
 287     echo "======="
 288     popd &>/dev/null
 289   done 3<"$tempfile"
 290
 291   rm $tempfile
 292 }
 293
 294