/[meta-cvs]/meta-cvs/F-9E93CACBDB115633C66D0EF9B052C490
ViewVC logotype

Log of /meta-cvs/F-9E93CACBDB115633C66D0EF9B052C490

Parent Directory Parent Directory | Revision Log Revision Log


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

Revision 1.29 - (view) (annotate) - [select for diffs]
Sat Mar 8 03:27:57 2008 UTC (6 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: HEAD, mcvs-1-1-98
Changes since 1.28: +2 -2 lines
Diff to previous 1.28 , to selected 1.16
Update copyright year.

Revision 1.28 - (view) (annotate) - [select for diffs]
Sat Mar 8 02:43:16 2008 UTC (6 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.27: +23 -14 lines
Diff to previous 1.27 , to selected 1.16
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.27 - (view) (annotate) - [select for diffs]
Tue Nov 28 07:47:22 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.26: +4 -4 lines
Diff to previous 1.26 , to selected 1.16
More renaming to get rid of mcvs- prefix.

* code/chatter.lisp (*mcvs-debug*): Renamed to *chatter-debug*.
(*mcvs-info*, *mcvs-terse*, *mcvs-silent*): Similarly.
(*mcvs-chatter-level*): Renamed to *chatter-level*.

* code/unix.lisp (*mcvs-editor*): Renamed to *edit-program*.

* code/types.lisp (*mcvs-types-name*): Renamed to *types-file*.
(*mcvs-types*): Renamed to *types-path*.
(*mcvs-new-types*): Renamed to *types-new-path*.

* code/mapping.lisp (*mcvs-dir*): Renamed to *admin-dir*.
(*mcvs-map-name*): Renamed to *map-file*.
(*mcvs-map-local-name*): Renamed to *map-local-file*.
(*mcvs-displaced-name*): Renamed to *displaced-file*.
(*mcvs-map*): Renamed to *map-path*.
(*mcvs-map-local*): Renamed to *map-local-path*.
(*mcvs-displaced*): Renamed to *displaced-path*.

Revision 1.26 - (view) (annotate) - [select for diffs]
Tue Nov 28 04:12:08 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.25: +4 -4 lines
Diff to previous 1.25 , to selected 1.16
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.25 - (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.24: +4 -1 lines
Diff to previous 1.24 , to selected 1.16
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.24 - (view) (annotate) - [select for diffs]
Fri Nov 24 04:53:50 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.23: +1 -1 lines
Diff to previous 1.23 , to selected 1.16
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.23 - (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.22: +0 -8 lines
Diff to previous 1.22 , to selected 1.16
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.22 - (view) (annotate) - [select for diffs]
Fri Jan 9 05:22:20 2004 UTC (10 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.21: +2 -2 lines
Diff to previous 1.21 , to selected 1.16
Merging from mcvs-1-0-branch.

Revision 1.13.2.10 - (view) (annotate) - [select for diffs]
Fri Jan 9 05:22:01 2004 UTC (10 years, 3 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-10, mcvs-1-0-11, 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.13.2.9: +2 -2 lines
Diff to previous 1.13.2.9 , to branch point 1.13 , to next main 1.29 , to selected 1.16
* code/options.lisp (process-cvs-options): Update
--version copyright message to 2004.

Revision 1.21 - (view) (annotate) - [select for diffs]
Thu Apr 24 04:14:41 2003 UTC (10 years, 11 months ago) by kaz
Branch: MAIN
Changes since 1.20: +0 -2 lines
Diff to previous 1.20 , to selected 1.16
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.13.2.9 - (view) (annotate) - [select for diffs]
Thu Apr 24 04:02:55 2003 UTC (10 years, 11 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-7, mcvs-1-0-8, mcvs-1-0-9
Changes since 1.13.2.8: +0 -2 lines
Diff to previous 1.13.2.8 , to branch point 1.13 , to selected 1.16
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.20 - (view) (annotate) - [select for diffs]
Wed Apr 23 05:39:27 2003 UTC (10 years, 11 months ago) by kaz
Branch: MAIN
Changes since 1.19: +4 -2 lines
Diff to previous 1.19 , to selected 1.16
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.13.2.8 - (view) (annotate) - [select for diffs]
Wed Apr 23 05:37:35 2003 UTC (10 years, 11 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.13.2.7: +4 -2 lines
Diff to previous 1.13.2.7 , to branch point 1.13 , to selected 1.16
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.19 - (view) (annotate) - [select for diffs]
Wed Apr 16 05:12:21 2003 UTC (11 years ago) by kaz
Branch: MAIN
Changes since 1.18: +2 -2 lines
Diff to previous 1.18 , to selected 1.16
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.13.2.7 - (view) (annotate) - [select for diffs]
Tue Apr 15 04:44:25 2003 UTC (11 years ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-6
Changes since 1.13.2.6: +2 -2 lines
Diff to previous 1.13.2.6 , to branch point 1.13 , to selected 1.16
Update copyright to 2003.

Revision 1.18 - (view) (annotate) - [select for diffs]
Wed Feb 26 03:46:35 2003 UTC (11 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.17: +4 -1 lines
Diff to previous 1.17 , to selected 1.16
Merging from mcvs-1-0-branch.

* code/options.lisp (format-opt): Some one-argument options of
CVS must appear as one command parameter, with no separation
between the option letter and the argument characters.
For example, ``cvs log -r foo::bar'' is invalid, it must
be ``cvs log -rfoo::bar''.  The format-opt function now
formats *all* one-letter options that have one argument
as one string.

Revision 1.13.2.6 - (view) (annotate) - [select for diffs]
Tue Feb 25 05:43:29 2003 UTC (11 years, 1 month ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-5
Changes since 1.13.2.5: +4 -1 lines
Diff to previous 1.13.2.5 , to branch point 1.13 , to selected 1.16
* code/options.lisp (format-opt): Some one-argument options of
CVS must appear as one command parameter, with no separation
between the option letter and the argument characters.
For example, ``cvs log -r foo::bar'' is invalid, it must
be ``cvs log -rfoo::bar''.  The format-opt function now
formats *all* one-letter options that have one argument
as one string.

Revision 1.17 - (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.16: +9 -0 lines
Diff to previous 1.16
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.13.2.5 - (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.13.2.4: +10 -1 lines
Diff to previous 1.13.2.4 , to branch point 1.13 , to selected 1.16
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.16 - (view) (annotate) - [selected]
Fri Dec 27 23:45:50 2002 UTC (11 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.15: +5 -4 lines
Diff to previous 1.15
Merging from mcvs-1-0-branch.

* code/options.lisp (process-cvs-options): The version number
now has three components.

Revision 1.13.2.4 - (view) (annotate) - [select for diffs]
Fri Dec 27 23:43:42 2002 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.13.2.3: +6 -5 lines
Diff to previous 1.13.2.3 , to branch point 1.13 , to selected 1.16
* code/options.lisp (process-cvs-options): The version number
now has three components.

Revision 1.15 - (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.14: +47 -1 lines
Diff to previous 1.14 , to selected 1.16
Merging from mcvs-1-0-branch.

Revision 1.13.2.3 - (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.13.2.2: +9 -0 lines
Diff to previous 1.13.2.2 , to branch point 1.13 , to selected 1.16
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.13.2.2 - (view) (annotate) - [select for diffs]
Mon Nov 4 01:09:35 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.13.2.1: +6 -3 lines
Diff to previous 1.13.2.1 , to branch point 1.13 , to selected 1.16
Start of support for global option -n (dry run).

* code/options.lisp (*dry-run-option*): New boolean variable.
(process-cvs-options): Look for -n and set *dry-run-option*.

* code/types.lisp (types-write): Do not write file if *dry-run-option*
is true.

* code/types.lisp (mapping-write): Likewise.

* code/add.lisp (mcvs-add): When calling types-let-user-edit,
temporarily disable the dry run option, so that TYPES-NEW can
be written. When the dry run option is in effect, do not try
to cvs add the TYPES file.

Revision 1.13.2.1 - (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.13: +35 -1 lines
Diff to previous 1.13 , to selected 1.16
* 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.14 - (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.13: +3 -0 lines
Diff to previous 1.13 , to selected 1.16
* 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.13 - (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-0-98, mcvs-1-0-branch~branch-point
Branch point for: mcvs-1-0-branch
Changes since 1.12: +8 -5 lines
Diff to previous 1.12 , to selected 1.16
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.12 - (view) (annotate) - [select for diffs]
Sat Sep 21 21:07:49 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-96
Changes since 1.11: +7 -1 lines
Diff to previous 1.11 , to selected 1.16
* 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.11 - (view) (annotate) - [select for diffs]
Sun Sep 8 01:34:54 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-24, mcvs-0-95
Changes since 1.10: +1 -1 lines
Diff to previous 1.10 , to selected 1.16
Eliminate inappropriate pluralization in messages.

* code/grab.lisp (mcvs-grab): Use ~:p to substitute a 's'
if the parameter is other than 1.

* code/options.lisp (parse-opt): Likewise.

Revision 1.10 - (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.9: +65 -78 lines
Diff to previous 1.9 , to selected 1.16
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.9 - (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, mcvs-0-17, mcvs-0-18, mcvs-0-19, mcvs-0-20, mcvs-0-21, mcvs-0-22, mcvs-0-23, partial-sandbox-branch~branch-point, partial-sandbox-branch~merged-to-HEAD-0, symlink-branch~branch-point, symlink-branch~merged-to-HEAD-0
Branch point for: partial-sandbox-branch, symlink-branch
Changes since 1.8: +17 -14 lines
Diff to previous 1.8 , to selected 1.16
* 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.8 - (view) (annotate) - [select for diffs]
Tue Mar 12 17:35:30 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: deferred-adds-branch~branch-point, mcvs-0-10, mcvs-0-11, mcvs-0-12, mcvs-0-13, mcvs-0-14, mcvs-0-15, mcvs-0-8, mcvs-0-9, old-convert-hacking-branch~branch-point
Branch point for: deferred-adds-branch, old-convert-hacking-branch
Changes since 1.7: +2 -2 lines
Diff to previous 1.7 , to selected 1.16
* options.lisp (parse-opt): Make error messages more consistent.

Revision 1.7 - (view) (annotate) - [select for diffs]
Sun Mar 10 02:02:49 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-7
Changes since 1.6: +18 -0 lines
Diff to previous 1.6 , to selected 1.16
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.6 - (view) (annotate) - [select for diffs]
Sun Feb 10 05:09:16 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-5, mcvs-0-6
Changes since 1.5: +5 -5 lines
Diff to previous 1.5 , to selected 1.16
Remove spurious newlines from error messages.

Revision 1.5 - (view) (annotate) - [select for diffs]
Fri Feb 1 09:15:34 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: latest-patch, mcvs-0-3, mcvs-0-4
Changes since 1.4: +22 -2 lines
Diff to previous 1.4 , to selected 1.16
* options.lisp (parse-opt): Correctly process long options with
arguments. Argument is part of the string, separated by = symbol.

Revision 1.4 - (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.3: +13 -5 lines
Diff to previous 1.3 , to selected 1.16
* 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.3 - (view) (annotate) - [select for diffs]
Thu Jan 31 05:35:02 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-2
Changes since 1.2: +1 -1 lines
Diff to previous 1.2 , to selected 1.16
MCVS is being renamed to Meta-CVS.

Revision 1.2 - (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.1: +2 -0 lines
Diff to previous 1.1 , to selected 1.16
* 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.1 - (view) (annotate) - [select for diffs]
Sun Jan 27 18:04:21 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-0
Diff to selected 1.16
Forgot to add this.

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