[Denemo-devel] regexps again (sigh)

[Richard Shann]

The regexp in the following script doesn't work (it is trying to find  
 \mark "xxxx"
but does not match.
Anyone sufficiently up to speed on this to put me out of my misery?
Richard
 ;;; Mark
(let ((themark #f)  (current "") (thematch #f))
(display "Start")
  (set! current (d-DirectiveGet-standalone-postfix "Mark"))
  (if current
      (display "good")
      (set! current "your text"))
  (set! thematch (string-match (string-append " \\mark " "\"([^\"]*)\"")
current))
  (display thematch);;; displays #f because it fails
  (if thematch
      (set! current (match:substring thematch 1)))

   (set! themark (d-GetUserInput "Give string" "give your text"
current))
   (display themark)
   (if themark
        (begin
        (d-Directive-standalone "Mark")
        (d-DirectivePut-standalone-postfix "Mark"  (string-append " \\mark \""
themark "\""))
        (d-RefreshDisplay))))