| 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