chiark
/
gitweb
/
~ian
/
topbloke.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
wip found
[topbloke.git]
/
tb-create.pl
diff --git
a/tb-create.pl
b/tb-create.pl
index 5c620f35fb30bd5a0186c2f661ac982619d375b2..68c571f369cd280c7eeb9c3abe9825af9a4edd93 100755
(executable)
--- a/
tb-create.pl
+++ b/
tb-create.pl
@@
-7,6
+7,8
@@
use strict;
use Getopt::Long;
use Topbloke;
use Getopt::Long;
use Topbloke;
+fixme needs update to new metadata;
+
Getopt::Long::Configure(qw(bundling));
die "bad usage\n" unless @ARGV==1;
Getopt::Long::Configure(qw(bundling));
die "bad usage\n" unless @ARGV==1;
@@
-107,12
+109,12
@@
my $baseref = "refs/topbloke-bases/$newpatch";
create_and_switch($baseref, 'base');
meta_and_stage('msg', "# not applicable\n");
create_and_switch($baseref, 'base');
meta_and_stage('msg', "# not applicable\n");
-meta_and_stage('deps', "
# not applicable\n
");
-meta_and_stage('
flags', ''
);
+meta_and_stage('deps', "");
+meta_and_stage('
props', "patch $current->{Fullname}\n"
);
if ($current->{Kind} eq 'foreign') {
meta_and_stage('included', $current->{DepSpec}."\n");
if ($current->{Kind} eq 'foreign') {
meta_and_stage('included', $current->{DepSpec}."\n");
- meta_and_stage('p
flag
s', '');
+ meta_and_stage('p
prop
s', '');
}
run_git(qw(commit -q -m), "tb-create $newpatch base");
}
run_git(qw(commit -q -m), "tb-create $newpatch base");
@@
-141,9
+143,9
@@
wf_done($nm);
stage_meta('msg');
meta_and_stage('deps', "$current->{DepSpec}\n");
stage_meta('msg');
meta_and_stage('deps', "$current->{DepSpec}\n");
-# we inherit
empty flag
s from the base branch
+# we inherit
correct props and pprop
s from the base branch
-
flagsfile_add_flag('included
',$newpatch);
+
depsfile_add_dep('included','tb
',$newpatch);
stage_meta('included');
run_git(qw(commit -q -m), "tb-create $newpatch tip");
stage_meta('included');
run_git(qw(commit -q -m), "tb-create $newpatch tip");