home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / perl_419 / atari.dif next >
Encoding:
Text File  |  1993-10-23  |  4.5 KB  |  165 lines
  1. *** /net/muncher/home2/dovich/gnu/gdbm-1.5/gdbmreorg.c    Thu Feb 28 19:58:30 1991
  2. --- gdbmreorg.c    Sat Sep 28 00:00:11 1991
  3. ***************
  4. *** 149,154 ****
  5. --- 149,155 ----
  6.   
  7.       /* Move the new file to old name. */
  8.   
  9. + #ifndef atarist    /* on the atari you cannot rename before closing */
  10.     if (rename (new_name, dbf->name) != 0)
  11.       {
  12.         gdbm_errno = GDBM_REORGANIZE_FAILED;
  13. ***************
  14. *** 155,164 ****
  15. --- 156,183 ----
  16.         gdbm_close (new_dbf);
  17.         return -1;
  18.       }
  19. + #endif
  20.   
  21.     /* Fix up DBF to have the correct information for the new file. */
  22.     UNLOCK_FILE(dbf);
  23.     close (dbf->desc);
  24. + #ifdef atarist
  25. +   close(new_dbf->desc);
  26. +   if (rename (new_name, dbf->name) != 0)
  27. +     {
  28. +       gdbm_errno = GDBM_REORGANIZE_FAILED;
  29. +       gdbm_close (new_dbf);
  30. +       return -1;
  31. +     }
  32. +   if((new_dbf->desc = open(dbf->name, O_RDWR)) < 0)
  33. +     {
  34. +       gdbm_errno = GDBM_REORGANIZE_FAILED;
  35. +       gdbm_close (new_dbf);
  36. +       return -1;
  37. +     }
  38. +     lseek(new_dbf->desc, 0L, SEEK_END);
  39. + #endif
  40. + 
  41.     free (dbf->header);
  42.     free (dbf->dir);
  43.     for (index = 0; index < CACHE_SIZE; index++)
  44. *** /net/muncher/home2/dovich/gnu/gdbm-1.5/systems.h    Thu Feb 28 19:58:34 1991
  45. --- systems.h    Sat Sep 28 00:12:08 1991
  46. ***************
  47. *** 82,97 ****
  48.   /* Get string definitions. */
  49.   #include <string.h>
  50.   #define _HAVE_STRING
  51. - #endif
  52.   
  53.   /* Sys V does not have a truncate call, how primitive. */
  54.   #define TRUNCATE(dbf) close( open (dbf->name, O_RDWR|O_TRUNC, mode));
  55.   
  56.   
  57.   /*      End of System V changes and defines.      */
  58.   /**************************************************/
  59.   
  60.   
  61.   
  62.   /* Alloca is builtin in gcc.  Use the builtin alloca if compiled with gcc. */
  63.   #ifdef __GNUC__
  64. --- 82,142 ----
  65.   /* Get string definitions. */
  66.   #include <string.h>
  67.   #define _HAVE_STRING
  68.   
  69.   /* Sys V does not have a truncate call, how primitive. */
  70.   #define TRUNCATE(dbf) close( open (dbf->name, O_RDWR|O_TRUNC, mode));
  71.   
  72. + #endif
  73. + 
  74.   
  75.   /*      End of System V changes and defines.      */
  76.   /**************************************************/
  77.   
  78.   
  79. + /*         AtariST-gcc changes and defines.       */
  80. + /**************************************************/
  81. + 
  82. + #ifdef atarist
  83. + 
  84. + /* File seeking needs L_SET defined .*/
  85. + #include <fcntl.h>
  86. + #include <unistd.h>
  87. + #define L_SET SEEK_SET
  88. + 
  89. + /* Some files need fcntl.h for locking. pretend with successes always*/
  90. + #define UNLOCK_FILE(dbf) (0)
  91. + #define READLOCK_FILE(dbf) { lock_val = 0; }
  92. + #define WRITELOCK_FILE(dbf) { lock_val = 0; }
  93. + 
  94. + /* Send bcmp to the right place. */
  95. + #include <memory.h>
  96. + 
  97. + /* atariST does not have fsync. Things are always sync'ed so pretend */
  98. + #define fsync(f) (0)
  99. + 
  100. + /* Get string definitions. */
  101. + #include <string.h>
  102. + #define _HAVE_STRING
  103. + 
  104. + /* atariST does not have a truncate call, how primitive. */
  105. + /* for this application, (truncate to zero length) the following will suffice */
  106. + #define TRUNCATE(dbf) \
  107. +  {                              \
  108. +     (void)close(dbf->desc);                  \
  109. +     (void)remove(dbf->name);                   \
  110. +     dbf->desc = open (dbf->name, O_RDWR|O_CREAT, mode);   \
  111. +     if(dbf->desc <  0)                       \
  112. +     {                              \
  113. +     free(dbf->name);                  \
  114. +     free(dbf);                      \
  115. +         gdbm_errno = GDBM_FILE_OPEN_ERROR;          \
  116. +         return NULL;                      \
  117. +     }                              \
  118. +  }
  119. + #endif
  120. + 
  121. + /*      End of AtariST-gcc changes and defines.      */
  122. + /**************************************************/
  123.   
  124.   /* Alloca is builtin in gcc.  Use the builtin alloca if compiled with gcc. */
  125.   #ifdef __GNUC__
  126. ***************
  127. *** 113,119 ****
  128. --- 158,166 ----
  129.   #endif
  130.   
  131.   /* Malloc definition. */
  132. + #if !__STDC__
  133.   extern char *malloc();
  134. + #endif
  135.   
  136.   /* String definitions. */
  137.   #ifndef _HAVE_STRING
  138. *** /net/muncher/home2/dovich/gnu/gdbm-1.5/testgdbm.c    Thu Feb 28 19:58:36 1991
  139. --- testgdbm.c    Fri Sep 27 23:28:53 1991
  140. ***************
  141. *** 188,198 ****
  142.     data_data.dptr = data_line;
  143.   
  144.     if (reader)
  145. !     gdbm_file = gdbm_open (file_name, 512, GDBM_READER, 00664, NULL);
  146.     else if (newdb)
  147. !     gdbm_file = gdbm_open (file_name, 512, GDBM_NEWDB, 00664, NULL);
  148.     else
  149. !     gdbm_file = gdbm_open (file_name, 512, GDBM_WRCREAT, 00664, NULL);
  150.     if (gdbm_file == NULL)
  151.       {
  152.         if (gdbm_errno != GDBM_CANT_BE_WRITER)
  153. --- 188,198 ----
  154.     data_data.dptr = data_line;
  155.   
  156.     if (reader)
  157. !     gdbm_file = gdbm_open (file_name, 512, GDBM_READER, 0664, NULL);
  158.     else if (newdb)
  159. !     gdbm_file = gdbm_open (file_name, 512, GDBM_NEWDB, 0664, NULL);
  160.     else
  161. !     gdbm_file = gdbm_open (file_name, 512, GDBM_WRCREAT, 0664, NULL);
  162.     if (gdbm_file == NULL)
  163.       {
  164.         if (gdbm_errno != GDBM_CANT_BE_WRITER)
  165.