diff options
author | 2012-08-01 21:12:09 +0200 | |
---|---|---|
committer | 2012-08-01 21:12:09 +0200 | |
commit | 2f0fd8d03e032ae21922fe34f68f3f4846045f8c (patch) | |
tree | 6bcc05c861a760701959d36605580bcc53fb98f3 /src/gitto-path.c | |
parent | f7016aea189d18f4dbeb109f498590c2eeb2bf6c (diff) | |
download | gitto-2f0fd8d03e032ae21922fe34f68f3f4846045f8c.tar.gz gitto-2f0fd8d03e032ae21922fe34f68f3f4846045f8c.zip |
Use guile-snarf
Because it looks cooler.
This way its easy to keep all the information about the function in
one place, and it makes it easier/more interesting to add new
functions later.
Diffstat (limited to 'src/gitto-path.c')
-rw-r--r-- | src/gitto-path.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/gitto-path.c b/src/gitto-path.c index 5dabaea..4fdd6ab 100644 --- a/src/gitto-path.c +++ b/src/gitto-path.c @@ -20,14 +20,15 @@ #include <stdlib.h> #include <libguile.h> -SCM -realpath_wrapper(SCM str) +SCM_DEFINE(realpath_wrapper, "realpath", 1, 0, 0, + (SCM path), + "Transform PATH into an absolute path.") { - char *path = scm_to_locale_string(str); - char *resolved_path = realpath(path, NULL); + char *relative_path = scm_to_locale_string(path); + char *resolved_path = realpath(relative_path, NULL); SCM scm_resolved_path = scm_from_locale_string(resolved_path); - free(path); + free(relative_path); free(resolved_path); return scm_resolved_path; @@ -36,5 +37,5 @@ realpath_wrapper(SCM str) void init_gitto() { - scm_c_define_gsubr("realpath", 1, 0, 0, realpath_wrapper); +#include "gitto-path.x" } |