source file of the GNU LilyPond music typesetter
- (c) 2000--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 2000--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
-#include <stdio.h>
-#include <string.h>
+#include "kpath.hh"
+
+#include <cstdio>
+#include <cstring>
+
+/*
+
+The problem, as far as I can tell, is that MacOS X has its getopt
+prototype in <unistd.h>, while I think other operating systems have it
+in other places. <unistd.h> is included by kpathsea.h, so you end up
+renaming both conflicting prototypes to YAKLUDGE.
+
+I found a somewhat more elegant patch for this: Just #include
+<unistd.h> before defining YAKLUDGE.
+
+*/
+
+#include <unistd.h>
-#include "config.h"
-#include "string.hh"
+#include "config.hh"
#define popen REALLYUGLYKLUDGE
#define pclose ANOTHERREALLYUGLYKLUDGE
+#define getopt YAKLUDGE
#if HAVE_KPATHSEA_KPATHSEA_H
extern "C" {
}
#endif
-#include "kpath.hh"
-#include "lily-version.hh"
+#include "file-path.hh"
+#include "main.hh"
+#include "source-file.hh"
+#include "warn.hh"
+String
+kpathsea_find_afm (char const * name)
+{
+#if (KPATHSEA && HAVE_KPSE_FIND_FILE)
+ char * name_ptr = kpse_find_file (name, kpse_afm_format, false);
-char *
-ly_find_afm (char const * name)
+ if (!name_ptr)
+ {
+ /*
+ don't mutter about afms, since we try to find them first, and lots of
+ TFMs don't have AFMs.
+ */
+ // warning (_f ("kpathsea couldn't find AFM file `%s'", name));
+ }
+ else
+ return name_ptr;
+
+#endif
+ return "";
+}
+
+String
+kpathsea_find_tfm (char const *name)
{
+ String file_name = global_path.find (String (name) + ".tfm");
#if (KPATHSEA && HAVE_KPSE_FIND_FILE)
- return kpse_find_file (name, kpse_afm_format, true);
+ if (file_name.is_empty ())
+ {
+ /* If invoked for a TeX font, we could do TRUE (must exist).
+ We could also do:
+ p = kpse_find_file (name, kpse_mf_format, false);
+ if (p)
+ p = kpse_find_file (name, kpse_mf_format, true);
+
+ but we assume that if there is a .PFA, there is also a .TFM,
+ and it's no use generating TFMs on the fly, because PFAs cannot
+ be generated on the fly. */
+ char *p = kpse_find_file (name, kpse_tfm_format, false);
+ if (!p)
+ warning (_f ("kpathsea can not find TFM file: `%s'", name));
+ else
+ file_name = p;
+ }
#endif
- return 0;
+ return file_name;
}
-char *
-ly_find_tfm (char const * name)
+#if KPATHSEA
+/* FIXME: this should be part of kpathsea */
+
+static kpse_file_format_type
+kpathsea_find_format (String name)
{
+ for (int i = 0; i < kpse_last_format; i++)
+ {
+ if (!kpse_format_info[i].type)
+ kpse_init_format ((kpse_file_format_type) i);
+
+ char const **suffixes[] = { kpse_format_info[i].suffix,
+ kpse_format_info[i].alt_suffix };
+ for (int j = 0; j < 2; j++)
+ for (char const **p = suffixes[j]; p && *p; p++)
+ {
+ String suffix = *p;
+ if (name.right_string (suffix.length ()) == suffix)
+ return (kpse_file_format_type) i;
+ }
+ }
+ return kpse_last_format;
+}
+#endif
+
+String
+kpathsea_gulp_file_to_string (String name)
+{
+ String file_name = global_path.find (name);
+
#if (KPATHSEA && HAVE_KPSE_FIND_FILE)
- return kpse_find_file (name, kpse_tfm_format, true);
+ if (file_name.is_empty ())
+ {
+ char *p = kpse_find_file (name.to_str0 (), kpathsea_find_format (name),
+ true);
+ if (p)
+ file_name = p;
+ else
+ warning (_f ("kpathsea can not find file: `%s'", name));
+ }
#endif
- return 0;
+
+ if (file_name.is_empty ())
+ error (_f ("can't find file: `%s'", name));
+
+ if (verbose_global_b)
+ progress_indication ("[" + file_name);
+
+ int filesize;
+ char *str = gulp_file (file_name, &filesize);
+ String string (str);
+ delete[] str;
+
+ if (verbose_global_b)
+ progress_indication ("]");
+
+ return string;
+}
+
+LY_DEFINE (ly_kpathsea_find_file, "ly:kpathsea-find-file",
+ 1, 0, 0, (SCM name),
+ "Return the absolute file name of @var{name},"
+ "or @code{#f} if not found.")
+{
+ SCM_ASSERT_TYPE (scm_is_string (name), name, SCM_ARG1, __FUNCTION__, "string");
+
+ String nm = ly_scm2string (name);
+ String file_name = global_path.find (nm);
+ if (file_name.is_empty ())
+ {
+ if (char *p = kpse_find_file (nm.to_str0 (), kpathsea_find_format (nm),
+ true))
+ return scm_makfrom0str (p);
+ return SCM_BOOL_F;
+ }
+ return scm_makfrom0str (file_name.to_str0 ());
}
+LY_DEFINE (ly_kpathsea_expand_variable, "ly:kpathsea-expand-variable",
+ 1, 0, 0, (SCM var),
+ "Return the expanded version @var{var}.")
+{
+ SCM_ASSERT_TYPE (scm_is_string (var), var, SCM_ARG1, __FUNCTION__, "string");
+
+ String nm = ly_scm2string (var);
+ char *result = kpse_var_expand (nm.to_str0 ());
+ SCM ret = scm_makfrom0str (result);
+ delete[] result;
+
+ return ret;
+}
void
-ly_init_kpath (char *av0)
+initialize_kpathsea (char *av0)
{
#if KPATHSEA && HAVE_KPATHSEA_KPATHSEA_H
- /*
- Remove the setting for TFMFONTS if we have kpathsea, because
- kpathsea can find TFM fonts anyway.
-
- If we don't lily will want to make tfms for cmr fonts, even if
- there is a :: entry in the TFMFONTS path.
-
- This will fail if a user has special fonts (outside of feta) that
- can not be found by kpath.
-
- If TFMFONTS is unset, TFMs of feta will be generated on the
- fly. The risk is that this will cause checksum mismatch errors,
- but MF is reasonably deterministic (so we hope not).
-
- The advantage is that the PK font will also be generated under
- /var/texmf/fonts, reducing clutter and compilation time.
-
- */
-#ifndef __CYGWIN__ /* mktextfm/mktexpk does not work on windows */
-#ifndef DEBIAN
- unsetenv ("TFMFONTS");
-#endif
-#endif
-
/*
initialize kpathsea
*/
kpse_set_program_name (av0, NULL);
kpse_maketex_option ("tfm", TRUE);
-
-#ifdef DEBIAN
- String my_tfm = "$VARTEXFONTS/tfm/public/lilypond";
-#else
- String my_tfm = "$VARTEXFONTS/tfm/lilypond/";
- my_tfm += version_str () + "/";
-#endif
-
- char * mypath = kpse_expand ((my_tfm + ":").ch_C ());
-#ifndef DEBIAN
- String prog = "mktextfm --destdir ";
- prog += mypath;
-
- kpse_format_info[kpse_tfm_format].program = strdup (prog.ch_C ());
-#endif
- kpse_format_info[kpse_tfm_format].client_path = mypath;
#endif
}
-
-