X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Flily-guile.hh;h=b7eea3d2f570d9c25382b132da9c800c4c47b83f;hb=194ef0e7e19c7a7c0836b6bd3ed2788a56220d2f;hp=bc9f969f73dad3dcc2fb7244937c0152b8e1b96f;hpb=75be12aa75a535af753d6125bfc03da3ee303b36;p=lilypond.git diff --git a/lily/include/lily-guile.hh b/lily/include/lily-guile.hh index bc9f969f73..b7eea3d2f5 100644 --- a/lily/include/lily-guile.hh +++ b/lily/include/lily-guile.hh @@ -3,17 +3,18 @@ source file of the GNU LilyPond music typesetter - (c) 1998 Jan Nieuwenhuizen + (c) 1998--1999 Jan Nieuwenhuizen */ #ifndef LILY_GUILE_HH #define LILY_GUILE_HH - +// order of includes important? #include "config.hh" #include "string.hh" #include #include +#include "direction.hh" SCM ly_symbol (String name); String symbol_to_string (SCM); @@ -24,6 +25,8 @@ SCM ly_eval (SCM a); SCM ly_func_o (char const* name); SCM ly_quote_scm (SCM s); void ly_display_scm (SCM s); +String ly_scm2string (SCM s); +SCM array_to_list (SCM *a , int l); #include "array.hh" @@ -31,5 +34,16 @@ void ly_display_scm (SCM s); void read_lily_scm_file (String); +void init_symbols (); +#include "ly-symbols.hh" + +/* + DIY gc protection. + */ +SCM ly_protect_scm (SCM s); +SCM ly_unprotect_scm (SCM s); +void init_ly_protection (); + +SCM index_cell (SCM cellp, Direction d); #endif // LILY_GUILE_HH