Git.xs: older perl do not know const char *
[git/mingw.git] / symbolic-ref.c
blob193c87c174706710b346e58c42a9651dbb5e671f
1 #include "cache.h"
3 static const char git_symbolic_ref_usage[] =
4 "git-symbolic-ref name [ref]";
6 static void check_symref(const char *HEAD)
8 unsigned char sha1[20];
9 const char *git_HEAD = strdup(git_path("%s", HEAD));
10 const char *git_refs_heads_master = resolve_ref(git_HEAD, sha1, 0);
11 if (git_refs_heads_master) {
12 /* we want to strip the .git/ part */
13 int pfxlen = strlen(git_HEAD) - strlen(HEAD);
14 puts(git_refs_heads_master + pfxlen);
16 else
17 die("No such ref: %s", HEAD);
20 int main(int argc, const char **argv)
22 setup_git_directory();
23 git_config(git_default_config);
24 switch (argc) {
25 case 2:
26 check_symref(argv[1]);
27 break;
28 case 3:
29 create_symref(strdup(git_path("%s", argv[1])), argv[2]);
30 break;
31 default:
32 usage(git_symbolic_ref_usage);
34 return 0;