/[meta-cvs]/meta-cvs/F-C232DEE072E25B4F4683B91342CEC065
ViewVC logotype

Diff of /meta-cvs/F-C232DEE072E25B4F4683B91342CEC065

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

revision 1.10 by kaz, Sat Feb 16 19:41:43 2002 UTC revision 1.11 by kaz, Mon Feb 18 05:50:42 2002 UTC
# Line 11  Line 11 
11  (provide "import")  (provide "import")
12    
13  (defconstant *types-comments*  (defconstant *types-comments*
14  ";;; These file type suffixes exist in the fileset you are trying to import.  ";;; For each file suffix that appears in the imported files, you can specify
15  ;;; By editing the form below, you can specify the CVS keyword substitution  ;;; the CVS keyword expansion mode, or you can specify that the files having
16  ;;; mode for each file type. If there are any binary files, it is strongly  ;;; that suffix should not be imported. This is done by editing the list below.
17  ;;; recommended that you identify them and set their mode to :binary.  ;;; Here are the symbols you can specify next to each suffix.
 ;;; These are the symbols you can specify:  
18  ;;;  ;;;
19  ;;;   :default    Expand keyword using default form. (CVS -kkv)  ;;;   :default    Expand keyword using default form. (CVS -kkv)
 ;;;  
 ;;;               Example:  $Revision$ -> $ Revision: 1.2 $  
 ;;;  
20  ;;;   :name-only  Expand only the keyword name on checkout. (CVS -kk)  ;;;   :name-only  Expand only the keyword name on checkout. (CVS -kk)
21  ;;;  ;;;   :keep-old   Do not expand keywords, and keep any CVS or RCS keywords
 ;;;               Example:  $Revision$ -> $Revision$  
 ;;;  
 ;;;   :keep-old   Do not expand keywords, and keep any CVS/RCS keywords  
22  ;;;               that are already present in the files. (CVS -ko)  ;;;               that are already present in the files. (CVS -ko)
 ;;;  
 ;;;               Example:  $Revision$ -> $Revision$  
 ;;;  
23  ;;;   :binary     Like :keep-old except that the file is treated as  ;;;   :binary     Like :keep-old except that the file is treated as
24  ;;;               binary. Not only are keywords not expanded, but line ending  ;;;               binary. Not only are keywords not expanded, but line ending
25  ;;;               conversions are not performed either. (CVS -kb)  ;;;               conversions are not performed either. (CVS -kb)
26  ;;;  ;;;   :value-only Expand only the keyword value, no dollar signs. (CVS -kv)
 ;;;   :value-only Expand only the keyword value. (CVS -kv)  
 ;;;  
 ;;;               Example: $Revision$ -> 1.2  
 ;;;  
27  ;;;   :ignore     Do not import or add these files.  ;;;   :ignore     Do not import or add these files.
28  ")  ")
29    
# Line 77  Line 63 
63                (let ((edited-types (types-read *mcvs-types*)))                (let ((edited-types (types-read *mcvs-types*)))
64                  (types-sanity-check edited-types)                  (types-sanity-check edited-types)
65                  (types-write edited-types *mcvs-types*)                  (types-write edited-types *mcvs-types*)
66                  (setf types edited-types)))                  (setf types edited-types))
67                  (return))
68              (retry ()              (retry ()
69                :report "Correct file type treatment, try again.")                :report "Correct file type treatment, try again.")
70              (restore-types ()              (restore-types ()
71                :report "Revert to original file treatment and edit again."                :report "Revert to original file treatment and edit again."
72                (types-write types *mcvs-types* :comments *types-comments*)))                (types-write types *mcvs-types* :comments *types-comments*))))
           (return))  
73    
74          ;; User has edited, so now we must honor all of the :IGNORE          ;; User has edited, so now we must honor all of the :IGNORE
75          ;; entries in the types, and remove the matching files from the          ;; entries in the types, and remove the matching files from the

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.5