235 |
|
|
236 |
;; Predicate: |
;; Predicate: |
237 |
|
|
|
(defun boolp (x) (or (eq t x) (null x))) |
|
238 |
(defun cvs-check-fileinfo (fi) |
(defun cvs-check-fileinfo (fi) |
239 |
"Check FI's conformance to some conventions." |
"Check FI's conformance to some conventions." |
240 |
(let ((check 'none) |
(let ((check 'none) |
246 |
(base-rev (cvs-fileinfo->base-rev fi)) |
(base-rev (cvs-fileinfo->base-rev fi)) |
247 |
(head-rev (cvs-fileinfo->head-rev fi)) |
(head-rev (cvs-fileinfo->head-rev fi)) |
248 |
(full-log (cvs-fileinfo->full-log fi))) |
(full-log (cvs-fileinfo->full-log fi))) |
249 |
(if (and (setq check 'marked) (boolp marked) |
(if (and (setq check 'marked) (memq marked '(t nil)) |
250 |
(setq check 'base-rev) (or (null base-rev) (stringp base-rev)) |
(setq check 'base-rev) (or (null base-rev) (stringp base-rev)) |
251 |
(setq check 'head-rev) (or (null head-rev) (stringp head-rev)) |
(setq check 'head-rev) (or (null head-rev) (stringp head-rev)) |
252 |
(setq check 'full-log) (stringp full-log) |
(setq check 'full-log) (stringp full-log) |