/[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)
Sticky Tag:

Revision 1.324 - (view) (annotate) - [select for diffs]
Tue Mar 11 06:24:28 2008 UTC (6 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: HEAD
Changes since 1.323: +13 -0 lines
Diff to previous 1.323 , to selected 1.41
Clean-up stat-related FFI.

* code/clisp-ffi.lisp (stat): In 32 bit version, rename fields
for consistency with glibc. The paddings should be written
as 32, not 16 (though thanks to alignment, it doesn't matter).
In the IA-64 version of stat, blksize should be 64, and the
inode field near the front is the one and only inode field;
there isn't one at the tail. In the Cygwin and IA-64 structs,
the tail padding array is now expressed with c-array rather than
c-array-max.

Revision 1.323 - (view) (annotate) - [select for diffs]
Tue Mar 11 05:24:30 2008 UTC (6 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.322: +13 -0 lines
Diff to previous 1.322 , to selected 1.41
First cut at IA-64 support.

* Makefile (ARCH): New variable, captures output of arch program.
Arch, prefixed with "ARCH-" is pushed onto *FEATURES* list.

* code/clisp-ffi.lisp (stat): New variant of structure introduced.
(stat-ver): Constant removed.
(__stat-ver-linux): New constant added, with architecture-dependent
value.
(stat, fstat, lstat): Use new constant.

Revision 1.322 - (view) (annotate) - [select for diffs]
Mon Mar 10 07:52:46 2008 UTC (6 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.321: +5 -0 lines
Diff to previous 1.321 , to selected 1.41
* configure: When testing for GNU make, handle the situation
that the minor number has a non-numeric suffix, e.g. 3.81beta4.

Revision 1.321 - (view) (annotate) - [select for diffs]
Mon Mar 10 00:19:32 2008 UTC (6 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.320: +9 -0 lines
Diff to previous 1.320 , to selected 1.41
Get rid of dependency on lndir.

* configure: Do not check for lndir; do not symlink code
directory (just the Makefile using ln).

* Makefile: Use top_srcdir variable to refer to code.

Revision 1.320 - (view) (annotate) - [select for diffs]
Mon Mar 10 00:01:36 2008 UTC (6 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.319: +14 -0 lines
Diff to previous 1.319 , to selected 1.41
Update to ASDF from CLKD project (and fix a bug).

* asdf/asdf.lisp: Updated
(component-pathname (component)): Handle case when parent directory
is empty, in which case :RELATIVE must be explicitly added to the
directory passed to make-pathname. The original ADJOIN code looked
fine.

* code/mcvs.asd: Change package references from asdf to zxcv.

* Makefile: Likewise.

Revision 1.319 - (view) (annotate) - [select for diffs]
Sat Mar 8 07:22:00 2008 UTC (6 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.318: +7 -0 lines
Diff to previous 1.318 , to selected 1.41
* code/clisp-unix.lisp (executable-p (file-info)): A file is considered
executable if at least one of the three execute permissions---owner,
group, or others---is set. Previous broken logic is that a file
is executable if it has owner and group execute permissions.

Revision 1.318 - (view) (annotate) - [select for diffs]
Sat Mar 8 02:53:34 2008 UTC (6 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: mcvs-1-1-98
Changes since 1.317: +11 -0 lines
Diff to previous 1.317 , to selected 1.41
Reshuffle documentation files around.

* SCRIPTING: moved to docs/misc-text-files subdirectory.
* PORTING: Likewise.
* QUICK-GUIDE: Likewise.
* docs/Meta-CVS-Paper: Likewise.

* docs: moved to docs/tex-manual.

Revision 1.317 - (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.316: +18 -0 lines
Diff to previous 1.316 , to selected 1.41
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.316 - (view) (annotate) - [select for diffs]
Sat Mar 8 02:20:31 2008 UTC (6 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.315: +4 -0 lines
Diff to previous 1.315 , to selected 1.41
* SCRIPTING: New file.

Revision 1.315 - (view) (annotate) - [select for diffs]
Tue Jan 2 08:22:30 2007 UTC (7 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.314: +4 -0 lines
Diff to previous 1.314 , to selected 1.41
* UPGRADE-EXISTING: Remove obsolete document.

Revision 1.314 - (view) (annotate) - [select for diffs]
Tue Jan 2 07:51:19 2007 UTC (7 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.313: +4 -0 lines
Diff to previous 1.313 , to selected 1.41
* configure: Parse version number from CVS keyword, show in banner.

Revision 1.313 - (view) (annotate) - [select for diffs]
Tue Jan 2 02:25:22 2007 UTC (7 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.312: +9 -5 lines
Diff to previous 1.312 , to selected 1.41
New build system for Meta-CVS, based on a configure script,
Makefile and ASDF.

* Makefile: New file.
* configure: New file, borrowed from CLKD.
* code/mcvs.asd: New file, ASDF definition for Meta-CVS.
* code/install.sh: Removed.
* asdf/asdf.lisp: New file, ASDF based on cclan revision 1.102 with
modifications from CLKD.
* INSTALL: Update instructions.

Revision 1.312 - (view) (annotate) - [select for diffs]
Mon Jan 1 23:45:46 2007 UTC (7 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.311: +4 -0 lines
Diff to previous 1.311 , to selected 1.41
* code/mcvs.asd: New file, ASDF definition for Meta-CVS.

Revision 1.311 - (view) (annotate) - [select for diffs]
Mon Jan 1 23:44:55 2007 UTC (7 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.310: +2 -1 lines
Diff to previous 1.310 , to selected 1.41
* asdf/asdf.lisp: New file, modified asdf from CLKD, based on
revision 1.102 from cclan.

Revision 1.310 - (view) (annotate) - [select for diffs]
Mon Jan 1 22:06:09 2007 UTC (7 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.309: +4 -0 lines
Diff to previous 1.309 , to selected 1.41
* asdf/asdf.lisp: New file, asdf revision 1.102 from cclan.

Revision 1.309 - (view) (annotate) - [select for diffs]
Sat Dec 2 03:21:25 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.308: +5 -0 lines
Diff to previous 1.308 , to selected 1.41
* code/main.lisp (*command-table*): Be more conservative about
which functions filter the output of cvs.

Revision 1.308 - (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.307: +5 -0 lines
Diff to previous 1.307 , to selected 1.41
* code/main.lisp (*command-table*): Fix incorrect entry for
help function.

Revision 1.307 - (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.306: +9 -0 lines
Diff to previous 1.306 , to selected 1.41
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.306 - (view) (annotate) - [select for diffs]
Tue Nov 28 07:47:21 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.305: +22 -0 lines
Diff to previous 1.305 , to selected 1.41
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.305 - (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.304: +91 -0 lines
Diff to previous 1.304 , to selected 1.41
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.304 - (view) (annotate) - [select for diffs]
Tue Nov 28 02:43:14 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.303: +6 -0 lines
Diff to previous 1.303 , to selected 1.41
* code/clisp-ffi.lisp (readlink): No need to coerce result of
readlink-ll to string type.
(getcwd): Add comment.

Revision 1.303 - (view) (annotate) - [select for diffs]
Tue Nov 28 02:30:39 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.302: +29 -0 lines
Diff to previous 1.302 , to selected 1.41
Ported to Cygwin.

* code/clisp-ffi.lisp (eval-when): Rename :linux-libc6 feature to
just linux. Only push it onto *features* if :cygwin isn't there.
Our platform support is restricted to Linux and Cygwin for the time
being.
(def-libc-call-out): Change macro to handle both Cygwin and Linux.
The only difference is the library.
(errno-location): Cygwin variant uses __errno function rather than
__errno_location. Otherwise it works the same as Linux.
(edeadlk, enametoolong, enolck, enosys, enotempty,
eloop, ewouldblock): Remove these error constants, since we don't
use them anyway and those that exist on Cygwin have different values.
(struct dirent): Define Cygwin variant of structure.
(readdir): Cygwin variation added.
(struct stat): Define Cygwin variant of structure. Small change in
Linux variant.
(stat, lstat, fstat): Cygwin versions defined. These go to _*64
functions.
(sighup, sigint, sigquit, sigill, sigtrap, sigabrt, sigemt,
sigfpe, sigkill, sigbus, sigsegv, sigsys, sigpipe, sigalrm,
sigterm, sigurg, sigstop, sigtstp, sigcont, sigchld, sigcld,
sigttin, sigttou, sigio, sigpoll, sigxcpu, sigxfsz, sigvtalrm,
sigprof, sigwinch, siglost, sigusr1, sigusr2): Define for Cygwin.
(getcwd-ll): Not specific to Linux, read-time conditional removed.

Revision 1.302 - (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.301: +5 -0 lines
Diff to previous 1.301 , to selected 1.41
* code/main.lisp (main, main-debug): Isolate CLISP-specific expression
with #+clisp.

Revision 1.301 - (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.300: +18 -0 lines
Diff to previous 1.300 , to selected 1.41
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.300 - (view) (annotate) - [select for diffs]
Mon Nov 27 02:40:01 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.299: +29 -0 lines
Diff to previous 1.299 , to selected 1.41
Implement process pipes. This feature is quite different from
CLISP's make-pipe-*-stream because it doesn't exec a different
process image in the child. Rather, the child process evaluates
an arbitrary Lisp expression. Special trickery is used to ensure
that both the *standard-output* and file descriptor 1 are
redirected (or, *standard-input* and file descriptor 0 in the
case of an input pipe), so that the process /can/ spawn child
programs, as well as use the standrad Lisp file streams, all being
correctly redirected.

* code/clisp-unix.lisp (process-pipe): New struct.
(create-process-pipe, close-process-pipe): New functions.
(*default-execute-filter*): New special variable. This can be set
in order to automatically add an input or output pipe to a
process spawned by the execute-program function.
(execute-program): Observe the value of *default-execute-filter*
and set up a pipe as required. This means that an additional process
is spawned, which handles output from the command being run, or
possibly supplied input to it.
(with-filtered-execute-program): Macro which sets up the
*default-execute-filter* dynamic variable, using syntax which is
similar to that of create-process-pipe. The macro asserts that
in this dynamic scope, calls to execute-program will set up such and
such a filter. A boolean variable additionally controls whether the
construct has any effect at all, allowing it to be turned on and
off.

Revision 1.299 - (view) (annotate) - [select for diffs]
Mon Nov 27 02:25:07 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.298: +12 -0 lines
Diff to previous 1.298 , to selected 1.41
Fix for new issue. CLISP now sets up some restarts, which ANSI
CL allows. Meta-CVS previously assumed that if there are any
restarts visible, they were set up by Meta-CVS itself. The
manifestation of this problem is that there is /always/ a menu,
even for trivial errors which should just terminate.

* code/error.lisp (mcvs-error-handler): Filter the output of
compute-restarts to only work with restarts that are named by symbols
from the META-CVS package.

Revision 1.298 - (view) (annotate) - [select for diffs]
Mon Nov 27 02:18:20 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.297: +8 -0 lines
Diff to previous 1.297 , to selected 1.41
Bugfix and enhancmenet in new CLISP FFI module.

* code/clisp-ffi.lisp (pipe): New call-out function added.
(spawn): Fix reversed result comparison.
(defpackage): Export some new symbols.

Revision 1.297 - (view) (annotate) - [select for diffs]
Mon Nov 27 02:12:57 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.296: +13 -0 lines
Diff to previous 1.296 , to selected 1.41
Bugfix and enhancement in mcvs-filt.

* code/mcvs.filt (mcvs-filt-loop): When a "/F-" pattern is found,
suggesting a F- name embedded in a path, the algorithm was skipping
ahead from that position by 7 characters instead of 3. That's because
that pattern used to be the 7 character "MCVS/F-" string long ago.
The enhancement is that the F- names are now not filtered if they
immediately follow a ".#", which is part of the prefix used by CVS
for naming backup files. The names must not be decoded in this context
since the backup files are not mapped to human-readable names.

Revision 1.296 - (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.295: +22 -0 lines
Diff to previous 1.295 , to selected 1.41
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.295 - (view) (annotate) - [select for diffs]
Fri Nov 24 06:26:08 2006 UTC (7 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.294: +4 -0 lines
Diff to previous 1.294 , to selected 1.41
* code/package.lisp (defpackage): Use keywords instead of strings.

Revision 1.294 - (view) (annotate) - [select for diffs]
Fri Nov 24 05:04:27 2006 UTC (7 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.293: +11 -0 lines
Diff to previous 1.293 , to selected 1.41
Get rid of the ffi-pointer-null stuff, since c-pointer foreign types
are automatically converted to null now.

* code/clisp-ffi.lisp (null-pointer-p): Function removed.

* code/clisp-unix.lisp (pointer-null, null-to-nil, when-not-null):
macros removed.
(opendir, closedir): Revert to normal Lisp null checks.

Revision 1.293 - (view) (annotate) - [select for diffs]
Fri Nov 24 04:53:50 2006 UTC (7 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.292: +45 -0 lines
Diff to previous 1.292 , to selected 1.41
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.292 - (view) (annotate) - [select for diffs]
Fri Nov 24 04:37:53 2006 UTC (7 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.291: +20 -20 lines
Diff to previous 1.291 , to selected 1.41
Spaces to tabs.

Revision 1.291 - (view) (annotate) - [select for diffs]
Fri Nov 24 04:08:24 2006 UTC (7 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.290: +24 -0 lines
Diff to previous 1.290 , to selected 1.41
Rewrote the CLISP bindings. The CLISP FFI is used to directly
access the glibc shared library on Linux. This completely eliminates
the need to create a custom linking set. Meta-CVS can now be built
without any C development tools. The downside is that the the FFI
definitions are not portable, since they depend on the glibc ABI.
Support for other C libraries has to be hacked in the clisp-ffi.lisp
module now. The main() hack is gone now too.

* code/unix-bindings/link.sh: Removed.
* code/unix-bindings/Makefile: Likewise.
* code/unix-bindings/wrap.c: Likewise.

* code/unix-bindings/unix.lisp: Renamed to
code/unix-bindings/clisp-ffi.lisp. Contains revamped FFI definitions
targetting Linux glibc.

* code/install.sh: Substantially simplified. No longer builds a CLISP
linking set. No longer builds the mcvs-upgrade tool, which is not
useful any longer. Error tests eliminated with use of ``set -e''.

* code/mcvs.lisp: Updated to load everything properly.

Revision 1.290 - (view) (annotate) - [select for diffs]
Fri Jun 24 07:22:53 2005 UTC (8 years, 10 months ago) by kaz
Branch: MAIN
Changes since 1.289: +9 -0 lines
Diff to previous 1.289 , to selected 1.41
Add hack to get our own main() function which calls the one
inside CLISP.

* code/unix-bindings/link.sh: Add objcopy hack.

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

Revision 1.289 - (view) (annotate) - [select for diffs]
Sat Dec 11 07:58:05 2004 UTC (9 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.288: +11 -0 lines
Diff to previous 1.288 , to selected 1.41
Get rid of CLISP 2.27 support.

* code/unix-bindings/unix.lisp (null-pointer-p): Function removed.

* code/clisp-unix.lisp: The :clisp-old symbol no longer conditionally
pushed onto *features*
(pointer-null): Just version of the macro present; no more
read-time switch.

Revision 1.288 - (view) (annotate) - [select for diffs]
Mon Jul 26 05:35:49 2004 UTC (9 years, 8 months ago) by kaz
Branch: MAIN
Changes since 1.287: +7 -0 lines
Diff to previous 1.287 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/unix-bindings/unix.lisp: Get rid of bogus version check
which assumes that the version can be read as a floating point
number! Rather than rely on the version, check for the specific
features.

Revision 1.205.2.96 - (view) (annotate) - [select for diffs]
Mon Jul 26 05:33:27 2004 UTC (9 years, 8 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-branch~merged-to-HEAD-0, mcvs-1-0-branch~merged-to-HEAD-1
Changes since 1.205.2.95: +7 -0 lines
Diff to previous 1.205.2.95 , to branch point 1.205 , to next main 1.324 , to selected 1.41
* code/unix-bindings/unix.lisp: Get rid of bogus version check
which assumes that the version can be read as a floating point
number! Rather than rely on the version, check for the specific
features.

Revision 1.287 - (view) (annotate) - [select for diffs]
Wed Mar 10 10:11:30 2004 UTC (10 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: mcvs-1-1-0
Changes since 1.286: +5 -0 lines
Diff to previous 1.286 , to selected 1.41
Do garbage collection before saving image.

Revision 1.286 - (view) (annotate) - [select for diffs]
Mon Mar 8 06:37:22 2004 UTC (10 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.285: +2 -0 lines
Diff to previous 1.285 , to selected 1.41
*** empty log message ***

Revision 1.285 - (view) (annotate) - [select for diffs]
Mon Mar 8 06:11:40 2004 UTC (10 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.284: +14 -0 lines
Diff to previous 1.284 , to selected 1.41
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.284 - (view) (annotate) - [select for diffs]
Wed Feb 4 07:42:32 2004 UTC (10 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.283: +4 -0 lines
Diff to previous 1.283 , to selected 1.41
Merging from mcvs-1-0-branch.

Revision 1.205.2.95 - (view) (annotate) - [select for diffs]
Wed Feb 4 07:42:12 2004 UTC (10 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-13
Changes since 1.205.2.94: +4 -0 lines
Diff to previous 1.205.2.94 , to branch point 1.205 , to selected 1.41
* docs/Meta-CVS-PAPER.txt: Revising and editing.

Revision 1.283 - (view) (annotate) - [select for diffs]
Tue Feb 3 12:30:04 2004 UTC (10 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.282: +8 -0 lines
Diff to previous 1.282 , to selected 1.41
Merging from mcvs-1-0-branch.

Revision 1.205.2.94 - (view) (annotate) - [select for diffs]
Tue Feb 3 11:49:12 2004 UTC (10 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.93: +8 -0 lines
Diff to previous 1.205.2.93 , to branch point 1.205 , to selected 1.41
* code/convert.lisp (mcvs-convert): Ensure that the converted
project has TYPES and .cvsignore files, not just a MAP, and that
these have all the branch and version tags.  This is important,
because users might end up independently adding these on branches
and end up with merge problems.

Revision 1.282 - (view) (annotate) - [select for diffs]
Sun Feb 1 05:14:53 2004 UTC (10 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.281: +23 -10 lines
Diff to previous 1.281 , to selected 1.41
Merging from mcvs-1-0-branch.

Revision 1.205.2.93 - (view) (annotate) - [select for diffs]
Sun Feb 1 05:10:15 2004 UTC (10 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-12
Changes since 1.205.2.92: +23 -10 lines
Diff to previous 1.205.2.92 , to branch point 1.205 , to selected 1.41
* code/clisp-unix.lisp (current-dir-restore): An inner macro
called in-original-dir is now visible to the body enclosed in
current-dir-restore. This allows the current directory to be
temporarily escaped back to the original directory.

* code/convert.lisp (mcvs-convert): Fixed to no longer assume
that the target directory is a sibling of the source.  The two can be
located anywhere.
(*convert-help*): Revise text.

Revision 1.281 - (view) (annotate) - [select for diffs]
Sat Jan 31 23:09:58 2004 UTC (10 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.280: +19 -0 lines
Diff to previous 1.280 , to selected 1.41
Merging from mcvs-1-0-branch.

Revision 1.205.2.92 - (view) (annotate) - [select for diffs]
Sat Jan 31 23:07:09 2004 UTC (10 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.91: +11 -0 lines
Diff to previous 1.205.2.91 , to branch point 1.205 , to selected 1.41
* remap.lisp (mcvs-remap): Provide a restart for continuing in the
case when an F- file is referenced in the MAP, but no working copy of
it exists.  By continuing through all these errors, the MAP is
cleaned of the nonexistent entries, which provies a way to clean
up after the naive ``mcvs convert'' algorithm.

* convert.lisp (*convert-help*): Add text recommending the use
of ``mcvs remap'' to clean up.

Revision 1.205.2.91 - (view) (annotate) - [select for diffs]
Sat Jan 31 22:50:41 2004 UTC (10 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.90: +8 -0 lines
Diff to previous 1.205.2.90 , to branch point 1.205 , to selected 1.41
* convert.lisp (mcvs-convert): RCS files that are in an Attic
subdirectory in the source CVS project end up in the Attic
directory of the target Meta-CVS project.
(remove-attic-component): Return second value that indicates
whether the Attic component was stripped.

Revision 1.280 - (view) (annotate) - [select for diffs]
Thu Jan 29 06:26:13 2004 UTC (10 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.279: +8 -0 lines
Diff to previous 1.279 , to selected 1.41
Merging from mcvs-1-0-branch.

Revision 1.205.2.90 - (view) (annotate) - [select for diffs]
Thu Jan 29 06:10:06 2004 UTC (10 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.89: +1 -0 lines
Diff to previous 1.205.2.89 , to branch point 1.205 , to selected 1.41
Sort the newly created MAP properly.

Revision 1.205.2.89 - (view) (annotate) - [select for diffs]
Thu Jan 29 06:09:10 2004 UTC (10 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.88: +1 -0 lines
Diff to previous 1.205.2.88 , to branch point 1.205 , to selected 1.41
Handle "Attic" input in remove-attic-component.

Revision 1.205.2.88 - (view) (annotate) - [select for diffs]
Thu Jan 29 05:50:39 2004 UTC (10 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.87: +6 -0 lines
Diff to previous 1.205.2.87 , to branch point 1.205 , to selected 1.41
* convert.lisp (mcvs-convert): Skip CVS directories.
In the repository, these contain things like watcher and editor lists,
which probably should not be be replicated in the Meta-CVS sandbox.

Revision 1.279 - (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.278: +11 -0 lines
Diff to previous 1.278 , to selected 1.41
Merging from mcvs-1-0-branch.

Revision 1.205.2.87 - (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
Changes since 1.205.2.86: +11 -0 lines
Diff to previous 1.205.2.86 , to branch point 1.205 , to selected 1.41
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.278 - (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.277: +19 -0 lines
Diff to previous 1.277 , to selected 1.41
Merging from mcvs-1-0-branch.

Revision 1.205.2.86 - (view) (annotate) - [select for diffs]
Thu Jan 29 04:53:12 2004 UTC (10 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.85: +16 -0 lines
Diff to previous 1.205.2.85 , to branch point 1.205 , to selected 1.41
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.277 - (view) (annotate) - [select for diffs]
Wed Jan 28 16:12:42 2004 UTC (10 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.276: +6 -0 lines
Diff to previous 1.276 , to selected 1.41
Merging from mcvs-1-0-branch.

Revision 1.205.2.85 - (view) (annotate) - [select for diffs]
Tue Jan 27 07:32:13 2004 UTC (10 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-11
Changes since 1.205.2.84: +6 -0 lines
Diff to previous 1.205.2.84 , to branch point 1.205 , to selected 1.41
* code/grab.lisp (mcvs-grab): Bugfixes to repeated grab over
partial sandbox: abstract path instead of real path used for
reading new symbolic link targets, and execute permissions.

Revision 1.276 - (view) (annotate) - [select for diffs]
Tue Jan 27 06:43:37 2004 UTC (10 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.275: +5 -0 lines
Diff to previous 1.275 , to selected 1.41
Merging from mcvs-1-0-branch.

Revision 1.205.2.84 - (view) (annotate) - [select for diffs]
Tue Jan 27 06:43:17 2004 UTC (10 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.83: +5 -0 lines
Diff to previous 1.205.2.83 , to branch point 1.205 , to selected 1.41
* code/branch.lisp (equal-sticky): Add missing cases for handling
the valid tag value NIL.

Revision 1.275 - (view) (annotate) - [select for diffs]
Fri Jan 9 05:26:29 2004 UTC (10 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.274: +4 -0 lines
Diff to previous 1.274 , to selected 1.41
Merging from mcvs-1-0-branch.

Revision 1.205.2.83 - (view) (annotate) - [select for diffs]
Fri Jan 9 05:26:13 2004 UTC (10 years, 3 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-10
Changes since 1.205.2.82: +4 -0 lines
Diff to previous 1.205.2.82 , to branch point 1.205 , to selected 1.41
* code/link.lisp (*link-help*): Grammar fix.

Revision 1.274 - (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.273: +5 -0 lines
Diff to previous 1.273 , to selected 1.41
Merging from mcvs-1-0-branch.

Revision 1.205.2.82 - (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
Changes since 1.205.2.81: +5 -0 lines
Diff to previous 1.205.2.81 , to branch point 1.205 , to selected 1.41
* code/options.lisp (process-cvs-options): Update
--version copyright message to 2004.

Revision 1.273 - (view) (annotate) - [select for diffs]
Fri Jan 9 05:18:14 2004 UTC (10 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.272: +48 -0 lines
Diff to previous 1.272 , to selected 1.41
Merging from mcvs-1-0-branch.

Revision 1.205.2.81 - (view) (annotate) - [select for diffs]
Fri Jan 9 05:09:20 2004 UTC (10 years, 3 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.80: +19 -0 lines
Diff to previous 1.205.2.80 , to branch point 1.205 , to selected 1.41
Parsing directory sticky tag from CVS/Tag requires
slightly different logic from the sticky tags in CVS/Entries.
CVS/Entries doesn't distinguish branch and version
sticky tags.

This change gets rid of the incorrect warning about
not all files being on the same tag when the working
copy is sticky to a version tag.

* code/branch.lisp (parse-sticky): Function renamed to
parse-dir-sticky.
(parse-entries-sticky): New function.
(equal-sticky): New function.
(read-cvs-entries): Use parse-entries-sticky.
(same-tag-check): Use equal-sticky instead of equal.
(what-are-we-sticky-to): Use parse-dir-sticky.

Revision 1.205.2.80 - (view) (annotate) - [select for diffs]
Thu Jan 8 15:34:05 2004 UTC (10 years, 3 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.79: +29 -0 lines
Diff to previous 1.205.2.79 , to branch point 1.205 , to selected 1.41
* code/grab.lisp (*grab-help*): Spelling error.

* code/system.lisp: Require posix module before clisp-unix,
which wants it.

* code/clisp-unix.lisp: Don't bother requiring posix,
since it comes from system.
Require "chatter" rather than "chatter.lisp"; this is why
were not getting the compiled version of this module
into the images.

* code/unix-bindings/unix.lisp: If the CLISP version is
newer than 2.31 then set the variables ffi::*output-c-functions*
and ffi::*output-c-variables* to get the old translator
behavior.

Revision 1.272 - (view) (annotate) - [select for diffs]
Wed Jul 16 15:44:51 2003 UTC (10 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.271: +13 -0 lines
Diff to previous 1.271 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/mcvs-generic.lisp (mcvs-generic): Removed
the default-include-meta-files keyword parameter.
(mcvs-tag, mcvs-commit): Remove use of keyword parameter.
This fixes the silly behavior of including meta files
even when the command line specifies a file list.
Also, bugfix: *nometa-option* now works when
global-if-empty-file-list is true, and there are no files.

* code/update.lisp (mcvs-update): Remove use of keyword
parameter in call to mcvs-generic.

Revision 1.205.2.79 - (view) (annotate) - [select for diffs]
Wed Jul 16 15:44:11 2003 UTC (10 years, 9 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-9
Changes since 1.205.2.78: +13 -0 lines
Diff to previous 1.205.2.78 , to branch point 1.205 , to selected 1.41
* code/mcvs-generic.lisp (mcvs-generic): Removed
the default-include-meta-files keyword parameter.
(mcvs-tag, mcvs-commit): Remove use of keyword parameter.
This fixes the silly behavior of including meta files
even when the command line specifies a file list.
Also, bugfix: *nometa-option* now works when
global-if-empty-file-list is true, and there are no files.

* code/update.lisp (mcvs-update): Remove use of keyword
parameter in call to mcvs-generic.

Revision 1.271 - (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.270: +2 -0 lines
Diff to previous 1.270 , to selected 1.41
Merging from mcvs-1-0-branch.

Revision 1.205.2.78 - (view) (annotate) - [select for diffs]
Wed Jul 16 05:36:55 2003 UTC (10 years, 9 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.77: +2 -0 lines
Diff to previous 1.205.2.77 , to branch point 1.205 , to selected 1.41
Give credit to Walter Pelissero.

Revision 1.270 - (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.269: +12 -0 lines
Diff to previous 1.269 , to selected 1.41
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.205.2.77 - (view) (annotate) - [select for diffs]
Mon Jul 7 04:04:57 2003 UTC (10 years, 9 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.76: +7 -0 lines
Diff to previous 1.205.2.76 , to branch point 1.205 , to selected 1.41
* 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.205.2.76 - (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.205.2.75: +5 -0 lines
Diff to previous 1.205.2.75 , to branch point 1.205 , to selected 1.41
* code/mcvs-main.lisp (mcvs-help): Move some special declarations
out of the function to the top level.

Revision 1.269 - (view) (annotate) - [select for diffs]
Sun May 25 16:11:31 2003 UTC (10 years, 11 months ago) by kaz
Branch: MAIN
Changes since 1.268: +7 -0 lines
Diff to previous 1.268 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/filt.lisp (mcvs-filt-loop): Do not filter F- names that
are embedded in paths (preceded by a slash). This supersedes
the old behavior which was to avoid filtering F- names preceded
by "MCVS/".

Revision 1.205.2.75 - (view) (annotate) - [select for diffs]
Sun May 25 16:09:35 2003 UTC (10 years, 11 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-8
Changes since 1.205.2.74: +7 -0 lines
Diff to previous 1.205.2.74 , to branch point 1.205 , to selected 1.41
* code/filt.lisp (mcvs-filt-loop): Do not filter F- names that
are embedded in paths (preceded by a slash). This supersedes
the old behavior which was to avoid filtering F- names preceded
by "MCVS/".

Revision 1.268 - (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.267: +12 -0 lines
Diff to previous 1.267 , to selected 1.41
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.205.2.74 - (view) (annotate) - [select for diffs]
Thu May 1 05:39:58 2003 UTC (10 years, 11 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.73: +5 -0 lines
Diff to previous 1.205.2.73 , to branch point 1.205 , to selected 1.41
* code/generic.lisp (mcvs-generic): The after-synchronization
was going in both directions rather than just MCVS -> tree.

Revision 1.205.2.73 - (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
Changes since 1.205.2.72: +7 -0 lines
Diff to previous 1.205.2.72 , to branch point 1.205 , to selected 1.41
* 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.267 - (view) (annotate) - [select for diffs]
Mon Apr 28 06:20:45 2003 UTC (10 years, 11 months ago) by kaz
Branch: MAIN
Changes since 1.266: +10 -0 lines
Diff to previous 1.266 , to selected 1.41
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.205.2.72 - (view) (annotate) - [select for diffs]
Fri Apr 25 07:08:06 2003 UTC (11 years ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.71: +4 -0 lines
Diff to previous 1.205.2.71 , to branch point 1.205 , to selected 1.41
* docs/generate.sh: Use valid shell syntax for identifiers.

Revision 1.205.2.71 - (view) (annotate) - [select for diffs]
Fri Apr 25 06:44:02 2003 UTC (11 years ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.70: +6 -0 lines
Diff to previous 1.205.2.70 , to branch point 1.205 , to selected 1.41
* 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.266 - (view) (annotate) - [select for diffs]
Thu Apr 24 04:33:15 2003 UTC (11 years ago) by kaz
Branch: MAIN
Changes since 1.265: +13 -0 lines
Diff to previous 1.265 , to selected 1.41
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.205.2.70 - (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.205.2.69: +13 -0 lines
Diff to previous 1.205.2.69 , to branch point 1.205 , to selected 1.41
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.265 - (view) (annotate) - [select for diffs]
Thu Apr 24 04:14:41 2003 UTC (11 years ago) by kaz
Branch: MAIN
Changes since 1.264: +31 -0 lines
Diff to previous 1.264 , to selected 1.41
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.205.2.69 - (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.205.2.68: +31 -0 lines
Diff to previous 1.205.2.68 , to branch point 1.205 , to selected 1.41
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.264 - (view) (annotate) - [select for diffs]
Wed Apr 23 05:39:27 2003 UTC (11 years ago) by kaz
Branch: MAIN
Changes since 1.263: +37 -0 lines
Diff to previous 1.263 , to selected 1.41
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.205.2.68 - (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.205.2.67: +37 -0 lines
Diff to previous 1.205.2.67 , to branch point 1.205 , to selected 1.41
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.263 - (view) (annotate) - [select for diffs]
Tue Apr 22 06:28:16 2003 UTC (11 years ago) by kaz
Branch: MAIN
Changes since 1.262: +25 -0 lines
Diff to previous 1.262 , to selected 1.41
Merging from mcvs-1-0-branch.

Slightly redesigned error handling protocol.

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

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

* code/error.lisp (mcvs-error-handler): Specially recognize two
additional restart symbols, bail and info. A bail restart performs
any rolling back and cleanup and terminates. Continuation is now
properly reserved for actions that proceed boldly to finish
the job, possibly irretrievably clobbering precious data.
The info restart is now a standard way to indicate that more
details about the error can be obtained, so this does not have
to be represented as a special action with an ad-hoc restart.

* code/create.lisp (mcvs-create): Change show restart to info.

* code/remap.lisp (mcvs-remap): Change ignore restart to continue.

* code/mapping.lisp (mapping-update): Change ignore and do-clobber
restarts to continue, and print-clobbers restart to info.
Change continue restart to bail.

Revision 1.205.2.67 - (view) (annotate) - [select for diffs]
Tue Apr 22 05:53:42 2003 UTC (11 years ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.66: +25 -0 lines
Diff to previous 1.205.2.66 , to branch point 1.205 , to selected 1.41
Slightly redesigned error handling protocol.

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

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

* code/error.lisp (mcvs-error-handler): Specially recognize two
additional restart symbols, bail and info. A bail restart performs
any rolling back and cleanup and terminates. Continuation is now
properly reserved for actions that proceed boldly to finish
the job, possibly irretrievably clobbering precious data.
The info restart is now a standard way to indicate that more
details about the error can be obtained, so this does not have
to be represented as a special action with an ad-hoc restart.

* code/create.lisp (mcvs-create): Change show restart to info.

* code/remap.lisp (mcvs-remap): Change ignore restart to continue.

* code/mapping.lisp (mapping-update): Change ignore and do-clobber
restarts to continue, and print-clobbers restart to info.
Change continue restart to bail.

Revision 1.262 - (view) (annotate) - [select for diffs]
Wed Apr 16 05:12:20 2003 UTC (11 years ago) by kaz
Branch: MAIN
Changes since 1.261: +22 -1 lines
Diff to previous 1.261 , to selected 1.41
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.205.2.66 - (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.205.2.65: +22 -1 lines
Diff to previous 1.205.2.65 , to branch point 1.205 , to selected 1.41
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.261 - (view) (annotate) - [select for diffs]
Mon Apr 14 04:29:46 2003 UTC (11 years ago) by kaz
Branch: MAIN
Changes since 1.260: +6 -0 lines
Diff to previous 1.260 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/grab.lisp (read-word-hash): Convert each token to a simple
string object. This can save a lot of memory when large numbers
of files have to be analyzed.

Revision 1.205.2.65 - (view) (annotate) - [select for diffs]
Mon Apr 14 04:29:06 2003 UTC (11 years ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-6
Changes since 1.205.2.64: +6 -0 lines
Diff to previous 1.205.2.64 , to branch point 1.205 , to selected 1.41
* code/grab.lisp (read-word-hash): Convert each token to a simple
string object. This can save a lot of memory when large numbers
of files have to be analyzed.

Revision 1.260 - (view) (annotate) - [select for diffs]
Sun Apr 13 14:39:10 2003 UTC (11 years ago) by kaz
Branch: MAIN
Changes since 1.259: +61 -0 lines
Diff to previous 1.259 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/mapping.lisp (mapping-read): Provide a restart for
file errors, which lets the user interactively substitute an
empty map if the file can't be read. This is intended to handle
the case when MCVS/MAP is missing; for example, the user
updated to a sticky date for which no revision of the MAP
exists. The effect of continuing will be that all files
will disappear.
(mapping-synchronize): New :direction key
parameter, passed down to synchronize-filed. The new :no-sync
return value from synchronize-files is handled.
(mapping-update): Select the :right direction for synchronizing
moves, adds or rollbacks.

Revamped the synchronization logic. Synchronization now happens
in a specific direction.  For example, if we are doing a diff,
we just need to push changes from the tree to the MCVS directory,
not the other way around. Or: before an update or commit, we push from
the tree to MCVS, then after the update, in the other direction.

* code/update.lisp (mcvs-update): The before update is done
in the :left direction only, and the after update in the :right.

* code/move.lisp (mcvs-move): The just-in-case sync is done
in the :left direction only.

* code/link.lisp (mcvs-link): Likewise.

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

* code/add.lisp (mcvs-add): Get rid of mapping-synchronize call;
it's completely unnecessary, since the new files are not even
in the MAP-LOCAL, and the add logic explicitly links them into
the MCVS directory.

* code/generic.lisp (mcvs-generic): New keyword parameter,
need-sync-before. Before-synchronization done in :left direction,
after-synchronization in :right direction. Before-synchronization
is now not done by default; need-sync-before must be specified.
(mcvs-commit-wrapper): Specify before and after sync.
(mcvs-diff-wrapper, mcvs-status-wrapper,
mcvs-edit-wrapper): Explicitly specify before sync.
(mcvs-tag-wrapper, mcvs-annotate-wrapper): Implicitly specify no sync.
(mcvs-unedit-wrapper): Add before sync.

* code/sync.lisp (synchronize-files):  New key parameter :direction,
values can be :left, :right or :either. Default is :either.
If the value is :left or :right, then a sync is done only in that
direction, otherwise the value :no-sync is returned.
Behavior change: if the left file is missing (F- file in MCVS
directory) it is not re-created, but rather :no-sync is returned.
Also, if both files exist, have the same timestamp, and are
distinct objects, if the direction is :left or :right, then
the appropriate restart is automatically chosen. So this will
do the right thing on filesystems where link() is performed by
copying, without bothering the user with the error.

Revision 1.259 - (view) (annotate) - [select for diffs]
Sun Apr 13 14:36:05 2003 UTC (11 years ago) by kaz
Branch: MAIN
Changes since 1.258: +8 -0 lines
Diff to previous 1.258 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/execute.lisp (execute-program-xargs): Fix again: perform
all of the split command lines, even if some of them fail.
The returned status is a logical AND combination; if all of the
subcommands succeeded then it's T, otherwise NIL.

Revision 1.205.2.64 - (view) (annotate) - [select for diffs]
Sun Apr 13 06:32:27 2003 UTC (11 years ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.63: +10 -0 lines
Diff to previous 1.205.2.63 , to branch point 1.205 , to selected 1.41
* code/mapping.lisp (mapping-read): Provide a restart for
file errors, which lets the user interactively substitute an
empty map if the file can't be read. This is intended to handle
the case when MCVS/MAP is missing; for example, the user
updated to a sticky date for which no revision of the MAP
exists. The effect of continuing will be that all files
will disappear.

Revision 1.205.2.63 - (view) (annotate) - [select for diffs]
Sun Apr 13 06:22:43 2003 UTC (11 years ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.62: +51 -0 lines
Diff to previous 1.205.2.62 , to branch point 1.205 , to selected 1.41
Revamped the synchronization logic. Synchronization now happens
in a specific direction.  For example, if we are doing a diff,
we just need to push changes from the tree to the MCVS directory,
not the other way around. Or: before an update or commit, we push from
the tree to MCVS, then after the update, in the other direction.

* code/update.lisp (mcvs-update): The before update is done
in the :left direction only, and the after update in the :right.

* code/move.lisp (mcvs-move): The just-in-case sync is done
in the :left direction only.

* code/link.lisp (mcvs-link): Likewise.

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

* code/add.lisp (mcvs-add): Get rid of mapping-synchronize call;
it's completely unnecessary, since the new files are not even
in the MAP-LOCAL, and the add logic explicitly links them into
the MCVS directory.

* code/generic.lisp (mcvs-generic): New keyword parameter,
need-sync-before. Before-synchronization done in :left direction,
after-synchronization in :right direction. Before-synchronization
is now not done by default; need-sync-before must be specified.
(mcvs-commit-wrapper): Specify before and after sync.
(mcvs-diff-wrapper, mcvs-status-wrapper,
mcvs-edit-wrapper): Explicitly specify before sync.
(mcvs-tag-wrapper, mcvs-annotate-wrapper): Implicitly specify no sync.
(mcvs-unedit-wrapper): Add before sync.

* code/sync.lisp (synchronize-files):  New key parameter :direction,
values can be :left, :right or :either. Default is :either.
If the value is :left or :right, then a sync is done only in that
direction, otherwise the value :no-sync is returned.
Behavior change: if the left file is missing (F- file in MCVS
directory) it is not re-created, but rather :no-sync is returned.
Also, if both files exist, have the same timestamp, and are
distinct objects, if the direction is :left or :right, then
the appropriate restart is automatically chosen. So this will
do the right thing on filesystems where link() is performed by
copying, without bothering the user with the error.

* code/mapping.lisp (mapping-synchronize): New :direction key
parameter, passed down to synchronize-filed. The new :no-sync
return value from synchronize-files is handled.
(mapping-update): Select the :right direction for synchronizing
moves, adds or rollbacks.

Revision 1.205.2.62 - (view) (annotate) - [select for diffs]
Mon Apr 7 01:24:30 2003 UTC (11 years ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.61: +8 -0 lines
Diff to previous 1.205.2.61 , to branch point 1.205 , to selected 1.41
* code/posix.lisp (execute-program-xargs): Fix again: perform
all of the split command lines, even if some of them fail.
The returned status is a logical AND combination; if all of the
subcommands succeeded then it's T, otherwise NIL.

Revision 1.258 - (view) (annotate) - [select for diffs]
Tue Apr 1 06:41:50 2003 UTC (11 years ago) by kaz
Branch: MAIN
Changes since 1.257: +7 -0 lines
Diff to previous 1.257 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/execute.lisp (execute-program-xargs): Bugfix: if program
execution fails, then bail out of the entire function, not just
the inner loop. Otherwise the program is wrongly run again,
on a bogus file list.

Revision 1.205.2.61 - (view) (annotate) - [select for diffs]
Tue Apr 1 06:37:46 2003 UTC (11 years ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.60: +7 -0 lines
Diff to previous 1.205.2.60 , to branch point 1.205 , to selected 1.41
* code/posix.lisp (execute-program-xargs): Bugfix: if program
execution fails, then bail out of the entire function, not just
the inner loop. Otherwise the program is wrongly run again,
on a bogus file list.

Revision 1.257 - (view) (annotate) - [select for diffs]
Wed Mar 5 05:18:04 2003 UTC (11 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.256: +10 -0 lines
Diff to previous 1.256 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/update.lisp (mcvs-update): Simplified restart code.

* code/restart.lisp (parse-restart-case-keywords): New function.
(super-restart-case-expander): Some logic factored out
into new function.

Revision 1.205.2.60 - (view) (annotate) - [select for diffs]
Wed Mar 5 05:15:42 2003 UTC (11 years, 1 month ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.59: +4 -0 lines
Diff to previous 1.205.2.59 , to branch point 1.205 , to selected 1.41
* code/update.lisp (mcvs-update): Simplified restart code.

Revision 1.205.2.59 - (view) (annotate) - [select for diffs]
Wed Mar 5 04:57:42 2003 UTC (11 years, 1 month ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.58: +6 -0 lines
Diff to previous 1.205.2.58 , to branch point 1.205 , to selected 1.41
* code/restart.lisp (parse-restart-case-keywords): New function.
(super-restart-case-expander): Some logic factored out
into new function.

Revision 1.256 - (view) (annotate) - [select for diffs]
Tue Mar 4 05:55:11 2003 UTC (11 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.255: +5 -0 lines
Diff to previous 1.255 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/mapping.lisp (mapping-update): Rewrite restart-bind
block using super-restart-case.

Revision 1.205.2.58 - (view) (annotate) - [select for diffs]
Tue Mar 4 05:51:26 2003 UTC (11 years, 1 month ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.57: +5 -0 lines
Diff to previous 1.205.2.57 , to branch point 1.205 , to selected 1.41
* code/mapping.lisp (mapping-update): Rewrite restart-bind
block using super-restart-case.

Revision 1.255 - (view) (annotate) - [select for diffs]
Sun Mar 2 07:23:08 2003 UTC (11 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.254: +7 -0 lines
Diff to previous 1.254 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/restart.lisp (super-restart-case-expander): Roll the
functionality of :report-format into :report.
(super-restart-case): Slight rearrangement of the tagbody
to eliminate the skip around the out-code.

Revision 1.205.2.57 - (view) (annotate) - [select for diffs]
Sun Mar 2 07:22:31 2003 UTC (11 years, 1 month ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.56: +7 -0 lines
Diff to previous 1.205.2.56 , to branch point 1.205 , to selected 1.41
* code/restart.lisp (super-restart-case-expander): Roll the
functionality of :report-format into :report.
(super-restart-case): Slight rearrangement of the tagbody
to eliminate the skip around the out-code.

Revision 1.254 - (view) (annotate) - [select for diffs]
Sun Mar 2 06:57:28 2003 UTC (11 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.253: +8 -0 lines
Diff to previous 1.253 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/restart.lisp (super-restart-case-expander): New function.
(super-restart-case): New macro.

* code/create.lisp (mcvs-create): Rewrite a restart-bind
construct more succinctly using super-restart-case.

Revision 1.205.2.56 - (view) (annotate) - [select for diffs]
Sun Mar 2 06:56:07 2003 UTC (11 years, 1 month ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.55: +8 -0 lines
Diff to previous 1.205.2.55 , to branch point 1.205 , to selected 1.41
* code/restart.lisp (super-restart-case-expander): New function.
(super-restart-case): New macro.

* code/create.lisp (mcvs-create): Rewrite a restart-bind
construct more succinctly using super-restart-case.

Revision 1.253 - (view) (annotate) - [select for diffs]
Thu Feb 27 06:01:28 2003 UTC (11 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.252: +10 -0 lines
Diff to previous 1.252 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/create.lisp (mcvs-create): After the TYPES file is
edited, scan the MCVS directory for unexpected files.
The intent is to detect text editor backups. If any are
found, some interactive error handling lets the user acknowledge
their deletion. If they are not deleted, then cvs import will
bring them into the repository. This behavior was discovered
by Johannes Grødem who suggested that it could be handled.

Revision 1.205.2.55 - (view) (annotate) - [select for diffs]
Thu Feb 27 05:59:38 2003 UTC (11 years, 1 month ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.54: +10 -0 lines
Diff to previous 1.205.2.54 , to branch point 1.205 , to selected 1.41
* code/create.lisp (mcvs-create): After the TYPES file is
edited, scan the MCVS directory for unexpected files.
The intent is to detect text editor backups. If any are
found, some interactive error handling lets the user acknowledge
their deletion. If they are not deleted, then cvs import will
bring them into the repository. This behavior was discovered
by Johannes Grødem who suggested that it could be handled.

Revision 1.252 - (view) (annotate) - [select for diffs]
Wed Feb 26 03:54:39 2003 UTC (11 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.251: +10 -0 lines
Diff to previous 1.251 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/unix-bindings/wrap.c (mcvs_spawn): One more waitpid() bug!
The SIGCHLD signal handler was being set in the child process only,
so although we fixed the waitpid() behavior in the CVS child
process, we did not fix it in the Meta-CVS process. The ECHILD
problem was sporadically reproduced by Johannes Grødem on a fast
Athlon machine; it requires CVS to exit before Meta-CVS reaches
the waitpid() call.

Revision 1.205.2.54 - (view) (annotate) - [select for diffs]
Wed Feb 26 03:53:28 2003 UTC (11 years, 1 month ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-5
Changes since 1.205.2.53: +10 -0 lines
Diff to previous 1.205.2.53 , to branch point 1.205 , to selected 1.41
* code/unix-bindings/wrap.c (mcvs_spawn): One more waitpid() bug!
The SIGCHLD signal handler was being set in the child process only,
so although we fixed the waitpid() behavior in the CVS child
process, we did not fix it in the Meta-CVS process. The ECHILD
problem was sporadically reproduced by Johannes Grødem on a fast
Athlon machine; it requires CVS to exit before Meta-CVS reaches
the waitpid() call.

Revision 1.251 - (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.250: +10 -0 lines
Diff to previous 1.250 , to selected 1.41
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.205.2.53 - (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
Changes since 1.205.2.52: +10 -0 lines
Diff to previous 1.205.2.52 , to branch point 1.205 , to selected 1.41
* 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.250 - (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.249: +5 -0 lines
Diff to previous 1.249 , to selected 1.41
Merging from mcvs-1-0-branch.

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

Revision 1.205.2.52 - (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
Changes since 1.205.2.51: +5 -0 lines
Diff to previous 1.205.2.51 , to branch point 1.205 , to selected 1.41
* code/mcvs-main.lisp (*usage*): Add help text for --up option.

Revision 1.205.2.51 - (view) (annotate) - [select for diffs]
Fri Feb 21 06:48:56 2003 UTC (11 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-4
Changes since 1.205.2.50: +1 -1 lines
Diff to previous 1.205.2.50 , to branch point 1.205 , to selected 1.41
Fix date.

Revision 1.249 - (view) (annotate) - [select for diffs]
Fri Feb 21 06:48:43 2003 UTC (11 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.248: +15 -0 lines
Diff to previous 1.248 , to selected 1.41
Merging from mcvs-1-0-branch.

Fix remaining occurences of SIG_IGN action for SIGCHLD being
passed to child processes.

* code/unix-bindings/unix.lisp (unix-funcs:default-sigchld): New call
out function.

* code/clisp-unix.lisp (with-input-from-program,
with-output-to-program): Call the new default-sigchild function
to set SIGCHILD signal handler to SIG_DFL just before creating
the pipe.

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

Revision 1.205.2.50 - (view) (annotate) - [select for diffs]
Fri Feb 21 06:21:51 2003 UTC (11 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.49: +15 -0 lines
Diff to previous 1.205.2.49 , to branch point 1.205 , to selected 1.41
Fix remaining occurences of SIG_IGN action for SIGCHLD being
passed to child processes.

* code/unix-bindings/unix.lisp (unix-funcs:default-sigchld): New call
out function.

* code/clisp-unix.lisp (with-input-from-program,
with-output-to-program): Call the new default-sigchild function
to set SIGCHILD signal handler to SIG_DFL just before creating
the pipe.

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

Revision 1.248 - (view) (annotate) - [select for diffs]
Tue Feb 18 07:00:40 2003 UTC (11 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.247: +10 -0 lines
Diff to previous 1.247 , to selected 1.41
Fix portability mistakes.

* code/grab.lisp (read-word-hash): Use the standard code-char
function instead of the int-char CLISP extension.

* code/branch.lisp (parse-sticky, mcvs-list-branches): Use the
portable subseq function instead of CLISP's ext::substring.

Revision 1.247 - (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.246: +20 -0 lines
Diff to previous 1.246 , to selected 1.41
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.205.2.49 - (view) (annotate) - [select for diffs]
Thu Feb 13 07:20:48 2003 UTC (11 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.48: +15 -0 lines
Diff to previous 1.205.2.48 , to branch point 1.205 , to selected 1.41
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.205.2.48 - (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.205.2.47: +5 -0 lines
Diff to previous 1.205.2.47 , to branch point 1.205 , to selected 1.41
* code/mcvs-main.lisp (*cvs-options*): Constant renamed
to *global-options*.

Revision 1.246 - (view) (annotate) - [select for diffs]
Thu Feb 13 06:16:42 2003 UTC (11 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.245: +9 -0 lines
Diff to previous 1.245 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/unix-bindings/wrap.c (mcvs-spawn): In the child process,
reset the signal handler for SIGCHLD to SIG_DFL before exec-ing
the new image. This is needed because CLISP set it to SIG_IGN,
which causes child reaping problems in spawned programs.
This should fix the ``No child processes'' problem when running
CVS from Meta-CVS.

Revision 1.205.2.47 - (view) (annotate) - [select for diffs]
Thu Feb 13 06:10:16 2003 UTC (11 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.46: +9 -0 lines
Diff to previous 1.205.2.46 , to branch point 1.205 , to selected 1.41
* code/unix-bindings/wrap.c (mcvs-spawn): In the child process,
reset the signal handler for SIGCHLD to SIG_DFL before exec-ing
the new image. This is needed because CLISP set it to SIG_IGN,
which causes child reaping problems in spawned programs.
This should fix the ``No child processes'' problem when running
CVS from Meta-CVS.

Revision 1.245 - (view) (annotate) - [select for diffs]
Wed Feb 12 07:02:13 2003 UTC (11 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.244: +7 -0 lines
Diff to previous 1.244 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/memoize.lisp (remove-key-aux-rest, strip-lambda-list,
extract-tests, remove-tests, memoize-expander, factor-memo-labels,
define-memoized-function, memoized-labels): Documentation strings
added to this cryptic code.

Revision 1.205.2.46 - (view) (annotate) - [select for diffs]
Wed Feb 12 07:01:13 2003 UTC (11 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.45: +7 -0 lines
Diff to previous 1.205.2.45 , to branch point 1.205 , to selected 1.41
* code/memoize.lisp (remove-key-aux-rest, strip-lambda-list,
extract-tests, remove-tests, memoize-expander, factor-memo-labels,
define-memoized-function, memoized-labels): Documentation strings
added to this cryptic code.

Revision 1.244 - (view) (annotate) - [select for diffs]
Tue Feb 4 14:56:09 2003 UTC (11 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.243: +13 -0 lines
Diff to previous 1.243 , to selected 1.41
Merging from mcvs-1-0-branch.

Make tag command work on whole tree if no arguments are given,
just like commit.

* code/generic.lisp (mcvs-generic): no-fix-empty-filelist keyword
parameter renamed to global-if-empty-file-list, which more closely
reveals the purpose.
(mcvs-commit-wrapper): Use new keyword name.
(mcvs-tag-wrapper): Specify T value for :global-if-empty-filelist
argument, so the whole project is tagged by default if no arguments
are given.

Revision 1.205.2.45 - (view) (annotate) - [select for diffs]
Mon Feb 3 05:30:35 2003 UTC (11 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-2
Changes since 1.205.2.44: +13 -0 lines
Diff to previous 1.205.2.44 , to branch point 1.205 , to selected 1.41
Make tag command work on whole tree if no arguments are given,
just like commit.

* code/generic.lisp (mcvs-generic): no-fix-empty-filelist keyword
parameter renamed to global-if-empty-file-list, which more closely
reveals the purpose.
(mcvs-commit-wrapper): Use new keyword name.
(mcvs-tag-wrapper): Specify T value for :global-if-empty-filelist
argument, so the whole project is tagged by default if no arguments
are given.

Revision 1.243 - (view) (annotate) - [select for diffs]
Sun Feb 2 19:38:12 2003 UTC (11 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.242: +6 -0 lines
Diff to previous 1.242 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/unix-bindings/wrap.c (impl_spawn): Try waitpid again in a loop
while it returns -1, and errno is EINTR.
Reported by Johannes Grødem <johs@copyleft.no>.

Revision 1.205.2.44 - (view) (annotate) - [select for diffs]
Sun Feb 2 03:31:35 2003 UTC (11 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.43: +6 -0 lines
Diff to previous 1.205.2.43 , to branch point 1.205 , to selected 1.41
* code/unix-bindings/wrap.c (impl_spawn): Try waitpid again in a loop
while it returns -1, and errno is EINTR.
Reported by Johannes Grødem <johs@copyleft.no>.

Revision 1.242 - (view) (annotate) - [select for diffs]
Thu Jan 30 11:06:43 2003 UTC (11 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.241: +9 -0 lines
Diff to previous 1.241 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/paths.lisp: Move some (declaim inline) to the correct
location, before the function to be inlined.

* code/clisp-unix.lisp: Likewise.
* code/cmucl-unix.lisp: Likewise.
* code/mapping.lisp: Likewise.

Revision 1.205.2.43 - (view) (annotate) - [select for diffs]
Thu Jan 30 11:04:43 2003 UTC (11 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0-1
Changes since 1.205.2.42: +9 -0 lines
Diff to previous 1.205.2.42 , to branch point 1.205 , to selected 1.41
* code/posix.lisp: Move some (declaim inline) to the correct
location, before the function to be inlined.

* code/clisp-unix.lisp: Likewise.
* code/cmucl-unix.lisp: Likewise.
* code/mapping.lisp: Likewise.

Revision 1.241 - (view) (annotate) - [select for diffs]
Sun Jan 26 00:57:24 2003 UTC (11 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.240: +1 -0 lines
Diff to previous 1.240 , to selected 1.41
Merging from mcvs-1-0-branch.

Revision 1.205.2.42 - (view) (annotate) - [select for diffs]
Sun Jan 26 00:57:07 2003 UTC (11 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.41: +1 -0 lines
Diff to previous 1.205.2.41 , to branch point 1.205 , to selected 1.41
Credit for bug report.

Revision 1.240 - (view) (annotate) - [select for diffs]
Sun Jan 26 00:50:13 2003 UTC (11 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.239: +11 -0 lines
Diff to previous 1.239 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/unix-bindings/wrap.c (mcvs_getcwd): If getcwd() returns
NULL, it only means that the buffer is too small if errno is also
set to ERANGE. This second condition was not being tested.

* code/clisp-unix.lisp (getcwd-error): New condition.
(initialize-instance (getcwd-error)): New method.
(getcwd): Raise getcwd-error condition if unix-funcs::getcwd
returns NIL.

Revision 1.205.2.41 - (view) (annotate) - [select for diffs]
Sun Jan 26 00:44:10 2003 UTC (11 years, 2 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.40: +11 -0 lines
Diff to previous 1.205.2.40 , to branch point 1.205 , to selected 1.41
* code/unix-bindings/wrap.c (mcvs_getcwd): If getcwd() returns
NULL, it only means that the buffer is too small if errno is also
set to ERANGE. This second condition was not being tested.

* code/clisp-unix.lisp (getcwd-error): New condition.
(initialize-instance (getcwd-error)): New method.
(getcwd): Raise getcwd-error condition if unix-funcs::getcwd
returns NIL.

Revision 1.239 - (view) (annotate) - [select for diffs]
Thu Jan 16 05:07:21 2003 UTC (11 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.238: +10 -0 lines
Diff to previous 1.238 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/unix-bindings/impl.c: File renamed to wrap.c.
(impl_null_pointer_p, impl_get_errno, impl_set_errno, impl_readdir,
impl_readlink, impl_stat, impl_lstat, impl_fstat, impl_getcwd,
impl_spawn): Prefix changed from ``impl_'' to ``mcvs_''.

* code/unix-bindings/link.sh, code/unix-bindings/Makefile,
code/unix-bindings/unix.lisp: Updated accordingly.

Revision 1.205.2.40 - (view) (annotate) - [select for diffs]
Thu Jan 16 05:06:08 2003 UTC (11 years, 3 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.39: +10 -0 lines
Diff to previous 1.205.2.39 , to branch point 1.205 , to selected 1.41
* code/unix-bindings/impl.c: File renamed to wrap.c.
(impl_null_pointer_p, impl_get_errno, impl_set_errno, impl_readdir,
impl_readlink, impl_stat, impl_lstat, impl_fstat, impl_getcwd,
impl_spawn): Prefix changed from ``impl_'' to ``mcvs_''.

* code/unix-bindings/link.sh, code/unix-bindings/Makefile,
code/unix-bindings/unix.lisp: Updated accordingly.

Revision 1.238 - (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.237: +13 -0 lines
Diff to previous 1.237 , to selected 1.41
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.205.2.39 - (view) (annotate) - [select for diffs]
Tue Jan 14 05:50:41 2003 UTC (11 years, 3 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.38: +13 -1 lines
Diff to previous 1.205.2.38 , to branch point 1.205 , to selected 1.41
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.237 - (view) (annotate) - [select for diffs]
Tue Jan 14 05:46:15 2003 UTC (11 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.236: +6 -0 lines
Diff to previous 1.236 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/install.sh: More fail-safe way to locate library directory;
works even when clisp executable is a symlink.  Thanks to Sam
Steingold, CLISP maintainer, for tip.

Revision 1.205.2.38 - (view) (annotate) - [select for diffs]
Tue Jan 14 05:45:38 2003 UTC (11 years, 3 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.37: +7 -0 lines
Diff to previous 1.205.2.37 , to branch point 1.205 , to selected 1.41
* code/install.sh: More fail-safe way to locate library directory;
works even when clisp executable is a symlink.  Thanks to Sam
Steingold, CLISP maintainer, for tip.

Revision 1.236 - (view) (annotate) - [select for diffs]
Sun Jan 12 20:52:30 2003 UTC (11 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.235: +10 -0 lines
Diff to previous 1.235 , to selected 1.41
Merging from mcvs-1-0-branch.

Hard link sync optimization.

* code/mapping.lisp (mapping-synchronize): New optional parameter,
specifies map to use instead of reading *map-local*.

* code/mcvs-generic.lisp (mcvs-generic): Pass extra parameter to
mapping-synchronize to only sync the selected subset of files.

Revision 1.205.2.37 - (view) (annotate) - [select for diffs]
Sun Jan 12 20:49:45 2003 UTC (11 years, 3 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.36: +10 -0 lines
Diff to previous 1.205.2.36 , to branch point 1.205 , to selected 1.41
Hard link sync optimization.

* code/mapping.lisp (mapping-synchronize): New optional parameter,
specifies map to use instead of reading *map-local*.

* code/mcvs-generic.lisp (mcvs-generic): Pass extra parameter to
mapping-synchronize to only sync the selected subset of files.

Revision 1.235 - (view) (annotate) - [select for diffs]
Thu Jan 2 04:02:51 2003 UTC (11 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.234: +8 -0 lines
Diff to previous 1.234 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/unix-bindings/impl.c (impl_spawn): For Cygwin, re-implemented
this function as a wrapper for the spawnvp function. The combination
of fork + execvp + waitpid does not work because waitpid is broken;
it waits for thep rocess, but then returns -1 and sets errno
to ECHILD.

Revision 1.205.2.36 - (view) (annotate) - [select for diffs]
Thu Jan 2 03:51:10 2003 UTC (11 years, 3 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-1-0
Changes since 1.205.2.35: +8 -0 lines
Diff to previous 1.205.2.35 , to branch point 1.205 , to selected 1.41
* code/unix-bindings/impl.c (impl_spawn): For Cygwin, re-implemented
this function as a wrapper for the spawnvp function. The combination
of fork + execvp + waitpid does not work because waitpid is broken;
it waits for thep rocess, but then returns -1 and sets errno
to ECHILD.

Revision 1.234 - (view) (annotate) - [select for diffs]
Fri Dec 27 23:45:50 2002 UTC (11 years, 3 months ago) by kaz
Branch: MAIN
Changes since 1.233: +5 -0 lines
Diff to previous 1.233 , to selected 1.41
Merging from mcvs-1-0-branch.

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

Revision 1.205.2.35 - (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
Changes since 1.205.2.34: +5 -0 lines
Diff to previous 1.205.2.34 , to branch point 1.205 , to selected 1.41
* code/options.lisp (process-cvs-options): The version number
now has three components.

Revision 1.233 - (view) (annotate) - [select for diffs]
Sat Dec 14 05:35:06 2002 UTC (11 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.232: +6 -0 lines
Diff to previous 1.232 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/install.sh: Now works under CLISP installations which
call the CLISP executable lisp.exe rather than lisp.run.
This is the case under Cygwin as of CLISP 2.30 or so.

Revision 1.205.2.34 - (view) (annotate) - [select for diffs]
Sat Dec 14 04:54:28 2002 UTC (11 years, 4 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.33: +6 -0 lines
Diff to previous 1.205.2.33 , to branch point 1.205 , to selected 1.41
* code/install.sh: Now works under CLISP installations which
call the CLISP executable lisp.exe rather than lisp.run.
This is the case under Cygwin as of CLISP 2.30 or so.

Revision 1.232 - (view) (annotate) - [select for diffs]
Tue Dec 3 08:05:56 2002 UTC (11 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.231: +7 -1 lines
Diff to previous 1.231 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/sync.lisp (synchronize-files): Call exec-check using
file info object, rather than file name. This cuts in half
the number of calls to stat().

Revision 1.205.2.33 - (view) (annotate) - [select for diffs]
Tue Dec 3 08:04:58 2002 UTC (11 years, 4 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.32: +7 -1 lines
Diff to previous 1.205.2.32 , to branch point 1.205 , to selected 1.41
* code/sync.lisp (synchronize-files): Call exec-check using
file info object, rather than file name. This cuts in half
the number of calls to stat().

Revision 1.231 - (view) (annotate) - [select for diffs]
Tue Dec 3 07:23:03 2002 UTC (11 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.230: +15 -0 lines
Diff to previous 1.230 , to selected 1.41
Merging from mcvs-1-0-branch.

Discontinuing use of CLISP's ext:run-program function in favor
of a new workalike which doesn't rely on the shell interpreter.

* code/unix-bindings/unix.lisp (unix-funcs:spawn): New C call out
function (unix-funcs:run-program): New function, implemented using
spawn.

* code/unix-bindings/impl.c (impl_spawn): New function; wraps
up fork, execvp and waitpid.

* code/clisp-unix.lisp: Switch from ext:run-program to
unix-funcs:run-program.

Revision 1.205.2.32 - (view) (annotate) - [select for diffs]
Tue Dec 3 07:21:05 2002 UTC (11 years, 4 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.31: +15 -0 lines
Diff to previous 1.205.2.31 , to branch point 1.205 , to selected 1.41
Discontinuing use of CLISP's ext:run-program function in favor
of a new workalike which doesn't rely on the shell interpreter.

* code/unix-bindings/unix.lisp (unix-funcs:spawn): New C call out
function (unix-funcs:run-program): New function, implemented using
spawn.

* code/unix-bindings/impl.c (impl_spawn): New function; wraps
up fork, execvp and waitpid.

* code/clisp-unix.lisp: Switch from ext:run-program to
unix-funcs:run-program.

Revision 1.230 - (view) (annotate) - [select for diffs]
Thu Nov 21 06:15:15 2002 UTC (11 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.229: +11 -0 lines
Diff to previous 1.229 , to selected 1.41
Merging from mcvs-1-0-branch.

Some security fixes.  Funny I didn't think of this sooner!

* code/types.lisp (types-read): Make sure *read-eval* is bound to
nil when calling READ.

* code/mapping.lisp (mapping-read-raw-map, displaced-path-read):
Likewise.

Revision 1.205.2.31 - (view) (annotate) - [select for diffs]
Thu Nov 21 06:13:47 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.30: +11 -0 lines
Diff to previous 1.205.2.30 , to branch point 1.205 , to selected 1.41
Some security fixes.  Funny I didn't think of this sooner!

* code/types.lisp (types-read): Make sure *read-eval* is bound to
nil when calling READ.

* code/mapping.lisp (mapping-read-raw-map, displaced-path-read):
Likewise.

Revision 1.229 - (view) (annotate) - [select for diffs]
Sat Nov 16 23:09:26 2002 UTC (11 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.228: +1 -1 lines
Diff to previous 1.228 , to selected 1.41
Correction; wrong file named in ChangeLog entry.

Revision 1.228 - (view) (annotate) - [select for diffs]
Sat Nov 16 20:05:26 2002 UTC (11 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.227: +5 -0 lines
Diff to previous 1.227 , to selected 1.41
* code/posix.lisp (invoke-editor-on): Honor the CVSEDITOR and VISUAL
environment variables, not just EDITOR.

Revision 1.205.2.30 - (view) (annotate) - [select for diffs]
Sat Nov 16 20:02:58 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-0-99
Changes since 1.205.2.29: +5 -0 lines
Diff to previous 1.205.2.29 , to branch point 1.205 , to selected 1.41
* code/posix.lisp (invoke-editor-on): Honor the CVSEDITOR and VISUAL
environment variables, not just EDITOR.

Revision 1.227 - (view) (annotate) - [select for diffs]
Sun Nov 10 06:46:53 2002 UTC (11 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.226: +9 -0 lines
Diff to previous 1.226 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/link.lisp (mcvs-link): Revamped link command to behave properly
when the destination object is a directory. It must create the link in
that directory, rather than try to create a link with that name.
Plus handles various tricky cases. Trailing slash in destination name,
destination that is a directory within target directory, attempted
link creation in MCVS etc.

Revision 1.205.2.29 - (view) (annotate) - [select for diffs]
Sun Nov 10 06:40:47 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.28: +9 -0 lines
Diff to previous 1.205.2.28 , to branch point 1.205 , to selected 1.41
* code/link.lisp (mcvs-link): Revamped link command to behave properly
when the destination object is a directory. It must create the link in
that directory, rather than try to create a link with that name.
Plus handles various tricky cases. Trailing slash in destination name,
destination that is a directory within target directory, attempted
link creation in MCVS etc.

Revision 1.226 - (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.225: +54 -0 lines
Diff to previous 1.225 , to selected 1.41
Merging from mcvs-1-0-branch.

Revision 1.205.2.28 - (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
Changes since 1.205.2.27: +17 -0 lines
Diff to previous 1.205.2.27 , to branch point 1.205 , to selected 1.41
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.205.2.27 - (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.205.2.26: +17 -0 lines
Diff to previous 1.205.2.26 , to branch point 1.205 , to selected 1.41
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.205.2.26 - (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.205.2.25: +6 -0 lines
Diff to previous 1.205.2.25 , to branch point 1.205 , to selected 1.41
* code/branch.lisp (*branch-help*): New string constant.

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

Revision 1.205.2.25 - (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.205.2.24: +14 -0 lines
Diff to previous 1.205.2.24 , to branch point 1.205 , to selected 1.41
* 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.225 - (view) (annotate) - [select for diffs]
Sat Nov 2 19:10:30 2002 UTC (11 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.224: +4 -0 lines
Diff to previous 1.224 , to selected 1.41
Merging from mcvs-1-0-branch.

* INSTALL: Include caveat about GCC 3 problems.

Revision 1.205.2.24 - (view) (annotate) - [select for diffs]
Sat Nov 2 19:09:55 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.23: +4 -0 lines
Diff to previous 1.205.2.23 , to branch point 1.205 , to selected 1.41
* INSTALL: Include caveat about GCC 3 problems.

Revision 1.224 - (view) (annotate) - [select for diffs]
Thu Oct 31 04:46:39 2002 UTC (11 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.223: +5 -0 lines
Diff to previous 1.223 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/prop.lisp (mcvs-prop): If there are no options specified,
don't do anything.

Revision 1.205.2.23 - (view) (annotate) - [select for diffs]
Thu Oct 31 04:44:51 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.22: +5 -0 lines
Diff to previous 1.205.2.22 , to branch point 1.205 , to selected 1.41
* code/prop.lisp (mcvs-prop): If there are no options specified,
don't do anything.

Revision 1.223 - (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.222: +52 -0 lines
Diff to previous 1.222 , to selected 1.41
* 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.222 - (view) (annotate) - [select for diffs]
Wed Oct 30 09:36:45 2002 UTC (11 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.221: +12 -0 lines
Diff to previous 1.221 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/unix-bindings/unix.lisp: Rewrote defpackage to take only
selected symbols from CLISP's FFI package rather using the whole
thing. FFI, and the packages it uses, are moving targets.
The symbol def-c-call-out is interned in unix-funcs.
(unix-funcs:def-c-call-out): New internal macro. CLISP says that
ffi:def-c-call-out is obsolescent.

* code/unix-bindings/Makefile: The ``clean'' target removes
unix.lib, not only unix.fas.

Revision 1.205.2.22 - (view) (annotate) - [select for diffs]
Wed Oct 30 09:33:57 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.21: +12 -0 lines
Diff to previous 1.205.2.21 , to branch point 1.205 , to selected 1.41
* code/unix-bindings/unix.lisp: Rewrote defpackage to take only
selected symbols from CLISP's FFI package rather using the whole
thing. FFI, and the packages it uses, are moving targets.
The symbol def-c-call-out is interned in unix-funcs.
(unix-funcs:def-c-call-out): New internal macro. CLISP says that
ffi:def-c-call-out is obsolescent.

* code/unix-bindings/Makefile: The ``clean'' target removes
unix.lib, not only unix.fas.

Revision 1.221 - (view) (annotate) - [select for diffs]
Mon Oct 28 04:01:15 2002 UTC (11 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.220: +11 -0 lines
Diff to previous 1.220 , to selected 1.41
Merging from mcvs-1-0-branch.

Bugfix to the directory restructuring code. A clobbering
file add was not actually removing the clobbered file, but leaving
it up to the synchronization algorithm, so the time-stamp would
decide whether the local file gets clobbered by the repository one,
or whether it wins.

* code/mapping.lisp (mapping-update): Logic for handling added
file ensures that a clobbered local file is removed first.

Revision 1.205.2.21 - (view) (annotate) - [select for diffs]
Mon Oct 28 04:00:32 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.20: +11 -0 lines
Diff to previous 1.205.2.20 , to branch point 1.205 , to selected 1.41
Bugfix to the directory restructuring code. A clobbering
file add was not actually removing the clobbered file, but leaving
it up to the synchronization algorithm, so the time-stamp would
decide whether the local file gets clobbered by the repository one,
or whether it wins.

* code/mapping.lisp (mapping-update): Logic for handling added
file ensures that a clobbered local file is removed first.

Revision 1.220 - (view) (annotate) - [select for diffs]
Sun Oct 27 00:27:17 2002 UTC (11 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.219: +11 -0 lines
Diff to previous 1.219 , to selected 1.41
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.205.2.20 - (view) (annotate) - [select for diffs]
Sun Oct 27 00:25:38 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.19: +11 -0 lines
Diff to previous 1.205.2.19 , to branch point 1.205 , to selected 1.41
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.219 - (view) (annotate) - [select for diffs]
Sat Oct 26 21:10:42 2002 UTC (11 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.218: +6 -0 lines
Diff to previous 1.218 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/grab.lisp (*grab-help*): Rewritten.

* code/checkout.lisp (*export-help*): Formatted for 80 columns.

Revision 1.205.2.19 - (view) (annotate) - [select for diffs]
Sat Oct 26 21:09:27 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.18: +6 -0 lines
Diff to previous 1.205.2.18 , to branch point 1.205 , to selected 1.41
* code/grab.lisp (*grab-help*): Rewritten.

* code/checkout.lisp (*export-help*): Formatted for 80 columns.

Revision 1.218 - (view) (annotate) - [select for diffs]
Sat Oct 26 18:56:29 2002 UTC (11 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.217: +22 -0 lines
Diff to previous 1.217 , to selected 1.41
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.205.2.18 - (view) (annotate) - [select for diffs]
Sat Oct 26 18:54:43 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.17: +10 -0 lines
Diff to previous 1.205.2.17 , to branch point 1.205 , to selected 1.41
* 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.205.2.17 - (view) (annotate) - [select for diffs]
Sat Oct 26 18:40:28 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.16: +6 -0 lines
Diff to previous 1.205.2.16 , to branch point 1.205 , to selected 1.41
* 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.

Revision 1.205.2.16 - (view) (annotate) - [select for diffs]
Sat Oct 26 18:30:39 2002 UTC (11 years, 5 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.15: +6 -0 lines
Diff to previous 1.205.2.15 , to branch point 1.205 , to selected 1.41
* 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.217 - (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.216: +8 -0 lines
Diff to previous 1.216 , to selected 1.41
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.205.2.15 - (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.205.2.14: +8 -0 lines
Diff to previous 1.205.2.14 , to branch point 1.205 , to selected 1.41
Add help to move command.

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

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

Revision 1.216 - (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.215: +24 -0 lines
Diff to previous 1.215 , to selected 1.41
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.205.2.14 - (view) (annotate) - [select for diffs]
Mon Oct 21 04:46:05 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.13: +14 -0 lines
Diff to previous 1.205.2.13 , to branch point 1.205 , to selected 1.41
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.

Revision 1.205.2.13 - (view) (annotate) - [select for diffs]
Sat Oct 19 17:09:47 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.12: +4 -0 lines
Diff to previous 1.205.2.12 , to branch point 1.205 , to selected 1.41
* UPGRADE-EXISTING: New file.

Revision 1.205.2.12 - (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.205.2.11: +6 -0 lines
Diff to previous 1.205.2.11 , to branch point 1.205 , to selected 1.41
* 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.215 - (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.214: +13 -0 lines
Diff to previous 1.214 , to selected 1.41
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.205.2.11 - (view) (annotate) - [select for diffs]
Thu Oct 17 15:28:16 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.10: +13 -0 lines
Diff to previous 1.205.2.10 , to branch point 1.205 , to selected 1.41
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.205.2.10 - (view) (annotate) - [select for diffs]
Tue Oct 15 03:46:53 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.9: +10 -0 lines
Diff to previous 1.205.2.9 , to branch point 1.205 , to selected 1.41
Compiler warning fix.

* code/posix.lisp (*argument-limit*): Constant moved here.

* code/clisp-unix.lisp (*argument-limit*): Constant removed.

* code/cmucl-unix.lisp (*argument-limit*): Likewise.

Revision 1.214 - (view) (annotate) - [select for diffs]
Mon Oct 14 03:05:40 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.213: +4 -0 lines
Diff to previous 1.213 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/install.sh: generate a script called mcvs-upgrade.

Revision 1.205.2.9 - (view) (annotate) - [select for diffs]
Mon Oct 14 03:01:39 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
CVS Tags: mcvs-0-98
Changes since 1.205.2.8: +4 -0 lines
Diff to previous 1.205.2.8 , to branch point 1.205 , to selected 1.41
* code/install.sh: generate a script called mcvs-upgrade.

Revision 1.213 - (view) (annotate) - [select for diffs]
Mon Oct 14 01:50:47 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.212: +4 -0 lines
Diff to previous 1.212 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/prop.lisp (mcvs-prop): Read *mcvs-map*, not *mcvs-map-local*.

Revision 1.205.2.8 - (view) (annotate) - [select for diffs]
Mon Oct 14 01:49:40 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.7: +4 -0 lines
Diff to previous 1.205.2.7 , to branch point 1.205 , to selected 1.41
* code/prop.lisp (mcvs-prop): Read *mcvs-map*, not *mcvs-map-local*.

Revision 1.212 - (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.211: +13 -0 lines
Diff to previous 1.211 , to selected 1.41
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.205.2.7 - (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
Changes since 1.205.2.6: +13 -0 lines
Diff to previous 1.205.2.6 , to branch point 1.205 , to selected 1.41
* 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.211 - (view) (annotate) - [select for diffs]
Mon Oct 14 00:00:22 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.210: +17 -5 lines
Diff to previous 1.210 , to selected 1.41
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.205.2.6 - (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.205.2.5: +4 -0 lines
Diff to previous 1.205.2.5 , to branch point 1.205 , to selected 1.41
* code/mcvs-main.lisp (*usage*): Describe export and watch commands.

Revision 1.205.2.5 - (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.205.2.4: +13 -5 lines
Diff to previous 1.205.2.4 , to branch point 1.205 , to selected 1.41
* code/mcvs-main.lisp (*watch-options*): New constant.
(*mcvs-command-table*): New entry for watch command.

* code/watch.lisp: New file.

Revision 1.210 - (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.209: +12 -0 lines
Diff to previous 1.209 , to selected 1.41
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.205.2.4 - (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.205.2.3: +12 -0 lines
Diff to previous 1.205.2.3 , to branch point 1.205 , to selected 1.41
* 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.209 - (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.208: +8 -0 lines
Diff to previous 1.208 , to selected 1.41
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.205.2.3 - (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.205.2.2: +8 -0 lines
Diff to previous 1.205.2.2 , to branch point 1.205 , to selected 1.41
* 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.208 - (view) (annotate) - [select for diffs]
Sat Oct 12 20:34:23 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.207: +10 -0 lines
Diff to previous 1.207 , to selected 1.41
Merging from mcvs-1-0-branch.

* code/filt.lisp (mcvs-filt): Do not filter F- names if
immediately preceded by MCVS/ prefix.

* code/clisp-unix.lisp (execute-program): Provide debug traces
for command execution.

Revision 1.205.2.2 - (view) (annotate) - [select for diffs]
Sat Oct 12 20:29:47 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205.2.1: +5 -0 lines
Diff to previous 1.205.2.1 , to branch point 1.205 , to selected 1.41
* code/filt.lisp (mcvs-filt): Do not filter F- names if
immediately preceded by MCVS/ prefix.

Revision 1.205.2.1 - (view) (annotate) - [select for diffs]
Sat Oct 12 20:09:21 2002 UTC (11 years, 6 months ago) by kaz
Branch: mcvs-1-0-branch
Changes since 1.205: +5 -0 lines
Diff to previous 1.205 , to selected 1.41
* code/clisp-unix.lisp (execute-program): Provide debug traces
for command execution.

Revision 1.118.2.1 - (view) (annotate) - [select for diffs]
Sat Oct 12 20:01:04 2002 UTC (11 years, 6 months ago) by kaz
Branch: old-convert-hacking-branch
Changes since 1.118: +23 -0 lines
Diff to previous 1.118 , to next main 1.324 , to selected 1.41
Found some old uncommited sources dating back to 2002-03-20,
which appear to make progress in mcvs-convert. I'm stuffing them
into this branch.

* tree-map.lisp: New file.
(tree-mapcar, tree-mapcan): New functions.

* rcs-utils.lisp (rcs-file): Struct extended with some new slots.
(rcs-extract-id-or-sym): Convert a version number to a vector,
and store this as the lexeme slot of the token.
(rcs-make-delta-hash):  Construct the hash over the version slot
rather than the next slot of each delta node.
(rcs-make-sym-rev-hash): New function, to create new kind of hash.
(rcs-parse): Make the new type of hash too, and add it to the
rcs-file struct.
(cvs-branch-number): New function.
(rcs-build-version-tree, rcs-condense-version-tree, rcs-build-tag-tree,
rcs-composite-tag-trees): New functions.

* MCVS/MAP: File is being upgraded to new format.

Revision 1.207 - (view) (annotate) - [select for diffs]
Sat Oct 12 19:37:47 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.206: +26 -6 lines
Diff to previous 1.206 , to selected 1.41
Rethink some decisions in the previous change. Reusing the
name posix.lisp for a new file will cause problems for people
using mcvs grab to keep up with Meta-CVS patches.

* code/posix.lisp: Renamed to unix.lisp.

* code/clisp-posix.lisp: Renamed back to clisp-unix.lisp, for
the sake of consistency.

* code/system.lisp: Updated.

* code/cmucl.lisp: Likewise.

Revision 1.206 - (view) (annotate) - [select for diffs]
Sat Oct 12 19:21:16 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.205: +27 -0 lines
Diff to previous 1.205 , to selected 1.41
Minor reorganization.

* posix.lisp: File renamed to paths.lisp, module renamed to "paths".
(*editor*): Variable removed.
(arglist-to-command-string, execute-programs-xargs,
invoke-editor-on): Functions removed.

* posix.lisp: New file.
(*editor*): Variable moved here from paths.lisp.
(arglist-to-command-string, invoke-editor-on): Functions moved here
from paths.lisp.

* editor.lisp: New file.
(*argument-limit*): Variable definition moved here.
(execute-programs-xargs): Function moved here from paths.lisp.

* clisp-unix.lisp: Renamed to clisp-posix.lisp.
Requires "posix" module now.
(*argument-limit*): Variable removed.

* system.lisp: Remove references to old clisp-linux module.
Added requires for new paths and execute modules.

* cmucl-unix.lisp (*argument-limit*): Variable definition removed.

Revision 1.205 - (view) (annotate) - [select for diffs]
Thu Oct 10 05:56:15 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-1-0-branch~branch-point
Branch point for: mcvs-1-0-branch
Changes since 1.204: +5 -0 lines
Diff to previous 1.204 , to selected 1.41
* code/add.lisp (*add-help*): Remove spurious text cut and pasted from
checkout help.

Revision 1.204 - (view) (annotate) - [select for diffs]
Mon Oct 7 02:44:30 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-97
Changes since 1.203: +9 -0 lines
Diff to previous 1.203 , to selected 1.41
* code/prop.lisp (mcvs-prop): Result of real-to-abstract-path
must be canonicalized.

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

* code/generic.lisp (mcvs-generic): Likewise.

Revision 1.203 - (view) (annotate) - [select for diffs]
Mon Oct 7 02:33:20 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.202: +5 -0 lines
Diff to previous 1.202 , to selected 1.41
* code/move.lisp (move-guts, mcvs-move): Canonicalize the destination
path in mcvs-move, rather than mcvs-guts.

Revision 1.202 - (view) (annotate) - [select for diffs]
Mon Oct 7 02:30:36 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.201: +5 -0 lines
Diff to previous 1.201 , to selected 1.41
* code/create.lisp (mcvs-create): Add the DISPLACED filename
to the .cvsignore file.

Revision 1.201 - (view) (annotate) - [select for diffs]
Mon Oct 7 02:25:29 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.200: +4 -0 lines
Diff to previous 1.200 , to selected 1.41
* code/posix.lisp (path-prefix-equal): Handle empty strings.

Revision 1.200 - (view) (annotate) - [select for diffs]
Sun Oct 6 08:49:03 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.199: +6 -0 lines
Diff to previous 1.199 , to selected 1.41
* code/move.lisp (move-guts): If an error occurs for each
source in a multiple move, and the user skips each source,
generate the error that all sources were skipped.

Revision 1.199 - (view) (annotate) - [select for diffs]
Sun Oct 6 08:34:34 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.198: +5 -0 lines
Diff to previous 1.198 , to selected 1.41
* code/move.lisp (source-check): Generate error if a move
of the sandbox root is attempted.

Revision 1.198 - (view) (annotate) - [select for diffs]
Sun Oct 6 08:17:28 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.197: +9 -0 lines
Diff to previous 1.197 , to selected 1.41
* code/remap.lisp (mcvs-remap): Preserve property lists of
mapping entries, and pick up changes in execute permission.

* code/mapping.lisp (mapping-convert-out): If the mapping entry's
executable flag is nil, then remove the :exec entry from the property
list.

Revision 1.197 - (view) (annotate) - [select for diffs]
Sun Oct 6 07:56:00 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.196: +9 -0 lines
Diff to previous 1.196 , to selected 1.41
* code/mapping.lisp (equal-filemaps): Repair completely broken
function.

* code/move.lisp (mcvs-move): Added little hack for turning
no-op moves into errors. Without this the behavior is confusing,
since the program appears to do nothing.

Revision 1.196 - (view) (annotate) - [select for diffs]
Sun Oct 6 07:28:30 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.195: +7 -0 lines
Diff to previous 1.195 , to selected 1.41
* code/add.lisp (mcvs-add): Provide a continue restart around
the code that builds up the expanded-paths for each iteration of the
loop. Without this, errors in that code cause the program to bail, even
though errors in the rest of the loop body are continuable.

Revision 1.195 - (view) (annotate) - [select for diffs]
Sun Oct 6 07:05:46 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.194: +9 -0 lines
Diff to previous 1.194 , to selected 1.41
* code/dirwalk.lisp (dirwalk): If the argument is not a directory,
the callback must still be invoked. This was done prior to
a 2002-05-20 commit. I can't quite remember why it was changed;
but I seem to recall thinking about the new dirwalk-skip catch,
and how it must be always visible to the callback closure, so
that the (skip) mechanism works.

Revision 1.194 - (view) (annotate) - [select for diffs]
Sun Oct 6 05:32:58 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.193: +5 -0 lines
Diff to previous 1.193 , to selected 1.41
* code/add.lisp (mcvs-add): Reshuffle restart to a higher nesting
level, so that an error on one item won't abort the whole operation.

Revision 1.193 - (view) (annotate) - [select for diffs]
Sun Oct 6 05:25:31 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.192: +6 -0 lines
Diff to previous 1.192 , to selected 1.41
* code/convert.lisp (mcvs-convert): Maintenance so that this tool
at least runs, even though it doesn't do anything resembling a
reasonable conversion job.

Revision 1.192 - (view) (annotate) - [select for diffs]
Sun Oct 6 05:19:54 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.191: +5 -0 lines
Diff to previous 1.191 , to selected 1.41
* code/clisp-unix.lisp (guid-gen): Changes for Cygwin broke the
case when /dev/urandom is available.

Revision 1.191 - (view) (annotate) - [select for diffs]
Sun Oct 6 04:36:04 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.190: +5 -0 lines
Diff to previous 1.190 , to selected 1.41
* code/find-bind.lisp (find-bind): Allow empty variable list, as
described by the documented syntax.

Revision 1.190 - (view) (annotate) - [select for diffs]
Sat Oct 5 18:19:23 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.189: +8 -0 lines
Diff to previous 1.189 , to selected 1.41
* code/error.lisp (mcvs-error-handler): Simplify roundabout way
of printing error message.

* code/mapping.lisp (mapping-write): Incorporate the low level error
message into the more informative error message.

Revision 1.189 - (view) (annotate) - [select for diffs]
Sat Oct 5 18:09:48 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.188: +64 -0 lines
Diff to previous 1.188 , to selected 1.41
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.188 - (view) (annotate) - [select for diffs]
Wed Sep 25 15:55:57 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.187: +12 -0 lines
Diff to previous 1.187 , to selected 1.41
Minimal changes for building on Cygwin.

* code/install.sh (space_check, dash_check): Function definitions
modified to conform to bash2.

* code/clisp-unix.lisp (*have-dev-random*, *mcvs-random-state*):
New special variables.
(guid-gen): Rewritten to fall back on the Common Lisp random
function if /dev/urandom is not available.

Revision 1.187 - (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.186: +15 -0 lines
Diff to previous 1.186 , to selected 1.41
* 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.186 - (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.185: +1 -1 lines
Diff to previous 1.185 , to selected 1.41
* code/mcvs-main.lisp (*args*): New global variable. Gives
scripts access to command line.

Revision 1.185 - (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.184: +5 -0 lines
Diff to previous 1.184 , to selected 1.41
* code/mcvs-main.lisp (*argv*): New global variable. Gives
scripts access to command line.

Revision 1.184 - (view) (annotate) - [select for diffs]
Sat Sep 21 19:51:23 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.183: +7 -0 lines
Diff to previous 1.183 , to selected 1.41
* 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.183 - (view) (annotate) - [select for diffs]
Sat Sep 21 18:42:42 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.182: +6 -0 lines
Diff to previous 1.182 , to selected 1.41
* code/install.sh: Don't specify -K full option when running
specific, generated CLISP image already. When generating mcvs.mem,
load the compiled version mcvs-main, rather than mcvs-main.lisp.

Revision 1.182 - (view) (annotate) - [select for diffs]
Sat Sep 21 18:28:18 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.181: +5 -0 lines
Diff to previous 1.181 , to selected 1.41
* code/install.sh: Check that the installation target path won't
look like a command line option to shell commands.

Revision 1.181 - (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.180: +6 -0 lines
Diff to previous 1.180 , to selected 1.41
* code/mcvs-main.lisp (*mcvs-command-table*): Added help for remove.

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

Revision 1.180 - (view) (annotate) - [select for diffs]
Sat Sep 21 17:58:23 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.179: +7 -0 lines
Diff to previous 1.179 , to selected 1.41
* code/grab.lisp (mcvs-grab): Inspect the execute permissions
of stable and moved files, and update the :EXEC propery of
their mapping entries accordingly. In other words, grab changes
in execute permissions properly.

Revision 1.179 - (view) (annotate) - [select for diffs]
Thu Sep 19 01:50:03 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.178: +8 -0 lines
Diff to previous 1.178 , to selected 1.41
* code/restore.lisp (mcvs-restore): Was still generating old-style
mapping entries.

* code/clisp-unix.lisp (executable-p (string)): New method for
executable-p generic function that takes a filename.

Revision 1.178 - (view) (annotate) - [select for diffs]
Wed Sep 18 04:42:25 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.177: +8 -0 lines
Diff to previous 1.177 , to selected 1.41
* code/install.sh: Check that the installation target path
does not contain any spaces. It cannot, because it is used
in the #! line of an interpreter script. As a consequence of
this check, whitespace precautions in the expansion of $TARGET,
$TARGET_LIB and $TARGET_BIN have been removed.

Revision 1.177 - (view) (annotate) - [select for diffs]
Wed Sep 18 04:15:54 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.176: +6 -0 lines
Diff to previous 1.176 , to selected 1.41
* code/checkout.lisp (mcvs-checkout): If a subdirectory path
is specified, verify that it is relative, and that it points
within the module.

Revision 1.176 - (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.175: +13 -0 lines
Diff to previous 1.175 , to selected 1.41
* 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.175 - (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.174: +6 -0 lines
Diff to previous 1.174 , to selected 1.41
* code/mcvs-main.lisp (*mcvs-command-table*): Add *grab-help*.
* code/grab.lisp (*grab-help*): New string constant.

Revision 1.174 - (view) (annotate) - [select for diffs]
Thu Sep 12 03:05:35 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.173: +4 -0 lines
Diff to previous 1.173 , to selected 1.41
* code/clisp-linux.lisp: File removed.

Revision 1.173 - (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.172: +9 -0 lines
Diff to previous 1.172 , to selected 1.41
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.172 - (view) (annotate) - [select for diffs]
Thu Sep 12 02:36:03 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.171: +11 -0 lines
Diff to previous 1.171 , to selected 1.41
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.171 - (view) (annotate) - [select for diffs]
Wed Sep 11 05:15:02 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.170: +24 -0 lines
Diff to previous 1.170 , to selected 1.41
Installation braindamage fixed.
Bug in mcvs-filt fixed.

Revision 1.170 - (view) (annotate) - [select for diffs]
Sun Sep 8 20:34:51 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-24
Changes since 1.169: +8 -0 lines
Diff to previous 1.169 , to selected 1.41
Fix mistake dating back to April.

* code/branch.lisp (mcvs-merge): Symbol T was being invoked
as function in the case that merge is invoked on a sandbox
that is sticky to a non-branch tag.

Revision 1.169 - (view) (annotate) - [select for diffs]
Sun Sep 8 20:23:20 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.168: +7 -0 lines
Diff to previous 1.168 , to selected 1.41
Another stupid error.

* code/create.lisp (mcvs-create): Fix use to unbound
variable file-info which should be fi.

Revision 1.168 - (view) (annotate) - [select for diffs]
Sun Sep 8 20:18:17 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.167: +7 -0 lines
Diff to previous 1.167 , to selected 1.41
Fix stupid error.

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

Revision 1.167 - (view) (annotate) - [select for diffs]
Sun Sep 8 01:34:53 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.166: +9 -0 lines
Diff to previous 1.166 , to selected 1.41
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.166 - (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.165: +8 -0 lines
Diff to previous 1.165 , to selected 1.41
* 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.165 - (view) (annotate) - [select for diffs]
Sat Sep 7 04:41:46 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.164: +28 -0 lines
Diff to previous 1.164 , to selected 1.41
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.164 - (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.163: +13 -0 lines
Diff to previous 1.163 , to selected 1.41
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.163 - (view) (annotate) - [select for diffs]
Fri Sep 6 03:19:07 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.162: +15 -0 lines
Diff to previous 1.162 , to selected 1.41
Be transparent with respect to mapping entry property lists:
preserve unrecognized indicators and values.

* code/mapping.lisp (mapping-entry): New slot, raw-plist,
records raw property list from external mapping representation.
(mapping-entry-parse-attributes): Renamed to mapping-entry-parse-plist.
Argument dropped; parses raw-plist slot instead.
(mapping-convert-in): Set raw-plist slot to value of fourth list
element of :FILE entry, or fifth list element of :SYMLINK entry.
(mapping-convert-out): Unify any slot values that are represented as
properties into raw-plist, and insert any non-empty plists into
external representation.

Revision 1.162 - (view) (annotate) - [select for diffs]
Fri Sep 6 02:17:27 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.161: +31 -0 lines
Diff to previous 1.161 , to selected 1.41
Low level support for versioning executable bit.

* code/unix-bindings/unix.lisp (unix-funcs:chmod): New callout
function.

* code/clisp-unix.lisp (executable-p, make-executable,
make-non-executable): New generic functions.
(executable-p (file-info), make-executable (file-info),
make-executable (string), make-non-executable (file-info),
make-non-executable (string)): New methods.

* code/add.lisp (mcvs-add): Record whether new file is
executable or not, by setting executable slot in mapping-entry.

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

* code/sync.lisp (synchronize-files): New parameter,
should-be-executable, tells function which way to set
permissions after synchronizing files.

* code/mapping.lisp (mapping-entry): New slot, executable.
(mapping-entry-parse-attributes): New function, parses
new optional property list from :FILE entries in a mapping.
(mapping-convert-in): Parse property list that may be present in fourth
list element of a :FILE entry.
(mapping-convert-out): Write out executable flag as
:EXEC property, if true.
(mapping-synchronize): Pass executable flag down to synchronize-files.

Revision 1.161 - (view) (annotate) - [select for diffs]
Mon Sep 2 19:25:47 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-23
Changes since 1.160: +10 -0 lines
Diff to previous 1.160 , to selected 1.41
* code/grab.lisp (determine-moved-files): Rename local
variable for clarity.
(determine-moved-symlinks): Actually compute what symlinks
are moved.  Takes one more argument, the stable-files list.
(mcvs-grab): Fix small destructuring-bind bug in symlink
moving code. Also, read the targets of moved symlinks into
the map, like it is already done with stable symlinks.

Revision 1.160 - (view) (annotate) - [select for diffs]
Sun Sep 1 16:58:44 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
Changes since 1.159: +7 -1 lines
Diff to previous 1.159 , to selected 1.41
* code/grab.lisp (mcvs-grab): Iterate over stable symlinks,
and incorporate changed targets into the mapping. In other
words, notice and incorporate retargetted symlinks.

Revision 1.159 - (view) (annotate) - [select for diffs]
Sat Aug 31 20:53:13 2002 UTC (11 years, 7 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-22
Changes since 1.158: +133 -4 lines
Diff to previous 1.158 , to selected 1.41
Merging symlink-branch to main trunk.

Revision 1.157.2.8 - (view) (annotate) - [select for diffs]
Sat Aug 31 19:26:29 2002 UTC (11 years, 7 months ago) by kaz
Branch: symlink-branch
CVS Tags: symlink-branch~merged-to-HEAD-0
Changes since 1.157.2.7: +9 -0 lines
Diff to previous 1.157.2.7 , to branch point 1.157 , to next main 1.324 , to selected 1.41
* code/grab.lisp (move-candidates): Function renamed to
determine-moved-files.
(determine-moved-symlinks): New function, doesn't do anything
yet.
(mcvs-grab): Updated to process symlinks and use new
mapping-entry structure.

Revision 1.157.2.7 - (view) (annotate) - [select for diffs]
Tue Aug 27 03:19:05 2002 UTC (11 years, 7 months ago) by kaz
Branch: symlink-branch
Changes since 1.157.2.6: +9 -0 lines
Diff to previous 1.157.2.6 , to branch point 1.157 , to selected 1.41
* code/remap.lisp (mcvs-remap): Use new mapping entry structure.
For now, preserve symbolic link entries as they are, processing only
files.

* code/mapping.lisp (equal-mapping-entries, equal-mappings): New
functions.

Revision 1.157.2.6 - (view) (annotate) - [select for diffs]
Sun Aug 25 19:31:51 2002 UTC (11 years, 8 months ago) by kaz
Branch: symlink-branch
Changes since 1.157.2.5: +12 -0 lines
Diff to previous 1.157.2.5 , to branch point 1.157 , to selected 1.41
* code/clisp-unix.lisp (initialize-instance link-error): Make
error message less confusing about which path refers to the
object being created, and which path refers to what it links to.

* code/mapping.lisp (mapping-rename-files): Bugfix: destructuring-bind
appeared in place of with-slots.
(mapping-synchronize): When creating symbolic link, ensure that
its directory exists.
(mapping-update): Likewise.

Revision 1.157.2.5 - (view) (annotate) - [select for diffs]
Sun Aug 25 19:13:48 2002 UTC (11 years, 8 months ago) by kaz
Branch: symlink-branch
Changes since 1.157.2.4: +5 -0 lines
Diff to previous 1.157.2.4 , to branch point 1.157 , to selected 1.41
* code/create.lisp (mcvs-create): Change to new mapping-entry data
* structure.

* code/filt.lisp (make-filt-hash, mcvs-filt): Change to new
mapping-entry data structure. Filt does not care about symlinks.

Revision 1.157.2.4 - (view) (annotate) - [select for diffs]
Sun Aug 25 18:20:44 2002 UTC (11 years, 8 months ago) by kaz
Branch: symlink-branch
Changes since 1.157.2.3: +25 -2 lines
Diff to previous 1.157.2.3 , to branch point 1.157 , to selected 1.41
* code/add.lisp (mcvs-add): Change to new mapping-entry data structure
and handle symbolic links.

* code/types.lisp (types-remove-ignores, types-make-cvs-adds):
Change to new mapping-entry data structure.

* code/mapping.lisp (mapping-generate-name): Renamed to
mapping-generate-id. Interface changes slightly.
(mapping-extract-kind): New function, factored out from mcvs-generic.
(mapping-update): Unlink existing symbolic link before
re-linking it.

* code/convert.lisp (mcvs-convert): Use new name and interface
of mapping-generate-name function.

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

* code/generic.lisp (mcvs-generic): Code to extract :file
entries from map factored out to mapping-extract-kind.

Revision 1.157.2.3 - (view) (annotate) - [select for diffs]
Sun Aug 25 17:10:06 2002 UTC (11 years, 8 months ago) by kaz
Branch: symlink-branch
Changes since 1.157.2.2: +7 -0 lines
Diff to previous 1.157.2.2 , to branch point 1.157 , to selected 1.41
* generic.lisp (mcvs-generic): Use new mapping-entry data structure.
Filter out mapping entries which are other than of the :file type, so
we don't pass to CVS things it doesn't know about, like symbolic
links.

Revision 1.157.2.2 - (view) (annotate) - [select for diffs]
Sun Aug 25 16:07:04 2002 UTC (11 years, 8 months ago) by kaz
Branch: symlink-branch
Changes since 1.157.2.1: +46 -0 lines
Diff to previous 1.157.2.1 , to branch point 1.157 , to selected 1.41
Support for symbolic links added to the mapping module.  The format of
the map file has changed to accomodate this.  The new format of the
list entries is (:keyword "id" "path" ...) where the keyword is either
:file or :symlink (for now, extensible obviously), "id" is a unique
identifier (for regular files, it is their MCVS/F-* name) and "path" is
the sandbox path. Other things can follow; for symlinks, there is a
string representing the symlink target.  Internally, a new data type
called mapping-entry is used; this is a struct. So the functions which
read and write maps now convert between the struct format and the above
format.

* code/unix-bindings/unix.lisp (unix-funcs:readlink): New function.

* code/unix-bindings/impl.c (impl_readlink): New function.

* code/clisp-unix.lisp (readlink-error): New condition.
(initialize-instance readlink-error): New method for
initialize-instance generic function, specialized for readlink-error.
(readlink): New function.

* code/mapping.lisp (mapping-entry): New struct, with slots
file, id, path and target.
(mapping-same-object-p): Renamed to mapping-same-id-p.
(mapping-object-lookup, mapping-moved-p): Unused functions removed.
(mapping-extract-paths, mapping-lookup, mapping-prefix-lookup,
mapping-prefix-matches, mapping-same-path-p, mapping-rename-files,
mapping-removed-files): Functions updated to use the new data
structure.
(mapping-dupe-checks): Rewritten for new data structure, and to
use hashes rather than silly sorting.
(mapping-convert-old-style-in, mapping-convert-in,
mapping-convert-out): New functions.
(mapping-read): Handle new and old style representations,
handle conversion to internal representation.
(mapping-write): Convert to new-style external representation
before writing out.
(mapping-synchronize): Handle symbolic links. If a link is missing,
create it. If it's present but different from what it should be,
erase it and re-create it.
(mapping-update): Use new data structure. Handle symbolic links.

* code/remove.lisp (mcvs-remove): Refer to new function
name, mapping-same-id-p.

Revision 1.157.2.1 - (view) (annotate) - [select for diffs]
Sat Aug 24 22:37:32 2002 UTC (11 years, 8 months ago) by kaz
Branch: symlink-branch
Changes since 1.157: +15 -4 lines
Diff to previous 1.157 , to selected 1.41
* code/clisp-unix.lisp (link-error): New slot, kind. Holds
the string "symbolic" or "hard".
(initialize-instance link-error): Use new slot in constructing
message.
(link): Specify "hard" value for :kind slot of condition.
(symlink): New function.

* code/clisp-linux.lisp: Likewise.

Revision 1.158 - (view) (annotate) - [select for diffs]
Sat Aug 24 22:32:35 2002 UTC (11 years, 8 months ago) by kaz
Branch: MAIN
Changes since 1.157: +6 -0 lines
Diff to previous 1.157 , to selected 1.41
* mapping.lisp (mapping-update): Bugfix
in logic which prints clobbering moves. The functions
abstract-to-real-path and second were applied in the wrong order.

Revision 1.157 - (view) (annotate) - [select for diffs]
Sat Aug 17 19:26:26 2002 UTC (11 years, 8 months ago) by kaz
Branch: MAIN
CVS Tags: symlink-branch~branch-point
Branch point for: symlink-branch
Changes since 1.156: +9 -0 lines
Diff to previous 1.156 , to selected 1.41
* posix.lisp (execute-program): Function removed.
* clisp-linux.lisp (execute-program): Function added. Works
in terms of CLISP's run-program function rather than the shell
function, thus eliminating the need to build a command string
and escape shell characters.
* clisp-unix.lisp (excecute-program): Likewise.

Revision 1.156 - (view) (annotate) - [select for diffs]
Sat Aug 17 18:58:50 2002 UTC (11 years, 8 months ago) by kaz
Branch: MAIN
Changes since 1.155: +6 -0 lines
Diff to previous 1.155 , to selected 1.41
* posix.lisp (edit-file): Function renamed to invoke-file-on,
because this name clashes with a standard Common Lisp symbol.
* types.lisp (types-let-user-edit): Updated to use new name.

Revision 1.155 - (view) (annotate) - [select for diffs]
Mon Aug 5 19:19:57 2002 UTC (11 years, 8 months ago) by kaz
Branch: MAIN
Changes since 1.154: +19 -0 lines
Diff to previous 1.154 , to selected 1.41
Use getcwd to to implement mcvs-locate.

* code/unix-bindings/unix.lisp (getcwd): New call out,
invokes impl_getcwd.

* code/unix-bindings/impl.c (impl_getcwd): New function,
use getcwd() to obtain current working directory, resizing dynamic
buffer if necessary to get the entire path.

* code/clisp-unix.lisp (getcwd): New wrapper function.

* code/dirwalk.lisp (go-up): Function removed.

* code/mapping.lisp (mcvs-locate): Rewritten to obtain
path using getcwd, then try looking for MCVS directory
in successively shorter prefixes of that path.

Revision 1.154 - (view) (annotate) - [select for diffs]
Sun Aug 4 18:15:18 2002 UTC (11 years, 8 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-21
Changes since 1.153: +17 -0 lines
Diff to previous 1.153 , to selected 1.41
Working back support for CLISP 2.27.

* code/install.sh: Bogus *null-pointer* hack is no longer added
to the generated mcvs script, since we have our own FFI functions for
doing the test.

* code/unix-bindings/unix.lisp (unix-funcs:null-pointer-p): New
function, tests a C pointer for null, returns T or NIL.
* code/unix-bindings/impl.c (impl_null_pointer_p): New function,
C implementation of unix-funcs:null-pointer-p.

* code/clisp-unix.lisp (pointer-null): New macro, uses
ffi:foreign-address-null under CLISP 2.28 or greater, or
unix-funcs:null-pointer-p, under an older CLISP.

Revision 1.153 - (view) (annotate) - [select for diffs]
Sun Aug 4 16:18:17 2002 UTC (11 years, 8 months ago) by kaz
Branch: MAIN
Changes since 1.152: +12 -0 lines
Diff to previous 1.152 , to selected 1.41
Fixes to get clean build from fresh checkout.

* code/unix-bindings/link.sh: Remove test for presence of unix.c;
this was causing the failure to add the unix module to the module
list, which caused it to generate an empty modules.h file under
code/unix-bindings-linking-set, resulting in a bad build of lisp.run.

* code/unix-bindings/Makefile: Add ``clean'' target, so we
can do a make clean here.

Revision 1.152 - (view) (annotate) - [select for diffs]
Sun Aug 4 15:49:29 2002 UTC (11 years, 8 months ago) by kaz
Branch: MAIN
Changes since 1.151: +53 -0 lines
Diff to previous 1.151 , to selected 1.41
Retargetting CVS with new system call bindings that are not GNU/Linux
specific.

Revision 1.151 - (view) (annotate) - [select for diffs]
Thu Aug 1 04:30:37 2002 UTC (11 years, 8 months ago) by kaz
Branch: MAIN
Changes since 1.150: +0 -8 lines
Diff to previous 1.150 , to selected 1.41
Undoing change to mcvs grab file comparison. It was found to produce
some really bad results, like correlating files that have nothing
to do with each other. A higher threshold wouldn't help.

Revision 1.150 - (view) (annotate) - [select for diffs]
Thu Aug 1 04:03:13 2002 UTC (11 years, 8 months ago) by kaz
Branch: MAIN
Changes since 1.149: +18 -0 lines
Diff to previous 1.149 , to selected 1.41
* 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.149 - (view) (annotate) - [select for diffs]
Wed Jul 31 13:27:05 2002 UTC (11 years, 8 months ago) by kaz
Branch: MAIN
Changes since 1.148: +11 -0 lines
Diff to previous 1.148 , to selected 1.41
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.148 - (view) (annotate) - [select for diffs]
Mon Jul 29 00:51:34 2002 UTC (11 years, 8 months ago) by kaz
Branch: MAIN
Changes since 1.147: +4 -0 lines
Diff to previous 1.147 , to selected 1.41
* docs/meta-cvs.latex: Rewrote most of Introduction.

Revision 1.147 - (view) (annotate) - [select for diffs]
Sun Jul 28 03:24:32 2002 UTC (11 years, 8 months ago) by kaz
Branch: MAIN
Changes since 1.146: +8 -0 lines
Diff to previous 1.146 , to selected 1.41
New scripts for building LaTeX document. These do the right thing
to minimize the number of times latex is run. Make proved useless.

* docs/generate.sh: New file.
* docs/cleanup.sh: New file.

Revision 1.146 - (view) (annotate) - [select for diffs]
Sun Jul 21 15:52:00 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-20
Changes since 1.145: +5 -0 lines
Diff to previous 1.145 , to selected 1.41
* INSTALL: Revising CLISP installation instructions to the
easier method using --build.

Revision 1.145 - (view) (annotate) - [select for diffs]
Thu Jul 18 15:28:42 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.144: +5 -1 lines
Diff to previous 1.144 , to selected 1.41
File rename.

Revision 1.144 - (view) (annotate) - [select for diffs]
Thu Jul 18 04:49:36 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.143: +10 -0 lines
Diff to previous 1.143 , to selected 1.41
* code/generic.lisp (mcvs-generic): Support new keyword,
:no-fix-empty-file-list. Specifies that if no files are passed,
and the --metaonly option is not present, the CVS command is to be
executed without any file arguments.
(mcvs-commit-wrapper): Specify :no-fix-empty-file-list t when
calling mcvs-generic. Thus commit now has the behavior that
when it is passed no file arguments, it does a true global commit.

Revision 1.143 - (view) (annotate) - [select for diffs]
Tue Jul 16 20:15:07 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-19
Changes since 1.142: +7 -0 lines
Diff to previous 1.142 , to selected 1.41
* code/restore.lisp (mcvs-restore): Work properly with
partial sandboxes; that is, move things to lost+found
directory at the top of the partial sandbox, rather than
the abstract root.

Revision 1.142 - (view) (annotate) - [select for diffs]
Tue Jul 16 20:09:29 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.141: +5 -0 lines
Diff to previous 1.141 , to selected 1.41
* code/mcvs-main.lisp (usage): Updated to describe restore
command.

Revision 1.141 - (view) (annotate) - [select for diffs]
Sun Jul 14 21:43:16 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.140: +6 -0 lines
Diff to previous 1.140 , to selected 1.41
* code/grab.lisp (mcvs-grab): If there are only added files
or only removed files, don't bother scanning any files,
since there are no moves to compute.

Revision 1.140 - (view) (annotate) - [select for diffs]
Sun Jul 14 18:40:35 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.139: +1 -1 lines
Diff to previous 1.139 , to selected 1.41
Start using paths to refer to files.

Revision 1.139 - (view) (annotate) - [select for diffs]
Sun Jul 14 18:38:33 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.138: +9 -0 lines
Diff to previous 1.138 , to selected 1.41
* find-bind.lisp (vector-bind): New macro, binds symbols
to elements of a vector.
(find-bind-extract-vals): Rewrite using vectors. Fixes
a bug: the old version was not handling duplicate keys
properly.
(find-bind): Integrate with new find-bind-extract-vals.

Revision 1.138 - (view) (annotate) - [select for diffs]
Thu Jul 11 17:45:10 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.137: +5 -0 lines
Diff to previous 1.137 , to selected 1.41
*** empty log message ***

Revision 1.137 - (view) (annotate) - [select for diffs]
Mon Jul 8 05:50:17 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.136: +5 -0 lines
Diff to previous 1.136 , to selected 1.41
* move.lisp (move-guts): When moving multiple sources to
a target directory, provide a restart to skip a bad source.

Revision 1.136 - (view) (annotate) - [select for diffs]
Mon Jul 8 05:20:42 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.135: +9 -0 lines
Diff to previous 1.135 , to selected 1.41
* seqfuncs.lisp (intersection-difference): Support a new
keyword parameter :squash-nil.

* mapping.lisp (mapping-difference): Filter non-moved pairs
directly in intersection-difference call using :squash-nil,
eliminating the need to do a second remove-if pass.

Revision 1.135 - (view) (annotate) - [select for diffs]
Mon Jul 8 05:11:10 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.134: +5 -0 lines
Diff to previous 1.134 , to selected 1.41
* mapping.lisp (mapping-difference): Rewrite using
intersection-difference.

Revision 1.134 - (view) (annotate) - [select for diffs]
Mon Jul 8 04:34:49 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.133: +6 -0 lines
Diff to previous 1.133 , to selected 1.41
* grab.lisp (added-removed): Function removed.
(mcvs-grab): Use new intersection-difference function
instead of added-removed.

Revision 1.133 - (view) (annotate) - [select for diffs]
Sun Jul 7 21:40:46 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.132: +4 -0 lines
Diff to previous 1.132 , to selected 1.41
* seqfuncs.lisp (intersection-difference): New function.

Revision 1.132 - (view) (annotate) - [select for diffs]
Sat Jul 6 17:15:01 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-18
Changes since 1.131: +94 -0 lines
Diff to previous 1.131 , to selected 1.41
Merging from partial-sandbox-branch.

Revision 1.131 - (view) (annotate) - [select for diffs]
Sat Jul 6 17:05:44 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.130: +6 -0 lines
Diff to previous 1.130 , to selected 1.41
* grab.lisp (mcvs-grab): Bugfix: determination of common words
was failing on small file sets because the min function was
used instead of the max to compute the threshold.

Revision 1.130.2.10 - (view) (annotate) - [select for diffs]
Sat Jul 6 16:59:57 2002 UTC (11 years, 9 months ago) by kaz
Branch: partial-sandbox-branch
CVS Tags: partial-sandbox-branch~merged-to-HEAD-0
Changes since 1.130.2.9: +8 -0 lines
Diff to previous 1.130.2.9 , to branch point 1.130 , to next main 1.324 , to selected 1.41
* grab.lisp (mcvs-grab): Upgraded to work with partial sandbox.
Extra parameter added to specify subdirectory. File analysis
is only done on visible files.
(mcvs-grab-wrapper): Take optional parameter to specify
subdirectory.

Revision 1.130.2.9 - (view) (annotate) - [select for diffs]
Sat Jul 6 16:57:20 2002 UTC (11 years, 9 months ago) by kaz
Branch: partial-sandbox-branch
Changes since 1.130.2.8: +6 -0 lines
Diff to previous 1.130.2.8 , to branch point 1.130 , to selected 1.41
* mapping.lisp (mapping-update): If no-delete-removed is
true, nevertheless print the ``* removing...'' messages
to show that removal from the mapping is going on.

Revision 1.130.2.8 - (view) (annotate) - [select for diffs]
Sat Jul 6 16:13:41 2002 UTC (11 years, 9 months ago) by kaz
Branch: partial-sandbox-branch
Changes since 1.130.2.7: +5 -0 lines
Diff to previous 1.130.2.7 , to branch point 1.130 , to selected 1.41
* remap.lisp (mcvs-remap): Remap only the visible sandbox,
and combine resulting map with the invisible portion.

Revision 1.130.2.7 - (view) (annotate) - [select for diffs]
Sat Jul 6 15:56:28 2002 UTC (11 years, 9 months ago) by kaz
Branch: partial-sandbox-branch
Changes since 1.130.2.6: +5 -0 lines
Diff to previous 1.130.2.6 , to branch point 1.130 , to selected 1.41
* remove.lisp (mcvs-remove): Added path conversions to support
partial sandboxes.

Revision 1.130.2.6 - (view) (annotate) - [select for diffs]
Sat Jul 6 15:49:12 2002 UTC (11 years, 9 months ago) by kaz
Branch: partial-sandbox-branch
Changes since 1.130.2.5: +5 -0 lines
Diff to previous 1.130.2.5 , to branch point 1.130 , to selected 1.41
* generic.lisp (mcvs-generic): Added path conversions to support
partial sandboxes.

Revision 1.130.2.5 - (view) (annotate) - [select for diffs]
Sat Jul 6 15:33:47 2002 UTC (11 years, 9 months ago) by kaz
Branch: partial-sandbox-branch
Changes since 1.130.2.4: +5 -0 lines
Diff to previous 1.130.2.4 , to branch point 1.130 , to selected 1.41
* add.lisp (mcvs-add): Added path conversions to support
partial sandboxes.

Revision 1.130.2.4 - (view) (annotate) - [select for diffs]
Sat Jul 6 04:49:54 2002 UTC (11 years, 9 months ago) by kaz
Branch: partial-sandbox-branch
Changes since 1.130.2.3: +6 -0 lines
Diff to previous 1.130.2.3 , to branch point 1.130 , to selected 1.41
* move.lisp (source-check): Use real source path for checking
against MCVS/ area.
(mcvs-move): Ditto for destination path.

Revision 1.130.2.3 - (view) (annotate) - [select for diffs]
Sat Jul 6 04:36:27 2002 UTC (11 years, 9 months ago) by kaz
Branch: partial-sandbox-branch
Changes since 1.130.2.2: +7 -0 lines
Diff to previous 1.130.2.2 , to branch point 1.130 , to selected 1.41
* mapping.lisp (mapping-update): Make sure only those files
are processed which are visible in the sandbox. If a file
is moved out of or into visibility, this is indicated in the
diagnostic output.

Revision 1.130.2.2 - (view) (annotate) - [select for diffs]
Fri Jul 5 17:37:10 2002 UTC (11 years, 9 months ago) by kaz
Branch: partial-sandbox-branch
Changes since 1.130.2.1: +8 -0 lines
Diff to previous 1.130.2.1 , to branch point 1.130 , to selected 1.41
* mapping.lisp (real-path-exists): Use path-prefix-equal, because
that handles all the tricky cases.
(abstract-to-real-path): Handle the case when abstract path
is the same as the path prefix, with or without the trailing
slash.

Revision 1.130.2.1 - (view) (annotate) - [select for diffs]
Fri Jul 5 16:39:23 2002 UTC (11 years, 9 months ago) by kaz
Branch: partial-sandbox-branch
Changes since 1.130: +39 -0 lines
Diff to previous 1.130 , to selected 1.41
Start of experimental ``partial sandbox'' work.

* mapping.lisp (*mcvs-displaced-name*, *mcvs-displaced*): New
constants, hold name of administrative file MCVS/DISPLACED which stores
the displaced path prefix.
(*displaced-path-prefix*): New special variable, holds displaced
path prefix read from MCVS/DISPLACED.
(*displaced-path-length*): New special variable, holds length
of string stored in *displaced-path-prefix*.
(real-path-exists, abstract-to-real-path, real-to-abstract-path):
New functions for mapping between actual sandbox path, and
the abstract sandbox path stored in the mapping.
(in-sandbox-root-dir): Macro modified to read *mcvs-displaced*
administrative file, and set up the new special variables.
(mapping-synchronize): Only operate on files that are present
in the sandbox; i.e. that have real paths corresponding to their
abstract paths. Convert to the real path when calling lower
level file manipulation functions.
(mapping-update): Likewise, but this conversion is not complete.
(displaced-path-read, displaced-path-write): New functions for
reading and writing MCVS/DISPLACED.

Revision 1.130 - (view) (annotate) - [select for diffs]
Thu Jul 4 14:17:56 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
CVS Tags: partial-sandbox-branch~branch-point
Branch point for: partial-sandbox-branch
Changes since 1.129: +12 -0 lines
Diff to previous 1.129 , to selected 1.41
* find-bind.lisp (find-bind-extract-vals): Rewrite for
efficiency. No impact on Meta-CVS, just done for the sake of improving
the quality of this highly reusable code. There is specialized
code now depending on whether the input sequence is a list or
a vector. A single pass is made over the sequence, with multiple
passes over the search values. The sequence could be large,
whereas the list of search values is typically going to be small.
(find-bind): Modified to reflect slight interface change
in find-bind-extract-vals.

Revision 1.129 - (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
Changes since 1.128: +4 -0 lines
Diff to previous 1.128 , to selected 1.41
*** empty log message ***

Revision 1.128 - (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.127: +11 -0 lines
Diff to previous 1.127 , to selected 1.41
* 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.127 - (view) (annotate) - [select for diffs]
Tue Jul 2 13:19:49 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.126: +5 -0 lines
Diff to previous 1.126 , to selected 1.41
* checkout.lisp (mcvs-checkout): Don't delete the MCVS directory
of an existing checkout.

Revision 1.126 - (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.125: +11 -0 lines
Diff to previous 1.125 , to selected 1.41
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.125 - (view) (annotate) - [select for diffs]
Mon Jul 1 16:16:25 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.124: +16 -0 lines
Diff to previous 1.124 , to selected 1.41
Grab no longer synchronizes to recreate deleted files immediately
before blowing them away.

* grab.lisp (mcvs-grab): Specify :no-sync t when calling mcvs-remove.

* remove.lisp (mcvs-remove): Support new no-sync keyword. This tells
mcvs-remove that the files being removed from the mapping,
don't exist in the sandbox. So it's not necessary to call
mapping-synchronize, and mapping-update can be told via
:no-delete-removed t not to try to remove deleted files.

* mapping.lisp (mapping-update): New no-delete-removed keyword
parameter.

Revision 1.124 - (view) (annotate) - [select for diffs]
Sat Jun 29 18:22:58 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.123: +1 -1 lines
Diff to previous 1.123 , to selected 1.41
Grammar error.

Revision 1.123 - (view) (annotate) - [select for diffs]
Sat Jun 29 16:26:51 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.122: +6 -0 lines
Diff to previous 1.122 , to selected 1.41
* create.lisp (mcvs-create): Take out vendor branch parameter,
use "Created-by-Meta-CVS" as the vendor tag.
(mcvs-create-wrapper): Take out vendor branch parameter.

Revision 1.122 - (view) (annotate) - [select for diffs]
Sat Jun 29 15:40:54 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-16
Changes since 1.121: +5 -0 lines
Diff to previous 1.121 , to selected 1.41
* generic.lisp (mcvs-tag-wrapper): This one needs to include
meta files by default.

Revision 1.121 - (view) (annotate) - [select for diffs]
Sat Jun 29 15:35:02 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.120: +6 -6 lines
Diff to previous 1.120 , to selected 1.41
Fix wrong dates.

Revision 1.120 - (view) (annotate) - [select for diffs]
Sat Jun 29 14:15:25 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.119: +28 -0 lines
Diff to previous 1.119 , to selected 1.41
* 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.119 - (view) (annotate) - [select for diffs]
Sat Jun 29 02:13:23 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.118: +5 -0 lines
Diff to previous 1.118 , to selected 1.41
* memoize.lisp (memoize-expander): Use ordinary hash for memoizing
monadic functions.

Revision 1.118 - (view) (annotate) - [select for diffs]
Fri Jun 28 21:52:12 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
CVS Tags: old-convert-hacking-branch~branch-point
Branch point for: old-convert-hacking-branch
Changes since 1.117: +1 -1 lines
Diff to previous 1.117 , to selected 1.41
Change similarity threshold to 30%.

Revision 1.117 - (view) (annotate) - [select for diffs]
Fri Jun 28 21:39:49 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.116: +23 -0 lines
Diff to previous 1.116 , to selected 1.41
* grab.lisp (read-word-hash): Use #'equalp test for case-insensitive
string comparisons.
(added-removed): Use string< instead of string-lessp for comparing
paths.
(determine-common-words, eliminate-common-words): New functions.
(move-candidates): Acceptance threshold reduced to 50%, since
elimination of common words reduces the similarity correlation.
(mcvs-grab): Use string< instead of string-lessp when sorting paths.
Do the common words computation.

* mapping.lisp (mapping-dupe-check, mapping-write,
mapping-difference): Use string< instead of string-lessp.

Revision 1.116 - (view) (annotate) - [select for diffs]
Fri Jun 28 15:13:09 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.115: +11 -0 lines
Diff to previous 1.115 , to selected 1.41
* memoize.lisp (factor-memo-labels): New function, rips apart
functions generated by memoize-expander, in order to factor
out the multi-hash defining let blocks.
(memoized-labels): Interface corrected. Also, use new function to
generate a labels block that allows for mutually recursive memoized
functions which preserve hash contents across arbitrarily mutually
recursive calls. This is done by enclosing the functions in one big
let block which binds all the hashes.

Revision 1.115 - (view) (annotate) - [select for diffs]
Fri Jun 28 13:57:25 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.114: +5 -0 lines
Diff to previous 1.114 , to selected 1.41
* seqfuncs.lisp (lcs-list): Specify #'eq test for memoization
parameters.

Revision 1.114 - (view) (annotate) - [select for diffs]
Fri Jun 28 13:50:01 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.113: +20 -0 lines
Diff to previous 1.113 , to selected 1.41
Adding some cool code: a multi-hash datatype which implements
multi-dimensional sparse arrays using a tree of hash tables,
and a function memoizer which uses multi hash to index on
function arguments.

* multi-hash.lisp (multi-hash): New class.
(initialize-instance): New method on multi-hash.
(multi-hash-common-code): New macro.
(get-multi-hash, set-multi-hash): New functions.

* memoize.lisp (define-memoized-function,
memoized-labels): New macros.
(remove-key-aux-rest strip-lambda-list, extract-tests,
remove-tests, memoize-expander): New functions.

* seqfuncs.lisp (lcs-list): Function is now correctly
memoized using define-memoized-function.

Revision 1.113 - (view) (annotate) - [select for diffs]
Wed Jun 26 22:21:44 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
Changes since 1.112: +16 -0 lines
Diff to previous 1.112 , to selected 1.41
* grab.lisp (read-word-hash): Memory use optimizations: use smaller
initial size for tokens; re-use the same token object when the
hash already contains a duplicate.
(correlate): Renamed to correlate-word-hashes.
(correlate-paths): New function; computes a confidence-reducing
factor based on the differences between two paths.
(move-candidates): Use correlate-paths to lower the confidence
for distant moves. This could help sort out ambiguities when
projects contain very similar or duplicate files which are subject
to parallel moves.

* seqfuncs.lisp (lcs-list, lcs-vector,
longest-common-subsequence): New functions.

Revision 1.112 - (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
Changes since 1.111: +17 -0 lines
Diff to previous 1.111 , to selected 1.41
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.111 - (view) (annotate) - [select for diffs]
Tue Jun 25 04:57:32 2002 UTC (11 years, 10 months ago) by kaz
Branch: MAIN
Changes since 1.110: +9 -0 lines
Diff to previous 1.110 , to selected 1.41
* checkout.lisp (mcvs-checkout): New key parameter, no-generate.
Tells the checkout function not to unpack the MCVS directory.
This will be useful when mcvs-checkout is used as a subfunction
of the new grab command. Failed CVS call is now turned into
an error. The MCVS subdirectory is *always* deleted, even if the
checkout did not create the checkout directory.

Revision 1.110 - (view) (annotate) - [select for diffs]
Tue Jun 25 03:46:15 2002 UTC (11 years, 10 months ago) by kaz
Branch: MAIN
Changes since 1.109: +5 -0 lines
Diff to previous 1.109 , to selected 1.41
* dirwalk.lisp (dirwalk-fi): Bugfix: top call was not
passing down keyword parameters to recursive call.

Revision 1.109 - (view) (annotate) - [select for diffs]
Sun Jun 23 20:54:50 2002 UTC (11 years, 10 months ago) by kaz
Branch: MAIN
Changes since 1.108: +5 -0 lines
Diff to previous 1.108 , to selected 1.41
* posix.lisp (canonicalize-path): Use concatenate-string
instead of format.

Revision 1.108 - (view) (annotate) - [select for diffs]
Sun Jun 23 20:46:14 2002 UTC (11 years, 10 months ago) by kaz
Branch: MAIN
Changes since 1.107: +4 -0 lines
Diff to previous 1.107 , to selected 1.41
* posix.lisp (parse-posix-namestring): Clean rewrite.

Revision 1.107 - (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.106: +14 -0 lines
Diff to previous 1.106 , to selected 1.41
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.106 - (view) (annotate) - [select for diffs]
Sat Jun 22 17:58:49 2002 UTC (11 years, 10 months ago) by kaz
Branch: MAIN
Changes since 1.105: +3 -2 lines
Diff to previous 1.105 , to selected 1.41
* split.lisp (split-fields): Optimized to extract tokens directly
from the input string using subseq rather than construct them
character by character.

Revision 1.105 - (view) (annotate) - [select for diffs]
Sat Jun 22 17:44:53 2002 UTC (11 years, 10 months ago) by kaz
Branch: MAIN
Changes since 1.104: +5 -0 lines
Diff to previous 1.104 , to selected 1.41
* split.lisp (split-fields): Optimized to build tokens using
vector-push-extend rather than format.

Revision 1.104 - (view) (annotate) - [select for diffs]
Sat Jun 22 15:00:54 2002 UTC (11 years, 10 months ago) by kaz
Branch: MAIN
Changes since 1.103: +4 -0 lines
Diff to previous 1.103 , to selected 1.41
* find-bind.lisp (find-bind): Use #'values instead of #'(lambda (x) x).

Revision 1.103 - (view) (annotate) - [select for diffs]
Sat Jun 22 02:27:44 2002 UTC (11 years, 10 months ago) by kaz
Branch: MAIN
Changes since 1.102: +11 -0 lines
Diff to previous 1.102 , to selected 1.41
* clisp-linux.sh (:clisp-old): Added to *features*
for CLISP 2.28 or higher.
(*null-pointer*): Only defined when :clisp-old is present.
(pointer-null): Use new ffi:foreign-pointer-null if :clisp-old
feature is not present.

* install.sh: Don't do *null-pointer* workaround hack
unless :clisp-old feature is present in the memory image.

Revision 1.102 - (view) (annotate) - [select for diffs]
Fri Jun 21 17:15:36 2002 UTC (11 years, 10 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-14
Changes since 1.101: +7 -0 lines
Diff to previous 1.101 , to selected 1.41
* types.lisp (types-make-cvs-adds): Serious bugfix. Forgot
to strip MCVS/ prefix from those F- files which don't match
any type entries.  This caused cvs add to fail for unsuffixed
files.

Revision 1.101 - (view) (annotate) - [select for diffs]
Sat Jun 8 15:31:25 2002 UTC (11 years, 10 months ago) by kaz
Branch: MAIN
Changes since 1.100: +6 -0 lines
Diff to previous 1.100 , to selected 1.41
* types.lisp (types-to-import-wrapper-args): Don't use backquote
template to generate a list that will be destructively catenated
by mapcan.

Revision 1.100 - (view) (annotate) - [select for diffs]
Thu May 23 02:42:37 2002 UTC (11 years, 11 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-13
Changes since 1.99: +7 -1 lines
Diff to previous 1.99 , to selected 1.41
* checkout.lisp (mcvs-checkout): If a checkout directory is
created and then the CVS checkout fails, the directory is
then removed.

Revision 1.99 - (view) (annotate) - [select for diffs]
Tue May 21 02:55:20 2002 UTC (11 years, 11 months ago) by kaz
Branch: MAIN
Changes since 1.98: +6 -0 lines
Diff to previous 1.98 , to selected 1.41
* find-bind (find-bind-extract-vals, find-bind): Process default
values in find-bind-extract-vals, instead of in the expansion of
find-bind, thereby reducing some macro bloat.

Revision 1.98 - (view) (annotate) - [select for diffs]
Mon May 20 18:09:14 2002 UTC (11 years, 11 months ago) by kaz
Branch: MAIN
Changes since 1.97: +6 -0 lines
Diff to previous 1.97 , to selected 1.41
* remap.lisp (mcvs-remap): Loads MAP as well as MAP-LOCAL.
If it the mappings differ, an error is signaled.  The user can choose
to ignore the error, in which case MAP is clobbered.

Revision 1.97 - (view) (annotate) - [select for diffs]
Mon May 20 17:49:12 2002 UTC (11 years, 11 months ago) by kaz
Branch: MAIN
Changes since 1.96: +20 -0 lines
Diff to previous 1.96 , to selected 1.41
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.96 - (view) (annotate) - [select for diffs]
Wed May 15 13:52:41 2002 UTC (11 years, 11 months ago) by kaz
Branch: MAIN
Changes since 1.95: +6 -0 lines
Diff to previous 1.95 , to selected 1.41
* sync.lisp (synchronize-files): Signal an error when the two files
to be synchronized have the same time stamp. Provide two restarts
for doing the synchronization either way.

Revision 1.95 - (view) (annotate) - [select for diffs]
Mon May 6 18:12:45 2002 UTC (11 years, 11 months ago) by kaz
Branch: MAIN
Changes since 1.94: +6 -0 lines
Diff to previous 1.94 , to selected 1.41
* mapping.lisp (in-sandbox-root-dir): Fix symbol macro
sandbox-down-path; it was referring to the (quote #:DOWNPATH-NNN)
rather than #:DOWNPATH-NNN.

Revision 1.94 - (view) (annotate) - [select for diffs]
Sat May 4 18:01:04 2002 UTC (11 years, 11 months ago) by kaz
Branch: MAIN
Changes since 1.93: +5 -0 lines
Diff to previous 1.93 , to selected 1.41
* import.lisp (mcvs-import): Specify -I ! argument to cvs import
so that it does not ignore any F- files.

Revision 1.93 - (view) (annotate) - [select for diffs]
Sat May 4 17:52:48 2002 UTC (11 years, 11 months ago) by kaz
Branch: MAIN
Changes since 1.92: +5 -0 lines
Diff to previous 1.92 , to selected 1.41
* mapping.lisp (mapping-update): Provide restart that allows
user to ignore file removal error.

Revision 1.92 - (view) (annotate) - [select for diffs]
Fri Apr 19 18:56:58 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.91: +12 -0 lines
Diff to previous 1.91 , to selected 1.41
Porting to CMUCL.

* system.lisp: Conditionally load new module cmucl-unix.

* mapping.lisp (mapping-dupe-check, mapping-write,
mapping-difference): Fixes related to sort function; we were
relying on CLISP's preservation of the cons cell order.

* cmucl-unix.lisp: New file.

Revision 1.91 - (view) (annotate) - [select for diffs]
Wed Apr 17 15:46:35 2002 UTC (12 years ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-12
Changes since 1.90: +2 -1 lines
Diff to previous 1.90 , to selected 1.41
Remove check that disables checking out to existing places other than the
current directory.  Added check for existing MCVS subdirectory in the
target directory.

Revision 1.90 - (view) (annotate) - [select for diffs]
Wed Apr 17 15:33:05 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.89: +9 -0 lines
Diff to previous 1.89 , to selected 1.41
* checkout.lisp (mcvs-checkout): Allow -d to specify current
directory as the checkout directory. Do not complain if the
target directory exists, just try to use it anyway. Use
the mapping-update function to update the sandbox.
These changes allow a Meta-CVS sandbox to blend with an existing
directory structure, a useful feature.

Revision 1.89 - (view) (annotate) - [select for diffs]
Wed Apr 17 15:13:49 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.88: +8 -0 lines
Diff to previous 1.88 , to selected 1.41
* generic.lisp (mcvs-generic): Change how empty file argument list
is handled. Rather than rewriting it to '(".") we do a proper
map-prefix-lookup. Synchronizing and invoking CVS is elided
if the resulting list of files to process is empty and the --nometa
option is specified.

Revision 1.88 - (view) (annotate) - [select for diffs]
Tue Apr 16 20:43:44 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.87: +11 -0 lines
Diff to previous 1.87 , to selected 1.41
* branch.lisp (parse-sticky): New function.
(read-cvs-entries): New function.
(same-tag-check): New function.
(what-tag-are-we-on): Renamed to what-are-we-sticky-to. Calls
parse-sticky to return structured tag.
(mcvs-merge): Make use of structured tags.
(mcvs-list-branches): Make use of structured tags. Indicate
when sandbox is inconsistently sticky.

Revision 1.87 - (view) (annotate) - [select for diffs]
Tue Apr 16 14:50:18 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.86: +6 -1 lines
Diff to previous 1.86 , to selected 1.41
* remove.lisp (mcvs-remove): Corrected careless bracketing
introduced on 2002-03-15 (1.16) that rendered this function ineffective.

Revision 1.86 - (view) (annotate) - [select for diffs]
Fri Apr 5 02:25:35 2002 UTC (12 years ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-11
Changes since 1.85: +11 -0 lines
Diff to previous 1.85 , to selected 1.41
Absolute paths resolved against sandbox root.

* posix.lisp (path-absolute-p): New function. Predicate to
test whether a path is absolute.

* mapping.lisp (in-sandbox-root-dir): sandbox-translate-paths
function detects absolute path, and treats it as relative to
sandbox root.

Revision 1.85.2.1 - (view) (annotate) - [select for diffs]
Fri Apr 5 00:02:06 2002 UTC (12 years ago) by kaz
Branch: deferred-adds-branch
Changes since 1.85: +20 -0 lines
Diff to previous 1.85 , to next main 1.324 , to selected 1.41
Deferred adds feature, to get around the bug in cvs whereby
one cannot add files and then create a branch and switch to
it and commit them there.

add.lisp (mcvs-add): Do not execute cvs add commands, but instead
save them in a local MCVS metafile called ADD-LOCAL.
(complete-local-adds): New function, performs the deferred adds
and then removes ADD-LOCAL.
(mcvs-commit-wrapper): Function moved here out of generic.lisp.
Calls complete-local-adds before doing the commit.

generlic.lisp (mcvs-commit-wrapper): Function moved to add.lisp.

import.lisp (mcvs-import): Put ADD-LOCAL name under .cvsignore .

mapping.lisp (*mcvs-add-local-name*, *mcvs-add-local*): New
constants.

Revision 1.85 - (view) (annotate) - [select for diffs]
Thu Apr 4 22:23:56 2002 UTC (12 years ago) by kaz
Branch: MAIN
CVS Tags: deferred-adds-branch~branch-point
Branch point for: deferred-adds-branch
Changes since 1.84: +3 -3 lines
Diff to previous 1.84 , to selected 1.41
Fix dates.

Revision 1.84 - (view) (annotate) - [select for diffs]
Thu Apr 4 18:55:28 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.83: +21 -0 lines
Diff to previous 1.83 , to selected 1.41
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.83 - (view) (annotate) - [select for diffs]
Thu Apr 4 16:58:50 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.82: +4 -0 lines
Diff to previous 1.82 , to selected 1.41
* branch.lisp (branch-tag-check): Check reserved symbol HEAD.

Revision 1.82 - (view) (annotate) - [select for diffs]
Thu Apr 4 16:55:09 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.81: +11 -0 lines
Diff to previous 1.81 , to selected 1.41
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.81 - (view) (annotate) - [select for diffs]
Wed Apr 3 21:52:55 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.80: +6 -0 lines
Diff to previous 1.80 , to selected 1.41
* branch.lisp (where-is-the-repository): New function.
(cvs-make-or-advance-tag): Pass down CVSROOT to cvs rtag using
the -d global option.

Revision 1.80 - (view) (annotate) - [select for diffs]
Wed Apr 3 17:00:54 2002 UTC (12 years ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-10
Changes since 1.79: +7 -0 lines
Diff to previous 1.79 , to selected 1.41
* branch.lisp (what-module-is-this): New function.
(cvs-make-or-advance-tag): Use rtag rather than tag for tagging
the branch being merged. This fixes the failure to merge added files.
(mcvs-merge): Use mcvs-update rather than directly using cvs.

Revision 1.79 - (view) (annotate) - [select for diffs]
Wed Apr 3 00:55:04 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.78: +13 -0 lines
Diff to previous 1.78 , to selected 1.41
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.78 - (view) (annotate) - [select for diffs]
Tue Apr 2 23:38:19 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.77: +14 -0 lines
Diff to previous 1.77 , to selected 1.41
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.77 - (view) (annotate) - [select for diffs]
Mon Apr 1 21:27:17 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.76: +6 -0 lines
Diff to previous 1.76 , to selected 1.41
checkout.lisp (mcvs-checkout): Emit informational message
when checkout completes, because it's not obvious what directory
was just created.

Revision 1.76 - (view) (annotate) - [select for diffs]
Thu Mar 28 22:50:40 2002 UTC (12 years ago) by kaz
Branch: MAIN
Changes since 1.75: +8 -0 lines
Diff to previous 1.75 , to selected 1.41
Error checking added to mcvs move: verifies that all
sources exist and are known to Meta-CVS.

* move.lisp (source-check): New function.
(simple-rename, simple-move-to-dir): Use new function.

Revision 1.75 - (view) (annotate) - [select for diffs]
Wed Mar 20 19:32:26 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.74: +9 -0 lines
Diff to previous 1.74 , to selected 1.41
* rcsparse.lisp: File renamed to rcs-utils.lisp.
(rcs-delta): New slot, delta-hash.
(rcs-make-delta-hash): New function.
(rcs-parse): Calls rcs-make-delta-hash to set up new slot.

* convert.lisp: require changed to match file rename.

Revision 1.74 - (view) (annotate) - [select for diffs]
Wed Mar 20 18:26:42 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.73: +12 -0 lines
Diff to previous 1.73 , to selected 1.41
Some new macros for slot access.

* slot-refs.lisp: New file.
(with-slot-refs): New macro.
(with-multi-slot-refs): New macro.

* rcsparse.lisp (rcs-parse-newphrases, rcs-parse-admin,
rcs-parse-delta): Replace uses
of symbol-macrolet by with-slot-refs and with-multi-slot-refs.

Revision 1.73 - (view) (annotate) - [select for diffs]
Tue Mar 19 22:10:56 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.72: +15 -1 lines
Diff to previous 1.72 , to selected 1.41
* rcsparse.lisp (rcs-delta): New struct.
(rcs-file): New slot, deltas.
(rcs-parse-newphrases): New function, factors out parsing of
``newphrases'' syntactic element out of rcs-parse-admin.
(rcs-parse-admin): Use rcs-parse-newphrases.
(rcs-parse-delta, rcs-parse-deltas): New functions.
(rcs-parse): Parse both admin and deltas; store deltas in new
rcs-file slot.

Revision 1.72 - (view) (annotate) - [select for diffs]
Mon Mar 18 21:51:42 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.71: +17 -0 lines
Diff to previous 1.71 , to selected 1.41
* posix.lisp (parse-posix-namestring): New function. Converts POSIX
path to CL Path object.
* rcsparse.lisp: New file
(rcs-admin, rcs-file, rcs-token, rcs-token-stream): New structs.
(rcs-peek-token, rcs-read-token): New generic functions.
(rcs-extract-id-sym-or-num, rcs-extract-string,
rcs-match-optional, rcs-match-token, rcs-parse, rcs-parse-admin,
rcs-special-p): New functions.

* convert.lisp (classify-tags): Work with association list rather
than raw strings.
(mcvs-convert): Use rcs-parse to extract tags. Fix call to
mapping-generate name. Use parse-posix-namestring when opening
version file. Generate informative chatter.

Revision 1.71 - (view) (annotate) - [select for diffs]
Fri Mar 15 23:25:56 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.70: +6 -0 lines
Diff to previous 1.70 , to selected 1.41
* remove.lisp (mcvs-remove): More detailed error checking.
Checks for remove attempts against MCVS/ area, removes of local
files not versioned under Meta-CVS, and nonexistent files.

Revision 1.70 - (view) (annotate) - [select for diffs]
Fri Mar 15 23:13:55 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.69: +12 -0 lines
Diff to previous 1.69 , to selected 1.41
* add.lisp (mcvs-add): Error message changed to tell user to use
-R to add directory.

* remove.lisp (mcvs-remove): New generalized boolean parameter
indicates to do a recursive remove. This is controlled by the
-R option which already exists. Behavior changed to not act
on directories unless recursion is explicitly requested.
(mcvs-remove-wrapper): Extract "R" option, pass down new boolean
to mcvs-remove.

Revision 1.69 - (view) (annotate) - [select for diffs]
Fri Mar 15 22:58:57 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.68: +4 -0 lines
Diff to previous 1.68 , to selected 1.41
* remove.lisp (mcvs-remove-wrapper): Remove bogus error check.

Revision 1.68 - (view) (annotate) - [select for diffs]
Thu Mar 14 20:18:36 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.67: +5 -0 lines
Diff to previous 1.67 , to selected 1.41
* checkout.lisp (mcvs-checkout): Bugfix: must use checkout-dir, not
module, when testing whether directory exists or was created properly.

Revision 1.67 - (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.66: +17 -0 lines
Diff to previous 1.66 , to selected 1.41
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.66 - (view) (annotate) - [select for diffs]
Thu Mar 14 17:22:59 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.65: +5 -0 lines
Diff to previous 1.65 , to selected 1.41
* filt.lisp (filt-select-map): Do allow a date and revision to be
specified; the revision could be a branch tag.

Revision 1.65 - (view) (annotate) - [select for diffs]
Wed Mar 13 21:46:38 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.64: +6 -0 lines
Diff to previous 1.64 , to selected 1.41
* mapping.lisp (malformed-map): New function.
(mapping-dupe-check): Perform extra error checks when reading
mapping, and turn them into a condition with a ``nice'' error message.

Revision 1.64 - (view) (annotate) - [select for diffs]
Wed Mar 13 21:35:00 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.63: +5 -0 lines
Diff to previous 1.63 , to selected 1.41
* mcvs-filt.lisp (filt-select-map): Handle error gracefully
when reading map. It's easy to give CVS is a nonexistent tag.

Revision 1.63 - (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.62: +15 -0 lines
Diff to previous 1.62 , to selected 1.41
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.62 - (view) (annotate) - [select for diffs]
Wed Mar 13 18:43:39 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.61: +5 -0 lines
Diff to previous 1.61 , to selected 1.41
* generic.lisp (mcvs-generic): Add .cvsignore to the list of
metafiles.

Revision 1.61 - (view) (annotate) - [select for diffs]
Tue Mar 12 22:55:04 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-8
Changes since 1.60: +5 -0 lines
Diff to previous 1.60 , to selected 1.41
* import.lisp (mcvs-import): Create a .cvsignore file for ignoring
MAP-LOCAL.

Revision 1.60 - (view) (annotate) - [select for diffs]
Tue Mar 12 21:00:19 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.59: +10 -0 lines
Diff to previous 1.59 , to selected 1.41
Fix trailing slash bug in mcvs mv.

* move.lisp (simple-move-to-dir): Canonicalize path after catenating
destination and file base name. This nukes a double slash if
we move to a name with a trailing slash.
(move-guts): Treat a destination name that has a trailing slash
as a directory, unless it exists already as a non-directory.

Revision 1.59 - (view) (annotate) - [select for diffs]
Tue Mar 12 20:33:50 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.58: +8 -0 lines
Diff to previous 1.58 , to selected 1.41
* 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.58 - (view) (annotate) - [select for diffs]
Tue Mar 12 19:59:37 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.57: +6 -0 lines
Diff to previous 1.57 , to selected 1.41
* mapping.lisp (mapping-update): Messages related to moving,
adding or removing files promoted to terse level, so only -Q
can suppress them.

Revision 1.57 - (view) (annotate) - [select for diffs]
Tue Mar 12 19:54:58 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.56: +12 -0 lines
Diff to previous 1.56 , to selected 1.41
* update.lisp (mcvs-update): Changing level of chatter messages.
* move.lisp (mcvs-move): Likewise.
* add.lisp (mcvs-add): Likewise.
* remove.lisp (mcvs-remove): Likewise.
* checkout.lisp (mcvs-checkout): Likewise.
* generic.lisp (mcvs-generic): Likewise.
* import.lisp (mcvs-import): Likewise.
* mapping.lisp (mapping-dupe-check): Likewise.
(mapping-update): Likewise.

Revision 1.56 - (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.55: +11 -0 lines
Diff to previous 1.55 , to selected 1.41
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.55 - (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.54: +7 -0 lines
Diff to previous 1.54 , to selected 1.41
* 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.54 - (view) (annotate) - [select for diffs]
Tue Mar 12 17:35:30 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.53: +4 -0 lines
Diff to previous 1.53 , to selected 1.41
* options.lisp (parse-opt): Make error messages more consistent.

Revision 1.53 - (view) (annotate) - [select for diffs]
Tue Mar 12 17:28:17 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.52: +5 -0 lines
Diff to previous 1.52 , to selected 1.41
* find-bind.lisp (find-bind): Make rem-var optional; sometimes
the user might not care about the remaining unmatched list.

Revision 1.52 - (view) (annotate) - [select for diffs]
Tue Mar 12 00:11:23 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.51: +7 -0 lines
Diff to previous 1.51 , to selected 1.41
* find-bind.lisp (find-bind): Documentation string change. Clarify
that default values are substituted whenever a variable would
otherwise be bound to the value NIL, even through an explicit
match.

Revision 1.51 - (view) (annotate) - [select for diffs]
Mon Mar 11 23:09:08 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.50: +12 -0 lines
Diff to previous 1.50 , to selected 1.41
Sane filtering of -d option in checkout.

* find-bind.lisp (find-bind): Variable bindings can specify
a third element, which provides a default value for any variables
that turn out NIL.

* checkout.lisp (mcvs-checkout): Filter out the -d dir option,
and use it to override the name of the checkout directory,
the way CVS checkout does it.

Revision 1.50 - (view) (annotate) - [select for diffs]
Mon Mar 11 19:58:20 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.49: +7 -0 lines
Diff to previous 1.49 , to selected 1.41
*** empty log message ***

Revision 1.49 - (view) (annotate) - [select for diffs]
Mon Mar 11 19:34:50 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.48: +10 -0 lines
Diff to previous 1.48 , to selected 1.41
* find-bind.lisp: New file.
(find-bind-extract-vals): New function.
(find-bind): New macro.

* error.lisp (restart-destructure): Macro removed.
(mcvs-error-handler): Uses generic find-bind instead of
restart-destructure.

Revision 1.48 - (view) (annotate) - [select for diffs]
Sun Mar 10 03:57:15 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-7
Changes since 1.47: +5 -0 lines
Diff to previous 1.47 , to selected 1.41
* filt.lisp (mcvs-filt): Bugfix: do not stop processing line
if F- file name is not found in hash table.

Revision 1.47 - (view) (annotate) - [select for diffs]
Sun Mar 10 03:32:46 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.46: +14 -0 lines
Diff to previous 1.46 , to selected 1.41
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.46 - (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.45: +14 -0 lines
Diff to previous 1.45 , to selected 1.41
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.45 - (view) (annotate) - [select for diffs]
Sun Mar 10 01:15:49 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.44: +5 -0 lines
Diff to previous 1.44 , to selected 1.41
* generic.lisp (mcvs-generic): Make sure TYPES file is
included in list of files.

Revision 1.44 - (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.43: +5 -0 lines
Diff to previous 1.43 , to selected 1.41
* mcvs-main.lisp (*add-options*): Support -R option for add.
Thus, recursive add works now.

Revision 1.43 - (view) (annotate) - [select for diffs]
Sat Mar 9 23:07:35 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.42: +8 -0 lines
Diff to previous 1.42 , to selected 1.41
Fix mcvs filt so it handles suffixed F- files properly.

* filt.lisp (make-filt-hash): New function.
(mcvs-filt): After matching hex digits, also check for
a suffix match.

Revision 1.42 - (view) (annotate) - [select for diffs]
Sat Mar 9 21:44:28 2002 UTC (12 years, 1 month ago) by kaz
Branch: MAIN
Changes since 1.41: +21 -0 lines
Diff to previous 1.41
Support for file type keyword treatment under mcvs add.

* add.lisp (mcvs-add): Restructured to build up list of new file
suffixes, allow the user to edit the file which determines how
they are treated, filter out ignored files and pass -k options
to multiple cvs adds.

* types.lisp (*mcvs-new-types*): New constant.
(*types-comments*): Constant moved here from import.lisp.
(types-remove-ignores): New function. Code factored out from
mcvs-import.
(types-let-user-edit): Likewise.
(types-make-cvs-adds): New function.

* import.lisp (*types-comments*): Constant removed. Moved to
types.lisp
(mcvs-import): Code factored out to new functions in types.lisp, which
are also used by add.lisp.

Revision 1.41 - (view) (annotate) - [selected]
Mon Feb 18 06:14:22 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.40: +13 -0 lines
Diff to previous 1.40
* print.lisp: New file.
(print-assoc-list): New function.
* types.lisp: Use print-assoc-list to nicely print the types.
* import.lisp (mcvs-import): Don't bother getting user to
edit the types if the type list is empty. In fact, don't
even create the file.

* add.lisp (mcvs-add): Use new form of mapping-generate-name.

Revision 1.40 - (view) (annotate) - [select for diffs]
Mon Feb 18 05:50:42 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.39: +6 -0 lines
Diff to previous 1.39 , to selected 1.41
* import.lisp (mcvs-import): Fix broken restart for re-editing
the types file.
(*types-comments*): Drastically shorten the help text.

Revision 1.39 - (view) (annotate) - [select for diffs]
Sat Feb 16 19:41:43 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.38: +30 -0 lines
Diff to previous 1.38 , to selected 1.41
Support for filetypes in import.

* posix.lisp (suffix): Separator character parameter is optional;
multiple occurences of character lead to one big suffix like
".tar.gz" instead of ".gz".  A leading dot means it's not a suffix but
a hidden file like ".exrc".
(edit-file): New function, brings up text editor for specified file.

* clisp-linux.lisp (env-lookup): New function for environment
variable lookup.

* types.lisp: New source file.
(*mcvs-types-name*, *mcvs-types*): New constants for TYPES filename.
(types-read, types-write, types-sanity-check,
types-to-import-wrapper-args): New functions.

* import.lisp (*types-comments*): New constant.
(mcvs-import): Restructured to build up list of file suffixes,
allow the user to edit the file which determines how they
are treated, filter out ignored files and pass -W options to cvs import
to handle the rest. Failed cvs import is turned into restartable
condition.

* mapping.lisp (mapping-generate-name): Takes a suffix parameter.
The F-files now carry a suffix obtained from the original file,
because I have concluded that this was the only reasonable way
to integrate with CVS.

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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
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 , to selected 1.41
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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
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 , to selected 1.41
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 , to selected 1.41
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 , to selected 1.41
* 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 , to selected 1.41
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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
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 , to selected 1.41
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 , to selected 1.41
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 , to selected 1.41
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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
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 , to selected 1.41
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 , to selected 1.41
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 , to selected 1.41
* 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 , to selected 1.41
* 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 , to selected 1.41
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 , to selected 1.41
* 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
Diff to selected 1.41
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