Mercurial > emacs
changeset 3537:22055fd47b78
(MAKE_LOCK_PATH): If SHORT_FILE_NAMES allocates
different space and calls fill_in_lock_short_file_name.
(fill_in_lock_short_file_name): New function for 14-chars hashed
file names. Replaces fill_in_lock_file_name if SHORT_FILE_NAMES.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 07 Jun 1993 05:30:29 +0000 |
| parents | 58d5ee6ec253 |
| children | f53bcee8d914 |
| files | src/filelock.c |
| diffstat | 1 files changed, 50 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/filelock.c Mon Jun 07 05:30:07 1993 +0000 +++ b/src/filelock.c Mon Jun 07 05:30:29 1993 +0000 @@ -66,10 +66,54 @@ /* Set LOCK to the name of the lock file for the filename FILE. char *LOCK; Lisp_Object FILE; */ + +#ifdef SHORT_FILE_NAMES + +#define MAKE_LOCK_PATH(lock, file) \ + (lock = (char *) alloca (14 + strlen (lock_path) + 1), \ + fill_in_lock_short_file_name (lock, (file))) + + +fill_in_lock_short_file_name (lockfile, fn) + register char *lockfile; + register Lisp_Object fn; +{ + register union + { + unsigned int word [2]; + unsigned char byte [8]; + } crc; + register unsigned char *p, new; + + /* 7-bytes cyclic code for burst correction on byte-by-byte basis. + the used polynomial is D^7 + D^6 + D^3 +1. pot@cnuce.cnr.it */ + + crc.word[0] = crc.word[1] = 0; + + for (p = XSTRING (fn)->data; new = *p++; ) + { + new += crc.byte[7]; + crc.byte[7] = crc.byte[6]; + crc.byte[6] = crc.byte[5] + new; + crc.byte[5] = crc.byte[4]; + crc.byte[4] = crc.byte[3]; + crc.byte[3] = crc.byte[2] + new; + crc.byte[2] = crc.byte[1]; + crc.byte[1] = crc.byte[0]; + crc.byte[0] = new; + } + sprintf (lockfile, "%s%.2x%.2x%.2x%.2x%.2x%.2x%.2x", lock_path, + crc.byte[0], crc.byte[1], crc.byte[2], crc.byte[3], + crc.byte[4], crc.byte[5], crc.byte[6]); +} + +#else /* !defined SHORT_FILE_NAMES */ + #define MAKE_LOCK_PATH(lock, file) \ (lock = (char *) alloca (XSTRING (file)->size + strlen (lock_path) + 1), \ fill_in_lock_file_name (lock, (file))) + fill_in_lock_file_name (lockfile, fn) register char *lockfile; register Lisp_Object fn; @@ -88,6 +132,7 @@ *p = '!'; } } +#endif /* SHORT_FILE_NAMES */ static Lisp_Object lock_file_owner_name (lfname) @@ -124,6 +169,11 @@ and put in the Emacs lock directory. */ /* (ie., /ka/king/junk.tex -> /!/!ka!king!junk.tex). */ +/* If SHORT_FILE_NAMES is defined, the lock file name is the hex + representation of a 14-bytes CRC generated from the file name + and put in the Emacs lock directory (not very nice, but it works). + (ie., /ka/king/junk.tex -> /!/ec92d3ed24a8f0). */ + void lock_file (fn) register Lisp_Object fn;