home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / gnuish / gdbm14.arc / patches < prev    next >
Encoding:
Text File  |  1990-09-22  |  107.2 KB  |  3,518 lines
  1. diff -cBdNp e:/gnu/gdbm/gnu/bucket.c ./bucket.c
  2. *** e:/gnu/gdbm/gnu/bucket.c    Thu Aug 16 10:48:58 1990
  3. --- ./bucket.c    Thu Aug 16 10:50:08 1990
  4. ***************
  5. *** 27,36 ****
  6. --- 27,54 ----
  7.          
  8.   *************************************************************************/
  9.   
  10. + /*
  11. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  12. +  *
  13. +  * To this port, the same copying conditions apply as to the
  14. +  * original release.
  15. +  *
  16. +  * IMPORTANT:
  17. +  * This file is not identical to the original GNU release!
  18. +  * You should have received this code as patch to the official
  19. +  * GNU release.
  20. +  *
  21. +  * MORE IMPORTANT:
  22. +  * This port comes with ABSOLUTELY NO WARRANTY.
  23. +  *
  24. +  * $Header: e:/gnu/gdbm/RCS/bucket.c'v 1.4.0.1 90/08/16 09:22:04 tho Exp $
  25. +  */
  26.   
  27.   #include <stdio.h>
  28.   #include <sys/types.h>
  29. + #ifndef MSDOS
  30.   #include <sys/file.h>
  31. + #endif /* not MSDOS */
  32.   #include <sys/stat.h>
  33.   #include "gdbmdefs.h"
  34.   #include "systems.h"
  35. ***************
  36. *** 37,42 ****
  37. --- 55,61 ----
  38.   
  39.   
  40.   /* Initializing a new hash buckets sets all bucket entries to -1 hash value. */
  41. + VOID
  42.   _gdbm_new_bucket (dbf, bucket, bits)
  43.        gdbm_file_info *dbf;
  44.        hash_bucket *bucket;
  45. *************** _gdbm_new_bucket (dbf, bucket, bits)
  46. *** 63,75 ****
  47.      is already in memory.  If not, a bucket may be tossed to read the new
  48.      bucket.  In any case, the requested bucket is make the "current" bucket
  49.      and dbf->bucket points to the correct bucket. */
  50. ! int
  51.   _gdbm_get_bucket (dbf, dir_index)
  52.        gdbm_file_info *dbf;
  53.        int dir_index;
  54.   {
  55. !   int  bucket_adr;    /* The address of the correct hash bucket.  */
  56. !   int  num_bytes;    /* The number of bytes read. */
  57.     int  index;        /* Loop index. */
  58.   
  59.     /* Initial set up. */
  60. --- 82,94 ----
  61.      is already in memory.  If not, a bucket may be tossed to read the new
  62.      bucket.  In any case, the requested bucket is make the "current" bucket
  63.      and dbf->bucket points to the correct bucket. */
  64. ! VOID
  65.   _gdbm_get_bucket (dbf, dir_index)
  66.        gdbm_file_info *dbf;
  67.        int dir_index;
  68.   {
  69. !   LONG bucket_adr;    /* The address of the correct hash bucket.  */
  70. !   LONG num_bytes;    /* The number of bytes read. */
  71.     int  index;        /* Loop index. */
  72.   
  73.     /* Initial set up. */
  74. *************** _gdbm_get_bucket (dbf, dir_index)
  75. *** 101,107 ****
  76. --- 120,131 ----
  77.         if (num_bytes != bucket_adr)
  78.       _gdbm_fatal (dbf, "lseek error");
  79.   
  80. + #ifdef MSDOS            /* shut up the compiler!  */
  81. +       num_bytes = read (dbf->desc,
  82. +             (char *)dbf->bucket, dbf->header->bucket_size);
  83. + #else /* not MSDOS */
  84.         num_bytes = read (dbf->desc, dbf->bucket, dbf->header->bucket_size);
  85. + #endif /* not MSDOS */
  86.         if (num_bytes != dbf->header->bucket_size)
  87.       _gdbm_fatal (dbf, "read error");
  88.       }
  89. *************** _gdbm_get_bucket (dbf, dir_index)
  90. *** 115,123 ****
  91.      are stored in the buckets.  Splitting the current bucket may require
  92.      doubling the size of the hash directory.  */
  93.   
  94.   _gdbm_split_bucket (dbf, next_insert)
  95.        gdbm_file_info *dbf;
  96. !      int next_insert;
  97.   {
  98.     hash_bucket *bucket[2];     /* Pointers to the new buckets. */
  99.   
  100. --- 139,148 ----
  101.      are stored in the buckets.  Splitting the current bucket may require
  102.      doubling the size of the hash directory.  */
  103.   
  104. + VOID
  105.   _gdbm_split_bucket (dbf, next_insert)
  106.        gdbm_file_info *dbf;
  107. !      LONG next_insert;
  108.   {
  109.     hash_bucket *bucket[2];     /* Pointers to the new buckets. */
  110.   
  111. *************** _gdbm_split_bucket (dbf, next_insert)
  112. *** 124,131 ****
  113.     int          new_bits;    /* The number of bits for the new buckets. */
  114.     int           cache_0;        /* Location in the cache for the buckets. */
  115.     int           cache_1;
  116. !   int           adr_0;        /* File address of the new bucket 0. */
  117. !   int           adr_1;        /* File address of the new bucket 1. */
  118.     avail_elem   old_bucket;    /* Avail Struct for the old bucket. */
  119.   
  120.     int          dir_start0;    /* Used in updating the directory. */
  121. --- 149,156 ----
  122.     int          new_bits;    /* The number of bits for the new buckets. */
  123.     int           cache_0;        /* Location in the cache for the buckets. */
  124.     int           cache_1;
  125. !   LONG           adr_0;        /* File address of the new bucket 0. */
  126. !   LONG           adr_1;        /* File address of the new bucket 1. */
  127.     avail_elem   old_bucket;    /* Avail Struct for the old bucket. */
  128.   
  129.     int          dir_start0;    /* Used in updating the directory. */
  130. *************** _gdbm_split_bucket (dbf, next_insert)
  131. *** 132,141 ****
  132.     int          dir_start1;
  133.     int          dir_end;
  134.   
  135. !   int          *new_dir;        /* Pointer to the new directory. */
  136. !   int          dir_adr;     /* Address of the new directory. */
  137.     int          dir_size;    /* Size of the new directory. */
  138. !   int          old_adr[31];     /* Address of the old directories. */
  139.     int          old_size[31];     /* Size of the old directories. */
  140.     int           old_count;    /* Number of old directories. */
  141.   
  142. --- 157,166 ----
  143.     int          dir_start1;
  144.     int          dir_end;
  145.   
  146. !   LONG          *new_dir;        /* Pointer to the new directory. */
  147. !   LONG         dir_adr;     /* Address of the new directory. */
  148.     int          dir_size;    /* Size of the new directory. */
  149. !   LONG         old_adr[31];     /* Address of the old directories. */
  150.     int          old_size[31];     /* Size of the old directories. */
  151.     int           old_count;    /* Number of old directories. */
  152.   
  153. *************** _gdbm_split_bucket (dbf, next_insert)
  154. *** 185,193 ****
  155.       {
  156.         dir_size = dbf->header->dir_size * 2;
  157.         dir_adr  = _gdbm_alloc (dbf, dir_size);
  158. !       new_dir  = (int *) malloc (dir_size);
  159.         if (new_dir == NULL) _gdbm_fatal (dbf, "malloc error");
  160. !       for (index = 0; index < dbf->header->dir_size/sizeof (int); index++)
  161.           {
  162.             new_dir[2*index]   = dbf->dir[index];
  163.             new_dir[2*index+1] = dbf->dir[index];
  164. --- 210,218 ----
  165.       {
  166.         dir_size = dbf->header->dir_size * 2;
  167.         dir_adr  = _gdbm_alloc (dbf, dir_size);
  168. !       new_dir  = (LONG *) malloc (dir_size);
  169.         if (new_dir == NULL) _gdbm_fatal (dbf, "malloc error");
  170. !       for (index = 0; index < dbf->header->dir_size/sizeof (LONG); index++)
  171.           {
  172.             new_dir[2*index]   = dbf->dir[index];
  173.             new_dir[2*index+1] = dbf->dir[index];
  174. *************** _gdbm_split_bucket (dbf, next_insert)
  175. *** 212,219 ****
  176. --- 237,249 ----
  177.         for (index = 0; index < dbf->header->bucket_elems; index++)
  178.       {
  179.         old_el = & (dbf->bucket->h_table[index]);
  180. + #ifdef MSDOS
  181. +       select = (int) (old_el->hash_value >> (31-new_bits)) & 1;
  182. +       elem_loc = (int) (old_el->hash_value % dbf->header->bucket_elems);
  183. + #else /* not MSDOS */
  184.         select = (old_el->hash_value >> (31-new_bits)) & 1;
  185.         elem_loc = old_el->hash_value % dbf->header->bucket_elems;
  186. + #endif /* not MSDOS */
  187.         while (bucket[select]->h_table[elem_loc].hash_value != -1)
  188.           elem_loc = (elem_loc + 1) % dbf->header->bucket_elems;
  189.         bucket[select]->h_table[elem_loc] = *old_el;
  190. *************** _gdbm_split_bucket (dbf, next_insert)
  191. *** 263,269 ****
  192. --- 293,303 ----
  193.         dbf->second_changed = TRUE;
  194.         
  195.         /* Update the cache! */
  196. + #ifdef MSDOS
  197. +       dbf->bucket_dir = (int) (next_insert >> (31-dbf->header->dir_bits));
  198. + #else /* not MSDOS */
  199.         dbf->bucket_dir = next_insert >> (31-dbf->header->dir_bits);
  200. + #endif /* not MSDOS */
  201.         
  202.         /* Invalidate old cache entry. */
  203.         old_bucket.av_adr  = dbf->cache_entry->ca_adr;
  204. *************** _gdbm_split_bucket (dbf, next_insert)
  205. *** 300,315 ****
  206.   /* The only place where a bucket is written.  CA_ENTRY is the
  207.      cache entry containing the bucket to be written. */
  208.   
  209.   _gdbm_write_bucket (dbf, ca_entry)
  210.        gdbm_file_info *dbf;
  211.        cache_elem *ca_entry;
  212.   {
  213. !   int num_bytes;    /* The return value for lseek and write. */
  214.     
  215.     num_bytes = lseek (dbf->desc, ca_entry->ca_adr, L_SET);
  216.     if (num_bytes != ca_entry->ca_adr)
  217.       _gdbm_fatal (dbf, "lseek error");
  218.     num_bytes = write (dbf->desc, ca_entry->ca_bucket, dbf->header->bucket_size);
  219.     if (num_bytes != dbf->header->bucket_size)
  220.       _gdbm_fatal (dbf, "write error");
  221.     ca_entry->ca_changed = FALSE;
  222. --- 334,355 ----
  223.   /* The only place where a bucket is written.  CA_ENTRY is the
  224.      cache entry containing the bucket to be written. */
  225.   
  226. + VOID
  227.   _gdbm_write_bucket (dbf, ca_entry)
  228.        gdbm_file_info *dbf;
  229.        cache_elem *ca_entry;
  230.   {
  231. !   LONG num_bytes;    /* The return value for lseek and write. */
  232.     
  233.     num_bytes = lseek (dbf->desc, ca_entry->ca_adr, L_SET);
  234.     if (num_bytes != ca_entry->ca_adr)
  235.       _gdbm_fatal (dbf, "lseek error");
  236. + #ifdef MSDOS            /* shut up the compiler!   */
  237. +   num_bytes = write (dbf->desc,
  238. +              (char *)ca_entry->ca_bucket, dbf->header->bucket_size);
  239. + #else /* not MSDOS */
  240.     num_bytes = write (dbf->desc, ca_entry->ca_bucket, dbf->header->bucket_size);
  241. + #endif /* not MSDOS */
  242.     if (num_bytes != dbf->header->bucket_size)
  243.       _gdbm_fatal (dbf, "write error");
  244.     ca_entry->ca_changed = FALSE;
  245. diff -cBdNp e:/gnu/gdbm/gnu/dbm.h ./dbm.h
  246. *** e:/gnu/gdbm/gnu/dbm.h    Thu Aug 16 10:49:02 1990
  247. --- ./dbm.h    Thu Aug 16 10:50:10 1990
  248. ***************
  249. *** 27,32 ****
  250. --- 27,49 ----
  251.          
  252.   *************************************************************************/
  253.   
  254. + /*
  255. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  256. +  *
  257. +  * To this port, the same copying conditions apply as to the
  258. +  * original release.
  259. +  *
  260. +  * IMPORTANT:
  261. +  * This file is not identical to the original GNU release!
  262. +  * You should have received this code as patch to the official
  263. +  * GNU release.
  264. +  *
  265. +  * MORE IMPORTANT:
  266. +  * This port comes with ABSOLUTELY NO WARRANTY.
  267. +  *
  268. +  * $Header: e:/gnu/gdbm/RCS/dbm.h'v 1.4.0.1 90/08/16 09:22:56 tho Exp $
  269. +  */
  270. + 
  271.   /* The data and key structure.  This structure is defined for compatibility. */
  272.   typedef struct {
  273.       char *dptr;
  274. *************** typedef struct {
  275. *** 34,55 ****
  276.         } datum;
  277.   
  278.   
  279. - /* These are the routines in dbm. */
  280.   
  281. ! extern int    dbminit ();
  282.   
  283.   extern datum    fetch ();
  284. - 
  285.   extern int    store ();
  286. - 
  287. - extern int    delete ();
  288. - 
  289.   extern int    delete ();
  290. - 
  291.   extern datum    firstkey ();
  292. - 
  293.   extern datum    nextkey ();
  294. ! 
  295. ! /* To make some versions work we need the following define. */
  296. ! 
  297. ! #define dbmclose()
  298. --- 51,73 ----
  299.         } datum;
  300.   
  301.   
  302.   
  303. ! /* To make some versions work we need the following define. */
  304.   
  305. + #define dbmclose()
  306. + /* These are the routines in dbm. */
  307. + #ifdef __STDC__
  308. + extern  int dbminit (char *file);
  309. + extern datum fetch(datum key);
  310. + extern int store (datum key, datum content);
  311. + extern int delete (datum key);
  312. + extern datum firstkey (void);
  313. + extern datum nextkey (datum key);
  314. + #else /* not __STDC__ */
  315. + extern int    dbminit ();
  316.   extern datum    fetch ();
  317.   extern int    store ();
  318.   extern int    delete ();
  319.   extern datum    firstkey ();
  320.   extern datum    nextkey ();
  321. ! #endif /* not __STDC__ */
  322. diff -cBdNp e:/gnu/gdbm/gnu/dbmclose.c ./dbmclose.c
  323. *** e:/gnu/gdbm/gnu/dbmclose.c    Thu Aug 16 10:49:04 1990
  324. --- ./dbmclose.c    Thu Aug 16 10:50:12 1990
  325. ***************
  326. *** 27,36 ****
  327. --- 27,54 ----
  328.          
  329.   *************************************************************************/
  330.   
  331. + /*
  332. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  333. +  *
  334. +  * To this port, the same copying conditions apply as to the
  335. +  * original release.
  336. +  *
  337. +  * IMPORTANT:
  338. +  * This file is not identical to the original GNU release!
  339. +  * You should have received this code as patch to the official
  340. +  * GNU release.
  341. +  *
  342. +  * MORE IMPORTANT:
  343. +  * This port comes with ABSOLUTELY NO WARRANTY.
  344. +  *
  345. +  * $Header: e:/gnu/gdbm/RCS/dbmclose.c'v 1.4.0.1 90/08/16 09:22:06 tho Exp $
  346. +  */
  347.   
  348.   #include <stdio.h>
  349.   #include <sys/types.h>
  350. + #ifndef MSDOS
  351.   #include <sys/file.h>
  352. + #endif /* not MSDOS */
  353.   #include <sys/stat.h>
  354.   #include "gdbmdefs.h"
  355.   #include "systems.h"
  356. diff -cBdNp e:/gnu/gdbm/gnu/dbmdelet.c ./dbmdelet.c
  357. *** e:/gnu/gdbm/gnu/dbmdelet.c    Thu Aug 16 10:49:04 1990
  358. --- ./dbmdelet.c    Thu Aug 16 10:50:14 1990
  359. ***************
  360. *** 28,37 ****
  361. --- 28,55 ----
  362.          
  363.   *************************************************************************/
  364.   
  365. + /*
  366. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  367. +  *
  368. +  * To this port, the same copying conditions apply as to the
  369. +  * original release.
  370. +  *
  371. +  * IMPORTANT:
  372. +  * This file is not identical to the original GNU release!
  373. +  * You should have received this code as patch to the official
  374. +  * GNU release.
  375. +  *
  376. +  * MORE IMPORTANT:
  377. +  * This port comes with ABSOLUTELY NO WARRANTY.
  378. +  *
  379. +  * $Header: e:/gnu/gdbm/RCS/dbmdelet.c'v 1.4.0.1 90/08/16 09:22:08 tho Exp $
  380. +  */
  381.   
  382.   #include <stdio.h>
  383.   #include <sys/types.h>
  384. + #ifndef MSDOS
  385.   #include <sys/file.h>
  386. + #endif /* not MSDOS */
  387.   #include <sys/stat.h>
  388.   #include "gdbmdefs.h"
  389.   #include "extern.h"
  390. diff -cBdNp e:/gnu/gdbm/gnu/dbmdirfn.c ./dbmdirfn.c
  391. *** e:/gnu/gdbm/gnu/dbmdirfn.c    Thu Aug 16 10:49:06 1990
  392. --- ./dbmdirfn.c    Thu Aug 16 10:50:16 1990
  393. ***************
  394. *** 27,36 ****
  395. --- 27,54 ----
  396.          
  397.   *************************************************************************/
  398.   
  399. + /*
  400. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  401. +  *
  402. +  * To this port, the same copying conditions apply as to the
  403. +  * original release.
  404. +  *
  405. +  * IMPORTANT:
  406. +  * This file is not identical to the original GNU release!
  407. +  * You should have received this code as patch to the official
  408. +  * GNU release.
  409. +  *
  410. +  * MORE IMPORTANT:
  411. +  * This port comes with ABSOLUTELY NO WARRANTY.
  412. +  *
  413. +  * $Header: e:/gnu/gdbm/RCS/dbmdirfn.c'v 1.4.0.1 90/08/16 09:22:09 tho Exp $
  414. +  */
  415.   
  416.   #include <stdio.h>
  417.   #include <sys/types.h>
  418. + #ifndef MSDOS
  419.   #include <sys/file.h>
  420. + #endif /* not MSDOS */
  421.   #include <sys/stat.h>
  422.   #include "gdbmdefs.h"
  423.   #include "systems.h"
  424. diff -cBdNp e:/gnu/gdbm/gnu/dbmfetch.c ./dbmfetch.c
  425. *** e:/gnu/gdbm/gnu/dbmfetch.c    Thu Aug 16 10:49:08 1990
  426. --- ./dbmfetch.c    Thu Aug 16 10:50:18 1990
  427. ***************
  428. *** 27,36 ****
  429. --- 27,54 ----
  430.          
  431.   *************************************************************************/
  432.   
  433. + /*
  434. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  435. +  *
  436. +  * To this port, the same copying conditions apply as to the
  437. +  * original release.
  438. +  *
  439. +  * IMPORTANT:
  440. +  * This file is not identical to the original GNU release!
  441. +  * You should have received this code as patch to the official
  442. +  * GNU release.
  443. +  *
  444. +  * MORE IMPORTANT:
  445. +  * This port comes with ABSOLUTELY NO WARRANTY.
  446. +  *
  447. +  * $Header: e:/gnu/gdbm/RCS/dbmfetch.c'v 1.4.0.1 90/08/16 09:22:10 tho Exp $
  448. +  */
  449.   
  450.   #include <stdio.h>
  451.   #include <sys/types.h>
  452. + #ifndef MSDOS
  453.   #include <sys/file.h>
  454. + #endif /* not MSDOS */
  455.   #include <sys/stat.h>
  456.   #include "gdbmdefs.h"
  457.   #include "extern.h"
  458. diff -cBdNp e:/gnu/gdbm/gnu/dbminit.c ./dbminit.c
  459. *** e:/gnu/gdbm/gnu/dbminit.c    Thu Aug 16 10:49:10 1990
  460. --- ./dbminit.c    Thu Aug 16 10:50:20 1990
  461. ***************
  462. *** 28,37 ****
  463. --- 28,55 ----
  464.          
  465.   *************************************************************************/
  466.   
  467. + /*
  468. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  469. +  *
  470. +  * To this port, the same copying conditions apply as to the
  471. +  * original release.
  472. +  *
  473. +  * IMPORTANT:
  474. +  * This file is not identical to the original GNU release!
  475. +  * You should have received this code as patch to the official
  476. +  * GNU release.
  477. +  *
  478. +  * MORE IMPORTANT:
  479. +  * This port comes with ABSOLUTELY NO WARRANTY.
  480. +  *
  481. +  * $Header: e:/gnu/gdbm/RCS/dbminit.c'v 1.4.0.1 90/08/16 09:22:11 tho Exp $
  482. +  */
  483.   
  484.   #include <stdio.h>
  485.   #include <sys/types.h>
  486. + #ifndef MSDOS
  487.   #include <sys/file.h>
  488. + #endif /* not MSDOS */
  489.   #include <sys/stat.h>
  490.   #include "gdbmdefs.h"
  491.   #include "systems.h"
  492. *************** dbminit (file)
  493. *** 92,98 ****
  494. --- 110,120 ----
  495.     if (stat (dir_file, &dir_stat) == 0)
  496.       {
  497.         if (dir_stat.st_size == 0)
  498. + #ifdef MSDOS
  499. +         if (open (dir_file, O_RDWR|O_TRUNC, S_IREAD|S_IWRITE) < 0)
  500. + #else /* not MSDOS */
  501.       if (unlink (dir_file) != 0 || link (pag_file, dir_file) != 0)
  502. + #endif /* not MSDOS */
  503.         {
  504.           gdbm_errno = GDBM_FILE_OPEN_ERROR;
  505.           gdbm_close (_gdbm_file);
  506. *************** dbminit (file)
  507. *** 103,109 ****
  508. --- 125,135 ----
  509.       {
  510.         /* Since we can't stat it, we assume it is not there and try
  511.            to link the dir_file to the pag_file. */
  512. + #ifdef MSDOS
  513. +       if (open (dir_file, O_RDWR|O_CREAT, S_IREAD|S_IWRITE) < 0)
  514. + #else /* not MSDOS */
  515.         if (link (pag_file, dir_file) != 0)
  516. + #endif /* not MSDOS */
  517.       {
  518.         gdbm_errno = GDBM_FILE_OPEN_ERROR;
  519.         gdbm_close (_gdbm_file);
  520. *************** dbminit (file)
  521. *** 110,115 ****
  522.         return -1;
  523.       }
  524.       }
  525. !         
  526.     return 0;
  527.   }
  528. --- 136,141 ----
  529.         return -1;
  530.       }
  531.       }
  532. ! 
  533.     return 0;
  534.   }
  535. diff -cBdNp e:/gnu/gdbm/gnu/dbmopen.c ./dbmopen.c
  536. *** e:/gnu/gdbm/gnu/dbmopen.c    Thu Aug 16 10:49:12 1990
  537. --- ./dbmopen.c    Thu Aug 16 10:50:22 1990
  538. ***************
  539. *** 28,37 ****
  540. --- 28,55 ----
  541.          
  542.   *************************************************************************/
  543.   
  544. + /*
  545. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  546. +  *
  547. +  * To this port, the same copying conditions apply as to the
  548. +  * original release.
  549. +  *
  550. +  * IMPORTANT:
  551. +  * This file is not identical to the original GNU release!
  552. +  * You should have received this code as patch to the official
  553. +  * GNU release.
  554. +  *
  555. +  * MORE IMPORTANT:
  556. +  * This port comes with ABSOLUTELY NO WARRANTY.
  557. +  *
  558. +  * $Header: e:/gnu/gdbm/RCS/dbmopen.c'v 1.4.0.1 90/08/16 09:22:12 tho Exp $
  559. +  */
  560.   
  561.   #include <stdio.h>
  562.   #include <sys/types.h>
  563. + #ifndef MSDOS
  564.   #include <sys/file.h>
  565. + #endif /* not MSDOS */
  566.   #include <sys/stat.h>
  567.   #include "gdbmdefs.h"
  568.   #include "systems.h"
  569. *************** dbm_open (file, flags, mode)
  570. *** 110,116 ****
  571. --- 129,139 ----
  572.     if (stat (dir_file, &dir_stat) == 0)
  573.       {
  574.         if (dir_stat.st_size == 0)
  575. + #ifdef MSDOS
  576. +         if (open (dir_file, O_RDWR|O_TRUNC, S_IREAD|S_IWRITE) < 0)
  577. + #else /* not MSDOS */
  578.       if (unlink (dir_file) != 0 || link (pag_file, dir_file) != 0)
  579. + #endif /* not MSDOS */
  580.         {
  581.           gdbm_errno = GDBM_FILE_OPEN_ERROR;
  582.           gdbm_close (temp_dbf);
  583. *************** dbm_open (file, flags, mode)
  584. *** 121,127 ****
  585. --- 144,154 ----
  586.       {
  587.         /* Since we can't stat it, we assume it is not there and try
  588.            to link the dir_file to the pag_file. */
  589. + #ifdef MSDOS
  590. +       if (open (dir_file, O_RDWR|O_CREAT, S_IREAD|S_IWRITE) < 0)
  591. + #else /* not MSDOS */
  592.         if (link (pag_file, dir_file) != 0)
  593. + #endif /* not MSDOS */
  594.       {
  595.         gdbm_errno = GDBM_FILE_OPEN_ERROR;
  596.         gdbm_close (temp_dbf);
  597. *************** dbm_open (file, flags, mode)
  598. *** 128,133 ****
  599.         return NULL;
  600.       }
  601.       }
  602. !         
  603.     return temp_dbf;
  604.   }
  605. --- 155,160 ----
  606.         return NULL;
  607.       }
  608.       }
  609. ! 
  610.     return temp_dbf;
  611.   }
  612. diff -cBdNp e:/gnu/gdbm/gnu/dbmpagfn.c ./dbmpagfn.c
  613. *** e:/gnu/gdbm/gnu/dbmpagfn.c    Thu Aug 16 10:49:12 1990
  614. --- ./dbmpagfn.c    Thu Aug 16 10:50:24 1990
  615. ***************
  616. *** 27,36 ****
  617. --- 27,54 ----
  618.          
  619.   *************************************************************************/
  620.   
  621. + /*
  622. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  623. +  *
  624. +  * To this port, the same copying conditions apply as to the
  625. +  * original release.
  626. +  *
  627. +  * IMPORTANT:
  628. +  * This file is not identical to the original GNU release!
  629. +  * You should have received this code as patch to the official
  630. +  * GNU release.
  631. +  *
  632. +  * MORE IMPORTANT:
  633. +  * This port comes with ABSOLUTELY NO WARRANTY.
  634. +  *
  635. +  * $Header: e:/gnu/gdbm/RCS/dbmpagfn.c'v 1.4.0.1 90/08/16 09:22:14 tho Exp $
  636. +  */
  637.   
  638.   #include <stdio.h>
  639.   #include <sys/types.h>
  640. + #ifndef MSDOS
  641.   #include <sys/file.h>
  642. + #endif /* not MSDOS */
  643.   #include <sys/stat.h>
  644.   #include "gdbmdefs.h"
  645.   #include "systems.h"
  646. diff -cBdNp e:/gnu/gdbm/gnu/dbmseq.c ./dbmseq.c
  647. *** e:/gnu/gdbm/gnu/dbmseq.c    Thu Aug 16 10:49:14 1990
  648. --- ./dbmseq.c    Thu Aug 16 10:50:26 1990
  649. ***************
  650. *** 28,37 ****
  651. --- 28,55 ----
  652.          
  653.   *************************************************************************/
  654.   
  655. + /*
  656. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  657. +  *
  658. +  * To this port, the same copying conditions apply as to the
  659. +  * original release.
  660. +  *
  661. +  * IMPORTANT:
  662. +  * This file is not identical to the original GNU release!
  663. +  * You should have received this code as patch to the official
  664. +  * GNU release.
  665. +  *
  666. +  * MORE IMPORTANT:
  667. +  * This port comes with ABSOLUTELY NO WARRANTY.
  668. +  *
  669. +  * $Header: e:/gnu/gdbm/RCS/dbmseq.c'v 1.4.0.1 90/08/16 09:22:15 tho Exp $
  670. +  */
  671.   
  672.   #include <stdio.h>
  673.   #include <sys/types.h>
  674. + #ifndef MSDOS
  675.   #include <sys/file.h>
  676. + #endif /* not MSDOS */
  677.   #include <sys/stat.h>
  678.   #include "gdbmdefs.h"
  679.   #include "extern.h"
  680. diff -cBdNp e:/gnu/gdbm/gnu/dbmstore.c ./dbmstore.c
  681. *** e:/gnu/gdbm/gnu/dbmstore.c    Thu Aug 16 10:49:16 1990
  682. --- ./dbmstore.c    Thu Aug 16 10:50:28 1990
  683. ***************
  684. *** 27,36 ****
  685. --- 27,54 ----
  686.          
  687.   *************************************************************************/
  688.   
  689. + /*
  690. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  691. +  *
  692. +  * To this port, the same copying conditions apply as to the
  693. +  * original release.
  694. +  *
  695. +  * IMPORTANT:
  696. +  * This file is not identical to the original GNU release!
  697. +  * You should have received this code as patch to the official
  698. +  * GNU release.
  699. +  *
  700. +  * MORE IMPORTANT:
  701. +  * This port comes with ABSOLUTELY NO WARRANTY.
  702. +  *
  703. +  * $Header: e:/gnu/gdbm/RCS/dbmstore.c'v 1.4.0.1 90/08/16 09:22:17 tho Exp $
  704. +  */
  705.   
  706.   #include <stdio.h>
  707.   #include <sys/types.h>
  708. + #ifndef MSDOS
  709.   #include <sys/file.h>
  710. + #endif /* not MSDOS */
  711.   #include <sys/stat.h>
  712.   #include "gdbmdefs.h"
  713.   #include "extern.h"
  714. diff -cBdNp e:/gnu/gdbm/gnu/delete.c ./delete.c
  715. *** e:/gnu/gdbm/gnu/delete.c    Thu Aug 16 10:49:18 1990
  716. --- ./delete.c    Thu Aug 16 10:50:30 1990
  717. ***************
  718. *** 28,37 ****
  719. --- 28,55 ----
  720.          
  721.   *************************************************************************/
  722.   
  723. + /*
  724. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  725. +  *
  726. +  * To this port, the same copying conditions apply as to the
  727. +  * original release.
  728. +  *
  729. +  * IMPORTANT:
  730. +  * This file is not identical to the original GNU release!
  731. +  * You should have received this code as patch to the official
  732. +  * GNU release.
  733. +  *
  734. +  * MORE IMPORTANT:
  735. +  * This port comes with ABSOLUTELY NO WARRANTY.
  736. +  *
  737. +  * $Header: e:/gnu/gdbm/RCS/delete.c'v 1.4.0.1 90/08/16 09:22:18 tho Exp $
  738. +  */
  739.   
  740.   #include <stdio.h>
  741.   #include <sys/types.h>
  742. + #ifndef MSDOS
  743.   #include <sys/file.h>
  744. + #endif /* not MSDOS */
  745.   #include <sys/stat.h>
  746.   #include "gdbmdefs.h"
  747.   #include "extern.h"
  748. diff -cBdNp e:/gnu/gdbm/gnu/extern.h ./extern.h
  749. *** e:/gnu/gdbm/gnu/extern.h    Thu Aug 16 10:49:20 1990
  750. --- ./extern.h    Thu Aug 16 10:50:32 1990
  751. ***************
  752. *** 27,32 ****
  753. --- 27,48 ----
  754.          
  755.   *************************************************************************/
  756.   
  757. + /*
  758. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  759. +  *
  760. +  * To this port, the same copying conditions apply as to the
  761. +  * original release.
  762. +  *
  763. +  * IMPORTANT:
  764. +  * This file is not identical to the original GNU release!
  765. +  * You should have received this code as patch to the official
  766. +  * GNU release.
  767. +  *
  768. +  * MORE IMPORTANT:
  769. +  * This port comes with ABSOLUTELY NO WARRANTY.
  770. +  *
  771. +  * $Header: e:/gnu/gdbm/RCS/extern.h'v 1.4.0.1 90/08/16 09:22:57 tho Exp $
  772. +  */
  773.   
  774.   /* The global variables used for the "original" interface. */
  775.   extern gdbm_file_info  *_gdbm_file;
  776. *************** extern char *_gdbm_fetch_val;
  777. *** 37,51 ****
  778.   
  779.   
  780.   /* External routines used. */
  781. ! 
  782.   extern gdbm_file_info *gdbm_open ();
  783. - 
  784.   extern datum gdbm_fetch ();
  785. - 
  786.   extern datum gdbm_firstkey ();
  787. - 
  788.   extern datum gdbm_nextkey ();
  789. - 
  790.   extern int gdbm_delete ();
  791. - 
  792.   extern int gdbm_store ();
  793. --- 53,70 ----
  794.   
  795.   
  796.   /* External routines used. */
  797. ! #ifdef __STDC__
  798. ! extern gdbm_file_info *gdbm_open (char *file, int block_size, int read_write, int mode, void (*fatal_func)());
  799. ! extern datum gdbm_fetch (gdbm_file_info *dbf, datum key);
  800. ! extern datum gdbm_firstkey (gdbm_file_info *dbf);
  801. ! extern datum gdbm_nextkey (gdbm_file_info *dbf, datum key);
  802. ! extern int gdbm_delete (gdbm_file_info *dbf, datum key);
  803. ! extern int gdbm_reorganize (gdbm_file_info *dbf);
  804. ! #else /* not __STDC__ */
  805.   extern gdbm_file_info *gdbm_open ();
  806.   extern datum gdbm_fetch ();
  807.   extern datum gdbm_firstkey ();
  808.   extern datum gdbm_nextkey ();
  809.   extern int gdbm_delete ();
  810.   extern int gdbm_store ();
  811. + #endif /* not __STDC__ */
  812. diff -cBdNp e:/gnu/gdbm/gnu/falloc.c ./falloc.c
  813. *** e:/gnu/gdbm/gnu/falloc.c    Thu Aug 16 10:49:22 1990
  814. --- ./falloc.c    Thu Aug 16 10:50:36 1990
  815. ***************
  816. *** 27,45 ****
  817. --- 27,72 ----
  818.          
  819.   *************************************************************************/
  820.   
  821. + /*
  822. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  823. +  *
  824. +  * To this port, the same copying conditions apply as to the
  825. +  * original release.
  826. +  *
  827. +  * IMPORTANT:
  828. +  * This file is not identical to the original GNU release!
  829. +  * You should have received this code as patch to the official
  830. +  * GNU release.
  831. +  *
  832. +  * MORE IMPORTANT:
  833. +  * This port comes with ABSOLUTELY NO WARRANTY.
  834. +  *
  835. +  * $Header: e:/gnu/gdbm/RCS/falloc.c'v 1.4.0.1 90/08/16 09:22:19 tho Exp $
  836. +  */
  837. + 
  838.   #include <stdio.h>
  839.   #include <sys/types.h>
  840. + #ifndef MSDOS
  841.   #include <sys/file.h>
  842. + #endif /* not MSDOS */
  843.   #include <sys/stat.h>
  844.   #include "gdbmdefs.h"
  845.   #include "systems.h"
  846.   
  847.   
  848. + #ifdef __STDC__
  849. + static avail_elem get_elem (int size, avail_elem *av_table, int *av_count);
  850. + static avail_elem get_block (int size, gdbm_file_info *dbf);
  851. + static VOID push_avail_block (gdbm_file_info *dbf);
  852. + static VOID pop_avail_block (gdbm_file_info *dbf);
  853. + static VOID adjust_bucket_avail (gdbm_file_info *dbf);
  854. + #else /* not __STDC__ */
  855.   static avail_elem get_elem ();    /* Get avail_elems from a list. */
  856.   static avail_elem get_block ();
  857.   static push_avail_block ();
  858.   static pop_avail_block ();
  859.   static adjust_bucket_avail ();
  860. + #endif /* not __STDC__ */
  861.   
  862.   /* Allocate space in the file DBF for a block NUM_BYTES in length.  Return
  863.      the file address of the start of the block.  
  864. *************** static adjust_bucket_avail ();
  865. *** 57,68 ****
  866.      changed by this routine if a change is needed.  If an error occurs,
  867.      the value of 0 will be returned.  */
  868.   
  869. ! int
  870.   _gdbm_alloc (dbf, num_bytes)
  871.        gdbm_file_info *dbf;
  872.        int num_bytes;
  873.   {
  874. !   int file_adr;            /* The address of the block. */
  875.     avail_elem av_el;        /* For temporary use. */
  876.   
  877.     /* The current bucket is the first place to look for space. */
  878. --- 84,95 ----
  879.      changed by this routine if a change is needed.  If an error occurs,
  880.      the value of 0 will be returned.  */
  881.   
  882. ! LONG
  883.   _gdbm_alloc (dbf, num_bytes)
  884.        gdbm_file_info *dbf;
  885.        int num_bytes;
  886.   {
  887. !   LONG file_adr;            /* The address of the block. */
  888.     avail_elem av_el;        /* For temporary use. */
  889.   
  890.     /* The current bucket is the first place to look for space. */
  891. *************** _gdbm_alloc (dbf, num_bytes)
  892. *** 104,110 ****
  893.   
  894.   _gdbm_free (dbf, file_adr, num_bytes)
  895.        gdbm_file_info *dbf;
  896. !      int file_adr;
  897.        int num_bytes;
  898.   {
  899.     avail_elem temp;
  900. --- 131,137 ----
  901.   
  902.   _gdbm_free (dbf, file_adr, num_bytes)
  903.        gdbm_file_info *dbf;
  904. !      LONG file_adr;
  905.        int num_bytes;
  906.   {
  907.     avail_elem temp;
  908. *************** _gdbm_free (dbf, file_adr, num_bytes)
  909. *** 111,117 ****
  910.   
  911.     /* Is it too small to worry about? */
  912.     if (num_bytes <= IGNORE_SIZE)
  913. !     return;
  914.   
  915.     /* Initialize the avail element. */
  916.     temp.av_size = num_bytes;
  917. --- 138,144 ----
  918.   
  919.     /* Is it too small to worry about? */
  920.     if (num_bytes <= IGNORE_SIZE)
  921. !     return TRUE;        /* is that correct (was "return;")? -tho */
  922.   
  923.     /* Initialize the avail element. */
  924.     temp.av_size = num_bytes;
  925. *************** _gdbm_free (dbf, file_adr, num_bytes)
  926. *** 150,156 ****
  927.       adjust_bucket_avail (dbf);
  928.   
  929.     /* All work is done. */
  930. !   return;
  931.   }
  932.   
  933.   
  934. --- 177,183 ----
  935.       adjust_bucket_avail (dbf);
  936.   
  937.     /* All work is done. */
  938. !   return TRUE;            /* is that correct (was "return;")? -tho */
  939.   }
  940.   
  941.   
  942. *************** _gdbm_free (dbf, file_adr, num_bytes)
  943. *** 162,172 ****
  944.   /* Gets the avail block at the top of the stack and loads it into the
  945.      active avail block.  It does a "free" for itself! */
  946.   
  947. ! static
  948.   pop_avail_block (dbf)
  949.        gdbm_file_info *dbf;
  950.   {
  951. !   int num_bytes;        /* For reading. */
  952.     avail_elem temp;
  953.   
  954.     /* Set up variables. */
  955. --- 189,199 ----
  956.   /* Gets the avail block at the top of the stack and loads it into the
  957.      active avail block.  It does a "free" for itself! */
  958.   
  959. ! static VOID
  960.   pop_avail_block (dbf)
  961.        gdbm_file_info *dbf;
  962.   {
  963. !   LONG num_bytes;        /* For reading. */
  964.     avail_elem temp;
  965.   
  966.     /* Set up variables. */
  967. *************** pop_avail_block (dbf)
  968. *** 177,183 ****
  969. --- 204,215 ----
  970.     /* Read the block. */
  971.     num_bytes = lseek (dbf->desc, temp.av_adr, L_SET);
  972.     if (num_bytes != temp.av_adr)  _gdbm_fatal (dbf, "lseek error");
  973. + #ifdef MSDOS            /* shut up the compiler!  */
  974. +   num_bytes = read (dbf->desc,
  975. +             (char *) &dbf->header->avail, temp.av_size);
  976. + #else /* not MSDOS */
  977.     num_bytes = read (dbf->desc, &dbf->header->avail, temp.av_size);
  978. + #endif /* not MSDOS */
  979.     if (num_bytes != temp.av_size) _gdbm_fatal (dbf, "read error");
  980.   
  981.     /* We changed the header. */
  982. *************** pop_avail_block (dbf)
  983. *** 191,203 ****
  984.   
  985.   /* Splits the header avail block and pushes half onto the avail stack. */
  986.   
  987. ! static
  988.   push_avail_block (dbf)
  989.        gdbm_file_info *dbf;
  990.   {
  991. !   int num_bytes;
  992.     int av_size;
  993. !   int av_adr;
  994.     int index;
  995.     avail_block *temp;
  996.     avail_elem  new_loc;
  997. --- 223,235 ----
  998.   
  999.   /* Splits the header avail block and pushes half onto the avail stack. */
  1000.   
  1001. ! static VOID
  1002.   push_avail_block (dbf)
  1003.        gdbm_file_info *dbf;
  1004.   {
  1005. !   LONG num_bytes;
  1006.     int av_size;
  1007. !   LONG av_adr;
  1008.     int index;
  1009.     avail_block *temp;
  1010.     avail_elem  new_loc;
  1011. *************** push_avail_block (dbf)
  1012. *** 217,222 ****
  1013. --- 249,261 ----
  1014.   
  1015.     /* Split the header block. */
  1016.     temp = (avail_block *) alloca (av_size);
  1017. + #ifdef MSDOS
  1018. +   if (temp == (avail_block *) 0)
  1019. +     {
  1020. +       fprintf (stderr, "alloca failed.\n");
  1021. +       exit (-2);
  1022. +     }
  1023. + #endif /* MSDOS */
  1024.     /* Set the size to be correct AFTER the pop_avail_block. */
  1025.     temp->size = dbf->header->avail.size;
  1026.     temp->count = 0;
  1027. *************** push_avail_block (dbf)
  1028. *** 241,247 ****
  1029. --- 280,291 ----
  1030.     /* Update the disk. */
  1031.     num_bytes = lseek (dbf->desc, av_adr, L_SET);
  1032.     if (num_bytes != av_adr) _gdbm_fatal (dbf, "lseek error");
  1033. + #ifdef MSDOS            /* shut up the compiler!   */
  1034. +   num_bytes = write (dbf->desc, (char *) temp, av_size);
  1035. + #else /* not MSDOS */
  1036.     num_bytes = write (dbf->desc, temp, av_size);
  1037. + #endif /* not MSDOS */
  1038. + 
  1039.     if (num_bytes != av_size) _gdbm_fatal (dbf, "write error");
  1040.   
  1041.   }
  1042. *************** get_block (size, dbf)
  1043. *** 368,374 ****
  1044.   
  1045.   /*  When the header already needs writing, we can make sure the current
  1046.       bucket has its avail block as close to 1/2 full as possible. */
  1047. ! static
  1048.   adjust_bucket_avail (dbf)
  1049.        gdbm_file_info *dbf;
  1050.   {
  1051. --- 412,418 ----
  1052.   
  1053.   /*  When the header already needs writing, we can make sure the current
  1054.       bucket has its avail block as close to 1/2 full as possible. */
  1055. ! static VOID
  1056.   adjust_bucket_avail (dbf)
  1057.        gdbm_file_info *dbf;
  1058.   {
  1059. diff -cBdNp e:/gnu/gdbm/gnu/fetch.c ./fetch.c
  1060. *** e:/gnu/gdbm/gnu/fetch.c    Thu Aug 16 10:49:24 1990
  1061. --- ./fetch.c    Thu Aug 16 10:50:38 1990
  1062. ***************
  1063. *** 27,36 ****
  1064. --- 27,54 ----
  1065.          
  1066.   *************************************************************************/
  1067.   
  1068. + /*
  1069. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  1070. +  *
  1071. +  * To this port, the same copying conditions apply as to the
  1072. +  * original release.
  1073. +  *
  1074. +  * IMPORTANT:
  1075. +  * This file is not identical to the original GNU release!
  1076. +  * You should have received this code as patch to the official
  1077. +  * GNU release.
  1078. +  *
  1079. +  * MORE IMPORTANT:
  1080. +  * This port comes with ABSOLUTELY NO WARRANTY.
  1081. +  *
  1082. +  * $Header: e:/gnu/gdbm/RCS/fetch.c'v 1.4.0.1 90/08/16 09:22:21 tho Exp $
  1083. +  */
  1084.   
  1085.   #include <stdio.h>
  1086.   #include <sys/types.h>
  1087. + #ifndef MSDOS
  1088.   #include <sys/file.h>
  1089. + #endif /* not MSDOS */
  1090.   #include <sys/stat.h>
  1091.   #include "gdbmdefs.h"
  1092.   #include "extern.h"
  1093. diff -cBdNp e:/gnu/gdbm/gnu/findkey.c ./findkey.c
  1094. *** e:/gnu/gdbm/gnu/findkey.c    Thu Aug 16 10:49:26 1990
  1095. --- ./findkey.c    Thu Aug 16 10:50:40 1990
  1096. ***************
  1097. *** 27,36 ****
  1098. --- 27,54 ----
  1099.          
  1100.   *************************************************************************/
  1101.   
  1102. + /*
  1103. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  1104. +  *
  1105. +  * To this port, the same copying conditions apply as to the
  1106. +  * original release.
  1107. +  *
  1108. +  * IMPORTANT:
  1109. +  * This file is not identical to the original GNU release!
  1110. +  * You should have received this code as patch to the official
  1111. +  * GNU release.
  1112. +  *
  1113. +  * MORE IMPORTANT:
  1114. +  * This port comes with ABSOLUTELY NO WARRANTY.
  1115. +  *
  1116. +  * $Header: e:/gnu/gdbm/RCS/findkey.c'v 1.4.0.1 90/08/16 09:22:23 tho Exp $
  1117. +  */
  1118.   
  1119.   #include <stdio.h>
  1120.   #include <sys/types.h>
  1121. + #ifndef MSDOS
  1122.   #include <sys/file.h>
  1123. + #endif /* not MSDOS */
  1124.   #include <sys/stat.h>
  1125.   #include "gdbmdefs.h"
  1126.   #include "systems.h"
  1127. *************** _gdbm_read_entry (dbf, elem_loc)
  1128. *** 44,50 ****
  1129.        gdbm_file_info *dbf;
  1130.        int elem_loc;
  1131.   {
  1132. !   int num_bytes;        /* For seeking and reading. */
  1133.     int key_size;
  1134.     int data_size;
  1135.     data_cache_elem *data_ca;
  1136. --- 62,68 ----
  1137.        gdbm_file_info *dbf;
  1138.        int elem_loc;
  1139.   {
  1140. !   LONG num_bytes;        /* For seeking and reading. */
  1141.     int key_size;
  1142.     int data_size;
  1143.     data_cache_elem *data_ca;
  1144. *************** _gdbm_read_entry (dbf, elem_loc)
  1145. *** 74,81 ****
  1146.     if (num_bytes != dbf->bucket->h_table[elem_loc].data_pointer)
  1147.       _gdbm_fatal (dbf, "lseek error");
  1148.     num_bytes = read (dbf->desc, data_ca->dptr, key_size+data_size);
  1149.     if (num_bytes != key_size+data_size) _gdbm_fatal (dbf, "read error");
  1150. !   
  1151.     return data_ca->dptr;
  1152.   }
  1153.   
  1154. --- 92,100 ----
  1155.     if (num_bytes != dbf->bucket->h_table[elem_loc].data_pointer)
  1156.       _gdbm_fatal (dbf, "lseek error");
  1157.     num_bytes = read (dbf->desc, data_ca->dptr, key_size+data_size);
  1158. + 
  1159.     if (num_bytes != key_size+data_size) _gdbm_fatal (dbf, "read error");
  1160. ! 
  1161.     return data_ca->dptr;
  1162.   }
  1163.   
  1164. *************** _gdbm_findkey (dbf, key, dptr, new_hash_
  1165. *** 91,99 ****
  1166.        gdbm_file_info *dbf;
  1167.        datum key;
  1168.        char **dptr;
  1169. !      int   *new_hash_val;        /* The new hash value. */
  1170.   {
  1171. !   int    bucket_hash_val;    /* The hash value from the bucket. */
  1172.     char  *file_key;        /* The complete key as stored in the file. */
  1173.     int    elem_loc;        /* The location in the bucket. */
  1174.     int    home_loc;        /* The home location in the bucket. */
  1175. --- 110,118 ----
  1176.        gdbm_file_info *dbf;
  1177.        datum key;
  1178.        char **dptr;
  1179. !      LONG   *new_hash_val;        /* The new hash value. */
  1180.   {
  1181. !   LONG   bucket_hash_val;    /* The hash value from the bucket. */
  1182.     char  *file_key;        /* The complete key as stored in the file. */
  1183.     int    elem_loc;        /* The location in the bucket. */
  1184.     int    home_loc;        /* The home location in the bucket. */
  1185. *************** _gdbm_findkey (dbf, key, dptr, new_hash_
  1186. *** 101,107 ****
  1187. --- 120,130 ----
  1188.   
  1189.     /* Compute hash value and load proper bucket.  */
  1190.     *new_hash_val = _gdbm_hash (key);
  1191. + #ifdef MSDOS            /* careful!!!! */
  1192. +   _gdbm_get_bucket (dbf, (int) (*new_hash_val>> (31-dbf->header->dir_bits)));
  1193. + #else /* not MSDOS */
  1194.     _gdbm_get_bucket (dbf, *new_hash_val>> (31-dbf->header->dir_bits));
  1195. + #endif /* not MSDOS */
  1196.   
  1197.     /* Is the element the last one found for this bucket? */
  1198.     if (*new_hash_val == dbf->cache_entry->ca_data.hash_val
  1199. *************** _gdbm_findkey (dbf, key, dptr, new_hash_
  1200. *** 115,121 ****
  1201. --- 138,148 ----
  1202.       }
  1203.         
  1204.     /* It is not the cached value, search for element in the bucket. */
  1205. + #ifdef MSDOS            /* careful!!!  */
  1206. +   elem_loc = (int) (*new_hash_val % dbf->header->bucket_elems);
  1207. + #else /* not MSDOS */
  1208.     elem_loc = *new_hash_val % dbf->header->bucket_elems;
  1209. + #endif /* not MSDOS */
  1210.     home_loc = elem_loc;
  1211.     bucket_hash_val = dbf->bucket->h_table[elem_loc].hash_value;
  1212.     while (bucket_hash_val != -1)
  1213. diff -cBdNp e:/gnu/gdbm/gnu/gdbm.pro ./gdbm.pro
  1214. *** e:/gnu/gdbm/gnu/gdbm.pro    Thu Aug 16 10:49:28 1990
  1215. --- ./gdbm.pro    Thu Aug 16 10:50:40 1990
  1216. ***************
  1217. *** 1,72 ****
  1218. - /* gdbm.h  -  The include file for dbm users.  */
  1219. - 
  1220. - /*  This file is part of GDBM, the GNU data base manager, by Philip A. Nelson.
  1221. -     Copyright (C) 1990  Free Software Foundation, Inc.
  1222. - 
  1223. -     GDBM is free software; you can redistribute it and/or modify
  1224. -     it under the terms of the GNU General Public License as published by
  1225. -     the Free Software Foundation; either version 1, or (at your option)
  1226. -     any later version.
  1227. - 
  1228. -     GDBM is distributed in the hope that it will be useful,
  1229. -     but WITHOUT ANY WARRANTY; without even the implied warranty of
  1230. -     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  1231. -     GNU General Public License for more details.
  1232. - 
  1233. -     You should have received a copy of the GNU General Public License
  1234. -     along with GDBM; see the file COPYING.  If not, write to
  1235. -     the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  1236. - 
  1237. -     You may contact the author by:
  1238. -        e-mail:  phil@wwu.edu
  1239. -       us-mail:  Philip A. Nelson
  1240. -                 Computer Science Department
  1241. -                 Western Washington University
  1242. -                 Bellingham, WA 98226
  1243. -         phone:  (206) 676-3035
  1244. -        
  1245. - *************************************************************************/
  1246. - 
  1247. - /* Parameters to gdbm_open for READERS, WRITERS, and WRITERS who
  1248. -    can create the database. */
  1249. - #define  GDBM_READER  0        /* A reader. */
  1250. - #define  GDBM_WRITER  1        /* A writer. */
  1251. - #define  GDBM_WRCREAT 2        /* A writer.  Create the db if needed. */
  1252. - #define  GDBM_NEWDB   3        /* A writer.  Always create a new db. */
  1253. - 
  1254. - /* Parameters to gdbm_store for simple insertion or replacement in the
  1255. -    case that the key is already in the database. */
  1256. - #define  GDBM_INSERT  0        /* Never replace old data with new. */
  1257. - #define  GDBM_REPLACE 1        /* Always replace old data with new. */
  1258. - 
  1259. - 
  1260. - /* The data and key structure.  This structure is defined for compatibility. */
  1261. - typedef struct {
  1262. -     char *dptr;
  1263. -     int   dsize;
  1264. -       } datum;
  1265. - 
  1266. - 
  1267. - /* The file information header. This is good enough for most applications. */
  1268. - typedef struct {int dummy[10];} *GDBM_FILE;
  1269. - 
  1270. - 
  1271. - /* These are the routines! */
  1272. - 
  1273. - extern GDBM_FILE gdbm_open ();
  1274. - 
  1275. - extern void     gdbm_close ();
  1276. - 
  1277. - extern datum     gdbm_fetch ();
  1278. - 
  1279. - extern int     gdbm_store ();
  1280. - 
  1281. - extern int     gdbm_delete ();
  1282. - 
  1283. - extern datum     gdbm_firstkey ();
  1284. - 
  1285. - extern datum     gdbm_nextkey ();
  1286. - 
  1287. - extern int     gdbm_reorganize ();
  1288. - 
  1289. - 
  1290. --- 0 ----
  1291. diff -cBdNp e:/gnu/gdbm/gnu/gdbmclos.c ./gdbmclos.c
  1292. *** e:/gnu/gdbm/gnu/gdbmclos.c    Thu Aug 16 10:49:28 1990
  1293. --- ./gdbmclos.c    Thu Aug 16 10:50:44 1990
  1294. ***************
  1295. *** 27,37 ****
  1296.          
  1297.   *************************************************************************/
  1298.   
  1299. ! 
  1300.   
  1301.   #include <stdio.h>
  1302.   #include <sys/types.h>
  1303.   #include <sys/file.h>
  1304.   #include "gdbmdefs.h"
  1305.   #include "systems.h"
  1306.   
  1307. --- 27,54 ----
  1308.          
  1309.   *************************************************************************/
  1310.   
  1311. ! /*
  1312. !  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  1313. !  *
  1314. !  * To this port, the same copying conditions apply as to the
  1315. !  * original release.
  1316. !  *
  1317. !  * IMPORTANT:
  1318. !  * This file is not identical to the original GNU release!
  1319. !  * You should have received this code as patch to the official
  1320. !  * GNU release.
  1321. !  *
  1322. !  * MORE IMPORTANT:
  1323. !  * This port comes with ABSOLUTELY NO WARRANTY.
  1324. !  *
  1325. !  * $Header: e:/gnu/gdbm/RCS/gdbmclos.c'v 1.4.0.1 90/08/16 09:22:24 tho Exp $
  1326. !  */
  1327.   
  1328.   #include <stdio.h>
  1329.   #include <sys/types.h>
  1330. + #ifndef MSDOS
  1331.   #include <sys/file.h>
  1332. + #endif /* not MSDOS */
  1333.   #include "gdbmdefs.h"
  1334.   #include "systems.h"
  1335.   
  1336. diff -cBdNp e:/gnu/gdbm/gnu/gdbmdefs.h ./gdbmdefs.h
  1337. *** e:/gnu/gdbm/gnu/gdbmdefs.h    Thu Aug 16 10:49:32 1990
  1338. --- ./gdbmdefs.h    Thu Aug 16 10:50:46 1990
  1339. ***************
  1340. *** 27,33 ****
  1341. --- 27,63 ----
  1342.          
  1343.   *************************************************************************/
  1344.   
  1345. + /*
  1346. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  1347. +  *
  1348. +  * To this port, the same copying conditions apply as to the
  1349. +  * original release.
  1350. +  *
  1351. +  * IMPORTANT:
  1352. +  * This file is not identical to the original GNU release!
  1353. +  * You should have received this code as patch to the official
  1354. +  * GNU release.
  1355. +  *
  1356. +  * MORE IMPORTANT:
  1357. +  * This port comes with ABSOLUTELY NO WARRANTY.
  1358. +  *
  1359. +  * $Header: e:/gnu/gdbm/RCS/gdbmdefs.h'v 1.4.0.1 90/08/16 09:22:58 tho Exp $
  1360. +  */
  1361. + 
  1362. + #ifdef __STDC__
  1363. + #include <stdio.h>
  1364. + #include <stdlib.h>
  1365. + #include <string.h>
  1366. + #define VOID void
  1367. + #else /* not __STDC__ */
  1368. + #define VOID
  1369. + #endif /*not __STDC__ */
  1370.   
  1371. + #ifdef MSDOS
  1372. + #define LONG long
  1373. + #else /* not MSDOS */
  1374. + #define LONG int
  1375. + #endif /* not MSDOS */
  1376.   
  1377.   /* Start with the constant definitions.  */
  1378.   #define  TRUE    1
  1379. *************** typedef struct {
  1380. *** 64,70 ****
  1381.   /* The following structure is the element of the avaliable table.  */
  1382.   typedef struct {
  1383.         int  av_size;        /* The size of the available block. */
  1384. !     int  av_adr;        /* The file address of the available block. */
  1385.         } avail_elem;
  1386.   
  1387.   /* This is the actual table. The in-memory images of the avail blocks are
  1388. --- 94,100 ----
  1389.   /* The following structure is the element of the avaliable table.  */
  1390.   typedef struct {
  1391.         int  av_size;        /* The size of the available block. */
  1392. !     LONG av_adr;        /* The file address of the available block. */
  1393.         } avail_elem;
  1394.   
  1395.   /* This is the actual table. The in-memory images of the avail blocks are
  1396. *************** typedef struct {
  1397. *** 72,78 ****
  1398.   typedef struct {
  1399.       int  size;        /* The number of avail elements in the table.*/
  1400.       int  count;        /* The number of entries in the table. */
  1401. !     int  next_block;    /* The file address of the next avail block. */
  1402.       avail_elem av_table[1]; /* The table.  Make it look like an array.  */
  1403.         } avail_block;
  1404.   
  1405. --- 102,108 ----
  1406.   typedef struct {
  1407.       int  size;        /* The number of avail elements in the table.*/
  1408.       int  count;        /* The number of entries in the table. */
  1409. !     LONG next_block;    /* The file address of the next avail block. */
  1410.       avail_elem av_table[1]; /* The table.  Make it look like an array.  */
  1411.         } avail_block;
  1412.   
  1413. *************** typedef struct {
  1414. *** 85,98 ****
  1415.      directory and the free space in the file.  */
  1416.   
  1417.   typedef struct {
  1418. !     int   header_magic;  /* 0x13579ace to make sure the header is good. */
  1419.       int   block_size;    /* The  optimal i/o blocksize from stat. */
  1420. !     int   dir;         /* File address of hash directory table. */
  1421.       int   dir_size;         /* Size in bytes of the table.  */
  1422.       int   dir_bits;         /* The number of address bits used in the table.*/
  1423.       int   bucket_size;   /* Size in bytes of a hash bucket struct. */
  1424.       int   bucket_elems;  /* Number of elements in a hash bucket. */
  1425. !     int   next_block;    /* The next unallocated block address. */
  1426.       avail_block avail;   /* This must be last because of the psuedo
  1427.                   array in avail.  This avail grows to fill
  1428.                   the entire block. */
  1429. --- 115,128 ----
  1430.      directory and the free space in the file.  */
  1431.   
  1432.   typedef struct {
  1433. !     LONG  header_magic;  /* 0x13579ace to make sure the header is good. */
  1434.       int   block_size;    /* The  optimal i/o blocksize from stat. */
  1435. !     LONG  dir;         /* File address of hash directory table. */
  1436.       int   dir_size;         /* Size in bytes of the table.  */
  1437.       int   dir_bits;         /* The number of address bits used in the table.*/
  1438.       int   bucket_size;   /* Size in bytes of a hash bucket struct. */
  1439.       int   bucket_elems;  /* Number of elements in a hash bucket. */
  1440. !     LONG  next_block;    /* The next unallocated block address. */
  1441.       avail_block avail;   /* This must be last because of the psuedo
  1442.                   array in avail.  This avail grows to fill
  1443.                   the entire block. */
  1444. *************** typedef struct {
  1445. *** 108,116 ****
  1446.   #define SMALL    4
  1447.   
  1448.   typedef struct {
  1449. !     int   hash_value;    /* The complete 31 bit value. */
  1450.       char  key_start[SMALL];    /* Up to the first SMALL bytes of the key.  */
  1451. !     int   data_pointer;    /* The file address of the key record. The
  1452.                      data record directly follows the key.  */
  1453.       int   key_size;        /* Size of key data in the file. */
  1454.       int   data_size;    /* Size of associated data in the file. */
  1455. --- 138,146 ----
  1456.   #define SMALL    4
  1457.   
  1458.   typedef struct {
  1459. !     LONG  hash_value;    /* The complete 31 bit value. */
  1460.       char  key_start[SMALL];    /* Up to the first SMALL bytes of the key.  */
  1461. !     LONG  data_pointer;    /* The file address of the key record. The
  1462.                      data record directly follows the key.  */
  1463.       int   key_size;        /* Size of key data in the file. */
  1464.       int   data_size;    /* Size of associated data in the file. */
  1465. *************** typedef struct {
  1466. *** 151,157 ****
  1467.      cache.  */
  1468.   
  1469.   typedef struct {
  1470. !         int   hash_val;
  1471.       int   data_size;
  1472.       int   key_size;
  1473.       char *dptr;
  1474. --- 181,187 ----
  1475.      cache.  */
  1476.   
  1477.   typedef struct {
  1478. !         LONG  hash_val;
  1479.       int   data_size;
  1480.       int   key_size;
  1481.       char *dptr;
  1482. *************** typedef struct {
  1483. *** 162,168 ****
  1484.   
  1485.   typedef struct {
  1486.           hash_bucket *   ca_bucket;
  1487. !     int             ca_adr;
  1488.       char        ca_changed;   /* Data in the bucket changed. */
  1489.       data_cache_elem ca_data;
  1490.         } cache_elem;
  1491. --- 192,198 ----
  1492.   
  1493.   typedef struct {
  1494.           hash_bucket *   ca_bucket;
  1495. !     LONG            ca_adr;
  1496.       char        ca_changed;   /* Data in the bucket changed. */
  1497.       data_cache_elem ca_data;
  1498.         } cache_elem;
  1499. *************** typedef struct {
  1500. *** 194,200 ****
  1501.   
  1502.       /* The hash table directory from extendible hashing.  See Fagin et al, 
  1503.          ACM Trans on Database Systems, Vol 4, No 3. Sept 1979, 315-344 */
  1504. !     int  *dir;
  1505.   
  1506.       /* The bucket cache. */
  1507.       cache_elem bucket_cache [CACHE_SIZE];
  1508. --- 224,230 ----
  1509.   
  1510.       /* The hash table directory from extendible hashing.  See Fagin et al, 
  1511.          ACM Trans on Database Systems, Vol 4, No 3. Sept 1979, 315-344 */
  1512. !     LONG  *dir;
  1513.   
  1514.       /* The bucket cache. */
  1515.       cache_elem bucket_cache [CACHE_SIZE];
  1516. *************** typedef struct {
  1517. *** 218,222 ****
  1518. --- 248,294 ----
  1519.       char  second_changed;
  1520.       
  1521.         } gdbm_file_info;
  1522. + 
  1523. + 
  1524. + #ifdef __STDC__
  1525. + extern void gdbm_close (gdbm_file_info *dbf);
  1526. + extern int gdbm_delete (gdbm_file_info *dbf, datum key);
  1527. + extern datum gdbm_fetch (gdbm_file_info *dbf, datum key);
  1528. + extern gdbm_file_info *gdbm_open (char *file, int block_size, int read_write, int mode, void (*fatal_func)());
  1529. + extern int gdbm_reorganize (gdbm_file_info *dbf);
  1530. + extern datum gdbm_firstkey (gdbm_file_info *dbf);
  1531. + extern datum gdbm_nextkey (gdbm_file_info *dbf, datum key);
  1532. + extern int gdbm_store (gdbm_file_info *dbf, datum key, datum content, int flags);
  1533. + 
  1534. + extern VOID _gdbm_new_bucket (gdbm_file_info *dbf, hash_bucket *bucket, int bits);
  1535. + extern VOID _gdbm_get_bucket (gdbm_file_info *dbf, int dir_index);
  1536. + extern VOID _gdbm_split_bucket (gdbm_file_info *dbf, LONG next_insert);
  1537. + extern VOID _gdbm_write_bucket (gdbm_file_info *dbf, cache_elem *ca_entry);
  1538. + extern LONG _gdbm_alloc (gdbm_file_info *dbf, int num_bytes);
  1539. + extern int _gdbm_free (gdbm_file_info *dbf, LONG file_adr, int num_bytes);
  1540. + extern int _gdbm_put_av_elem (avail_elem new_el, avail_elem *av_table, int *av_count);
  1541. + extern char *_gdbm_read_entry (gdbm_file_info *dbf, int elem_loc);
  1542. + extern int _gdbm_findkey (gdbm_file_info *dbf, datum key, char **dptr, LONG *new_hash_val);
  1543. + extern LONG _gdbm_hash (datum key);
  1544. + extern VOID _gdbm_end_update (gdbm_file_info *dbf);
  1545. + extern VOID _gdbm_fatal (gdbm_file_info *dbf, char *val);
  1546. + 
  1547. + extern  int dbminit (char *file);
  1548. + extern datum fetch(datum key);
  1549. + extern int store (datum key, datum content);
  1550. + extern int delete (datum key);
  1551. + extern datum firstkey (void);
  1552. + extern datum nextkey (datum key);
  1553. + 
  1554. + extern gdbm_file_info *dbm_open (char *file, int flags, int mode);
  1555. + extern void dbm_close (gdbm_file_info *dbf);
  1556. + extern datum dbm_fetch (gdbm_file_info *dbf, datum key);
  1557. + extern int dbm_store (gdbm_file_info *dbf, datum key, datum content, int flags);
  1558. + extern int dbm_delete (gdbm_file_info *dbf, datum key);
  1559. + extern datum dbm_firstkey (gdbm_file_info *dbf);
  1560. + extern datum dbm_nextkey (gdbm_file_info *dbf);
  1561. + extern int dbm_dirfno (gdbm_file_info *dbf);
  1562. + extern int dbm_pagfno (gdbm_file_info *dbf);
  1563. + #endif /* __STDC__ */
  1564.   
  1565.   
  1566. diff -cBdNp e:/gnu/gdbm/gnu/gdbmdele.c ./gdbmdele.c
  1567. *** e:/gnu/gdbm/gnu/gdbmdele.c    Thu Aug 16 10:49:34 1990
  1568. --- ./gdbmdele.c    Thu Aug 16 10:50:48 1990
  1569. ***************
  1570. *** 27,37 ****
  1571.          
  1572.   *************************************************************************/
  1573.   
  1574. ! 
  1575.   
  1576.   #include <stdio.h>
  1577.   #include <sys/types.h>
  1578.   #include <sys/file.h>
  1579.   #include <sys/stat.h>
  1580.   #include "gdbmdefs.h"
  1581.   #include "systems.h"
  1582. --- 27,54 ----
  1583.          
  1584.   *************************************************************************/
  1585.   
  1586. ! /*
  1587. !  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  1588. !  *
  1589. !  * To this port, the same copying conditions apply as to the
  1590. !  * original release.
  1591. !  *
  1592. !  * IMPORTANT:
  1593. !  * This file is not identical to the original GNU release!
  1594. !  * You should have received this code as patch to the official
  1595. !  * GNU release.
  1596. !  *
  1597. !  * MORE IMPORTANT:
  1598. !  * This port comes with ABSOLUTELY NO WARRANTY.
  1599. !  *
  1600. !  * $Header: e:/gnu/gdbm/RCS/gdbmdele.c'v 1.4.0.1 90/08/16 09:22:26 tho Exp $
  1601. !  */
  1602.   
  1603.   #include <stdio.h>
  1604.   #include <sys/types.h>
  1605. + #ifndef MSDOS
  1606.   #include <sys/file.h>
  1607. + #endif /* not MSDOS */
  1608.   #include <sys/stat.h>
  1609.   #include "gdbmdefs.h"
  1610.   #include "systems.h"
  1611. *************** gdbm_delete (dbf, key)
  1612. *** 52,59 ****
  1613.     int home;        /* Home position of an item. */
  1614.     bucket_element elem;  /* The element to be deleted. */
  1615.     char *find_data;    /* Return pointer from findkey. */
  1616. !   int   hash_val;    /* Returned by findkey. */
  1617. !   int   free_adr;       /* Temporary stroage for address and size. */
  1618.     int   free_size;
  1619.   
  1620.     /* First check to make sure this guy is a writer. */
  1621. --- 69,76 ----
  1622.     int home;        /* Home position of an item. */
  1623.     bucket_element elem;  /* The element to be deleted. */
  1624.     char *find_data;    /* Return pointer from findkey. */
  1625. !   LONG  hash_val;    /* Returned by findkey. */
  1626. !   LONG  free_adr;       /* Temporary stroage for address and size. */
  1627.     int   free_size;
  1628.   
  1629.     /* First check to make sure this guy is a writer. */
  1630. *************** gdbm_delete (dbf, key)
  1631. *** 84,91 ****
  1632. --- 101,113 ----
  1633.     while (elem_loc != last_loc
  1634.        && dbf->bucket->h_table[elem_loc].hash_value != -1)
  1635.       {
  1636. + #ifdef MSDOS
  1637. +       home = (int) (dbf->bucket->h_table[elem_loc].hash_value
  1638. +             % dbf->header->bucket_elems);
  1639. + #else /* not MSDOS */
  1640.         home = dbf->bucket->h_table[elem_loc].hash_value
  1641.            % dbf->header->bucket_elems;
  1642. + #endif /* not MSDOS */
  1643.         if ( (last_loc < elem_loc && (home <= last_loc || home > elem_loc))
  1644.         || (last_loc > elem_loc && home <= last_loc && home > elem_loc))
  1645.       
  1646. diff -cBdNp e:/gnu/gdbm/gnu/gdbmfetc.c ./gdbmfetc.c
  1647. *** e:/gnu/gdbm/gnu/gdbmfetc.c    Thu Aug 16 10:49:36 1990
  1648. --- ./gdbmfetc.c    Thu Aug 16 10:50:54 1990
  1649. ***************
  1650. *** 27,36 ****
  1651. --- 27,54 ----
  1652.          
  1653.   *************************************************************************/
  1654.   
  1655. + /*
  1656. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  1657. +  *
  1658. +  * To this port, the same copying conditions apply as to the
  1659. +  * original release.
  1660. +  *
  1661. +  * IMPORTANT:
  1662. +  * This file is not identical to the original GNU release!
  1663. +  * You should have received this code as patch to the official
  1664. +  * GNU release.
  1665. +  *
  1666. +  * MORE IMPORTANT:
  1667. +  * This port comes with ABSOLUTELY NO WARRANTY.
  1668. +  *
  1669. +  * $Header: e:/gnu/gdbm/RCS/gdbmfetc.c'v 1.4.0.1 90/08/16 09:22:27 tho Exp $
  1670. +  */
  1671.   
  1672.   #include <stdio.h>
  1673.   #include <sys/types.h>
  1674. + #ifndef MSDOS
  1675.   #include <sys/file.h>
  1676. + #endif /* not MSDOS */
  1677.   #include <sys/stat.h>
  1678.   #include "gdbmdefs.h"
  1679.   #include "systems.h"
  1680. *************** gdbm_fetch (dbf, key)
  1681. *** 49,55 ****
  1682.     datum  return_val;        /* The return value. */
  1683.     int    elem_loc;        /* The location in the bucket. */
  1684.     char  *find_data;        /* Returned from find_key. */
  1685. !   int     hash_val;        /* Returned from find_key. */
  1686.   
  1687.     /* Set the default return value. */
  1688.     return_val.dptr = NULL;
  1689. --- 67,73 ----
  1690.     datum  return_val;        /* The return value. */
  1691.     int    elem_loc;        /* The location in the bucket. */
  1692.     char  *find_data;        /* Returned from find_key. */
  1693. !   LONG     hash_val;        /* Returned from find_key. */
  1694.   
  1695.     /* Set the default return value. */
  1696.     return_val.dptr = NULL;
  1697. diff -cBdNp e:/gnu/gdbm/gnu/gdbmopen.c ./gdbmopen.c
  1698. *** e:/gnu/gdbm/gnu/gdbmopen.c    Thu Aug 16 10:49:40 1990
  1699. --- ./gdbmopen.c    Thu Aug 16 10:50:56 1990
  1700. ***************
  1701. *** 27,36 ****
  1702. --- 27,54 ----
  1703.          
  1704.   *************************************************************************/
  1705.   
  1706. + /*
  1707. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  1708. +  *
  1709. +  * To this port, the same copying conditions apply as to the
  1710. +  * original release.
  1711. +  *
  1712. +  * IMPORTANT:
  1713. +  * This file is not identical to the original GNU release!
  1714. +  * You should have received this code as patch to the official
  1715. +  * GNU release.
  1716. +  *
  1717. +  * MORE IMPORTANT:
  1718. +  * This port comes with ABSOLUTELY NO WARRANTY.
  1719. +  *
  1720. +  * $Header: e:/gnu/gdbm/RCS/gdbmopen.c'v 1.4.0.1 90/08/16 09:22:29 tho Exp $
  1721. +  */
  1722.   
  1723.   #include <stdio.h>
  1724.   #include <sys/types.h>
  1725. + #ifndef MSDOS
  1726.   #include <sys/file.h>
  1727. + #endif /* not MSDOS */
  1728.   #include <sys/stat.h>
  1729.   #include "gdbmdefs.h"
  1730.   #include "systems.h"
  1731. *************** gdbm_open (file, block_size, read_write,
  1732. *** 71,77 ****
  1733.     gdbm_file_info *dbf;        /* The record to return. */
  1734.     struct stat file_stat;    /* Space for the stat information. */
  1735.     int         len;        /* Length of the file name. */
  1736. !   int         num_bytes;    /* Used in reading and writing. */
  1737.     int          lock_val;         /* Returned by the flock call. */
  1738.     int          file_block_size;    /* Block size to use for a new file. */
  1739.     int           index;        /* Used as a loop index. */
  1740. --- 89,95 ----
  1741.     gdbm_file_info *dbf;        /* The record to return. */
  1742.     struct stat file_stat;    /* Space for the stat information. */
  1743.     int         len;        /* Length of the file name. */
  1744. !   LONG        num_bytes;    /* Used in reading and writing. */
  1745.     int          lock_val;         /* Returned by the flock call. */
  1746.     int          file_block_size;    /* Block size to use for a new file. */
  1747.     int           index;        /* Used as a loop index. */
  1748. *************** gdbm_open (file, block_size, read_write,
  1749. *** 111,130 ****
  1750.     /* Open the file. */
  1751.     if (read_write == GDBM_READER)
  1752.       {
  1753. !       dbf->desc = open (dbf->name, O_RDONLY, 0);
  1754.       }
  1755.     else if (read_write == GDBM_WRITER)
  1756.       {
  1757. !       dbf->desc = open (dbf->name, O_RDWR, 0);
  1758.       }
  1759.     else if (read_write == GDBM_NEWDB)
  1760.       {
  1761. !       dbf->desc = open (dbf->name, O_RDWR|O_CREAT|O_TRUNC, mode);
  1762.         read_write = GDBM_WRITER;
  1763.       }
  1764.     else
  1765.       {
  1766. !       dbf->desc = open (dbf->name, O_RDWR|O_CREAT, mode);
  1767.         read_write = GDBM_WRITER;
  1768.       }
  1769.     if (dbf->desc < 0)
  1770. --- 129,148 ----
  1771.     /* Open the file. */
  1772.     if (read_write == GDBM_READER)
  1773.       {
  1774. !       dbf->desc = open (dbf->name, O_RDONLY|O_BINARY, 0);
  1775.       }
  1776.     else if (read_write == GDBM_WRITER)
  1777.       {
  1778. !       dbf->desc = open (dbf->name, O_RDWR|O_BINARY, 0);
  1779.       }
  1780.     else if (read_write == GDBM_NEWDB)
  1781.       {
  1782. !       dbf->desc = open (dbf->name, O_RDWR|O_CREAT|O_TRUNC|O_BINARY, mode);
  1783.         read_write = GDBM_WRITER;
  1784.       }
  1785.     else
  1786.       {
  1787. !       dbf->desc = open (dbf->name, O_RDWR|O_CREAT|O_BINARY, mode);
  1788.         read_write = GDBM_WRITER;
  1789.       }
  1790.     if (dbf->desc < 0)
  1791. *************** gdbm_open (file, block_size, read_write,
  1792. *** 198,204 ****
  1793.         dbf->header->block_size = file_block_size;
  1794.        
  1795.         /* Create the initial hash table directory.  */
  1796. !       dbf->header->dir_size = 8 * sizeof (int);
  1797.         dbf->header->dir_bits = 3;
  1798.         while (dbf->header->dir_size < dbf->header->block_size)
  1799.       {
  1800. --- 216,222 ----
  1801.         dbf->header->block_size = file_block_size;
  1802.        
  1803.         /* Create the initial hash table directory.  */
  1804. !       dbf->header->dir_size = 8 * sizeof (LONG);
  1805.         dbf->header->dir_bits = 3;
  1806.         while (dbf->header->dir_size < dbf->header->block_size)
  1807.       {
  1808. *************** gdbm_open (file, block_size, read_write,
  1809. *** 215,221 ****
  1810.       }
  1811.   
  1812.         /* Allocate the space for the directory. */
  1813. !       dbf->dir = (int *) malloc (dbf->header->dir_size);
  1814.         if (dbf->dir == NULL)
  1815.       {
  1816.         gdbm_close (dbf);
  1817. --- 233,239 ----
  1818.       }
  1819.   
  1820.         /* Allocate the space for the directory. */
  1821. !       dbf->dir = (LONG *) malloc (dbf->header->dir_size);
  1822.         if (dbf->dir == NULL)
  1823.       {
  1824.         gdbm_close (dbf);
  1825. *************** gdbm_open (file, block_size, read_write,
  1826. *** 242,248 ****
  1827.         dbf->bucket->bucket_avail[0].av_size = dbf->header->block_size;
  1828.   
  1829.         /* Set table entries to point to hash buckets. */
  1830. !       for (index = 0; index < dbf->header->dir_size / sizeof (int); index++)
  1831.       dbf->dir[index] = 2*dbf->header->block_size;
  1832.   
  1833.         /* Initialize the active avail block. */
  1834. --- 260,266 ----
  1835.         dbf->bucket->bucket_avail[0].av_size = dbf->header->block_size;
  1836.   
  1837.         /* Set table entries to point to hash buckets. */
  1838. !       for (index = 0; index < dbf->header->dir_size / sizeof (LONG); index++)
  1839.       dbf->dir[index] = 2*dbf->header->block_size;
  1840.   
  1841.         /* Initialize the active avail block. */
  1842. *************** gdbm_open (file, block_size, read_write,
  1843. *** 255,261 ****
  1844. --- 273,284 ----
  1845.   
  1846.         /* Write initial configuration to the file. */
  1847.         /* Block 0 is the file header and active avail block. */
  1848. + #ifdef MSDOS            /* shut up the compiler!  */
  1849. +       num_bytes = write (dbf->desc,
  1850. +              (char *) dbf->header, dbf->header->block_size);
  1851. + #else /* not MSDOS */
  1852.         num_bytes = write (dbf->desc, dbf->header, dbf->header->block_size);
  1853. + #endif /* not MSDOS */
  1854.         if (num_bytes != dbf->header->block_size)
  1855.       {
  1856.         gdbm_close (dbf);
  1857. *************** gdbm_open (file, block_size, read_write,
  1858. *** 264,270 ****
  1859. --- 287,297 ----
  1860.       }
  1861.   
  1862.         /* Block 1 is the initial bucket directory. */
  1863. + #ifdef MSDOS            /* shut up the compiler!  */
  1864. +       num_bytes = write (dbf->desc, (char *) dbf->dir, dbf->header->dir_size);
  1865. + #else /* not MSDOS */
  1866.         num_bytes = write (dbf->desc, dbf->dir, dbf->header->dir_size);
  1867. + #endif /* not MSDOS */
  1868.         if (num_bytes != dbf->header->dir_size)
  1869.       {
  1870.         gdbm_close (dbf);
  1871. *************** gdbm_open (file, block_size, read_write,
  1872. *** 273,279 ****
  1873. --- 300,311 ----
  1874.       }
  1875.   
  1876.         /* Block 2 is the only bucket. */
  1877. + #ifdef MSDOS            /* shut up the compiler!  */
  1878. +       num_bytes = write (dbf->desc,
  1879. +              (char *) dbf->bucket, dbf->header->bucket_size);
  1880. + #else /* not MSDOS */
  1881.         num_bytes = write (dbf->desc, dbf->bucket, dbf->header->bucket_size);
  1882. + #endif /* not MSDOS */
  1883.         if (num_bytes != dbf->header->bucket_size)
  1884.       {
  1885.         gdbm_close (dbf);
  1886. *************** gdbm_open (file, block_size, read_write,
  1887. *** 293,299 ****
  1888. --- 325,336 ----
  1889.         gdbm_file_header partial_header;  /* For the first part of it. */
  1890.   
  1891.         /* Read the partial file header. */
  1892. + #ifdef MSDOS            /* shut up the compiler!  */
  1893. +       num_bytes = read (dbf->desc,
  1894. +             (char *)&partial_header, sizeof (gdbm_file_header));
  1895. + #else /* not MSDOS */
  1896.         num_bytes = read (dbf->desc, &partial_header, sizeof (gdbm_file_header));
  1897. + #endif /* not MSDOS */
  1898.         if (num_bytes != sizeof (gdbm_file_header))
  1899.       {
  1900.         gdbm_close (dbf);
  1901. *************** gdbm_open (file, block_size, read_write,
  1902. *** 302,308 ****
  1903. --- 339,349 ----
  1904.       }
  1905.   
  1906.         /* Is the magic number good? */
  1907. + #ifdef MSDOS
  1908. +       if (partial_header.header_magic != 0x13579aceL)
  1909. + #else /* not MSDOS */
  1910.         if (partial_header.header_magic != 0x13579ace)
  1911. + #endif /* not MSDOS */
  1912.       {
  1913.         gdbm_close (dbf);
  1914.         gdbm_errno = GDBM_BAD_MAGIC_NUMBER;
  1915. *************** gdbm_open (file, block_size, read_write,
  1916. *** 318,325 ****
  1917. --- 359,371 ----
  1918.         return NULL;
  1919.       }
  1920.         bcopy (&partial_header, dbf->header, sizeof (gdbm_file_header));
  1921. + #ifdef MSDOS            /* shut up the compiler!  */
  1922. +       num_bytes = read (dbf->desc, (char *) &dbf->header->avail.av_table[1],
  1923. +             dbf->header->block_size-sizeof (gdbm_file_header));
  1924. + #else /* not MSDOS */
  1925.         num_bytes = read (dbf->desc, &dbf->header->avail.av_table[1],
  1926.               dbf->header->block_size-sizeof (gdbm_file_header));
  1927. + #endif /* not MSDOS */
  1928.         if (num_bytes != dbf->header->block_size-sizeof (gdbm_file_header))
  1929.       {
  1930.         gdbm_close (dbf);
  1931. *************** gdbm_open (file, block_size, read_write,
  1932. *** 328,334 ****
  1933.       }
  1934.       
  1935.         /* Allocate space for the hash table directory.  */
  1936. !       dbf->dir = (int *) malloc (dbf->header->dir_size);
  1937.         if (dbf->dir == NULL)
  1938.       {
  1939.         gdbm_close (dbf);
  1940. --- 374,380 ----
  1941.       }
  1942.       
  1943.         /* Allocate space for the hash table directory.  */
  1944. !       dbf->dir = (LONG *) malloc (dbf->header->dir_size);
  1945.         if (dbf->dir == NULL)
  1946.       {
  1947.         gdbm_close (dbf);
  1948. *************** gdbm_open (file, block_size, read_write,
  1949. *** 345,351 ****
  1950. --- 391,401 ----
  1951.         return NULL;
  1952.       }
  1953.   
  1954. + #ifdef MSDOS            /* shut up the compiler!  */
  1955. +       num_bytes = read (dbf->desc, (char *) dbf->dir, dbf->header->dir_size);
  1956. + #else /* not MSDOS */
  1957.         num_bytes = read (dbf->desc, dbf->dir, dbf->header->dir_size);
  1958. + #endif /* not MSDOS */
  1959.         if (num_bytes != dbf->header->dir_size)
  1960.       {
  1961.         gdbm_close (dbf);
  1962. diff -cBdNp e:/gnu/gdbm/gnu/gdbmreor.c ./gdbmreor.c
  1963. *** e:/gnu/gdbm/gnu/gdbmreor.c    Thu Aug 16 10:49:40 1990
  1964. --- ./gdbmreor.c    Thu Aug 16 10:50:58 1990
  1965. ***************
  1966. *** 27,36 ****
  1967. --- 27,54 ----
  1968.          
  1969.   ************************************************************************/
  1970.   
  1971. + /*
  1972. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  1973. +  *
  1974. +  * To this port, the same copying conditions apply as to the
  1975. +  * original release.
  1976. +  *
  1977. +  * IMPORTANT:
  1978. +  * This file is not identical to the original GNU release!
  1979. +  * You should have received this code as patch to the official
  1980. +  * GNU release.
  1981. +  *
  1982. +  * MORE IMPORTANT:
  1983. +  * This port comes with ABSOLUTELY NO WARRANTY.
  1984. +  *
  1985. +  * $Header: e:/gnu/gdbm/RCS/gdbmreor.c'v 1.4.0.1 90/08/16 09:22:31 tho Exp $
  1986. +  */
  1987.   
  1988.   #include <stdio.h>
  1989.   #include <sys/types.h>
  1990. + #ifndef MSDOS
  1991.   #include <sys/file.h>
  1992. + #endif /* not MSDOS */
  1993.   #include <sys/stat.h>
  1994.   #include "gdbmdefs.h"
  1995.   #include "systems.h"
  1996. *************** gdbm_reorganize (dbf)
  1997. *** 154,160 ****
  1998. --- 172,185 ----
  1999.   
  2000.       /* Move the new file to old name. */
  2001.   
  2002. + #ifdef MSDOS
  2003. +   if (close (new_dbf->desc)
  2004. +       || unlink (dbf->name)
  2005. +       || rename (new_name, dbf->name)
  2006. +       || (new_dbf->desc = open (dbf->name, O_RDWR|O_BINARY)) < 0)
  2007. + #else /* not MSDOS */
  2008.     if (rename (new_name, dbf->name) != 0)
  2009. + #endif /* not MSDOS */
  2010.       {
  2011.         gdbm_errno = GDBM_REORGANIZE_FAILED;
  2012.         gdbm_close (new_dbf);
  2013. diff -cBdNp e:/gnu/gdbm/gnu/gdbmseq.c ./gdbmseq.c
  2014. *** e:/gnu/gdbm/gnu/gdbmseq.c    Thu Aug 16 10:49:42 1990
  2015. --- ./gdbmseq.c    Thu Aug 16 10:51:02 1990
  2016. ***************
  2017. *** 27,40 ****
  2018. --- 27,62 ----
  2019.          
  2020.   *************************************************************************/
  2021.   
  2022. + /*
  2023. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  2024. +  *
  2025. +  * To this port, the same copying conditions apply as to the
  2026. +  * original release.
  2027. +  *
  2028. +  * IMPORTANT:
  2029. +  * This file is not identical to the original GNU release!
  2030. +  * You should have received this code as patch to the official
  2031. +  * GNU release.
  2032. +  *
  2033. +  * MORE IMPORTANT:
  2034. +  * This port comes with ABSOLUTELY NO WARRANTY.
  2035. +  *
  2036. +  * $Header: e:/gnu/gdbm/RCS/gdbmseq.c'v 1.4.0.1 90/08/16 09:22:33 tho Exp $
  2037. +  */
  2038.   
  2039.   #include <stdio.h>
  2040.   #include <sys/types.h>
  2041. + #ifndef MSDOS
  2042.   #include <sys/file.h>
  2043. + #endif /* not MSDOS */
  2044.   #include <sys/stat.h>
  2045.   #include "gdbmdefs.h"
  2046.   #include "systems.h"
  2047.   
  2048. + #ifdef __STDC__
  2049. + static void get_next_key (gdbm_file_info *dbf, int elem_loc, datum *return_val);
  2050. + #endif /* not __STDC__ */
  2051. + 
  2052.   /* Special extern for this file. */
  2053.   extern char *_gdbm_read_entry ();
  2054.   
  2055. *************** get_next_key (dbf, elem_loc, return_val)
  2056. *** 65,76 ****
  2057.   
  2058.         /* Find the next bucket.  It is possible several entries in
  2059.            the bucket directory point to the same bucket. */
  2060. !       while (dbf->bucket_dir < dbf->header->dir_size / sizeof (int)
  2061.            && dbf->cache_entry->ca_adr == dbf->dir[dbf->bucket_dir])
  2062.           dbf->bucket_dir++;
  2063.   
  2064.         /* Check to see if there was a next bucket. */
  2065. !       if (dbf->bucket_dir < dbf->header->dir_size / sizeof (int))
  2066.           _gdbm_get_bucket (dbf, dbf->bucket_dir);          
  2067.         else
  2068.           /* No next key, just return. */
  2069. --- 87,98 ----
  2070.   
  2071.         /* Find the next bucket.  It is possible several entries in
  2072.            the bucket directory point to the same bucket. */
  2073. !       while (dbf->bucket_dir < dbf->header->dir_size / sizeof (LONG)
  2074.            && dbf->cache_entry->ca_adr == dbf->dir[dbf->bucket_dir])
  2075.           dbf->bucket_dir++;
  2076.   
  2077.         /* Check to see if there was a next bucket. */
  2078. !       if (dbf->bucket_dir < dbf->header->dir_size / sizeof (LONG))
  2079.           _gdbm_get_bucket (dbf, dbf->bucket_dir);          
  2080.         else
  2081.           /* No next key, just return. */
  2082. *************** gdbm_nextkey (dbf, key)
  2083. *** 120,126 ****
  2084.     datum  return_val;        /* The return value. */
  2085.     int    elem_loc;        /* The location in the bucket. */
  2086.     char  *find_data;        /* Data pointer returned by _gdbm_findkey. */
  2087. !   int     hash_val;        /* Returned by _gdbm_findkey. */
  2088.   
  2089.     /* Set the default return value for no next entry. */
  2090.     return_val.dptr = NULL;
  2091. --- 142,148 ----
  2092.     datum  return_val;        /* The return value. */
  2093.     int    elem_loc;        /* The location in the bucket. */
  2094.     char  *find_data;        /* Data pointer returned by _gdbm_findkey. */
  2095. !   LONG     hash_val;        /* Returned by _gdbm_findkey. */
  2096.   
  2097.     /* Set the default return value for no next entry. */
  2098.     return_val.dptr = NULL;
  2099. diff -cBdNp e:/gnu/gdbm/gnu/gdbmstor.c ./gdbmstor.c
  2100. *** e:/gnu/gdbm/gnu/gdbmstor.c    Thu Aug 16 10:49:44 1990
  2101. --- ./gdbmstor.c    Thu Aug 16 10:51:04 1990
  2102. ***************
  2103. *** 27,36 ****
  2104. --- 27,54 ----
  2105.          
  2106.   *************************************************************************/
  2107.   
  2108. + /*
  2109. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  2110. +  *
  2111. +  * To this port, the same copying conditions apply as to the
  2112. +  * original release.
  2113. +  *
  2114. +  * IMPORTANT:
  2115. +  * This file is not identical to the original GNU release!
  2116. +  * You should have received this code as patch to the official
  2117. +  * GNU release.
  2118. +  *
  2119. +  * MORE IMPORTANT:
  2120. +  * This port comes with ABSOLUTELY NO WARRANTY.
  2121. +  *
  2122. +  * $Header: e:/gnu/gdbm/RCS/gdbmstor.c'v 1.4.0.1 90/08/16 09:22:35 tho Exp $
  2123. +  */
  2124.   
  2125.   #include <stdio.h>
  2126.   #include <sys/types.h>
  2127. + #ifndef MSDOS
  2128.   #include <sys/file.h>
  2129. + #endif /* not MSDOS */
  2130.   #include <sys/stat.h>
  2131.   #include "gdbmdefs.h"
  2132.   #include "systems.h"
  2133. *************** gdbm_store (dbf, key, content, flags)
  2134. *** 58,68 ****
  2135.        datum content;
  2136.        int flags;
  2137.   {
  2138. !   int new_hash_val;        /* The new hash value. */
  2139.     int elem_loc;            /* The location in hash bucket. */
  2140. !   int file_adr;            /* The address of new space in the file.  */
  2141. !   int num_bytes;        /* Used for error detection. */
  2142. !   int free_adr;            /* For keeping track of a freed section. */
  2143.     int free_size;
  2144.   
  2145.     char *write_data;        /* To write both key and data in 1 call. */
  2146. --- 76,86 ----
  2147.        datum content;
  2148.        int flags;
  2149.   {
  2150. !   LONG new_hash_val;        /* The new hash value. */
  2151.     int elem_loc;            /* The location in hash bucket. */
  2152. !   LONG file_adr;        /* The address of new space in the file.  */
  2153. !   LONG num_bytes;        /* Used for error detection. */
  2154. !   LONG free_adr;        /* For keeping track of a freed section. */
  2155.     int free_size;
  2156.   
  2157.     char *write_data;        /* To write both key and data in 1 call. */
  2158. *************** gdbm_store (dbf, key, content, flags)
  2159. *** 119,125 ****
  2160. --- 137,147 ----
  2161.       }
  2162.         
  2163.         /* Find space to insert into bucket and set elem_loc to that place. */
  2164. + #ifdef MSDOS
  2165. +       elem_loc = (int) (new_hash_val % dbf->header->bucket_elems);
  2166. + #else /* not MSDOS */
  2167.         elem_loc = new_hash_val % dbf->header->bucket_elems;
  2168. + #endif /* not MSDOS */
  2169.         while (dbf->bucket->h_table[elem_loc].hash_value != -1)
  2170.       {  elem_loc = (elem_loc + 1) % dbf->header->bucket_elems; }
  2171.   
  2172. *************** gdbm_store (dbf, key, content, flags)
  2173. *** 138,143 ****
  2174. --- 161,173 ----
  2175.   
  2176.     /* Prepare write_data. The key is written first.  */
  2177.     write_data = (char *) alloca (key.dsize+content.dsize);
  2178. + #ifdef MSDOS
  2179. +   if (write_data == (char *) 0)
  2180. +     {
  2181. +       fprintf (stderr, "alloca failed.\n");
  2182. +       exit (-2);
  2183. +     }
  2184. + #endif /* MSDOS */
  2185.     dst = write_data;
  2186.     src = key.dptr;
  2187.     for (cnt=0; cnt < key.dsize; cnt++)
  2188. diff -cBdNp e:/gnu/gdbm/gnu/global.c ./global.c
  2189. *** e:/gnu/gdbm/gnu/global.c    Thu Aug 16 10:49:46 1990
  2190. --- ./global.c    Thu Aug 16 10:51:08 1990
  2191. ***************
  2192. *** 28,33 ****
  2193. --- 28,49 ----
  2194.          
  2195.   *************************************************************************/
  2196.   
  2197. + /*
  2198. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  2199. +  *
  2200. +  * To this port, the same copying conditions apply as to the
  2201. +  * original release.
  2202. +  *
  2203. +  * IMPORTANT:
  2204. +  * This file is not identical to the original GNU release!
  2205. +  * You should have received this code as patch to the official
  2206. +  * GNU release.
  2207. +  *
  2208. +  * MORE IMPORTANT:
  2209. +  * This port comes with ABSOLUTELY NO WARRANTY.
  2210. +  *
  2211. +  * $Header: e:/gnu/gdbm/RCS/global.c'v 1.4.0.1 90/08/16 09:22:36 tho Exp $
  2212. +  */
  2213.   
  2214.   #include <stdio.h>
  2215.   #include "gdbmdefs.h"
  2216. *************** datum _gdbm_memory = {NULL, 0};    /* Used 
  2217. *** 42,45 ****
  2218. --- 58,65 ----
  2219.   char *_gdbm_fetch_val = NULL;    /* Used by fetch. */
  2220.   
  2221.   /* The dbm error number is placed in the variable GDBM_ERRNO. */
  2222. + #ifdef MSDOS        /* won't go into library if not initialized!  */
  2223. + gdbm_error gdbm_errno = GDBM_NO_ERROR;
  2224. + #else /* not MSDOS */
  2225.   gdbm_error gdbm_errno;
  2226. + #endif /* not MSDOS */
  2227. diff -cBdNp e:/gnu/gdbm/gnu/hash.c ./hash.c
  2228. *** e:/gnu/gdbm/gnu/hash.c    Thu Aug 16 10:49:48 1990
  2229. --- ./hash.c    Thu Aug 16 10:51:10 1990
  2230. ***************
  2231. *** 27,37 ****
  2232.          
  2233.   *************************************************************************/
  2234.   
  2235. ! 
  2236.   
  2237.   #include <stdio.h>
  2238.   #include <sys/types.h>
  2239.   #include <sys/file.h>
  2240.   #include <sys/stat.h>
  2241.   #include "gdbmdefs.h"
  2242.   
  2243. --- 27,54 ----
  2244.          
  2245.   *************************************************************************/
  2246.   
  2247. ! /*
  2248. !  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  2249. !  *
  2250. !  * To this port, the same copying conditions apply as to the
  2251. !  * original release.
  2252. !  *
  2253. !  * IMPORTANT:
  2254. !  * This file is not identical to the original GNU release!
  2255. !  * You should have received this code as patch to the official
  2256. !  * GNU release.
  2257. !  *
  2258. !  * MORE IMPORTANT:
  2259. !  * This port comes with ABSOLUTELY NO WARRANTY.
  2260. !  *
  2261. !  * $Header: e:/gnu/gdbm/RCS/hash.c'v 1.4.0.1 90/08/16 09:22:38 tho Exp $
  2262. !  */
  2263.   
  2264.   #include <stdio.h>
  2265.   #include <sys/types.h>
  2266. + #ifndef MSDOS
  2267.   #include <sys/file.h>
  2268. + #endif /* not MSDOS */
  2269.   #include <sys/stat.h>
  2270.   #include "gdbmdefs.h"
  2271.   
  2272. ***************
  2273. *** 41,51 ****
  2274.      to find the home position of the element by taking the value modulo the
  2275.      bucket hash table size. */
  2276.   
  2277. ! int
  2278.   _gdbm_hash (key)
  2279.        datum key;
  2280.   {
  2281. !   int  value;        /* Used to compute the hash value.  */
  2282.     int  index;        /* Used to cycle through random values. */
  2283.   
  2284.   
  2285. --- 58,68 ----
  2286.      to find the home position of the element by taking the value modulo the
  2287.      bucket hash table size. */
  2288.   
  2289. ! LONG
  2290.   _gdbm_hash (key)
  2291.        datum key;
  2292.   {
  2293. !   LONG value;        /* Used to compute the hash value.  */
  2294.     int  index;        /* Used to cycle through random values. */
  2295.   
  2296.   
  2297. diff -cBdNp e:/gnu/gdbm/gnu/makefile ./makefile
  2298. *** e:/gnu/gdbm/gnu/makefile    Thu Aug 16 10:51:54 1990
  2299. --- ./makefile    Thu Aug 16 10:51:40 1990
  2300. ***************
  2301. *** 0 ****
  2302. --- 1,153 ----
  2303. + # Makefile for gdbm.
  2304. + 
  2305. + # MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  2306. + #
  2307. + # To this port, the same copying conditions apply as to the
  2308. + # original release.
  2309. + #
  2310. + # IMPORTANT:
  2311. + # This file is not identical to the original GNU release!
  2312. + # You should have received this code as patch to the official
  2313. + # GNU release.
  2314. + #
  2315. + # MORE IMPORTANT:
  2316. + # This port comes with ABSOLUTELY NO WARRANTY.
  2317. + #
  2318. + # $Header: e:/gnu/gdbm/RCS/makefile.'v 1.4.0.2 90/08/16 10:40:52 tho Exp $
  2319. + 
  2320. + BINDIR = c:/bin
  2321. + LIBDIR = d:/usr/lib
  2322. + INCDIR = d:/usr/include
  2323. + 
  2324. + INSTALL = cp -v
  2325. + DISK    = b:
  2326. + ZIPFILE = gdbm.zip
  2327. + 
  2328. + MODEL    = L
  2329. + CFLAGS    = -Ox -W4 -A$(MODEL) -DSYSV -Za
  2330. + LDFLAGS    = /st:0x8000 /e
  2331. + AR    = lib
  2332. + ARFLAGS    = -+
  2333. + 
  2334. + GDBMLIB    = $(MODEL)gdbm.lib
  2335. + 
  2336. + 
  2337. + DBM_CF = dbminit.c delete.c fetch.c store.c seq.c
  2338. + NDBM_CF = dbmopen.c dbmdelet.c dbmfetch.c dbmstore.c dbmseq.c \
  2339. +     dbmclose.c dbmdirfn.c dbmpagfn.c
  2340. + GDBM_CF = gdbmopen.c gdbmdele.c gdbmfetc.c  gdbmstor.c gdbmclos.c \
  2341. +     gdbmreor.c gdbmseq.c \
  2342. +     bucket.c falloc.c findkey.c global.c hash.c update.c version.c
  2343. + 
  2344. + HFILES = gdbmdefs.h extern.h gdbmerrn.h systems.h dbm.h ndbm.h
  2345. + 
  2346. + MSCFILES = copying changelo makefile readme gdbm.pro conv2gdb.c
  2347. + 
  2348. + TESTFILES = testdbm.c testndbm.c testgdbm.c
  2349. + 
  2350. + 
  2351. + RCSFILES= $(patsubst %, RCS/%'v, $(DBM_CF) $(NBM_CF) $(GBM_CF)) \
  2352. +       RCS/makefile.'v
  2353. + MISC    = RCS/readme'v changelo RCS/changelo.'v makepat mkpatch
  2354. + 
  2355. + DBM_OF = dbminit.obj delete.obj fetch.obj store.obj seq.obj
  2356. + NDBM_OF = dbmopen.obj dbmdelet.obj dbmfetch.obj dbmstore.obj dbmseq.obj \
  2357. +     dbmclose.obj dbmdirfn.obj dbmpagfn.obj
  2358. + GDBM_OF = gdbmopen.obj gdbmdele.obj gdbmfetc.obj  gdbmstor.obj gdbmclos.obj \
  2359. +     gdbmreor.obj gdbmseq.obj \
  2360. +     bucket.obj falloc.obj findkey.obj global.obj hash.obj update.obj
  2361. + 
  2362. + 
  2363. + .PHONY: allgdbm
  2364. + allgdbm: $(GDBMLIB) testgdbm.exe testdbm.exe testndbm.exe
  2365. + 
  2366. + .PHONY: install
  2367. + install: $(GDBMLIB) gdbmdefs.h
  2368. +     cp $(GDBMLIB) $(LIBDIR)
  2369. +     cp gdbmdefs.h $(INCDIR)
  2370. + 
  2371. + $(GDBMLIB): version.c $(GDBM_OF) $(NDBM_OF) $(DBM_OF)
  2372. +     $(CC) $(CFLAGS) -c version.c
  2373. +     $(AR) $@ $(ARFLAGS) version $(subst version.c,,$?);
  2374. + 
  2375. + gdbm.h:    gdbm.pro gdbmerrn.h
  2376. +     cp gdbm.pro gdbm.h
  2377. +     grep _ gdbmerrn.h >> gdbm.h
  2378. + 
  2379. + gdbm.pro: RCS/gdbm.p'v
  2380. +     $(CO) $(COFLAGS) $@
  2381. + 
  2382. + testgdbm.exe: testgdbm.obj $(GDBMLIB)
  2383. +     $(LINK) $(LDFLAGS) testgdbm, $@,, $(GDBMLIB);
  2384. + 
  2385. + testdbm.exe: testdbm.obj $(GDBMLIB)
  2386. +     $(LINK) $(LDFLAGS) testdbm, $@,, $(GDBMLIB);
  2387. + 
  2388. + testndbm.obj: testndbm.c
  2389. +     $(CC) -c $(CFLAGS) -DGNU testndbm.c
  2390. + 
  2391. + testndbm.exe: testndbm.obj $(GDBMLIB)
  2392. +     $(LINK) $(LDFLAGS) testndbm, $@,, $(GDBMLIB);
  2393. + 
  2394. + 
  2395. + .PHONY: zip disk
  2396. + zip: $(ZIPFILE)
  2397. + disk: $(DISK)/$(ZIPFILE)
  2398. + 
  2399. + $(ZIPFILE): $(RCSFILES) $(MISC)
  2400. +     pkzip -frp $@
  2401. + 
  2402. + $(DISK)/$(ZIPFILE): $(ZIPFILE)
  2403. +     cp $< $@
  2404. +     pkunzip -t $@ | grep -vw OK
  2405. + 
  2406. + .PHONY: clean
  2407. + clean:
  2408. +     rm -f gdbm.h *.obj *.map *.bak tags
  2409. +     rcsclean *.c *.h *.pro makefile
  2410. + 
  2411. + tags: $(GDBM_CF) $(HFILES) $(TESTFILES) $(NDBM_CF) $(DBM_CF) 
  2412. +     etags -t *.c *.h
  2413. + 
  2414. + # dbm files
  2415. + dbminit.obj:    gdbmdefs.h extern.h gdbmerrn.h systems.h
  2416. + delete.obj:    gdbmdefs.h extern.h
  2417. + fetch.obj:    gdbmdefs.h extern.h
  2418. + store.obj:    gdbmdefs.h extern.h
  2419. + seq.obj:    gdbmdefs.h extern.h
  2420. + 
  2421. + # ndbm files
  2422. + dbmopen.obj:    gdbmdefs.h extern.h gdbmerrn.h systems.h
  2423. + dbmdelet.obj:    gdbmdefs.h extern.h
  2424. + dbmfetch.obj:    gdbmdefs.h extern.h
  2425. + dbmstore.obj:    gdbmdefs.h extern.h
  2426. + dbmseq.obj:    gdbmdefs.h extern.h
  2427. + dbmclose.obj:    gdbmdefs.h systems.h
  2428. + dbmpagfn.obj:    gdbmdefs.h extern.h
  2429. + dbmdirfn.obj:    gdbmdefs.h extern.h
  2430. + 
  2431. + 
  2432. + # gdbm files
  2433. + gdbmclos.obj:    gdbmdefs.h systems.h
  2434. + gdbmdele.obj:    gdbmdefs.h gdbmerrn.h systems.h
  2435. + gdbmfetc.obj:    gdbmdefs.h gdbmerrn.h systems.h
  2436. + gdbmopen.obj:    gdbmdefs.h gdbmerrn.h systems.h 
  2437. + gdbmreor.obj:    gdbmdefs.h gdbmerrn.h systems.h extern.h
  2438. + gdbmseq.obj:    gdbmdefs.h systems.h
  2439. + gdbmstor.obj:    gdbmdefs.h gdbmerrn.h systems.h
  2440. + 
  2441. + # gdbm support files
  2442. + bucket.obj:    gdbmdefs.h systems.h
  2443. + falloc.obj:    gdbmdefs.h systems.h
  2444. + findkey.obj:    gdbmdefs.h systems.h
  2445. + global.obj:    gdbmdefs.h gdbmerrn.h 
  2446. + hash.obj:        gdbmdefs.h
  2447. + update.obj:    gdbmdefs.h systems.h
  2448. + version.obj:
  2449. + extern.h:    
  2450. + 
  2451. + # other programs
  2452. + testgdbm.obj:    gdbmdefs.h extern.h gdbmerrn.h systems.h
  2453. + testdbm.obj:    dbm.h
  2454. + testndbm.obj:    ndbm.h
  2455. + conv2gdb.obj:    gdbm.h
  2456. diff -cBdNp e:/gnu/gdbm/gnu/ndbm.h ./ndbm.h
  2457. *** e:/gnu/gdbm/gnu/ndbm.h    Thu Aug 16 10:49:50 1990
  2458. --- ./ndbm.h    Thu Aug 16 10:51:12 1990
  2459. ***************
  2460. *** 27,32 ****
  2461. --- 27,49 ----
  2462.          
  2463.   *************************************************************************/
  2464.   
  2465. + /*
  2466. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  2467. +  *
  2468. +  * To this port, the same copying conditions apply as to the
  2469. +  * original release.
  2470. +  *
  2471. +  * IMPORTANT:
  2472. +  * This file is not identical to the original GNU release!
  2473. +  * You should have received this code as patch to the official
  2474. +  * GNU release.
  2475. +  *
  2476. +  * MORE IMPORTANT:
  2477. +  * This port comes with ABSOLUTELY NO WARRANTY.
  2478. +  *
  2479. +  * $Header: e:/gnu/gdbm/RCS/ndbm.h'v 1.4.0.1 90/08/16 09:23:06 tho Exp $
  2480. +  */
  2481. + 
  2482.   /* Parameters to dbm_store for simple insertion or replacement. */
  2483.   #define  DBM_INSERT  0
  2484.   #define  DBM_REPLACE 1
  2485. ***************
  2486. *** 33,70 ****
  2487.   
  2488.   
  2489.   /* The data and key structure.  This structure is defined for compatibility. */
  2490.   typedef struct {
  2491.       char *dptr;
  2492.       int   dsize;
  2493.         } datum;
  2494. ! 
  2495.   
  2496.   /* The file information header. This is good enough for most applications. */
  2497.   typedef struct {int dummy[10];} DBM;
  2498. ! 
  2499.   
  2500.   /* These are the routines (with some macros defining them!) */
  2501.   
  2502.   extern DBM     *dbm_open ();
  2503. - 
  2504.   extern void     dbm_close ();
  2505. - 
  2506.   extern datum     dbm_fetch ();
  2507. - 
  2508.   extern int     dbm_store ();
  2509. - 
  2510. - extern int     dbm_delete ();
  2511. - 
  2512.   extern int     dbm_delete ();
  2513. - 
  2514.   extern datum     dbm_firstkey ();
  2515. - 
  2516.   extern datum     dbm_nextkey ();
  2517.   
  2518.   #define         dbm_error(dbf)  0
  2519. - 
  2520.   #define         dbm_clearerr(dbf)
  2521.   
  2522. - extern int     dbm_dirfno ();
  2523.   
  2524. - extern int     dbm_pagfno ();
  2525. --- 50,96 ----
  2526.   
  2527.   
  2528.   /* The data and key structure.  This structure is defined for compatibility. */
  2529. + #ifdef __STDC__
  2530. + #include "gdbmdefs.h"
  2531. + #else /* not __STDC__ */
  2532.   typedef struct {
  2533.       char *dptr;
  2534.       int   dsize;
  2535.         } datum;
  2536. ! #endif /* not __STDC__ */
  2537.   
  2538.   /* The file information header. This is good enough for most applications. */
  2539. + #ifdef __STDC__
  2540. + #define DBM gdbm_file_info
  2541. + #else /* not __STDC__ */
  2542.   typedef struct {int dummy[10];} DBM;
  2543. ! #endif /* not __STDC__ */
  2544.   
  2545.   /* These are the routines (with some macros defining them!) */
  2546.   
  2547. + #ifdef __STDC__
  2548. + extern DBM *dbm_open (char *file, int flags, int mode);
  2549. + extern void dbm_close (DBM *dbf);
  2550. + extern datum dbm_fetch (DBM *dbf, datum key);
  2551. + extern int dbm_store (DBM *dbf, datum key, datum content, int flags);
  2552. + extern int dbm_delete (DBM *dbf, datum key);
  2553. + extern datum dbm_firstkey (DBM *dbf);
  2554. + extern datum dbm_nextkey (DBM *dbf);
  2555. + extern int dbm_dirfno (DBM *dbf);
  2556. + extern int dbm_pagfno (DBM *dbf);
  2557. + #else /* not __STDC__ */
  2558.   extern DBM     *dbm_open ();
  2559.   extern void     dbm_close ();
  2560.   extern datum     dbm_fetch ();
  2561.   extern int     dbm_store ();
  2562.   extern int     dbm_delete ();
  2563.   extern datum     dbm_firstkey ();
  2564.   extern datum     dbm_nextkey ();
  2565. + extern int     dbm_dirfno ();
  2566. + extern int     dbm_pagfno ();
  2567. + #endif /* not __STDC__ */
  2568.   
  2569.   #define         dbm_error(dbf)  0
  2570.   #define         dbm_clearerr(dbf)
  2571.   
  2572.   
  2573. diff -cBdNp e:/gnu/gdbm/gnu/seq.c ./seq.c
  2574. *** e:/gnu/gdbm/gnu/seq.c    Thu Aug 16 10:49:50 1990
  2575. --- ./seq.c    Thu Aug 16 10:51:16 1990
  2576. ***************
  2577. *** 28,37 ****
  2578. --- 28,55 ----
  2579.          
  2580.   *************************************************************************/
  2581.   
  2582. + /*
  2583. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  2584. +  *
  2585. +  * To this port, the same copying conditions apply as to the
  2586. +  * original release.
  2587. +  *
  2588. +  * IMPORTANT:
  2589. +  * This file is not identical to the original GNU release!
  2590. +  * You should have received this code as patch to the official
  2591. +  * GNU release.
  2592. +  *
  2593. +  * MORE IMPORTANT:
  2594. +  * This port comes with ABSOLUTELY NO WARRANTY.
  2595. +  *
  2596. +  * $Header: e:/gnu/gdbm/RCS/seq.c'v 1.4.0.1 90/08/16 09:22:39 tho Exp $
  2597. +  */
  2598.   
  2599.   #include <stdio.h>
  2600.   #include <sys/types.h>
  2601. + #ifndef MSDOS
  2602.   #include <sys/file.h>
  2603. + #endif /* not MSDOS */
  2604.   #include <sys/stat.h>
  2605.   #include "gdbmdefs.h"
  2606.   #include "extern.h"
  2607. diff -cBdNp e:/gnu/gdbm/gnu/store.c ./store.c
  2608. *** e:/gnu/gdbm/gnu/store.c    Thu Aug 16 10:49:52 1990
  2609. --- ./store.c    Thu Aug 16 10:51:18 1990
  2610. ***************
  2611. *** 27,36 ****
  2612. --- 27,54 ----
  2613.          
  2614.   *************************************************************************/
  2615.   
  2616. + /*
  2617. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  2618. +  *
  2619. +  * To this port, the same copying conditions apply as to the
  2620. +  * original release.
  2621. +  *
  2622. +  * IMPORTANT:
  2623. +  * This file is not identical to the original GNU release!
  2624. +  * You should have received this code as patch to the official
  2625. +  * GNU release.
  2626. +  *
  2627. +  * MORE IMPORTANT:
  2628. +  * This port comes with ABSOLUTELY NO WARRANTY.
  2629. +  *
  2630. +  * $Header: e:/gnu/gdbm/RCS/store.c'v 1.4.0.1 90/08/16 09:22:40 tho Exp $
  2631. +  */
  2632.   
  2633.   #include <stdio.h>
  2634.   #include <sys/types.h>
  2635. + #ifndef MSDOS
  2636.   #include <sys/file.h>
  2637. + #endif /* not MSDOS */
  2638.   #include <sys/stat.h>
  2639.   #include "gdbmdefs.h"
  2640.   #include "extern.h"
  2641. diff -cBdNp e:/gnu/gdbm/gnu/systems.h ./systems.h
  2642. *** e:/gnu/gdbm/gnu/systems.h    Thu Aug 16 10:49:54 1990
  2643. --- ./systems.h    Thu Aug 16 10:51:24 1990
  2644. ***************
  2645. *** 27,32 ****
  2646. --- 27,48 ----
  2647.          
  2648.   *************************************************************************/
  2649.   
  2650. + /*
  2651. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  2652. +  *
  2653. +  * To this port, the same copying conditions apply as to the
  2654. +  * original release.
  2655. +  *
  2656. +  * IMPORTANT:
  2657. +  * This file is not identical to the original GNU release!
  2658. +  * You should have received this code as patch to the official
  2659. +  * GNU release.
  2660. +  *
  2661. +  * MORE IMPORTANT:
  2662. +  * This port comes with ABSOLUTELY NO WARRANTY.
  2663. +  *
  2664. +  * $Header: e:/gnu/gdbm/RCS/systems.h'v 1.4.0.1 90/08/16 09:23:07 tho Exp $
  2665. +  */
  2666.   
  2667.   /* To use this file, you must have included <sys/types.h>.  */
  2668.   
  2669. ***************
  2670. *** 37,47 ****
  2671. --- 53,73 ----
  2672.   #ifdef SYSV
  2673.   
  2674.   /* File seeking needs L_SET defined .*/
  2675. + #ifdef MSDOS
  2676. + #include <malloc.h>
  2677. + #include <io.h>
  2678. + #else /* not MSDOS */
  2679.   #include <unistd.h>
  2680. + #endif /* not MSDOS */
  2681.   #define L_SET SEEK_SET
  2682.   
  2683.   /* Some files need fcntl.h for locking. */
  2684.   #include <fcntl.h>
  2685. + #ifdef MSDOS
  2686. + #define UNLOCK_FILE(dbf)    /* later !!!  */
  2687. + #define READLOCK_FILE(dbf)    lock_val = 0;
  2688. + #define WRITELOCK_FILE(dbf)    lock_val = 0;
  2689. + #else /* not MSDOS */
  2690.   #define UNLOCK_FILE(dbf) \
  2691.       {                    \
  2692.         struct flock flock;            \
  2693. ***************
  2694. *** 66,71 ****
  2695. --- 92,98 ----
  2696.         flock.l_start = flock.l_len = 0L;    \
  2697.         lock_val = fcntl (dbf->desc, F_SETLK, &flock);    \
  2698.       }
  2699. + #endif /* not MSDOS */
  2700.   
  2701.   /* Send bcmp to the right place. */
  2702.   #include <memory.h>
  2703. ***************
  2704. *** 73,85 ****
  2705. --- 100,118 ----
  2706.   #define bcopy(d1, d2, n) memcpy(d2, d1, n)
  2707.   
  2708.   /* Sys V does not have fsync. */
  2709. + #ifdef MSDOS
  2710. + #define fsync(f)
  2711. + #else /* not MSDOS */
  2712.   #define fsync(f) sync(); sync()
  2713. + #endif /* not MSDOS */
  2714.   
  2715.   /* Stat does not have a st_blksize field. */
  2716.   #define STATBLKSIZE 512
  2717.   
  2718.   /* Does not have rename(). */
  2719. + #ifndef MSDOS
  2720.   #define NEED_RENAME
  2721. + #endif /* not MSDOS */
  2722.   #endif
  2723.   
  2724.   /*      End of System V changes and defines.      */
  2725. ***************
  2726. *** 86,92 ****
  2727.   /**************************************************/
  2728.   
  2729.   
  2730. ! 
  2731.   /* Alloca is builtin in gcc.  Use the builtin alloca if compiled with gcc. */
  2732.   #ifdef __GNUC__
  2733.   #define BUILTIN_ALLOCA
  2734. --- 119,125 ----
  2735.   /**************************************************/
  2736.   
  2737.   
  2738. ! #ifndef MSDOS
  2739.   /* Alloca is builtin in gcc.  Use the builtin alloca if compiled with gcc. */
  2740.   #ifdef __GNUC__
  2741.   #define BUILTIN_ALLOCA
  2742. *************** extern char *alloca();
  2743. *** 108,113 ****
  2744. --- 141,147 ----
  2745.   
  2746.   /* Malloc definition. */
  2747.   extern char *malloc();
  2748. + #endif /* not MSDOS */
  2749.   
  2750.   
  2751.   /* The BSD defines are the default defines.  If something is not
  2752. diff -cBdNp e:/gnu/gdbm/gnu/testdbm.c ./testdbm.c
  2753. *** e:/gnu/gdbm/gnu/testdbm.c    Thu Aug 16 10:49:56 1990
  2754. --- ./testdbm.c    Thu Aug 16 10:51:26 1990
  2755. ***************
  2756. *** 27,41 ****
  2757. --- 27,64 ----
  2758.          
  2759.   *************************************************************************/
  2760.   
  2761. + /*
  2762. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  2763. +  *
  2764. +  * To this port, the same copying conditions apply as to the
  2765. +  * original release.
  2766. +  *
  2767. +  * IMPORTANT:
  2768. +  * This file is not identical to the original GNU release!
  2769. +  * You should have received this code as patch to the official
  2770. +  * GNU release.
  2771. +  *
  2772. +  * MORE IMPORTANT:
  2773. +  * This port comes with ABSOLUTELY NO WARRANTY.
  2774. +  *
  2775. +  * $Header: e:/gnu/gdbm/RCS/testdbm.c'v 1.4.0.1 90/08/16 09:22:42 tho Exp $
  2776. +  */
  2777.   
  2778.   #include <stdio.h>
  2779.   #include <sys/types.h>
  2780. + #ifndef MSDOS
  2781.   #include <sys/file.h>
  2782. + #endif /* not MSDOS */
  2783.   #include <sys/stat.h>
  2784.   
  2785.   #define TRUE  1
  2786.   #define FALSE 0
  2787.   
  2788. + #ifdef __STDC__
  2789. + #include <stdlib.h>
  2790. + #include <string.h>
  2791. + #include "dbm.h"
  2792. + #else /* not __STDC__ */
  2793.   typedef struct {
  2794.     char *dptr;
  2795.     int   dsize;
  2796. *************** typedef struct {
  2797. *** 44,49 ****
  2798. --- 67,73 ----
  2799.   extern datum fetch ();
  2800.   extern datum firstkey ();
  2801.   extern datum nextkey ();
  2802. + #endif /* not __STDC__ */
  2803.   
  2804.   /* The test program allows one to call all the routines plus the hash function.
  2805.      The commands are single letter commands.  The user is prompted for all other
  2806. diff -cBdNp e:/gnu/gdbm/gnu/testgdbm.c ./testgdbm.c
  2807. *** e:/gnu/gdbm/gnu/testgdbm.c    Thu Aug 16 10:49:58 1990
  2808. --- ./testgdbm.c    Thu Aug 16 10:51:30 1990
  2809. ***************
  2810. *** 28,37 ****
  2811. --- 28,55 ----
  2812.          
  2813.   *************************************************************************/
  2814.   
  2815. + /*
  2816. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  2817. +  *
  2818. +  * To this port, the same copying conditions apply as to the
  2819. +  * original release.
  2820. +  *
  2821. +  * IMPORTANT:
  2822. +  * This file is not identical to the original GNU release!
  2823. +  * You should have received this code as patch to the official
  2824. +  * GNU release.
  2825. +  *
  2826. +  * MORE IMPORTANT:
  2827. +  * This port comes with ABSOLUTELY NO WARRANTY.
  2828. +  *
  2829. +  * $Header: e:/gnu/gdbm/RCS/testgdbm.c'v 1.4.0.2 90/08/16 09:55:48 tho Exp $
  2830. +  */
  2831.   
  2832.   #include <stdio.h>
  2833.   #include <sys/types.h>
  2834. + #ifndef MSDOS
  2835.   #include <sys/file.h>
  2836. + #endif /* not MSDOS */
  2837.   #include <sys/stat.h>
  2838.   #include "gdbmdefs.h"
  2839.   #include "systems.h"
  2840. *************** extern char * gdbm_version;
  2841. *** 44,50 ****
  2842. --- 62,148 ----
  2843.   
  2844.   gdbm_file_info *gdbm_file;
  2845.   
  2846. + #ifdef __STDC__
  2847. + static void print_bucket (hash_bucket *bucket, char *mesg);
  2848. + static void _gdbm_print_avail_list (gdbm_file_info *dbf);
  2849. + extern void main (int argc, char **argv);
  2850. + void gdbm_perror (char *msg);
  2851. + #endif /* __STDC__ */
  2852. + 
  2853. + 
  2854. + /* access GDBM_ERRNO.  [tho]  */
  2855. + 
  2856. + void
  2857. + gdbm_perror (char *msg)
  2858. + {
  2859. +   char *err_msg;
  2860. + 
  2861. +   switch (gdbm_errno)
  2862. +     {
  2863. +     case GDBM_NO_ERROR:
  2864. +       err_msg = "no error";
  2865. +       break;
  2866. +     case GDBM_MALLOC_ERROR:
  2867. +       err_msg = "can't malloc";
  2868. +       break;
  2869. +     case GDBM_BLOCK_SIZE_ERROR:
  2870. +       err_msg = "bad block size";
  2871. +       break;
  2872. +     case GDBM_FILE_OPEN_ERROR:
  2873. +       err_msg = "can't open file";
  2874. +       break;
  2875. +     case GDBM_FILE_WRITE_ERROR:
  2876. +       err_msg = "can't write file";
  2877. +       break;
  2878. +     case GDBM_FILE_SEEK_ERROR:
  2879. +       err_msg = "can't seek file";
  2880. +       break;
  2881. +     case GDBM_FILE_READ_ERROR:
  2882. +       err_msg = "can't read file";
  2883. +       break;
  2884. +     case GDBM_BAD_MAGIC_NUMBER:
  2885. +       err_msg = "bad magic number";
  2886. +       break;
  2887. +     case GDBM_EMPTY_DATABASE:
  2888. +       err_msg = "empty database";
  2889. +       break;
  2890. +     case GDBM_CANT_BE_READER:
  2891. +       err_msg = "can't be reader";
  2892. +       break;
  2893. +     case GDBM_CANT_BE_WRITER:
  2894. +       err_msg = "can't be writer";
  2895. +       break;
  2896. +     case GDBM_READER_CANT_DELETE:
  2897. +       err_msg = "can't delete";
  2898. +       break;
  2899. +     case GDBM_READER_CANT_STORE:
  2900. +       err_msg = "can't store";
  2901. +       break;
  2902. +     case GDBM_READER_CANT_REORGANIZE:
  2903. +       err_msg = "can't reorganize";
  2904. +       break;
  2905. +     case GDBM_UNKNOWN_UPDATE:
  2906. +       err_msg = "unkown update";
  2907. +       break;
  2908. +     case GDBM_ITEM_NOT_FOUND:
  2909. +       err_msg = "item not found";
  2910. +       break;
  2911. +     case GDBM_REORGANIZE_FAILED:
  2912. +       err_msg = "reorganization failed";
  2913. +       break;
  2914. +     case GDBM_CANNOT_REPLACE:
  2915. +       err_msg = "can't replace";
  2916. +       break;
  2917. +     default:
  2918. +       err_msg = "unknown error";
  2919. +     }
  2920. + 
  2921. +   fprintf (stderr, "%s (GDBM error: %s)\n", msg, err_msg);
  2922. + }
  2923. + 
  2924. + 
  2925.   /* Debug procedure to print the contents of the current hash bucket. */
  2926. + VOID
  2927.   print_bucket (bucket, mesg)
  2928.        hash_bucket *bucket;
  2929.        char *mesg;
  2930. *************** print_bucket (bucket, mesg)
  2931. *** 55,60 ****
  2932. --- 153,166 ----
  2933.        mesg, bucket->bucket_bits, bucket->count);
  2934.     printf ("     #    hash value     key size    data size     data adr  home\n");
  2935.     for (index = 0; index < gdbm_file->header->bucket_elems; index++)
  2936. + #ifdef MSDOS
  2937. +     printf ("  %4d  %12lx  %11d  %11d  %11ld %5d\n", index,
  2938. +        bucket->h_table[index].hash_value,
  2939. +        bucket->h_table[index].key_size,
  2940. +        bucket->h_table[index].data_size,
  2941. +        bucket->h_table[index].data_pointer,
  2942. +        (int) (bucket->h_table[index].hash_value % gdbm_file->header->bucket_elems));
  2943. + #else /* not MSDOS */
  2944.       printf ("  %4d  %12x  %11d  %11d  %11d %5d\n", index,
  2945.          bucket->h_table[index].hash_value,
  2946.          bucket->h_table[index].key_size,
  2947. *************** print_bucket (bucket, mesg)
  2948. *** 61,79 ****
  2949.          bucket->h_table[index].data_size,
  2950.          bucket->h_table[index].data_pointer,
  2951.          bucket->h_table[index].hash_value % gdbm_file->header->bucket_elems);
  2952.   
  2953.     printf ("\nAvail count = %1d\n", bucket->av_count);
  2954.     printf ("Avail  adr     size\n");
  2955.     for (index = 0; index < bucket->av_count; index++)
  2956.       printf ("%9d%9d\n", bucket->bucket_avail[index].av_adr,
  2957.                       bucket->bucket_avail[index].av_size);
  2958.   }
  2959.   
  2960.   
  2961.   _gdbm_print_avail_list (dbf)
  2962.        gdbm_file_info *dbf;
  2963.   {
  2964. !   int temp;
  2965.     int size;
  2966.     avail_block *av_stk;
  2967.    
  2968. --- 167,191 ----
  2969.          bucket->h_table[index].data_size,
  2970.          bucket->h_table[index].data_pointer,
  2971.          bucket->h_table[index].hash_value % gdbm_file->header->bucket_elems);
  2972. + #endif /* not MSDOS */
  2973.   
  2974.     printf ("\nAvail count = %1d\n", bucket->av_count);
  2975.     printf ("Avail  adr     size\n");
  2976.     for (index = 0; index < bucket->av_count; index++)
  2977. + #ifdef MSDOS
  2978. +     printf ("%9ld%9d\n", bucket->bucket_avail[index].av_adr,
  2979. + #else /* not MSDOS */
  2980.       printf ("%9d%9d\n", bucket->bucket_avail[index].av_adr,
  2981. + #endif /* not MSDOS */
  2982.                       bucket->bucket_avail[index].av_size);
  2983.   }
  2984.   
  2985.   
  2986. + VOID
  2987.   _gdbm_print_avail_list (dbf)
  2988.        gdbm_file_info *dbf;
  2989.   {
  2990. !   LONG temp;
  2991.     int size;
  2992.     avail_block *av_stk;
  2993.    
  2994. *************** _gdbm_print_avail_list (dbf)
  2995. *** 82,88 ****
  2996. --- 194,204 ----
  2997.         dbf->header->avail.size, dbf->header->avail.count);
  2998.     for (temp = 0; temp < dbf->header->avail.count; temp++)
  2999.       {
  3000. + #ifdef MSDOS
  3001. +       printf ("  %15d   %10ld \n", dbf->header->avail.av_table[temp].av_size,
  3002. + #else /* not MSDOS */
  3003.         printf ("  %15d   %10d \n", dbf->header->avail.av_table[temp].av_size,
  3004. + #endif /* not MSDOS */
  3005.             dbf->header->avail.av_table[temp].av_adr);
  3006.       }
  3007.   
  3008. *************** _gdbm_print_avail_list (dbf)
  3009. *** 91,102 ****
  3010. --- 207,229 ----
  3011.     size = ( ( (dbf->header->avail.size * sizeof (avail_elem)) >> 1)
  3012.         + sizeof (avail_block));
  3013.     av_stk = (avail_block *) alloca (size);
  3014. + #ifdef MSDOS
  3015. +   if (av_stk == (avail_block *) 0)
  3016. +     {
  3017. +       fprintf (stderr, "alloca failed.\n");
  3018. +       exit (-2);
  3019. +     }
  3020. + #endif /* MSDOS */
  3021.   
  3022.     /* Print the stack. */
  3023.     while (FALSE)
  3024.       {
  3025.         lseek (dbf->desc, temp, L_SET);
  3026. + #ifdef MSDOS
  3027. +       read  (dbf->desc, (char *) av_stk, size);
  3028. + #else /* not MSDOS */
  3029.         read  (dbf->desc, av_stk, size);
  3030. + #endif /* not MSDOS */
  3031.   
  3032.         /* Print the block! */
  3033.         printf ("\nblock = %d\nsize  = %d\ncount = %d\n", temp,
  3034. *************** _gdbm_print_avail_list (dbf)
  3035. *** 103,109 ****
  3036. --- 230,240 ----
  3037.             av_stk->size, av_stk->count);
  3038.         for (temp = 0; temp < av_stk->count; temp++)
  3039.       {
  3040. + #ifdef MSDOS
  3041. +       printf ("  %15d   %10ld \n", av_stk->av_table[temp].av_size,
  3042. + #else /* not MSDOS */
  3043.         printf ("  %15d   %10d \n", av_stk->av_table[temp].av_size,
  3044. + #endif /* not MSDOS */
  3045.           av_stk->av_table[temp].av_adr);
  3046.       }
  3047.         temp = av_stk->next_block;
  3048. *************** _gdbm_print_bucket_cache (dbf)
  3049. *** 120,126 ****
  3050. --- 251,261 ----
  3051.     for (index=0; index < CACHE_SIZE; index++)
  3052.       {
  3053.         changed = dbf->bucket_cache[index].ca_changed;
  3054. + #ifdef MSDOS
  3055. +       printf ("  %5d:  %7ld  %7s  %lx\n",
  3056. + #else /* not MSDOS */
  3057.         printf ("  %5d:  %7d  %7s  %x\n",
  3058. + #endif /* not MSDOS */
  3059.             index,
  3060.             dbf->bucket_cache[index].ca_adr,
  3061.             (changed ? "True" : "False"),
  3062. *************** _gdbm_print_bucket_cache (dbf)
  3063. *** 133,138 ****
  3064. --- 268,274 ----
  3065.      The commands are single letter commands.  The user is prompted for all other
  3066.      information.  See the help command (?) for a list of all commands. */
  3067.   
  3068. + VOID
  3069.   main (argc, argv)
  3070.        int argc;
  3071.        char *argv[];
  3072. *************** main (argc, argv)
  3073. *** 176,185 ****
  3074.     gdbm_file = gdbm_open (file_name, 512, GDBM_WRCREAT, 00664, NULL);
  3075.     if (gdbm_file == NULL)
  3076.       {
  3077. !       if (gdbm_errno != GDBM_CANT_BE_WRITER)
  3078. !     printf ("gdbm_open failed.\n");
  3079. !       else
  3080. !     printf ("Can't open as a writer. \n");
  3081.         exit (2);
  3082.       }
  3083.   
  3084. --- 312,318 ----
  3085.     gdbm_file = gdbm_open (file_name, 512, GDBM_WRCREAT, 00664, NULL);
  3086.     if (gdbm_file == NULL)
  3087.       {
  3088. !       gdbm_perror ("gdbm_open failed");
  3089.         exit (2);
  3090.       }
  3091.   
  3092. *************** main (argc, argv)
  3093. *** 189,200 ****
  3094. --- 322,341 ----
  3095.     while (!done)
  3096.       {
  3097.         printf ("com -> ");
  3098. + #ifdef MSDOS            /* shut up the compiler */
  3099. +       cmd_ch = (char) getchar ();
  3100. + #else /* not MSDOS */
  3101.         cmd_ch = getchar ();
  3102. + #endif /* not MSDOS */
  3103.         if (cmd_ch != '\n')
  3104.       {
  3105.         char temp;
  3106.         do
  3107. + #ifdef MSDOS            /* shut up the compiler */
  3108. +           temp = (char) getchar ();
  3109. + #else /* not MSDOS */
  3110.             temp = getchar ();
  3111. + #endif /* not MSDOS */
  3112.         while (temp != '\n' && temp != EOF);
  3113.       }
  3114.         if (cmd_ch == EOF) cmd_ch = 'q';
  3115. *************** main (argc, argv)
  3116. *** 230,236 ****
  3117.         key_data.dptr = key_line;
  3118.         key_data.dsize = strlen (key_line)+1;
  3119.         if (gdbm_delete (gdbm_file, key_data) != 0)
  3120. !         printf ("Item not found or deleted\n");
  3121.         printf ("\n");
  3122.         key_data.dptr = NULL;
  3123.         break;
  3124. --- 371,377 ----
  3125.         key_data.dptr = key_line;
  3126.         key_data.dsize = strlen (key_line)+1;
  3127.         if (gdbm_delete (gdbm_file, key_data) != 0)
  3128. !         gdbm_perror ("Item not found or deleted");
  3129.         printf ("\n");
  3130.         key_data.dptr = NULL;
  3131.         break;
  3132. *************** main (argc, argv)
  3133. *** 269,275 ****
  3134.           }
  3135.         else
  3136.           {
  3137. !           printf ("No such item found.\n\n");
  3138.             key_data.dptr = NULL;
  3139.           }
  3140.         break;
  3141. --- 410,416 ----
  3142.           }
  3143.         else
  3144.           {
  3145. !           gdbm_perror ("No such item found");
  3146.             key_data.dptr = NULL;
  3147.           }
  3148.         break;
  3149. *************** main (argc, argv)
  3150. *** 288,294 ****
  3151.         gets (data_line);
  3152.         data_data.dsize = strlen (data_line)+1;
  3153.         if (gdbm_store (gdbm_file, key_data, data_data, GDBM_REPLACE) != 0)
  3154. !         printf ("Item not inserted. \n");
  3155.         printf ("\n");
  3156.         key_data.dptr = NULL;
  3157.         break;
  3158. --- 429,435 ----
  3159.         gets (data_line);
  3160.         data_data.dsize = strlen (data_line)+1;
  3161.         if (gdbm_store (gdbm_file, key_data, data_data, GDBM_REPLACE) != 0)
  3162. !         gdbm_perror ("Item not inserted");
  3163.         printf ("\n");
  3164.         key_data.dptr = NULL;
  3165.         break;
  3166. *************** main (argc, argv)
  3167. *** 304,310 ****
  3168.             free (return_data.dptr);
  3169.           }
  3170.         else
  3171. !         printf ("No such item found.\n\n");
  3172.         break;
  3173.   
  3174.       case '2':
  3175. --- 445,451 ----
  3176.             free (return_data.dptr);
  3177.           }
  3178.         else
  3179. !         gdbm_perror ("No such item found");
  3180.         break;
  3181.   
  3182.       case '2':
  3183. *************** main (argc, argv)
  3184. *** 319,325 ****
  3185.             free (return_data.dptr);
  3186.           }
  3187.         else
  3188. !         printf ("No such item found.\n\n");
  3189.         break;
  3190.   
  3191.   
  3192. --- 460,466 ----
  3193.             free (return_data.dptr);
  3194.           }
  3195.         else
  3196. !         gdbm_perror ("No such item found");
  3197.         break;
  3198.   
  3199.   
  3200. *************** main (argc, argv)
  3201. *** 327,333 ****
  3202.       case 'r':
  3203.         {
  3204.           if (gdbm_reorganize (gdbm_file))
  3205. !           printf ("Reorganization failed. \n\n");
  3206.           else
  3207.             printf ("Reorganization succeeded. \n\n");
  3208.         }
  3209. --- 468,474 ----
  3210.       case 'r':
  3211.         {
  3212.           if (gdbm_reorganize (gdbm_file))
  3213. !           gdbm_perror ("Reorganization failed");
  3214.           else
  3215.             printf ("Reorganization succeeded. \n\n");
  3216.         }
  3217. *************** main (argc, argv)
  3218. *** 349,355 ****
  3219.   
  3220.           if (temp >= gdbm_file->header->dir_size /4)
  3221.             {
  3222. !         printf ("Not a bucket. \n\n");
  3223.           break;
  3224.             }
  3225.           _gdbm_get_bucket (gdbm_file, temp);
  3226. --- 490,496 ----
  3227.   
  3228.           if (temp >= gdbm_file->header->dir_size /4)
  3229.             {
  3230. !         gdbm_perror ("Not a bucket");
  3231.           break;
  3232.             }
  3233.           _gdbm_get_bucket (gdbm_file, temp);
  3234. *************** main (argc, argv)
  3235. *** 359,365 ****
  3236. --- 500,510 ----
  3237.       case 'C':
  3238.         print_bucket (gdbm_file->bucket, "Current bucket");
  3239.         printf ("\n current directory entry = %d.\n", gdbm_file->bucket_dir);
  3240. + #ifdef MSDOS
  3241. +       printf (" current bucket address  = %ld.\n\n",
  3242. + #else /* not MSDOS */
  3243.         printf (" current bucket address  = %d.\n\n",
  3244. + #endif /* not MSDOS */
  3245.             gdbm_file->cache_entry->ca_adr);
  3246.         break;
  3247.   
  3248. *************** main (argc, argv)
  3249. *** 372,378 ****
  3250. --- 517,527 ----
  3251.   
  3252.           for (temp = 0; temp < gdbm_file->header->dir_size / 4; temp++)
  3253.             {
  3254. + #ifdef MSDOS
  3255. +         printf ("  %10d:  %12ld\n", temp, gdbm_file->dir[temp]);
  3256. + #else /* not MSDOS */
  3257.           printf ("  %10d:  %12d\n", temp, gdbm_file->dir[temp]);
  3258. + #endif /* not MSDOS */
  3259.           if ( (temp+1) % 20 == 0 && isatty (0))
  3260.             {
  3261.               printf ("*** CR to continue: ");
  3262. *************** main (argc, argv)
  3263. *** 385,400 ****
  3264.   
  3265.       case 'F':
  3266.         {
  3267. !         int temp;
  3268.   
  3269.           printf ("\nFile Header: \n\n");
  3270.           printf ("  table        = %d\n", gdbm_file->header->dir);
  3271.           printf ("  table size   = %d\n", gdbm_file->header->dir_size);
  3272.           printf ("  table bits   = %d\n", gdbm_file->header->dir_bits);
  3273.           printf ("  block size   = %d\n", gdbm_file->header->block_size);
  3274.           printf ("  bucket elems = %d\n", gdbm_file->header->bucket_elems);
  3275.           printf ("  bucket size  = %d\n", gdbm_file->header->bucket_size);
  3276.           printf ("  header magic = %x\n", gdbm_file->header->header_magic);
  3277.           printf ("  next block   = %d\n", gdbm_file->header->next_block);
  3278.           printf ("  avail size   = %d\n", gdbm_file->header->avail.size);
  3279.           printf ("  avail count  = %d\n", gdbm_file->header->avail.count);
  3280. --- 534,559 ----
  3281.   
  3282.       case 'F':
  3283.         {
  3284. ! #ifndef MSDOS            /* shut up the compiler */
  3285. !           int temp;
  3286. ! #endif /* not MSDOS */
  3287.   
  3288.           printf ("\nFile Header: \n\n");
  3289. + #ifdef MSDOS
  3290. +         printf ("  table        = %ld\n", gdbm_file->header->dir);
  3291. + #else /* not MSDOS */
  3292.           printf ("  table        = %d\n", gdbm_file->header->dir);
  3293. + #endif /* not MSDOS */
  3294.           printf ("  table size   = %d\n", gdbm_file->header->dir_size);
  3295.           printf ("  table bits   = %d\n", gdbm_file->header->dir_bits);
  3296.           printf ("  block size   = %d\n", gdbm_file->header->block_size);
  3297.           printf ("  bucket elems = %d\n", gdbm_file->header->bucket_elems);
  3298.           printf ("  bucket size  = %d\n", gdbm_file->header->bucket_size);
  3299. + #ifdef MSDOS
  3300. +         printf ("  header magic = %lx\n", gdbm_file->header->header_magic);
  3301. + #else /* not MSDOS */
  3302.           printf ("  header magic = %x\n", gdbm_file->header->header_magic);
  3303. + #endif /* not MSDOS */
  3304.           printf ("  next block   = %d\n", gdbm_file->header->next_block);
  3305.           printf ("  avail size   = %d\n", gdbm_file->header->avail.size);
  3306.           printf ("  avail count  = %d\n", gdbm_file->header->avail.count);
  3307. *************** main (argc, argv)
  3308. *** 409,415 ****
  3309. --- 568,578 ----
  3310.         gets (key_line);
  3311.         key_data.dptr = key_line;
  3312.         key_data.dsize = strlen (key_line)+1;
  3313. + #ifdef MSDOS
  3314. +       printf ("hash value = %lx. \n\n", _gdbm_hash (key_data));
  3315. + #else /* not MSDOS */
  3316.         printf ("hash value = %x. \n\n", _gdbm_hash (key_data));
  3317. + #endif /* not MSDOS */
  3318.         key_data.dptr = NULL;
  3319.         break;
  3320.   
  3321. diff -cBdNp e:/gnu/gdbm/gnu/testndbm.c ./testndbm.c
  3322. *** e:/gnu/gdbm/gnu/testndbm.c    Thu Aug 16 10:50:02 1990
  3323. --- ./testndbm.c    Thu Aug 16 10:51:32 1990
  3324. ***************
  3325. *** 27,36 ****
  3326. --- 27,54 ----
  3327.          
  3328.   *************************************************************************/
  3329.   
  3330. + /*
  3331. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  3332. +  *
  3333. +  * To this port, the same copying conditions apply as to the
  3334. +  * original release.
  3335. +  *
  3336. +  * IMPORTANT:
  3337. +  * This file is not identical to the original GNU release!
  3338. +  * You should have received this code as patch to the official
  3339. +  * GNU release.
  3340. +  *
  3341. +  * MORE IMPORTANT:
  3342. +  * This port comes with ABSOLUTELY NO WARRANTY.
  3343. +  *
  3344. +  * $Header: e:/gnu/gdbm/RCS/testndbm.c'v 1.4.0.1 90/08/16 09:22:51 tho Exp $
  3345. +  */
  3346.   
  3347.   #include <stdio.h>
  3348.   #include <sys/types.h>
  3349. + #ifndef MSDOS
  3350.   #include <sys/file.h>
  3351. + #endif /* not MSDOS */
  3352.   #include <sys/stat.h>
  3353.   #ifdef SYSV
  3354.   #include <fcntl.h>
  3355. diff -cBdNp e:/gnu/gdbm/gnu/update.c ./update.c
  3356. *** e:/gnu/gdbm/gnu/update.c    Thu Aug 16 10:50:02 1990
  3357. --- ./update.c    Thu Aug 16 10:51:34 1990
  3358. ***************
  3359. *** 27,51 ****
  3360.          
  3361.   *************************************************************************/
  3362.   
  3363.   
  3364.   #include <stdio.h>
  3365.   #include <sys/types.h>
  3366.   #include <sys/file.h>
  3367.   #include "gdbmdefs.h"
  3368.   #include "systems.h"
  3369.   
  3370.   
  3371.   /* This procedure writes the header back to the file described by DBF. */
  3372.   
  3373. ! static 
  3374.   write_header (dbf)
  3375.        gdbm_file_info *dbf;
  3376.   {
  3377. !   int num_bytes;
  3378.   
  3379. !   num_bytes = lseek (dbf->desc, 0, L_SET);
  3380.     if (num_bytes != 0) _gdbm_fatal (dbf, "lseek error");
  3381.     num_bytes = write (dbf->desc, dbf->header, dbf->header->block_size);
  3382.     if (num_bytes != dbf->header->block_size)
  3383.       _gdbm_fatal (dbf, "write error");
  3384.   
  3385. --- 27,76 ----
  3386.          
  3387.   *************************************************************************/
  3388.   
  3389. + /*
  3390. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  3391. +  *
  3392. +  * To this port, the same copying conditions apply as to the
  3393. +  * original release.
  3394. +  *
  3395. +  * IMPORTANT:
  3396. +  * This file is not identical to the original GNU release!
  3397. +  * You should have received this code as patch to the official
  3398. +  * GNU release.
  3399. +  *
  3400. +  * MORE IMPORTANT:
  3401. +  * This port comes with ABSOLUTELY NO WARRANTY.
  3402. +  *
  3403. +  * $Header: e:/gnu/gdbm/RCS/update.c'v 1.4.0.1 90/08/16 09:22:53 tho Exp $
  3404. +  */
  3405.   
  3406.   #include <stdio.h>
  3407.   #include <sys/types.h>
  3408. + #ifndef MSDOS
  3409.   #include <sys/file.h>
  3410. + #endif /* not MSDOS */
  3411.   #include "gdbmdefs.h"
  3412.   #include "systems.h"
  3413.   
  3414. + #ifdef __STDC__
  3415. + static void write_header (gdbm_file_info *dbf);
  3416. + #endif /* __STDC__ */
  3417.   
  3418.   /* This procedure writes the header back to the file described by DBF. */
  3419.   
  3420. ! static VOID
  3421.   write_header (dbf)
  3422.        gdbm_file_info *dbf;
  3423.   {
  3424. !   LONG num_bytes;
  3425.   
  3426. !   num_bytes = lseek (dbf->desc, (LONG) 0, L_SET);
  3427.     if (num_bytes != 0) _gdbm_fatal (dbf, "lseek error");
  3428. + #ifdef MSDOS
  3429. +   num_bytes = write (dbf->desc, (char *) dbf->header, dbf->header->block_size);
  3430. + #else /* not MSDOS */
  3431.     num_bytes = write (dbf->desc, dbf->header, dbf->header->block_size);
  3432. + #endif /* not MSDOS */
  3433.     if (num_bytes != dbf->header->block_size)
  3434.       _gdbm_fatal (dbf, "write error");
  3435.   
  3436. *************** write_header (dbf)
  3437. *** 56,65 ****
  3438.   
  3439.   /* After all changes have been made in memory, we now write them
  3440.      all to disk. */
  3441.   _gdbm_end_update (dbf)
  3442.        gdbm_file_info *dbf;
  3443.   {
  3444. !   int num_bytes;    /* Return value for lseek and write. */
  3445.     
  3446.     /* Write the current bucket. */
  3447.     if (dbf->bucket_changed)
  3448. --- 81,91 ----
  3449.   
  3450.   /* After all changes have been made in memory, we now write them
  3451.      all to disk. */
  3452. + VOID
  3453.   _gdbm_end_update (dbf)
  3454.        gdbm_file_info *dbf;
  3455.   {
  3456. !   LONG num_bytes;    /* Return value for lseek and write. */
  3457.     
  3458.     /* Write the current bucket. */
  3459.     if (dbf->bucket_changed)
  3460. *************** _gdbm_end_update (dbf)
  3461. *** 86,92 ****
  3462. --- 112,122 ----
  3463.       {
  3464.         num_bytes = lseek (dbf->desc, dbf->header->dir, L_SET);
  3465.         if (num_bytes != dbf->header->dir) _gdbm_fatal (dbf, "lseek error");
  3466. + #ifdef MSDOS            /* shut up the compiler!  */
  3467. +       num_bytes = write (dbf->desc, (char *) dbf->dir, dbf->header->dir_size);
  3468. + #else /* not MSDOS */
  3469.         num_bytes = write (dbf->desc, dbf->dir, dbf->header->dir_size);
  3470. + #endif /* not MSDOS */
  3471.         if (num_bytes != dbf->header->dir_size)
  3472.       _gdbm_fatal (dbf, "write error");
  3473.         dbf->directory_changed = FALSE;
  3474. *************** _gdbm_end_update (dbf)
  3475. *** 104,109 ****
  3476. --- 134,140 ----
  3477.   
  3478.   /* If a fatal error is detected, come here and exit. VAL tells which fatal
  3479.      error occured. */
  3480. + VOID
  3481.   _gdbm_fatal (dbf, val)
  3482.        gdbm_file_info *dbf;
  3483.        char *val;
  3484. diff -cBdNp e:/gnu/gdbm/gnu/version.c ./version.c
  3485. *** e:/gnu/gdbm/gnu/version.c    Thu Aug 16 10:50:04 1990
  3486. --- ./version.c    Thu Aug 16 10:51:36 1990
  3487. ***************
  3488. *** 27,32 ****
  3489. --- 27,54 ----
  3490.          
  3491.   *************************************************************************/
  3492.   
  3493. + /*
  3494. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@@ddagsi3.bitnet
  3495. +  *
  3496. +  * To this port, the same copying conditions apply as to the
  3497. +  * original release.
  3498. +  *
  3499. +  * IMPORTANT:
  3500. +  * This file is not identical to the original GNU release!
  3501. +  * You should have received this code as patch to the official
  3502. +  * GNU release.
  3503. +  *
  3504. +  * MORE IMPORTANT:
  3505. +  * This port comes with ABSOLUTELY NO WARRANTY.
  3506. +  *
  3507. +  * $Header: e:/gnu/gdbm/RCS/version.c'v 1.4.0.1 90/08/16 09:28:34 tho Exp $
  3508. +  */
  3509. + 
  3510.   /* Keep a string with the version number in it! */
  3511. + #ifdef MSDOS
  3512. + char * gdbm_version = "This is GDBM version 1.4, as of August 14, 1990. "\
  3513. +               "(Compiled for MS-DOS: " __DATE__ " " __TIME__ ")";
  3514. + #else /* not MSDOS */
  3515.   char * gdbm_version = "This is GDBM version 1.4, as of August 14, 1990.";
  3516. + #endif /* not MSDOS */
  3517.   
  3518.