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 "
> (texu/prep-str-for-tex ";; % \ { } ~ $ & # ^ _")
> ";; \\% \\{ \\} \\~ \\$ \\& \\# \\^ \\_"
>
> [the \ disapeared rather then being escaped]
>
>
>
>
> _______________________________________________
> Guile-user mailing list
> Guile-user@gnu.org
> http://lists.gnu.org/mailman/listinfo/guile-user
_______________________________________________
Guile-user mailing list
Guile-user@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-user
