On Mon, 07 Nov 2005 13:49:01 -0200
"Jose Roberto B. de A. Monteiro" <[EMAIL PROTECTED]> wrote:
> Em Seg, 2005-11-07 às 14:53 +0100, David Pirotte escreveu:
> > does anyone understands why this does not return the expected result
> >
> > (define *texu/reserved-characters*
> > ;; % \ { } ~ $ & # ^ _
> > '(
> > #\% ;; comments
> > #\\ ;; command(follows by a space)
> > #\{ ;; definition of treatment block(main_arg)
> > #\}
> > #\~ ;; indivisible space
> > #\$ ;; mathematical mode
> > #\& ;; tabulation ...
> > #\# ;; symbol of parameter zone
> > #\^ ;; exponent
> > #\_ ;; index
> > )
> > )
> >
> > (define (texu/prep-str-for-tex str)
> > (let ((str-lst (string->list str))
> > (result (list)))
> > (for-each (lambda (chr)
> > (if (member chr *texu/reserved-characters*)
> > (set! result (cons chr (cons #\\ result)))
> > (set! result (cons chr result))))
> > str-lst)
> > (reverse-list->string result)
> > ))
>
> Because you should have this string: ";; % \\ { } ~ $ & # ^ _", with two
> backslashes instead of one... the same for "
but that is not possible, because the string (here simulated) is a user typed
in string
(through a gtk interface programmed in guile-gnome) upon which I have no
control.
I precisly wish to parse it to create a .tex file later processed by latex ...
_______________________________________________
Guile-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/guile-user
