/[meta-cvs]/meta-cvs/F-94BF952D29F3DC3FFD457EFFCE570DB2
ViewVC logotype

Diff of /meta-cvs/F-94BF952D29F3DC3FFD457EFFCE570DB2

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9.2.3 by kaz, Thu Nov 21 06:13:48 2002 UTC revision 1.16 by kaz, Tue Nov 28 07:47:22 2006 UTC
# Line 2  Line 2 
2  ;;; which is distributed under the GNU license.  ;;; which is distributed under the GNU license.
3  ;;; Copyright 2002 Kaz Kylheku  ;;; Copyright 2002 Kaz Kylheku
4    
5  (require "mapping")  (in-package :meta-cvs)
 (require "system")  
 (require "print")  
 (require "seqfuncs")  
 (provide "types")  
6    
7  (eval-when (:compile-toplevel :load-toplevel :execute)  (eval-when (:compile-toplevel :load-toplevel :execute)
8    (defconstant *mcvs-types-name* "TYPES"))    (defconstant *types-file* "TYPES"))
9    
10  (eval-when (:compile-toplevel :load-toplevel :execute)  (eval-when (:compile-toplevel :load-toplevel :execute)
11    (defconstant *mcvs-types* #.(path-cat *mcvs-dir* *mcvs-types-name*))    (defconstant *types-path* #.(path-cat *admin-dir* *types-file*))
12    (defconstant *mcvs-new-types* #.(path-cat *mcvs-dir* "TYPES-NEW")))    (defconstant *types-new-path* #.(path-cat *admin-dir* "TYPES-NEW")))
13    
14  (defconstant *types-comments*  (defconstant *types-comments*
15  ";;; For each file suffix that appears in the file set, you can specify  ";;; For each file suffix that appears in the file set, you can specify
# Line 41  Line 37 
37  (defun types-write (types filename &key comments)  (defun types-write (types filename &key comments)
38    (when *dry-run-option*    (when *dry-run-option*
39      (chatter-debug "not writing to ~a because of -n global option.~%"      (chatter-debug "not writing to ~a because of -n global option.~%"
40                     *mcvs-types*)                     *types-path*)
41      (return-from types-write))      (return-from types-write))
42    (with-open-file (file filename :direction :output)    (with-open-file (file filename :direction :output)
43      (let ((sorted-types (sort (copy-list types)      (let ((sorted-types (sort (copy-list types)

Legend:
Removed from v.1.9.2.3  
changed lines
  Added in v.1.16

  ViewVC Help
Powered by ViewVC 1.1.5