Re: [Denemo-devel] Scheme script debugging

[Richard Shann]

On Tue, 2013-05-21 at 20:57 +0200, Andreas Schneider wrote:
> Hi,
> 
> is there an easy way to debug a scheme script? I suppose the scheme
> script editor has no built-in debugger? (Hey, one can dream ...) I have
> written a script that does not work, and I don't understand why.

No, you are seeing the scheme error messages in the console? They are a
little difficult to decipher, and you can't tell which line the error
comes on always. You can put in printing calls like this

(disp "The tag is " tag " ok???")

which tells you how you are doing.

In this case you have the wrong name for the directive: "movement" is
movementcontrol. (These names are very primitive in origin, what would
be nice is to wrap them all up in nice regular, understandable
names...).
More below ...

> 
> ;;;MarkupAtEnd
> (let ((tag "MarkupAtEnd"))
>       (d-DirectivePut-movement-override tag DENEMO_OVERRIDE_GRAPHIC)


d-DirectivePut-movementcontrol-override is what you meant.

>       (d-DirectivePut-movement-display tag "MarkupAtEnd")
>       (if (d-Directive-movement? tag)
>               (let themarkup (d-DirectiveGet-movement-postfix tag))
>               (let themarkup (""))

I don't think these (let themarkup ....
are right (well perhaps...) I think you may get a new local variable
each time, lasting only to the end of the (let....)
I would start

(let ((tag "MarkupAtEnd")(themarkup #f)) ...


and then (set! themarkup ....
in the body.

HTH

Richard


>       )
>       (set! themarkup (d-GetUserInput (_ "MarkupAtEnd") (_ "Edit markup:")
> themarkup))
>       (d-DirectivePut-movement-postfix tag themarkup)
>       (d-DirectivePut-movement-override tag DENEMO_OVERRIDE_AFFIX)
>       (d-SetSaved #f)
> )
> 
> Thanks
> 
> Andreas
> 
> _______________________________________________
> Denemo-devel mailing list
> address@hidden
> https://lists.gnu.org/mailman/listinfo/denemo-devel