summaryrefslogtreecommitdiffstats
path: root/quilt/snapshot.in
blob: 91cbb4cf23f06c376622d849f158f6c58d311d2b (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
#! @BASH@

#  This script is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License version 2 as
#  published by the Free Software Foundation.
#
#  See the COPYING and AUTHORS files for more details.

# Read in library functions
if [ "$(type -t patch_file_name)" != function ]
then
	if ! [ -r @SCRIPTS@/patchfns ]
	then
		echo "Cannot read library @SCRIPTS@/patchfns" >&2
		exit 1
	fi
	. @SCRIPTS@/patchfns
fi

usage()
{
	echo $"Usage: quilt snapshot [-d]"
	if [ x$1 = x-h ]
	then
		echo $"
Take a snapshot of the current working state.

-d	Remove current snapshot."
		exit 0
	else
		exit 1
	fi
}

options=`getopt -o dh -- "$@"`

if [ $? -ne 0 ]
then
	usage
fi

eval set -- "$options"

while true
do
	case "$1" in
	-d)
		opt_remove=1
		shift ;;
	-h)
		usage -h ;;
	--)
		shift
		break ;;
	esac
done

if [ $# -ne 0 ]
then
	usage
fi

snap_subdir=.snap

# Clean up from previous snapshot
rm -rf $QUILT_PC/$snap_subdir
mkdir -p $QUILT_PC/$snap_subdir

if [ -n "$opt_remove" ]
then
	exit 0
fi

# Save current working state
for patch in $(applied_patches | tac)
do
	for file in $(files_in_patch $patch)
	do
		if ! [ -e "$QUILT_PC/$snap_subdir/$file" ]
		then
			mkdir -p "$QUILT_PC/$snap_subdir/$(dirname $file)"
			if [ -e "$file" ]
			then
				ln "$file" "$QUILT_PC/$snap_subdir/$file"
			else
				touch "$QUILT_PC/$snap_subdir/$file"
			fi
		fi
	done
done

# Now we may have some zero-size files that have no permissions
# (which represent files that the patch creates). Those may have
# been created in the meantime, but patch would refuse to touch
# them: We must remove them here.
find $QUILT_PC/$snap_subdir -type f -size 0 -exec rm -f '{}' ';'

### Local Variables:
### mode: shell-script
### End:
# vim:filetype=sh