Hi Mats,
Following your last mail I tried to compile Lilypond-1.2.17.
OS Linux 2.2.14.
Processor AMDK2-400
gcc version 2.95.2 19991024 (release)
While doing "make" I get the same error message as with v1.2.9 except the
line number of the error has changed but it's pretty near the same statement
as the one which gave the problem before:-
make[1]: Entering directory `/usr/src/Tars/Lilypond/lilypond-1.2.9/lily'
rm -f out/paper-score.dep; DEPENDENCIES_OUTPUT="out/paper-score.dep
out/paper-score.o" c++ -c -DHAVE_CONFIG_H
-I.. -Iinclude -Iout -I../lib/include -I../lib/out -I../flower/include
-I../flower/out -I../lib/include
-I../flower/include -g -g -I/usr/local/include -Wall -W
-Wmissing-prototypes -Wmissing-declarations
-Wconversion paper-score.cc -o out/paper-score.o
paper-score.cc: In method `void Paper_score::typeset_element(Score_element *)':
paper-score.cc:52: non-lvalue in assignment
make[1]: *** [out/paper-score.o] Error 1
make[1]: Leaving directory `/usr/src/Tars/Lilypond/lilypond-1.2.9/lily'
make: *** [all] Error 2
I attach the latest "offending" paper-score.cc file from my download. The
use of "SCM" in the "offending" statement (line 52) :-
SCM_CDR(element_smob_list_) = gh_cons (elem_p->self_scm_,
SCM_CDR (element_smob_list_));
causes me to wonder if it might be a problem with guile-1.3.
Your help will be much appreciated.
--
Thanks and Best wishes,
Howard Gilbert.
(A.H.Gilbert, Thornaby, North Yorkshire)
/*
p-score.cc -- implement Paper_score
source file of the GNU LilyPond music typesetter
(c) 1996, 1997--1999 Han-Wen Nienhuys <[EMAIL PROTECTED]>
*/
#include "main.hh"
#include "debug.hh"
#include "lookup.hh"
#include "spanner.hh"
#include "paper-def.hh"
#include "line-of-score.hh"
#include "paper-column.hh"
#include "paper-score.hh"
#include "paper-column.hh"
#include "scope.hh"
#include "gourlay-breaking.hh"
#include "paper-stream.hh"
#include "paper-outputter.hh"
#include "file-results.hh"
#include "misc.hh"
Paper_score::Paper_score ()
{
paper_l_ =0;
outputter_l_ =0;
Line_of_score * line_p = new Line_of_score;
line_p->pscore_l_ = this;
element_smob_list_ = scm_protect_object (gh_cons (line_p->self_scm_, SCM_EOL));
line_l_ = line_p;
}
Paper_score::Paper_score (Paper_score const &s)
: Music_output (s)
{
assert (false);
}
Paper_score::~Paper_score ()
{
scm_unprotect_object (element_smob_list_);
}
void
Paper_score::typeset_element (Score_element * elem_p)
{
elem_p->pscore_l_ = this;
SCM_CDR(element_smob_list_) = gh_cons (elem_p->self_scm_,
SCM_CDR (element_smob_list_));
elem_p->set_elt_property (ly_symbol ("full-name"),
gh_str02scm((char*)elem_p->name()));
scm_unprotect_object (elem_p->self_scm_);
}
void
Paper_score::add_column (Paper_column *p)
{
p->set_rank (col_l_arr_.size ());
col_l_arr_.push (p);
typeset_element(p);
}
void
Paper_score::print () const
{
#ifndef NPRINT
if (!flower_dstream)
return ;
DEBUG_OUT << "Paper_score { ";
DEBUG_OUT << "\n elements: ";
for (SCM p = SCM_CDR (element_smob_list_);
p != SCM_EOL;
p = SCM_CDR(p))
gh_display (SCM_CAR(p));
DEBUG_OUT << "}\n";
#endif
}
int
Paper_score::find_col_idx (Paper_column const *c) const
{
Paper_column const *what = c;
return col_l_arr_.find_i ((Paper_column*)what);
}
Array<Column_x_positions>
Paper_score::calc_breaking ()
{
Break_algorithm *algorithm_p=0;
Array<Column_x_positions> sol;
algorithm_p = new Gourlay_breaking ;
algorithm_p->set_pscore (this);
sol = algorithm_p->solve ();
delete algorithm_p;
return sol;
}
void
Paper_score::process ()
{
Dictionary<int> type_stats;
type_stats["Item"] =0;
type_stats["Spanner"] =0;
type_stats["Total"]=0;
print ();
*mlog << _ ("Preprocessing elements...") << " " << flush;
line_l_->breakable_col_processing ();
line_l_->pre_processing ();
*mlog << '\n' << _ ("Calculating column positions...") << " " << flush;
line_l_->space_processing ();
Array<Column_x_positions> breaking = calc_breaking ();
Paper_stream* paper_stream_p = paper_l_->paper_stream_p ();
outputter_l_ = paper_l_->paper_outputter_p (paper_stream_p, header_l_, origin_str_);
Link_array<Line_of_score> lines;
for (int i=0; i < breaking.size (); i++)
{
Line_of_score *line_l = line_l_->set_breaking (breaking, i);
lines.push (line_l);
if (line_l != line_l_)
typeset_element (line_l);
}
*mlog << "\n";
*mlog << _ ("Line ... ");
line_l_->break_processing ();
for (int i=0; i < lines.size (); i++)
{
*mlog << '[' << flush;
Line_of_score *line_l = lines[i];
line_l->post_processing ();
*mlog << i << flush;
line_l->output_all (i + 1 == lines.size());
*mlog << ']' << flush;
}
// huh?
delete outputter_l_;
delete paper_stream_p;
outputter_l_ = 0;
/*
todo: sort output
*/
if (experimental_features_global_b)
{
for (Dictionary_iter<int> i(type_stats); i.ok(); i++)
{
*mlog << i.key () << ": " << i.val () << " objects\n";
}
}
*mlog << '\n' << flush;
}
Link_array<Item>
Paper_score::broken_col_range (Item const*l, Item const*r) const
{
Link_array<Item> ret;
l = l->column_l ();
r = r->column_l ();
int start = l
? find_col_idx (dynamic_cast<Paper_column*> ((Item*)l))+1
: 0;
int stop = r
? find_col_idx (dynamic_cast<Paper_column*>((Item*)r))
: col_l_arr_.size ();
while (start < stop)
{
Paper_column *c = col_l_arr_[start];
if (c->breakable_b () && !c->line_l_)
ret.push (c);
start++;
}
return ret;
}
