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   pushd "$directory" &>/dev/null
 106   retval=0  # normally successful.
 107   if [ -d "CVS" ]; then
 108     cvs ci .
 109     retval=$?
 110   elif [ -d ".svn" ]; then
 111     svn ci .
 112     retval=$?
 113   elif [ -d ".git" ]; then
 114     # snag all new files.  not to everyone's liking.
 115     git add --all .
 116     retval=$?
 117     # tell git about all the files and get a check-in comment.
 118     git commit .
 119     retval+=$?
 120     # upload the files to the server so others can see them.
 121     git push 2>&1 | grep -v "X11 forwarding request failed"
 122     retval+=$?
 123   else
 124     echo unknown repository for $directory...
 125     retval=1
 126   fi
 127   popd &>/dev/null
 128   return $retval
 129 }
 130
 131 function do_diff
 132 {
 133   local directory="$1"; shift
 134   pushd "$directory" &>/dev/null
 135   retval=0  # normally successful.
 136
 137   # only update if we see a repository living there.
 138   if [ -d ".svn" ]; then
 139     svn diff .
 140   elif [ -d ".git" ]; then
 141     git diff
 142   elif [ -d "CVS" ]; then
 143     cvs diff .
 144   fi
 145
 146   popd &>/dev/null
 147   return $retval
 148 }
 149
 150
 151 # checks in all the folders in a specified list.
 152 function checkin_list()
 153 {
 154   local list=$*
 155   for i in $list; do
 156     # turn repo list back into an array.
 157     eval "repository_list=( ${REPOSITORY_LIST[*]} )"
 158     for j in "${repository_list[@]}"; do
 159       # add in the directory component.
 160       j="$i/$j"
 161       if [ ! -d "$j" ]; then continue; fi
 162       echo "checking in '$j'..."
 163       do_checkin $j
 164     done
 165   done
 166 }
 167
 168 # takes out the first few carriage returns that are in the input.
 169 function squash_first_few_crs()
 170 {
 171   i=0
 172   while read line; do
 173     i=$((i+1))
 174     if [ $i -le 3 ]; then
 175       echo -n "$line  "
 176     else
 177       echo $line
 178     fi
 179   done
 180   if [ $i -le 3 ]; then
 181     # if we're still squashing eols, make sure we don't leave them hanging.
 182     echo
 183   fi
 184 }
 185
 186 # selects the checkout method based on where we are (the host the script runs on).
 187 function do_update()
 188 {
 189   directory="$1"; shift
 190
 191   pushd "$directory" &>/dev/null
 192   if [ -d "CVS" ]; then
 193     cvs update . | squash_first_few_crs
 194   elif [ -d ".svn" ]; then
 195     svn update . | squash_first_few_crs
 196   elif [ -d ".git" ]; then
 197     git pull 2>&1 | grep -v "X11 forwarding request failed" | squash_first_few_crs
 198   else
 199     echo unknown repository for $directory...
 200   fi
 201   popd &>/dev/null
 202 }
 203
 204 # gets all the updates for a list of folders under revision control.
 205 function checkout_list {
 206   list=$*
 207   for i in $list; do
 208     # turn repo list back into an array.
 209     eval "repository_list=( ${REPOSITORY_LIST[*]} )"
 210     for j in "${repository_list[@]}"; do
 211       # add in the directory for our purposes here.
 212       j="$i/$j"
 213       if [ ! -d $j ]; then
 214         if [ ! -z "$SHELL_DEBUG" ]; then
 215           echo "No directory called $j exists."
 216         fi
 217         continue
 218       fi
 219
 220       echo -n "retrieving '$j'...  "
 221       do_update $j
 222     done
 223   done
 224 }
 225
 226 # provides a list of absolute paths of revision control directories
 227 # that are located under the directory passed as the first parameter.
 228 function generate_rev_ctrl_filelist()
 229 {
 230   local dir="$1"; shift
 231   pushd "$dir" &>/dev/null
 232   local dirhere="$(\pwd)"
 233   local tempfile=$(mktemp /tmp/zz_rev_checkin.XXXXXX)
 234   echo >$tempfile
 235   find $dirhere -maxdepth 3 -type d -iname ".svn" -exec echo {}/.. ';' >>$tempfile
 236   find $dirhere -maxdepth 3 -type d -iname ".git" -exec echo {}/.. ';' >>$tempfile
 237 #CVS is not well behaved, and we seldom use it anymore.
 238 #  find $dirhere -maxdepth 3 -type d -iname "CVS" -exec echo {}/.. ';' >>$tempfile
 239   popd &>/dev/null
 240   echo "$tempfile"
 241 }
 242
 243 # iterates across a list of directories contained in a file (first parameter).
 244 # on each directory name, it performs the action (second parameter) provided.
 245 function perform_action_on_file()
 246 {
 247   local tempfile="$1"; shift
 248   local action="$1"; shift
 249
 250   dirs=($(cat $tempfile))
 251
 252   for dirname in ${dirs[@]}; do
 253     if [ -z "$dirname" ]; then continue; fi
 254     pushd $dirname &>/dev/null
 255     echo "[$(pwd)]"
 256     $action .
 257     echo "======="
 258     popd &>/dev/null
 259   done
 260
 261   rm $tempfile
 262 }
 263
 264