/[meta-cvs]/meta-cvs/F-0C9187C87304A15BD59A42657A3BE5A3
ViewVC logotype

Log of /meta-cvs/F-0C9187C87304A15BD59A42657A3BE5A3

Parent Directory Parent Directory | Revision Log Revision Log


Links to HEAD: (view) (annotate)
Links to mcvs-0-6: (view) (annotate)
Sticky Tag:

Revision 1.38 - (view) (annotate) - [select for diffs]
Sat Feb 16 18:57:32 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-6
Changes since 1.37: +5 -0 lines
Diff to previous 1.37
* add.lisp (mcvs-add): Last change completely broke add due
to not breaking out of the retry loop.

Revision 1.37 - (view) (annotate) - [select for diffs]
Thu Feb 14 02:26:29 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.36: +7 -0 lines
Diff to previous 1.36
* move.lisp (mcvs-move): If the mapping-update operation returns
nil, or terminates by a non-local jump, restore the filemap.
* mapping.lisp (mapping-update): When returning normally,
return t. When returning after doing a rollback, return nil.

Revision 1.36 - (view) (annotate) - [select for diffs]
Thu Feb 14 02:02:56 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.35: +15 -0 lines
Diff to previous 1.35
* error.lisp (mcvs-error-handler): Bugfix. We were closing over
a binding of the iteration variable of a dolist, which has only
one binding over the entire loop.

* mapping.lisp (mapping-update): Gathers up info all local
clobbered files, and then throw the error. Provides restart
which allows user to print the list of clobbered files, and
a restart which allows the user to have those files clobbered.

* checkout.lisp (mcvs-checkout-wrapper): Bugfix for last bugfix.

Revision 1.35 - (view) (annotate) - [select for diffs]
Tue Feb 12 06:39:11 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.34: +5 -0 lines
Diff to previous 1.34
* checkout.lisp (mcvs-checkout-wrapper): Bugfix for bad
destructuring-bind if there are no arguments.

Revision 1.34 - (view) (annotate) - [select for diffs]
Sun Feb 10 19:28:27 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-5
Changes since 1.33: +6 -0 lines
Diff to previous 1.33
* mapping.lisp (mapping-difference): Reformatted documentation string.
(mapping-update): Implemented a continue restart which rolls back
the changes done to the local filesystem.

Revision 1.33 - (view) (annotate) - [select for diffs]
Sun Feb 10 16:57:50 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.32: +3 -2 lines
Diff to previous 1.32
Don't provide special restart for keeping the add, because that will
happen anyway if the user chooses to terminate. Restarts that
do about the same thing as termination will certainly be confusing.

Revision 1.32 - (view) (annotate) - [select for diffs]
Sun Feb 10 16:55:04 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.31: +1 -1 lines
Diff to previous 1.31
Wording change; don't say termination is graceful when it's not clear
what that means.

Revision 1.31 - (view) (annotate) - [select for diffs]
Sun Feb 10 16:51:20 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.30: +6 -0 lines
Diff to previous 1.30
* error.lisp (mcvs-error-handler): Rearranging the menu,
so "T" is clumped with the main options, and any special restarts
are clearly separated.

Revision 1.30 - (view) (annotate) - [select for diffs]
Sun Feb 10 16:43:12 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.29: +13 -0 lines
Diff to previous 1.29
* update.lisp (mcvs-update): Re-print the "Invoking CVS" chatter
if the user re-tries the error.

* add.lisp (mcvs-add): CVS failure is now a restartable error;
user can decide whether to roll back the effects, retry the
CVS add, or keep the effects anyway despite the failed add.

* install.sh: Stop the script if there are compilation errors.

Revision 1.29 - (view) (annotate) - [select for diffs]
Sun Feb 10 05:50:00 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.28: +7 -0 lines
Diff to previous 1.28
* 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.28 - (view) (annotate) - [select for diffs]
Sun Feb 10 05:09:16 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.27: +7 -0 lines
Diff to previous 1.27
Remove spurious newlines from error messages.

Revision 1.27 - (view) (annotate) - [select for diffs]
Sun Feb 10 04:39:03 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.26: +14 -0 lines
Diff to previous 1.26
Adding some restarts around cvs update.

* posix.lisp (execute-command-xargs): Bail with nil return
value if any command line fails.

* update.lisp (mcvs-update): Tests return value of execute-program
and signal condition if it's nil. Provides a continue restart
as well as a retry restart to try the command again.

* error.lisp (mcvs-error-handler): Show retry restarts as
a special menu item "R".

Revision 1.26 - (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.25: +15 -0 lines
Diff to previous 1.25
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.25 - (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.24: +5 -0 lines
Diff to previous 1.24
* mcvs-main.lisp (*mcvs-command-table*): The "stat" abbreviation
for status command added.

Revision 1.24 - (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.23: +9 -0 lines
Diff to previous 1.23
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.23 - (view) (annotate) - [select for diffs]
Sat Feb 9 03:34:17 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.22: +19 -0 lines
Diff to previous 1.22
* convert.lisp: New file. Contains conversion utility
to make an Meta-CVS repository from an ordinary CVS repository,
while preserving all history, tags and branches.
(remove-attic-component, classify-tags, read-tags,
mcvs-convert): New functions.

* posix.lisp (suffix): New function. Computes suffix of file.
(execute-program-xargs): New optional parameter, for specifying
fixed part added at the end of each generated command line.

* mapping.lisp (*mcvs-map-name*, *mcvs-local-map-name*): New constants.
(*mcvs-map*, *mcvs-map-local*): Redefined in terms of new constants.
(mapping-generate-name): New key parameter no-dir for not adding
the directory prefix.

Revision 1.22 - (view) (annotate) - [select for diffs]
Sat Feb 9 03:23:33 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.21: +5 -0 lines
Diff to previous 1.21
* checkout.lisp (mcvs-checkout): Ensure local mapping is
sorted when written out, for easier comparisons.

Revision 1.21 - (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.20: +24 -0 lines
Diff to previous 1.20
* 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.20 - (view) (annotate) - [select for diffs]
Tue Feb 5 03:19:03 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-4
Changes since 1.19: +7 -0 lines
Diff to previous 1.19
* mapping.lisp (mapping-sort): Removed function.
(mapping-write): Sort written map by F- file names,
not by path names. This is far better for merging, because
files stay in the same place when they are renamed.

Revision 1.19 - (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.18: +11 -0 lines
Diff to previous 1.18
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.18 - (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.17: +17 -0 lines
Diff to previous 1.17
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.17 - (view) (annotate) - [select for diffs]
Sun Feb 3 18:12:09 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.16: +30 -0 lines
Diff to previous 1.16
Added workaround for operating system argument passing limitations,
resembling the Unix xargs utility. Also, trimmed some fat
from the basename function.

* clisp-linux.lisp: (*argument-limit*): New constant added.
(arglist-to-command-string): Function removed.
(execute-program): Function removed.
(shell-interpreter): New function, wrapper for CLISP's shell
function, turns exit status into T (success) or NIL (failure).

* diff.lisp (mcvs-diff): Uses execute-program-xargs instead
of execute-program.

* posix.lisp (basename): Does not canonicalize path name. This
turns out to be an unnecessary performance hit in some cases.
(arglist-to-command-string): New function. Similar to what was
removed from clisp-linux, but this one properly escapes all
shell metacharacters.
(execute-program): New function, calls shell-interpreter.
(execute-program-xargs): New function. Takes two argument lists.
Forms one or more command lines by combining the first argument list
with one or more pieces of the second argument list, and
executes each command. The length of the pieces is determined
by the argument passing limit.

* dirwalk.lisp (ensure-directories-gone): Add use of
canonicalize-path because basename doesn't do it.

Revision 1.16 - (view) (annotate) - [select for diffs]
Sat Feb 2 22:07:13 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-3
Changes since 1.15: +11 -0 lines
Diff to previous 1.15
Algorithmic efficiency improvements. No longer using
abstract set operations to update file structure or find
duplicates in the maps. Could still streamline the sorting.

* mapping.lisp (mapping-sort): Express more succinctly using key.
(mapping-dupe-check): Rewrite using loop over sorted lists.
(mapping-difference): New function for computing mapping change.
(mapping-update): Modify to use mapping-difference.

Revision 1.15 - (view) (annotate) - [select for diffs]
Sat Feb 2 11:39:36 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.14: +9 -0 lines
Diff to previous 1.14
* mapping.lisp (mapping-update): When moving files, ensure
that the target is unlinked if it exists.

* move.lisp (simple-rename): No longer do target unlinking
here. Also bugfix: it wasn't handling renames of directories
containing just one file.

Revision 1.14 - (view) (annotate) - [select for diffs]
Sat Feb 2 10:11:09 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.13: +3 -0 lines
Diff to previous 1.13
* checkout.lisp (mcvs-checkout): Checkout also performs
sanity check.

Revision 1.13 - (view) (annotate) - [select for diffs]
Sat Feb 2 09:55:55 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.12: +9 -0 lines
Diff to previous 1.12
* mapping.lisp (mapping-dupe-check): New function for
detecting duplicate objects or paths in a mapping.
(mapping-sane-p): Function removed.
(mapping-read): Use mapping-dupe-check to verify a map
when asked by the sanity-check keyword.
(mapping-update): Specify sanity check when reading MCVS/MAP.

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

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

Revision 1.10 - (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.9: +6 -0 lines
Diff to previous 1.9
* 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.9 - (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.8: +21 -0 lines
Diff to previous 1.8
* 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.8 - (view) (annotate) - [select for diffs]
Fri Feb 1 02:23:46 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.7: +23 -0 lines
Diff to previous 1.7
Renamed all ``filemap-'' functions to ``mapping-'' prefix.

* mapping.lisp (filemap-generate-name, filemap-sort,
filemap-extract-paths, filemap-lookup, filemap-prefix-lookup,
filemap-prefix-matches, filemap-object-lookup,
filemap-same-object-p, filemap-same-path-p, filemap-moved-p,
filemap-rename-files, filemap-sane-p): Old names removed.
(mapping-generate-name, mapping-sort,
mapping-extract-paths, mapping-lookup, mapping-prefix-lookup,
mapping-prefix-matches, mapping-object-lookup,
mapping-same-object-p, mapping-same-path-p, mapping-moved-p,
mapping-rename-files, mapping-sane-p): New names created.
(mapping-read, mapping-write, mapping-synchronize,
mapping-update): Edit calls to renamed functions.
* add.lisp (mcvs-add): Likewise.
* diff.lisp (mcvs-diff): Likewise.
* filt.lisp (mcvs-filt): Likewise.
* import.lisp (mcvs-import): Likewise.
* move.lisp (simple-rename, simple-move-to-dir, move-guts): Likewise.
* remove.lisp (mcvs-remove): Likewise.

Revision 1.7 - (view) (annotate) - [select for diffs]
Thu Jan 31 06:17:50 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-2
Changes since 1.6: +15 -0 lines
Diff to previous 1.6
Factored out repeated code for reading and writing of the MAP and
MAP-LOCAL files.

* mapping.lisp (mapping-read, mapping-write): New functions.
(mapping-synchronize, mapping-update): Use new functions.
* move.lisp (mcvs-move): Likewise.
* filt.lisp (mcvs-filt): Likewise.
* add.lisp (mcvs-add): Likewise.
* remove.lisp (mcvs-remove): Likewise.
* checkout.lisp (mcvs-checkout): Likewise.
* diff.lisp (mcvs-diff): Likewise.
* import.lisp (mcvs-import): Likewise.

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

Revision 1.5 - (view) (annotate) - [select for diffs]
Tue Jan 29 06:40:07 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.4: +12 -0 lines
Diff to previous 1.4
* move.lisp (move-guts): test the actual filesystem as well
as the map for existence of a directory or file. This makes
the move operation behave better. Files can be moved to an
existing directory that is not known to MCVS, and a file
can properly clobber a target file that is not known to MCVS.

* clisp-linux.lisp (directory-p, regular-p, symlink-p): define
methods for these generic functions for a NIL argument, such
that they return NIL.

Revision 1.4 - (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.3: +12 -0 lines
Diff to previous 1.3
* 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.3 - (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.2: +1 -0 lines
Diff to previous 1.2
Add "fi" shorthand for "filt".

Revision 1.2 - (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.1: +3 -0 lines
Diff to previous 1.1
* 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.1 - (view) (annotate) - [select for diffs]
Mon Jan 28 01:02:15 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Bugfix for mcvs add -R.

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