[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
string parsing/preparation for latex
From: |
David Pirotte |
Subject: |
string parsing/preparation for latex |
Date: |
Mon, 7 Nov 2005 14:53:04 +0100 |
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)
))
(texu/prep-str-for-tex ";; % \ { } ~ $ & # ^ _")
";; \\% \\{ \\} \\~ \\$ \\& \\# \\^ \\_"
[the \ disapeared rather then being escaped]
- string parsing/preparation for latex,
David Pirotte <=