TODO

   1 # -*-outline-*-
   2 * GNU LilyPond TODO
   3 Features you cannot find in the doco as working, should be
   4 mentioned here.  This is an assorted collection of stuff that will be
   5 done, might be done, or is an idea that I want to think about
   6
   7 Most of the items are marked in the code as well, with full explanation.
   8 grep for TODO and ugh/ugr/urg
   9
  10 ** BUGS
  11 *** .ly files
  12 **** input/praeludium-fuga-E.ly
  13 **** mutopia/J.S.Bach/wtk1-fugue2.ly
  14 **** fix: text on rests: rediculous dims
  15 *** fix midi output:
  16 **** default duration?  d
  17      duration must be not entered explicitely on first note.
  18 *** fix singleStaffBracket
  19 *** \shape 1st dim skipped?
  20 *** turn slope-damping on/off
  21 *** c4 \! \> c4
  22 *** tremolo stuff
  23 *** gallina barlines.
  24 *** fix height of / collisions with lyrics (chords),
  25     see input/test/vertical-text.ly; input/test/repeat.ly
  26 *** latex bla.tex broken (titles / \lilyfooter stuff?)
  27 *** fix dynamics decently, ie. use kerning & ligatures.
  28 *** fix "I've been drinking too much"
  29 *** support_l_arr_ empty in staff-margin's G_staff_side_item
  30 *** remove old preformats in RPM
  31 *** declaring \score
  32 *** is \break broken? input/test/hara-kiri.ly
  33 *** fix OrchestralScore and Hara-kiri (i.e., fix Coriolan)
  34
  35 ** TODO before 1.2
  36 *** do scaled fonts.
  37 *** profile atom smobs
  38 *** make ly2dvi test page.
  39 *** Try to use Killing_cons iso. Pointer_list
  40 *** make dependencies () a virtual function.
  41 *** fix Repeated_music_iterator::ok() (constness.)
  42 *** one big ly2dvi input that includes *all* tests.
  43 *** Don't use boolean properties (0,1), instead check existence
  44 of property.
  45 *** store req -> element, element -> element causes for warnings
  46 *** junk Text_def, use G_text_item in stead.
  47 *** junk Script_def
  48 *** fix partial measures in meaningful way.
  49 *** fix AFM for BlueSky AFM files.
  50 *** working notehead style.
  51 *** add scripts to bars eg.  |^"bla"
  52 *** relative mode for mi2mu
  53 *** uniformise recent feta contributions.
  54 **** use SCM and Molecules for {accordeon stuff, }
  55 **** bigger and fatter 4/4 C
  56 *** sort out directory stuff.
  57 **** --prefix option?
  58 **** -I option per filetype?
  59 **** kpathsea?
  60 *** todo doc left/rightbeamcount
  61 *** doc Single_malt_grouping_item
  62 *** ly2dvi/lilypond logfile.
  63 *** How can I specify a chord whose duration is longer than a whole note?
  64  \type ChordNames { \chord{ A1*2-min } }
  65
  66 gives me a parse error.  And \times doesn't work either.  I can't use
  67 a spacer note.  So it seems to be impossible to have long chords of
  68 general length.  Of course, in the example above I can use \breve.
  69 But what if I want a chord that lasts for 3 whole notes?  Or what
  70 about 2.5 whole notes?  Is there a mechanism for getting this kind of
  71 length?
  72
  73
  74 Why does my second extender request get junked in the following:
  75
  76 \score{
  77 < \notes \relative c''{
  78      a4()b()c()d c()d()b()a }
  79    \type Lyrics \lyrics {
  80      foo1 __  bar2. __ _4 }
  81 > }
  82
  83 It seems that \cr and \decr don't work any more.
  84
  85 \score{
  86   \notes{
  87     a \cr b \rc c }
  88   \paper{linewidth=-1.;}
  89 }
  90
  91 Gives me
  92
  93 qq.ly:3:9: warning: can't find (de)crescendo to end:
  94     a \cr
  95           b \rc c }
  96
  97
  98
  99 Use of semicolons is still rather confusing.  They are obligatory
 100 after some types of assignments and illegal after others.
 101
 102   \property foo=bar               illegal
 103   foo = 3 at top level            illegal
 104   foo = 3 inside \paper           obligatory
 105   foo = \notes{ ...} top level    illegal
 106   foo = \translator{ } in \paper  obligatory
 107
 108 As far as I can tell, the sole accomplishment of this syntactic
 109 irregularity is to keep the user as confused as possible.
 110
 111
 112 I was trying to get interstaff beams to work and did this:
 113
 114 \score{
 115 \type GrandStaff <
 116 \type Staff=one \notes\relative c'{
 117   \stemup
 118   [c8 c \translator Staff=two \stemup c c]
 119   \translator Staff=one
 120   \stemdown
 121   [ b8 \translator Staff=two a8]
 122   \translator Staff=one
 123   c4
 124   }
 125 \type Staff=two \notes{ \clef bass; s1 }
 126 >
 127 \paper{
 128                 \translator{
 129                         \GrandStaffContext
 130                         minVerticalAlign = 3.0*\staffheight;
 131                         maxVerticalAlign = 3.0*\staffheight;
 132                 }
 133   linewidth = -1.;
 134 }
 135 }
 136
 137 The beams are at the right angle, but they aren't in the right place.
 138 *** fractional chord durs.
 139 *** hang Item on Spanner
 140 *** remove Interval dim_ from Dimension_cache and rename the struct.
 141 *** do --safe for PS output?
 142 *** convert-mudela --output
 143 *** Staff_margin (with a partial measure.)
 144 *** fix "I've been drinking too much"
 145 *** fix pletvisibility properties:
 146 **** bracket on/off/no-bracket-when-beam
 147 **** num on/off/no-num-when-beam
 148 *** fix: standchen.
 149 *** junk backlinks?
 150 *** junk text{sharp,flat,etc}
 151 *** fix convert-mudela manpage
 152 *** decimal point in \paper {}
 153 *** {  \voiceone <a'4.*2/3  d''4.*2/3 fis''4.*2/3>  [g''8 fis'' e''] d''4 |}
 154          and=20
 155          { \voicetwo  d'4 d'2.*2/3 } spacing
 156 *** tied notes for MIDI
 157 *** sharp /flat on trills (in MIDI ??)
 158 *** scm-ify \property values.
 159 *** move class Lookup {} into scm
 160 *** collisions/voices \voiceone \voicetwo are broken; see
 161 *** msgfmt -o check?
 162 *** \breathmark TeX macro
 163 *** catch GUILE errors?
 164 *** add new glyphs to font.ly
 165 *** formatting of input stuff.
 166 *** \notes{ a \< b \cr } vs \notes{ a \< b \! }
 167 *** if possible, it might be nice for a warning to appear if someone does
 168         \translator with no name and without assigning it to an
 169         identifier.
 170 *** space after bars?
 171 *** 'hinterfleisch' before bar (e.g. wtk1-fugue2)?
 172 *** \type Voice \times 2/3 { [c8 c16 c16 c16 c16] }
 173 *** repeat bars: need distance after ":|" and before "|:"
 174 ** Summary of minor spelling irregularities:
 175 ***  capitalization/use of underscores in property names
 176 *** fix SkipBars  -> skipBars
 177
 178 *** fix marks/barnumbers/marginal notes
 179 *** broken scripts:
 180         lbheel = \script { "bheel" 0 0 -1  0 0 }
 181         rbheel = \script { "bheel" 0 0 1 0 0 }
 182         lbtoe = \script { "btoe" 0 0 -1 0 0 }
 183         rbtoe = \script { "btoe" 0 0 1 0 0 }
 184         lfheel = \script { "fheel" 0 0 -1  0 0 }
 185         rfheel = \script { "fheel" 0 0 1 0 0 }
 186         lftoe = \script { "ftoe" 0 0 -1 0 0 }
 187         rftoe = \script { "ftoe" 0 0 1 0 0 }
 188
 189         and also
 190
 191         portato= \script { "portato" 0 -1 0 1 0 }
 192 *** ly2dvi
 193 **** bottomnote for ly2dvi
 194 **** cf'able ly2dvi  tagline.
 195 **** deps for ly2dvi
 196 ** STUFF
 197 *** check out legal/(c) matters for scores.
 198 *** check out GCC signatures?
 199 *** Align_element::padding  ?
 200 *** uniformise property names...
 201 **** ydirection <-> yDirection
 202 **** rather allow '_' in identifiers first (i.e. junk ^ and _),
 203             and do y_direction?
 204 **** typo checks on property names?
 205 *** use streambufs and iostream
 206         to provide IO handling for TeX stream, mudela stream, data-file.
 207 *** seriously buffer TeX output (do profile of writing .5 mb TeX file.)
 208 *** strip EXEs before installing
 209 *** zip target for binary windows dist (JBR)
 210 *** junking \skip req in lyrics
 211 *** Language:
 212 **** \type -> \context ?
 213 **** \translator -> ?
 214 **** fix \partial
 215 **** \bla {} vs \bla ;
 216 **** mix engraver hacking with music ?
 217 **** \once\property  KEY = VAL
 218 **** \addtranslator, \removetranslator
 219 **** junk ^ and _ for scripts
 220 **** junk _ for lyrics.
 221 **** abstract grammar.
 222 *** percussion note heads
 223 *** mi2mu empty staffs.
 224 *** horizontal centering of dynamics
 225 *** gzip RH manpage
 226 *** stable make/config stuff
 227 *** $DEPENDENCIES_OUTPUT support
 228 *** Xdvi zooming ?! Try to understand GS garbage collection.
 229                 gs: Error: /undefined in draw_beam
 230                 gs: Operand stack:
 231 *** fix vertical alignment and stafflines
 232 *** GrandStaff needs more work -- I want a single word
 233         `harpsichord' to the left of the grandstaff, not one on each
 234         stave.  (Organ staff -- with separate pedal -- but common
 235         properties may be something to think about.  Of course for
 236         organ you want to be able to give stop indications on the way
 237         through, so the \property Voice.Instrument would be a stop,
 238         and \property GrandStaff.instrument would be PipeOrgan...)
 239 *** revise the Score_priority_align_engraver concept.  It sucks.
 240 *** make new VoiceOne, VoiceTwo, VoiceThree contexts with
 241 ydirection and hshift preset
 242 *** *.yo: fix pod manpage layout legacy
 243 *** text-items clash with stems/beams
 244 *** --include, -I option for ly2dvi (pass on to lily)
 245 *** fix placement of beam-less abbrev
 246 *** \meter 3/4;
 247         <{\voiceone cis4. cis8 cis4 | cis4 cis cis | r1 }
 248          {\voicetwo cis,4 r r | r2. | r1 }> |
 249         }
 250 *** try to use template<Type> iso MACRO(Type)
 251 **** NEWS: ... Musical_pitch (analogous to Duration and Rhythmic_req)
 252           think about, analogous to pitch:
 253            * { a4 a16 } c <-- duration of c?
 254            * < a4 b8 > c <-- duration of c?
 255 *** \tempo 4. = 90;
 256 *** fix audio-items (don't use (input) requests, but copy data)
 257 *** make sure all ex's have a mudela-version
 258 *** do rest-collisions for Multi_measure_rests as well.
 259 *** split error/warning in error/warning/non_fatal_error
 260 *** add a Duration_convert member to Duration_iter to set parameters.
 261         Junk global duration settings.
 262 *** minimum length second part broken tie
 263 *** en-,discouraged linebreaking:
 264 **** handle DISALLOW < penalty > FORCE
 265 **** discourage breaking of slurs
 266 *** fix variable define/lookup parser global<->paper
 267 *** fix title/instrument placements; see input/test/title.ly
 268 *** <\voiceone c4. \voicetwo c4>
 269 *** add full cello suites to web site (kom op, Maarten!)
 270 *** Rethink Time_description
 271           * \cadenza , \meter, \grouping should all be \properties
 272 *** rename
 273 **** measure -> bar
 274 **** abbrev -> tremolo
 275 **** abbreviation-beam -> (measured/unmeasured) tremolo
 276 **** partial -> anacrouse
 277 *** shared lib
 278 *** robustify Beam (in case of no stems, 32nd notes)
 279 *** decentralised spring factory
 280 *** move paper vars into engraver properties
 281 *** check for groff / troff/ nroff et
 282 *** more intelligent file searching
 283 *** make LilyPond RPM fully relocatable
 284 *** disable spaces in TeX stuff
 285 *** handle ^C for tmp/file creation.
 286 *** dots & rest collisions.
 287 *** documentation
 288 **** introduction?
 289 **** info?
 290 **** LaTeX?
 291 **** more manpages?
 292 *** versioning for Feta
 293 *** the warning about the negative slur/tie length appears twice
 294         which is irritating.
 295 *** The `3' in the meter key is a one or two pixels too thin (at 600dpi)
 296         in the middle:
 297 *** the bracket is ugly (wings are too parabolic, should be more circular)
 298 *** better hshift (dots, distance, head dependent)
 299         * clefs (AG): The "8" should appear closer to the actual clef,
 300           touching it.
 301 *** put errorlevel in Input class
 302 *** junk nesting slurs
 303 *** integrate midi-elts from mi2mu and lily?
 304 ** 3RD PARTY BUGS
 305 *** GNU diff 2.7: diff -rN does not see a new directory with empty file
 306 *** glibc 2.0:
 307           f = fopen ("/dev/null", "r")
 308           assert (feof (f))
 309 ** 3RD PARTY PROJECTS:
 310 *** make GCC warn about ctor that leaves member vars  uninitialised.
 311 *** GNU patch
 312 **** 'double-fix' mode: ignore identical fix, rather than suggest
 313             to revert patch direction when (more or less? exactly) the same
 314             thing is fixed
 315 ** PROJECTS
 316 *** Scripts:
 317 **** fix position of bar number
 318 **** stack scripts in chords:
 319           % fingering:        footing:
 320             < a-4 c-2 g-1 >   < c-\ltoe e-\lheel >
 321 **** script-spacing
 322 **** slur parts as a script
 323 **** stack parameterised scripts for fingering and footing:
 324
 325 *** convert-mudela:
 326 **** automatically add  a \version if not present.
 327 **** better parsing
 328 **** make smarter
 329 **** convert-mudela -e empty.ly
 330
 331 *** emacs mudela-mode
 332 ****  should handle block comments too.
 333 ****  handle lexer modes (\header, \melodic, \lyric) etc.
 334 ****  indentation
 335 ****  notenames?
 336 ****  fontlock: \melodic \melodic
 337
 338 *** use properties for:
 339 **** plet?
 340 **** Staff_sym size
 341 **** default tempo.
 342 **** font size
 343 **** bartypes (get rid of derived Span_bar_engravers)
 344 **** cadenza mode?
 345
 346 *** page handling:
 347 **** PS output
 348 **** optimal pagebreaking.
 349
 350 *** Unicode support? -> man 7 unicode
 351 **** 16 bit Strings
 352 **** -u switch
 353 **** detect of 16/8 bit files
 354 **** examples to go with it.
 355
 356 *** Spring_spacer:
 357 **** write a faster Spring_spacer (without matrices if possible)
 358 **** relate energybound to linelen unitspace fontsize etc.
 359 **** used fixed point fp?
 360
 361 *** \header
 362 **** output header info to MIDI too.
 363
 364 *** a musical dictionary. See Documentation/vocabulary-*, other
 365         languages:
 366 **** explanations
 367 **** italian
 368 **** german
 369 **** dutch
 370 **** swedish
 371          .. ?
 372
 373 *** chords
 374 **** guitar chords (fret diagrams)
 375 **** other chord name styles (american(?) style)
 376 **** basso continuo
 377 **** MIDI output?
 378
 379 *** Debug logs:
 380 **** derive lily_stream, Dstream, texstream from ostream?
 381 **** indentable stream as baseclass for TeX stream, lily stream, Dstream.
 382 **** use dstream feature in mi2mu
 383 **** integrate IO checking into stream class
 384
 385 *** input converters
 386 **** NIFF?
 387 **** ABC?
 388 **** SMDL?
 389
 390 *** add to MIDI output:
 391 **** tempo change
 392 **** ornaments (and trills?)
 393 **** repeat/volta
 394 **** slurs
 395 **** accents
 396 **** dynamics
 397 **** account for rhythmic position in measure
 398 **** etc.
 399
 400 *** grace notes
 401 **** make separate class for Grace_*_engravers
 402         (which is at Voice_gravs level)
 403 **** make encapsulated spacing problems.
 404
 405 *** accidentals per Voice_group
 406
 407 *** Output class, handles : (smallish)
 408 **** help text /(c) notice?
 409 **** version line
 410 **** warning /errors/progress
 411 **** abort on error/warning; exit status
 412 **** quiet/ignore-version options
 413 **** logfile output
 414
 415 *** elaborate Staff_side baseclass:
 416 **** scripts
 417 **** text
 418 **** slur start/end
 419
 420 *** PS
 421 **** speed up PS code.
 422 **** PS lines to .eps files
 423 **** write custom prolog
 424
 425 *** Output an output format independent (ofi) typeset file; and
 426           make ofi2 TeX, MusiXTex, Display PostScript, PostScript,
 427           Ascii... interpreters. (difficult)
 428
 429 **** NIFF ?
 430 **** Common Music Notation
 431 **** PostScript output (esp. Beams, Slurs, etc)
 432 **** Move all Score_elems, into libmutype.a
 433 **** SGML
 434
 435 *** Documentation
 436 **** Doc (C) stuff of sheet music
 437 **** a better format?  SGML?  TeX?  Info?
 438 **** a better tutorial
 439
 440 *** more spanners (smallish)
 441 **** Glissando
 442 **** trill
 443
 444 *** Rewrite Stem, Beam and Rhythmic_grouping (hairy)
 445 **** [c8. c32 c32]
 446  **** doc on Rhythmic_grouping
 447 **** general shaving on Beam and Stem
 448 **** use plet grouping
 449 **** separate visual from rhythmic info even more
 450 **** beams over bars
 451
 452 *** lines:
 453 **** Ledger lines, should be separate item: Ledger_lines, Ledger_lines
 454 **** set different line sizes / thicknesses
 455 **** beam stem showthrough, inter beam sizes (french vs german style)
 456
 457 *** Collisions
 458 **** left/right note balls should be handled by Collision:
 459         < \multi 2; { \stem 1; <b c> } { <f as b> } >
 460
 461 *** Keys:
 462 **** merge key{item} & localkey{item}?
 463 **** spacing, national styles?
 464
 465 *** Support for TAB
 466 **** redo Notehead to allow digits as heads
 467 **** add a \tablature {} lexer mode for easy entering
 468
 469 *** should adjust stemlength for flag number.
 470
 471 *** breaking:
 472 **** caching breakpoints
 473 **** saving them
 474 **** specify number of lines
 475 ** INPUTLANGUAGE
 476
 477 *** c4 4 4 4 for c4 c4 c4 c4?
 478 *** neatly (and readably) expressing concurrent
 479         voices
 480 *** <c f a>4 ?
 481 *** Viola mode?
 482
 483                 @c c g e g
 484         for
 485                 c g es g,
 486
 487                 @A c g e g
 488         for
 489                 cis gis e gis
 490 *** relative mode for pitch entering
 491 *** configure pitch_byte
 492 *** rest name configurable
 493
 494
 495 ** SMALLISH PROJECTS
 496
 497 *** limit memory usage; the full coriolan takes up too much resources.
 498
 499 *** fix confusing naming in Engraver vs Engraver_group_engraver (context)
 500
 501 *** progress when creating MIDI elts.
 502
 503 *** A range for context errors (eg. mark both { and }. )
 504
 505 *** lyric in staff  (sharpsharp in staff, text below)
 506
 507 *** half sharps/flats
 508
 509 *** write Dynamic_line (to group dynamics horizontally)
 510
 511 *** use Real for all y positions.
 512
 513 *** half-sharps, half-flats
 514
 515 *** adaptive accidental spacing.
 516
 517 *** handle EOF graciously in error messages.
 518
 519 *** declare notenametab?
 520
 521 *** midi esp.: use I32 iso int where 32 bits are needed (or assumed...)
 522
 523 *** stafftypes: voice names/ instrument names.
 524
 525 *** lily \tempo
 526
 527 *** C meter iso 4/4, idem for alla breve, etc.
 528
 529 *** textspanner: center position
 530
 531         *   % toe to bheel   four to five
 532             %   ^_u            4_5
 533             %     -
 534             %  --|x--         --|x--
 535             %  --|---         --|---
 536             %  --|---         --|---
 537           (where "to" is a tiny bow)
 538
 539 *** auxilliary file for caching info.
 540
 541 *** Text_crescendo
 542
 543 *** clean solution for staffsize in items.
 544
 545 *** revise calcideal
 546 ** IDEAS
 547 *** Output data structures of Mudela in XML/SGML.
 548 *** create libmudela, or liblily_frontend
 549 *** move MIDI stuff (including Quantization) to a ANSI C libmidi library.
 550 *** Spacing_request for manually adjusting spacing
 551 *** caching breakpoints
 552 *** used fixedpoint arithmetic for min. energy.
 553 *** move towards incremental algorithms.
 554 *** far fetched language ideas
 555 **** design meta-language like TeX and Metafont
 556 **** programming/macros input
 557 *** versioning stuff (cvt mudela, mudela, etc.)
 558 *** Klavarskribo?
 559 *** dynamic loading of engravers?
 560 ** SMOBS
 561 Han-Wen Nienhuys <hanwen@cs.uu.nl> writes:
 562
 563 > mcmanus@IDT.NET writes:
 564 > > > I want different C++ objects (with scheme embedded) to be linked by
 565 > > > C++ pointers.  I want to access these other objects from the Scheme
 566 > > > code, and I want access to these pointers from C++.
 567 > >
 568 > > You can do this with a  combination of smob's and primitive functions,
 569 > > though it may not be  be exactly what you wanted.   You would have one
 570 > > smob  for each class in  your application, and then  you would write a
 571 > > primitive function that would return the objects  that are linked to a
 572 > > base object.
 573 >
 574 > And the smob and the C++ class are interlinked?  Like
 575 >
 576 >       class Foo_class {
 577 >               Foo_smob *smob_ptr_;
 578 >       }
 579 >
 580 >       struct Foo_smob {
 581 >               Foo_class *class_ptr_
 582 >       }
 583
 584 Usually you can get away without having this interlinked structure.
 585 One piece of information you need when exporting objects to scheme is
 586 the smob tag for your class.  You might store this value (a long) into
 587 a class static variable, or a file static variable.  I'll use a class
 588 static variable in this example.
 589
 590 I typically use code that works like this (untested code ahead):
 591
 592 class Foo_class {
 593     static long *Foo_smob_tag;
 594     SCM obj; // representation as a scheme object, description comes later
 595 }
 596
 597 // call this once on startup
 598 void init_Foo_class {
 599     static scm_smobfuns type_rec;
 600
 601     type_rec.mark = foo_mark;
 602     type_rec.free = foo_free;
 603     type_rec.print = foo_display;
 604     type_rec.equalp = 0;
 605     Foo_class::Foo_smob_tag = new int(scm_new_smob(type_rec));
 606 }
 607
 608 When you want to export an object to scheme, you put a pointer to the
 609 object itself in the cdr of the cell, and the tag in the car of the
 610 cell.  The code looks like this:
 611
 612 // Is this a Foo?
 613 static int
 614 foo_p(SCM obj)
 615 {
 616     return(SCM_NIMP(obj) && SCM_CAR(obj) == Foo_class::Foo_smob_tag);
 617 }
 618
 619 // given a Scheme representation, return, a C++ representation
 620 static Foo_class *
 621 foo_unbox(SCM obj)
 622 {
 623     return((Foo_class*)SCM_CDR(obj));
 624 }
 625
 626 // the SCM representation of the object is stored inside itself
 627 // this will become useful when destructor gets called
 628 static SCM
 629 foo_box(Foo_class *foo)
 630 {
 631     SCM_DEFER_INTS;
 632     SCM_NEWCELL(foo->obj);
 633     SCM_SETCAR(foo->obj, Foo_class::Foo_smob_tag);
 634     SCM_SETCDR(foo->obj, (SCM)foo);
 635     SCM_ALLOW_INTS;
 636     return foo->obj;
 637 }
 638
 639 > C++ determines life time, so what is the strategy?
 640
 641 What happens now when the destructor gets called?  Lets set the cdr to
 642 NULL, and then check for that in all of the primitive functions that
 643 use your smob.  We'll call this notion 'live'; a scheme object is
 644 'live' if the C++ representation still exists, it's dead if the C++
 645 object is gone.  You can still have references to dead objects in
 646 scheme code; it's just an error to use them.  This idea is stolen from
 647 Emacs's handling of buffers ('buffer-live-p' and friends).
 648
 649 Add another function, foo_live_p:
 650
 651 static int
 652 foo_live_p(SCM obj)
 653 {
 654     return(foo_p(obj) && SCM_CDR(obj) != NULL);
 655 }
 656
 657 In you destructor, you need to do:
 658
 659 ~Foo_class()
 660 {
 661     SCM_CDR(this->obj, NULL);
 662 }
 663
 664 When writing new primitives, now just check foo_live_p().
 665
 666 I hope the above helps,
 667
 668 -russ
 669
 670
 671 --
 672 "Even if you are on the right track, you'll get run over
 673 if you just sit there."
 674              --Will Rogers (1879-1935)
 675
 676 > I am still muddling along with integrating GUILE in LilyPond, and I
 677 > have a question.  I want to replace an existing C++ implementation of
 678 > identifier tables by GUILE's code.  I've managed to replace
 679 >
 680 >       Hash_table<String,Identifier*>
 681 >
 682 > by
 683 >
 684 >       Hash_table<SCM, Identifier*>
 685 >
 686 > and use interning and GUILE symbols for doing the identifier lookup.
 687 > But I'd like to use GUILE's hash tables as well, and that's were my
 688 > question comes in: is there an interface that allows me to iterate
 689 > through the entries of a GUILE hash table?
 690
 691 I use the following, which should definitely be provided somewhere
 692 in guile, but isn't, AFAIK:
 693
 694 (define (hash-table-for-each fn ht)
 695   (do ((i 0 (+ 1 i)))
 696       ((= i (vector-length ht)))
 697     (do ((alist (vector-ref ht i) (cdr alist)))
 698         ((null? alist) #t)
 699       (fn (car (car alist)) (cdr (car alist))))))
 700
 701 (define (hash-table-map fn ht)
 702   (do ((i 0 (+ 1 i))
 703        (ret-ls '()))
 704       ((= i (vector-length ht)) (reverse ret-ls))
 705     (do ((alist (vector-ref ht i) (cdr alist)))
 706         ((null? alist) #t)
 707       (set! ret-ls (cons (fn (car (car alist)) (cdr (car alist))) ret-ls)))))
 708
 709 If you want a C version, you can run the above code through hobbit, or
 710 tranlate it to C by hand.
 711
 712 -russ
 713
 714
 715 --
 716 "Whenever you find yourself on the side of the majority, it is time to
 717 pause and reflect."
 718              -- Mark Twain
 719
 720
 721