Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl-page
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22547

Modified Files:
	sbcl.css platform-support.lisp 
Log Message:
Display version numbers in the platform support / download table (thanks to Kevin Reid)

Index: sbcl.css
===================================================================
RCS file: /cvsroot/sbcl/sbcl-page/sbcl.css,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- sbcl.css	11 Nov 2004 13:22:12 -0000	1.3
+++ sbcl.css	29 Jan 2006 21:19:47 -0000	1.4
@@ -36,17 +36,21 @@
 /* for the platform-table page */
 table.port-table { border: 1pt solid black; border-collapse: collapse; background-color: white; }
 table.port-table th { border: 1pt solid #999; background-color: #DED; font-size: 100%; font-weight: bold; }
-table.port-table td { height: 2em; width: 2em; }
+table.port-table td { height: 2.5em; min-width: 2.5em; vertical-align: middle; text-align: center; padding: 0; }
 .not-applicable { background-color: #F0F0F0; margin: 1pt; }
 .not-available { background-color: #A00; border: 1pt solid #999; }
 .in-progress { background-color: #DD2; border: 1pt solid #999; }
 .not-maintained { background-color: #555; border: 1pt solid #999; }
 .available { background-color: #00E000; border: 1pt solid #999; }
-.port-table a:hover { background-color: #0F0; cursor: hand; }
-.key-blob th { height: 2em; width: 2em; border: 1pt solid #999; }
+.port-table a:link, .port-table a:visited { display: block; text-decoration: underline; cursor: hand; font-size: .75em; }
+.port-table a:link { color: #000; }
+.port-table a:visited { color: #222; }
+.port-table a:visited:hover { background-color: #0F0; }
+.port-table a:link:hover { background-color: #0F0; }
+.key-blob th { height: 2.5em; width: 2.5em; border: 1pt solid #999; }
 .key th { font-size: 100%; font-weight: bold; width: 2em; border-right: 1pt dotted #999; text-align: left; }
 .processor-header th { text-align: center; font-size: 100%; }
-.big-height { height: 2em; width: 2em; padding: 0pt; margin: 0pt; background-color: inherit; }
+.big-height { min-width: 2.5em; padding: 1em 0; margin: 1px; background-color: inherit; }
 .key a { cursor: hand; }
 .system-header th { text-align: left; font-size: 100%; padding-right: 5pt; }
 .key td { padding-left: 1em; padding-right: 1ex; }

Index: platform-support.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl-page/platform-support.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- platform-support.lisp	11 Dec 2005 17:48:55 -0000	1.6
+++ platform-support.lisp	29 Jan 2006 21:19:47 -0000	1.7
@@ -35,18 +35,24 @@
             :not-available
             :not-applicable))))
 
-(defun table-cell-for-status (status &key (elt :|td|) (link nil))
+(defun table-cell-for-status (status &key (elt :|td|) (link nil) version)
   `((,elt :|class| ,(second (assoc status *statuses*)))
     ((,(if link :|a| :|span|) ,@(if link `(:|href| ,link)))
      ((:|div| :|class| "big-height")
       ((:|span| :|class| "hide-me")
-       ,(fourth (assoc status *statuses*)))))))
+       ,(fourth (assoc status *statuses*)))
+      " "
+      ,(or version "")))))
 
 (defun port-link (proc system)
   (fourth (find-if #'(lambda (e)
                        (and (eq (first e) proc)
                             (eq (second e) system))) *ports*)))
 
+(defun port-version (proc system)
+  ;; Now we have two problems.
+  (the string (cl-ppcre:scan-to-strings "\\d+(\\.\\d+)+" (port-link proc system))))
+
 (defun port-xml ()
   `((:|table| :|class| "port-table")
     ((:|tr| :|class| "processor-header") (:|th|)
@@ -64,7 +70,10 @@
                                                     (first system))
                                        :link
                                        (port-link (car proc)
-                                                  (first system))))))))
+                                                  (first system))
+                                       :version
+                                       (port-version (car proc)
+                                                     (first system))))))))
 
 (defun port-page ()
   `((:|p|