/[meta-cvs]/meta-cvs/F-233AD6EEE14894A7303F09519A2AB734
ViewVC logotype

Diff of /meta-cvs/F-233AD6EEE14894A7303F09519A2AB734

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

revision 1.89 by kaz, Thu May 1 05:40:54 2003 UTC revision 1.90 by kaz, Mon Jul 7 04:06:06 2003 UTC
# Line 139  Line 139 
139  (define-option-constant *sync-to-cvs-options*)  (define-option-constant *sync-to-cvs-options*)
140  (define-option-constant *sync-from-cvs-options*)  (define-option-constant *sync-from-cvs-options*)
141    
142    (declaim (special *usage* *mcvs-command-table*))
143    
144  (defun mcvs-help (global-options command-options args)  (defun mcvs-help (global-options command-options args)
145    (declare (special *usage* *mcvs-command-table*)    (declare (ignore global-options command-options))
            (ignore global-options command-options))  
146    (cond    (cond
147      ((null args)      ((null args)
148        (terpri)        (terpri)
# Line 280  Commands: Line 281  Commands:
281    tag                Associate a symbolic name with file revisions to create    tag                Associate a symbolic name with file revisions to create
282                       an identifiable baseline.  By default, tags the                       an identifiable baseline.  By default, tags the
283                       revisions that were last synchronized with the                       revisions that were last synchronized with the
284                       directory. A branch is created using tag -b.                       directory. Note: tag -b creates a CVS branch,
285                         it won't be a Meta-CVS branch with managed merges.
286                         Consider the branch command instead!
287    log                Display log information for files.    log                Display log information for files.
288    status (stat)      Show current status of files.    status (stat)      Show current status of files.
289    annotate           Perform a detailed analysis of files, showing the    annotate           Perform a detailed analysis of files, showing the
# Line 330  Commands: Line 333  Commands:
333                       currently an experimental command that is known not                       currently an experimental command that is known not
334                       to work 100%.")                       to work 100%.")
335    
336    (defmacro with-open-file-ignore-errors ((var &rest open-args) &body forms)
337      `(let ((,var (ignore-errors (open ,@open-args))))
338         (unwind-protect
339           (progn ,@forms)
340           (when ,var (close ,var)))))
341    
342  (defun mcvs-execute (args)  (defun mcvs-execute (args)
343    (with-open-file (*interactive-error-io* (parse-posix-namestring    (with-open-file-ignore-errors (*interactive-error-io* (parse-posix-namestring
344                                              (unix-funcs:ctermid))                                                            (unix-funcs:ctermid))
345                                            :direction :io                                                          :direction :io
346                                            :if-does-not-exist nil)                                                          :if-does-not-exist nil)
347      (let ((*mcvs-error-treatment* (if *interactive-error-io*      (let ((*mcvs-error-treatment* (if *interactive-error-io*
348                                      :interactive                                      :interactive
349                                      :terminate)))                                      :terminate)))
350        (unless *interactive-error-io*        (unless *interactive-error-io*
351          (chatter-info "unable to open terminal device ~a ."          (chatter-info "unable to open terminal device ~a .~%"
352                        (unix-funcs:ctermid))                        (unix-funcs:ctermid))
353          (chatter-info "interactive error handling disabled."))          (chatter-info "interactive error handling disabled.~%"))
354        (handler-bind ((error #'mcvs-error-handler))        (handler-bind ((error #'mcvs-error-handler))
355          (multiple-value-bind (global-options global-args)          (multiple-value-bind (global-options global-args)
356                               (parse-opt args *global-options*)                               (parse-opt args *global-options*)

Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90

  ViewVC Help
Powered by ViewVC 1.1.5