On Mon, Feb 11, 2008 at 07:59:46PM -0500, Rhodes, Kate wrote:
> * status fails to report the current status
> * update fails to work at all
Below is a patch to address these two. It works by simulating the
diff as if HEAD contained nothing. The 'diff' command is still broken
(it would need to generate fake diff output against an empty tree).
However, I wonder if this is the best approach. It would be nice if
there were a shorthand for "the empty tree" for diffing, so you could
just diff against that rather than HEAD, and have the regular plumbing
generate.
I suppose we could just create that tree object, though it adds a slight
amount of cruft to the object database.
---
git-add--interactive.perl | 62 ++++++++++++++++++++++++++++++++-------------
1 files changed, 44 insertions(+), 18 deletions(-)
diff --git a/git-add--interactive.perl b/git-add--interactive.perl
index 17ca5b8..b9f9abe 100755
--- a/git-add--interactive.perl
+++ b/git-add--interactive.perl
@@ -82,6 +82,17 @@ sub list_untracked {
my $status_fmt = '%12s %12s %s';
my $status_head = sprintf($status_fmt, 'staged', 'unstaged', 'path');
+sub is_initial_commit {
+ return system('git rev-parse HEAD -- >/dev/null 2>&1') != 0;
+}
+
+sub count_blob_lines {
+ my $sha1 = shift;
+ my @lines = run_cmd_pipe(qw(git cat-file blob), $sha1);
+ return scalar(@lines);
+}
+
+
# Returns list of hashes, contents of each of which are:
# VALUE: pathname
# BINARY: is a binary path
@@ -103,27 +114,42 @@ sub list_modified {
return if (!@tracked);
}
- for (run_cmd_pipe(qw(git diff-index --cached
- --numstat --summary HEAD --), @tracked)) {
- if (($add, $del, $file) =
- /^([-\d]+) ([-\d]+) (.*)/) {
- my ($change, $bin);
- if ($add eq '-' && $del eq '-') {
- $change = 'binary';
- $bin = 1;
- }
- else {
- $change = "+$add/-$del";
- }
+ if (is_initial_commit()) {
+ for (run_cmd_pipe(qw(git ls-files --stage --exclude-standard
+ --), @tracked)) {
+ my ($sha1, $file) = /\d+ ([0-9a-f]+) \d\t(.*)/
+ or die "invalid ls-files output: $_";
+ my $n = count_blob_lines($sha1);
$data{$file} = {
- INDEX => $change,
- BINARY => $bin,
+ INDEX => "+$n/-0",
FILE => 'nothing',
- }
+ INDEXADDDEL => 'create',
+ };
}
- elsif (($adddel, $file) =
- /^ (create|delete) mode [0-7]+ (.*)$/) {
- $data{$file}{INDEX_ADDDEL} = $adddel;
+ }
+ else {
+ for (run_cmd_pipe(qw(git diff-index --cached
+ --numstat --summary HEAD --), @tracked)) {
+ if (($add, $del, $file) =
+ /^([-\d]+) ([-\d]+) (.*)/) {
+ my ($change, $bin);
+ if ($add eq '-' && $del eq '-') {
+ $change = 'binary';
+ $bin = 1;
+ }
+ else {
+ $change = "+$add/-$del";
+ }
+ $data{$file} = {
+ INDEX => $change,
+ BINARY => $bin,
+ FILE => 'nothing',
+ }
+ }
+ elsif (($adddel, $file) =
+ /^ (create|delete) mode [0-7]+ (.*)$/) {
+ $data{$file}{INDEX_ADDDEL} = $adddel;
+ }
}
}
--
1.5.4.1.1296.g34f89-dirty
-
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html
