diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-08-01 00:42:16 +0300 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-08-01 01:31:32 +0300 |
| commit | 284a1ac48b35ef107979978fd443fbde6a6b4b12 (patch) | |
| tree | 126db7b2837559bd678fb976f2cda43ccbac4e0a /src | |
| parent | 9a64ffcf42132cf27fdd5a59127985f1175234c3 (diff) | |
| download | idest-284a1ac48b35ef107979978fd443fbde6a6b4b12.tar.gz idest-284a1ac48b35ef107979978fd443fbde6a6b4b12.tar.bz2 | |
Finish the docs.
* doc/.gitignore: Update.
* doc/idest.texi: Document all new features.
* scheme/idest/batch/setlyrics.scm: Update --help output.
* scheme/idest/batch/setpic.scm: Likewise.
* scheme/idest/format/lyrics.scm: Likewise.
* scheme/idest/format/pic.scm: Likewise.
* scheme/idest/list-modules.scm: Implement the --which option.
* src/guile.c (%idest-package-site-dir)
(%idest-version-site-dir)
(%idest-guile-site-dir): New functions.
Diffstat (limited to 'src')
| -rw-r--r-- | src/guile.c | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/src/guile.c b/src/guile.c index d3ceade..e59b49c 100644 --- a/src/guile.c +++ b/src/guile.c @@ -631,7 +631,37 @@ load_startup_file() for (; argv[i]; i++) free(argv[i]); } + +SCM_DEFINE_PUBLIC(scm_sys_idest_package_site_dir, "%idest-package-site-dir", + 0, 0, 0, + (), +"Return the directory where idest-specific version-independent files are installed.") +#define FUNC_NAME s_scm_sys_idest_package_site_dir +{ + return scm_from_locale_string(PKG_SITE); +} +#undef FUNC_NAME +SCM_DEFINE_PUBLIC(scm_sys_idest_version_site_dir, "%idest-version-site-dir", + 0, 0, 0, + (), +"Return the directory where version-specific site-wide files are installed.") +#define FUNC_NAME s_scm_sys_idest_version_site_dir +{ + return scm_from_locale_string(VERSION_SITE); +} +#undef FUNC_NAME + +SCM_DEFINE_PUBLIC(scm_sys_idest_guile_site_dir, "%idest-guile-site-dir", + 0, 0, 0, + (), +"Return the Guile site-dir used when configuring the package.") +#define FUNC_NAME s_scm_sys_idest_guile_site_dir +{ + return scm_from_locale_string(GUILE_SITE); +} +#undef FUNC_NAME + void guile_init(int *pargc, char ***pargv) { |