home *** CD-ROM | disk | FTP | other *** search
- RCS file: /net/acae127/home/bammi/etc/src/master/gnu/gdbm/gdbmreorg.c,v
- retrieving revision 1.4
- diff -c -r1.4 gdbmreorg.c
- *** 1.4 1993/11/19 01:49:30
- --- gdbmreorg.c 1993/11/20 21:41:55
- ***************
- *** 166,181 ****
- --- 166,205 ----
-
- /* Move the new file to old name. */
-
- + #ifndef atarist /* on the atari you cannot rename before closing */
- if (rename (new_name, dbf->name) != 0)
- {
- gdbm_errno = GDBM_REORGANIZE_FAILED;
- gdbm_close (new_dbf);
- return -1;
- }
- + #endif
-
- /* Fix up DBF to have the correct information for the new file. */
- UNLOCK_FILE(dbf);
- close (dbf->desc);
- +
- + /* now close and do the rename on the atari, after renaming
- + open back new name back up and seek to end to effectively
- + do what unix would have done
- + */
- + #ifdef atarist
- + close(new_dbf->desc);
- + if (rename (new_name, dbf->name) != 0)
- + {
- + gdbm_errno = GDBM_REORGANIZE_FAILED;
- + gdbm_close (new_dbf);
- + return -1;
- + }
- + if((new_dbf->desc = open(dbf->name, O_RDWR)) < 0)
- + {
- + gdbm_errno = GDBM_REORGANIZE_FAILED;
- + gdbm_close (new_dbf);
- + return -1;
- + }
- + lseek(new_dbf->desc, 0L, SEEK_END);
- + #endif
- +
- free (dbf->header);
- free (dbf->dir);
-
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/gnu/gdbm/systems.h,v
- retrieving revision 1.3
- diff -c -r1.3 systems.h
- *** 1.3 1993/11/19 01:49:56
- --- systems.h 1993/11/20 21:49:46
- ***************
- *** 90,96 ****
- #else
-
- /* Assume it is done like System V. */
- !
- #define UNLOCK_FILE(dbf) \
- { \
- struct flock flock; \
- --- 90,96 ----
- #else
-
- /* Assume it is done like System V. */
- ! #ifndef UNLOCK_FILE /* allow redefinition of these in autoconf.h */
- #define UNLOCK_FILE(dbf) \
- { \
- struct flock flock; \
- ***************
- *** 115,120 ****
- --- 115,121 ----
- flock.l_start = flock.l_len = 0L; \
- lock_val = fcntl (dbf->desc, F_SETLK, &flock); \
- }
- + #endif /* ifndef UNLOCK_FILE */
- #endif
-
- /* Do we have bcopy? */
- ***************
- *** 126,133 ****
- --- 127,136 ----
-
- /* Do we have fsync? */
- #if !HAVE_FSYNC
- + #ifndef fsync /* allow override in autoconf.h */
- #define fsync(f) {sync(); sync();}
- #endif
- + #endif
-
- /* Default block size. Some systems do not have blocksize in their
- stat record. This code uses the BSD blocksize from stat. */
- ***************
- *** 142,149 ****
- --- 145,154 ----
- #if HAVE_FTRUNCATE
- #define TRUNCATE(dbf) ftruncate (dbf->desc, 0)
- #else
- + #ifndef TRUNCATE /* allow override in autoconf.h */
- #define TRUNCATE(dbf) close( open (dbf->name, O_RDWR|O_TRUNC, mode));
- #endif
- + #endif
-
- /* Do we have 32bit or 64bit longs? */
- #if LONG_64_BITS || !INT_16_BITS
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/gnu/gdbm/testgdbm.c,v
- retrieving revision 1.3
- diff -c -r1.3 testgdbm.c
- *** 1.3 1993/11/19 01:49:59
- --- testgdbm.c 1993/11/20 21:52:15
- ***************
- *** 207,219 ****
- data_data.dptr = data_line;
-
- if (reader) {
- ! gdbm_file = gdbm_open (file_name, block_size, GDBM_READER, 00664, NULL);
- } else if (newdb) {
- gdbm_file =
- ! gdbm_open (file_name, block_size, GDBM_NEWDB | fast, 00664, NULL);
- } else {
- gdbm_file =
- ! gdbm_open (file_name, block_size, GDBM_WRCREAT | fast, 00664, NULL);
- }
- if (gdbm_file == NULL) {
- printf("gdbm_open failed, %s\n", gdbm_strerror(gdbm_errno));
- --- 207,219 ----
- data_data.dptr = data_line;
-
- if (reader) {
- ! gdbm_file = gdbm_open (file_name, block_size, GDBM_READER, 0664, NULL);
- } else if (newdb) {
- gdbm_file =
- ! gdbm_open (file_name, block_size, GDBM_NEWDB | fast, 0664, NULL);
- } else {
- gdbm_file =
- ! gdbm_open (file_name, block_size, GDBM_WRCREAT | fast, 0664, NULL);
- }
- if (gdbm_file == NULL) {
- printf("gdbm_open failed, %s\n", gdbm_strerror(gdbm_errno));
-