diff options
| -rw-r--r-- | vcx | 26 |
1 files changed, 17 insertions, 9 deletions
@@ -60,17 +60,25 @@ sub run_init { touch_file(INDEX); my $rev_id = to_hex_id(0); - my $rev_dir = File::Spec->catfile(REV_DIR, $rev_id); - make_path($rev_dir); - write_file(HEAD, "$rev_id\n"); + my $rev_file = File::Spec->catfile(REV_DIR, $rev_id); - # Baseline tree (empty) - my $tree_hash = sha1_hex(""); - my $tree_file = File::Spec->catfile($rev_dir, "tree-$tree_hash"); - open my $fh, '>', $tree_file or die $!; close $fh; - make_path(File::Spec->catdir(OBJ_DIR, $tree_hash)); + my $empty_tree = sha1_hex(""); + touch_file(File::Spec->catfile(OBJ_DIR, $empty_tree)); - open my $mfh, '>', File::Spec->catfile($rev_dir, "message"); close $mfh; + my $ts = time(); + my $msg = "Revision zero.\n"; + my $msg_len = length($msg); + + open my $fh, '>:raw', $rev_file or die $!; + print $fh "tree:$empty_tree\n"; + print $fh "parent:none\n"; + print $fh "date:$ts\n"; + print $fh "len:$msg_len\n"; + print $fh "\n"; # The "Header/body" separator + print $fh $msg; + close $fh; + + write_file(HEAD, "$rev_id\n"); print "Initialized repository.\n"; } |