Re: string parsing/preparation for latex

["Jose Roberto B. de A. Monteiro" <betoes@sel.eesc.usp.br>]

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