projects
/
lml.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5213: *** empty log message ***
[lml.git]
/
downloads.lisp
diff --git
a/downloads.lisp
b/downloads.lisp
index 36f599c2e612e361d1f411dadb193fa4f10c5e4f..bd260e773315b762a63ba095bd5045b07c8a1ebe 100644
(file)
--- a/
downloads.lisp
+++ b/
downloads.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
-;;;; $Id: downloads.lisp,v 1.
9 2003/06/06 21:59:30
kevin Exp $
+;;;; $Id: downloads.lisp,v 1.
11 2003/06/15 13:49:42
kevin Exp $
;;;;
;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-16,7
+16,7
@@
;;;; (http://www.gnu.org/licenses/gpl.html)
;;;; *************************************************************************
;;;; (http://www.gnu.org/licenses/gpl.html)
;;;; *************************************************************************
-(in-package lml)
+(in-package
#:
lml)
(defvar *dl-base*)
(defvar *dl-base*)
@@
-80,14
+80,24
@@
(when (>= (length name) len-base-name)
(string= name *base-name* :end1 len-base-name :end2 len-base-name))))
(when (>= (length name) len-base-name)
(string= name *base-name* :end1 len-base-name :end2 len-base-name))))
+(defun match-base-name-latest? (name)
+ (let* ((latest (concatenate 'string *base-name* "-latest"))
+ (len-latest (length latest)))
+ (when (>= (length name) len-latest)
+ (string= name latest :end1 len-latest :end2 len-latest))))
+
(defun filter-against-base (files)
(delete-if-not #'(lambda (f) (match-base-name? (pathname-name f))) files))
(defun filter-against-base (files)
(delete-if-not #'(lambda (f) (match-base-name? (pathname-name f))) files))
+(defun filter-latest (files)
+ (delete-if #'(lambda (f) (match-base-name-latest? (pathname-name f))) files))
+
(defun sort-pathnames (list)
(sort list #'(lambda (a b) (string< (namestring a) (namestring b)))))
(defun display-one-section (title pat)
(defun sort-pathnames (list)
(sort list #'(lambda (a b) (string< (namestring a) (namestring b)))))
(defun display-one-section (title pat)
- (let ((files (sort-pathnames (filter-against-base (directory pat)))))
+ (let ((files (sort-pathnames (filter-latest
+ (filter-against-base (directory pat))))))
(when files
(print-sect-title title)
(lml-princ "<div style=\"padding-left: 20pt;\">")
(when files
(print-sect-title title)
(lml-princ "<div style=\"padding-left: 20pt;\">")