Esempi in C++ (Cpp) per g_rc_scheme_directory

Esempio n. 1

File: g_register.c Progetto: peter-b/geda-gaf

/*! \brief Enable scheme loading from a shared data directory
 * \par Function Description
 * Helper function for g_register_libgeda_dirs().
 */
static void
g_register_scheme_data_dir (const gchar *data_dir)
{
  gchar *scheme_dir = g_build_filename (data_dir, "scheme", NULL);
  g_rc_scheme_directory (scm_from_locale_string (scheme_dir));
  g_free (scheme_dir);
}

Esempio n. 2

File: g_register.c Progetto: SayCV/geda-gaf

/*! \brief Register some libgeda directories with Scheme.
 * \par Function Description
 * Ensures that the default gEDA Scheme directory is added to the
 * Guile load path.
 */
void
g_register_libgeda_dirs (void)
{
  char *scheme_dir;

  scheme_dir = g_build_filename (s_path_sys_data (), "scheme", NULL);
  g_rc_scheme_directory (scm_from_utf8_string (scheme_dir));
  g_free (scheme_dir);
}