Subject: Re: Case independence and (case) From: Chris Maden <crism@xxxxxxx> Date: Fri, 17 Apr 1998 17:13:24 -0400 |
[Reynolds, Gregg] > How about something like > > (define quad-alist > (list > (cons 'default 'start) > (cons (norm "left") 'start) > (cons (norm "center") 'center) > ...etc... > )) > > (let ((myquad (cdr (assoc (attribute-string (norm "align") quad-list) > (current-node))))) > (if myquad > myquad > (cdr (assoc 'default quad-alist)))) > > Haven't tested it, but I'm just mad for alists. Would this be > horribly inefficient? (assoc) isn't part of dsssl-o, and Jade 1.1's documentation doesn't list it among the supported additional procedures. Otherwise yes, it would be perfect for what I'm trying to do in this case. -Chris -- <!NOTATION SGML.Geek PUBLIC "-//Anonymous//NOTATION SGML Geek//EN"> <!ENTITY crism PUBLIC "-//O'Reilly//NONSGML Christopher R. Maden//EN" "<URL>http://www.oreilly.com/people/staff/crism/ <TEL>+1.617.499.7487 <USMAIL>90 Sherman Street, Cambridge, MA 02140 USA" NDATA SGML.Geek> DSSSList info and archive: http://www.mulberrytech.com/dsssl/dssslist
Current Thread |
---|
|
<- Previous | Index | Next -> |
---|---|---|
RE: Case independence and (case), Reynolds, Gregg | Thread | Re: Case independence and (case), Russell Steven Shawn |
RE: Case independence and (case), Reynolds, Gregg | Date | DSSSL design choices - questions, Reynolds, Gregg |
Month |