| The Modular DocBook Stylesheets | ||
|---|---|---|
| Prev | DSSSL Library | Next |
(length-string-unit-part lenstr)
Given a length as a string, return the units part.
"100pt" returns "pt". "30" returns "". "in" returns "in".
Norman Walsh, <norm@berkshire.net>
(define (length-string-unit-part lenstr)
;; Returns the unit part of a length string
(let ((number-part (length-string-number-part lenstr))
(strlen (string-length lenstr)))
(if (equal? (string-length number-part) strlen)
""
(substring lenstr (string-length number-part) strlen))))| Prev | Home | Next |
| length-string-number-part | Up | list->string |
Copyright © 1997, 1998 Norman Walsh