/[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 by kaz, Sat Aug 31 20:53:13 2002 UTC revision 1.9.2.2 by kaz, Mon Nov 4 01:09:35 2002 UTC
# Line 38  Line 38 
38      (read file)))      (read file)))
39    
40  (defun types-write (types filename &key comments)  (defun types-write (types filename &key comments)
41      (when *dry-run-option*
42        (chatter-debug "not writing to ~a because of -n global option.~%"
43                       *mcvs-types*)
44        (return-from types-write))
45    (with-open-file (file filename :direction :output)    (with-open-file (file filename :direction :output)
46      (let ((sorted-types (sort (copy-list types)      (let ((sorted-types (sort (copy-list types)
47                                #'string-lessp :key #'first)))                                #'string-lessp :key #'first)))
# Line 115  Line 119 
119    (when types    (when types
120      (types-write types filename :comments *types-comments*)      (types-write types filename :comments *types-comments*)
121      (loop      (loop
122          (loop
123            (restart-case
124              (progn
125                (chatter-debug "Editing types.~%")
126                (unless (invoke-editor-on filename)
127                  (error "Failed to invoke text editor."))
128                (return))
129              (retry ()
130                :report "Try invoking editor again.")))
131        (restart-case        (restart-case
132          (progn          (let ((edited-types (types-read filename)))
133            (chatter-debug "Editing types.~%")            (types-sanity-check edited-types)
134            (invoke-editor-on filename)            (types-write edited-types filename)
135            (let ((edited-types (types-read filename)))            (return edited-types))
             (types-sanity-check edited-types)  
             (types-write edited-types filename)  
             (return edited-types)))  
136          (retry ()          (retry ()
137            :report "Correct file type treatment, try again.")            :report "Correct file type treatment, try again.")
138          (restore-types ()          (restore-types ()

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.2.2

  ViewVC Help
Powered by ViewVC 1.1.5