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

Log of /meta-cvs/F-233AD6EEE14894A7303F09519A2AB734

Parent Directory Parent Directory | Revision Log Revision Log


Links to HEAD: (view) (annotate)
Sticky Tag:

Revision 1.103 - (view) (annotate) - [select for diffs]
Sat Mar 8 02:43:16 2008 UTC (6 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: HEAD, mcvs-1-1-98
Changes since 1.102: +31 -23 lines
Diff to previous 1.102 , to selected 1.65
Implement -x option.
Allow repetitions of -i.

* code/main.lisp (*global-options*): Add "x" as a 1 arg option.
(*usage*): Describe -x in help text.
(execute): Execute all forms in the newly introduced *exec-list*
before invoking the command (if there is one). Only complain about a
missing command if the *exec-list* is empty.

* code/options.lisp (*exec-list*): New dynamic variable.
(filter-mcvs-options): Look for -x and -i options in the options,
remove them, and turn them into items in the *exec-list*.
The arguments of -x are parsed as Lisp using read-from-string.
The -i arguments are turned into (LOAD ...) forms.
(process-cvs-options): The -i option is no longer handled here.

Revision 1.102 - (view) (annotate) - [select for diffs]
Sat Dec 2 03:21:27 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
CVS Tags: asdf-import-branch~branch-point, asdf-import-branch~merged-to-HEAD-0
Branch point for: asdf-import-branch
Changes since 1.101: +12 -12 lines
Diff to previous 1.101 , to selected 1.65
* code/main.lisp (*command-table*): Be more conservative about
which functions filter the output of cvs.

Revision 1.101 - (view) (annotate) - [select for diffs]
Sat Dec 2 03:13:06 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.100: +1 -1 lines
Diff to previous 1.100 , to selected 1.65
* code/main.lisp (*command-table*): Fix incorrect entry for
help function.

Revision 1.100 - (view) (annotate) - [select for diffs]
Wed Nov 29 05:10:28 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.99: +9 -0 lines
Diff to previous 1.99 , to selected 1.65
Set all of CLISP's encodings to ISO-8851-1, so the I/O and FFI
is transparent to 8 bit characters, without raising any errors.
Previously this was handled elsewhere.

* code/main.lisp (init): New function to set up encodings.
(main, main-debug): Call init.

Revision 1.99 - (view) (annotate) - [select for diffs]
Tue Nov 28 04:12:07 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.98: +90 -91 lines
Diff to previous 1.98 , to selected 1.65
Getting rid of mcvs- prefixes.

* code/package.lisp (defpackage): shadow the merge symbol.

* code/purge.lisp (mcvs-purge): renamed to purge
(mcvs-purge-wrapper): renamed to purge-wrapper

* code/restore.lisp (mcvs-restore): renamed to restore
(mcvs-restore-wrapper): renamed to restore-wrapper

* code/update.lisp (mcvs-update): renamed to update
(mcvs-update-wrapper): renamed to update-wrapper

* code/main.lisp (mcvs-help): renamed to help
(*mcvs-command-table*): renamed to *command-table*
(mcvs-terminate catch): renamed to terminate.

* code/execute.lisp (mcvs-execute): renamed to execute

* code/move.lisp (mcvs-move): renamed to move
(mcvs-move-wrapper): renamed to move-wrapper

* code/grab.lisp (mcvs-grab): renamed to grab
(mcvs-grab-wrapper): renamed to grab-wrapper

* code/prop.lisp (mcvs-prop): renamed to prop
(mcvs-prop-wrapper): renamed to prop-wrapper

* code/filt.lisp (mcvs-filt-loop): renamed to filt-loop
(mcvs-filt): renamed to filt
(mcvs-remote-filt): renamed to remote-filt
(mcvs-filt-wrapper): renamed to filt-wrapper
(mcvs-remote-filt-wrapper): renamed to remote-filt-wrapper

* code/branch.lisp (mcvs-branch): renamed to branch
(mcvs-branch-wrapper): renamed to branch-wrapper
(mcvs-merge): renamed to merge
(mcvs-list-branches): renamed to list-branches
(mcvs-merge-wrapper): renamed to merge-wrapper
(mcvs-remerge-wrapper): renamed to remerge-wrapper
(mcvs-list-branches-wrapper): renamed to list-branches-wrapper
(mcvs-switch-wrapper): renamed to switch-wrapper

* code/link.lisp (mcvs-link): renamed to ln
(mcvs-link-wrapper): renamed to link-wrapper

* code/watch.lisp (mcvs-watch): renamed to watch
(mcvs-watch-wrapper): renamed to watch-wrapper

* code/add.lisp (mcvs-add): renamed to add
(mcvs-add-wrapper): renamed to add-wrapper

* code/remove.lisp (mcvs-remove): renamed to rm
(mcvs-remove-wrapper): renamed to remove-wrapper

* code/convert.lisp (mcvs-convert): renamed to convert
(mcvs-convert-wrapper): renamed to convert-wrapper

* code/error.lisp (mcvs-terminate): renamed to terminate
(mcvs-error-handler): renamed to error-handler
(*mcvs-error-treatment*): renamed to *error-treatment*
(*mcvs-errors-occured-p*): renamed to *errors-occured-p*

* code/checkout.lisp (mcvs-checkout): renamed to checkout
(mcvs-checkout-wrapper): renamed to checkout-wrapper
(mcvs-export-wrapper): renamed to export-wrapper

* code/generic.lisp (mcvs-generic): renamed to generic
(mcvs-commit-wrapper): renamed to commit-wrapper
(mcvs-diff-wrapper): renamed to diff-wrapper
(mcvs-tag-wrapper): renamed to tag-wrapper
(mcvs-log-wrapper): renamed to log-wrapper
(mcvs-status-wrapper): renamed to status-wrapper
(mcvs-annotate-wrapper): renamed to annotate-wrapper
(mcvs-watchers-wrapper): renamed to watchers-wrapper
(mcvs-edit-wrapper): renamed to edit-wrapper
(mcvs-unedit-wrapper): renamed to unedit-wrapper
(mcvs-editors-wrapper): renamed to editors-wrapper
(mcvs-sync-to-wrapper): renamed to sync-to-wrapper
(mcvs-sync-from-wrapper): renamed to sync-from-wrapper

* code/create.lisp (mcvs-create): renamed to create
(mcvs-create-wrapper): renamed to create-wrapper

* code/remap.lisp (mcvs-remap): renamed to remap
(mcvs-remap-wrapper): renamed to remap-wrapper

* code/mapping.lisp (mcvs-locate): renamed to locate

Revision 1.98 - (view) (annotate) - [select for diffs]
Mon Nov 27 02:53:42 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.97: +2 -2 lines
Diff to previous 1.97 , to selected 1.65
* code/main.lisp (main, main-debug): Isolate CLISP-specific expression
with #+clisp.

Revision 1.97 - (view) (annotate) - [select for diffs]
Mon Nov 27 02:51:45 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.96: +63 -50 lines
Diff to previous 1.96 , to selected 1.65
Implement automatic ``| mcvs filt'' right in the program.

* code/main.lisp (*global-options*): Add "nofilt" option.
(*mcvs-command-table*): Add a new boolean column that specifies
which commands add filtering to their execution of CVS.
(*usage*): Add help text for --nofilt option, and make a reference
to it in the paragraph about filt.
(mcvs-execute): Pull extra boolean from the command table,
and also take into account the value of *nofilt-option*.
Set up the filtering accordingly, using the new
with-filtered-execute-program macro.

* code/options.lisp (*nofilt-option*): New variable.
(filter-mcvs-options): Parse out "nofilt" and set value of
*nofilt-option*.

Revision 1.96 - (view) (annotate) - [select for diffs]
Fri Nov 24 06:47:12 2006 UTC (7 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.95: +38 -49 lines
Diff to previous 1.95 , to selected 1.65
Introduce mcvs-debug tool for reproducing Meta-CVS problems in
a debugging environment.

* code/main.lisp (mcvs-execute): The setup of *interactive-error-io*
and *mcvs-error-treatment* is no longer done here, but in the caller.
Setting these here interferes with debugging.
(mcvs-debug-shell): Removed.
(main): Dependency on CLISP removed. Sets up *interactive-error-io*
and *mcvs-error-treatment* as mcvs-execute did previously.
Return value from mcvs-execute is now ignored.
(main-debug): New function. Sets *interactive-error-io* to
*terminal-io*, and *mcvs-error-treatment* to :decline.
Otherwise behaves like main.

* code/install.sh: Create mcvs-debug.mem in lib directory, and
mcvs-debug in bin directory. In mcvs-debug, the debugger is enabled
by passing ``-on-debug debug'' to CLISP.

* code/package.lisp (defpackage): Export main-debug.

Revision 1.95 - (view) (annotate) - [select for diffs]
Fri Nov 24 04:53:49 2006 UTC (7 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.94: +1 -1 lines
Diff to previous 1.94 , to selected 1.65
Stylistic change.

* code/add.lisp: Change in-package calls not to use the all-caps
"META-CVS" string string, but rather the :meta-cvs keyword.
* code/branch.lisp: Likewise.
* code/chatter.lisp: Likewise.
* code/checkout.lisp: Likewise.
* code/clisp-unix.lisp: Likewise.
* code/cmucl-unix.lisp: Likewise.
* code/convert.lisp: Likewise.
* code/create.lisp: Likewise.
* code/dirwalk.lisp: Likewise.
* code/error.lisp: Likewise.
* code/execute.lisp: Likewise.
* code/filt.lisp: Likewise.
* code/find-bind.lisp: Likewise.
* code/generic.lisp: Likewise.
* code/grab.lisp: Likewise.
* code/link.lisp: Likewise.
* code/main.lisp: Likewise.
* code/mapping.lisp: Likewise.
* code/memoize.lisp: Likewise.
* code/move.lisp: Likewise.
* code/multi-hash.lisp: Likewise.
* code/options.lisp: Likewise.
* code/paths.lisp: Likewise.
* code/print.lisp: Likewise.
* code/prop.lisp: Likewise.
* code/purge.lisp: Likewise.
* code/rcs-utils.lisp: Likewise.
* code/remap.lisp: Likewise.
* code/remove.lisp: Likewise.
* code/restart.lisp: Likewise.
* code/restore.lisp: Likewise.
* code/seqfuncs.lisp: Likewise.
* code/slot-refs.lisp: Likewise.
* code/split.lisp: Likewise.
* code/sync.lisp: Likewise.
* code/types.lisp: Likewise.
* code/unix.lisp: Likewise.
* code/update.lisp: Likewise.
* code/watch.lisp: Likewise.

Revision 1.94 - (view) (annotate) - [select for diffs]
Mon Mar 8 06:11:40 2004 UTC (10 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: mcvs-1-1-0
Changes since 1.93: +0 -28 lines
Diff to previous 1.93 , to selected 1.65
Revamped loading system. Got rid of require/provide in all
Lisp source files.

* code/mcvs.lisp: New file. Responsible for compiling and loading
everything in the right order.

* code/mcvs-main.lisp: File renamed to main.lisp.

* code/mcvs-package.lisp: File renamed to package.lisp.

* code/system.lisp: File removed.

Revision 1.93 - (view) (annotate) - [select for diffs]
Thu Jan 29 05:31:32 2004 UTC (10 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.92: +1 -1 lines
Diff to previous 1.92 , to selected 1.65
Merging from mcvs-1-0-branch.

Revision 1.69.2.30 - (view) (annotate) - [select for diffs]
Thu Jan 29 05:30:26 2004 UTC (10 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-12, mcvs-1-0-13, mcvs-1-0-branch~merged-to-HEAD-0, mcvs-1-0-branch~merged-to-HEAD-1
Changes since 1.69.2.29: +1 -1 lines
Diff to previous 1.69.2.29 , to branch point 1.69 , to next main 1.103 , to selected 1.65
Fixes to convert command to make it useable.

* code/posix.lisp (suffix): Return dir name as additional value.
(execute-program-xargs): In the case that there are no variable
args passed, the fixed trailing args should still be passed
to the command.

* code/convert.lisp (remove-attic-component): Rewrite with
different semantics.
(mcvs-convert): Fix path handling bug whereby basenames
instead of full paths were written to MAP file.
Don't call rcs to make tags when there are none.
Extra tracing to tell user what is going on.

Revision 1.92 - (view) (annotate) - [select for diffs]
Thu Jan 29 05:00:15 2004 UTC (10 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.91: +3 -4 lines
Diff to previous 1.91 , to selected 1.65
Merging from mcvs-1-0-branch.

Revision 1.69.2.29 - (view) (annotate) - [select for diffs]
Thu Jan 29 04:56:22 2004 UTC (10 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.28: +3 -4 lines
Diff to previous 1.69.2.28 , to branch point 1.69 , to selected 1.65
Change help text for mcvs convert.

Revision 1.91 - (view) (annotate) - [select for diffs]
Wed Jul 16 05:38:16 2003 UTC (10 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.90: +2 -2 lines
Diff to previous 1.90 , to selected 1.65
Merging from mcvs-1-0-branch.

Revision 1.69.2.28 - (view) (annotate) - [select for diffs]
Thu Jul 10 05:49:28 2003 UTC (10 years, 9 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-10, mcvs-1-0-11, mcvs-1-0-9
Changes since 1.69.2.27: +1 -1 lines
Diff to previous 1.69.2.27 , to branch point 1.69 , to selected 1.65
Spelling fix in usage.

Revision 1.69.2.27 - (view) (annotate) - [select for diffs]
Thu Jul 10 05:48:38 2003 UTC (10 years, 9 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.26: +1 -1 lines
Diff to previous 1.69.2.26 , to branch point 1.69 , to selected 1.65
Cosmetic change in usage.

Revision 1.90 - (view) (annotate) - [select for diffs]
Mon Jul 7 04:06:06 2003 UTC (10 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.89: +18 -9 lines
Diff to previous 1.89 , to selected 1.65
Merging from mcvs-1-0-branch.

* code/mcvs-main.lisp (with-open-file-ignore-errors): New macro.
(mcvs-execute): Use new macro to properly handle opening the
controlling terminal when there are errors other than
the non-existence of the object.

* code/mcvs-main.lisp (mcvs-help): Move some special declarations
out of the function to the top level.

Revision 1.69.2.26 - (view) (annotate) - [select for diffs]
Mon Jul 7 04:04:58 2003 UTC (10 years, 9 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.25: +12 -6 lines
Diff to previous 1.69.2.25 , to branch point 1.69 , to selected 1.65
* code/mcvs-main.lisp (with-open-file-ignore-errors): New macro.
(mcvs-execute): Use new macro to properly handle opening the
controlling terminal when there are errors other than
the non-existence of the object.

Revision 1.69.2.25 - (view) (annotate) - [select for diffs]
Fri Jun 13 05:03:20 2003 UTC (10 years, 10 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.24: +3 -1 lines
Diff to previous 1.69.2.24 , to branch point 1.69 , to selected 1.65
Add text to usage which discourages ``tag -b'' for branching.

Revision 1.69.2.24 - (view) (annotate) - [select for diffs]
Fri Jun 13 04:59:32 2003 UTC (10 years, 10 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.23: +3 -2 lines
Diff to previous 1.69.2.23 , to branch point 1.69 , to selected 1.65
* code/mcvs-main.lisp (mcvs-help): Move some special declarations
out of the function to the top level.

Revision 1.89 - (view) (annotate) - [select for diffs]
Thu May 1 05:40:54 2003 UTC (10 years, 11 months ago) by kaz
Branch: MAIN
Changes since 1.88: +4 -0 lines
Diff to previous 1.88 , to selected 1.65
Merging from mcvs-1-0-branch.

* code/generic.lisp (mcvs-generic): The after-synchronization
was going in both directions rather than just MCVS -> tree.

* code/mcvs-main.lisp (mcvs-execute): If not able to open controlling
tty, emit some warning messages that interactive error handling is
disabled. This alerts users to problems, like missing /dev directory
on Cygwin.

Revision 1.69.2.23 - (view) (annotate) - [select for diffs]
Thu May 1 05:34:31 2003 UTC (10 years, 11 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-8
Changes since 1.69.2.22: +4 -0 lines
Diff to previous 1.69.2.22 , to branch point 1.69 , to selected 1.65
* code/mcvs-main.lisp (mcvs-execute): If not able to open controlling
tty, emit some warning messages that interactive error handling is
disabled. This alerts users to problems, like missing /dev directory
on Cygwin.

Revision 1.88 - (view) (annotate) - [select for diffs]
Mon Apr 28 06:20:45 2003 UTC (11 years ago) by kaz
Branch: MAIN
Changes since 1.87: +31 -28 lines
Diff to previous 1.87 , to selected 1.65
Merging from mcvs-1-0-branch.

* docs/generate.sh: Use valid shell syntax for identifiers.

* code/mcvs-main.lisp (mcvs-execute): Bugfix: add missing OPEN
option to avoid trying to create the controlling terminal device
if it does not exist, and yield NIL as expected.

Revision 1.69.2.22 - (view) (annotate) - [select for diffs]
Fri Apr 25 06:44:03 2003 UTC (11 years ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.21: +31 -28 lines
Diff to previous 1.69.2.21 , to branch point 1.69 , to selected 1.65
* code/mcvs-main.lisp (mcvs-execute): Bugfix: add missing OPEN
option to avoid trying to create the controlling terminal device
if it does not exist, and yield NIL as expected.

Revision 1.87 - (view) (annotate) - [select for diffs]
Thu Apr 24 04:33:15 2003 UTC (11 years ago) by kaz
Branch: MAIN
Changes since 1.86: +8 -1 lines
Diff to previous 1.86 , to selected 1.65
Merging from mcvs-1-0-branch.

New commands, sync-from-cvs and sync-to-cvs.

* code/mcvs-main.lisp (*sync-to-cvs-options*, *sync-from-cvs-options*):
New option constants.
(*mcvs-command-table*): New entries.
(*usage*): New help text.

* code/generic.lisp (mcvs-generic): New keyword parameter
no-invoke-cvs.
(mcvs-sync-to-wrapper, mcvs-sync-from-wrapper): New functions.

Revision 1.69.2.21 - (view) (annotate) - [select for diffs]
Thu Apr 24 04:32:25 2003 UTC (11 years ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-7
Changes since 1.69.2.20: +8 -1 lines
Diff to previous 1.69.2.20 , to branch point 1.69 , to selected 1.65
New commands, sync-from-cvs and sync-to-cvs.

* code/mcvs-main.lisp (*sync-to-cvs-options*, *sync-from-cvs-options*):
New option constants.
(*mcvs-command-table*): New entries.
(*usage*): New help text.

* code/generic.lisp (mcvs-generic): New keyword parameter
no-invoke-cvs.
(mcvs-sync-to-wrapper, mcvs-sync-from-wrapper): New functions.

Revision 1.86 - (view) (annotate) - [select for diffs]
Thu Apr 24 04:14:41 2003 UTC (11 years ago) by kaz
Branch: MAIN
Changes since 1.85: +3 -6 lines
Diff to previous 1.85 , to selected 1.65
Merging from mcvs-1-0-branch.

Improved error handling again in a flash of sanity. The whole
idea of ``bail'' as a restart is gone. All code which must perform
some complex cleanup action does so as part of normal unwinding.
And so termination becomes safe.

* code/update.lisp (mcvs-update): Change bail restart to continue.

* code/mcvs-main.lisp (*global-options*): Remove "error-bail".
(*usage*): Remove description of --error-bail.
(mcvs-execute): Bind *mcvs-error-treatment* to :terminate rather
than :bail if controlling TTY cannot be opened.

* code/move.lisp (mcvs-move): Change "Undoing move" error message
to "Undoing changes to map".

* code/add.lisp (mcvs-add): Get rid of bail restart; move cleanup
code into unwind-protect block.

* code/error.lisp (*mcvs-error-treatment*): Touch up docstring.
(mcvs-error-handler): Remove anything having to do with :bail.
Change description of `T' command to suggest that it is safe.

* code/options.lisp (filter-mcvs-options): Remove handling of
"error-bail" option.

* code/mapping.lisp (mapping-update): Get rid of outermost
restart-case, which had just a bail restart. Replace it with
unwind-protect block which does exactly the same restoration.

Revision 1.69.2.20 - (view) (annotate) - [select for diffs]
Thu Apr 24 04:02:54 2003 UTC (11 years ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.19: +3 -6 lines
Diff to previous 1.69.2.19 , to branch point 1.69 , to selected 1.65
Improved error handling again in a flash of sanity. The whole
idea of ``bail'' as a restart is gone. All code which must perform
some complex cleanup action does so as part of normal unwinding.
And so termination becomes safe.

* code/update.lisp (mcvs-update): Change bail restart to continue.

* code/mcvs-main.lisp (*global-options*): Remove "error-bail".
(*usage*): Remove description of --error-bail.
(mcvs-execute): Bind *mcvs-error-treatment* to :terminate rather
than :bail if controlling TTY cannot be opened.

* code/move.lisp (mcvs-move): Change "Undoing move" error message
to "Undoing changes to map".

* code/add.lisp (mcvs-add): Get rid of bail restart; move cleanup
code into unwind-protect block.

* code/error.lisp (*mcvs-error-treatment*): Touch up docstring.
(mcvs-error-handler): Remove anything having to do with :bail.
Change description of `T' command to suggest that it is safe.

* code/options.lisp (filter-mcvs-options): Remove handling of
"error-bail" option.

* code/mapping.lisp (mapping-update): Get rid of outermost
restart-case, which had just a bail restart. Replace it with
unwind-protect block which does exactly the same restoration.

Revision 1.85 - (view) (annotate) - [select for diffs]
Wed Apr 23 05:39:27 2003 UTC (11 years ago) by kaz
Branch: MAIN
Changes since 1.84: +35 -29 lines
Diff to previous 1.84 , to selected 1.65
Merging from mcvs-1-0-branch.

Improved error handling.  Use of tty for user interaction, plus
new global option for selecting non-interactive bail behavior.

* code/mcvs-main.lisp (*global-options*): add --error-bail option.
(*usage*): Describe new option.
(mcvs-execute): Dynamically bind *interactive-error-io* variable
to a stream formed by opening the controlling tty.
Send error message to *error-output* rather than *standard-output*.

* code/unix-bindings/unix.lisp (unix-funcs:ctermid): New function,
FFI interface to mcvs_ctermid.

* code/unix-bindings/wrap.c (mcvs_ctermid): New function.

* code/chatter.lisp (chatter): Chatter now goes to *error-output*
rather than *standard-output*.

* code/error.lisp (*interactive-error-io*): New special variable,
holds stream open to controlling tty.
(mcvs-terminate): New function.
(mcvs-error-handler): Use *interactive-error-io* to print menu
and obtain user input. Support the :bail value of
*mcvs-error-treatment* Plus some cosmetic changes.

* code/options.lisp (filter-mcvs-options): Support --error-bail option.

* code/filt.lisp (mcvs-filt-loop): Bugfix, (read-line t ...)
should be (read-line *standard-input* ...) because t stands
for *terminal-io* rather than *standard-io*, unlike in the
format function!

* code/rcs-utils.lisp (rcs-read-token): Read from *standard-input*
rather than *terminal-io*.

Revision 1.69.2.19 - (view) (annotate) - [select for diffs]
Wed Apr 23 05:37:35 2003 UTC (11 years ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.18: +35 -29 lines
Diff to previous 1.69.2.18 , to branch point 1.69 , to selected 1.65
Improved error handling.  Use of tty for user interaction, plus
new global option for selecting non-interactive bail behavior.

* code/mcvs-main.lisp (*global-options*): add --error-bail option.
(*usage*): Describe new option.
(mcvs-execute): Dynamically bind *interactive-error-io* variable
to a stream formed by opening the controlling tty.
Send error message to *error-output* rather than *standard-output*.

* code/unix-bindings/unix.lisp (unix-funcs:ctermid): New function,
FFI interface to mcvs_ctermid.

* code/unix-bindings/wrap.c (mcvs_ctermid): New function.

* code/chatter.lisp (chatter): Chatter now goes to *error-output*
rather than *standard-output*.

* code/error.lisp (*interactive-error-io*): New special variable,
holds stream open to controlling tty.
(mcvs-terminate): New function.
(mcvs-error-handler): Use *interactive-error-io* to print menu
and obtain user input. Support the :bail value of
*mcvs-error-treatment* Plus some cosmetic changes.

* code/options.lisp (filter-mcvs-options): Support --error-bail option.

* code/filt.lisp (mcvs-filt-loop): Bugfix, (read-line t ...)
should be (read-line *standard-input* ...) because t stands
for *terminal-io* rather than *standard-io*, unlike in the
format function!

* code/rcs-utils.lisp (rcs-read-token): Read from *standard-input*
rather than *terminal-io*.

Revision 1.84 - (view) (annotate) - [select for diffs]
Wed Apr 16 05:12:21 2003 UTC (11 years ago) by kaz
Branch: MAIN
Changes since 1.83: +7 -0 lines
Diff to previous 1.83 , to selected 1.65
Merging from mcvs-1-0-branch.

New command, remote-filt.

* code/mcvs-main.lisp (*remote-filt-options*): New option constant.
(*mcvs-command-table*): Entries for new command added.
(*usage*): Help text added.

* code/filt.lisp (filt-select-map): New keyword parameter for
specifing repository module. CVS up -p or co -p command generated
accordingly. Also, little glitch fixed: the local case descends
into the MCVS directory, to avoid a warning message that occurs
when CVS is used in server mode.
(mcvs-filt-loop): New function, contains most of the old mcvs-filt
function body.
(mcvs-filt): Calls new mcvs-filt-loop to do actual filtering work.
(mcvs-remote-filt, mcvs-remote-filt-wrapper): New functions.

* code/clisp-unix.lisp (with-input-from-program): Macro changed
to include debug tracing of the invoked command.

Revision 1.69.2.18 - (view) (annotate) - [select for diffs]
Tue Apr 15 07:19:00 2003 UTC (11 years ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.17: +7 -0 lines
Diff to previous 1.69.2.17 , to branch point 1.69 , to selected 1.65
New command, remote-filt.

* code/mcvs-main.lisp (*remote-filt-options*): New option constant.
(*mcvs-command-table*): Entries for new command added.
(*usage*): Help text added.

* code/filt.lisp (filt-select-map): New keyword parameter for
specifing repository module. CVS up -p or co -p command generated
accordingly. Also, little glitch fixed: the local case descends
into the MCVS directory, to avoid a warning message that occurs
when CVS is used in server mode.
(mcvs-filt-loop): New function, contains most of the old mcvs-filt
function body.
(mcvs-filt): Calls new mcvs-filt-loop to do actual filtering work.
(mcvs-remote-filt, mcvs-remote-filt-wrapper): New functions.

* code/clisp-unix.lisp (with-input-from-program): Macro changed
to include debug tracing of the invoked command.

Revision 1.83 - (view) (annotate) - [select for diffs]
Sun Feb 23 18:59:33 2003 UTC (11 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.82: +2 -0 lines
Diff to previous 1.82 , to selected 1.65
Merging from mcvs-1-0-branch.

* code/mcvs-main.lisp (*usage*): Add help text for --up option.

Revision 1.69.2.17 - (view) (annotate) - [select for diffs]
Sun Feb 23 18:49:43 2003 UTC (11 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-5, mcvs-1-0-6
Changes since 1.69.2.16: +2 -0 lines
Diff to previous 1.69.2.16 , to branch point 1.69 , to selected 1.65
* code/mcvs-main.lisp (*usage*): Add help text for --up option.

Revision 1.82 - (view) (annotate) - [select for diffs]
Thu Feb 13 07:22:35 2003 UTC (11 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-1-0-3
Changes since 1.81: +3 -3 lines
Diff to previous 1.81 , to selected 1.65
Merging from mcvs-1-0-branch.

New --up option added for escaping out of nested sandboxes.

* code/mcvs-main.lisp (*cvs-options*): Added "up" 1 arg option.

* code/options.lisp (*nesting-escape-option*): New global,
default value 0.
(filter-mcvs-options): Filter new option, parse out and validate
integer argument.

* code/mapping.lisp (mcvs-locate): When searching for MCVS
directory, skip N matches, where N is the value of
*nesting-escape-option*.

Revision 1.69.2.16 - (view) (annotate) - [select for diffs]
Thu Feb 13 07:20:49 2003 UTC (11 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-4
Changes since 1.69.2.15: +1 -1 lines
Diff to previous 1.69.2.15 , to branch point 1.69 , to selected 1.65
New --up option added for escaping out of nested sandboxes.

* code/mcvs-main.lisp (*cvs-options*): Added "up" 1 arg option.

* code/options.lisp (*nesting-escape-option*): New global,
default value 0.
(filter-mcvs-options): Filter new option, parse out and validate
integer argument.

* code/mapping.lisp (mcvs-locate): When searching for MCVS
directory, skip N matches, where N is the value of
*nesting-escape-option*.

Revision 1.69.2.15 - (view) (annotate) - [select for diffs]
Thu Feb 13 06:30:21 2003 UTC (11 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.14: +2 -2 lines
Diff to previous 1.69.2.14 , to branch point 1.69 , to selected 1.65
* code/mcvs-main.lisp (*cvs-options*): Constant renamed
to *global-options*.

Revision 1.81 - (view) (annotate) - [select for diffs]
Tue Jan 14 05:53:00 2003 UTC (11 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.80: +7 -2 lines
Diff to previous 1.80 , to selected 1.65
Merging from mcvs-1-0-branch.

Support -k CVS option in merge and remerge commands.
Reported by Jamie Wellnitz.

* code/mcvs-main.lisp (*merge-options*, *remerge-options*): Add
one argument -k option.

* code/merge.lisp (mcvs-merge): Support extra argument for passing
command options. Pass them down to mcvs-update.
(mcvs-merge-wrapper, mcvs-remerge-wrapper): Don't ignore command
options but pass them to mcvs-merge.

Revision 1.69.2.14 - (view) (annotate) - [select for diffs]
Tue Jan 14 05:50:42 2003 UTC (11 years, 3 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-1, mcvs-1-0-2
Changes since 1.69.2.13: +7 -2 lines
Diff to previous 1.69.2.13 , to branch point 1.69 , to selected 1.65
Support -k CVS option in merge and remerge commands.
Reported by Jamie Wellnitz.

* code/mcvs-main.lisp (*merge-options*, *remerge-options*): Add
one argument -k option.

* code/merge.lisp (mcvs-merge): Support extra argument for passing
command options. Pass them down to mcvs-update.
(mcvs-merge-wrapper, mcvs-remerge-wrapper): Don't ignore command
options but pass them to mcvs-merge.

Revision 1.80 - (view) (annotate) - [select for diffs]
Mon Nov 4 02:09:17 2002 UTC (11 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.79: +7 -33 lines
Diff to previous 1.79 , to selected 1.65
Merging from mcvs-1-0-branch.

Revision 1.69.2.13 - (view) (annotate) - [select for diffs]
Mon Nov 4 02:07:35 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-0-99, mcvs-1-0
Changes since 1.69.2.12: +1 -0 lines
Diff to previous 1.69.2.12 , to branch point 1.69 , to selected 1.65
More support for -n option.

* code/mcvs-main.lisp (*usage*): Document -n option.

* code/move.lisp (mcvs-move-wrapper): Remove bogus error check
for presence of global options.

* code/options.lisp (honor-dry-run): New macro for conditionally
not executing some forms if it's a dry run, and logging some
debugging information.

* code/sync.lisp (synchronize-files): Honor dry run.

* code/mapping.lisp (mapping-synchronize, mapping-update): Likewise.

Revision 1.69.2.12 - (view) (annotate) - [select for diffs]
Sun Nov 3 20:31:16 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.11: +1 -1 lines
Diff to previous 1.69.2.11 , to branch point 1.69 , to selected 1.65
* code/branch.lisp (*branch-help*): New string constant.

* code/mcvs-main.lisp (*mcvs-command-table*): *branch-help* hooked in.

Revision 1.69.2.11 - (view) (annotate) - [select for diffs]
Sat Nov 2 19:36:13 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.10: +5 -32 lines
Diff to previous 1.69.2.10 , to branch point 1.69 , to selected 1.65
* code/mcvs-main (*args*, *options*): Unused variables removed.
(mcvs-execute): Global option processing code removed.

* code/options.lisp (*print-usage*): New boolean variable; tells
mcvs-execute to print usage and terminate.
(filter-mcvs-options): New function. Does the job that
filter-global-options did.
(process-cvs-options): Does the global option processing that
was previously in mcvs-execute.
(filter-global-options): Now just calls filter-mcvs-options,
process-cvs-options.

Revision 1.79 - (view) (annotate) - [select for diffs]
Thu Oct 31 04:06:01 2002 UTC (11 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.78: +6 -3 lines
Diff to previous 1.78 , to selected 1.65
* code/mcvs-package.lisp: New file, defines META-CVS package.

* code/purge.lisp: Put all symbols in new package.
* code/restore.lisp: Likewise.
* code/paths.lisp: Likewise.
* code/install.sh: Likewise.
* code/restart.lisp: Likewise.
* code/update.lisp: Likewise.
* code/move.lisp: Likewise.
* code/grab.lisp: Likewise.
* code/unix.lisp: Likewise.
* code/slot-refs.lisp: Likewise.
* code/prop.lisp: Likewise.
* code/multi-hash.lisp: Likewise.
* code/rcs-utils.lisp: Likewise.
* code/branch.lisp: Likewise.
* code/find-bind.lisp: Likewise.
* code/execute.lisp: Likewise.
* code/link.lisp: Likewise.
* code/split.lisp: Likewise.
* code/watch.lisp: Likewise.
* code/clisp-unix.lisp: Likewise.
* code/add.lisp: Likewise.
* code/chatter.lisp: Likewise.
* code/print.lisp: Likewise.
* code/types.lisp: Likewise.
* code/remove.lisp: Likewise.
* code/convert.lisp: Likewise.
* code/error.lisp: Likewise.
* code/options.lisp: Likewise.
* code/dirwalk.lisp: Likewise.
* code/checkout.lisp: Likewise.
* code/generic.lisp: Likewise.
* code/sync.lisp: Likewise.
* code/create.lisp: Likewise.
* code/memoize.lisp: Likewise.
* code/seqfuncs.lisp: Likewise.
* code/cmucl-unix.lisp: Likewise.
* code/remap.lisp: Likewise.

* code/mapping.lisp: Put symbols in new package. Replace use
of CLISP specific substring function with subseq.
* code/filt.lisp: Likewise.

* code/mcvs-main.lisp: Put symbols in new package. The mcvs
function is renamed to main.

* code/install.sh: Generate mcvs script that uses qualified name
of new startup functiont to start the software.

Revision 1.78 - (view) (annotate) - [select for diffs]
Sun Oct 27 00:27:17 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.77: +5 -0 lines
Diff to previous 1.77 , to selected 1.65
Merging from mcvs-1-0-branch:

New link command for creating symlinks.

* mcvs-main.lisp (*link-options*): New option constant.
(*mcvs-command-table*): Entries for new command added.
(*usage*): Help text added.

* link.lisp: New file.
(mcvs-link, mcvs-link-wrapper): New functions.

Revision 1.69.2.10 - (view) (annotate) - [select for diffs]
Sun Oct 27 00:25:39 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.9: +5 -0 lines
Diff to previous 1.69.2.9 , to branch point 1.69 , to selected 1.65
New link command for creating symlinks.

* mcvs-main.lisp (*link-options*): New option constant.
(*mcvs-command-table*): Entries for new command added.
(*usage*): Help text added.

* link.lisp: New file.
(mcvs-link, mcvs-link-wrapper): New functions.

Revision 1.77 - (view) (annotate) - [select for diffs]
Sat Oct 26 18:56:29 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.76: +6 -6 lines
Diff to previous 1.76 , to selected 1.65
Merging from mcvs-1-0-branch.

* code/mcvs-main.lisp (*usage*): Expand tabs to spaces.

* code/add.lisp (*add-help*): Likewise.

* code/remove.lisp (*remove-help*): Likewise.

* code/create.lisp (*create-help*): Likewise.

* code/purge.lisp (mcvs-purge): Get rid the processing of the
nonexistent -n option from purge code.  The global option -n does an
adequate job of implementing a dry run.

* code/mapping.lisp (mapping-removed-files): Skip over the MCVS/CVS
directory, which can contain CVS-generated files with F- names and a ,t
suffix. These trip up the algorithm.

Revision 1.69.2.9 - (view) (annotate) - [select for diffs]
Sat Oct 26 18:54:43 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.8: +6 -6 lines
Diff to previous 1.69.2.8 , to branch point 1.69 , to selected 1.65
* code/mcvs-main.lisp (*usage*): Expand tabs to spaces.

* code/add.lisp (*add-help*): Likewise.

* code/remove.lisp (*remove-help*): Likewise.

* code/create.lisp (*create-help*): Likewise.

Revision 1.76 - (view) (annotate) - [select for diffs]
Tue Oct 22 04:56:44 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.75: +2 -2 lines
Diff to previous 1.75 , to selected 1.65
Merging from mcvs-1-0 branch.

Add help to move command.

* code/mcvs-main.lisp (*mcvs-command-table*): Added *move-help*.

* code/move.lisp (*mcvs-help*): New constant.

Revision 1.69.2.8 - (view) (annotate) - [select for diffs]
Tue Oct 22 04:55:38 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.7: +2 -2 lines
Diff to previous 1.69.2.7 , to branch point 1.69 , to selected 1.65
Add help to move command.

* code/mcvs-main.lisp (*mcvs-command-table*): Added *move-help*.

* code/move.lisp (*mcvs-help*): New constant.

Revision 1.75 - (view) (annotate) - [select for diffs]
Mon Oct 21 04:48:14 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.74: +3 -0 lines
Diff to previous 1.74 , to selected 1.65
Merging from mcvs-1-0-branch

Fix broken ``filt -r''.

* code/mapping.lisp (mapping-read-raw-map): New function; reads
map from stream and does sanity check.
(mapping-read): Argument can be a filename or stream. Call to
mapping-read-raw-map to factor out common code for both cases.

* code/filt.lisp (filt-select-map): This was still just
reading the raw structure from the cvs coprocess, which worked under
the old map format, when the internal and external representations
were the same. Now it calls mapping-read on the stream.

* UPGRADE-EXISTING: New file.

* code/mcvs-main.lisp: Clear out *modules* list before requiring
modules. This is needed so that mcvs-upgrade works, because there
is already a populated list in the Lisp image.

Revision 1.69.2.7 - (view) (annotate) - [select for diffs]
Sat Oct 19 17:00:29 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.6: +3 -0 lines
Diff to previous 1.69.2.6 , to branch point 1.69 , to selected 1.65
* code/mcvs-main.lisp: Clear out *modules* list before requiring
modules. This is needed so that mcvs-upgrade works, because there
is already a populated list in the Lisp image.

Revision 1.74 - (view) (annotate) - [select for diffs]
Thu Oct 17 15:34:28 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.73: +1 -1 lines
Diff to previous 1.73 , to selected 1.65
Merging from mcvs-1-0-branch.

Detect failure to start text editor.

* code/unix.lisp (*editor*, invoke-editor-on): Change name of *editor*
to *mcvs-editor*, due to name-clash with a CLISP extension!

* code/mcvs-main.lisp (mcvs-execute): Likewise.

* code/types.lisp (types-let-user-edit): Provide an individual
restart-case block around the invocation of the text editor,
which lets the user re-try the editor.

Revision 1.69.2.6 - (view) (annotate) - [select for diffs]
Thu Oct 17 15:28:17 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.5: +1 -1 lines
Diff to previous 1.69.2.5 , to branch point 1.69 , to selected 1.65
Detect failure to start text editor.

* code/posix.lisp (*editor*): Change name to *mcvs-editor*, due
to name-clash with a CLISP extension!

* code/mcvs-main.lisp: Likewise.

* code/types.lisp (types-let-user-edit): Provide an individual
restart-case block around the invocation of the text editor,
which lets the user re-try the editor.

Revision 1.73 - (view) (annotate) - [select for diffs]
Mon Oct 14 00:20:47 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.72: +14 -1 lines
Diff to previous 1.72 , to selected 1.65
Merging from mcvs-1-0-branch.

* code/mcvs-main.lisp (*watchers-options*): New constant.
(*edit-options*): Likewise.
(*unedit-options*): Likewise.
(*editors-options*): Likewise.
(*mcvs-command-table*): Added watchers, edit unedit, and editors
commands.
(*usage*): Updated.

* code/generic.lisp (mcvs-watchers-wrapper, mcvs-edit-wrapper,
mcvs-unedit-wrapper, mcvs-editors-wrapper): New functions.

Revision 1.69.2.5 - (view) (annotate) - [select for diffs]
Mon Oct 14 00:19:14 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-0-98
Changes since 1.69.2.4: +14 -1 lines
Diff to previous 1.69.2.4 , to branch point 1.69 , to selected 1.65
* code/mcvs-main.lisp (*watchers-options*): New constant.
(*edit-options*): Likewise.
(*unedit-options*): Likewise.
(*editors-options*): Likewise.
(*mcvs-command-table*): Added watchers, edit unedit, and editors
commands.
(*usage*): Updated.

* code/generic.lisp (mcvs-watchers-wrapper, mcvs-edit-wrapper,
mcvs-unedit-wrapper, mcvs-editors-wrapper): New functions.

Revision 1.72 - (view) (annotate) - [select for diffs]
Mon Oct 14 00:00:23 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.71: +15 -2 lines
Diff to previous 1.71 , to selected 1.65
Merging from mcvs-1-0-branch.

* code/mcvs-main.lisp (*usage*): Describe export and watch commands.
(*watch-options*): New constant.
(*mcvs-command-table*): New entry for watch command.

* code/watch.lisp: New file.

Revision 1.69.2.4 - (view) (annotate) - [select for diffs]
Sun Oct 13 23:58:28 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.3: +8 -1 lines
Diff to previous 1.69.2.3 , to branch point 1.69 , to selected 1.65
* code/mcvs-main.lisp (*usage*): Describe export and watch commands.

Revision 1.69.2.3 - (view) (annotate) - [select for diffs]
Sun Oct 13 23:53:14 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.2: +7 -1 lines
Diff to previous 1.69.2.2 , to branch point 1.69 , to selected 1.65
* code/mcvs-main.lisp (*watch-options*): New constant.
(*mcvs-command-table*): New entry for watch command.

* code/watch.lisp: New file.

Revision 1.71 - (view) (annotate) - [select for diffs]
Sun Oct 13 22:41:30 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.70: +6 -0 lines
Diff to previous 1.70 , to selected 1.65
Merging from mcvs-1-0-branch.

* code/mcvs-main.lisp (*export-options*): New constant.
(*mcvs-command-table*): New entries for export command.

* code/checkout.lisp (mcvs-checkout): New keyword to specify export behavior.
This causes cvs export to be run instead of checkout, and the MCVS directory
to be deleted after.
(mcvs-checkout-wrapper): Common function factored out into a flet.
(mcvs-export-wrapper): New function. Verifies that one of -D and -r options
is present, then runs mcvs-checkout, specifying export behavior.

Revision 1.69.2.2 - (view) (annotate) - [select for diffs]
Sun Oct 13 22:39:20 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69.2.1: +6 -0 lines
Diff to previous 1.69.2.1 , to branch point 1.69 , to selected 1.65
* code/mcvs-main.lisp (*export-options*): New constant.
(*mcvs-command-table*): New entries for export command.

* code/checkout.lisp (mcvs-checkout): New keyword to specify export behavior.
This causes cvs export to be run instead of checkout, and the MCVS directory
to be deleted after.
(mcvs-checkout-wrapper): Common function factored out into a flet.
(mcvs-export-wrapper): New function. Verifies that one of -D and -r options
is present, then runs mcvs-checkout, specifying export behavior.

Revision 1.70 - (view) (annotate) - [select for diffs]
Sat Oct 12 22:34:53 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.69: +1 -1 lines
Diff to previous 1.69 , to selected 1.65
Merging from mcvs-1-0-branch.

* code/mcvs-main.lisp (*update-options*): Added -C option.

* code/update.lisp (mcvs-update): Fall back on the mcvs-generic
if --metaonly or --nometa is specified to run CVS on specific
files.

Revision 1.69.2.1 - (view) (annotate) - [select for diffs]
Sat Oct 12 22:32:23 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.69: +1 -1 lines
Diff to previous 1.69 , to selected 1.65
* code/mcvs-main.lisp (*update-options*): Added -C option.

* code/update.lisp (mcvs-update): Fall back on the mcvs-generic
if --metaonly or --nometa is specified to run CVS on specific
files.

Revision 1.69 - (view) (annotate) - [select for diffs]
Sat Oct 5 18:09:48 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-97, mcvs-1-0-branch~branch-point
Branch point for: mcvs-1-0-branch
Changes since 1.68: +9 -7 lines
Diff to previous 1.68 , to selected 1.65
Error messages no longer specify prefixes like "mcvs:" or
"mcvs-remove:".

When no restarts are available, the error handler now adds the "mcvs:"
prefix when dumping the error text to the standard error stream,
and also adds a terminating newline.

The inability to write to the MAP file is converted to a more
informative error message.

New --debug option is supported to set the chatter level to 3.

Revision 1.68 - (view) (annotate) - [select for diffs]
Sat Sep 21 21:07:49 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-96
Changes since 1.67: +6 -11 lines
Diff to previous 1.67 , to selected 1.65
* code/mcvs-main.lisp (*options*): New variable. Gives
scripts access to to some global options.  The *args* variable now
holds only the remaining arguments after the options.
(mcvs-execute): Sets up *args* and *options* accordingly.
No longer parses out the --error-continue and --error-terminate
options.

* code/options.lisp (filter-global-options): The handling of
--error-continue and --error-terminate is done here. This is
the place to handle options that must be removed (not passed
down to CVS) and which do not trigger immediate actions in
mcvs-execute.

Revision 1.67 - (view) (annotate) - [select for diffs]
Sat Sep 21 20:30:37 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.66: +2 -2 lines
Diff to previous 1.66 , to selected 1.65
* code/mcvs-main.lisp (*args*): New global variable. Gives
scripts access to command line.

Revision 1.66 - (view) (annotate) - [select for diffs]
Sat Sep 21 20:05:11 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.65: +5 -1 lines
Diff to previous 1.65
* code/mcvs-main.lisp (*argv*): New global variable. Gives
scripts access to command line.

Revision 1.65 - (view) (annotate) - [selected]
Sat Sep 21 19:51:23 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.64: +7 -3 lines
Diff to previous 1.64
* code/mcvs-main.lisp (*cvs-options*): Add -i parameter which
takes the name of a script to invoke.
(*usage*): Updated to describe new option.
(mcvs-execute): Parse out -i option and load the specified file.

Revision 1.64 - (view) (annotate) - [select for diffs]
Sat Sep 21 18:30:40 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.63: +1 -1 lines
Diff to previous 1.63 , to selected 1.65
Make remove help available through rm alias too.

Revision 1.63 - (view) (annotate) - [select for diffs]
Sat Sep 21 18:23:33 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.62: +1 -1 lines
Diff to previous 1.62 , to selected 1.65
* code/mcvs-main.lisp (*mcvs-command-table*): Added help for remove.

* code/remove.lisp (*remove-help*): New string constant.

Revision 1.62 - (view) (annotate) - [select for diffs]
Thu Sep 19 01:53:22 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.61: +2 -2 lines
Diff to previous 1.61 , to selected 1.65
Small text change in *usage*.

Revision 1.61 - (view) (annotate) - [select for diffs]
Tue Sep 17 03:34:24 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-95
Changes since 1.60: +4 -4 lines
Diff to previous 1.60 , to selected 1.65
* code/mcvs-main.lisp (*checkout-options*): Removed -A and -N
options.
(*mcvs-command-table*): Added help for checkout and add.

* code/checkout.lisp (*checkout-help*): New string constant.

* code/add.help (*add-help*): Likewise.

* code/create.lisp (*create-help*): Mention interactive file
type specification.

Revision 1.60 - (view) (annotate) - [select for diffs]
Tue Sep 17 02:31:19 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.59: +1 -1 lines
Diff to previous 1.59 , to selected 1.65
* code/mcvs-main.lisp (*mcvs-command-table*): Add *grab-help*.
* code/grab.lisp (*grab-help*): New string constant.

Revision 1.59 - (view) (annotate) - [select for diffs]
Thu Sep 12 02:57:26 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.58: +8 -5 lines
Diff to previous 1.58 , to selected 1.65
Implement help text for create command.

* code/mcvs-main.lisp (mcvs-help): Fixes.
(*mcvs-command-table*): Add *create-help*.

* code/create.lisp (*create-help*): New string constant.

Revision 1.58 - (view) (annotate) - [select for diffs]
Thu Sep 12 02:36:04 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.57: +61 -35 lines
Diff to previous 1.57 , to selected 1.65
Revamping help system to support more detailed help
for individual commands.

* code/mcvs-main.lisp (mcvs-help): New function.
(*help-options*): New constant.
(*mcvs-command-table*): New entry in each sublist element;
this is either nil, or a string containing help text.
(mcvs-execute): Update to use new table structure.

Revision 1.57 - (view) (annotate) - [select for diffs]
Sun Sep 8 20:18:17 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-24
Changes since 1.56: +3 -2 lines
Diff to previous 1.56 , to selected 1.65
Fix stupid error.

* code/mcvs-main.lisp (*move-options*): New constant.
(*mcvs-command-table*): Fix broken entry for "move" and "mv".

Revision 1.56 - (view) (annotate) - [select for diffs]
Sat Sep 7 04:50:24 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.55: +7 -7 lines
Diff to previous 1.55 , to selected 1.65
* code/prop.lisp (mcvs-prop): Support --value option to
associate an arbitrary value with a property indicator.

* code/mcvs-main.lisp (*usage*): Describe --value and
clarify syntax.

Revision 1.55 - (view) (annotate) - [select for diffs]
Sat Sep 7 04:41:47 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.54: +118 -87 lines
Diff to previous 1.54 , to selected 1.65
Unify command option parsing, and enable it to handle options with
any number of required parameters.

* code/options.lisp (parse-opt): Function rewritten. Argument
syntax and semantics have changed. Options are specified
as an association list whose member are string-integer
pairs. The string is the option name, the integer specifies
the number of required parameters.
(option-spec-expand): New function.
(option-spec): New macro.
(define-option-constant): New macro.

* code/mcvs-main.lisp (*cvs-options-arg*): Constant removed.
(*cvs-options*, *create-options*, *grab-options*, *checkout-options*,
*add-options*, *remove-options*, *update-options*,
*switch-options*, *commit-options*, *diff-options*, *tag-options*,
*log-options*, *status-options*, *annotate-options, *filt-options*,
*convert-options*, *branch-options*, *merge-options*,
*remerge-options*, *list-branches-options*, *remap-options*,
*purge-options*, *restore-options*, *prop-options*): Constant
definitions refactored using define-option-constant macro.
(*mcvs-command-table*): Use , rather than ,@ to insert
option specs.
(*usage*): Suggest cleaner syntax for prop options.
(mcvs-execute): Switch to new parse-opt.

Revision 1.54 - (view) (annotate) - [select for diffs]
Fri Sep 6 04:09:45 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.53: +12 -1 lines
Diff to previous 1.53 , to selected 1.65
New prop command for manipulating property lists.

* code/mcvs-main.lisp (*prop-options*): New constant.
(*mcvs-command-table*): New entry.
(*usage*): Update.

* code/mapping.lisp (mapping-entry-parse-plist): Just unconditionally
set execute slot based on :exec property.

* code/prop.lisp: New file.

Revision 1.53 - (view) (annotate) - [select for diffs]
Thu Aug 1 04:03:13 2002 UTC (11 years, 8 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-21, mcvs-0-22, mcvs-0-23, symlink-branch~branch-point, symlink-branch~merged-to-HEAD-0
Branch point for: symlink-branch
Changes since 1.52: +1 -1 lines
Diff to previous 1.52 , to selected 1.65
* code/grab.lisp (correlate-word-hashes): The rule for computing
the correlation changes. The size of the smaller of the two sets
is used as the denominator, rather than the size of the union.
This produces far better results for files that have grown
or shrunk a lot; files are not penalized for growing.

More changes to syntax of grab command. Now -A must be
specified to do a grab onto main trunk.

* code/mcvs-main.lisp (*grab-options*): -A option added.

* code/grab.lisp (mcvs-grab): Test for presence of -A
option. Check that either -A or -r is present, but not both.

Revision 1.52 - (view) (annotate) - [select for diffs]
Wed Jul 31 13:27:04 2002 UTC (11 years, 8 months ago) by kaz
Branch: MAIN
Changes since 1.51: +1 -1 lines
Diff to previous 1.51 , to selected 1.65
Syntax of grab command changed. The branch is no longer
specified as an argument after the module name. Rather,
it is specified using the -r option.

* code/mcvs-main.lisp (*grab-options*): -r added to list.

* code/grab.lisp (mcvs-grab, mcvs-grab-wrapper): Argument
syntax change, support -r option.

Revision 1.51 - (view) (annotate) - [select for diffs]
Tue Jul 16 20:09:30 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-19, mcvs-0-20
Changes since 1.50: +3 -0 lines
Diff to previous 1.50 , to selected 1.65
* code/mcvs-main.lisp (usage): Updated to describe restore
command.

Revision 1.50 - (view) (annotate) - [select for diffs]
Wed Jul 3 13:43:28 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-17, mcvs-0-18, partial-sandbox-branch~branch-point, partial-sandbox-branch~merged-to-HEAD-0
Branch point for: partial-sandbox-branch
Changes since 1.49: +4 -2 lines
Diff to previous 1.49 , to selected 1.65
*** empty log message ***

Revision 1.49 - (view) (annotate) - [select for diffs]
Tue Jul 2 18:32:52 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.48: +3 -0 lines
Diff to previous 1.48 , to selected 1.65
* purge.lisp (mcvs-purge): Factor out code for computing
deleted files.

* mapping.lisp (mapping-removed-files): New function, contains
code factored from mcvs-purge.

* restore.lisp: New file.
(mcvs-restore, mcvs-restore-wrapper): New functions.

Revision 1.48 - (view) (annotate) - [select for diffs]
Mon Jul 1 20:47:31 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.47: +5 -0 lines
Diff to previous 1.47 , to selected 1.65
Adding purge command.

* mcvs-main.lisp (*purge-options*): New constant.
(*mcvs-command-table*): New entry.
(*usage*): Update.

* purge.lisp: New file.
(mcvs-purge, mcvs-purge-wrapper): New functions.

Revision 1.47 - (view) (annotate) - [select for diffs]
Sat Jun 29 14:15:25 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-16
Changes since 1.46: +1 -1 lines
Diff to previous 1.46 , to selected 1.65
* options.lisp (*nometa-option*): Eliminated rid useless docstring.
(*meta-option*): New variable.
(*nometa-option*): New variable.
(filter-global-options): Clean rewrite using find-bind.

* generic.lisp (mcvs-generic): New keyword parameters
default-include-meta-files, need-update-after. Implements new logic
related to the new options. Performs (mapping-update) if
need-update-after is true and metafiles were subject to cvs update.
(mcvs-commit-wrapper): Calls mcvs-generic with
:default-include-meta-files t.

* update.lisp (mcvs-update): No longer overrides the *nometa-option*
special variable. Passes :need-update-after t to mcvs-generic.

* mcvs-main.lisp (*cvs-options*): New options entered into list.

Revision 1.46 - (view) (annotate) - [select for diffs]
Tue Jun 25 23:39:19 2002 UTC (11 years, 10 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-15, old-convert-hacking-branch~branch-point
Branch point for: old-convert-hacking-branch
Changes since 1.45: +6 -0 lines
Diff to previous 1.45 , to selected 1.65
New feature: grab command. Takes snapshot of code and imports
it to a branch, trying to determine which of the added and
removed files are actually moves.

* grab.lisp: New file.
(read-word-hash, word-hash-file, correlate, added-removed,
move-candidates, mcvs-grab, mcvs-grab-wrapper): New functions.

* mcvs-main.lisp (*grab-options*): New constant.
(*mcvs-command-table*): New entry.
(*usage*): New text.

* checkout.lisp (mcvs-checkout): Write out MAP-LOCAL even
if :no-generate t is specified.

Revision 1.45 - (view) (annotate) - [select for diffs]
Sun Jun 23 19:18:11 2002 UTC (11 years, 10 months ago) by kaz
Branch: MAIN
Changes since 1.44: +4 -4 lines
Diff to previous 1.44 , to selected 1.65
The ``import'' command is renamed to ``create''.

* mcvs.main (*create-options*): Renamed to *import-options*.
(*mcvs-command-table*): Updated.
(*usage*): Updated.

* import.lisp: File renamed to create.lisp.
(mcvs-import): Renamed to mcvs-create; some arguments renamed.
(mcvs-import-wrapper): Renamed to mcvs-create-wrapper.

* README: Updated.

Revision 1.44 - (view) (annotate) - [select for diffs]
Mon May 20 17:49:12 2002 UTC (11 years, 11 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-13, mcvs-0-14
Changes since 1.43: +6 -1 lines
Diff to previous 1.43 , to selected 1.65
Adding mcvs remap command.

* dirwalk.lisp (dirwalk-fi, dirwalk, for-each-file-info): Default
behavior is now preorder (visit directory before its entries).
A keyword is provided to select the old postorder behavior.
A catch is provided in dirwalk-fi that allows the caller to
skip processing the currently traversed directory. The for-each-*
macros provide a local function called (skip) to do this.
(delete-recursive): This function depends on postorder behavior
in for-each-file-info, so it explicitly selects it now.

* mcvs.lisp (*remap-options*): New constant.
(*mcvs-command-table*): Add entry for new function.
(*usage*): Describes new function.

* remap.lisp: New file.
(mcvs-remap, mcvs-remap-wrapper): New functions.

Revision 1.43 - (view) (annotate) - [select for diffs]
Tue Apr 16 14:22:21 2002 UTC (12 years ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-12
Changes since 1.42: +1 -1 lines
Diff to previous 1.42 , to selected 1.65
Help text now indicates that sw is an abbreviation for switch.

Revision 1.42 - (view) (annotate) - [select for diffs]
Thu Apr 4 18:55:28 2002 UTC (12 years ago) by kaz
Branch: MAIN
CVS Tags: deferred-adds-branch~branch-point, mcvs-0-11
Branch point for: deferred-adds-branch
Changes since 1.41: +5 -0 lines
Diff to previous 1.41 , to selected 1.65
New switch command added, plus sticky tag related
bugfixes and enhancement of mcvs list-branches.

mcvs-main.lisp (*switch-options*): New constant.
(*mcvs-command-table*): New entries.
(*usage*): New help text.

branch.lisp (what-branch-are-we-on): Function renamed to
what-tag-are-we-on. Tests the first letter which is T or N; if
it is not T, then it's not a branch tag. If there is a tag,
it returns two values; the second value is NIL if it is not
a branch tag, T otherwise.
(mcvs-merge): Modified to use what-tag-are-we-on.
(mcvs-list-branches): Show additional information about the
current sticky tag.
(mcvs-merge-wrapper): Fix wrong parenthesization introduced
earlier today.
(mcvs-switch-wrapper): New function.

Revision 1.41 - (view) (annotate) - [select for diffs]
Thu Apr 4 16:55:09 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.40: +5 -1 lines
Diff to previous 1.40 , to selected 1.65
New command to list branches.

* mcvs-main.lisp (*list-branches-options*): New constant.
(*mcvs-command-table*): Entries for new command added.
(*usage*): Help text added.

* branch.lisp (mcvs-list-branches,
mcvs-list-branches-wrapper): New functions.

Revision 1.40 - (view) (annotate) - [select for diffs]
Wed Apr 3 00:57:57 2002 UTC (12 years ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-10
Changes since 1.39: +3 -0 lines
Diff to previous 1.39 , to selected 1.65
Add help for remerge.

Revision 1.39 - (view) (annotate) - [select for diffs]
Wed Apr 3 00:55:05 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.38: +3 -1 lines
Diff to previous 1.38 , to selected 1.65
Implemented remerge command; redo a merge without moving
around any tags.

* branch.lisp (mcvs-merge): New keyword parameter remerge-p
to indicate that a re-merge should be done, plus logic for
doing so.
(mcvs-remerge-wrapper): New function.

* mcvs-main.lisp (*remerge-options*): New constant.
(*mcvs-command-table*): New entry for remerge command.

Revision 1.38 - (view) (annotate) - [select for diffs]
Tue Apr 2 23:38:20 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.37: +10 -1 lines
Diff to previous 1.37 , to selected 1.65
First cut at implementing more automated branching and merging.

* mcvs-main.lisp (*branch-options*, *merge-options*): New constants.
(*mcvs-command-table*): New entries for branch and merge commands.
(*usage*): New help text.

* branch.lisp: New file.
(*branch-char*): New constant.
(tags-from-cvs-log, what-branch-are-we-on, branch-tag-check,
mcvs-branch, mcvs-branch-wrapper, cvs-make-or-advance-tag, mcvs-merge,
mcvs-merge-wrapper): New functions.

Revision 1.37 - (view) (annotate) - [select for diffs]
Thu Mar 14 19:03:34 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-9
Changes since 1.36: +1 -1 lines
Diff to previous 1.36 , to selected 1.65
Update takes file arguments now.

* update.lisp (mcvs-update): If filename arguments are given, then
just call mcvs-generic to do the work, but suppress the operation on
meta files. If no filename arguments are given, then update everything.
If the -p option is present, no synchronization is needed, before or
after.
(mcvs-update-wrapper): Pass command arguments down to mcvs-update.

* mcvs-main.lisp (*update-options*): Add "p" option.

* generic.lisp (mcvs-generic): New keyword parameter need-sync-after,
a generalized boolean which can tell the function to do a
mapping-synchronize after executing the CVS command.

Revision 1.36 - (view) (annotate) - [select for diffs]
Wed Mar 13 19:22:08 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.35: +4 -3 lines
Diff to previous 1.35 , to selected 1.65
The filt command takes arguments to select alternate revision
of map.

* mcvs-main.lisp (*filt-options*): New constant.
(*mcvs-command-table*): Updated with new options.
(mcvs-debug-shell): Restart name changed during debugging of filt
changes.

* filt.lisp (filt-select-map): New function. Loads either the
local mapping, or retrieves an alternate mapping from CVS based
on command line options.
(mcvs-filt): Use filt-select-map rather than mapping-read.

Revision 1.35 - (view) (annotate) - [select for diffs]
Tue Mar 12 20:33:50 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-8
Changes since 1.34: +61 -50 lines
Diff to previous 1.34 , to selected 1.65
* mcvs-main.lisp (*cvs-options*): Added "error-terminate" and
"error-continue".
(*usage*): Update and reformat help text.
(mcvs-execute): Process "error-terminate" and "error-continue"
options.

Revision 1.34 - (view) (annotate) - [select for diffs]
Tue Mar 12 19:25:33 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.33: +11 -4 lines
Diff to previous 1.33 , to selected 1.65
Support for -q, -Q and -e global options.

* posix.lisp (*editor*): New special variable.
(edit-file): Check *editor* variable; if not nil, use it.

* mcvs-main.lisp (*usage*): Update help text.
(mcvs-execute): Set *mcvs-chatter-level* according to -q or -Q.
Set *editor* if -e is specified.

Revision 1.33 - (view) (annotate) - [select for diffs]
Tue Mar 12 18:53:46 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.32: +86 -4 lines
Diff to previous 1.32 , to selected 1.65
* mcvs-main.lisp (*cvs-options*): Remove obsolete "a".
(*cvs-options-arg*): Add missing "r".
(*usage*): New constant, help text.
(mcvs-execute): Process help and version command line options.

Revision 1.32 - (view) (annotate) - [select for diffs]
Sun Mar 10 03:32:47 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-7
Changes since 1.31: +0 -1 lines
Diff to previous 1.31 , to selected 1.65
Commit is handled through mcvs-generic, so it can take
filename arguments, and honor --nometa.

* commit.lisp: File removed.
(mcvs-commit): Function removed.
(mcvs-commit-wrapper): Moved to generic.lisp.

* generic.lisp (mcvs-commit-wrapper): Moved from commit.lisp,
changed to invoke mcvs-generic.
(mcvs-generic): Only add TYPES file to list if it actually
exists.

Revision 1.31 - (view) (annotate) - [select for diffs]
Sun Mar 10 02:02:48 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.30: +3 -1 lines
Diff to previous 1.30 , to selected 1.65
New --nometa command line option.

* mcvs-main.lisp (*cvs-options*): Add "nometa" to list.
(mcvs-execute): Filter global options to recognize
Meta-CVS-specific ones.

* options.lisp (*nometa-option*): New special variable.
(filter-global-options): New function.

* generic.lisp (mcvs-generic): Honor *nometa-option* special
variable.

Revision 1.30 - (view) (annotate) - [select for diffs]
Sun Mar 10 00:43:09 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.29: +1 -1 lines
Diff to previous 1.29 , to selected 1.65
* mcvs-main.lisp (*add-options*): Support -R option for add.
Thus, recursive add works now.

Revision 1.29 - (view) (annotate) - [select for diffs]
Mon Feb 18 06:37:06 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.28: +4 -2 lines
Diff to previous 1.28 , to selected 1.65
*** empty log message ***

Revision 1.28 - (view) (annotate) - [select for diffs]
Sun Feb 10 05:50:00 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-5, mcvs-0-6
Changes since 1.27: +2 -1 lines
Diff to previous 1.27 , to selected 1.65
* error.lisp (*mcvs-errors-occured-p*): New special variable.
(mcvs-error-handler): Set *mcvs-errors-occured-p* to T.
* mcvs-main.lisp (mcvs): Take *mcvs-errors-occured-p* into
account in computing termination status.

Revision 1.27 - (view) (annotate) - [select for diffs]
Sun Feb 10 04:09:51 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.26: +2 -54 lines
Diff to previous 1.26 , to selected 1.65
Added a much improved error handling routine in anticipation
of better use of restarts.

* error.lisp: New file
(restart-destructure): New macro.
(*mcvs-error-treatment*): Special variable, moved here from
mcvs-main.
(mcvs-error-handler): New function.

* mcvs-main.lisp (mcvs-top-error-handler): Function removed.
(mcvs-execute): Bind error to new mcvs-error-handler instad
of mcvs-top-error-handler.

Revision 1.26 - (view) (annotate) - [select for diffs]
Sat Feb 9 21:10:19 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.25: +1 -0 lines
Diff to previous 1.25 , to selected 1.65
* mcvs-main.lisp (*mcvs-command-table*): The "stat" abbreviation
for status command added.

Revision 1.25 - (view) (annotate) - [select for diffs]
Sat Feb 9 21:08:28 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.24: +5 -2 lines
Diff to previous 1.24 , to selected 1.65
Hooking conversion tool into command structure.

* mcvs-main.lisp (*convert-options*): New constant.
(*mcvs-command-table*): New entry for mcvs-convert-wrapper.
* convert.lisp (mcvs-convert): Fix reference to nonexistent variable.
(mcvs-convert-wrapper): New function.

Revision 1.24 - (view) (annotate) - [select for diffs]
Fri Feb 8 06:51:45 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: latest-patch
Changes since 1.23: +26 -20 lines
Diff to previous 1.23 , to selected 1.65
* sync.lisp (synchronize-files): Return :dir symbol when either
argument is a directory.
* mapping.lisp (mapping-synchronize): Chatter output messages
are shorter. Handles :dir return value from synchronize-files.
(mapping-update): New sanity checks for moved and added
files, to avoid clobbering local files. Removed redundant
call to ensure-directories-exit in move logic, because
synchronize-files will do it anyway. Chatter messages reordered
to occur before their corresponding action is done.

* mcvs-main.lisp (*mcvs-error-treatment*): Special variable
can have new domain value, namely :decline.
(mcvs-top-error-handler): Print error message when terminating
non-restartable error. Handle new :decline treatment by
simply returning.
(mcvs-debug-shell): Set *mcvs-error-treatment* to :decline
so that errors are caught by debugger.

Revision 1.23 - (view) (annotate) - [select for diffs]
Mon Feb 4 06:34:55 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-4
Changes since 1.22: +3 -3 lines
Diff to previous 1.22 , to selected 1.65
Oops, fix wrong options in command table.

Revision 1.22 - (view) (annotate) - [select for diffs]
Mon Feb 4 06:21:04 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.21: +6 -0 lines
Diff to previous 1.21 , to selected 1.65
Added status, log and annotate.

* mcvs-main.lisp: (*log-options*, *status-options*,
*annotate-options*): New constants.
(*mcvs-command-table*): Add new entries.

* generic-lisp (mcvs-log-wrapper, mcvs-status-wrapper,
mcvs-annotate-wrapper):  New functions.

Revision 1.21 - (view) (annotate) - [select for diffs]
Mon Feb 4 06:10:53 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.20: +3 -1 lines
Diff to previous 1.20 , to selected 1.65
Added tag command.

* diff.lisp: File renamed to generic.lisp.
(mcvs-diff): Function renamed to mcvs-generic.

* generic.lisp (mcvs-generic): Function no longer dedicated to
diffing only; takes CVS command to execute as an argument,
also takes arguments and files as separate lists.
(mcvs-diff-wrapper): Modified to invoke mcvs-generic properly.
(mcvs-tag-wrapper): New function, uses mcvs-generic to implement
tag command.

* mcvs-main.lisp (*tag-options*): New constant.
(*mcvs-command-table*): New entry for tag command.

Revision 1.20 - (view) (annotate) - [select for diffs]
Sat Feb 2 09:25:45 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-3
Changes since 1.19: +1 -3 lines
Diff to previous 1.19 , to selected 1.65
* mcvs-main.lisp (mcvs): Use CLISP's exit function correctly
to establish proper termination status.

Revision 1.19 - (view) (annotate) - [select for diffs]
Fri Feb 1 09:16:52 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.18: +2 -2 lines
Diff to previous 1.18 , to selected 1.65
Forgot a few important diff options.

Revision 1.18 - (view) (annotate) - [select for diffs]
Fri Feb 1 08:56:55 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.17: +62 -48 lines
Diff to previous 1.17 , to selected 1.65
* mcvs-main.lisp (mcvs-execute): Parse command-specific options
properly based on knowledge of each command's set of options.
(parse-args): Function removed.

Revision 1.17 - (view) (annotate) - [select for diffs]
Fri Feb 1 03:42:55 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.16: +8 -5 lines
Diff to previous 1.16 , to selected 1.65
* options.lisp (parse-opt): When multiple options characters are
bunched up into one argument, and one of them other than the
last one takes an argument, then the remaining ones are
considered to constitute a string which is an argument to that
option. For instance -y32 means -y 32, not -y -3 -2, assuming
that y is an option that requires an argument.

Top level handler terminates by non-local exit back to
mcvs function, rather than by calling (exit).

* mcvs-main.lisp (mcvs-top-error-handler): Restructured
to call (throw 'mcvs-exit t).
(mcvs-execute): Ensure that NIL is returned by normal exit.
(mcvs): Catches 'mcvs-exit throw, and calls (exit 0) or (exit 1)
accordingly.

Revision 1.16 - (view) (annotate) - [select for diffs]
Thu Jan 31 05:35:01 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-2
Changes since 1.15: +1 -1 lines
Diff to previous 1.15 , to selected 1.65
MCVS is being renamed to Meta-CVS.

Revision 1.15 - (view) (annotate) - [select for diffs]
Tue Jan 29 05:08:45 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-1
Changes since 1.14: +2 -2 lines
Diff to previous 1.14 , to selected 1.65
* move.lisp (simple-move-to-dir): eliminated a bunch of code
with the result that mcvs mv now works more like the Unix mv
when moving a directory to another directory.

* mcvs-main.lisp (mcvs-execute): fix bogus error message
when options are given but no command.

* README: don't use -z3 in example because this style of
specifying an argument to an option doesn't work.

Revision 1.14 - (view) (annotate) - [select for diffs]
Mon Jan 28 01:11:36 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.13: +2 -1 lines
Diff to previous 1.13 , to selected 1.65
Add "fi" shorthand for "filt".

Revision 1.13 - (view) (annotate) - [select for diffs]
Mon Jan 28 01:07:33 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.12: +1 -1 lines
Diff to previous 1.12 , to selected 1.65
* add.lisp (mcvs-add): Remove bogus test for NIL or T; allow
recursivep to be a generalized boolean variable. This allows
mcvs add -R to work properly.

* mcvs-main.lisp (*cvs-command-options-arg*): add support
for -u parameter, useful in cvs diff.

Revision 1.12 - (view) (annotate) - [select for diffs]
Sun Jan 27 19:42:02 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-0
Changes since 1.11: +3 -1 lines
Diff to previous 1.11 , to selected 1.65
Added mcvs filt command to decode F- names in text streams.

Revision 1.11 - (view) (annotate) - [select for diffs]
Sun Jan 27 18:13:49 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.10: +59 -9 lines
Diff to previous 1.10 , to selected 1.65
Added simple top-level error handling mechanism.

Revision 1.10 - (view) (annotate) - [select for diffs]
Sun Jan 27 16:33:13 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.9: +27 -7 lines
Diff to previous 1.9 , to selected 1.65
First cut at pass-through of CVS options.

Revision 1.9 - (view) (annotate) - [select for diffs]
Sat Jan 26 17:14:33 2002 UTC (12 years, 3 months ago) by kaz
Branch: MAIN
CVS Tags: cvs-options-passthrough
Changes since 1.8: +2 -1 lines
Diff to previous 1.8 , to selected 1.65
Format string fixes.

Revision 1.8 - (view) (annotate) - [select for diffs]
Sat Jan 26 03:49:07 2002 UTC (12 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.7: +16 -0 lines
Diff to previous 1.7 , to selected 1.65
Adding simple debugging shell.

Revision 1.7 - (view) (annotate) - [select for diffs]
Sat Jan 26 02:37:53 2002 UTC (12 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.6: +4 -0 lines
Diff to previous 1.6 , to selected 1.65
Copyright notices.

Revision 1.6 - (view) (annotate) - [select for diffs]
Sat Jan 26 01:43:31 2002 UTC (12 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.5: +1 -0 lines
Diff to previous 1.5 , to selected 1.65
Added (provide "mcvs-main").

Revision 1.5 - (view) (annotate) - [select for diffs]
Sat Jan 26 01:38:37 2002 UTC (12 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.4: +33 -0 lines
Diff to previous 1.4 , to selected 1.65
Moving closer toward delivery.

Revision 1.4 - (view) (annotate) - [select for diffs]
Fri Jan 25 02:04:45 2002 UTC (12 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.3: +1 -0 lines
Diff to previous 1.3 , to selected 1.65
A bit of refactoring.
Added mcvs-move.

Revision 1.3 - (view) (annotate) - [select for diffs]
Mon Jan 21 06:54:14 2002 UTC (12 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.2: +1 -0 lines
Diff to previous 1.2 , to selected 1.65
Adding mcvs-remove operation.

Revision 1.2 - (view) (annotate) - [select for diffs]
Sun Jan 20 20:33:04 2002 UTC (12 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.1: +1 -0 lines
Diff to previous 1.1 , to selected 1.65
Adding mcvs-diff.

Revision 1.1 - (view) (annotate) - [select for diffs]
Sun Jan 20 07:12:03 2002 UTC (12 years, 3 months ago) by kaz
Branch: MAIN
Diff to selected 1.65
Adding all existing source files.

This form allows you to request diffs between any two revisions of this file. For each of the two "sides" of the diff, select a symbolic revision name using the selection box, or choose 'Use Text Field' and enter a numeric revision.

  Diffs between and
  Type of Diff should be a

Sort log by:

  ViewVC Help
Powered by ViewVC 1.1.5