printf "\nMerge remote url commits into local BeRTOS svn repository.\n"
printf "Usage: $0 <REMOTE_URL> <REMOTE_START_REV> [<REMOTE_END_REV>]\n"
printf "If remote end revision is not supplied HEAD will be used.\n"
+ exit 1
fi
END_REV="$3"
fi
+#Check for local uncommitted modifications
+STATUS=`svn status -q`
+if [[ z"$STATUS" != z && "${STATUS:0:1}" != $'\n' ]] ; then
+ printf "Project has local modifications, it must be clean\n"
+ exit 1
+fi
+
#Get list of revisions to merge.
REV_LIST=`svn log $MERGE_URL -r$START_REV:$END_REV --quiet 2>&1| perl -ne 'if(m/^r([0-9]+)/) {print $1, "\n";}'`