The Modular DocBook Stylesheets | ||
---|---|---|
Prev | DSSSL Library | Next |
(measurement-to-length measure)
Given a string containing a measurement, return that measurement as a length.
"2.5cm" returns 2.5cm as a length. "3.4barleycorn" returns 6.8pi.
Norman Walsh, <norm@berkshire.net>
(define (measurement-to-length measure) ;; Convert a measurement to a length (let* ((pm (car (parse-measurement measure))) (pu (car (cdr (parse-measurement measure)))) (magnitude (if pm pm "1")) (units (if pu pu (if pm "pt" "default"))) (unitconv (assoc units unit-conversion-alist)) (factor (if unitconv (car (cdr unitconv)) 1pt))) (* (string->number magnitude) factor)))
Prev | Home | Next |
match-substitute-sosofo | Up | my-debug |
Copyright © 1997, 1998 Norman Walsh