scm_c_resolve_module().
* python/lilylib.py (exit): exit with argument i.
+2004-06-14 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+ * lily/paper-book.cc (output): load framework module
+ scm_c_resolve_module().
+
+ * python/lilylib.py (exit): exit with argument i.
+
2004-06-14 Jan Nieuwenhuizen <janneke@gnu.org>
* scm/framework-gnome.scm (output-framework-gnome): Try loading
2004-06-13 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * VERSION: release 2.3.4
+
* Documentation/user/invoking.itexi (Invoking the lilypond
binary): document --safe.
else
pos= ly_scm2realdrul (posns);
- scale_drul ( &pos, Staff_symbol_referencer::staff_space (me));
+ scale_drul (&pos, Staff_symbol_referencer::staff_space (me));
Real dy = pos[RIGHT] - pos[LEFT];
Real dydx = (dy && dx) ? dy/dx : 0;
Real last_xposn = -1;
Real last_stem_width = -1 ;
- Real gap_length =robust_scm2double ( me->get_property ("gap"), 0.0);
+ Real gap_length = robust_scm2double (me->get_property ("gap"), 0.0);
Stencil the_beam;
Real lt = me->get_paper ()->get_dimension (ly_symbol2scm ("linethickness"));
right from the left stem, and rfliebertjes pointing left from
right stem.
*/
- SCM left = (i>0) ? ly_cdr (last_beaming) : SCM_EOL;
+ SCM left = (i > 0) ? ly_cdr (last_beaming) : SCM_EOL;
SCM right = st ? ly_car (this_beaming) : SCM_EOL;
Array<int> full_beams;
/* Ugh signature of scm_internal_hash_fold () is inaccurate. */
typedef SCM (*Hash_cl_func)();
+/*
+ Check me. This is NOT an actual import. It just copies the
+ definitions.
+
+ If a variable in changed in SRC, we DEST doesn't see the
+ definitions.
+ */
LY_DEFINE (ly_import_module, "ly:import-module",
2, 0, 0, (SCM dest, SCM src),
"Import all bindings from module SRC into DEST.")
String func_nm = format;
func_nm = "output-framework-" + func_nm;
-
- SCM func = ly_scheme_function (func_nm.to_str0 ());
+ String mod_nm = "scm framework-" + format;
+
+ SCM mod = scm_c_resolve_module (mod_nm.to_str0 ());
+ SCM func = scm_c_module_lookup (mod, func_nm.to_str0 ());
+
+ func = scm_variable_ref (func);
scm_apply_0 (func, scm_list_n (out->self_scm (),
self_scm (),
scopes,
if __main__.verbose_p:
raise _ ('Exiting (%d)...') % i
else:
- sys.exit (1)
+ sys.exit (i)
def getopt_args (opts):
'''Construct arguments (LONG, SHORT) for getopt from list of options.'''
))
(set-object-property! symbol 'music-type? type?)
(set-object-property! symbol 'music-doc description)
- symbol )
-
+ symbol)
(define-public all-music-properties
(map
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; output
-
-;; only load modules necessary.
-(eval
- (cons use-modules
- (map (lambda (x)
- (list 'scm (string->symbol (string-append "framework-" x))))
- (ly:output-formats)))
- (current-module))
-
(define output-tex-module
(make-module 1021 (list (resolve-interface '(scm output-tex)))))