Re: [Denemo-devel] Scheme script debugging

[Andreas Schneider]

Following your hints (I didn't quite understand the part about the local
variables) I progressed to this version:

;;;MarkupAtEnd
(let ((tag "MarkupAtEnd")(themarkup #f))
        (d-DirectivePut-movementcontrol-override tag DENEMO_OVERRIDE_GRAPHIC)
        (d-DirectivePut-movementcontrol-display tag "MarkupAtEnd")
        (disp "checking previous markup ...")
        (if (d-Directive-movementcontrol? tag)
                ((let themarkup (d-DirectiveGet-movementcontrol-postfix 
tag))(disp
"previous markup:" themarkup)
                ((let themarkup (""))(disp "first call detected"))
        )
        (set! themarkup (d-GetUserInput (_ "MarkupAtEnd") (_ "Edit markup:")
themarkup))
        (disp themarkup)
        (d-DirectivePut-movementcontrol-postfix tag themarkup)
        (d-DirectivePut-movementcontrol-override tag DENEMO_OVERRIDE_AFFIX)
        (d-SetSaved #f)
)

There is still an error in lines 6 to 9 which prevents the script from
running, but I don't see what it is:

** (denemo:3105): WARNING **:
A script error for file/script
[...]
the throw arguments are

(scm_i_lreadparen #<unknown port>:14:2: end of file () #f)

** (denemo:3105): WARNING **:
The tag is

read-error

When I take those lines (6 to 9) out, it runs. A movement directive is
created, but the markup is put inside the movement after the layout
block, not directly after the movement (the "} %End of Movement" part in
the lilypond file) as I intended. No button is created (I remember I had
this (last) problem before, I will look into that when I got some sleep).

Andreas