From 2f0fd8d03e032ae21922fe34f68f3f4846045f8c Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 1 Aug 2012 21:12:09 +0200 Subject: 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. --- src/gitto-path.c | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'src/gitto-path.c') 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 #include -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" } -- cgit v1.2.3-54-g00ecf