root/src/paths.c

DEFINITIONS

1. maybe_prepend_install_dir
2. Scm_GetLibraryDirectory
3. Scm_GetArchitectureDirectory
4. Scm_GetSiteLibraryDirectory
5. Scm_GetSiteArchitectureDirectory

   1 /*
   2  * paths.c - get 'known' pathnames, such as the system's library directory.
   3  *
   4  *   Copyright (c) 2005 Shiro Kawai, All rights reserved.
   5  * 
   6  *   Redistribution and use in source and binary forms, with or without
   7  *   modification, are permitted provided that the following conditions
   8  *   are met:
   9  * 
  10  *   1. Redistributions of source code must retain the above copyright
  11  *      notice, this list of conditions and the following disclaimer.
  12  *
  13  *   2. Redistributions in binary form must reproduce the above copyright
  14  *      notice, this list of conditions and the following disclaimer in the
  15  *      documentation and/or other materials provided with the distribution.
  16  *
  17  *   3. Neither the name of the authors nor the names of its contributors
  18  *      may be used to endorse or promote products derived from this
  19  *      software without specific prior written permission.
  20  *
  21  *   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  22  *   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  23  *   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  24  *   A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
  25  *   OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  26  *   SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
  27  *   TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
  28  *   PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
  29  *   LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
  30  *   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  31  *   SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  32  *
  33  *  $Id: paths.c,v 1.1 2005/10/24 01:37:21 shirok Exp $
  34  *
  35  */
  37 /* This file is used by both libgauche and gauche-config.  The latter
  38  * doesn't use ScmObj, so the function works on bare C strings.
  39  */
  41 #include <string.h>
  42 #include "gauche/config.h"
  43 #include "gauche/arch.h"
  45 #if defined(__MINGW32__)
  46 #include "getdir_win.c"
  47 #elif defined(GAUCHE_MACOSX_FRAMEWORK)
  48 #include "getdir_darwin.c"
  49 #else
  50 #include "getdir_dummy.c"
  51 #endif
  53 /* The configure-generated path macros might have '@' at the beginning,
  54    indicating the runtime directory. */
  55 void maybe_prepend_install_dir(const char *orig, char *buf, int buflen,
  56                                void (*errfn)(const char *, ...))
  57 {
  58     if (*orig == '@') {
  59         int len = get_install_dir(buf, buflen, errfn);
  60         if (len + strlen(orig) > buflen) {
errfn("Pathname too long: %s", orig);
  62         }
strcat(buf, orig+1);
  64     } else {
  65         if (strlen(orig) >= buflen-1) {
errfn("Pathname too long: %s", orig);
  67         }
strcpy(buf, orig);
  69     }
  70 }
  72 /* External API */
  74 void Scm_GetLibraryDirectory(char *buf, int buflen,
  75                              void (*errfn)(const char *, ...))
  76 {
maybe_prepend_install_dir(GAUCHE_LIB_DIR, buf, buflen, errfn);
  78 }
  80 void Scm_GetArchitectureDirectory(char *buf, int buflen,
  81                                   void (*errfn)(const char *, ...))
  82 {
maybe_prepend_install_dir(GAUCHE_ARCH_DIR, buf, buflen, errfn);
  84 }
  86 void Scm_GetSiteLibraryDirectory(char *buf, int buflen,
  87                                  void (*errfn)(const char *, ...))
  88 {
maybe_prepend_install_dir(GAUCHE_SITE_LIB_DIR, buf, buflen, errfn);
  90 }
  92 void Scm_GetSiteArchitectureDirectory(char *buf, int buflen,
  93                                       void (*errfn)(const char *, ...))
  94 {
maybe_prepend_install_dir(GAUCHE_SITE_ARCH_DIR, buf, buflen, errfn);
  96 }