Re: string parsing/preparation for latex

[Jose Roberto B. de A. Monteiro]

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
> address@hidden
> http://lists.gnu.org/mailman/listinfo/guile-user