/[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.34 by kaz, Tue Mar 12 19:25:33 2002 UTC revision 1.35 by kaz, Tue Mar 12 20:33:50 2002 UTC
# Line 20  Line 20 
20    
21  (defconstant *cvs-options*  (defconstant *cvs-options*
22   '("H" "help" "Q" "q" "r" "w" "l" "n" "t" "v" "f" "version"   '("H" "help" "Q" "q" "r" "w" "l" "n" "t" "v" "f" "version"
23     "nometa"))     "nometa" "error-continue" "error-terminate"))
24    
25  (defconstant *cvs-options-arg* '("T" "e" "d" "r" "z" "s"))  (defconstant *cvs-options-arg* '("T" "e" "d" "r" "z" "s"))
26    
# Line 84  Line 84 
84    
85  Global options:  Global options:
86    
87    -H --help        Print this help and terminate. If a command is specified,    -H --help          Print this help and terminate. If a command is specified,
88                     help specific to that command is printed instead.                       help specific to that command is printed instead.
89    -Q               Very quiet, generate output only for serious problems. (*)    -Q                 Very quiet, generate output only for serious problems. (*)
90    -q               Somewhat quiet, some informational messages suppresed. (*)    -q                 Somewhat quiet, some informational messages suppresed. (*)
91    -r               Make working files read-only. (@)    -r                 Make working files read-only. (@)
92    -w               Make new working files read-write (default). (@)    -w                 Make new working files read-write (default). (@)
93    -l               Do not log cvs command in command history, but execute    -l                 Do not log cvs command in command history, but execute
94                     it anyway. (@)                       it anyway. (@)
95    -t               Trace CVS execution. (@)    -t                 Trace CVS execution. (@)
96    -v --version     Display version information and terminate.    -v --version       Display version information and terminate.
97    -f               CVS not to read ~/.cvsrc file. (@)    -f                 CVS not to read ~/.cvsrc file. (@)
98    --nometa         Do not add Meta-CVS metafiles to the set of    --nometa           Do not add Meta-CVS metafiles to the set of
99                     files to commit, diff, stat, log or annotate.                       files to commit, diff, stat, log or annotate.
100    -T tempdir       Place temporary files in tempdir. (@)    --error-continue   Instead of interactive error handling, automatically
101    -e editor        Edit messages with editor. (*)                       continue all continuable errors.
102    -d root          Specify CVSROOT. (@)    --error-terminate  Terminate without cleanup when an error happens instead
103    -z gzip-level    Specify compression level. (@)                       of interactive error handling (use with care).
104      -T tempdir         Place temporary files in tempdir. (@)
105      -e editor          Edit messages with editor. (*)
106      -d root            Specify CVSROOT. (@)
107      -z gzip-level      Specify compression level. (@)
108    
109    Notes: (*) option processed by Meta-CVS and passed to CVS too.    Notes: (*) option processed by Meta-CVS and passed to CVS too.
110           (@) option merely passed to CVS.           (@) option merely passed to CVS.
111    
112  Commands:  Commands:
113    
114    import           Create new project from an existing file tree.    import             Create new project from an existing file tree.
115    checkout (co)    Retrieve a Meta-CVS project from CVS and build    checkout (co)      Retrieve a Meta-CVS project from CVS and build
116                     working copy.                       working copy.
117    add              Place files (or directories with add -R) under    add                Place files (or directories with add -R) under
118                     version control.                       version control.
119    remove (rm)      Remove files or directories.    remove (rm)        Remove files or directories.
120    move (mv)        Rename files and directories.    move (mv)          Rename files and directories.
121    update (up)      Incorporate latest changes from repository into    update (up)        Incorporate latest changes from repository into
122                     working copy.                       working copy.
123    commit (ci)      Incorporate outstanding changes in the working copy    commit (ci)        Incorporate outstanding changes in the working copy
124                     into the repository.                       into the repository.
125    diff             Compute differences between files in the working copy    diff               Compute differences between files in the working copy
126                     and the repository or between revisions in the repository.                       and the repository or between revisions in the repository.
127    tag              Associate a symbolic name with file revisions to create    tag                Associate a symbolic name with file revisions to create
128                     an identifiable baseline.  By default, tags the                       an identifiable baseline.  By default, tags the
129                     revisions that were last synchronized with the                       revisions that were last synchronized with the
130                     directory. A branch is created using tag -b.                       directory. A branch is created using tag -b.
131    log              Display log information for files.    log                Display log information for files.
132    status (stat)    Show current status of files.    status (stat)      Show current status of files.
133    annotate         Perform a detailed analysis of files, showing the    annotate           Perform a detailed analysis of files, showing the
134                     version information about every individual line of text.                       version information about every individual line of text.
135    filt (fi)        Act as a text filter, which converts Meta-CVS F- file names    filt (fi)          Act as a text filter, which converts Meta-CVS F- file
136                     to human readable names, according to the current mapping.                       names to readable paths, according to the current mapping.
137    convert          Convert a CVS module to a Meta-CVS project. This requires    convert            Convert a CVS module to a Meta-CVS project. This requires
138                     filesystem-level access to the repository. This is                       filesystem-level access to the repository. This is
139                     currently an experimental command that is known not                       currently an experimental command that is known not
140                     to work 100%.")                       to work 100%.")
141    
142  (defun mcvs-execute (args)  (defun mcvs-execute (args)
143    (handler-bind ((error #'mcvs-error-handler))    (handler-bind ((error #'mcvs-error-handler))
# Line 169  Commands: Line 173  Commands:
173            (t (setf *mcvs-chatter-level* *mcvs-info*))))            (t (setf *mcvs-chatter-level* *mcvs-info*))))
174    
175        (when (not (first global-args))        (when (not (first global-args))
176          (write-line "Meta-CVS requires arguments.")          (write-line "Meta-CVS requires a command argument.")
177          (write-line "Use mcvs -H to view help.")          (write-line "Use mcvs -H to view help.")
178          (throw 'mcvs-terminate nil))          (throw 'mcvs-terminate nil))
179    
# Line 181  Commands: Line 185  Commands:
185                   (first global-args)))                   (first global-args)))
186          (destructuring-bind (name func noarg-opts arg-opts) command          (destructuring-bind (name func noarg-opts arg-opts) command
187            (declare (ignore name))            (declare (ignore name))
188            (multiple-value-bind (command-options command-args)            (find-bind (:test #'string= :key #'first)
189                                 (parse-opt (rest global-args)                       (global-options (ec "error-continue") (et "error-terminate"))
190                                            noarg-opts arg-opts "mcvs")                       global-options
191              (funcall func global-options command-options command-args))))))              (cond
192                  (et (setf *mcvs-error-treatment* :terminate))
193                  (ec (setf *mcvs-error-treatment* :continue)))
194    
195                (multiple-value-bind (command-options command-args)
196                                     (parse-opt (rest global-args)
197                                                noarg-opts arg-opts "mcvs")
198                  (funcall func global-options command-options command-args)))))))
199    nil)    nil)
200    
201  (defun mcvs-debug-shell ()  (defun mcvs-debug-shell ()

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

  ViewVC Help
Powered by ViewVC 1.1.5