开源软件构建与测试

_service:tar_scm:gdbm.spec Changed

@@ -1,19 +1,21 @@
 Name:       gdbm
-Version:    1.22
-Release:    9
+Version:    1.23
+Release:    2
 Epoch:      1
 Summary:    A library of database functions that work similar to the standard UNIX dbm
 License:    GPLv3+
 URL:        http://www.gnu.org/software/gdbm/
 Source0:    http://ftp.gnu.org/gnu/gdbm/gdbm-%{version}.tar.gz
 
-Patch0:     Fix-gdbmtool-import-command.patch
-Patch1:     Fix-binary-dump-format-for-key-and-or-data-of-zero-s.patch
-Patch2:     gdbm_dump-fix-command-line-error-detection.patch
-Patch3:     Fix-location-tracking-in-gdbmtool.-Fix-the-recover-c.patch
-Patch4:     Fix-coredump-in-gdbmtool-history-command.patch
-Patch5:     Fix-semantics-of-gdbm_load-r.patch
-Patch6:     Improve-handling-of-u-in-gdbm_load.patch
+Patch0:     Fix-binary-dump-format-for-key-and-or-data-of-zero-s.patch
+Patch1:     gdbm_dump-fix-command-line-error-detection.patch
+Patch2:     Fix-location-tracking-in-gdbmtool.-Fix-the-recover-c.patch
+Patch3:     Fix-coredump-in-gdbmtool-history-command.patch
+Patch4:     Fix-semantics-of-gdbm_load-r.patch
+Patch5:     Improve-handling-of-u-in-gdbm_load.patch
+Patch6:     Fix-allocated-memory-not-released.patch
+Patch7:     Restore-accidentally-removed-parameter-and-New-macro.patch
+Patch8:     Minor-fix-in-the-compatibility-library.patch
 
 BuildRequires:  gcc libtool gettext readline-devel bison flex texinfo
 
@@ -105,6 +107,15 @@
 %{_infodir}/*.info*
 
 %changelog
+* Thu Mar 16 2023 wangzhiqiang <wangzhiqiang95@huawei.com> - 1:1.23-2
+- DESC:backport upstream patch
+
+* Thu Dec 8 2022 wangzhiqiang <wangzhiqiang95@huawei.com> - 1:1.23-1
+- DESC: update to version 1.23
+
+* Tue Aug 30 2022 yangchenguang <yangchenguang@uniontech.com> - 1:1.22-10
+- DESC: Fix allocated memory not released
+
 * Tue Jul 5 2022 wangzhqiang <wangzhiqiang95@huawei.com> - 1:1.22-9
 - DESC: Improve handling of -u in gdbm_load

_service:tar_scm:Fix-allocated-memory-not-released.patch Added

@@ -0,0 +1,44 @@
+From 1f10d92214e3f6f23b8d00dccafb5ad57856fbbd Mon Sep 17 00:00:00 2001
+From: Sergey Poznyakoff <gray@gnu.org>
+Date: Sat, 18 Jun 2022 17:35:35 +0300
+Subject: PATCH Fix https://puszcza.gnu.org.ua/bugs/index.php?563
+
+---
+ tools/gdbmshell.c | 9 +++++++--
+ 1 file changed, 7 insertions(+), 2 deletions(-)
+
+diff --git a/tools/gdbmshell.c b/tools/gdbmshell.c
+index 20c6ea9..1f61b5b 100644
+--- a/tools/gdbmshell.c
++++ b/tools/gdbmshell.c
+@@ -1328,6 +1328,7 @@ snapshot_handler (struct command_param *param, struct command_environ *cenv)
+   char *sb = tildexpand (PARAM_STRING (param, 1));
+   char const *sel;
+   int rc = gdbm_latest_snapshot (sa, sb, &sel); 
++  int res;
+ 
+   if (rc >= 0 && rc < ARRAY_SIZE (snapshot_status_info))
+     {
+@@ -1339,13 +1340,17 @@ snapshot_handler (struct command_param *param, struct command_environ *cenv)
+ 	snapshot_status_inforc.fn (cenv->fp, sa, sb);
+       if (rc == GDBM_SNAPSHOT_OK)
+ 	print_snapshot (sel, cenv->fp);
++      res = GDBMSHELL_OK;
+     }
+   else
+     {
+       terror (_("unexpected error code: %d"), rc);
+-      return GDBMSHELL_ERR;
++      res = GDBMSHELL_ERR;
+     }
+-  return GDBMSHELL_OK;
++
++  free (sa);
++  free (sb);
++  return res;
+ }
+ 
+ &#xc;
+-- 
+2.33.0
+

_service:tar_scm:Fix-binary-dump-format-for-key-and-or-data-of-zero-s.patch Changed

_service:tar_scm:Fix-coredump-in-gdbmtool-history-command.patch Changed

@@ -1,22 +1,19 @@
-From d3f504875cb94d2e458e1e233e5ab8b40281fe2b Mon Sep 17 00:00:00 2001
+From c25c66f3194f9c75483e550832d65d6554b22ec8 Mon Sep 17 00:00:00 2001
 From: Sergey Poznyakoff <gray@gnu.org>
 Date: Mon, 27 Jun 2022 11:49:31 +0300
-Subject: PATCH Fix bug#569
+Subject: PATCH Fix bug #569
 
-* src/gdbmshell.c (input_history_begin): return GDBMSHELL_ERR
+* tools/gdbmshell.c (input_history_begin): return GDBMSHELL_ERR
 if history is not available.
-
-Conflict: tools/gdbmshell.c --> src/gdbmshell.c
-Reference: https://puszcza.gnu.org.ua/bugs/index.php?569
 ---
- src/gdbmshell.c | 2 +-
+ tools/gdbmshell.c | 2 +-
  1 file changed, 1 insertion(+), 1 deletion(-)
 
-diff --git a/src/gdbmshell.c b/src/gdbmshell.c
-index 4b84c23..12fc2bd 100644
---- a/src/gdbmshell.c
-+++ b/src/gdbmshell.c
-@@ -1714,7 +1714,7 @@ input_history_begin (struct command_param *param,
+diff --git a/tools/gdbmshell.c b/tools/gdbmshell.c
+index bccda41..20c6ea9 100644
+--- a/tools/gdbmshell.c
++++ b/tools/gdbmshell.c
+@@ -1892,7 +1892,7 @@ input_history_begin (struct command_param *param,
        /* TRANSLATORS: %s is the stream name */
        terror (_("input history is not available for %s input stream"),
  	      input_stream_name ());
@@ -26,5 +23,5 @@
    
    switch (param->argc)
 -- 
-1.8.3.1
+2.33.0

_service:tar_scm:Fix-gdbmtool-import-command.patch Deleted

@@ -1,45 +0,0 @@
-From f3c7872fed5e0782438d186ac88c63035a637462 Mon Sep 17 00:00:00 2001
-From: Sergey Poznyakoff <gray@gnu.org>
-Date: Thu, 18 Nov 2021 12:22:59 +0200
-Subject: Fix gdbmtool import command
-
-* src/gdbmshell.c (import_handler): Fix option addressing (see
-https://puszcza.gnu.org.ua/bugs/?535).
-Fix freeing of the uninitialized variable.
----
- src/gdbmshell.c | 5 ++---
- 1 file changed, 2 insertions(+), 3 deletions(-)
-
-diff --git a/src/gdbmshell.c b/src/gdbmshell.c
-index 08042ce..96b5844 100644
---- a/src/gdbmshell.c
-+++ b/src/gdbmshell.c
-@@ -661,7 +661,7 @@ err_printer (void *data GDBM_ARG_UNUSED, char const *fmt, ...)
-   fprintf (stderr, "\n");
- }
- 
--/* recover sumamry verbose backup max-failed-keys=N max-failed-buckets=N max-failures=N */
-+/* recover summary verbose backup max-failed-keys=N max-failed-buckets=N max-failures=N */
- static int
- recover_handler (struct command_param *param, struct command_environ *cenv)
- {
-@@ -1585,7 +1585,7 @@ import_handler (struct command_param *param,
-   int rc = GDBMSHELL_OK;
-   char *file_name;
-   
--  for (i = 0; i < param->argc; i++)
-+  for (i = 1; i < param->argc; i++)
-     {
-       if (strcmp (PARAM_STRING (param, i), "replace") == 0)
- 	 flag = GDBM_REPLACE;
-@@ -1637,7 +1637,6 @@ import_handler (struct command_param *param,
-       return GDBMSHELL_GDBM_ERR;
-     }
- 
--  free (file_name);
-   if (gdbm_setopt (gdbm_file, GDBM_GETDBNAME, &file_name, sizeof (file_name)))
-     {
-       dberror ("%s", "GDBM_GETDBNAME");
--- 
-cgit v1.2.1
-

_service:tar_scm:Fix-location-tracking-in-gdbmtool.-Fix-the-recover-c.patch Changed

@@ -1,28 +1,28 @@
-From b8271d89db991558e10c26d45d960bbc0257fa31 Mon Sep 17 00:00:00 2001
+From b5801318089f1dd062d039661aed3c701f2943c8 Mon Sep 17 00:00:00 2001
 From: Sergey Poznyakoff <gray@gnu.org>
 Date: Sat, 18 Jun 2022 17:18:05 +0300
-Subject: PATCH Fix location tracking in gdbmtool.  Fix the recover command.
+Subject: PATCH Fix location tracking in gdbmtool. Fix the recover command.
 
 In particular, this addresses https://puszcza.gnu.org.ua/bugs/?566
 
-* src/gdbmshell.c: Fix parameter parsing failure
+* tools/gdbmshell.c: Fix parameter parsing failure
 (recover_handler): Accept varargs
 (command_tab): Use argdoc to provide help for varargs
 (help_handler): Handle argdoc
-* src/gram.y: Accept a single unadorned key=value pair as argument.
+* tools/gram.y: Accept a single unadorned key=value pair as argument.
 
 Conflict: Fix only the part that caused the problem
 Origin Patch:  https://git.gnu.org.ua/gdbm.git/commit/?id=b8271d89db991558e10c26d45d960bbc0257fa31
 ---
- src/gdbmshell.c | 156 +++++++++++++++++++++++++++++++++++---------------------
- src/gram.y      |   8 +++
- 2 files changed, 106 insertions(+), 58 deletions(-)
+ tools/gdbmshell.c | 150 ++++++++++++++++++++++++++++------------------
+ tools/gram.y      |   8 +++
+ 2 files changed, 101 insertions(+), 57 deletions(-)
 
-diff --git a/src/gdbmshell.c b/src/gdbmshell.c
-index 9f0d06c..4b84c23 100644
---- a/src/gdbmshell.c
-+++ b/src/gdbmshell.c
-@@ -625,64 +625,95 @@ recover_handler (struct command_param *param, struct command_environ *cenv)
+diff --git a/tools/gdbmshell.c b/tools/gdbmshell.c
+index 22c4938..bccda41 100644
+--- a/tools/gdbmshell.c
++++ b/tools/gdbmshell.c
+@@ -668,64 +668,95 @@ recover_handler (struct command_param *param, struct command_environ *cenv)
    gdbm_recovery rcvr;
    int flags = 0;
    int rc;
@@ -165,7 +165,7 @@
  	}
      }
  
-@@ -1765,6 +1796,7 @@ struct command
+@@ -1943,6 +1974,7 @@ struct command
    int (*handler) (struct command_param *param, struct command_environ *cenv);
    void (*end) (void *data);
    struct argdef argsNARGS;
@@ -173,7 +173,7 @@
    int variadic;
    enum command_repeat_type repeat;
    char *doc;
-@@ -1891,21 +1923,21 @@ static struct command command_tab = {
+@@ -2073,21 +2105,21 @@ static struct command command_tab = {
    },
    {
      .name = "recover",
@@ -205,28 +205,22 @@
      .repeat = REPEAT_NEVER,
    },
    {
-@@ -2244,7 +2276,15 @@ help_handler (struct command_param *param GDBM_ARG_UNUSED,
- 	    }
- 	  n += fprintf (fp, " %s", gettext (cmd->argsi.name));
+@@ -2435,6 +2467,10 @@ help_handler (struct command_param *param GDBM_ARG_UNUSED,
+ 	{
+ 	  wordwrap_printf (wf, " %s", gettext (cmd->argsi.name));
  	} 
--
-+      for (i = 0; i < NARGS && cmd->argdoci; i++)
++      for (i = 0; cmd->argdoci; i++)
 +	{
-+	  if (n >= CMDCOLS)
-+	    {
-+	      fputc ('\n', fp);
-+	      n = fprintf (fp, "%*.*s", optoff, optoff, "");
-+	    }
-+	  n += fprintf (fp, " %s", gettext (cmd->argdoci));
++	  wordwrap_printf (wf, " %s", gettext (cmd->argdoci));
 +	}
-       if (n < CMDCOLS)
- 	fprintf (fp, "%*.s", CMDCOLS-n, "");
-       else
-diff --git a/src/gram.y b/src/gram.y
-index 561de89..156bb2c 100644
---- a/src/gram.y
-+++ b/src/gram.y
-@@ -140,6 +140,13 @@ arg       : string
+ 
+       wordwrap_set_right_margin (wf, 0);
+       wordwrap_set_left_margin (wf, CMDCOLS);
+diff --git a/tools/gram.y b/tools/gram.y
+index 6b09152..b1360ae 100644
+--- a/tools/gram.y
++++ b/tools/gram.y
+@@ -149,6 +149,13 @@ arg       : string
              {
  	      $$ = gdbmarg_string ($1, &@1);
  	    }
@@ -240,7 +234,7 @@
            | compound
  	    {
  	      $$ = gdbmarg_kvpair ($1, &@1);
-@@ -175,6 +182,7 @@ kvpair    : value
+@@ -184,6 +191,7 @@ kvpair    : value
            | T_IDENT '=' value
  	    {
  	      $3->key = $1;
@@ -249,5 +243,5 @@
  	    }
            ;
 -- 
-1.8.3.1
+2.33.0

_service:tar_scm:Fix-semantics-of-gdbm_load-r.patch Changed

@@ -1,24 +1,51 @@
 From 0591202918948d41e331094b283ff699ab916c54 Mon Sep 17 00:00:00 2001
 From: Sergey Poznyakoff <gray@gnu.org>
 Date: Fri, 1 Jul 2022 14:03:22 +0300
-Subject: PATCH Fix semantics of gdbm_load -r
+Subject: PATCH 11/14 Fix semantics of gdbm_load -r
 
 Fixes https://puszcza.gnu.org.ua/bugs/index.php?573
 
-* src/gdbm_load.c: New option: --update (-U)
+* tools/gdbm_load.c: New option: --update (-U)
 The --replace (-r) option is valid only if used together with
 --update.
+* NEWS: Document changes.
 * doc/gdbm.texi: Document changes.
 ---
- doc/gdbm.texi   | 25 ++++++++++++++++++++++---
- src/gdbm_load.c | 20 ++++++++++++++++++--
- 2 files changed, 40 insertions(+), 5 deletions(-)
+ NEWS              | 13 ++++++++++++-
+ doc/gdbm.texi     | 25 ++++++++++++++++++++++---
+ tools/gdbm_load.c | 20 ++++++++++++++++++--
+ 3 files changed, 52 insertions(+), 6 deletions(-)
 
+diff --git a/NEWS b/NEWS
+index 16d8d2a..a0d16b1 100644
+--- a/NEWS
++++ b/NEWS
+@@ -1,8 +1,19 @@
+-GNU dbm NEWS -- history of user-visible changes. 2022-02-04
++GNU dbm NEWS -- history of user-visible changes. 2022-07-01
+ Copyright (C) 1990-2022 Free Software Foundation, Inc.
+ See the end of file for copying conditions.
+ 
+ Please send gdbm bug reports to <bug-gdbm@gnu.org>.
++&#xc;
++
++* New gdbm_load option: --update
++
++The --update (-U) option instructs gdbm_load to update an existing
++database, whose name is supplied by the second argument.
++
++* Fix semantics of gdbm_load -r
++
++The --replace (-r) is valid only when used together with --update.
++
+ &#xc;
+ Version 1.23, 2022-02-04
+ 
 diff --git a/doc/gdbm.texi b/doc/gdbm.texi
-index a738c85..d39144f 100644
+index e34873f..4fa841f 100644
 --- a/doc/gdbm.texi
 +++ b/doc/gdbm.texi
-@@ -3210,6 +3210,8 @@ symmetry).  A special code @samp{all} stands for all available error codes.
+@@ -3251,6 +3251,8 @@ symmetry).  A special code @samp{all} stands for all available error codes.
  
  In boolean context, the @code{true} value is equivalent to @samp{all},
  and @code{false} (i.e. variable unset) is equivalent to @samp{-all}.
@@ -27,7 +54,7 @@
  @end deftypevr
  
  @deftypevr {gdbmtool variable} string errormask
-@@ -4029,9 +4031,17 @@ must be given as the second argument.
+@@ -4070,9 +4072,17 @@ must be given as the second argument.
  
  In general, if two arguments are given, the second one is treated as
  the name of the database to create, overriding the file name specified
@@ -47,7 +74,7 @@
  
  @table @option
  
-@@ -4057,7 +4067,16 @@ Do not restore file meta-data (ownership and mode) from the flat file.
+@@ -4098,7 +4108,16 @@ Do not restore file meta-data (ownership and mode) from the flat file.
  
  @item -r
  @itemx --replace
@@ -65,10 +92,10 @@
  
  @item -u @var{user}:@var{group}
  @itemx --user=@var{user}:@var{group}
-diff --git a/src/gdbm_load.c b/src/gdbm_load.c
-index 41cb820..b2809e1 100644
---- a/src/gdbm_load.c
-+++ b/src/gdbm_load.c
+diff --git a/tools/gdbm_load.c b/tools/gdbm_load.c
+index b4691c9..5d5e50e 100644
+--- a/tools/gdbm_load.c
++++ b/tools/gdbm_load.c
 @@ -32,8 +32,9 @@ gid_t owner_gid;
  char *parseopt_program_doc = N_("load a GDBM database from a file");
  char *parseopt_program_args = N_("FILE DB_FILE");
@@ -85,8 +112,8 @@
  	break;
  
 +      case 'U':
-+       oflags = (oflags & ~GDBM_OPENMASK) | GDBM_WRCREAT;
-+       break;
++	oflags = (oflags & ~GDBM_OPENMASK) | GDBM_WRCREAT;
++	break;
 +
        case 'u':
  	{
@@ -96,7 +123,7 @@
    if (argc > 2)
      {
 -      error (_("too many arguments; try `%s -h' for more info"), progname);
-+      error (_("too many arguments; try `%s -h' for more info"), progname);
++      error (_("too many arguments; try `%s -h' for more info"));
 +      exit (EXIT_USAGE);
 +    }
 +
@@ -118,5 +145,5 @@
      dbname = NULL;
  
 -- 
-1.8.3.1
+2.33.0

_service:tar_scm:Improve-handling-of-u-in-gdbm_load.patch Changed

@@ -1,14 +1,14 @@
 From 4cfdc68fd862a4e80f42f14aa92cb25db08b2466 Mon Sep 17 00:00:00 2001
 From: Sergey Poznyakoff <gray@gnu.org>
 Date: Sat, 2 Jul 2022 19:29:47 +0300
-Subject: PATCH Improve handling of -u in gdbm_load
+Subject: PATCH 12/14 Improve handling of -u in gdbm_load
 
-* src/gdbm_load.c (main): Imply the owner login group if owner name
+* tools/gdbm_load.c (main): Imply the owner login group if owner name
 is followed by a :, and the current login group otherwise.
 * doc/gdbm.texi: Document changes.
 ---
  doc/gdbm.texi     | 13 ++++++++-----
- src/gdbm_load.c |  9 +++++++--
+ tools/gdbm_load.c |  9 +++++++--
  2 files changed, 15 insertions(+), 7 deletions(-)
 
 diff --git a/doc/gdbm.texi b/doc/gdbm.texi
@@ -37,10 +37,10 @@
  
  @item -h
  @itemx --help
-diff --git a/src/gdbm_load.c b/src/gdbm_load.c
+diff --git a/tools/gdbm_load.c b/tools/gdbm_load.c
 index 5d5e50e..e7e2ab1 100644
---- a/src/gdbm_load.c
-+++ b/src/gdbm_load.c
+--- a/tools/gdbm_load.c
++++ b/tools/gdbm_load.c
 @@ -148,9 +148,10 @@ main (int argc, char **argv)
  	{
  	  size_t len;
@@ -74,5 +74,5 @@
  	}
  	break;
 -- 
-1.8.3.1
+2.33.0

_service:tar_scm:Minor-fix-in-the-compatibility-library.patch Added

@@ -0,0 +1,60 @@
+From 3e63a788d4c7b5cb1173937118135c2bcca35a02 Mon Sep 17 00:00:00 2001
+From: Sergey Poznyakoff <gray@gnu.org>
+Date: Fri, 3 Mar 2023 13:52:56 +0200
+Subject: PATCH Minor fix in the compatibility library.
+
+* compat/dbmopen.c (ndbm_open_dir_file0): Don't try to unlink
+the 1.8-compatible dir file or create a missing one if the database
+is being opened read-only.
+---
+ compat/dbmopen.c | 26 +++++++++++++++++++++-----
+ 1 file changed, 21 insertions(+), 5 deletions(-)
+
+diff --git a/compat/dbmopen.c b/compat/dbmopen.c
+index b11af98..cb979b5 100644
+--- a/compat/dbmopen.c
++++ b/compat/dbmopen.c
+@@ -81,12 +81,21 @@ ndbm_open_dir_file0 (const char *file_name, int pagfd, int mode)
+ 	{
+ 	  if (st.st_dev == pagst.st_dev && st.st_ino == pagst.st_ino)
+ 	    {
+-	      if (unlink (file_name))
++	      if (flags == O_RDONLY)
+ 		{
+-		  if ((mode & GDBM_OPENMASK) == GDBM_READER)
+-		    /* Ok, try to cope with it. */
+-		    return pagfd;
+-		  else if (errno != ENOENT)
++		  /*
++		   * Don't touch the link if the database is opened read-only.
++		   * Return a meaningful file descriptor for the sake
++		   * of those programs that compare it with pagfd trying
++		   * to detect old GDBM versions (as Sendmail does).
++		   */
++		  if ((fd = open ("/dev/null", flags)) == -1)
++		    gdbm_set_errno (NULL, GDBM_FILE_OPEN_ERROR, TRUE); 
++		  return fd;
++		}
++	      else if (unlink (file_name))
++		{
++		  if (errno != ENOENT)
+ 		    {
+ 		      gdbm_set_errno (NULL, GDBM_FILE_OPEN_ERROR, TRUE); 
+ 		      return -1;
+@@ -138,6 +147,13 @@ ndbm_open_dir_file0 (const char *file_name, int pagfd, int mode)
+ 	  return -1;
+ 	}
+     }
++  else if (flags == O_RDONLY)
++    {
++      /* See the comment above. */
++      if ((fd = open ("/dev/null", flags)) == -1)
++	gdbm_set_errno (NULL, GDBM_FILE_OPEN_ERROR, TRUE); 
++      return fd;
++    }
+   
+   /* File does not exist.  Create it. */
+   fd = open (file_name, flags | O_CREAT, pagst.st_mode & 0777);
+-- 
+2.33.0
+

_service:tar_scm:Restore-accidentally-removed-parameter-and-New-macro.patch Added

@@ -0,0 +1,53 @@
+From 331f05ac9c58d358806fe1bcba88a01467ab0895 Mon Sep 17 00:00:00 2001
+From: Sergey Poznyakoff <gray@gnu.org>
+Date: Mon, 4 Jul 2022 13:41:43 +0300
+Subject: PATCH Bugfix
+
+* tools/gdbm_load.c (main): Restore accidentally removed parameter.
+* tools/gdbmapp.h (GDBM_PRINTFLIKE): New macro
+(gdbm_perror, sys_perror, error): Mark as printf-like.
+---
+ tools/gdbm_load.c |  2 +-
+ tools/gdbmapp.h   | 10 +++++++---
+ 2 files changed, 8 insertions(+), 4 deletions(-)
+
+diff --git a/tools/gdbm_load.c b/tools/gdbm_load.c
+index e7e2ab1..78ab6a8 100644
+--- a/tools/gdbm_load.c
++++ b/tools/gdbm_load.c
+@@ -238,7 +238,7 @@ main (int argc, char **argv)
+ 
+   if (argc > 2)
+     {
+-      error (_("too many arguments; try `%s -h' for more info"));
++      error (_("too many arguments; try `%s -h' for more info"), progname);
+       exit (EXIT_USAGE);
+     }
+ 
+diff --git a/tools/gdbmapp.h b/tools/gdbmapp.h
+index 1bccb3d..94c04f6 100644
+--- a/tools/gdbmapp.h
++++ b/tools/gdbmapp.h
+@@ -21,12 +21,16 @@
+ # include <locale.h>
+ #endif
+ 
++#ifndef GDBM_PRINTFLIKE
++# define GDBM_PRINTFLIKE(fmt,narg) __attribute__ ((__format__ (__printf__, fmt, narg)))
++#endif
++
+ extern const char *progname;
+ 
+ void set_progname (const char *arg);
+-void gdbm_perror (const char *fmt, ...);
+-void sys_perror (int code, const char *fmt, ...);
+-void error (const char *fmt, ...);
++void gdbm_perror (const char *fmt, ...) GDBM_PRINTFLIKE(1,2);
++void sys_perror (int code, const char *fmt, ...) GDBM_PRINTFLIKE(2,3);
++void error (const char *fmt, ...) GDBM_PRINTFLIKE(1,2);
+ void verror (const char *fmt, va_list ap);
+ 
+ void *emalloc (size_t size);
+-- 
+2.33.0
+

_service:tar_scm:gdbm_dump-fix-command-line-error-detection.patch Changed

_service Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/cachetree.c Deleted

@@ -1,484 +0,0 @@
-/* cachetree.c - Implementation of the red-black tree for cache lookups. */
-
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 2019-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
-
-#include "autoconf.h"
-#include "gdbmdefs.h"
-
-enum cache_node_color { RED, BLACK };
-
-struct cache_tree
-{
-  cache_node *root;   /* Root of the tree */
-  cache_node *avail;  /* List of available nodes, linked by parent field */
-};
-
-/* Allocate and return a new node.  Pick the head item from the avail
-   list and update the avail pointer.  If the list is empty, malloc
-   a new node.
-   All members in the returned node are filled with 0.
-*/
-static cache_node *
-rbt_node_alloc (cache_tree *tree)
-{
-  cache_node *n;
-
-  n = tree->avail;
-  if (n)
-    tree->avail = n->parent;
-  else
-    {
-      n = malloc (sizeof (*n));
-      if (!n)
-	return NULL;
-    }
-  memset (n, 0, sizeof (*n));
-  return n;
-}
-
-/* Return the node N to the avail list in TREE. */
-static void
-rbt_node_dealloc (cache_tree *tree, cache_node *n)
-{
-  n->parent = tree->avail;
-  tree->avail = n;
-}
-&#xc;
-/* Red-black tree properties:
-     1. Each node is either red or black.
-     2. The root node is black.
-     3. All leaves are black and contain no data.
-     4. Every red node has two children, and both are black.
-        IOW, the parent of every red node is black.
-     5. All paths from any given node to its leaf nodes contain the same
-        number of black nodes.
- */
-
-/* Auxiliary functions for accessing nodes. */
-
-/* Return the grandparent node of N.
-   Prerequisite: N may not be root.
-*/
-static inline cache_node *
-grandparent (cache_node *n)
-{
-  return n->parent->parent;
-}
-
-/* Return the sibling node of N.
-   Prerequisite: N may not be root.
-*/   
-static inline cache_node *
-sibling (cache_node *n)
-{
-  return (n == n->parent->left) ? n->parent->right : n->parent->left;
-}
-
-/* Return the uncle node of N.
-   Prerequisite: N must be at least 2 nodes away from root.
-*/   
-static inline cache_node *
-uncle (cache_node *n)
-{
-  return sibling (n->parent);
-}
-
-/* Returns the color of the node N.
-   Empty leaves are represented by NULL, therefore NULL is assumed to
-   be black (see property 3).
-*/
-static inline enum cache_node_color
-node_color (cache_node *n)
-{
-  return n == NULL ? BLACK : n->color;
-}
-
-/* Replace the OLDN with NEWN.
-   Does not modify OLDN. */
-static inline void
-replace_node (cache_tree *tree, cache_node *oldn, cache_node *newn)
-{
-  if (oldn->parent == NULL)
-    tree->root = newn;
-  else if (oldn == oldn->parent->left)
-    oldn->parent->left = newn;
-  else
-    oldn->parent->right = newn;
-
-  if (newn != NULL)
-    newn->parent = oldn->parent;
-}
-
-/* Rotate the TREE left over the node N. */
-static inline void
-rotate_left (cache_tree *tree, cache_node *n)
-{
-  cache_node *right = n->right;
-  replace_node (tree, n, right);
-  n->right = right->left;
-  if (right->left != NULL)
-    right->left->parent = n;
-  right->left = n;
-  n->parent = right;
-}
-
-/* Rotate the TREE right over the node N. */
-static inline void
-rotate_right (cache_tree *tree, cache_node *n)
-{
-  cache_node *left = n->left;
-  replace_node (tree, n, left);
-  n->left = left->right;
-  if (left->right != NULL)
-    left->right->parent = n;
-  left->right = n;
-  n->parent = left;
-}
-&#xc;
-/* Node deletion */
-static inline void
-rbt_delete_fixup (cache_tree *tree, cache_node *n)
-{
-  while (1)
-    {
-      if (n->parent == NULL)
-	{
-	  /* If N has become the root node, deletion resulted in removing
-	     one black node (prior root) from every path, so all properties
-	     still hold.
-	  */
-	  return;
-	}
-      else
-	{
-	  /* If N has a red sibling, change the colors of the parent and
-	     sibling and rotate about the parent.  Thus, the sibling becomes
-	     grandparent and we can proceed to the next case.
-	  */
-	  if (node_color (sibling (n)) == RED)
-	    {
-	      n->parent->color = RED;
-	      sibling (n)->color = BLACK;
-	      if (n == n->parent->left)
-		rotate_left (tree, n->parent);
-	      else
-		rotate_right (tree, n->parent);
-	    }
-
-	  /* If the parent, sibling and nephews are all black, paint the
-	     sibling red.  This means one black node was removed from all
-	     paths passing through the parent, so we recurse to the beginning
-	     of the loop with parent as the argument to restore the properties.
-	     This is the only branch that loops.
-	  */
-	  if (node_color (n->parent) == BLACK
-	      && node_color (sibling (n)) == BLACK
-	      && node_color (sibling (n)->left) == BLACK
-	      && node_color (sibling (n)->right) == BLACK)
-	    {
-	      sibling (n)->color = RED;
-	      n = n->parent;
-	      continue;
-	    }
-	  else
-	    {
-	      /* If the sibling and nephews are black but the parent is red,

_service:tar_scm:gdbm-1.22.tar.gz/src/datconv.c Deleted

@@ -1,566 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
-
-#include "gdbmtool.h"
-#include <wctype.h>
-
-#define DEFFMT(name, type, fmt)			\
-static int					\
-name (FILE *fp, void *ptr, int size)            \
-{                                               \
-  fprintf (fp, fmt, *(type*) ptr);              \
-  return size;                                  \
-}
-
-DEFFMT (f_char, char, "%c")
-DEFFMT (f_short, short, "%hd")
-DEFFMT (f_ushort, unsigned short, "%hu")
-DEFFMT (f_int, int, "%d")
-DEFFMT (f_uint, unsigned, "%u")
-DEFFMT (f_long, long, "%ld")
-DEFFMT (f_ulong, unsigned long, "%lu")
-DEFFMT (f_llong, long long, "%lld")
-DEFFMT (f_ullong, unsigned long long, "%llu")
-DEFFMT (f_float, float, "%f")
-DEFFMT (f_double, double, "%e")
-
-static int
-f_stringz (FILE *fp, void *ptr, int size)
-{
-  wchar_t wc;
-  char *str = ptr;
-  int i;
-
-  mbtowc (NULL, NULL, 0);
-  for (i = 0; i < size; )
-    {
-      int n = mbtowc (&wc, &stri, MB_CUR_MAX);
-      if (n == 0)
-	break;
-      if (n == -1 || !iswprint (wc))
-	{
-	  int c;
-	  if ((c = escape (stri)))
-	    fprintf (fp, "\\%c", c);
-	  else
-	    fprintf (fp, "\\%03o", *(unsigned char*)(str+i));
-	  i++;
-	}
-      else
-	{
-	  fwrite (str + i, n, 1, fp);
-	  i += n;
-	}
-    }
-  return i + 1;
-}
-
-static int
-f_string (FILE *fp, void *ptr, int size)
-{
-  wchar_t wc;
-  char *str = ptr;
-  int i;
-  
-  mbtowc (NULL, NULL, 0);
-  for (i = 0; i < size; )
-    {
-      int n = mbtowc (&wc, &stri, MB_CUR_MAX);
-      if (n == 0)
-	{
-	  fprintf (fp, "\\%03o", *(unsigned char*)str);
-	  i++;
-	}
-      else if (n == -1 || !iswprint (wc))
-	{
-	  int c;
-	  if ((c = escape (stri)))
-	    fprintf (fp, "\\%c", c);
-	  else
-	    fprintf (fp, "\\%03o", *(unsigned char*)(str+i));
-	  i++;
-	}
-      else
-	{
-	  fwrite (str + i, n, 1, fp);
-	  i += n;
-	}
-    }
-  return i;
-}
-&#xc;
-int
-s_char (struct xdatum *xd, char *str)
-{
-  xd_store (xd, str, 1);
-  return 0;
-}
-
-#define DEFNSCAN(name, type, temptype, strto)	\
-int						\
-name (struct xdatum *xd, char *str)             \
-{                                               \
-  temptype n;                                   \
-  type t;                                       \
-  char *p;                                      \
-                                                \
-  errno = 0;                                    \
-  n = strto (str, &p, 0);                       \
-  if (*p)                                       \
-    return 1;                                   \
-  if (errno == ERANGE || (t = n) != n)          \
-    return 1;                                   \
-  xd_store (xd, &t, sizeof (t));                \
-  return 0;                                     \
-}
-
-DEFNSCAN(s_short, short, long, strtol);
-DEFNSCAN(s_ushort, unsigned short, unsigned long, strtoul);
-DEFNSCAN(s_int, int, long, strtol)
-DEFNSCAN(s_uint, unsigned, unsigned long, strtol)
-DEFNSCAN(s_long, long, long, strtoul)
-DEFNSCAN(s_ulong, unsigned long, unsigned long, strtoul)
-DEFNSCAN(s_llong, long long, long long, strtoll)
-DEFNSCAN(s_ullong, unsigned long long, unsigned long long, strtoull)
-
-int
-s_double (struct xdatum *xd, char *str)
-{
-  double d;
-  char *p;
-  
-  errno = 0;
-  d = strtod (str, &p);
-  if (errno || *p)
-    return 1;
-  xd_store (xd, &d, sizeof (d));
-  return 0;
-}
-
-int
-s_float (struct xdatum *xd, char *str)
-{
-  float d;
-  char *p;
-  
-  errno = 0;
-  d = strtod (str, &p);
-  if (errno || *p)
-    return 1;
-  xd_store (xd, &d, sizeof (d));
-  return 0;
-}
-
-int
-s_stringz (struct xdatum *xd, char *str)
-{
-  xd_store (xd, str, strlen (str) + 1);
-  return 0;
-}
-
-int
-s_string (struct xdatum *xd, char *str)
-{
-  xd_store (xd, str, strlen (str));
-  return 0;
-}
-
-static struct datadef datatab = {
-  { "char",     sizeof(char),      f_char, s_char },
-  { "short",    sizeof(short),     f_short, s_short },
-  { "ushort",   sizeof(unsigned short), f_ushort, s_ushort },
-  { "int",      sizeof(int),       f_int, s_int  },
-  { "unsigned", sizeof(unsigned),  f_uint, s_uint },
-  { "uint",     sizeof(unsigned),  f_uint, s_uint },
-  { "long",     sizeof(long),      f_long, s_long },
-  { "ulong",    sizeof(unsigned long),     f_ulong, s_ulong },
-  { "llong",    sizeof(long long), f_llong, s_llong },
-  { "ullong",   sizeof(unsigned long long), f_ullong, s_ullong },
-  { "float",    sizeof(float),     f_float, s_float }, 
-  { "double",   sizeof(double),    f_double, s_double },
-  { "stringz",  0, f_stringz, s_stringz },
-  { "string",   0, f_string, s_string },
-  { NULL }
-};
-
-struct datadef *

_service:tar_scm:gdbm-1.22.tar.gz/src/err.c Deleted

@@ -1,69 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 2011-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
-
-# include "autoconf.h"
-# include "gdbm.h"
-# include "gdbmapp.h"
-# include <stdio.h>
-# include <errno.h>
-# include <string.h>
-
-static void
-prerror (const char *fmt, va_list ap, const char *diag, const char *sysdiag)
-{
-  fprintf (stderr, "%s: ", progname);
-  vfprintf (stderr, fmt, ap);
-  if (diag)
-    fprintf (stderr, ": %s", diag);
-  if (sysdiag)
-    fprintf (stderr, ": %s", sysdiag);
-  fputc ('\n', stderr);
-}
-
-void
-verror (const char *fmt, va_list ap)
-{
-  prerror (fmt, ap, NULL, NULL);
-}
-
-void
-error (const char *fmt, ...)
-{
-  va_list ap;
-  va_start (ap, fmt);
-  verror (fmt, ap);
-  va_end (ap);
-}
-
-void
-sys_perror (int code, const char *fmt, ...)
-{
-  va_list ap;
-  va_start (ap, fmt);
-  prerror (fmt, ap, strerror (code), NULL);
-  va_end (ap);
-}
-
-void
-gdbm_perror (const char *fmt, ...)
-{
-  va_list ap;
-  va_start (ap, fmt);
-  prerror (fmt, ap, gdbm_strerror (gdbm_errno),
-	   gdbm_syserrgdbm_errno ? strerror (errno) : NULL);
-  va_end (ap);
-}
-

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbm_dump.c Deleted

@@ -1,132 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 2011-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
-
-# include "autoconf.h"
-# include "gdbm.h"
-# include "gdbmapp.h"
-# include "gdbmdefs.h"
-
-char *parseopt_program_doc = N_("dump a GDBM database to a file");
-char *parseopt_program_args = N_("DB_FILE FILE");
-struct gdbm_option optab = {
-  { 'H', "format", "binary|ascii|0|1", N_("select dump format") },
-  { 0 }
-};
-
-int format = GDBM_DUMP_FMT_ASCII;
-
-int
-main (int argc, char **argv)
-{
-  GDBM_FILE dbf;
-  int rc, opt;
-  char *dbname, *filename;
-  FILE *fp;
-
-#ifdef HAVE_SETLOCALE
-  setlocale (LC_ALL, "");
-#endif
-  bindtextdomain (PACKAGE, LOCALEDIR);
-  textdomain (PACKAGE);
-
-  set_progname (argv0);
-
-  for (opt = parseopt_first (argc, argv, optab);
-       opt != EOF;
-       opt = parseopt_next ())
-    {
-    switch (opt)
-      {
-      case 'H':
-	if (strcmp (optarg, "binary") == 0)
-	  format = GDBM_DUMP_FMT_BINARY;
-	else if (strcmp (optarg, "ascii") == 0)
-	  format = GDBM_DUMP_FMT_ASCII;
-	else
-	  {
-	    format = atoi (optarg);
-	    switch (format)
-	      {
-	      case GDBM_DUMP_FMT_BINARY:
-	      case GDBM_DUMP_FMT_ASCII:
-		break;
-	      default:
-		error (_("unknown dump format"));
-		exit (EXIT_USAGE);
-	      }
-	  }
-	break;
-	
-      default:
-	error (_("unknown option"));
-	exit (EXIT_USAGE);
-      }
-    }
-
-  argc -= optind;
-  argv += optind;
-
-  if (argc == 0)
-    {
-      parseopt_print_help ();
-      exit (EXIT_OK);
-    }
-
-  if (argc > 2)
-    {
-      error (_("too many arguments; try `%s -h' for more info"), progname);
-      exit (EXIT_USAGE);
-    }
-  
-  dbname = argv0;
-  if (argc == 2)
-    filename = argv1;
-  else
-    filename = NULL;
-
-  if (!filename || strcmp (filename, "-") == 0)
-    {
-      filename = "<stdout>";
-      fp = stdout;
-    }
-  else
-    {
-      fp = fopen (filename, "w");
-      if (!fp)
-	{
-	  sys_perror (errno, _("cannot open %s"), filename);
-	  exit (EXIT_FATAL);
-	}
-    }
-
-  dbf = gdbm_open (dbname, 0, GDBM_READER, 0600, NULL);
-  if (!dbf)
-    {
-      gdbm_perror (_("gdbm_open failed"));
-      exit (EXIT_FATAL);
-    }
-
-  rc = gdbm_dump_to_file (dbf, fp, format);
-  if (rc)
-    {
-      gdbm_perror (_("dump error"), filename);
-    }
-  
-  gdbm_close (dbf);
-
-  exit (rc == GDBM_NO_ERROR ? EXIT_OK : EXIT_FATAL);
-}
-

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbm_load.c Deleted

@@ -1,317 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 2011-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
-
-# include "autoconf.h"
-# include "gdbm.h"
-# include "gdbmapp.h"
-# include "gdbmdefs.h"
-# include <pwd.h>
-# include <grp.h>
-
-int replace = 0;
-int meta_mask = 0;
-int no_meta_option;
-
-int mode;
-uid_t owner_uid;
-gid_t owner_gid;
-
-char *parseopt_program_doc = N_("load a GDBM database from a file");
-char *parseopt_program_args = N_("FILE DB_FILE");
-struct gdbm_option optab = {
-  { 'r', "replace", NULL, N_("replace records in the existing database") },
-  { 'm', "mode", N_("MODE"), N_("set file mode") },
-  { 'u', "user", N_("NAME|UID:NAME|GID"), N_("set file owner") },
-  { 'n', "no-meta", NULL, N_("do not attempt to set file meta-data") },
-  { 'M', "mmap", NULL, N_("use memory mapping") },
-  { 'c', "cache-size", N_("NUM"), N_("set the cache size") },
-  { 'b', "block-size", N_("NUM"), N_("set the block size") },
-  { 0 }
-};
-
-static int
-set_meta_info (GDBM_FILE dbf)
-{
-  if (meta_mask)
-    {
-      int fd = gdbm_fdesc (dbf);
-
-      if (meta_mask & GDBM_META_MASK_OWNER)
-	{
-	  if (fchown (fd, owner_uid, owner_gid))
-	    {
-	      GDBM_SET_ERRNO (dbf, GDBM_ERR_FILE_OWNER, FALSE);
-	      return 1;
-	    }
-	}
-      if ((meta_mask & GDBM_META_MASK_MODE) && fchmod (fd, mode))
-	{
-	  GDBM_SET_ERRNO (dbf, GDBM_ERR_FILE_OWNER, FALSE);
-	  return 1;
-	}
-    }
-  return 0;
-}
-
-static int
-get_int (const char *arg)
-{
-  char *p;
-  long n;
- 
-  errno = 0;
-  n = strtol (arg, &p, 0);
-  if (*p)
-    {
-      error (_("invalid number: %s"), arg);
-      exit (EXIT_USAGE);
-    }
-  if (errno)
-    {
-      error (_("invalid number: %s: %s"), arg, strerror (errno));
-      exit (EXIT_USAGE);
-    }
-  return n;
-}
-
-int
-main (int argc, char **argv)
-{
-  GDBM_FILE dbf = NULL;
-  int rc, opt;
-  char *dbname, *filename;
-  FILE *fp;
-  unsigned long err_line, n;
-  char *end;
-  int oflags = GDBM_NEWDB|GDBM_NOMMAP;
-  int cache_size = 0;
-  int block_size = 0;
-  
-#ifdef HAVE_SETLOCALE
-  setlocale (LC_ALL, "");
-#endif
-  bindtextdomain (PACKAGE, LOCALEDIR);
-  textdomain (PACKAGE);
-
-  set_progname (argv0);
-
-  for (opt = parseopt_first (argc, argv, optab);
-       opt != EOF;
-       opt = parseopt_next ())
-    {
-    switch (opt)
-      {
-      case 'b':
-	block_size = get_int (optarg);
-	break;
-	
-      case 'c':
-	cache_size = get_int (optarg);
-	break;
-
-      case 'm':
-	{
-	  errno = 0;
-	  n = strtoul (optarg, &end, 8);
-	  if (*end == 0 && errno == 0)
-	    {
-	      mode = n & 0777;
-	      meta_mask |= GDBM_META_MASK_MODE;
-	    }
-	  else
-	    {
-	      error ("%s", _("invalid octal number"));
-	      exit (EXIT_USAGE);
-	    }
-	}
-	break;
-
-      case 'u':
-	{
-	  size_t len;
-	  struct passwd *pw;
-	  
-	  len = strcspn (optarg, ".:");
-	  if (optarglen)
-	    optarglen++ = 0;
-	  pw = getpwnam (optarg);
-	  if (pw)
-	    owner_uid = pw->pw_uid;
-	  else
-	    {
-	      errno = 0;
-	      n = strtoul (optarg, &end, 10);
-	      if (*end == 0 && errno == 0)
-		owner_uid = n;
-	      else
-		{
-		  error (_("invalid user name: %s"), optarg);
-		  exit (EXIT_USAGE);
-		}
-	    }
-	  
-	  if (optarglen)
-	    {
-	      char *grname = optarg + len;
-	      struct group *gr = getgrnam (grname);
-	      if (gr)
-		owner_gid = gr->gr_gid;
-	      else
-		{
-		  errno = 0;
-		  n = strtoul (grname, &end, 10);
-		  if (*end == 0 && errno == 0)
-		    owner_gid = n;
-		  else
-		    {
-		      error (_("invalid group name: %s"), grname);
-		      exit (EXIT_USAGE);
-		    }
-		}
-	    }
-	  else
-	    {
-	      if (!pw)
-		{
-		  pw = getpwuid (owner_uid);
-		  if (!pw)
-		    {
-		      error (_("no such UID: %lu"), (unsigned long)owner_uid);
-		      exit (EXIT_USAGE);
-		    }
-		}
-	      owner_gid = pw->pw_gid;
-	    }
-	  meta_mask |= GDBM_META_MASK_OWNER;
-	}

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmapp.h Deleted

@@ -1,64 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 2011-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
-
-#include <stdlib.h>
-#include <stdarg.h>
-#include "gettext.h"
-#ifdef HAVE_LOCALE_H
-# include <locale.h>
-#endif
-
-extern const char *progname;
-
-void set_progname (const char *arg);
-void gdbm_perror (const char *fmt, ...);
-void sys_perror (int code, const char *fmt, ...);
-void error (const char *fmt, ...);
-void verror (const char *fmt, va_list ap);
-
-void *emalloc (size_t size);
-void *erealloc (void *ptr, size_t size);
-void *ecalloc (size_t nmemb, size_t size);
-void *ezalloc (size_t size);
-char *estrdup (const char *str);
-void *e2nrealloc (void *p, size_t *pn, size_t s);
-
-#define PARSEOPT_HIDDEN 0x01
-#define PARSEOPT_ALIAS  0x02
-
-struct gdbm_option
-{
-  int opt_short;
-  char *opt_long;
-  char *opt_arg;
-  char *opt_descr;
-  int opt_flags;
-};
-
-int parseopt_first (int pc, char **pv, struct gdbm_option *options);
-int parseopt_next (void);
-void parseopt_print_help (void);
-
-extern char *parseopt_program_name;
-extern char *parseopt_program_doc;
-extern char *parseopt_program_args;
-
-/* Application exit codes */
-#define EXIT_OK      0
-#define EXIT_FATAL   1
-#define EXIT_MILD    2
-#define EXIT_USAGE   3 
-

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmshell.c Deleted

@@ -1,2970 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
-
-#include "gdbmtool.h"
-#include "gdbm.h"
-#include "gram.h"
-
-#include <errno.h>
-#include <ctype.h>
-#include <signal.h>
-#include <pwd.h>
-#include <sys/ioctl.h>
-#include <sys/wait.h>
-#include <sys/time.h>
-#include <sys/resource.h>
-#include <termios.h>
-#include <stdarg.h>
-#ifdef HAVE_LOCALE_H
-# include <locale.h>
-#endif
-
-static GDBM_FILE gdbm_file = NULL;   /* Database to operate upon */
-static datum key_data;               /* Current key */
-static datum return_data;            /* Current data */
-
-/* Return values for hanlders: */
-enum
-  {
-    GDBMSHELL_OK,       /* Success */
-    GDBMSHELL_GDBM_ERR, /* GDBM error */
-    GDBMSHELL_SYNTAX,   /* Syntax error (invalid argument etc) */
-    GDBMSHELL_ERR,      /* Other error */
-    GDBMSHELL_CANCEL    /* Operation canceled */
-  };
-
-static void
-datum_free (datum *dp)
-{
-  free (dp->dptr);
-  dp->dptr = NULL;
-}
-&#xc;
-
-int
-gdbmshell_setopt (char *name, int opt, int val)
-{
-  if (gdbm_file)
-    {
-      if (gdbm_setopt (gdbm_file, opt, &val, sizeof (val)) == -1)
-	{
-	  dberror (_("%s failed"), name);
-	  return 1;
-	}
-    }
-  return 0;
-}
-
-static void
-closedb (void)
-{
-  if (gdbm_file)
-    {
-      gdbm_close (gdbm_file);
-      gdbm_file = NULL;
-      variable_unset ("fd");
-    }
-
-  datum_free (&key_data);
-  datum_free (&return_data);
-}
-
-static int
-opendb (char *dbname, int fd)
-{
-  int cache_size = 0;
-  int block_size = 0;
-  int flags;
-  int filemode;
-  GDBM_FILE db;
-  int n;
-  
-  switch (variable_get ("cachesize", VART_INT, (void**) &cache_size))
-    {
-    case VAR_OK:
-    case VAR_ERR_NOTSET:
-      break;
-    default:
-      abort ();
-    }
-  switch (variable_get ("blocksize", VART_INT, (void**) &block_size))
-    {
-    case VAR_OK:
-    case VAR_ERR_NOTSET:
-      break;
-    default:
-      abort ();
-    }
-  
-  if (variable_get ("open", VART_INT, (void**) &flags) != VAR_OK)
-    abort ();
-  
-  if (flags == GDBM_NEWDB)
-    {
-      if (interactive () && variable_is_true ("confirm") &&
-	  access (dbname, F_OK) == 0)
-	{
-	  if (!getyn (_("database %s already exists; overwrite"), dbname))
-	    return GDBMSHELL_CANCEL;
-	}
-    }
-
-  if (variable_get ("format", VART_INT, (void**) &n) != VAR_OK)
-    abort ();
-
-  flags |= n;
-  
-  if (!variable_is_true ("lock"))
-    flags |= GDBM_NOLOCK;
-  if (!variable_is_true ("mmap"))
-    flags |= GDBM_NOMMAP;
-  if (variable_is_true ("sync"))
-    flags |= GDBM_SYNC;
-  
-  if (variable_get ("filemode", VART_INT, (void**) &filemode))
-    abort ();
-
-  if (fd > 0)
-    db = gdbm_fd_open (fd, dbname, block_size, flags | GDBM_CLOERROR, NULL);
-  else
-    {
-      char *name = tildexpand (dbname);
-      db = gdbm_open (name, block_size, flags, filemode, NULL);
-      free (name);
-    }
-
-  if (db == NULL)
-    {
-      dberror (_("cannot open database %s"), dbname);
-      return GDBMSHELL_GDBM_ERR;
-    }
-
-  if (cache_size &&
-      gdbm_setopt (db, GDBM_CACHESIZE, &cache_size, sizeof (int)) == -1)
-    dberror (_("%s failed"), "GDBM_CACHESIZE");
-
-  if (variable_is_true ("coalesce"))
-    {
-      gdbmshell_setopt ("GDBM_SETCOALESCEBLKS", GDBM_SETCOALESCEBLKS, 1);
-    }
-  if (variable_is_true ("centfree"))
-    {
-      gdbmshell_setopt ("GDBM_SETCENTFREE", GDBM_SETCENTFREE, 1);
-    }
-  
-  if (gdbm_file)
-    gdbm_close (gdbm_file);
-  
-  gdbm_file = db;
-  return GDBMSHELL_OK;
-}
-
-static int
-checkdb (void)
-{
-  if (!gdbm_file)
-    {
-      char *filename;
-      int fd = -1;
-      variable_get ("filename", VART_STRING, (void**) &filename);
-      variable_get ("fd", VART_INT, (void**) &fd);
-      return opendb (filename, fd);
-    }
-  return GDBMSHELL_OK;
-}
-
-static int
-checkdb_begin (struct command_param *param GDBM_ARG_UNUSED,
-	       struct command_environ *cenv GDBM_ARG_UNUSED,
-	       size_t *exp_count GDBM_ARG_UNUSED)
-{
-  return checkdb ();
-}
-&#xc;
-static size_t
-bucket_print_lines (hash_bucket *bucket)
-{

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmtool.c Deleted

@@ -1,289 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
-
-#include "gdbmtool.h"
-#include <errno.h>
-#include <ctype.h>
-#include <signal.h>
-#include <pwd.h>
-#include <sys/ioctl.h>
-#include <sys/wait.h>
-#include <termios.h>
-#include <stdarg.h>
-#ifdef HAVE_LOCALE_H
-# include <locale.h>
-#endif
-
-static void
-source_rcfile (void)
-{
-  instream_t istr = NULL;
-  
-  if (access (GDBMTOOLRC, R_OK) == 0)
-    {
-      istr = instream_file_create (GDBMTOOLRC);
-    }
-  else
-    {
-      char *fname;
-      char *p = getenv ("HOME");
-      if (!p)
-	{
-	  struct passwd *pw = getpwuid (getuid ());
-	  if (!pw)
-	    {
-	      terror (_("cannot find home directory"));
-	      return;
-	    }
-	  p = pw->pw_dir;
-	}
-      fname = mkfilename (p, GDBMTOOLRC, NULL);
-      if (access (fname, R_OK) == 0)
-	{
-	  istr = instream_file_create (GDBMTOOLRC);
-	}
-      free (fname);
-    }
-
-  if (istr)
-    {
-      if (input_context_push (istr))
-	exit (EXIT_FATAL);
-      yyparse ();
-    }
-}
-
-#if GDBM_DEBUG_ENABLE
-void
-debug_printer (char const *fmt, ...)
-{
-  va_list ap;
-
-  va_start (ap, fmt);
-  vfprintf (stderr, fmt, ap);
-  va_end (ap);
-}
-#endif
-
-&#xc;
-char *parseopt_program_doc = N_("examine and/or modify a GDBM database");
-char *parseopt_program_args = N_("DBFILE COMMAND ARG ...");
-
-enum {
-  OPT_LEX_TRACE = 256,
-  OPT_GRAM_TRACE
-};
-
-struct gdbm_option optab = {
-  { 'b', "block-size", N_("SIZE"), N_("set block size") },
-  { 'c', "cache-size", N_("SIZE"), N_("set cache size") },
-  { 'f', "file",       N_("FILE"), N_("read commands from FILE") },
-  { 'g', NULL, "FILE", NULL, PARSEOPT_HIDDEN },
-  { 'l', "no-lock",    NULL,       N_("disable file locking") },
-  { 'm', "no-mmap",    NULL,       N_("do not use mmap") },
-  { 'n', "newdb",      NULL,       N_("create database") },
-  { 'N', "norc",       NULL,       N_("do not read .gdbmtoolrc file") },
-  { 'r', "read-only",  NULL,       N_("open database in read-only mode") },
-  { 's', "synchronize", NULL,      N_("synchronize to disk after each write") },
-  { 'q', "quiet",      NULL,       N_("don't print initial banner") },
-  { 'd', "db-descriptor",
-    /* TRANSLATORS: File Descriptor. */
-    N_("FD"),
-    N_("open database at the given file descriptor") },
-  { 'x', "extended",   NULL,       N_("extended format (numsync)") },
-  {   0, "numsync",    NULL,       NULL, PARSEOPT_ALIAS },
-  { 't', "trace",      NULL,       N_("enable trace mode") },
-  { 'T', "timing",     NULL,       N_("print timing after each command") },
-#if GDBMTOOL_DEBUG    
-  { OPT_LEX_TRACE, "lex-trace", NULL, N_("enable lexical analyzer traces") },
-  { OPT_GRAM_TRACE, "gram-trace", NULL, N_("enable grammar traces") },
-#endif  
-  { 0 }
-};
-
-#ifdef WITH_READLINE
-# define instream_default_create   instream_readline_create
-#else
-# define instream_default_create   instream_stdin_create
-#endif
-
-struct gdbmtool_closure
-{
-  int argc;
-  char **argv;
-};
-
-static int
-gdbmtool_init (void *data, instream_t *pinstr)
-{
-  struct gdbmtool_closure *clos = data;
-  int argc = clos->argc;
-  char **argv = clos->argv;
-  int opt;
-  int bv;
-  int norc = 0;
-  char *source = NULL;
-  instream_t input = NULL;
-  
-  for (opt = parseopt_first (argc, argv, optab);
-       opt != EOF;
-       opt = parseopt_next ())
-    switch (opt)
-      {
-      case 'd':
-	if (variable_set ("fd", VART_STRING, optarg) != VAR_OK)
-	  {
-	    terror (_("invalid file descriptor: %s"), optarg);
-	    exit (EXIT_USAGE);
-	  }
-	break;
-	
-      case 'f':
-	source = optarg;
-	break;
-	
-      case 'l':
-	bv = 0;
-	variable_set ("lock", VART_BOOL, &bv);
-	break;
-
-      case 'm':
-	bv = 0;
-	variable_set ("mmap", VART_BOOL, &bv);
-	break;
-
-      case 's':
-	bv = 1;
-	variable_set ("sync", VART_BOOL, &bv);
-	break;
-	
-      case 'r':
-	variable_set ("open", VART_STRING, "readonly");
-	break;
-	
-      case 'n':
-	variable_set ("open", VART_STRING, "newdb");
-	break;
-
-      case 'N':
-	norc = 1;
-	break;
-	
-      case 'c':
-	variable_set ("cachesize", VART_STRING, optarg);
-	break;
-	
-      case 'b':
-	variable_set ("blocksize", VART_STRING, optarg);
-	break;
-
-      case 'g':
-	variable_set ("filename", VART_STRING, optarg);
-	break;
-
-      case 't':
-	bv = 1;
-	variable_set ("trace", VART_BOOL, &bv);

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmtool.h Deleted

@@ -1,411 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
-
-#include "autoconf.h"
-#include "gdbmdefs.h"
-#include "gdbm.h"
-#include "gdbmapp.h"
-#include <stdlib.h>
-#include <stdio.h>
-#include <stdarg.h>
-#include <string.h>
-#include <ctype.h>
-#include <limits.h>
-
-#ifndef GDBM_ARG_UNUSED
-# define GDBM_ARG_UNUSED __attribute__ ((__unused__))
-#endif
-
-#ifndef GDBM_PRINTFLIKE
-# define GDBM_PRINTFLIKE(fmt,narg) \
-  __attribute__ ((__format__ (__printf__, fmt, narg)))
-#endif
-
-/* Position in input file */
-struct point
-{
-  char *file;             /* file name */
-  unsigned line;          /* line number */  
-  unsigned col;           /* column number */ 
-};
-
-/* Location in input file */
-struct locus
-{
-  struct point beg, end;
-};
-
-typedef struct locus gdbm_yyltype_t;
- 
-#define YYLTYPE gdbm_yyltype_t 
-
-#define YYLLOC_DEFAULT(Current, Rhs, N)			      \
-  do							      \
-    {							      \
-      if (N)						      \
-	{						      \
-	  (Current).beg = YYRHSLOC(Rhs, 1).beg;		      \
-	  (Current).end = YYRHSLOC(Rhs, N).end;		      \
-	}						      \
-      else						      \
-	{						      \
-	  (Current).beg = YYRHSLOC(Rhs, 0).end;		      \
-	  (Current).end = (Current).beg;		      \
-	}						      \
-    }							      \
-  while (0)
-
-#define YY_LOCATION_PRINT(File, Loc)			  \
-  do							  \
-    {							  \
-      if ((Loc).beg.col == 0)				  \
-	fprintf (File, "%s:%u",				  \
-		 (Loc).beg.file,			  \
-		 (Loc).beg.line);			  \
-      else if (strcmp ((Loc).beg.file, (Loc).end.file))	  \
-	fprintf (File, "%s:%u.%u-%s:%u.%u",		  \
-		 (Loc).beg.file,			  \
-		 (Loc).beg.line, (Loc).beg.col,		  \
-		 (Loc).end.file,			  \
-		 (Loc).end.line, (Loc).end.col);	  \
-      else if ((Loc).beg.line != (Loc).end.line)	  \
-	fprintf (File, "%s:%u.%u-%u.%u",		  \
-		 (Loc).beg.file,			  \
-		 (Loc).beg.line, (Loc).beg.col,		  \
-		 (Loc).end.line, (Loc).end.col);	  \
-      else if ((Loc).beg.col != (Loc).end.col)		  \
-	fprintf (File, "%s:%u.%u-%u",			  \
-		 (Loc).beg.file,			  \
-		 (Loc).beg.line, (Loc).beg.col,		  \
-		 (Loc).end.col);			  \
-      else						  \
-	fprintf (File, "%s:%u.%u",			  \
-		 (Loc).beg.file,			  \
-		 (Loc).beg.line,			  \
-		 (Loc).beg.col);			  \
-    }							  \
-  while (0)
-
-void vlerror (struct locus *loc, const char *fmt, va_list ap);
-void lerror (struct locus *loc, const char *fmt, ...)
-	   GDBM_PRINTFLIKE (2, 3);
-
-void terror (const char *fmt, ...)
-	   GDBM_PRINTFLIKE (1, 2);
-void dberror (char const *fmt, ...)
-	   GDBM_PRINTFLIKE (1, 2);
-
-char *make_prompt (void);
-
-#define GDBMTOOLRC ".gdbmtoolrc"
-#define GDBMTOOL_DEFFILE "junk.gdbm"
-&#xc;
-typedef struct instream *instream_t;
-
-struct instream
-{
-  char *in_name;           /* Input stream name */
-  int in_inter;            /* True if this is an interactive stream */
-  ssize_t (*in_read) (instream_t, char*, size_t);
-                           /* Read from stream */
-  void (*in_close) (instream_t);
-                           /* Close the stream */
-  int (*in_eq) (instream_t, instream_t);
-                           /* Return true if both streams refer to the
-			      same input */
-  int (*in_history_size) (instream_t);
-                           /* Return size of the history buffer (entries) */
-  const char *(*in_history_get) (instream_t, int);
-                           /* Get Nth line from the history buffer */
-};
-
-static inline char const *
-instream_name (instream_t in)
-{
-  return in->in_name;
-}
-
-static inline ssize_t
-instream_read (instream_t in, char *buf, size_t size)
-{
-  return in->in_read (in, buf, size);
-}
-
-static inline void
-instream_close (instream_t in)
-{
-  in->in_close (in);
-}
-
-static inline int
-instream_interactive (instream_t in)
-{
-  return in->in_inter;
-}
-
-static inline int
-instream_eq (instream_t a, instream_t b)
-{
-  return a->in_eq (a, b);
-}
-
-static inline int
-instream_history_size (instream_t in)
-{
-  return in->in_history_size ? in->in_history_size (in) : -1;
-}
-
-static inline const char *
-instream_history_get (instream_t in, int n)
-{
-  return in->in_history_get ? in->in_history_get (in, n) : NULL;
-}
-
-instream_t instream_stdin_create (void);
-instream_t instream_argv_create (int argc, char **argv);
-instream_t instream_file_create (char const *name);
-instream_t instream_null_create (void);
-#ifdef WITH_READLINE
-instream_t instream_readline_create (void);
-#endif
-
-int interactive (void);
-int input_context_push (instream_t);
-int input_context_pop (void);
-void input_context_drain (void);
-int input_history_size (void);
-const char *input_history_get (int n);
-const char *input_stream_name (void);
-
-&#xc;
-void print_prompt_at_bol (void);
-char *command_generator (const char *text, int state);
-
-&#xc;
-struct slist
-{

_service:tar_scm:gdbm-1.22.tar.gz/src/gram.c Deleted

@@ -1,2080 +0,0 @@
-/* A Bison parser, made by GNU Bison 3.0.4.  */
-
-/* Bison implementation for Yacc-like parsers in C
-
-   Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
-
-   This program is free software: you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation, either version 3 of the License, or
-   (at your option) any later version.
-
-   This program is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
-
-/* As a special exception, you may create a larger work that contains
-   part or all of the Bison parser skeleton and distribute that work
-   under terms of your choice, so long as that work isn't itself a
-   parser generator using the skeleton or a modified version thereof
-   as a parser skeleton.  Alternatively, if you modify or redistribute
-   the parser skeleton itself, you may (at your option) remove this
-   special exception, which will cause the skeleton and the resulting
-   Bison output files to be licensed under the GNU General Public
-   License without this special exception.
-
-   This special exception was added by the Free Software Foundation in
-   version 2.2 of Bison.  */
-
-/* C LALR(1) parser skeleton written by Richard Stallman, by
-   simplifying the original so-called "semantic" parser.  */
-
-/* All symbols defined below should begin with yy or YY, to avoid
-   infringing on user name space.  This should be done even for local
-   variables, as they might otherwise be expanded by user macros.
-   There are some unavoidable exceptions within include files to
-   define necessary library symbols; they are noted "INFRINGES ON
-   USER NAME SPACE" below.  */
-
-/* Identify Bison output.  */
-#define YYBISON 1
-
-/* Bison version.  */
-#define YYBISON_VERSION "3.0.4"
-
-/* Skeleton name.  */
-#define YYSKELETON_NAME "yacc.c"
-
-/* Pure parsers.  */
-#define YYPURE 0
-
-/* Push parsers.  */
-#define YYPUSH 0
-
-/* Pull parsers.  */
-#define YYPULL 1
-
-
-
-
-/* Copy the first part of user declarations.  */
-#line 1 "gram.y" /* yacc.c:339  */
-
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
-
-#include <autoconf.h>
-#include "gdbmtool.h"
-
-struct dsegm *dsdefDS_MAX;
-  
-
-#line 90 "gram.c" /* yacc.c:339  */
-
-# ifndef YY_NULLPTR
-#  if defined __cplusplus && 201103L <= __cplusplus
-#   define YY_NULLPTR nullptr
-#  else
-#   define YY_NULLPTR 0
-#  endif
-# endif
-
-/* Enabling verbose error messages.  */
-#ifdef YYERROR_VERBOSE
-# undef YYERROR_VERBOSE
-# define YYERROR_VERBOSE 1
-#else
-# define YYERROR_VERBOSE 1
-#endif
-
-/* In a future release of Bison, this section will be replaced
-   by #include "gram.h".  */
-#ifndef YY_YY_GRAM_H_INCLUDED
-# define YY_YY_GRAM_H_INCLUDED
-/* Debug traces.  */
-#ifndef YYDEBUG
-# define YYDEBUG 0
-#endif
-#if YYDEBUG
-extern int yydebug;
-#endif
-
-/* Token type.  */
-#ifndef YYTOKENTYPE
-# define YYTOKENTYPE
-  enum yytokentype
-  {
-    T_TYPE = 258,
-    T_OFF = 259,
-    T_PAD = 260,
-    T_DEF = 261,
-    T_SET = 262,
-    T_UNSET = 263,
-    T_BOGUS = 264,
-    T_CMD = 265,
-    T_SHELL = 266,
-    T_NUM = 267,
-    T_IDENT = 268,
-    T_WORD = 269
-  };
-#endif
-
-/* Value type.  */
-#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
-
-union YYSTYPE
-{
-#line 51 "gram.y" /* yacc.c:355  */
-
-  char *string;
-  struct kvpair *kvpair;
-  struct { struct kvpair *head, *tail; } kvlist;
-  struct { struct slist *head, *tail; } slist;
-  struct gdbmarg *arg;
-  struct gdbmarglist arglist;
-  int num;
-  struct datadef *type;
-  struct dsegm *dsegm;
-  struct { struct dsegm *head, *tail; } dsegmlist;
-  struct command *cmd;
-
-#line 159 "gram.c" /* yacc.c:355  */
-};
-
-typedef union YYSTYPE YYSTYPE;
-# define YYSTYPE_IS_TRIVIAL 1
-# define YYSTYPE_IS_DECLARED 1
-#endif
-
-/* Location type.  */
-#if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED
-typedef struct YYLTYPE YYLTYPE;
-struct YYLTYPE
-{
-  int first_line;
-  int first_column;
-  int last_line;
-  int last_column;
-};
-# define YYLTYPE_IS_DECLARED 1
-# define YYLTYPE_IS_TRIVIAL 1
-#endif
-
-
-extern YYSTYPE yylval;
-extern YYLTYPE yylloc;
-int yyparse (void);
-
-#endif /* !YY_YY_GRAM_H_INCLUDED  */
-
-/* Copy the second part of user declarations.  */
-
-#line 190 "gram.c" /* yacc.c:358  */
-
-#ifdef short
-# undef short
-#endif
-
-#ifdef YYTYPE_UINT8
-typedef YYTYPE_UINT8 yytype_uint8;
-#else
-typedef unsigned char yytype_uint8;
-#endif

_service:tar_scm:gdbm-1.22.tar.gz/src/gram.h Deleted

@@ -1,109 +0,0 @@
-/* A Bison parser, made by GNU Bison 3.0.4.  */
-
-/* Bison interface for Yacc-like parsers in C
-
-   Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
-
-   This program is free software: you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation, either version 3 of the License, or
-   (at your option) any later version.
-
-   This program is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
-
-/* As a special exception, you may create a larger work that contains
-   part or all of the Bison parser skeleton and distribute that work
-   under terms of your choice, so long as that work isn't itself a
-   parser generator using the skeleton or a modified version thereof
-   as a parser skeleton.  Alternatively, if you modify or redistribute
-   the parser skeleton itself, you may (at your option) remove this
-   special exception, which will cause the skeleton and the resulting
-   Bison output files to be licensed under the GNU General Public
-   License without this special exception.
-
-   This special exception was added by the Free Software Foundation in
-   version 2.2 of Bison.  */
-
-#ifndef YY_YY_GRAM_H_INCLUDED
-# define YY_YY_GRAM_H_INCLUDED
-/* Debug traces.  */
-#ifndef YYDEBUG
-# define YYDEBUG 0
-#endif
-#if YYDEBUG
-extern int yydebug;
-#endif
-
-/* Token type.  */
-#ifndef YYTOKENTYPE
-# define YYTOKENTYPE
-  enum yytokentype
-  {
-    T_TYPE = 258,
-    T_OFF = 259,
-    T_PAD = 260,
-    T_DEF = 261,
-    T_SET = 262,
-    T_UNSET = 263,
-    T_BOGUS = 264,
-    T_CMD = 265,
-    T_SHELL = 266,
-    T_NUM = 267,
-    T_IDENT = 268,
-    T_WORD = 269
-  };
-#endif
-
-/* Value type.  */
-#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
-
-union YYSTYPE
-{
-#line 51 "gram.y" /* yacc.c:1909  */
-
-  char *string;
-  struct kvpair *kvpair;
-  struct { struct kvpair *head, *tail; } kvlist;
-  struct { struct slist *head, *tail; } slist;
-  struct gdbmarg *arg;
-  struct gdbmarglist arglist;
-  int num;
-  struct datadef *type;
-  struct dsegm *dsegm;
-  struct { struct dsegm *head, *tail; } dsegmlist;
-  struct command *cmd;
-
-#line 83 "gram.h" /* yacc.c:1909  */
-};
-
-typedef union YYSTYPE YYSTYPE;
-# define YYSTYPE_IS_TRIVIAL 1
-# define YYSTYPE_IS_DECLARED 1
-#endif
-
-/* Location type.  */
-#if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED
-typedef struct YYLTYPE YYLTYPE;
-struct YYLTYPE
-{
-  int first_line;
-  int first_column;
-  int last_line;
-  int last_column;
-};
-# define YYLTYPE_IS_DECLARED 1
-# define YYLTYPE_IS_TRIVIAL 1
-#endif
-
-
-extern YYSTYPE yylval;
-extern YYLTYPE yylloc;
-int yyparse (void);
-
-#endif /* !YY_YY_GRAM_H_INCLUDED  */

_service:tar_scm:gdbm-1.22.tar.gz/src/gram.y Deleted

@@ -1,434 +0,0 @@
-%{
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
-
-#include <autoconf.h>
-#include "gdbmtool.h"
-
-struct dsegm *dsdefDS_MAX;
-  
-%}
-
-%define parse.error verbose
-%locations
-     
-%token <type> T_TYPE
-%token T_OFF "off"
-       T_PAD "pad"
-       T_DEF "define"
-       T_SET "set"
-       T_UNSET "unset"
-       T_BOGUS
-
-%token <cmd> T_CMD "command verb"
-%token <cmd> T_SHELL "shell"
-%token <num> T_NUM "number"
-%token <string> T_IDENT "identifier" T_WORD "word"
-%type <cmd> command
-%type <string> string 
-%type <arg> arg
-%type <arglist> arglist arg1list
-%type <dsegm> def defbody
-%type <dsegmlist> deflist
-%type <num> defid
-%type <kvpair> kvpair compound value
-%type <kvlist> kvlist
-%type <slist> slist
-
-%union {
-  char *string;
-  struct kvpair *kvpair;
-  struct { struct kvpair *head, *tail; } kvlist;
-  struct { struct slist *head, *tail; } slist;
-  struct gdbmarg *arg;
-  struct gdbmarglist arglist;
-  int num;
-  struct datadef *type;
-  struct dsegm *dsegm;
-  struct { struct dsegm *head, *tail; } dsegmlist;
-  struct command *cmd;
-}
-
-%%
-
-input     : /* empty */
-          | stmtlist
-	  ;
-
-stmtlist  : stmt
-          | stmtlist stmt
-          ;
-
-stmt      : /* empty */ eol
-            {
-	      if (run_last_command ())
-		{
-		  YYABORT;
-		}
-	    }
-          | command arglist eol
-            {
-	      if (run_command ($1, &$2))
-		{
-		  YYABORT;
-		}
-	    }
-          | set eol
-          | defn eol
-	  | T_BOGUS eol
-	    {
-	      if (interactive ())
-		{
-		  yyclearin;
-		  yyerrok;
-		}
-	      else
-		YYERROR;
-	    }
-          | error { end_def(); } eol
-            {
-	      if (interactive ())
-		{
-		  yyclearin;
-		  yyerrok;
-		}
-	      else
-		YYERROR;
-	    }
-          ;
-
-command   : T_CMD
-          | T_SHELL
-          ;
-
-eol       : '\n'
-          | ';'
-          ;
-
-arglist   : /* empty */
-            {
-	      gdbmarglist_init (&$$, NULL);
-	    }
-          | arg1list
-	  ;
-
-arg1list  : arg
-            {
-	      gdbmarglist_init (&$$, $1);
-	    }
-          | arg1list arg
-	    {
-	      gdbmarglist_add (&$1, $2);
-	      $$ = $1;
-	    }
-          ;
-
-arg       : string
-            {
-	      $$ = gdbmarg_string ($1, &@1);
-	    }
-          | compound
-	    {
-	      $$ = gdbmarg_kvpair ($1, &@1);
-	    }
-	  ;
-
-compound  : '{' kvlist '}'
-            {
-	      $$ = $2.head;
-	    }
-          ;
-
-kvlist    : kvpair
-            {
-	      $$.head = $$.tail = $1;
-	    }
-          | kvlist ',' kvpair
-	    {
-	      if (kvlist_find ($1.head, $3->key))
-		{
-		  lerror (&@3, _("duplicate tag: %s"), $3->key);
-		  kvlist_free ($1.head);
-		  $1.head = $1.tail = NULL;
-		  YYERROR;
-		}
-	      $1.tail->next = $3;
-	      $1.tail = $3;
-	      $$ = $1;
-	    }
-          ;
-
-kvpair    : value
-          | T_IDENT '=' value
-	    {
-	      $3->key = $1;
-	      $$ = $3;
-	    }
-          ;
-
-value     : string
-            {
-	      $$ = kvpair_string (&@1, $1);
-	    }
-          | '{' slist '}'
-	    {
-	      $$ = kvpair_list (&@1, $2.head);
-	    }
-          ;
-
-slist     : string
-            {
-	      $$.head = $$.tail = slist_new_s ($1);
-	    }
-          | slist ',' string
-	    {
-	      struct slist *s = slist_new_s ($3);
-	      slist_insert (&$1.tail, s);

_service:tar_scm:gdbm-1.22.tar.gz/src/input-argv.c Deleted

@@ -1,132 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 2018-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
-
-#include "gdbmtool.h"
-#include <stdlib.h>
-
-struct instream_argv
-{
-  struct instream base;  /* Base structure */
-  int argc;              /* Number of arguments */
-  char **argv;           /* Vector of arguments */
-  int idx;               /* Index of the current argument */
-  char *cur;             /* Current position in argvidx */
-  int delim;             /* True if cur points to a delimiter */
-  int quote;             /* True if the argument must be quoted */
-};
-
-static ssize_t
-instream_argv_read (instream_t istr, char *buf, size_t size)
-{
-  size_t total = 0;
-  struct instream_argv *i = (struct instream_argv*)istr;
-  char const specials = " \"\t\n{},";
-  char const escapable = "\\\"";
-  
-  while (total < size)
-    {
-      if (*i->cur == 0)
-	{
-	  if (i->quote)
-	    {
-	      buftotal++ = '"';
-	      i->quote = 0;
-	      continue;
-	    }
-	  
-	  if (i->idx == i->argc)
-	    {
-	      if (!i->delim)
-		{
-		  i->cur = "\n";
-		  i->delim = 1;
-		}
-	      else
-		break;
-	    }
-	  else if (!i->delim)
-	    {
-	      i->cur = " ";
-	      i->delim = 1;
-	    }
-	  else
-	    {
-	      size_t len;
-	      i->cur = i->argvi->idx++;
-	      i->delim = 0;
-	      len = strlen (i->cur);
-	      if (len > 1 && i->cur0 == '"' && i->curlen-1 == '"')
-		i->quote = 0;
-	      else if (i->curstrcspn (i->cur, specials))
-		{
-		  buftotal++ = '"';
-		  i->quote = 1;
-		  continue;
-		}
-	      else
-		i->quote = 0;
-	    }
-	}
-      
-      if (strchr (escapable, *i->cur))
-	{
-	  if (total + 2 > size)
-	    break;
-	  buftotal++ = '\\';
-	}
-      buftotal++ = *i->cur++;
-    }
-  return total;
-}
-
-static void
-instream_argv_close (instream_t istr)
-{
-  struct instream_argv *i = (struct instream_argv *)istr;
-  free (i);
-}
-
-static int
-instream_argv_eq (instream_t a, instream_t b)
-{
-  return 0;
-}
-
-instream_t
-instream_argv_create (int argc, char **argv)
-{
-  struct instream_argv *istr;
-
-  istr = emalloc (sizeof *istr);
-  istr->base.in_name = "argv";
-  istr->base.in_inter = 0;
-  istr->base.in_read = instream_argv_read;
-  istr->base.in_close = instream_argv_close;
-  istr->base.in_eq = instream_argv_eq;
-  istr->base.in_history_size = NULL;
-  istr->base.in_history_get = NULL;  
-    
-  istr->argc = argc;
-  istr->argv = argv;
-  istr->idx = 0;
-  istr->cur = "";
-  istr->delim = 1;
-  istr->quote = 0;
-  
-  return (instream_t) istr;
-}
-
-

_service:tar_scm:gdbm-1.22.tar.gz/src/input-file.c Deleted

@@ -1,90 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 2018-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
-
-#include "gdbmtool.h"
-
-struct instream_file
-{
-  struct instream base;   /* Base structure */
-  FILE *fp;               /* Opened file */
-  dev_t dev;              /* Device number */
-  ino_t ino;              /* Inode number */
-};
-
-static ssize_t
-instream_file_read (instream_t istr, char *buf, size_t size)
-{
-  struct instream_file *file = (struct instream_file *)istr;
-  return fread (buf, 1, size, file->fp);
-}
-
-static void
-instream_file_close (instream_t istr)
-{
-  struct instream_file *file = (struct instream_file *)istr;
-  fclose (file->fp);
-  free (file->base.in_name);
-  free (file);
-}
-
-static int
-instream_file_eq (instream_t a, instream_t b)
-{
-  struct instream_file *file_a = (struct instream_file *)a;
-  struct instream_file *file_b = (struct instream_file *)b;
-  return file_a->dev == file_b->dev && file_a->ino == file_b->ino;
-}
-
-instream_t
-instream_file_create (char const *name)
-{
-  struct instream_file *istr;
-  struct stat st;
-  FILE *fp;
-
-  if (stat (name, &st))
-    {
-      terror (_("cannot open `%s': %s"), name, strerror (errno));
-      return NULL;
-    }
-  else if (!S_ISREG (st.st_mode))
-    {
-      terror (_("%s is not a regular file"), name);
-      return NULL;
-    }
-
-  fp = fopen (name, "r");
-  if (!fp)
-    {
-      terror (_("cannot open %s for reading: %s"), name,
-	      strerror (errno));
-      return NULL;
-    }
-  
-  istr = emalloc (sizeof *istr);
-  istr->base.in_name = estrdup (name);
-  istr->base.in_inter = 0;
-  istr->base.in_read = instream_file_read;
-  istr->base.in_close = instream_file_close;
-  istr->base.in_eq = instream_file_eq;
-  istr->base.in_history_size = NULL;
-  istr->base.in_history_get = NULL;  
-  istr->fp = fp;
-  istr->dev = st.st_dev;
-  istr->ino = st.st_ino;
-
-  return (instream_t) istr;
-}

_service:tar_scm:gdbm-1.22.tar.gz/src/input-null.c Deleted

@@ -1,53 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 2018-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
-
-#include "gdbmtool.h"
-
-static ssize_t
-instream_null_read (instream_t istr, char *buf, size_t size)
-{
-  return 0;
-}
-
-static void
-instream_null_close (instream_t istr)
-{
-  free (istr);
-}
-
-static int
-instream_null_eq (instream_t a, instream_t b)
-{
-  return a == b;
-}
-
-instream_t
-instream_null_create (void)
-{
-  struct instream *istr;
-
-  istr = emalloc (sizeof *istr);
-  istr->in_name = "null";
-  istr->in_inter = 0;
-  istr->in_read = instream_null_read;
-  istr->in_close = instream_null_close;
-  istr->in_eq = instream_null_eq;
-  istr->in_history_size = NULL;
-  istr->in_history_get = NULL;  
-
-  return istr;
-}
-

_service:tar_scm:gdbm-1.22.tar.gz/src/input-rl.c Deleted

@@ -1,223 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 2016-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
-
-#include "gdbmtool.h"
-#include <readline/readline.h>
-#include <readline/history.h>
-
-static char *pre_input_line;
-
-static int
-pre_input (void)
-{
-  if (pre_input_line)
-    {
-      rl_insert_text (pre_input_line);
-      free (pre_input_line);
-      pre_input_line = NULL;
-      rl_redisplay ();
-    }
-  return 0;
-}
-
-static int
-retrieve_history (char *str)
-{
-  char *out;
-  int rc;
-
-  rc = history_expand (str, &out);
-  switch (rc)
-    {
-    case -1:
-      yyerror (out);
-      free (out);
-      return 1;
-
-    case 0:
-      free (out);
-      break;
-
-    case 1:
-      pre_input_line = out;
-      return 1;
-
-    case 2:
-      printf ("%s\n", out);
-      free (out);
-      return 1;
-    }
-  return 0;
-}
-
-#define HISTFILE_PREFIX "~/."
-#define HISTFILE_SUFFIX "_history"
-
-static char *history_file_name;
-
-static char *
-get_history_file_name (void)
-{
-  if (!history_file_name)
-    {
-      char *hname;
-
-      hname = emalloc (sizeof HISTFILE_PREFIX + strlen (rl_readline_name) +
-		       sizeof HISTFILE_SUFFIX - 1);
-      strcpy (hname, HISTFILE_PREFIX);
-      strcat (hname, rl_readline_name);
-      strcat (hname, HISTFILE_SUFFIX);
-      history_file_name = tildexpand (hname);
-      free (hname);
-    }
-  return history_file_name;
-}
- 
-static char **
-shell_completion (const char *text, int start, int end)
-{
-  char **matches;
-
-  matches = (char **) NULL;
-
-  /* If this word is at the start of the line, then it is a command
-     to complete.  Otherwise it is the name of a file in the current
-     directory. */
-  if (start == 0)
-    matches = rl_completion_matches (text, command_generator);
-
-  return (matches);
-}
-&#xc;
-static void
-instream_readline_close (instream_t istr)
-{
-  if (history_file_name)
-    {
-      write_history (history_file_name);
-      free (history_file_name);
-      history_file_name = NULL;
-    }
-  free (istr);
-}
-
-static ssize_t
-stdin_read_readline (instream_t istr, char *buf, size_t size)
-{
-  static char *input_line;
-  static size_t input_length;
-  static size_t input_off;
-#define input_ptr() (input_line + input_off)
-#define input_size() (input_length - input_off)
-  size_t len = input_size ();
-  if (!len)
-    {
-      if (input_line)
-	{
-	newline:
-	  free (input_line);
-	  input_line = NULL;
-	  buf0 = '\n';
-	  return 1;
-	}
-      else
-	{
-	  char *prompt;
-	again:
-	  prompt = make_prompt ();
-	  input_line = readline (prompt);
-	  free (prompt);
-	  if (!input_line)
-	    return 0;
-	  input_length = strlen (input_line);
-	  input_off = 0;
-	  if (input_length)
-	    {
-	      if (retrieve_history (input_line))
-		{
-		  free (input_line);
-		  goto again;
-		}
-	    }
-	  else
-	    goto newline;
-	  len = input_size ();
-	  add_history (input_line);
-	}
-    }
-  
-  if (len > size)
-    len = size;
-  memcpy (buf, input_ptr (), len);
-  input_off += len;
-
-  return len;
-} 
-
-static ssize_t
-instream_readline_read (instream_t istr, char *buf, size_t size)
-{
-  if (istr->in_inter)
-    return stdin_read_readline (istr, buf, size);
-  return fread (buf, 1, size, stdin);
-}
-
-static int
-instream_readline_eq (instream_t a, instream_t b)
-{
-  return 0;
-}
-
-static int
-instream_readline_history_size (instream_t istr)
-{
-  return history_length;
-}
-
-static const char *
-instream_readline_history_get (instream_t instr, int n)
-{
-  if (n < history_length)
-    return history_list ()n->line;
-  return NULL;
-}
-
-instream_t
-instream_readline_create (void)

_service:tar_scm:gdbm-1.22.tar.gz/src/input-std.c Deleted

@@ -1,57 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 2016-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
-
-#include "gdbmtool.h"
-
-static ssize_t
-instream_stdin_read (instream_t istr, char *buf, size_t size)
-{
-  if (istr->in_inter)
-    print_prompt_at_bol ();
-  if (fgets (buf, size, stdin) == NULL)
-    return 0;
-  return strlen (buf);
-}
-
-static void
-instream_stdin_close (instream_t istr)
-{
-  free (istr);
-}
-
-static int
-instream_stdin_eq (instream_t a, instream_t b)
-{
-  return 0;
-}
-
-instream_t
-instream_stdin_create (void)
-{
-  struct instream *istr;
-
-  istr = emalloc (sizeof *istr);
-  istr->in_name = "stdin";
-  istr->in_inter = isatty (fileno (stdin));
-  istr->in_read = instream_stdin_read;
-  istr->in_close = instream_stdin_close;
-  istr->in_eq = instream_stdin_eq;
-  istr->in_history_size = NULL;
-  istr->in_history_get = NULL;  
-
-  return istr;
-}
-

_service:tar_scm:gdbm-1.22.tar.gz/src/lex.c Deleted

@@ -1,2717 +0,0 @@
-#line 2 "lex.c"
-
-#line 4 "lex.c"
-
-#define  YY_INT_ALIGNED short int
-
-/* A lexical scanner generated by flex */
-
-#define FLEX_SCANNER
-#define YY_FLEX_MAJOR_VERSION 2
-#define YY_FLEX_MINOR_VERSION 6
-#define YY_FLEX_SUBMINOR_VERSION 0
-#if YY_FLEX_SUBMINOR_VERSION > 0
-#define FLEX_BETA
-#endif
-
-/* First, we deal with  platform-specific or compiler-specific issues. */
-
-/* begin standard C headers. */
-#include <stdio.h>
-#include <string.h>
-#include <errno.h>
-#include <stdlib.h>
-
-/* end standard C headers. */
-
-/* flex integer type definitions */
-
-#ifndef FLEXINT_H
-#define FLEXINT_H
-
-/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
-
-#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
-
-/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
- * if you want the limit (max/min) macros for int types. 
- */
-#ifndef __STDC_LIMIT_MACROS
-#define __STDC_LIMIT_MACROS 1
-#endif
-
-#include <inttypes.h>
-typedef int8_t flex_int8_t;
-typedef uint8_t flex_uint8_t;
-typedef int16_t flex_int16_t;
-typedef uint16_t flex_uint16_t;
-typedef int32_t flex_int32_t;
-typedef uint32_t flex_uint32_t;
-#else
-typedef signed char flex_int8_t;
-typedef short int flex_int16_t;
-typedef int flex_int32_t;
-typedef unsigned char flex_uint8_t; 
-typedef unsigned short int flex_uint16_t;
-typedef unsigned int flex_uint32_t;
-
-/* Limits of integral types. */
-#ifndef INT8_MIN
-#define INT8_MIN               (-128)
-#endif
-#ifndef INT16_MIN
-#define INT16_MIN              (-32767-1)
-#endif
-#ifndef INT32_MIN
-#define INT32_MIN              (-2147483647-1)
-#endif
-#ifndef INT8_MAX
-#define INT8_MAX               (127)
-#endif
-#ifndef INT16_MAX
-#define INT16_MAX              (32767)
-#endif
-#ifndef INT32_MAX
-#define INT32_MAX              (2147483647)
-#endif
-#ifndef UINT8_MAX
-#define UINT8_MAX              (255U)
-#endif
-#ifndef UINT16_MAX
-#define UINT16_MAX             (65535U)
-#endif
-#ifndef UINT32_MAX
-#define UINT32_MAX             (4294967295U)
-#endif
-
-#endif /* ! C99 */
-
-#endif /* ! FLEXINT_H */
-
-#ifdef __cplusplus
-
-/* The "const" storage-class-modifier is valid. */
-#define YY_USE_CONST
-
-#else	/* ! __cplusplus */
-
-/* C99 requires __STDC__ to be defined as 1. */
-#if defined (__STDC__)
-
-#define YY_USE_CONST
-
-#endif	/* defined (__STDC__) */
-#endif	/* ! __cplusplus */
-
-#ifdef YY_USE_CONST
-#define yyconst const
-#else
-#define yyconst
-#endif
-
-/* Returned upon end-of-file. */
-#define YY_NULL 0
-
-/* Promotes a possibly negative, possibly signed char to an unsigned
- * integer for use as an array index.  If the signed char is negative,
- * we want to instead treat it as an 8-bit unsigned char, hence the
- * double cast.
- */
-#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
-
-/* Enter a start condition.  This macro really ought to take a parameter,
- * but we do it the disgusting crufty way forced on us by the ()-less
- * definition of BEGIN.
- */
-#define BEGIN (yy_start) = 1 + 2 *
-
-/* Translate the current start state into a value that can be later handed
- * to BEGIN to return to the state.  The YYSTATE alias is for lex
- * compatibility.
- */
-#define YY_START (((yy_start) - 1) / 2)
-#define YYSTATE YY_START
-
-/* Action number for EOF rule of a given start state. */
-#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
-
-/* Special action meaning "start processing a new file". */
-#define YY_NEW_FILE yyrestart(yyin  )
-
-#define YY_END_OF_BUFFER_CHAR 0
-
-/* Size of default input buffer. */
-#ifndef YY_BUF_SIZE
-#ifdef __ia64__
-/* On IA-64, the buffer size is 16k, not 8k.
- * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case.
- * Ditto for the __ia64__ case accordingly.
- */
-#define YY_BUF_SIZE 32768
-#else
-#define YY_BUF_SIZE 16384
-#endif /* __ia64__ */
-#endif
-
-/* The state buf must be large enough to hold one state per character in the main buffer.
- */
-#define YY_STATE_BUF_SIZE   ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
-
-#ifndef YY_TYPEDEF_YY_BUFFER_STATE
-#define YY_TYPEDEF_YY_BUFFER_STATE
-typedef struct yy_buffer_state *YY_BUFFER_STATE;
-#endif
-
-#ifndef YY_TYPEDEF_YY_SIZE_T
-#define YY_TYPEDEF_YY_SIZE_T
-typedef size_t yy_size_t;
-#endif
-
-extern yy_size_t yyleng;
-
-extern FILE *yyin, *yyout;
-
-#define EOB_ACT_CONTINUE_SCAN 0
-#define EOB_ACT_END_OF_FILE 1
-#define EOB_ACT_LAST_MATCH 2
-
-    #define YY_LESS_LINENO(n)
-    #define YY_LINENO_REWIND_TO(ptr)
-    
-/* Return all but the first "n" matched characters back to the input stream. */
-#define yyless(n) \
-	do \
-		{ \
-		/* Undo effects of setting up yytext. */ \
-        int yyless_macro_arg = (n); \
-        YY_LESS_LINENO(yyless_macro_arg);\
-		*yy_cp = (yy_hold_char); \
-		YY_RESTORE_YY_MORE_OFFSET \
-		(yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
-		YY_DO_BEFORE_ACTION; /* set up yytext again */ \
-		} \
-	while ( 0 )
-
-#define unput(c) yyunput( c, (yytext_ptr)  )
-
-#ifndef YY_STRUCT_YY_BUFFER_STATE
-#define YY_STRUCT_YY_BUFFER_STATE
-struct yy_buffer_state

_service:tar_scm:gdbm-1.22.tar.gz/src/lex.l Deleted

@@ -1,682 +0,0 @@
-%{
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
-
-#include "gdbmtool.h"
-#include "gram.h"
-
-struct context                /* Input context */
-{
-  struct context *parent;     /* Pointer to the parent context */
-  struct locus locus;         /* Locus */
-  struct point point;
-  YY_BUFFER_STATE buf;        /* Buffer */
-  instream_t input;
-};
-
-static struct context *context_tos;
-
-/* Advance locus to the next line */
-void
-advance_line (void)
-{
-  ++context_tos->point.line;
-  context_tos->point.col = 0;
-}
-
-#define YY_USER_ACTION					    \
-  do							    \
-    {							    \
-      if (YYSTATE == 0)					    \
-	{						    \
-	  yylloc.beg = context_tos->point;		    \
-	  yylloc.beg.col++;				    \
-	}						    \
-      context_tos->point.col += yyleng;			    \
-      yylloc.end = context_tos->point;			    \
-    }							    \
-  while (0);
-
-#undef YY_INPUT
-#define YY_INPUT(buf,result,max_size)                                   \
-  do									\
-    {									\
-      if (context_tos)							\
-        result = instream_read (context_tos->input, buf, max_size);	\
-      else								\
-	result = 0;							\
-    }									\
-  while (0);
- 
-void string_begin (void);
-void string_add (const char *s, int l);
-void string_addc (int c);
-char *string_end (void);
-int unescape (int c);
-
-int
-interactive (void)
-{
-  return context_tos && instream_interactive (context_tos->input);
-}
-
-int
-input_history_size (void)
-{
-  return context_tos ? instream_history_size (context_tos->input) : 0;
-}
-
-const char *
-input_history_get (int n)  
-{
-  return context_tos ? instream_history_get (context_tos->input, n) : NULL;
-}
-
-const char *
-input_stream_name (void)
-{
-  return context_tos ? context_tos->input->in_name : "NULL";
-}
- 
-static struct context *
-input_context_lookup (instream_t istr)
-{
-  struct context *cp;
-
-  for (cp = context_tos; cp; cp = cp->parent)
-    if (instream_eq (cp->input, istr))
-      break;
-  return cp;
-}
- 
-int
-input_context_push (instream_t input)
-{
-  struct context *cp;
-
-  cp = input_context_lookup (input);
-  if (cp)
-    {
-      terror (_("recursive sourcing"));
-      if (cp->parent)
-	lerror (&cp->locus, _("%s already sourced here"),
-		instream_name (input));
-      return 1;
-    }
-
-  yy_switch_to_buffer (yy_create_buffer (NULL, YY_BUF_SIZE));
-
-  /* Create new context */
-
-  cp = ecalloc (1, sizeof (*cp));
-  cp->locus = yylloc;
-  cp->point.file = estrdup (instream_name (input));
-  cp->point.line = 1;
-  cp->point.col = 0;
-  
-  cp->input = input;
-  cp->buf = YY_CURRENT_BUFFER;
-  cp->parent = context_tos;
-  context_tos = cp;
-
-  return 0;
-}
-
-void
-lex_trace (int n)
-{
-  yy_flex_debug = n;
-}
-    
-int
-input_context_pop (void)
-{
-  struct context *cp;
-
-  if (!context_tos)
-    return 1;
-  instream_close (context_tos->input);
-  free (context_tos->point.file);
-  memset (&yylloc, 0, sizeof (yylloc));
-  cp = context_tos->parent;
-  free (context_tos);
-  context_tos = cp;
-  yy_delete_buffer (YY_CURRENT_BUFFER);
-  if (!cp)
-    return 1;
-  
-  yylloc = cp->locus;
-  yy_switch_to_buffer (cp->buf);
-
-  return 0;
-}
-
-void
-input_context_drain (void)
-{
-   while (!input_context_pop ())
-    ;
-}
-
-static int
-t_num (int base)
-{
-  long n;
-  errno = 0;
-  n = strtol (yytext, NULL, base);
-  if (errno)
-    {
-      lerror (&yylloc, "%s", strerror (errno));
-      return T_BOGUS;
-    }
-  if (n < INT_MIN || n > INT_MAX)
-    {
-      lerror (&yylloc, "value out of range");
-      return T_BOGUS;
-    }
-  yylval.num = n;
-  return T_NUM;  
-}
- 
-%}
-
-%option noinput
-%option nounput
-%option nodefault
-

_service:tar_scm:gdbm-1.22.tar.gz/src/mem.c Deleted

@@ -1,107 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 2011-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
-
-# include "autoconf.h"
-# include "gdbm.h"
-# include "gdbmapp.h"
-# include "gdbmdefs.h"
-
-void
-ealloc_die (void)
-{
-  error ("%s", strerror (ENOMEM));
-  exit (EXIT_FATAL);
-}
-
-void *
-emalloc (size_t size)
-{
-  void *p = malloc (size);
-  if (!p)
-    ealloc_die ();
-  return p;
-}
-
-void *
-erealloc (void *ptr, size_t size)
-{
-  void *newptr = realloc (ptr, size);
-  if (!newptr)
-    ealloc_die ();
-  return newptr;
-}
-
-void *
-ecalloc (size_t nmemb, size_t size)
-{
-  void *p = calloc (nmemb, size);
-  if (!p)
-    ealloc_die ();
-  return p;
-}
-
-void *
-ezalloc (size_t size)
-{
-  return ecalloc (1, size);
-}
-
-char *
-estrdup (const char *str)
-{
-  char *p;
-
-  if (!str)
-    return NULL;
-  p = emalloc (strlen (str) + 1);
-  strcpy (p, str);
-  return p;
-}
-
-void *
-e2nrealloc (void *p, size_t *pn, size_t s)
-{
-  size_t n = *pn;
-  char *newp;
-	
-  if (!p)
-    {
-      if (!n)
-	{
-	  /* The approximate size to use for initial small
-	     allocation requests, when the invoking code
-	     specifies an old size of zero.  64 bytes is
-	     the largest "small" request for the
-	     GNU C library malloc.  */
-	  enum { DEFAULT_MXFAST = 64 };
-	  
-	  n = DEFAULT_MXFAST / s;
-	  n += !n;
-	}
-    }
-  else if ((size_t) -1 / 3 * 2 / s <= n)
-    {
-      ealloc_die ();
-    }
-  else
-    n += (n + 1) / 2;
-
-  newp = erealloc (p, n * s);
-  *pn = n;
-  return newp;
-}
-
-

_service:tar_scm:gdbm-1.22.tar.gz/src/parseopt.c Deleted

@@ -1,587 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 2011-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
-
-# include "autoconf.h"
-# include "gdbm.h"
-# include "gdbmapp.h"
-# include "gdbmdefs.h"
-# include <stdio.h>
-# include <stdarg.h>
-# include <errno.h>
-# include <string.h>
-# include <ctype.h>
-# ifdef HAVE_GETOPT_H
-#  include <getopt.h>
-# endif
-
-static int argc;
-static char **argv;
-
-static struct gdbm_option *option_tab;
-static size_t option_count;
-static size_t option_max;
-static char *short_options;
-static size_t short_option_count;
-static size_t short_option_max;
-#ifdef HAVE_GETOPT_LONG
-static struct option *long_options;
-static size_t long_option_count;
-static size_t long_option_max;
-#endif
-
-#define OPT_USAGE -2
-
-struct gdbm_option parseopt_default_options = {
-  { 0, NULL, NULL, "" },
-  { 'h', "help", NULL, N_("give this help list") },
-  { 'V', "version", NULL, N_("print program version") },
-  { OPT_USAGE, "usage", NULL, N_("give a short usage message") },
-  { 0 }
-};
-
-#define OPT_END(opt) \
-  ((opt)->opt_short == 0 && (opt)->opt_long == 0 && (opt)->opt_descr == NULL)
-#define IS_OPTION(opt) \
-  ((opt)->opt_short || (opt)->opt_long)
-#define IS_GROUP_HEADER(opt)			\
-  (!IS_OPTION(opt) && (opt)->opt_descr)
-#define IS_VALID_SHORT_OPTION(opt) \
-  ((opt)->opt_short > 0 && (opt)->opt_short < 127 && \
-   isalnum ((opt)->opt_short))
-#define IS_VALID_LONG_OPTION(opt) \
-  ((opt)->opt_long != NULL)
-  
-&#xc;
-static int
-optcmp (const void *a, const void *b)
-{
-  struct gdbm_option const *ap = (struct gdbm_option const *)a;
-  struct gdbm_option const *bp = (struct gdbm_option const *)b;
-
-  while (ap->opt_flags & PARSEOPT_ALIAS)
-    ap--;
-  while (bp->opt_flags & PARSEOPT_ALIAS)
-    bp--;
-  
-  if (IS_VALID_SHORT_OPTION(ap) && IS_VALID_SHORT_OPTION(bp))
-    return ap->opt_short - bp->opt_short;
-  if (IS_VALID_LONG_OPTION(ap) && IS_VALID_LONG_OPTION(bp))
-    return strcmp (ap->opt_long, bp->opt_long);
-  if (IS_VALID_LONG_OPTION(ap))
-    return 1;
-  return -1;
-}
-
-static void
-sort_options (int start, int count)
-{
-  qsort (option_tab + start, count, sizeof (option_tab0), optcmp);
-}
-
-static size_t
-sort_group (size_t start)
-{
-  size_t i;
-  
-  for (i = start; i < option_count && !IS_GROUP_HEADER (&option_tabi); i++)
-    ;
-  sort_options (start, i - start);
-  return i + 1;
-}
-
-static void
-sort_all_options (void)
-{
-  size_t start;
-
-  /* Ensure sane start of options.  This is necessary because optcmp backs up
-     until it finds an element with cleared PARSEOPT_ALIAS flag bit. */
-  option_tab0.opt_flags &= PARSEOPT_ALIAS;
-  for (start = 0; start < option_count; )
-    {
-      if (IS_GROUP_HEADER (&option_tabstart))
-	start = sort_group (start + 1);
-      else 
-	start = sort_group (start);
-    }
-}
-&#xc;
-static void
-add_options (struct gdbm_option *options)
-{
-  size_t optcnt = 0;
-  size_t argcnt = 0;
-  size_t count = 0;
-  struct gdbm_option *opt;
-  
-  for (opt = options; !OPT_END(opt); opt++)
-    {
-      count++;
-      if (IS_OPTION(opt))
-	{
-	  optcnt++;
-	  if (opt->opt_arg)
-	    argcnt++;
-	}
-    }
-
-  if (option_count + count + 1 > option_max)
-    {
-      option_max = option_count + count + 1;
-      option_tab = erealloc (option_tab,
-			     sizeof (option_tab0) * option_max);
-    }
-  
-#ifdef HAVE_GETOPT_LONG
-  if (long_option_count + optcnt + 1 > long_option_max)
-    {
-      long_option_max = long_option_count + optcnt + 1;
-      long_options = erealloc (long_options,
-			       sizeof (long_options0) * long_option_max);
-    }
-#endif
-  if (short_option_count + optcnt + argcnt + 1 > short_option_max)
-    {
-      short_option_max = short_option_count + optcnt + argcnt + 1;
-      short_options = erealloc (short_options,
-				sizeof (short_options0) * short_option_max);
-    }
-
-  for (opt = options; !OPT_END(opt); opt++)
-    {
-      option_taboption_count++ = *opt;
-      if (!IS_OPTION (opt))
-	continue;
-      if (IS_VALID_SHORT_OPTION (opt))
-	{
-	  short_optionsshort_option_count++ = opt->opt_short;
-	  if (opt->opt_arg)
-	    short_optionsshort_option_count++ = ':';
-	}
-#ifdef HAVE_GETOPT_LONG
-      if (IS_VALID_LONG_OPTION (opt))
-	{
-	  long_optionslong_option_count.name = opt->opt_long;
-	  long_optionslong_option_count.has_arg = opt->opt_arg != NULL;
-	  long_optionslong_option_count.flag = NULL;
-	  long_optionslong_option_count.val = opt->opt_short;
-	  long_option_count++;
-	}
-#endif
-    }
-  short_optionsshort_option_count = 0;
-#ifdef HAVE_GETOPT_LONG
-  memset (&long_optionslong_option_count, 0,
-	  sizeof long_optionslong_option_count);
-#endif
-}
-
-int
-parseopt_first (int pc, char **pv, struct gdbm_option *opts)
-{
-  free (option_tab);
-  option_tab = NULL;
-  free (short_options);
-  short_options = NULL;
-  short_option_count = short_option_max = 0;

_service:tar_scm:gdbm-1.22.tar.gz/src/progname.c Deleted

@@ -1,35 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 2011-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
-
-# include "autoconf.h"
-# include "gdbm.h"
-# include "gdbmapp.h"
-# include <string.h>
-
-const char *progname;
-
-void
-set_progname (const char *arg)
-{
-  const char *p = strrchr (arg, '/');
-  if (p)
-    ++p;
-  else
-    p = arg;
-  if (strncmp (p, "lt-", 3) == 0)
-    p += 3;
-  progname = p;
-}

_service:tar_scm:gdbm-1.22.tar.gz/src/util.c Deleted

@@ -1,131 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
-
-#include "gdbmtool.h"
-#include <pwd.h>
-
-char *
-mkfilename (const char *dir, const char *file, const char *suf)
-{
-  char *tmp;
-  size_t dirlen = strlen (dir);
-  size_t suflen = suf ? strlen (suf) : 0;
-  size_t fillen = strlen (file);
-  size_t len;
-  
-  while (dirlen > 0 && dirdirlen-1 == '/')
-    dirlen--;
-
-  len = dirlen + (dir0 ? 1 : 0) + fillen + suflen;
-  tmp = emalloc (len + 1);
-  memcpy (tmp, dir, dirlen);
-  if (dir0)
-    tmpdirlen++ = '/';
-  memcpy (tmp + dirlen, file, fillen);
-  if (suf)
-    memcpy (tmp + dirlen + fillen, suf, suflen);
-  tmplen = 0;
-  return tmp;
-}
-
-char *
-tildexpand (char *s)
-{
-  if (s0 == '~')
-    {
-      char *p = s + 1;
-      size_t len = strcspn (p, "/");
-      struct passwd *pw;
-
-      if (len == 0)
-	pw = getpwuid (getuid ());
-      else
-	{
-	  char *user = emalloc (len + 1);
-	  
-	  memcpy (user, p, len);
-	  userlen = 0;
-	  pw = getpwnam (user);
-	  free (user);
-	}
-      if (pw)
-	return mkfilename (pw->pw_dir, p + len + 1, NULL);
-    }
-  return estrdup (s);
-}
-
-int
-vgetyn (const char *prompt, va_list ap)
-{
-  int state = 0;
-  int c, resp;
-  va_list aq;
-  
-  do
-    {
-      switch (state)
-	{
-	case 1:
-	  if (c == ' ' || c == '\t')
-	    continue;
-	  resp = c;
-	  state = 2;
-	  /* fall through */
-	case 2:
-	  if (c == '\n')
-	    {
-	      switch (resp)
-		{
-		case 'y':
-		case 'Y':
-		  return 1;
-		case 'n':
-		case 'N':
-		  return 0;
-		default:
-		  /* TRANSLATORS: Please, don't translate 'y' and 'n'. */
-		  fprintf (stdout, "%s\n", _("Please, reply 'y' or 'n'"));
-		}
-	      /* fall through */
-	    }
-	  else
-	    break;
-	  
-	case 0:
-	  va_copy (aq, ap);
-	  vfprintf (stdout, prompt, aq);
-	  va_end (aq);
-	  fprintf (stdout, " y/n?");
-	  fflush (stdout);
-	  state = 1;
-	  break;
-	}
-    } while ((c = getchar ()) != EOF);
-  exit (EXIT_USAGE);
-}
-	
-int
-getyn (const char *prompt, ...)
-{
-  va_list ap;
-  int rc;
-  
-  va_start (ap, prompt);
-  rc = vgetyn (prompt, ap);
-  va_end (ap);
-  return rc;
-}
-

_service:tar_scm:gdbm-1.22.tar.gz/src/var.c Deleted

@@ -1,820 +0,0 @@
-/* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
-
-   GDBM is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 3, or (at your option)
-   any later version.
-
-   GDBM is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
-
-#include "gdbmtool.h"
-
-#define VARF_DFL    0x00   /* Default flags -- everything disabled */
-#define VARF_SET    0x01   /* Variable is set */
-#define VARF_INIT   0x02   /* Variable is initialized */
-#define VARF_PROT   0x04   /* Variable is protected, i.e. cannot be unset */
-#define VARF_OCTAL  0x08   /* For integer variables -- use octal base */
-
-#define VAR_IS_SET(v) ((v)->flags & VARF_SET)
-
-union value
-{
-  char *string;
-  int bool;
-  int num;
-};
-
-struct variable
-{
-  char *name;
-  int type;
-  int flags;
-  union value init;
-  union value v;
-  void *data;
-  int (*sethook) (struct variable *, union value *);
-  int (*typeconv) (struct variable *, int, void **);
-};
-
-static int open_sethook (struct variable *, union value *);
-static int open_typeconv (struct variable *var, int type, void **retptr);
-static int format_sethook (struct variable *, union value *);
-static int format_typeconv (struct variable *var, int type, void **retptr);
-static int fd_sethook (struct variable *, union value *);
-static int centfree_sethook (struct variable *var, union value *v);
-static int coalesce_sethook (struct variable *var, union value *v);
-static int cachesize_sethook (struct variable *var, union value *v);
-static int errormask_sethook (struct variable *var, union value *v);
-static int errormask_typeconv (struct variable *var, int type, void **retptr);
-static int errorexit_sethook (struct variable *var, union value *v);
-
-static struct variable vartab = {
-  /* Top-level prompt */
-  {
-    .name = "ps1",
-    .type = VART_STRING,
-    .flags = VARF_INIT,
-    .init = { .string = "%p>%_" }
-  },
-  /* Second-level prompt (used within "def" block) */
-  {
-    .name = "ps2",
-    .type = VART_STRING,
-    .flags = VARF_INIT,
-    .init = { .string = "%_>%_" }
-  },
-  /* This delimits array members */
-  {
-    .name = "delim1",
-    .type = VART_STRING,
-    .flags = VARF_INIT|VARF_PROT,
-    .init = { .string = "," }
-  },
-  /* This delimits structure members */
-  {
-    .name = "delim2",
-    .type = VART_STRING,
-    .flags = VARF_INIT|VARF_PROT,
-    .init = { .string = "," }
-  },
-  {
-    .name = "confirm",
-    .type = VART_BOOL,
-    .flags = VARF_INIT,
-    .init = { .bool = 1 }
-  },
-  {
-    .name = "cachesize",
-    .type = VART_INT,
-    .flags = VARF_DFL,
-    .sethook = cachesize_sethook
-  },
-  {
-    .name = "blocksize",
-    .type = VART_INT,
-    .flags = VARF_DFL
-  },
-  {
-    .name = "open",
-    .type = VART_STRING,
-    .flags = VARF_DFL,
-    .sethook = open_sethook,
-    .typeconv = open_typeconv
-  },
-  {
-    .name = "lock",
-    .type = VART_BOOL,
-    .flags = VARF_INIT,
-    .init = { .bool = 1 }
-  },
-  {
-    .name = "mmap",
-    .type = VART_BOOL,
-    .flags = VARF_INIT,
-    .init = { .bool = 1 }
-  },
-  {
-    .name = "sync",
-    .type = VART_BOOL,
-    .flags = VARF_INIT,
-    .init = { .bool = 0 }
-  },
-  {
-    .name = "coalesce",
-    .type = VART_BOOL,
-    .flags = VARF_INIT,
-    .init = { .bool = 0 },
-    .sethook = coalesce_sethook
-  },
-  {
-    .name = "centfree",
-    .type = VART_BOOL,
-    .flags = VARF_INIT,
-    .init = { .bool = 0 },
-    .sethook = centfree_sethook
-  },
-  {
-    .name = "filemode",
-    .type = VART_INT,
-    .flags = VARF_INIT|VARF_OCTAL|VARF_PROT,
-    .init = { .num = 0644 }
-  },
-  {
-    .name = "format",
-    .type = VART_STRING,
-    .flags = VARF_INIT,
-    .init = { .string = "standard" },
-    .sethook = format_sethook,
-    .typeconv = format_typeconv
-  },
-  {
-    .name = "pager",
-    .type = VART_STRING,
-    .flags = VARF_DFL
-  },
-  {
-    .name = "quiet",
-    .type = VART_BOOL,
-    .flags = VARF_DFL
-  },
-  {
-    .name = "filename",
-    .type = VART_STRING,
-    .flags = VARF_INIT|VARF_PROT,
-    { .string = GDBMTOOL_DEFFILE }
-  },
-  {
-    .name = "fd",
-    .type = VART_INT,
-    .flags = VARF_DFL,
-    .sethook = fd_sethook
-  },
-  {
-    .name = "errorexit",
-    .type = VART_STRING,
-    .sethook = errorexit_sethook,
-    .typeconv = errormask_typeconv
-  },
-  {
-    .name = "errormask",
-    .type = VART_STRING,
-    .sethook = errormask_sethook,
-    .typeconv = errormask_typeconv
-  },
-  {
-    .name = "timing",
-    .type = VART_BOOL
-  },
-  {
-    .name = "trace",
-    .type = VART_BOOL
-  },
-  { NULL }

_service:tar_scm:gdbm-1.22.tar.gz/ChangeLog -> _service:tar_scm:gdbm-1.23.tar.gz/ChangeLog Changed

@@ -1,3 +1,272 @@
+2022-02-04  Sergey Poznyakoff  <gray@gnu.org>
+
+        Version 1.23
+
+
+2022-01-25  Sergey Poznyakoff  <gray@gnu.org>
+
+        Fix possible heap buffer overflow
+
+        * src/bucket.c (_gdbm_split_bucket): When splitting the bucket,
+        check if hash values are within allowed range.
+
+2022-01-08  Sergey Poznyakoff  <gray@gnu.org>
+
+        One more fix in wordwrap
+
+
+2022-01-08  Sergey Poznyakoff  <gray@gnu.org>
+
+        Bugfixes in parseopt and wordwrap
+
+        * tools/parseopt.c (print_option): Add newlines around group
+        header text. Insert a comma between the short and corresponding
+        long option.
+        (parseopt_print_help): Don't use parseopt_program_args if it's
+        NULL or empty.
+        * tools/wordwrap.c (wordwrap_set_left_margin): Always force
+        reindent of the following line.
+        (flush_line): Fix the "full write" condition.
+
+2022-01-08  Sergey Poznyakoff  <gray@gnu.org>
+
+        Bugfixes
+
+        * src/bucket.c (_gdbm_cache_init): Accept sizes greater than the 
+        directory size.
+        * src/gdbmsetopt.c (setopt_gdbm_getdbformat): Return 0 on
+        success.
+
+2022-01-07  Sergey Poznyakoff  <gray@gnu.org>
+
+        Minor fix
+
+        * src/bucket.c (lru_unlink_elem): Take into account the
+        possibility that dbf->cache_mru can be NULL.
+
+2022-01-06  Sergey Poznyakoff  <gray@gnu.org>
+
+        Speed up flushing the bucket cache on disk
+
+        The implementation of _gdbm_cache_flush becomes prohibitively 
+        inefficient during extensive updates of large databases.  The 
+        bug was reported at https://github.com/Perl/perl5/issues/19306.
+
+        To fix it, make sure that all changed cache entries are placed
+        at the head of the cache_mru list, forming a contiguous
+        sequence. This way a potentially long iteration over all cache
+        entries can be cut off at the first entry with ca_changed ==
+        FALSE.
+
+        This commit also gets rid of several superfluous fields in 
+        struct gdbm_file_info:
+
+        - cache_entry
+
+            Not needed, because the most recently used cache entry
+           (cache_mru) is always the current one.
+
+        - bucket_changed
+
+            dbf->cache_mru->ca_changed reflects the status of the
+        current
+           bucket.
+
+        - second_changed
+
+            Not needed because _gdbm_cache_flush, which flushes all
+        changed
+           buckets, is now invoked unconditionally by _gdbm_end_update
+        (and
+           also whenever dbf->cache_mru changes).
+
+        * src/gdbmdefs.h (struct gdbm_file_info): Remove cache_entry. 
+        The current cache entry is cache_mru. Remove bucket_changed, and
+        second_changed. All uses changed.
+        * src/proto.h (_gdbm_current_bucket_changed): New inline
+        function.
+        * src/bucket.c (_gdbm_cache_flush): Assume all changed elements
+        form a contiguous sequence beginning with dbf->cache_mru.
+        (set_cache_entry): Remove.  All callers changed.
+        (lru_link_elem,lru_unlink_elem): Update dbf->bucket as
+        necessary.
+        (cache_lookup): If the obtained bucket is not changed and is
+        going to become current, flush all changed cache elements.
+
+        * src/update.c (_gdbm_end_update): Call _gdbm_cache_flush
+        unconditionally.
+        * src/findkey.c: Use dbf->cache_mru instead of the removed
+        dbf->cache_entry.
+        * src/gdbmseq.c: Likewise.
+        * tools/gdbmshell.c (_gdbm_print_bucket_cache): Likewise.
+
+        * src/falloc.c: Use _gdbm_current_bucket_changed to mark the
+        current bucket as changed.
+        * src/gdbmstore.c: Likewise.
+        * src/gdbmdelete.c: Likewise.  Use _gdbm_current_bucket_changed.
+
+        * tests/gtcacheopt.c: Fix typo.
+        * tests/gtload.c: New option: -cachesize
+
+2022-01-02  Sergey Poznyakoff  <gray@gnu.org>
+
+        Update copyright years
+
+
+2021-11-18  Sergey Poznyakoff  <gray@gnu.org>
+
+        Rearrange the directory structure
+
+        Sources for the libgdbm library reside in src/. Sources for
+        building accompanying tools are moved to the tools/ 
+        subdirectory.
+
+2021-11-18  Sergey Poznyakoff  <gray@gnu.org>
+
+        Update POTFILES.in
+
+
+2021-11-18  Sergey Poznyakoff  <gray@gnu.org>
+
+        Fix typos
+
+
+2021-11-18  Sergey Poznyakoff  <gray@gnu.org>
+
+        Fix shell command in gdbmtool
+
+        Trailing whitespace was erroneously recognized as argument.
+
+        * src/lex.l (string_end): Optionally return NULL if the
+        collected string is of zero length. When leaving the SHELL
+        condition, don't return T_WORD for trailing whitespace.
+        * src/gdbmshell.c (shell_handler): Perror after failed execv.
+
+2021-11-18  Sergey Poznyakoff  <gray@gnu.org>
+
+        Fix gdbmtool import command
+
+        * src/gdbmshell.c (import_handler): Fix option addressing (see 
+        https://puszcza.gnu.org.ua/bugs/?535). Fix freeing of the
+        uninitialized variable.
+
+2021-11-17  Sergey Poznyakoff  <gray@gnu.org>
+
+        Word wrapping output functions for gdbm apps
+
+        * src/Makefile.am (libgdbmapp_a_SOURCES): Add wordwrap.c
+        * src/wordwrap.c: New file.
+
+        * tests/Makefile.am: Add t_wordwrap and wordspit.at
+        * tests/testsuite.at: Add new test.
+        * tests/t_wordwrap.c: New file.
+
+        * src/gdbmshell.c (help_handler): Use wordwrap functions.
+        * src/parseopt.c: Rewrite help output using wordwrap. Add
+        support for the ARGP_HELP_FMT environment variable. Make sure no
+        empty strings are ever passed to gettext.
+
+2021-11-16  Sergey Poznyakoff  <gray@gnu.org>
+
+        Minor fix
+
+
+2021-11-16  Sergey Poznyakoff  <gray@gnu.org>
+
+        Fix memory leaks in gdbmshell
+
+        * configure.ac: Don't use $YACC and $LEX (undefined since
+        f4c143fbdf).
+        * src/gdbmshell.c (run_command): Free arglist if not saved to
+        last_args.
+        * src/gdbmtool.c (gdbmtool_init): Correctly report unrecognized
+        long options.
+        * src/gdbmtool.h (YY_LOCATION_PRINT): Define to locus_print.
+        (locus_print): New proto.
+        * src/gram.y: Define destructors for various symbols.
+        * src/lex.l: Save source file names in a linked list.  Don't
+        free source name in input_context_pop, because yypush might
+        refer to it via yyloc stack even after readinf eof (e.g. when
+        printing location). The collected list is freed at program exit.
+        (locus_print): New function.
+        * src/parseopt.c (parseopt_free): New function.
+        (parseopt_first): Call parseopt_free.
+        (parseopt_next): Call parseopt_free, depending on the result.
+        * src/var.c (variable) <freehook>: New member.
+        (errormask_freehook): New function.  Set it as freehook for
+        errorexit and errormask.
+        (variables_free): Call freehook, if defined.
+

_service:tar_scm:gdbm-1.22.tar.gz/Makefile.am -> _service:tar_scm:gdbm-1.23.tar.gz/Makefile.am Changed

_service:tar_scm:gdbm-1.22.tar.gz/Makefile.in -> _service:tar_scm:gdbm-1.23.tar.gz/Makefile.in Changed

@@ -15,7 +15,7 @@
 @SET_MAKE@
 
 # This file is part of GDBM.                                   -*- Makefile -*-
-# Copyright (C) 2007-2021 Free Software Foundation, Inc.
+# Copyright (C) 2007-2022 Free Software Foundation, Inc.
 #
 # GDBM is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -180,7 +180,7 @@
 ETAGS = etags
 CTAGS = ctags
 CSCOPE = cscope
-DIST_SUBDIRS = po src doc compat tests
+DIST_SUBDIRS = po src tools doc compat tests
 am__DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/autoconf.h.in \
 	$(top_srcdir)/build-aux/compile \
 	$(top_srcdir)/build-aux/config.guess \
@@ -191,9 +191,8 @@
 	$(top_srcdir)/build-aux/missing ABOUT-NLS AUTHORS COPYING \
 	ChangeLog INSTALL NEWS README THANKS build-aux/compile \
 	build-aux/config.guess build-aux/config.rpath \
-	build-aux/config.sub build-aux/depcomp build-aux/install-sh \
-	build-aux/ltmain.sh build-aux/mdate-sh build-aux/missing \
-	build-aux/texinfo.tex
+	build-aux/config.sub build-aux/install-sh build-aux/ltmain.sh \
+	build-aux/mdate-sh build-aux/missing build-aux/texinfo.tex
 DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
 distdir = $(PACKAGE)-$(VERSION)
 top_distdir = $(distdir)
@@ -385,7 +384,7 @@
 top_srcdir = @top_srcdir@
 EXTRA_DIST = build-aux/config.rpath NOTE-WARNING
 @COMPAT_OPT_TRUE@MAYBE_COMPAT = compat
-SUBDIRS = po src doc $(MAYBE_COMPAT) tests
+SUBDIRS = po src tools doc $(MAYBE_COMPAT) tests
 AM_DISTCHECK_CONFIGURE_FLAGS = --enable-libgdbm-compat
 gen_start_date = 2016-07-08
 prev_change_log = ChangeLog.cvs

_service:tar_scm:gdbm-1.22.tar.gz/NEWS -> _service:tar_scm:gdbm-1.23.tar.gz/NEWS Changed

@@ -1,10 +1,41 @@
-GNU dbm NEWS -- history of user-visible changes. 2021-10-19
-Copyright (C) 1990-2021 Free Software Foundation, Inc.
+GNU dbm NEWS -- history of user-visible changes. 2022-02-04
+Copyright (C) 1990-2022 Free Software Foundation, Inc.
 See the end of file for copying conditions.
 
 Please send gdbm bug reports to <bug-gdbm@gnu.org>.
 &#xc;
-Version 1.22
+Version 1.23, 2022-02-04
+
+* Bucket cache switched from balanced tree to hash table
+
+Change suggested by Terence Kelly.
+
+* Speed up flushing the changed buckets on disk
+
+* New option codes for gdbm_setopt
+
+** GDBM_GETDBFORMAT
+
+Return the database format.
+
+** GDBM_GETDIRDEPTH
+
+Return the directory depth, i.e. the number of initial (most significant)
+bits in hash value that are interpreted as index to the directory.
+
+** GDBM_GETBUCKETSIZE
+
+Return maximum number of keys per bucket.
+
+** GDBM_GETCACHEAUTO
+
+Return the status of the automatic cache adjustment.
+
+** GDBM_SETCACHEAUTO
+
+Enable or disable automatic cache adjustment.
+&#xc;
+Version 1.22, 2021-10-19
 
 * Fix file header validation

_service:tar_scm:gdbm-1.22.tar.gz/README -> _service:tar_scm:gdbm-1.23.tar.gz/README Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/Makefile.am -> _service:tar_scm:gdbm-1.23.tar.gz/compat/Makefile.am Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/Makefile.in -> _service:tar_scm:gdbm-1.23.tar.gz/compat/Makefile.in Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/close.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/close.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/dbm-priv.h -> _service:tar_scm:gdbm-1.23.tar.gz/compat/dbm-priv.h Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/dbm.h -> _service:tar_scm:gdbm-1.23.tar.gz/compat/dbm.h Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/dbmclose.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/dbmclose.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/dbmdelete.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/dbmdelete.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/dbmdirfno.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/dbmdirfno.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/dbmerr.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/dbmerr.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/dbmfetch.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/dbmfetch.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/dbminit.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/dbminit.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/dbmopen.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/dbmopen.c Changed

@@ -2,7 +2,7 @@
    NDBM interface for dbm use. */
 
 /* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
 
    GDBM is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -178,7 +178,7 @@
   
 /* Initialize ndbm system.  FILE is a pointer to the file name.  In
    standard dbm, the database is found in files called FILE.pag and
-   FILE.dir.  To make gdbm compatable with dbm using the dbminit call,
+   FILE.dir.  To make gdbm compatible with dbm using the dbminit call,
    the same file names are used.  Specifically, dbminit will use the file
    name FILE.pag in its call to gdbm open.  If the file (FILE.pag) has a
    size of zero bytes, a file initialization procedure is performed,
@@ -194,7 +194,7 @@
    FLAGS and MODE are the same as for the open(2) call.  This call will
    look at the FLAGS and decide what call to make to gdbm_open.  For
    FLAGS == O_RDONLY, it will be a GDBM_READER, if FLAGS == O_RDWR|O_CREAT,
-   it will be a GDBM_WRCREAT (creater and writer) and if the FLAGS == O_RDWR,
+   it will be a GDBM_WRCREAT (creator and writer) and if the FLAGS == O_RDWR,
    it will be a GDBM_WRITER and if FLAGS contain O_TRUNC then it will be
    a GDBM_NEWDB.  The O_CLOEXEC bit raises GDBM_CLOEXEC flag.
    All other values of FLAGS are ignored. */

_service:tar_scm:gdbm-1.22.tar.gz/compat/dbmpagfno.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/dbmpagfno.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/dbmrdonly.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/dbmrdonly.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/dbmseq.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/dbmseq.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/dbmstore.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/dbmstore.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/delete.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/delete.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/fetch.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/fetch.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/ndbm.h -> _service:tar_scm:gdbm-1.23.tar.gz/compat/ndbm.h Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/seq.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/seq.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/compat/store.c -> _service:tar_scm:gdbm-1.23.tar.gz/compat/store.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/configure -> _service:tar_scm:gdbm-1.23.tar.gz/configure Changed

@@ -1,6 +1,6 @@
 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.69 for gdbm 1.22.
+# Generated by GNU Autoconf 2.69 for gdbm 1.23.
 #
 # Report bugs to <bug-gdbm@gnu.org>.
 #
@@ -590,8 +590,8 @@
 # Identity of this package.
 PACKAGE_NAME='gdbm'
 PACKAGE_TARNAME='gdbm'
-PACKAGE_VERSION='1.22'
-PACKAGE_STRING='gdbm 1.22'
+PACKAGE_VERSION='1.23'
+PACKAGE_STRING='gdbm 1.23'
 PACKAGE_BUGREPORT='bug-gdbm@gnu.org'
 PACKAGE_URL='http://www.gnu.org/software/gdbm'
 
@@ -1369,7 +1369,7 @@
   # Omit some internal or obsolete options to make the list less imposing.
   # This message is too long to be a string in the A/UX 3.1 sh.
   cat <<_ACEOF
-\`configure' configures gdbm 1.22 to adapt to many kinds of systems.
+\`configure' configures gdbm 1.23 to adapt to many kinds of systems.
 
 Usage: $0 OPTION... VAR=VALUE...
 
@@ -1439,7 +1439,7 @@
 
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of gdbm 1.22:";;
+     short | recursive ) echo "Configuration of gdbm 1.23:";;
    esac
   cat <<\_ACEOF
 
@@ -1571,7 +1571,7 @@
 test -n "$ac_init_help" && exit $ac_status
 if $ac_init_version; then
   cat <<\_ACEOF
-gdbm configure 1.22
+gdbm configure 1.23
 generated by GNU Autoconf 2.69
 
 Copyright (C) 2012 Free Software Foundation, Inc.
@@ -2234,7 +2234,7 @@
 This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
 
-It was created by gdbm $as_me 1.22, which was
+It was created by gdbm $as_me 1.23, which was
 generated by GNU Autoconf 2.69.  Invocation command line was
 
   $ $0 $@
@@ -3107,7 +3107,7 @@
 
 # Define the identity of the package.
  PACKAGE='gdbm'
- VERSION='1.22'
+ VERSION='1.23'
 
 
 cat >>confdefs.h <<_ACEOF
@@ -3244,7 +3244,7 @@
 
 GDBM_VERSION_MAJOR=1
 
-GDBM_VERSION_MINOR=22
+GDBM_VERSION_MINOR=23
 
 GDBM_VERSION_PATCH=0
 
@@ -15577,12 +15577,6 @@
 
 
 if test "$want_gdbmtool_debug" = yes; then
-    if ! $LEX --version 2>/dev/null | grep -q flex; then
-       as_fn_error $? "--enable-gdbmtool-debug requires flex, which is not available" "$LINENO" 5
-    fi
-    if ! $YACC --version 2>/dev/null | grep -q bison; then
-       as_fn_error $? "--enable-gdbmtool-debug requires bison, which is not available" "$LINENO" 5
-    fi
     YFLAGS_DEBUG=-t
     LFLAGS_DEBUG=-d
 fi
@@ -15610,7 +15604,7 @@
 ac_config_commands="$ac_config_commands status"
 
 
-ac_config_files="$ac_config_files Makefile src/Makefile src/gdbm.h doc/Makefile compat/Makefile"
+ac_config_files="$ac_config_files Makefile src/Makefile src/gdbm.h tools/Makefile doc/Makefile compat/Makefile"
 
 
 cat >confcache <<\_ACEOF
@@ -16159,7 +16153,7 @@
 # report actual input values of CONFIG_FILES etc. instead of their
 # values after options handling.
 ac_log="
-This file was extended by gdbm $as_me 1.22, which was
+This file was extended by gdbm $as_me 1.23, which was
 generated by GNU Autoconf 2.69.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
@@ -16226,7 +16220,7 @@
 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
 ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/\\""\`\$/\\\\&/g'`"
 ac_cs_version="\\
-gdbm config.status 1.22
+gdbm config.status 1.23
 configured by $0, generated by GNU Autoconf 2.69,
   with options \\"\$ac_cs_config\\"
 
@@ -16665,6 +16659,7 @@
     "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;;
     "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;;
     "src/gdbm.h") CONFIG_FILES="$CONFIG_FILES src/gdbm.h" ;;
+    "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;;
     "doc/Makefile") CONFIG_FILES="$CONFIG_FILES doc/Makefile" ;;
     "compat/Makefile") CONFIG_FILES="$CONFIG_FILES compat/Makefile" ;;

_service:tar_scm:gdbm-1.22.tar.gz/configure.ac -> _service:tar_scm:gdbm-1.23.tar.gz/configure.ac Changed

@@ -1,5 +1,5 @@
 # This file is part of GDBM.                                   -*- autoconf -*-
-# Copyright (C) 2007-2021 Free Software Foundation, Inc.
+# Copyright (C) 2007-2022 Free Software Foundation, Inc.
 #
 # GDBM is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -15,7 +15,7 @@
 # along with GDBM. If not, see <http://www.gnu.org/licenses/>. */
 
 m4_define(_GDBM_VERSION_MAJOR, 1)
-m4_define(_GDBM_VERSION_MINOR, 22)
+m4_define(_GDBM_VERSION_MINOR, 23)
 
 AC_INIT(gdbm,
         _GDBM_VERSION_MAJOR._GDBM_VERSION_MINORm4_ifdef(_GDBM_VERSION_PATCH,._GDBM_VERSION_PATCH),
@@ -227,12 +227,6 @@
 AC_SUBST(YFLAGS_DEBUG)
 AC_SUBST(LFLAGS_DEBUG)
 if test "$want_gdbmtool_debug" = yes; then
-    if ! $LEX --version 2>/dev/null | grep -q flex; then
-       AC_MSG_ERROR(--enable-gdbmtool-debug requires flex, which is not available)
-    fi
-    if ! $YACC --version 2>/dev/null | grep -q bison; then
-       AC_MSG_ERROR(--enable-gdbmtool-debug requires bison, which is not available)
-    fi
     YFLAGS_DEBUG=-t
     LFLAGS_DEBUG=-d
 fi    
@@ -280,6 +274,7 @@
 AC_CONFIG_FILES(Makefile
                  src/Makefile
 		 src/gdbm.h
+		 tools/Makefile
 		 doc/Makefile
 		 compat/Makefile)

_service:tar_scm:gdbm-1.22.tar.gz/doc/Makefile.am -> _service:tar_scm:gdbm-1.23.tar.gz/doc/Makefile.am Changed

_service:tar_scm:gdbm-1.22.tar.gz/doc/Makefile.in -> _service:tar_scm:gdbm-1.23.tar.gz/doc/Makefile.in Changed

_service:tar_scm:gdbm-1.22.tar.gz/doc/fdl.texi -> _service:tar_scm:gdbm-1.23.tar.gz/doc/fdl.texi Changed

_service:tar_scm:gdbm-1.22.tar.gz/doc/gdbm.3 -> _service:tar_scm:gdbm-1.23.tar.gz/doc/gdbm.3 Changed

_service:tar_scm:gdbm-1.22.tar.gz/doc/gdbm.info -> _service:tar_scm:gdbm-1.23.tar.gz/doc/gdbm.info Changed

@@ -3,7 +3,7 @@
 Published by the Free Software Foundation, 51 Franklin Street, Fifth
 Floor Boston, MA 02110-1301, USA
 
-   Copyright (C) 1989-1999, 2007-2021 Free Software Foundation, Inc.
+   Copyright (C) 1989-1999, 2007-2022 Free Software Foundation, Inc.
 
    Permission is granted to copy, distribute and/or modify this document
 under the terms of the GNU Free Documentation License, Version 1.3 or
@@ -26,7 +26,7 @@
 ************************
 
 GNU 'dbm' ('GDBM') is a library of functions implementing a hashed
-database on a disk file.  This manual documents GNU 'dbm' Version 1.22.
+database on a disk file.  This manual documents GNU 'dbm' Version 1.23.
 The software was originally written by Philip A. Nelson.  This document
 was originally written by Pierre Gaumond from texts written by Phil.
 
@@ -427,7 +427,7 @@
           memory condition, disk write error, or the like).  In these
           versions, 'fatal_func' was provided as a hook, allowing the
           caller to do proper cleanup before such abnormal exit.  As of
-          version 1.22, this functionality is deprecated, although still
+          version 1.23, this functionality is deprecated, although still
           supported for backward compatibility.
 
      The return value, is the pointer needed by all other functions to
@@ -835,7 +835,7 @@
 12 Changing database format
 ***************************
 
-As of version 1.22, 'GDBM' supports databases in two formats: "standard"
+As of version 1.23, 'GDBM' supports databases in two formats: "standard"
 and "extended".  The standard format is used most often.  The "extended"
 database format is used to provide additional crash resistance (*note
 Crash Tolerance::).
@@ -905,7 +905,7 @@
 stringent rules on what data is written to them and how it is
 interpreted.
 
-   'GDBM' version 1.22 supports two flat file formats.  The "binary"
+   'GDBM' version 1.23 supports two flat file formats.  The "binary"
 flat file format was first implemented in version 1.9.1.  This format
 stores only key/data pairs, it does not keep information about the
 database file itself.  As its name implies, files in this format are
@@ -1339,7 +1339,7 @@
 
 Crash tolerance is a new (as of release 1.21) feature that can be
 enabled at compile time, and used in environments with appropriate
-support from the OS and the filesystem.  As of version 1.22, this means
+support from the OS and the filesystem.  As of version 1.23, this means
 a Linux kernel 5.12.12 or later and a filesystem that supports reflink
 copying, such as XFS, BtrFS, or OCFS2.  If these prerequisites are met,
 crash tolerance code will be enabled automatically by the 'configure'
@@ -1868,15 +1868,18 @@
 
    The valid options are:
 
-GDBM_SETCACHESIZE
-GDBM_CACHESIZE
+ -- Option: GDBM_SETCACHESIZE
+ -- Option: GDBM_CACHESIZE
      Set the size of the internal bucket cache.  The VALUE should point
      to a 'size_t' holding the desired cache size, or the constant
-     'GDBM_CACHE_AUTO', to set the best cache size automatically.
+     'GDBM_CACHE_AUTO', to adjust the cache size automatically.
 
-     By default, a newly open database is configured to adapt the cache
-     size to the number of index buckets in the database file.  This
-     provides for the best performance.
+     By default, a newly open database is configured to dynamically
+     accommodate the cache size to the number of index buckets in the
+     database file.  This provides for the best performance.
+
+     If another VALUE is set, it is adjusted to the nearest larger power
+     of two.
 
      Use this option if you wish to limit the memory usage at the
      expense of performance.  If you chose to do so, please bear in mind
@@ -1889,16 +1892,36 @@
           gdbm_bucket_count (dbf, &bn);
           ret = gdbm_setopt (dbf, GDBM_SETCACHESIZE, &bn, sizeof (bn));
 
-     To set the best cache size, use the constant 'GDBM_CACHE_AUTO':
+     To request the automatically adjustable cache size, use the
+     constant 'GDBM_CACHE_AUTO':
 
           size_t bn = GDBM_CACHE_AUTO;
           ret = gdbm_setopt (dbf, GDBM_SETCACHESIZE, &bn, sizeof (bn));
 
-GDBM_GETCACHESIZE
-     Return the size of the internal bucket cache.  The VALUE should
-     point to a 'size_t' variable, where the size will be stored.
+ -- Option: GDBM_GETCACHESIZE
+     Return the actual size of the internal bucket cache.  The VALUE
+     should point to a 'size_t' variable, where the size will be stored.
+
+ -- Option: GDBM_SETCACHEAUTO
+     Controls whether the cache size will be adjusted automatically as
+     needed.  The VALUE should point to an integer: 'TRUE' to enable
+     automatic cache adjustment and 'FALSE' to disable it.
+
+     The following two calls are equivalent:
+
+          int t = TRUE;
+          gdbm_setopt (dbf, GDBM_SETCACHEAUTO, &t, sizeof (t));
+
+          size_t n = GDBM_CACHE_AUTO;
+          gdbm_setopt (dbf, GDBM_SETCACHESIZE, &n, sizeof (n));
+
+ -- Option: GDBM_GETCACHEAUTO
+     Return the state of the automatic cache size adjustment.  The VALUE
+     should point to an integer which, upon successful return, will have
+     the value 'TRUE' if the automatic cache size adjustment is enabled
+     and 'FALSE' otherwise.
 
-GDBM_GETFLAGS
+ -- Option: GDBM_GETFLAGS
      Return the flags describing the state of the database.  The VALUE
      should point to an 'int' variable where to store the flags.  On
      success, its value will be similar to the flags used when opening
@@ -1906,17 +1929,34 @@
      the current state (which may have been altered by another calls to
      'gdbm_setopt').
 
-GDBM_FASTMODE
+ -- Option: GDBM_GETDBFORMAT
+     Return the database format.  The VALUE should point to an 'int'
+     variable.  Upon successful return, it will be set to '0' if the
+     database is in standard format and 'GDBM_NUMSYNC' if it is in
+     extended format.  *Note Database format::.
+
+ -- Option: GDBM_GETDIRDEPTH
+     Returns the "directory depth": the number of initial (most
+     significant) bits in hash value that are interpreted as index to
+     the directory.  The actual directory size can be computed as '1 <<
+     VALUE'.
+
+     The VALUE argument should point to an 'int'.
+
+ -- Option: GDBM_GETBUCKETSIZE
+     Returns the "bucket capacity": maximum number of keys per bucket
+     ('int').
+
+ -- Option: GDBM_FASTMODE
      Enable or disable the "fast writes mode", i.e. writes without
      subsequent synchronization.  The VALUE should point to an integer:
      'TRUE' to enable fast mode, and 'FALSE' to disable it.
 
      This option is retained for compatibility with previous versions of
-     'GDBM'.  Its effect is the reverse of 'GDBM_SETSYNCMODE' (see
-     below).
+     'GDBM'.  Its effect is the reverse of 'GDBM_SETSYNCMODE'.
 
-GDBM_SETSYNCMODE
-GDBM_SYNCMODE
+ -- Option: GDBM_SETSYNCMODE
+ -- Option: GDBM_SYNCMODE
      Turn on or off file system synchronization operations.  This
      setting defaults to off.  The VALUE should point to an integer:
      'TRUE' to turn synchronization on, and 'FALSE' to turn it off.
@@ -1928,12 +1968,12 @@
      The 'GDBM_SYNCMODE' option is provided for compatibility with
      earlier versions.
 
-GDBM_GETSYNCMODE
+ -- Option: GDBM_GETSYNCMODE
      Return the current synchronization status.  The VALUE should point
      to an 'int' where the status will be stored.
 
-GDBM_SETCENTFREE
-GDBM_CENTFREE
+ -- Option: GDBM_SETCENTFREE
+ -- Option: GDBM_CENTFREE
      _NOTICE: This feature is still under study._
 
      Set central free block pool to either on or off.  The default is
@@ -1946,8 +1986,8 @@
      The 'GDBM_CENTFREE' option is provided for compatibility with
      earlier versions.
 
-GDBM_SETCOALESCEBLKS
-GDBM_COALESCEBLKS
+ -- Option: GDBM_SETCOALESCEBLKS
+ -- Option: GDBM_COALESCEBLKS
      _NOTICE: This feature is still under study._
 
      Set free block merging to either on or off.  The default is off,
@@ -1958,30 +1998,30 @@
      an integer: 'TRUE' to turn free block merging on, and 'FALSE' to
      turn it off.
 
-GDBM_GETCOALESCEBLKS
+ -- Option: GDBM_GETCOALESCEBLKS
      Return the current status of free block merging.  The VALUE should
      point to an 'int' where the status will be stored.
 
-GDBM_SETMAXMAPSIZE
+ -- Option: GDBM_SETMAXMAPSIZE
      Sets maximum size of a memory mapped region.  The VALUE should

_service:tar_scm:gdbm-1.22.tar.gz/doc/gdbm.texi -> _service:tar_scm:gdbm-1.23.tar.gz/doc/gdbm.texi Changed

@@ -43,7 +43,7 @@
 51 Franklin Street, Fifth Floor
 Boston, MA 02110-1301, USA
 
-Copyright @copyright{} 1989-1999, 2007-2021 Free Software Foundation,
+Copyright @copyright{} 1989--1999, 2007--2022 Free Software Foundation,
 Inc.
 
 Permission is granted to copy, distribute and/or modify this document
@@ -2083,20 +2083,19 @@
 
 The valid options are:
 
-@table @asis
-@kwindex GDBM_CACHESIZE
-@kwindex GDBM_SETCACHESIZE
-@item GDBM_SETCACHESIZE
-@itemx GDBM_CACHESIZE
-@kwindex GDBM_CACHE_AUTO
+@defvr {Option} GDBM_SETCACHESIZE
+@defvrx {Option} GDBM_CACHESIZE
 Set the size of the internal bucket cache.  The @var{value} should
 point to a @code{size_t} holding the desired cache size, or the
-constant @code{GDBM_CACHE_AUTO}, to set the best cache size
+constant @code{GDBM_CACHE_AUTO}, to adjust the cache size
 automatically.
 
-By default, a newly open database is configured to adapt the cache
-size to the number of index buckets in the database file.  This
-provides for the best performance.
+By default, a newly open database is configured to dynamically
+accommodate the cache size to the number of index buckets in the
+database file.  This provides for the best performance.
+
+If another @var{value} is set, it is adjusted to the nearest larger
+power of two.
 
 Use this option if you wish to limit the memory usage at the expense
 of performance.  If you chose to do so, please bear in mind that cache
@@ -2110,41 +2109,84 @@
 ret = gdbm_setopt (dbf, GDBM_SETCACHESIZE, &bn, sizeof (bn));
 @end example
 
-To set the best cache size, use the constant @code{GDBM_CACHE_AUTO}:
+To request the automatically adjustable cache size, use the constant
+@code{GDBM_CACHE_AUTO}:
 
 @example
 size_t bn = GDBM_CACHE_AUTO;
 ret = gdbm_setopt (dbf, GDBM_SETCACHESIZE, &bn, sizeof (bn));
 @end example
+@end defvr
+
+@defvr {Option} GDBM_GETCACHESIZE
+Return the actual size of the internal bucket cache.  The @var{value}
+should point to a @code{size_t} variable, where the size will be
+stored.
+@end defvr
+
+@defvr {Option} GDBM_SETCACHEAUTO
+Controls whether the cache size will be adjusted automatically as
+needed.  The @var{value} should point to an integer: @code{TRUE} to
+enable automatic cache adjustment and @code{FALSE} to disable it.
+
+The following two calls are equivalent:
+
+@example
+int t = TRUE;
+gdbm_setopt (dbf, GDBM_SETCACHEAUTO, &t, sizeof (t));
+
+size_t n = GDBM_CACHE_AUTO;
+gdbm_setopt (dbf, GDBM_SETCACHESIZE, &n, sizeof (n));
+@end example
+@end defvr
 
-@kwindex GDBM_GETCACHESIZE
-@item GDBM_GETCACHESIZE
-Return the size of the internal bucket cache.  The @var{value} should
-point to a @code{size_t} variable, where the size will be stored.
+@defvr {Option} GDBM_GETCACHEAUTO
+Return the state of the automatic cache size adjustment.  The
+@var{value} should point to an integer which, upon successful return,
+will have the value @code{TRUE} if the automatic cache size adjustment
+is enabled and @code{FALSE} otherwise.
+@end defvr
 
-@kwindex GDBM_GETFLAGS
-@item GDBM_GETFLAGS
+@defvr {Option} GDBM_GETFLAGS
 Return the flags describing the state of the database.  The @var{value} should
 point to an @code{int} variable where to store the flags.  On success,
 its value will be similar to the flags used when opening the database
 (@pxref{Open, gdbm_open}), except that it will reflect the current state
 (which may have been altered by another calls to @code{gdbm_setopt}).
+@end defvr
 
-@kwindex GDBM_FASTMODE
-@item GDBM_FASTMODE
+@defvr {Option} GDBM_GETDBFORMAT
+Return the database format.  The @var{value} should point to an
+@code{int} variable.  Upon successful return, it will be set to
+@samp{0} if the database is in standard format and @code{GDBM_NUMSYNC}
+if it is in extended format.  @xref{Database format}.
+@end defvr
+
+@defvr {Option} GDBM_GETDIRDEPTH
+Returns the @dfn{directory depth}: the number of initial (most significant)
+bits in hash value that are interpreted as index to the directory.  The
+actual directory size can be computed as @code{1 << @var{value}}.
+
+The @var{value} argument should point to an @code{int}.  
+@end defvr
+
+@defvr {Option} GDBM_GETBUCKETSIZE
+Returns the @dfn{bucket capacity}: maximum number of keys per bucket
+(@code{int}).
+@end defvr
+
+@defvr {Option} GDBM_FASTMODE
 Enable or disable the @dfn{fast writes mode}, i.e.@: writes without
 subsequent synchronization.  The @var{value} should point
 to an integer: @code{TRUE} to enable fast mode, and @code{FALSE} to
 disable it.
 
 This option is retained for compatibility with previous versions of
-@command{GDBM}.  Its effect is the reverse of @code{GDBM_SETSYNCMODE}
-(see below).
+@command{GDBM}.  Its effect is the reverse of @code{GDBM_SETSYNCMODE}.
+@end defvr
 
-@kwindex GDBM_SETSYNCMODE
-@kwindex GDBM_SYNCMODE
-@item GDBM_SETSYNCMODE
-@itemx GDBM_SYNCMODE
+@defvr {Option} GDBM_SETSYNCMODE
+@defvrx {Option} GDBM_SYNCMODE
 Turn on or off file system synchronization operations.  This
 setting defaults to off.  The @var{value} should point
 to an integer: @code{TRUE} to turn synchronization on, and @code{FALSE} to
@@ -2156,16 +2198,15 @@
 
 The @code{GDBM_SYNCMODE} option is provided for compatibility with
 earlier versions.
+@end defvr
 
-@kwindex GDBM_GETSYNCMODE
-@item GDBM_GETSYNCMODE
+@defvr {Option} GDBM_GETSYNCMODE
 Return the current synchronization status.  The @var{value} should
 point to an @code{int} where the status will be stored.
+@end defvr
 
-@kwindex GDBM_SETCENTFREE
-@kwindex GDBM_CENTFREE
-@item GDBM_SETCENTFREE
-@itemx GDBM_CENTFREE
+@defvr {Option} GDBM_SETCENTFREE
+@defvrx {Option} GDBM_CENTFREE
 @emph{NOTICE: This feature is still under study.}
 
 Set central free block pool to either on or off.  The default is off,
@@ -2177,11 +2218,10 @@
 
 The @code{GDBM_CENTFREE} option is provided for compatibility with
 earlier versions.
+@end defvr
 
-@kwindex GDBM_SETCOALESCEBLKS
-@kwindex GDBM_COALESCEBLKS
-@item GDBM_SETCOALESCEBLKS
-@itemx GDBM_COALESCEBLKS
+@defvr {Option} GDBM_SETCOALESCEBLKS
+@defvrx {Option} GDBM_COALESCEBLKS
 @emph{NOTICE: This feature is still under study.}
 
 Set free block merging to either on or off.  The default is off, which
@@ -2191,38 +2231,38 @@
 used in conjunction with GDBM_CENTFREE.  The @var{value} should point
 to an integer: @code{TRUE} to turn free block merging on, and @code{FALSE} to
 turn it off.
+@end defvr
 
-@kwindex GDBM_GETCOALESCEBLKS
-@item GDBM_GETCOALESCEBLKS
+@defvr {Option} GDBM_GETCOALESCEBLKS
 Return the current status of free block merging.  The @var{value} should
 point to an @code{int} where the status will be stored.
+@end defvr
 
-@kwindex GDBM_SETMAXMAPSIZE
-@item GDBM_SETMAXMAPSIZE
+@defvr {Option} GDBM_SETMAXMAPSIZE
 Sets maximum size of a memory mapped region.  The @var{value} should
 point to a value of type @code{size_t}, @code{unsigned long} or
 @code{unsigned}.  The actual value is rounded to the nearest page
 boundary (the page size is obtained from
 @code{sysconf(_SC_PAGESIZE)}).
+@end defvr
 
-@kwindex GDBM_GETMAXMAPSIZE

_service:tar_scm:gdbm-1.22.tar.gz/doc/gdbm_dump.1 -> _service:tar_scm:gdbm-1.23.tar.gz/doc/gdbm_dump.1 Changed

_service:tar_scm:gdbm-1.22.tar.gz/doc/gdbm_load.1 -> _service:tar_scm:gdbm-1.23.tar.gz/doc/gdbm_load.1 Changed

_service:tar_scm:gdbm-1.22.tar.gz/doc/gdbmtool.1 -> _service:tar_scm:gdbm-1.23.tar.gz/doc/gdbmtool.1 Changed

_service:tar_scm:gdbm-1.22.tar.gz/doc/stamp-vti -> _service:tar_scm:gdbm-1.23.tar.gz/doc/stamp-vti Changed

_service:tar_scm:gdbm-1.22.tar.gz/doc/version.texi -> _service:tar_scm:gdbm-1.23.tar.gz/doc/version.texi Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/Makevars -> _service:tar_scm:gdbm-1.23.tar.gz/po/Makevars Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/POTFILES.in -> _service:tar_scm:gdbm-1.23.tar.gz/po/POTFILES.in Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/da.gmo -> _service:tar_scm:gdbm-1.23.tar.gz/po/da.gmo Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/da.po -> _service:tar_scm:gdbm-1.23.tar.gz/po/da.po Changed

@@ -13,7 +13,7 @@
 msgstr ""
 "Project-Id-Version: gdbm 1.12.90\n"
 "Report-Msgid-Bugs-To: bug-gdbm@gnu.org\n"
-"POT-Creation-Date: 2021-10-19 07:55+0300\n"
+"POT-Creation-Date: 2022-02-04 16:04+0200\n"
 "PO-Revision-Date: 2017-02-12 11:00+0200\n"
 "Last-Translator: Joe Hansen <joedalton2@yahoo.dk>\n"
 "Language-Team: Danish <dansk@dansk-gruppen.dk>\n"
@@ -24,186 +24,23 @@
 "X-Bugs: Report translation errors to the Language-Team address.\n"
 "Plural-Forms: nplurals=2; plural=(n != 1);\n"
 
-#: src/bucket.c:267 src/bucket.c:538 src/bucket.c:647 src/falloc.c:211
-#: src/falloc.c:337 src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36
-#: src/update.c:88
+#: src/bucket.c:399 src/bucket.c:684 src/falloc.c:211 src/falloc.c:337
+#: src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36 src/update.c:76
 msgid "lseek error"
 msgstr "lseek-fejl"
 
-#: src/bucket.c:395
+#: src/bucket.c:534
 msgid "directory overflow"
 msgstr "mappeoverløb"
 
-#: src/bucket.c:406 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
+#: src/bucket.c:545 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
 msgid "malloc error"
 msgstr "malloc-fejl"
 
-#: src/datconv.c:291
-#, c-format
-msgid "(not enough data)"
-msgstr "(ikke nok data)"
-
-#: src/datconv.c:383
-msgid "cannot convert"
-msgstr "kan ikke konvertere"
-
-#: src/datconv.c:392
-#, c-format
-msgid "cannot convert value #%d: %s"
-msgstr "kan ikke konvertere værdi #%d: %s"
-
-#: src/datconv.c:418 src/datconv.c:467
-msgid "mixing tagged and untagged values is not allowed"
-msgstr "blanding af mærkede og umærkede værdier er ikke tilladt"
-
-#: src/datconv.c:472
-#, c-format
-msgid "%s: no such field in datum"
-msgstr ""
-
 #: src/falloc.c:201
 msgid "malloc failed"
 msgstr "malloc mislykkedes"
 
-#: src/gdbm_dump.c:22
-msgid "dump a GDBM database to a file"
-msgstr ""
-
-#: src/gdbm_dump.c:23
-#, fuzzy
-msgid "DB_FILE FILE"
-msgstr "DB-FIL"
-
-#: src/gdbm_dump.c:25
-msgid "select dump format"
-msgstr "vælg dump-format"
-
-#: src/gdbm_dump.c:67
-msgid "unknown dump format"
-msgstr "ukendt dump-format"
-
-#: src/gdbm_dump.c:74 src/gdbm_load.c:215
-msgid "unknown option"
-msgstr "ukendt tilvalg"
-
-#: src/gdbm_dump.c:90 src/gdbm_load.c:231
-#, c-format
-msgid "too many arguments; try `%s -h' for more info"
-msgstr "for mange argumenter; prøv »%s -h« for yderligere information"
-
-#: src/gdbm_dump.c:110 src/gdbm_load.c:251
-#, c-format
-msgid "cannot open %s"
-msgstr "kan ikke åbne %s"
-
-#: src/gdbm_dump.c:118 src/gdbm_load.c:261
-msgid "gdbm_open failed"
-msgstr "gdbm_open mislykkedes"
-
-#: src/gdbm_dump.c:125
-msgid "dump error"
-msgstr "dump-fejl"
-
-#: src/gdbm_load.c:32
-msgid "load a GDBM database from a file"
-msgstr ""
-
-#: src/gdbm_load.c:33
-#, fuzzy
-msgid "FILE DB_FILE"
-msgstr "DB-FIL"
-
-#: src/gdbm_load.c:35
-msgid "replace records in the existing database"
-msgstr "erstat poster i eksisterende database"
-
-#: src/gdbm_load.c:36
-msgid "MODE"
-msgstr "TILSTAND"
-
-#: src/gdbm_load.c:36
-msgid "set file mode"
-msgstr "angiv filtilstand"
-
-# oversættelse af navn: godt nok i tvivl her, fransk har oversat, polsk er oversat,
-# vietnamesisk har oversat, tysk er svær at se :o) 
-#: src/gdbm_load.c:37
-msgid "NAME|UID:NAME|GID"
-msgstr "NAVN|UID:NAVN|GID"
-
-#: src/gdbm_load.c:37
-msgid "set file owner"
-msgstr "angiv filejer"
-
-#: src/gdbm_load.c:38
-msgid "do not attempt to set file meta-data"
-msgstr "forsøg ikke at angive filmetadata"
-
-#: src/gdbm_load.c:39
-msgid "use memory mapping"
-msgstr "brug hukommelseskortlægning"
-
-#: src/gdbm_load.c:40 src/gdbm_load.c:41
-msgid "NUM"
-msgstr "NUM"
-
-#: src/gdbm_load.c:40
-msgid "set the cache size"
-msgstr "angiv cachestørrelsen"
-
-#: src/gdbm_load.c:41
-msgid "set the block size"
-msgstr "angiv blokstørrelsen"
-
-#: src/gdbm_load.c:79
-#, c-format
-msgid "invalid number: %s"
-msgstr "ugyldigt nummer: %s"
-
-#: src/gdbm_load.c:84
-#, c-format
-msgid "invalid number: %s: %s"
-msgstr "ugyldigt nummer: %s: %s"
-
-#: src/gdbm_load.c:136
-#, c-format
-msgid "invalid octal number"
-msgstr "ugyldigt oktaltal"
-
-#: src/gdbm_load.c:161
-#, c-format
-msgid "invalid user name: %s"
-msgstr "ugyldigt brugernavn: %s"
-
-#: src/gdbm_load.c:180
-#, c-format
-msgid "invalid group name: %s"
-msgstr "ugyldigt gruppenavn: %s"
-
-#: src/gdbm_load.c:192
-#, c-format
-msgid "no such UID: %lu"
-msgstr "ingen sådan UID: %lu"
-
-#: src/gdbm_load.c:267
-#, c-format
-msgid "gdbm_setopt failed: %s"
-msgstr "gdbm_setopt mislykkedes: %s"
-
-#: src/gdbm_load.c:281 src/gdbm_load.c:299
-#, c-format
-msgid "error restoring metadata: %s (%s)"
-msgstr "fejl under gendannelse af metadata %s (%s)"
-
-#: src/gdbm_load.c:290 src/gdbmshell.c:1458
-#, c-format
-msgid "cannot load from %s"
-msgstr "kan ikke indlæse fra %s"
-
-#: src/gdbm_load.c:307
-msgid "gdbm_setopt failed"
-msgstr "gdbm_setopt mislykkedes"
-
 #: src/gdbmerrno.c:102
 msgid "No error"
 msgstr "Ingen fejl"

_service:tar_scm:gdbm-1.22.tar.gz/po/de.gmo -> _service:tar_scm:gdbm-1.23.tar.gz/po/de.gmo Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/de.po -> _service:tar_scm:gdbm-1.23.tar.gz/po/de.po Changed

@@ -7,7 +7,7 @@
 msgstr ""
 "Project-Id-Version: gdbm 1.19.90\n"
 "Report-Msgid-Bugs-To: bug-gdbm@gnu.org\n"
-"POT-Creation-Date: 2021-10-19 07:55+0300\n"
+"POT-Creation-Date: 2022-02-04 16:04+0200\n"
 "PO-Revision-Date: 2021-04-02 17:16+0200\n"
 "Last-Translator: Mario Blättermann <mario.blaettermann@gmail.com>\n"
 "Language-Team: German <translation-team-de@lists.sourceforge.net>\n"
@@ -19,182 +19,23 @@
 "Plural-Forms: nplurals=2; plural=(n!=1);\n"
 "X-Generator: Lokalize 20.12.3\n"
 
-#: src/bucket.c:267 src/bucket.c:538 src/bucket.c:647 src/falloc.c:211
-#: src/falloc.c:337 src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36
-#: src/update.c:88
+#: src/bucket.c:399 src/bucket.c:684 src/falloc.c:211 src/falloc.c:337
+#: src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36 src/update.c:76
 msgid "lseek error"
 msgstr "lseek-Fehler"
 
-#: src/bucket.c:395
+#: src/bucket.c:534
 msgid "directory overflow"
 msgstr "Verzeichnisüberlauf"
 
-#: src/bucket.c:406 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
+#: src/bucket.c:545 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
 msgid "malloc error"
 msgstr "malloc-Fehler"
 
-#: src/datconv.c:291
-#, c-format
-msgid "(not enough data)"
-msgstr "(nicht genug Daten)"
-
-#: src/datconv.c:383
-msgid "cannot convert"
-msgstr "Umwandlung nicht möglich"
-
-#: src/datconv.c:392
-#, c-format
-msgid "cannot convert value #%d: %s"
-msgstr "Wert #%d kann nicht umgewandelt werden: %s"
-
-#: src/datconv.c:418 src/datconv.c:467
-msgid "mixing tagged and untagged values is not allowed"
-msgstr "Mischen markierter mit unmarkierten Werten ist nicht erlaubt"
-
-#: src/datconv.c:472
-#, c-format
-msgid "%s: no such field in datum"
-msgstr "%s: kein solches Feld im Datum"
-
 #: src/falloc.c:201
 msgid "malloc failed"
 msgstr "»malloc« schlug fehl"
 
-#: src/gdbm_dump.c:22
-msgid "dump a GDBM database to a file"
-msgstr "eine GDBM-Datenbank in einer Datei speichern"
-
-#: src/gdbm_dump.c:23
-msgid "DB_FILE FILE"
-msgstr "DB_FILE DATEI"
-
-#: src/gdbm_dump.c:25
-msgid "select dump format"
-msgstr "Speicherformat wählen"
-
-#: src/gdbm_dump.c:67
-msgid "unknown dump format"
-msgstr "unbekanntes Speicherformat"
-
-#: src/gdbm_dump.c:74 src/gdbm_load.c:215
-msgid "unknown option"
-msgstr "unbekannte Option"
-
-#: src/gdbm_dump.c:90 src/gdbm_load.c:231
-#, c-format
-msgid "too many arguments; try `%s -h' for more info"
-msgstr "zu viele Argumente, versuchen Sie »%s -h« für weitere Informationen"
-
-#: src/gdbm_dump.c:110 src/gdbm_load.c:251
-#, c-format
-msgid "cannot open %s"
-msgstr "%s kann nicht geöffnet werden"
-
-#: src/gdbm_dump.c:118 src/gdbm_load.c:261
-msgid "gdbm_open failed"
-msgstr "gdbm_open fehlgeschlagen:"
-
-#: src/gdbm_dump.c:125
-msgid "dump error"
-msgstr "Speicherfehler"
-
-#: src/gdbm_load.c:32
-msgid "load a GDBM database from a file"
-msgstr "eine GDBM-Datenbank aus einer Datei laden"
-
-#: src/gdbm_load.c:33
-msgid "FILE DB_FILE"
-msgstr "FILE DATENBANKDATEI"
-
-#: src/gdbm_load.c:35
-msgid "replace records in the existing database"
-msgstr "Datensätze in der existierenden Datenbank ersetzen"
-
-#: src/gdbm_load.c:36
-msgid "MODE"
-msgstr "MODUS"
-
-#: src/gdbm_load.c:36
-msgid "set file mode"
-msgstr "Dateimodus setzen"
-
-#: src/gdbm_load.c:37
-msgid "NAME|UID:NAME|GID"
-msgstr "NAME|UID:NAME|GID"
-
-#: src/gdbm_load.c:37
-msgid "set file owner"
-msgstr "Dateieigentümer festlegen"
-
-#: src/gdbm_load.c:38
-msgid "do not attempt to set file meta-data"
-msgstr "Nicht versuchen, die Metadaten der Datei zu setzen"
-
-#: src/gdbm_load.c:39
-msgid "use memory mapping"
-msgstr "Speicherzuweisung verwenden"
-
-#: src/gdbm_load.c:40 src/gdbm_load.c:41
-msgid "NUM"
-msgstr "ZAHL"
-
-#: src/gdbm_load.c:40
-msgid "set the cache size"
-msgstr "Zwischenspeichergröße festlegen"
-
-#: src/gdbm_load.c:41
-msgid "set the block size"
-msgstr "Blockgröße setzen"
-
-#: src/gdbm_load.c:79
-#, c-format
-msgid "invalid number: %s"
-msgstr "unzulässige Zahl: %s"
-
-#: src/gdbm_load.c:84
-#, c-format
-msgid "invalid number: %s: %s"
-msgstr "unzulässige Zahl: %s: %s"
-
-#: src/gdbm_load.c:136
-#, c-format
-msgid "invalid octal number"
-msgstr "unzulässige Oktalzahl"
-
-#: src/gdbm_load.c:161
-#, c-format
-msgid "invalid user name: %s"
-msgstr "unzulässiger Benutzername: %s"
-
-#: src/gdbm_load.c:180
-#, c-format
-msgid "invalid group name: %s"
-msgstr "unzulässiger Gruppenname: %s"
-
-#: src/gdbm_load.c:192
-#, c-format
-msgid "no such UID: %lu"
-msgstr "keine solche UID: %lu"
-
-#: src/gdbm_load.c:267
-#, c-format
-msgid "gdbm_setopt failed: %s"
-msgstr "gdbm_setopt fehlgeschlagen: %s"
-
-#: src/gdbm_load.c:281 src/gdbm_load.c:299
-#, c-format
-msgid "error restoring metadata: %s (%s)"
-msgstr "Fehler beim Wiederherstellen der Metadaten: %s (%s)"
-
-#: src/gdbm_load.c:290 src/gdbmshell.c:1458
-#, c-format
-msgid "cannot load from %s"
-msgstr "aus %s kann nicht geladen werden"
-
-#: src/gdbm_load.c:307
-msgid "gdbm_setopt failed"
-msgstr "gdbm_setopt fehlgeschlagen"
-
 #: src/gdbmerrno.c:102
 msgid "No error"
 msgstr "Kein Fehler"
@@ -380,138 +221,227 @@
 msgid "Function usage error"
 msgstr "Suchfehler in Datei"

_service:tar_scm:gdbm-1.22.tar.gz/po/eo.gmo -> _service:tar_scm:gdbm-1.23.tar.gz/po/eo.gmo Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/eo.po -> _service:tar_scm:gdbm-1.23.tar.gz/po/eo.po Changed

@@ -7,7 +7,7 @@
 msgstr ""
 "Project-Id-Version: gdbm 1.19.90\n"
 "Report-Msgid-Bugs-To: bug-gdbm@gnu.org\n"
-"POT-Creation-Date: 2021-10-19 07:55+0300\n"
+"POT-Creation-Date: 2022-02-04 16:04+0200\n"
 "PO-Revision-Date: 2021-04-16 09:45-0300\n"
 "Last-Translator: Felipe Castro <fefcas@gmail.com>\n"
 "Language-Team: Esperanto <translation-team-eo@lists.sourceforge.net>\n"
@@ -19,182 +19,23 @@
 "Plural-Forms: nplurals=2; plural=(n!=1);\n"
 "X-Generator: Poedit 2.4.2\n"
 
-#: src/bucket.c:267 src/bucket.c:538 src/bucket.c:647 src/falloc.c:211
-#: src/falloc.c:337 src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36
-#: src/update.c:88
+#: src/bucket.c:399 src/bucket.c:684 src/falloc.c:211 src/falloc.c:337
+#: src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36 src/update.c:76
 msgid "lseek error"
 msgstr "eraro de lseek"
 
-#: src/bucket.c:395
+#: src/bucket.c:534
 msgid "directory overflow"
 msgstr "dosieruja troo"
 
-#: src/bucket.c:406 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
+#: src/bucket.c:545 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
 msgid "malloc error"
 msgstr "eraro de malloc"
 
-#: src/datconv.c:291
-#, c-format
-msgid "(not enough data)"
-msgstr "(ne sufiĉe da datumaro)"
-
-#: src/datconv.c:383
-msgid "cannot convert"
-msgstr "ne eblas konverti"
-
-#: src/datconv.c:392
-#, c-format
-msgid "cannot convert value #%d: %s"
-msgstr "ne eblas konverti valoron #%d: %s"
-
-#: src/datconv.c:418 src/datconv.c:467
-msgid "mixing tagged and untagged values is not allowed"
-msgstr "mikso de markitaj kaj nemarkitaj valoroj ne estas permesata"
-
-#: src/datconv.c:472
-#, c-format
-msgid "%s: no such field in datum"
-msgstr "%s: neniu tia kampo en datumo"
-
 #: src/falloc.c:201
 msgid "malloc failed"
 msgstr "malloc fiaskis"
 
-#: src/gdbm_dump.c:22
-msgid "dump a GDBM database to a file"
-msgstr "ŝuti datumbazon GDBM al dosiero"
-
-#: src/gdbm_dump.c:23
-msgid "DB_FILE FILE"
-msgstr "DB_DOSIERO DOSIERO"
-
-#: src/gdbm_dump.c:25
-msgid "select dump format"
-msgstr "elekti ŝut-formon"
-
-#: src/gdbm_dump.c:67
-msgid "unknown dump format"
-msgstr "nekonata ŝut-formo"
-
-#: src/gdbm_dump.c:74 src/gdbm_load.c:215
-msgid "unknown option"
-msgstr "nekonata modifilo"
-
-#: src/gdbm_dump.c:90 src/gdbm_load.c:231
-#, c-format
-msgid "too many arguments; try `%s -h' for more info"
-msgstr "tro multaj argumentoj; provu '%s -h' por pli da informo"
-
-#: src/gdbm_dump.c:110 src/gdbm_load.c:251
-#, c-format
-msgid "cannot open %s"
-msgstr "ne eblas malfermi %s"
-
-#: src/gdbm_dump.c:118 src/gdbm_load.c:261
-msgid "gdbm_open failed"
-msgstr "gdbm_open fiaskis"
-
-#: src/gdbm_dump.c:125
-msgid "dump error"
-msgstr "ŝuta eraro"
-
-#: src/gdbm_load.c:32
-msgid "load a GDBM database from a file"
-msgstr "ŝargi je datumbazo GDBM el dosiero"
-
-#: src/gdbm_load.c:33
-msgid "FILE DB_FILE"
-msgstr "DOSIERO DB_DOSIERO"
-
-#: src/gdbm_load.c:35
-msgid "replace records in the existing database"
-msgstr "anstataŭigi rikordojn en la ekzistanta datumbazo"
-
-#: src/gdbm_load.c:36
-msgid "MODE"
-msgstr "REĜIMO"
-
-#: src/gdbm_load.c:36
-msgid "set file mode"
-msgstr "difini dosier-reĝimon"
-
-#: src/gdbm_load.c:37
-msgid "NAME|UID:NAME|GID"
-msgstr "NOMO|UID:NOMO|GID"
-
-#: src/gdbm_load.c:37
-msgid "set file owner"
-msgstr "difini dosier-posedanton"
-
-#: src/gdbm_load.c:38
-msgid "do not attempt to set file meta-data"
-msgstr "ne provi difini dosieran meta-datumaron"
-
-#: src/gdbm_load.c:39
-msgid "use memory mapping"
-msgstr "uzi memor-mapadon"
-
-#: src/gdbm_load.c:40 src/gdbm_load.c:41
-msgid "NUM"
-msgstr "NUM"
-
-#: src/gdbm_load.c:40
-msgid "set the cache size"
-msgstr "difini la kaŝmemoran grandon"
-
-#: src/gdbm_load.c:41
-msgid "set the block size"
-msgstr "difini la bloko-grandon"
-
-#: src/gdbm_load.c:79
-#, c-format
-msgid "invalid number: %s"
-msgstr "malvalida numero: %s"
-
-#: src/gdbm_load.c:84
-#, c-format
-msgid "invalid number: %s: %s"
-msgstr "malvalida numero: %s: %s"
-
-#: src/gdbm_load.c:136
-#, c-format
-msgid "invalid octal number"
-msgstr "malvalida okuma numero"
-
-#: src/gdbm_load.c:161
-#, c-format
-msgid "invalid user name: %s"
-msgstr "malvalida uzant-nomo: %s"
-
-#: src/gdbm_load.c:180
-#, c-format
-msgid "invalid group name: %s"
-msgstr "malvalida grup-nomo: %s"
-
-#: src/gdbm_load.c:192
-#, c-format
-msgid "no such UID: %lu"
-msgstr "neniu tia UID: %lu"
-
-#: src/gdbm_load.c:267
-#, c-format
-msgid "gdbm_setopt failed: %s"
-msgstr "gdbm_setopt fiaskis: %s"
-
-#: src/gdbm_load.c:281 src/gdbm_load.c:299
-#, c-format
-msgid "error restoring metadata: %s (%s)"
-msgstr "eraro dum restarigo de metadatumaro: %s (%s)"
-
-#: src/gdbm_load.c:290 src/gdbmshell.c:1458
-#, c-format
-msgid "cannot load from %s"
-msgstr "ne eblas ŝargi el %s"
-
-#: src/gdbm_load.c:307
-msgid "gdbm_setopt failed"
-msgstr "gdbm_setopt fiaskis"
-
 #: src/gdbmerrno.c:102
 msgid "No error"
 msgstr "Neniu eraro"
@@ -380,138 +221,227 @@
 msgid "Function usage error"
 msgstr "Eraro de serĉo en dosiero"

_service:tar_scm:gdbm-1.22.tar.gz/po/es.gmo -> _service:tar_scm:gdbm-1.23.tar.gz/po/es.gmo Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/es.po -> _service:tar_scm:gdbm-1.23.tar.gz/po/es.po Changed

@@ -6,7 +6,7 @@
 msgstr ""
 "Project-Id-Version: gdbm 1.12.90\n"
 "Report-Msgid-Bugs-To: bug-gdbm@gnu.org\n"
-"POT-Creation-Date: 2021-10-19 07:55+0300\n"
+"POT-Creation-Date: 2022-02-04 16:04+0200\n"
 "PO-Revision-Date: 2018-04-06 16:34+0200\n"
 "Last-Translator: Francisco Javier Serrador <fserrador@gmail.com>\n"
 "Language-Team: Spanish <es@tp.org.es>\n"
@@ -19,184 +19,23 @@
 "X-Generator: Poedit 2.0.4\n"
 "X-Poedit-SourceCharset: UTF-8\n"
 
-#: src/bucket.c:267 src/bucket.c:538 src/bucket.c:647 src/falloc.c:211
-#: src/falloc.c:337 src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36
-#: src/update.c:88
+#: src/bucket.c:399 src/bucket.c:684 src/falloc.c:211 src/falloc.c:337
+#: src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36 src/update.c:76
 msgid "lseek error"
 msgstr "error lseek"
 
-#: src/bucket.c:395
+#: src/bucket.c:534
 msgid "directory overflow"
 msgstr "desbordamiento de directorio"
 
-#: src/bucket.c:406 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
+#: src/bucket.c:545 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
 msgid "malloc error"
 msgstr "error malloc"
 
-#: src/datconv.c:291
-#, c-format
-msgid "(not enough data)"
-msgstr "(sin suficientes datos)"
-
-#: src/datconv.c:383
-msgid "cannot convert"
-msgstr "no puede convertir"
-
-#: src/datconv.c:392
-#, c-format
-msgid "cannot convert value #%d: %s"
-msgstr "no puede convertir valor Nº%d: %s"
-
-#: src/datconv.c:418 src/datconv.c:467
-msgid "mixing tagged and untagged values is not allowed"
-msgstr "mezclando valores etiquetados y no etiquetados no esa permitido"
-
-#: src/datconv.c:472
-#, c-format
-msgid "%s: no such field in datum"
-msgstr ""
-
 #: src/falloc.c:201
 msgid "malloc failed"
 msgstr "malloc fallado"
 
-#: src/gdbm_dump.c:22
-msgid "dump a GDBM database to a file"
-msgstr ""
-
-#: src/gdbm_dump.c:23
-#, fuzzy
-msgid "DB_FILE FILE"
-msgstr "BDFICHERO"
-
-#: src/gdbm_dump.c:25
-msgid "select dump format"
-msgstr "seleccionar formato volcado"
-
-#: src/gdbm_dump.c:67
-msgid "unknown dump format"
-msgstr "formato de volcado desconocido"
-
-#: src/gdbm_dump.c:74 src/gdbm_load.c:215
-msgid "unknown option"
-msgstr "opción desconocida"
-
-#: src/gdbm_dump.c:90 src/gdbm_load.c:231
-#, c-format
-msgid "too many arguments; try `%s -h' for more info"
-msgstr "demasiados argumentos; intente `%s -h' para más información"
-
-#: src/gdbm_dump.c:110 src/gdbm_load.c:251
-#, c-format
-msgid "cannot open %s"
-msgstr "no puede abrir %s"
-
-#: src/gdbm_dump.c:118 src/gdbm_load.c:261
-msgid "gdbm_open failed"
-msgstr "gdbm_open fallado"
-
-#: src/gdbm_dump.c:125
-msgid "dump error"
-msgstr "error de volcado"
-
-#: src/gdbm_load.c:32
-msgid "load a GDBM database from a file"
-msgstr ""
-
-#: src/gdbm_load.c:33
-#, fuzzy
-msgid "FILE DB_FILE"
-msgstr "BDFICHERO"
-
-#: src/gdbm_load.c:35
-msgid "replace records in the existing database"
-msgstr "sustituye registros dentro de BD existente"
-
-#: src/gdbm_load.c:36
-msgid "MODE"
-msgstr "MODO"
-
-#: src/gdbm_load.c:36
-msgid "set file mode"
-msgstr "establecer modo fichero"
-
-#: src/gdbm_load.c:37
-msgid "NAME|UID:NAME|GID"
-msgstr "NOMBRE|UID:NOMBRE|GID"
-
-#: src/gdbm_load.c:37
-msgid "set file owner"
-msgstr "establecer propietario del fichero"
-
-#: src/gdbm_load.c:38
-msgid "do not attempt to set file meta-data"
-msgstr "no tratar establecer ficheros meta-datos"
-
-#: src/gdbm_load.c:39
-msgid "use memory mapping"
-msgstr "utilizar distribución de memoria"
-
-#: src/gdbm_load.c:40 src/gdbm_load.c:41
-msgid "NUM"
-msgstr "NÚM"
-
-#: src/gdbm_load.c:40
-msgid "set the cache size"
-msgstr "establece el tamaño de caché"
-
-#: src/gdbm_load.c:41
-msgid "set the block size"
-msgstr "establecer tamaño del bloque"
-
-#: src/gdbm_load.c:79
-#, c-format
-msgid "invalid number: %s"
-msgstr "número inválido: %s"
-
-#: src/gdbm_load.c:84
-#, c-format
-msgid "invalid number: %s: %s"
-msgstr "número no válido: %s: %s"
-
-#: src/gdbm_load.c:136
-#, c-format
-msgid "invalid octal number"
-msgstr "número octal no válido"
-
-#: src/gdbm_load.c:161
-#, c-format
-msgid "invalid user name: %s"
-msgstr "nombre de usuario no válido: %s"
-
-#: src/gdbm_load.c:180
-#, c-format
-msgid "invalid group name: %s"
-msgstr "nombre de grupo inválido: %s"
-
-#: src/gdbm_load.c:192
-#, c-format
-msgid "no such UID: %lu"
-msgstr "sin tal UID: %lu"
-
-#: src/gdbm_load.c:267
-#, c-format
-msgid "gdbm_setopt failed: %s"
-msgstr "gdbm_setopt fallado: %s"
-
-#: src/gdbm_load.c:281 src/gdbm_load.c:299
-#, c-format
-msgid "error restoring metadata: %s (%s)"
-msgstr "error restaurando metadatos: %s (%s)"
-
-#: src/gdbm_load.c:290 src/gdbmshell.c:1458
-#, c-format
-msgid "cannot load from %s"
-msgstr "no se puede cargar desde %s"
-
-#: src/gdbm_load.c:307
-msgid "gdbm_setopt failed"
-msgstr "gdbm_setopt fallado"
-
 #: src/gdbmerrno.c:102
 msgid "No error"
 msgstr "Sin error"
@@ -385,137 +224,229 @@
 msgid "Function usage error"

_service:tar_scm:gdbm-1.22.tar.gz/po/fi.gmo -> _service:tar_scm:gdbm-1.23.tar.gz/po/fi.gmo Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/fi.po -> _service:tar_scm:gdbm-1.23.tar.gz/po/fi.po Changed

@@ -7,7 +7,7 @@
 msgstr ""
 "Project-Id-Version: gdbm 1.10.90\n"
 "Report-Msgid-Bugs-To: bug-gdbm@gnu.org\n"
-"POT-Creation-Date: 2021-10-19 07:55+0300\n"
+"POT-Creation-Date: 2022-02-04 16:04+0200\n"
 "PO-Revision-Date: 2013-05-20 10:59+0300\n"
 "Last-Translator: Jorma Karvonen <karvonen.jorma@gmail.com>\n"
 "Language-Team: Finnish <translation-team-fi@lists.sourceforge.net>\n"
@@ -18,187 +18,23 @@
 "X-Bugs: Report translation errors to the Language-Team address.\n"
 "Plural-Forms: nplurals=2; plural=(n != 1);\n"
 
-#: src/bucket.c:267 src/bucket.c:538 src/bucket.c:647 src/falloc.c:211
-#: src/falloc.c:337 src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36
-#: src/update.c:88
+#: src/bucket.c:399 src/bucket.c:684 src/falloc.c:211 src/falloc.c:337
+#: src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36 src/update.c:76
 msgid "lseek error"
 msgstr "lseek-virhe"
 
-#: src/bucket.c:395
+#: src/bucket.c:534
 msgid "directory overflow"
 msgstr ""
 
-#: src/bucket.c:406 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
+#: src/bucket.c:545 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
 msgid "malloc error"
 msgstr "malloc-virhe"
 
-#: src/datconv.c:291
-#, c-format
-msgid "(not enough data)"
-msgstr "(dataa ei ole kylliksi)"
-
-#: src/datconv.c:383
-msgid "cannot convert"
-msgstr "muunnos epäonnistui"
-
-#: src/datconv.c:392
-#, c-format
-msgid "cannot convert value #%d: %s"
-msgstr "arvon #%d muuntaminen epäonnistui: %s"
-
-#: src/datconv.c:418 src/datconv.c:467
-msgid "mixing tagged and untagged values is not allowed"
-msgstr "merkittyjen ja merkitsemättömien arvojen sekoittamien ei ole sallittua"
-
-#: src/datconv.c:472
-#, c-format
-msgid "%s: no such field in datum"
-msgstr ""
-
 #: src/falloc.c:201
 msgid "malloc failed"
 msgstr "malloc epäonnistui"
 
-#: src/gdbm_dump.c:22
-msgid "dump a GDBM database to a file"
-msgstr ""
-
-#: src/gdbm_dump.c:23
-#, fuzzy
-msgid "DB_FILE FILE"
-msgstr "DBFILE"
-
-#: src/gdbm_dump.c:25
-msgid "select dump format"
-msgstr "valitse vedosmuoto"
-
-#: src/gdbm_dump.c:67
-msgid "unknown dump format"
-msgstr "tuntematon vedosmuoto"
-
-#: src/gdbm_dump.c:74 src/gdbm_load.c:215
-msgid "unknown option"
-msgstr "tuntematon valitsin"
-
-#: src/gdbm_dump.c:90 src/gdbm_load.c:231
-#, c-format
-msgid "too many arguments; try `%s -h' for more info"
-msgstr "liian monta argumenttia; lisätietoja komennolla ”%s -h”"
-
-#: src/gdbm_dump.c:110 src/gdbm_load.c:251
-#, c-format
-msgid "cannot open %s"
-msgstr "sivuttajan %s suorittaminen epäonnistui"
-
-#: src/gdbm_dump.c:118 src/gdbm_load.c:261
-msgid "gdbm_open failed"
-msgstr "gdbm_open epäonnistui"
-
-#: src/gdbm_dump.c:125
-msgid "dump error"
-msgstr "vedosvirhe"
-
-#: src/gdbm_load.c:32
-msgid "load a GDBM database from a file"
-msgstr ""
-
-#: src/gdbm_load.c:33
-#, fuzzy
-msgid "FILE DB_FILE"
-msgstr "DBFILE"
-
-#: src/gdbm_load.c:35
-msgid "replace records in the existing database"
-msgstr "korvaa tietueet olemassaolevassa tietokannassa"
-
-#: src/gdbm_load.c:36
-msgid "MODE"
-msgstr "TILA"
-
-#: src/gdbm_load.c:36
-msgid "set file mode"
-msgstr "aseta tiedostotila"
-
-#: src/gdbm_load.c:37
-msgid "NAME|UID:NAME|GID"
-msgstr "NIMI|UID:NIMI|GID"
-
-#: src/gdbm_load.c:37
-msgid "set file owner"
-msgstr "aseta tiedoston omistaja"
-
-#: src/gdbm_load.c:38
-msgid "do not attempt to set file meta-data"
-msgstr "älä yritä asettaa tiedoston metatietoja"
-
-#: src/gdbm_load.c:39
-msgid "use memory mapping"
-msgstr ""
-
-#: src/gdbm_load.c:40 src/gdbm_load.c:41
-#, fuzzy
-msgid "NUM"
-msgstr "NUMERO"
-
-#: src/gdbm_load.c:40
-#, fuzzy
-msgid "set the cache size"
-msgstr "aseta välimuistikoko"
-
-#: src/gdbm_load.c:41
-#, fuzzy
-msgid "set the block size"
-msgstr "aseta lohkokoko"
-
-#: src/gdbm_load.c:79
-#, fuzzy, c-format
-msgid "invalid number: %s"
-msgstr "virheellinen käyttäjätunnus: %s"
-
-#: src/gdbm_load.c:84
-#, fuzzy, c-format
-msgid "invalid number: %s: %s"
-msgstr "virheellinen käyttäjätunnus: %s"
-
-#: src/gdbm_load.c:136
-#, c-format
-msgid "invalid octal number"
-msgstr "virheellinen oktaalinumero"
-
-#: src/gdbm_load.c:161
-#, c-format
-msgid "invalid user name: %s"
-msgstr "virheellinen käyttäjätunnus: %s"
-
-#: src/gdbm_load.c:180
-#, c-format
-msgid "invalid group name: %s"
-msgstr "virheellinen ryhmänimi: %s"
-
-#: src/gdbm_load.c:192
-#, c-format
-msgid "no such UID: %lu"
-msgstr "tuntematon UID: %lu"
-
-#: src/gdbm_load.c:267
-#, c-format
-msgid "gdbm_setopt failed: %s"
-msgstr "gdbm_setopt epäonnistui: %s"
-
-#: src/gdbm_load.c:281 src/gdbm_load.c:299
-#, c-format
-msgid "error restoring metadata: %s (%s)"
-msgstr "virhe palautettaessa metatietoja: %s (%s)"
-
-#: src/gdbm_load.c:290 src/gdbmshell.c:1458
-#, c-format
-msgid "cannot load from %s"
-msgstr "kohteesta %s lataaminen epäonnistui"
-
-#: src/gdbm_load.c:307
-msgid "gdbm_setopt failed"
-msgstr "gdbm_setopt epäonnistui"
-
 #: src/gdbmerrno.c:102
 msgid "No error"

_service:tar_scm:gdbm-1.22.tar.gz/po/fr.gmo -> _service:tar_scm:gdbm-1.23.tar.gz/po/fr.gmo Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/fr.po -> _service:tar_scm:gdbm-1.23.tar.gz/po/fr.po Changed

@@ -10,7 +10,7 @@
 msgstr ""
 "Project-Id-Version: gdbm 1.21.90\n"
 "Report-Msgid-Bugs-To: bug-gdbm@gnu.org\n"
-"POT-Creation-Date: 2021-10-19 07:55+0300\n"
+"POT-Creation-Date: 2022-02-04 16:04+0200\n"
 "PO-Revision-Date: 2021-09-03 21:03+0200\n"
 "Last-Translator: Frédéric Marchal <fmarchal@perso.be>\n"
 "Language-Team: French <traduc@traduc.org>\n"
@@ -21,182 +21,23 @@
 "X-Bugs: Report translation errors to the Language-Team address.\n"
 "Plural-Forms: nplurals=2; plural=(n >= 2);\n"
 
-#: src/bucket.c:267 src/bucket.c:538 src/bucket.c:647 src/falloc.c:211
-#: src/falloc.c:337 src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36
-#: src/update.c:88
+#: src/bucket.c:399 src/bucket.c:684 src/falloc.c:211 src/falloc.c:337
+#: src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36 src/update.c:76
 msgid "lseek error"
 msgstr "Erreur lseek"
 
-#: src/bucket.c:395
+#: src/bucket.c:534
 msgid "directory overflow"
 msgstr "débordement de répertoire"
 
-#: src/bucket.c:406 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
+#: src/bucket.c:545 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
 msgid "malloc error"
 msgstr "Erreur malloc"
 
-#: src/datconv.c:291
-#, c-format
-msgid "(not enough data)"
-msgstr "(pas assez de données)"
-
-#: src/datconv.c:383
-msgid "cannot convert"
-msgstr "impossible de convertir"
-
-#: src/datconv.c:392
-#, c-format
-msgid "cannot convert value #%d: %s"
-msgstr "impossible de convertir la valeur #%d: %s"
-
-#: src/datconv.c:418 src/datconv.c:467
-msgid "mixing tagged and untagged values is not allowed"
-msgstr "mélanger des valeurs étiquetées et non étiquetées n'est pas permis"
-
-#: src/datconv.c:472
-#, c-format
-msgid "%s: no such field in datum"
-msgstr "%s: fichier non trouvé dans les données"
-
 #: src/falloc.c:201
 msgid "malloc failed"
 msgstr "malloc a échoué"
 
-#: src/gdbm_dump.c:22
-msgid "dump a GDBM database to a file"
-msgstr "vidanger une base de données GDBM dans un fichier"
-
-#: src/gdbm_dump.c:23
-msgid "DB_FILE FILE"
-msgstr "FICHIER_DB FICHIER"
-
-#: src/gdbm_dump.c:25
-msgid "select dump format"
-msgstr "sélectionnez le format de décharge"
-
-#: src/gdbm_dump.c:67
-msgid "unknown dump format"
-msgstr "format de décharge inconnu"
-
-#: src/gdbm_dump.c:74 src/gdbm_load.c:215
-msgid "unknown option"
-msgstr "option inconnue"
-
-#: src/gdbm_dump.c:90 src/gdbm_load.c:231
-#, c-format
-msgid "too many arguments; try `%s -h' for more info"
-msgstr "trop d'arguments; essayez « %s -h » pour obtenir plus d'informations"
-
-#: src/gdbm_dump.c:110 src/gdbm_load.c:251
-#, c-format
-msgid "cannot open %s"
-msgstr "impossible d'ouvrir %s"
-
-#: src/gdbm_dump.c:118 src/gdbm_load.c:261
-msgid "gdbm_open failed"
-msgstr "échec de gdbm_open"
-
-#: src/gdbm_dump.c:125
-msgid "dump error"
-msgstr "erreur de décharge"
-
-#: src/gdbm_load.c:32
-msgid "load a GDBM database from a file"
-msgstr "charger une base de données GDBM depuis un fichier"
-
-#: src/gdbm_load.c:33
-msgid "FILE DB_FILE"
-msgstr "FICHIER FICHIER_DB"
-
-#: src/gdbm_load.c:35
-msgid "replace records in the existing database"
-msgstr "remplacer les enregistrements dans la base de données existante"
-
-#: src/gdbm_load.c:36
-msgid "MODE"
-msgstr "MODE"
-
-#: src/gdbm_load.c:36
-msgid "set file mode"
-msgstr "changer le mode du fichier"
-
-#: src/gdbm_load.c:37
-msgid "NAME|UID:NAME|GID"
-msgstr "NOM|UID:NOM|GID"
-
-#: src/gdbm_load.c:37
-msgid "set file owner"
-msgstr "changer le propriétaire du fichier"
-
-#: src/gdbm_load.c:38
-msgid "do not attempt to set file meta-data"
-msgstr "n'essaie pas de changer les méta données du fichier"
-
-#: src/gdbm_load.c:39
-msgid "use memory mapping"
-msgstr "utiliser la concordance mémoire"
-
-#: src/gdbm_load.c:40 src/gdbm_load.c:41
-msgid "NUM"
-msgstr "NBR"
-
-#: src/gdbm_load.c:40
-msgid "set the cache size"
-msgstr "changer la taille de la cache"
-
-#: src/gdbm_load.c:41
-msgid "set the block size"
-msgstr "changer la taille de bloc"
-
-#: src/gdbm_load.c:79
-#, c-format
-msgid "invalid number: %s"
-msgstr "nombre invalide: %s"
-
-#: src/gdbm_load.c:84
-#, c-format
-msgid "invalid number: %s: %s"
-msgstr "nombre invalide: %s: %s"
-
-#: src/gdbm_load.c:136
-#, c-format
-msgid "invalid octal number"
-msgstr "nombre octal invalide"
-
-#: src/gdbm_load.c:161
-#, c-format
-msgid "invalid user name: %s"
-msgstr "nom d'utilisateur invalide: %s"
-
-#: src/gdbm_load.c:180
-#, c-format
-msgid "invalid group name: %s"
-msgstr "nom de groupe invalide: %s"
-
-#: src/gdbm_load.c:192
-#, c-format
-msgid "no such UID: %lu"
-msgstr "cet UID n'existe pas: %lu"
-
-#: src/gdbm_load.c:267
-#, c-format
-msgid "gdbm_setopt failed: %s"
-msgstr "échec de gdbm_setopt: %s"
-
-#: src/gdbm_load.c:281 src/gdbm_load.c:299
-#, c-format
-msgid "error restoring metadata: %s (%s)"
-msgstr "erreur lors de la récupération des méta données: %s (%s)"
-
-#: src/gdbm_load.c:290 src/gdbmshell.c:1458
-#, c-format
-msgid "cannot load from %s"
-msgstr "impossible de charger depuis %s"
-
-#: src/gdbm_load.c:307
-msgid "gdbm_setopt failed"
-msgstr "échec de gdbm_setopt"
-
 #: src/gdbmerrno.c:102
 msgid "No error"
 msgstr "Pas d'erreur"
@@ -378,138 +219,227 @@
 msgid "Function usage error"
 msgstr "Erreur d'utilisation de la fonction"

_service:tar_scm:gdbm-1.22.tar.gz/po/gdbm.pot -> _service:tar_scm:gdbm-1.23.tar.gz/po/gdbm.pot Changed

@@ -6,9 +6,9 @@
 #, fuzzy
 msgid ""
 msgstr ""
-"Project-Id-Version: gdbm 1.22\n"
+"Project-Id-Version: gdbm 1.23\n"
 "Report-Msgid-Bugs-To: bug-gdbm@gnu.org\n"
-"POT-Creation-Date: 2021-10-19 07:55+0300\n"
+"POT-Creation-Date: 2022-02-04 16:04+0200\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
 "Language-Team: LANGUAGE <LL@li.org>\n"
@@ -18,182 +18,23 @@
 "Content-Transfer-Encoding: 8bit\n"
 "Plural-Forms: nplurals=INTEGER; plural=EXPRESSION;\n"
 
-#: src/bucket.c:267 src/bucket.c:538 src/bucket.c:647 src/falloc.c:211
-#: src/falloc.c:337 src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36
-#: src/update.c:88
+#: src/bucket.c:399 src/bucket.c:684 src/falloc.c:211 src/falloc.c:337
+#: src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36 src/update.c:76
 msgid "lseek error"
 msgstr ""
 
-#: src/bucket.c:395
+#: src/bucket.c:534
 msgid "directory overflow"
 msgstr ""
 
-#: src/bucket.c:406 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
+#: src/bucket.c:545 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
 msgid "malloc error"
 msgstr ""
 
-#: src/datconv.c:291
-#, c-format
-msgid "(not enough data)"
-msgstr ""
-
-#: src/datconv.c:383
-msgid "cannot convert"
-msgstr ""
-
-#: src/datconv.c:392
-#, c-format
-msgid "cannot convert value #%d: %s"
-msgstr ""
-
-#: src/datconv.c:418 src/datconv.c:467
-msgid "mixing tagged and untagged values is not allowed"
-msgstr ""
-
-#: src/datconv.c:472
-#, c-format
-msgid "%s: no such field in datum"
-msgstr ""
-
 #: src/falloc.c:201
 msgid "malloc failed"
 msgstr ""
 
-#: src/gdbm_dump.c:22
-msgid "dump a GDBM database to a file"
-msgstr ""
-
-#: src/gdbm_dump.c:23
-msgid "DB_FILE FILE"
-msgstr ""
-
-#: src/gdbm_dump.c:25
-msgid "select dump format"
-msgstr ""
-
-#: src/gdbm_dump.c:67
-msgid "unknown dump format"
-msgstr ""
-
-#: src/gdbm_dump.c:74 src/gdbm_load.c:215
-msgid "unknown option"
-msgstr ""
-
-#: src/gdbm_dump.c:90 src/gdbm_load.c:231
-#, c-format
-msgid "too many arguments; try `%s -h' for more info"
-msgstr ""
-
-#: src/gdbm_dump.c:110 src/gdbm_load.c:251
-#, c-format
-msgid "cannot open %s"
-msgstr ""
-
-#: src/gdbm_dump.c:118 src/gdbm_load.c:261
-msgid "gdbm_open failed"
-msgstr ""
-
-#: src/gdbm_dump.c:125
-msgid "dump error"
-msgstr ""
-
-#: src/gdbm_load.c:32
-msgid "load a GDBM database from a file"
-msgstr ""
-
-#: src/gdbm_load.c:33
-msgid "FILE DB_FILE"
-msgstr ""
-
-#: src/gdbm_load.c:35
-msgid "replace records in the existing database"
-msgstr ""
-
-#: src/gdbm_load.c:36
-msgid "MODE"
-msgstr ""
-
-#: src/gdbm_load.c:36
-msgid "set file mode"
-msgstr ""
-
-#: src/gdbm_load.c:37
-msgid "NAME|UID:NAME|GID"
-msgstr ""
-
-#: src/gdbm_load.c:37
-msgid "set file owner"
-msgstr ""
-
-#: src/gdbm_load.c:38
-msgid "do not attempt to set file meta-data"
-msgstr ""
-
-#: src/gdbm_load.c:39
-msgid "use memory mapping"
-msgstr ""
-
-#: src/gdbm_load.c:40 src/gdbm_load.c:41
-msgid "NUM"
-msgstr ""
-
-#: src/gdbm_load.c:40
-msgid "set the cache size"
-msgstr ""
-
-#: src/gdbm_load.c:41
-msgid "set the block size"
-msgstr ""
-
-#: src/gdbm_load.c:79
-#, c-format
-msgid "invalid number: %s"
-msgstr ""
-
-#: src/gdbm_load.c:84
-#, c-format
-msgid "invalid number: %s: %s"
-msgstr ""
-
-#: src/gdbm_load.c:136
-#, c-format
-msgid "invalid octal number"
-msgstr ""
-
-#: src/gdbm_load.c:161
-#, c-format
-msgid "invalid user name: %s"
-msgstr ""
-
-#: src/gdbm_load.c:180
-#, c-format
-msgid "invalid group name: %s"
-msgstr ""
-
-#: src/gdbm_load.c:192
-#, c-format
-msgid "no such UID: %lu"
-msgstr ""
-
-#: src/gdbm_load.c:267
-#, c-format
-msgid "gdbm_setopt failed: %s"
-msgstr ""
-
-#: src/gdbm_load.c:281 src/gdbm_load.c:299
-#, c-format
-msgid "error restoring metadata: %s (%s)"
-msgstr ""
-
-#: src/gdbm_load.c:290 src/gdbmshell.c:1458
-#, c-format
-msgid "cannot load from %s"
-msgstr ""
-
-#: src/gdbm_load.c:307
-msgid "gdbm_setopt failed"
-msgstr ""
-
 #: src/gdbmerrno.c:102
 msgid "No error"
 msgstr ""
@@ -375,161 +216,254 @@

_service:tar_scm:gdbm-1.22.tar.gz/po/ja.gmo -> _service:tar_scm:gdbm-1.23.tar.gz/po/ja.gmo Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/ja.po -> _service:tar_scm:gdbm-1.23.tar.gz/po/ja.po Changed

@@ -8,7 +8,7 @@
 msgstr ""
 "Project-Id-Version: gdbm 1.10\n"
 "Report-Msgid-Bugs-To: bug-gdbm@gnu.org\n"
-"POT-Creation-Date: 2021-10-19 07:55+0300\n"
+"POT-Creation-Date: 2022-02-04 16:04+0200\n"
 "PO-Revision-Date: 2012-03-24 22:08+0900\n"
 "Last-Translator: Takeshi Hamasaki <hmatrjp@users.sourceforge.jp>\n"
 "Language-Team: Japanese <translation-team-ja@lists.sourceforge.net>\n"
@@ -19,189 +19,23 @@
 "X-Bugs: Report translation errors to the Language-Team address.\n"
 "Plural-Forms: nplurals=1; plural=0;\n"
 
-#: src/bucket.c:267 src/bucket.c:538 src/bucket.c:647 src/falloc.c:211
-#: src/falloc.c:337 src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36
-#: src/update.c:88
+#: src/bucket.c:399 src/bucket.c:684 src/falloc.c:211 src/falloc.c:337
+#: src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36 src/update.c:76
 msgid "lseek error"
 msgstr "lseek エラーです"
 
-#: src/bucket.c:395
+#: src/bucket.c:534
 msgid "directory overflow"
 msgstr ""
 
-#: src/bucket.c:406 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
+#: src/bucket.c:545 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
 msgid "malloc error"
 msgstr "malloc エラーです"
 
-#: src/datconv.c:291
-#, fuzzy, c-format
-msgid "(not enough data)"
-msgstr "%s: 十分な引数がありません"
-
-#: src/datconv.c:383
-msgid "cannot convert"
-msgstr ""
-
-#: src/datconv.c:392
-#, fuzzy, c-format
-msgid "cannot convert value #%d: %s"
-msgstr "ページャー `%s' を実行できません: %s"
-
-#: src/datconv.c:418 src/datconv.c:467
-msgid "mixing tagged and untagged values is not allowed"
-msgstr ""
-
-#: src/datconv.c:472
-#, c-format
-msgid "%s: no such field in datum"
-msgstr ""
-
 #: src/falloc.c:201
 msgid "malloc failed"
 msgstr "malloc に失敗しました"
 
-#: src/gdbm_dump.c:22
-msgid "dump a GDBM database to a file"
-msgstr ""
-
-#: src/gdbm_dump.c:23
-msgid "DB_FILE FILE"
-msgstr ""
-
-#: src/gdbm_dump.c:25
-msgid "select dump format"
-msgstr ""
-
-#: src/gdbm_dump.c:67
-#, fuzzy
-msgid "unknown dump format"
-msgstr "不明な更新"
-
-#: src/gdbm_dump.c:74 src/gdbm_load.c:215
-#, fuzzy
-msgid "unknown option"
-msgstr "不明な更新"
-
-#: src/gdbm_dump.c:90 src/gdbm_load.c:231
-#, fuzzy, c-format
-msgid "too many arguments; try `%s -h' for more info"
-msgstr "不明なオプションです。詳細は `%s -h' を参照してください。\n"
-
-#: src/gdbm_dump.c:110 src/gdbm_load.c:251
-#, fuzzy, c-format
-msgid "cannot open %s"
-msgstr "ページャー `%s' を実行できません: %s"
-
-#: src/gdbm_dump.c:118 src/gdbm_load.c:261
-#, fuzzy
-msgid "gdbm_open failed"
-msgstr "gdbm_open に失敗しました: %s"
-
-#: src/gdbm_dump.c:125
-#, fuzzy
-msgid "dump error"
-msgstr "読み込みエラーです"
-
-#: src/gdbm_load.c:32
-msgid "load a GDBM database from a file"
-msgstr ""
-
-#: src/gdbm_load.c:33
-msgid "FILE DB_FILE"
-msgstr ""
-
-#: src/gdbm_load.c:35
-msgid "replace records in the existing database"
-msgstr ""
-
-#: src/gdbm_load.c:36
-msgid "MODE"
-msgstr ""
-
-#: src/gdbm_load.c:36
-#, fuzzy
-msgid "set file mode"
-msgstr "ファイルヘッダを表示する"
-
-#: src/gdbm_load.c:37
-msgid "NAME|UID:NAME|GID"
-msgstr ""
-
-#: src/gdbm_load.c:37
-msgid "set file owner"
-msgstr ""
-
-#: src/gdbm_load.c:38
-msgid "do not attempt to set file meta-data"
-msgstr ""
-
-#: src/gdbm_load.c:39
-msgid "use memory mapping"
-msgstr ""
-
-#: src/gdbm_load.c:40 src/gdbm_load.c:41
-msgid "NUM"
-msgstr ""
-
-#: src/gdbm_load.c:40
-msgid "set the cache size"
-msgstr ""
-
-#: src/gdbm_load.c:41
-#, fuzzy
-msgid "set the block size"
-msgstr "  ブロックサイズ = %d\n"
-
-#: src/gdbm_load.c:79
-#, c-format
-msgid "invalid number: %s"
-msgstr ""
-
-#: src/gdbm_load.c:84
-#, c-format
-msgid "invalid number: %s: %s"
-msgstr ""
-
-#: src/gdbm_load.c:136
-#, fuzzy, c-format
-msgid "invalid octal number"
-msgstr "間違ったマジック番号"
-
-#: src/gdbm_load.c:161
-#, c-format
-msgid "invalid user name: %s"
-msgstr ""
-
-#: src/gdbm_load.c:180
-#, c-format
-msgid "invalid group name: %s"
-msgstr ""
-
-#: src/gdbm_load.c:192
-#, c-format
-msgid "no such UID: %lu"
-msgstr ""
-
-#: src/gdbm_load.c:267
-#, c-format
-msgid "gdbm_setopt failed: %s"
-msgstr "gdbm_setopt に失敗しました: %s"
-
-#: src/gdbm_load.c:281 src/gdbm_load.c:299
-#, c-format
-msgid "error restoring metadata: %s (%s)"
-msgstr ""
-
-#: src/gdbm_load.c:290 src/gdbmshell.c:1458
-#, c-format
-msgid "cannot load from %s"
-msgstr ""
-
-#: src/gdbm_load.c:307
-#, fuzzy
-msgid "gdbm_setopt failed"
-msgstr "gdbm_setopt に失敗しました: %s"
-

_service:tar_scm:gdbm-1.22.tar.gz/po/pl.gmo -> _service:tar_scm:gdbm-1.23.tar.gz/po/pl.gmo Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/pl.po -> _service:tar_scm:gdbm-1.23.tar.gz/po/pl.po Changed

@@ -7,7 +7,7 @@
 msgstr ""
 "Project-Id-Version: gdbm 1.21.90\n"
 "Report-Msgid-Bugs-To: bug-gdbm@gnu.org\n"
-"POT-Creation-Date: 2021-10-19 07:55+0300\n"
+"POT-Creation-Date: 2022-02-04 16:04+0200\n"
 "PO-Revision-Date: 2021-09-03 17:02+0200\n"
 "Last-Translator: Jakub Bogusz <qboosh@pld-linux.org>\n"
 "Language-Team: Polish <translation-team-pl@lists.sourceforge.net>\n"
@@ -19,182 +19,23 @@
 "Plural-Forms: nplurals=3; plural=n==1 ? 0 : n%10>=2 && n%10<=4 && (n%100<10 "
 "|| n%100>=20) ? 1 : 2;\n"
 
-#: src/bucket.c:267 src/bucket.c:538 src/bucket.c:647 src/falloc.c:211
-#: src/falloc.c:337 src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36
-#: src/update.c:88
+#: src/bucket.c:399 src/bucket.c:684 src/falloc.c:211 src/falloc.c:337
+#: src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36 src/update.c:76
 msgid "lseek error"
 msgstr "błąd lseek"
 
-#: src/bucket.c:395
+#: src/bucket.c:534
 msgid "directory overflow"
 msgstr "przepełnienie katalogu"
 
-#: src/bucket.c:406 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
+#: src/bucket.c:545 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
 msgid "malloc error"
 msgstr "błąd malloc"
 
-#: src/datconv.c:291
-#, c-format
-msgid "(not enough data)"
-msgstr "(za mało danych)"
-
-#: src/datconv.c:383
-msgid "cannot convert"
-msgstr "nie można przekształcić"
-
-#: src/datconv.c:392
-#, c-format
-msgid "cannot convert value #%d: %s"
-msgstr "nie można przekształcić wartości #%d: %s"
-
-#: src/datconv.c:418 src/datconv.c:467
-msgid "mixing tagged and untagged values is not allowed"
-msgstr "mieszanie wartości oznaczonych i nieoznaczonych nie jest dozwolone"
-
-#: src/datconv.c:472
-#, c-format
-msgid "%s: no such field in datum"
-msgstr "%s: brak takiego pola w danych"
-
 #: src/falloc.c:201
 msgid "malloc failed"
 msgstr "malloc nie powiodło się"
 
-#: src/gdbm_dump.c:22
-msgid "dump a GDBM database to a file"
-msgstr "zrzut bazy danych GDBM do pliku"
-
-#: src/gdbm_dump.c:23
-msgid "DB_FILE FILE"
-msgstr "PLIK_DB PLIK"
-
-#: src/gdbm_dump.c:25
-msgid "select dump format"
-msgstr "wybór formatu zrzutu"
-
-#: src/gdbm_dump.c:67
-msgid "unknown dump format"
-msgstr "nieznany format zrzutu"
-
-#: src/gdbm_dump.c:74 src/gdbm_load.c:215
-msgid "unknown option"
-msgstr "nieznana opcja"
-
-#: src/gdbm_dump.c:90 src/gdbm_load.c:231
-#, c-format
-msgid "too many arguments; try `%s -h' for more info"
-msgstr "zbyt dużo argumentów; `%s -h' poda więcej informacji"
-
-#: src/gdbm_dump.c:110 src/gdbm_load.c:251
-#, c-format
-msgid "cannot open %s"
-msgstr "nie można otworzyć %s"
-
-#: src/gdbm_dump.c:118 src/gdbm_load.c:261
-msgid "gdbm_open failed"
-msgstr "gdbm_open nie powiodło się"
-
-#: src/gdbm_dump.c:125
-msgid "dump error"
-msgstr "błąd zrzutu"
-
-#: src/gdbm_load.c:32
-msgid "load a GDBM database from a file"
-msgstr "wczytanie bazy danych GDBM z pliku"
-
-#: src/gdbm_load.c:33
-msgid "FILE DB_FILE"
-msgstr "PLIK PLIK_DB"
-
-#: src/gdbm_load.c:35
-msgid "replace records in the existing database"
-msgstr "podmiana rekordów w istniejącej bazie danych"
-
-#: src/gdbm_load.c:36
-msgid "MODE"
-msgstr "PRAWA"
-
-#: src/gdbm_load.c:36
-msgid "set file mode"
-msgstr "ustawienie uprawnień pliku"
-
-#: src/gdbm_load.c:37
-msgid "NAME|UID:NAME|GID"
-msgstr "NAZWA|UID:NAZWA|GID"
-
-#: src/gdbm_load.c:37
-msgid "set file owner"
-msgstr "ustawienie właściciela pliku"
-
-#: src/gdbm_load.c:38
-msgid "do not attempt to set file meta-data"
-msgstr "bez próby ustawienia metadanych pliku"
-
-#: src/gdbm_load.c:39
-msgid "use memory mapping"
-msgstr "użycie odwzorowania w pamięci"
-
-#: src/gdbm_load.c:40 src/gdbm_load.c:41
-msgid "NUM"
-msgstr "LICZBA"
-
-#: src/gdbm_load.c:40
-msgid "set the cache size"
-msgstr "ustawienie rozmiaru pamięci podręcznej"
-
-#: src/gdbm_load.c:41
-msgid "set the block size"
-msgstr "ustawienie rozmiaru bloku"
-
-#: src/gdbm_load.c:79
-#, c-format
-msgid "invalid number: %s"
-msgstr "błędna liczba: %s"
-
-#: src/gdbm_load.c:84
-#, c-format
-msgid "invalid number: %s: %s"
-msgstr "błędna liczba: %s: %s"
-
-#: src/gdbm_load.c:136
-#, c-format
-msgid "invalid octal number"
-msgstr "błędna liczba ósemkowa"
-
-#: src/gdbm_load.c:161
-#, c-format
-msgid "invalid user name: %s"
-msgstr "błędna nazwa użytkownika: %s"
-
-#: src/gdbm_load.c:180
-#, c-format
-msgid "invalid group name: %s"
-msgstr "błędna nazwa grupy: %s"
-
-#: src/gdbm_load.c:192
-#, c-format
-msgid "no such UID: %lu"
-msgstr "brak użytkownika z UID-em %lu"
-
-#: src/gdbm_load.c:267
-#, c-format
-msgid "gdbm_setopt failed: %s"
-msgstr "gdbm_setopt nie powiodło się: %s"
-
-#: src/gdbm_load.c:281 src/gdbm_load.c:299
-#, c-format
-msgid "error restoring metadata: %s (%s)"
-msgstr "błąd odtwarzania metadanych: %s (%s)"
-
-#: src/gdbm_load.c:290 src/gdbmshell.c:1458
-#, c-format
-msgid "cannot load from %s"
-msgstr "nie można załadować z %s"
-
-#: src/gdbm_load.c:307
-msgid "gdbm_setopt failed"
-msgstr "gdbm_setopt nie powiodło się"
-
 #: src/gdbmerrno.c:102
 msgid "No error"
 msgstr "Brak błędu"
@@ -376,138 +217,227 @@
 msgid "Function usage error"
 msgstr "Błąd użycia funkcji"

_service:tar_scm:gdbm-1.22.tar.gz/po/pt_BR.gmo -> _service:tar_scm:gdbm-1.23.tar.gz/po/pt_BR.gmo Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/pt_BR.po -> _service:tar_scm:gdbm-1.23.tar.gz/po/pt_BR.po Changed

@@ -7,7 +7,7 @@
 msgstr ""
 "Project-Id-Version: gdbm 1.21.90\n"
 "Report-Msgid-Bugs-To: bug-gdbm@gnu.org\n"
-"POT-Creation-Date: 2021-10-19 07:55+0300\n"
+"POT-Creation-Date: 2022-02-04 16:04+0200\n"
 "PO-Revision-Date: 2021-09-03 05:02-0300\n"
 "Last-Translator: Rafael Fontenelle <rafaelff@gnome.org>\n"
 "Language-Team: Brazilian Portuguese <ldpbr-translation@lists.sourceforge."
@@ -20,182 +20,23 @@
 "X-Generator: Gtranslator 40.0\n"
 "X-Bugs: Report translation errors to the Language-Team address.\n"
 
-#: src/bucket.c:267 src/bucket.c:538 src/bucket.c:647 src/falloc.c:211
-#: src/falloc.c:337 src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36
-#: src/update.c:88
+#: src/bucket.c:399 src/bucket.c:684 src/falloc.c:211 src/falloc.c:337
+#: src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36 src/update.c:76
 msgid "lseek error"
 msgstr "erro no lseek"
 
-#: src/bucket.c:395
+#: src/bucket.c:534
 msgid "directory overflow"
 msgstr "estouro de diretório"
 
-#: src/bucket.c:406 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
+#: src/bucket.c:545 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
 msgid "malloc error"
 msgstr "erro no malloc"
 
-#: src/datconv.c:291
-#, c-format
-msgid "(not enough data)"
-msgstr "(dados insuficientes)"
-
-#: src/datconv.c:383
-msgid "cannot convert"
-msgstr "não foi possível converter"
-
-#: src/datconv.c:392
-#, c-format
-msgid "cannot convert value #%d: %s"
-msgstr "não foi possível converter o valor #%d: %s"
-
-#: src/datconv.c:418 src/datconv.c:467
-msgid "mixing tagged and untagged values is not allowed"
-msgstr "a mistura de valores marcados e não marcados não é permitida"
-
-#: src/datconv.c:472
-#, c-format
-msgid "%s: no such field in datum"
-msgstr "%s: campo inexistente no dado"
-
 #: src/falloc.c:201
 msgid "malloc failed"
 msgstr "falha no malloc"
 
-#: src/gdbm_dump.c:22
-msgid "dump a GDBM database to a file"
-msgstr "despeja um banco de dados GDBM em um arquivo"
-
-#: src/gdbm_dump.c:23
-msgid "DB_FILE FILE"
-msgstr "ARQUIVO_BD ARQUIVO"
-
-#: src/gdbm_dump.c:25
-msgid "select dump format"
-msgstr "seleciona o formato de despejo"
-
-#: src/gdbm_dump.c:67
-msgid "unknown dump format"
-msgstr "formato de despejo desconhecido"
-
-#: src/gdbm_dump.c:74 src/gdbm_load.c:215
-msgid "unknown option"
-msgstr "opção desconhecida"
-
-#: src/gdbm_dump.c:90 src/gdbm_load.c:231
-#, c-format
-msgid "too many arguments; try `%s -h' for more info"
-msgstr "número excessivo de argumentos; tente \"%s -h\" para mais informações"
-
-#: src/gdbm_dump.c:110 src/gdbm_load.c:251
-#, c-format
-msgid "cannot open %s"
-msgstr "não foi possível abrir %s"
-
-#: src/gdbm_dump.c:118 src/gdbm_load.c:261
-msgid "gdbm_open failed"
-msgstr "falha no gdbm_open"
-
-#: src/gdbm_dump.c:125
-msgid "dump error"
-msgstr "erro no despejo"
-
-#: src/gdbm_load.c:32
-msgid "load a GDBM database from a file"
-msgstr "carrega um banco de dados GDBM de um arquivo"
-
-#: src/gdbm_load.c:33
-msgid "FILE DB_FILE"
-msgstr "ARQUIVO ARQUIVO_BD"
-
-#: src/gdbm_load.c:35
-msgid "replace records in the existing database"
-msgstr "substitui os registros no banco de dados existente"
-
-#: src/gdbm_load.c:36
-msgid "MODE"
-msgstr "MODO"
-
-#: src/gdbm_load.c:36
-msgid "set file mode"
-msgstr "define o modo do arquivo"
-
-#: src/gdbm_load.c:37
-msgid "NAME|UID:NAME|GID"
-msgstr "NOME|UID:NOME|GID"
-
-#: src/gdbm_load.c:37
-msgid "set file owner"
-msgstr "define o dono do arquivo"
-
-#: src/gdbm_load.c:38
-msgid "do not attempt to set file meta-data"
-msgstr "não tenta definir os metadados do arquivo"
-
-#: src/gdbm_load.c:39
-msgid "use memory mapping"
-msgstr "usa mapeamento de memória"
-
-#: src/gdbm_load.c:40 src/gdbm_load.c:41
-msgid "NUM"
-msgstr "NÚM"
-
-#: src/gdbm_load.c:40
-msgid "set the cache size"
-msgstr "define o tamanho do cache"
-
-#: src/gdbm_load.c:41
-msgid "set the block size"
-msgstr "define o tamanho de bloco"
-
-#: src/gdbm_load.c:79
-#, c-format
-msgid "invalid number: %s"
-msgstr "nome inválido: %s"
-
-#: src/gdbm_load.c:84
-#, c-format
-msgid "invalid number: %s: %s"
-msgstr "nome inválido: %s: %s"
-
-#: src/gdbm_load.c:136
-#, c-format
-msgid "invalid octal number"
-msgstr "número octal inválido"
-
-#: src/gdbm_load.c:161
-#, c-format
-msgid "invalid user name: %s"
-msgstr "nome de usuário inválido: %s"
-
-#: src/gdbm_load.c:180
-#, c-format
-msgid "invalid group name: %s"
-msgstr "nome de grupo inválido: %s"
-
-#: src/gdbm_load.c:192
-#, c-format
-msgid "no such UID: %lu"
-msgstr "UID inexistente: %lu"
-
-#: src/gdbm_load.c:267
-#, c-format
-msgid "gdbm_setopt failed: %s"
-msgstr "gdbm_setopt falhou: %s"
-
-#: src/gdbm_load.c:281 src/gdbm_load.c:299
-#, c-format
-msgid "error restoring metadata: %s (%s)"
-msgstr "erro ao restaurar metadados: %s (%s)"
-
-#: src/gdbm_load.c:290 src/gdbmshell.c:1458
-#, c-format
-msgid "cannot load from %s"
-msgstr "não foi possível carregar de %s"
-
-#: src/gdbm_load.c:307
-msgid "gdbm_setopt failed"
-msgstr "gdbm_setopt falhou"
-
 #: src/gdbmerrno.c:102
 msgid "No error"
 msgstr "Nenhum erro"
@@ -378,140 +219,228 @@
 msgid "Function usage error"
 msgstr "Erro no uso da função"

_service:tar_scm:gdbm-1.22.tar.gz/po/ru.gmo -> _service:tar_scm:gdbm-1.23.tar.gz/po/ru.gmo Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/ru.po -> _service:tar_scm:gdbm-1.23.tar.gz/po/ru.po Changed

@@ -8,7 +8,7 @@
 msgstr ""
 "Project-Id-Version: gdbm 1.21.90\n"
 "Report-Msgid-Bugs-To: bug-gdbm@gnu.org\n"
-"POT-Creation-Date: 2021-10-19 07:55+0300\n"
+"POT-Creation-Date: 2022-02-04 16:04+0200\n"
 "PO-Revision-Date: 2021-09-16 07:12+0300\n"
 "Last-Translator: Yuri Kozlov <yuray@komyakino.ru>\n"
 "Language-Team: Russian <gnu@d07.ru>\n"
@@ -21,182 +21,23 @@
 "%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2);\n"
 "X-Generator: Lokalize 20.12.0\n"
 
-#: src/bucket.c:267 src/bucket.c:538 src/bucket.c:647 src/falloc.c:211
-#: src/falloc.c:337 src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36
-#: src/update.c:88
+#: src/bucket.c:399 src/bucket.c:684 src/falloc.c:211 src/falloc.c:337
+#: src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36 src/update.c:76
 msgid "lseek error"
 msgstr "ошибка lseek"
 
-#: src/bucket.c:395
+#: src/bucket.c:534
 msgid "directory overflow"
 msgstr "переполнение каталога"
 
-#: src/bucket.c:406 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
+#: src/bucket.c:545 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
 msgid "malloc error"
 msgstr "ошибка malloc"
 
-#: src/datconv.c:291
-#, c-format
-msgid "(not enough data)"
-msgstr "(недостаточно данных)"
-
-#: src/datconv.c:383
-msgid "cannot convert"
-msgstr "невозможно преобразовать"
-
-#: src/datconv.c:392
-#, c-format
-msgid "cannot convert value #%d: %s"
-msgstr "невозможно преобразовать значение #%d: %s"
-
-#: src/datconv.c:418 src/datconv.c:467
-msgid "mixing tagged and untagged values is not allowed"
-msgstr "нельзя использовать значения с тегом и без тега одновременно"
-
-#: src/datconv.c:472
-#, c-format
-msgid "%s: no such field in datum"
-msgstr "%s: отсутствует поле в datum"
-
 #: src/falloc.c:201
 msgid "malloc failed"
 msgstr "вызов malloc завершился ошибкой"
 
-#: src/gdbm_dump.c:22
-msgid "dump a GDBM database to a file"
-msgstr "сделать дамп базы данных GDBM в файл"
-
-#: src/gdbm_dump.c:23
-msgid "DB_FILE FILE"
-msgstr "ФАЙЛ_БД ФАЙЛ"
-
-#: src/gdbm_dump.c:25
-msgid "select dump format"
-msgstr "формат дампа"
-
-#: src/gdbm_dump.c:67
-msgid "unknown dump format"
-msgstr "неизвестный формат дампа"
-
-#: src/gdbm_dump.c:74 src/gdbm_load.c:215
-msgid "unknown option"
-msgstr "неизвестный параметр"
-
-#: src/gdbm_dump.c:90 src/gdbm_load.c:231
-#, c-format
-msgid "too many arguments; try `%s -h' for more info"
-msgstr "слишком много аргументов; посмотрите справку «%s -h»"
-
-#: src/gdbm_dump.c:110 src/gdbm_load.c:251
-#, c-format
-msgid "cannot open %s"
-msgstr "не удалось открыть %s"
-
-#: src/gdbm_dump.c:118 src/gdbm_load.c:261
-msgid "gdbm_open failed"
-msgstr "вызов gdbm_open завершился ошибкой"
-
-#: src/gdbm_dump.c:125
-msgid "dump error"
-msgstr "ошибка создания дампа"
-
-#: src/gdbm_load.c:32
-msgid "load a GDBM database from a file"
-msgstr "загрузить базу данных GDBM из файла"
-
-#: src/gdbm_load.c:33
-msgid "FILE DB_FILE"
-msgstr "ФАЙЛ ФАЙЛ_БД"
-
-#: src/gdbm_load.c:35
-msgid "replace records in the existing database"
-msgstr "заменять записи в существующей базе данных"
-
-#: src/gdbm_load.c:36
-msgid "MODE"
-msgstr "РЕЖИМ"
-
-#: src/gdbm_load.c:36
-msgid "set file mode"
-msgstr "режим доступа к файлу"
-
-#: src/gdbm_load.c:37
-msgid "NAME|UID:NAME|GID"
-msgstr "ИМЯ|UID:ИМЯ|GID"
-
-#: src/gdbm_load.c:37
-msgid "set file owner"
-msgstr "владелец файла"
-
-#: src/gdbm_load.c:38
-msgid "do not attempt to set file meta-data"
-msgstr "не пытаться задать метаданные файла"
-
-#: src/gdbm_load.c:39
-msgid "use memory mapping"
-msgstr "использовать проецирование в память"
-
-#: src/gdbm_load.c:40 src/gdbm_load.c:41
-msgid "NUM"
-msgstr "ЧИСЛО"
-
-#: src/gdbm_load.c:40
-msgid "set the cache size"
-msgstr "размер кэша"
-
-#: src/gdbm_load.c:41
-msgid "set the block size"
-msgstr "размер блока"
-
-#: src/gdbm_load.c:79
-#, c-format
-msgid "invalid number: %s"
-msgstr "неверное число: %s"
-
-#: src/gdbm_load.c:84
-#, c-format
-msgid "invalid number: %s: %s"
-msgstr "неверное число: %s %s"
-
-#: src/gdbm_load.c:136
-#, c-format
-msgid "invalid octal number"
-msgstr "неверное восьмеричное число"
-
-#: src/gdbm_load.c:161
-#, c-format
-msgid "invalid user name: %s"
-msgstr "неверное имя пользователя: %s"
-
-#: src/gdbm_load.c:180
-#, c-format
-msgid "invalid group name: %s"
-msgstr "неверное имя группы: %s"
-
-#: src/gdbm_load.c:192
-#, c-format
-msgid "no such UID: %lu"
-msgstr "UID не найден: %lu"
-
-#: src/gdbm_load.c:267
-#, c-format
-msgid "gdbm_setopt failed: %s"
-msgstr "вызов gdbm_setopt завершился ошибкой: %s"
-
-#: src/gdbm_load.c:281 src/gdbm_load.c:299
-#, c-format
-msgid "error restoring metadata: %s (%s)"
-msgstr "ошибка восстановления метаданных: %s (%s)"
-
-#: src/gdbm_load.c:290 src/gdbmshell.c:1458
-#, c-format
-msgid "cannot load from %s"
-msgstr "невозможно загрузить из %s"
-
-#: src/gdbm_load.c:307
-msgid "gdbm_setopt failed"
-msgstr "вызов gdbm_setopt завершился ошибкой"
-
 #: src/gdbmerrno.c:102
 msgid "No error"
 msgstr "Нет ошибок"
@@ -378,138 +219,227 @@
 msgid "Function usage error"
 msgstr "Ошибка использования функции"

_service:tar_scm:gdbm-1.22.tar.gz/po/sr.gmo -> _service:tar_scm:gdbm-1.23.tar.gz/po/sr.gmo Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/sr.po -> _service:tar_scm:gdbm-1.23.tar.gz/po/sr.po Changed

@@ -6,7 +6,7 @@
 msgstr ""
 "Project-Id-Version: gdbm-1.21.90\n"
 "Report-Msgid-Bugs-To: bug-gdbm@gnu.org\n"
-"POT-Creation-Date: 2021-10-19 07:55+0300\n"
+"POT-Creation-Date: 2022-02-04 16:04+0200\n"
 "PO-Revision-Date: 2021-10-10 13:21+0200\n"
 "Last-Translator: Мирослав Николић <miroslavnikolic@rocketmail.com>\n"
 "Language-Team: Serbian <(nothing)>\n"
@@ -18,182 +18,23 @@
 "%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2);\n"
 "X-Bugs: Report translation errors to the Language-Team address.\n"
 
-#: src/bucket.c:267 src/bucket.c:538 src/bucket.c:647 src/falloc.c:211
-#: src/falloc.c:337 src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36
-#: src/update.c:88
+#: src/bucket.c:399 src/bucket.c:684 src/falloc.c:211 src/falloc.c:337
+#: src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36 src/update.c:76
 msgid "lseek error"
 msgstr "грешка премотавања реда"
 
-#: src/bucket.c:395
+#: src/bucket.c:534
 msgid "directory overflow"
 msgstr "прекорачење директоријума"
 
-#: src/bucket.c:406 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
+#: src/bucket.c:545 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
 msgid "malloc error"
 msgstr "грешка доделе меморије"
 
-#: src/datconv.c:291
-#, c-format
-msgid "(not enough data)"
-msgstr "(нема довољно података)"
-
-#: src/datconv.c:383
-msgid "cannot convert"
-msgstr "не могу да претворим"
-
-#: src/datconv.c:392
-#, c-format
-msgid "cannot convert value #%d: %s"
-msgstr "не могу да претворим вредност #%d: %s"
-
-#: src/datconv.c:418 src/datconv.c:467
-msgid "mixing tagged and untagged values is not allowed"
-msgstr "није дозвољено мешање означених и неозначених вредности"
-
-#: src/datconv.c:472
-#, c-format
-msgid "%s: no such field in datum"
-msgstr "%s: нема таквог поља у датуму"
-
 #: src/falloc.c:201
 msgid "malloc failed"
 msgstr "није успела додела меморије"
 
-#: src/gdbm_dump.c:22
-msgid "dump a GDBM database to a file"
-msgstr "избацује резултат ГДБМ базе података у датотеку"
-
-#: src/gdbm_dump.c:23
-msgid "DB_FILE FILE"
-msgstr "БАЗА_ПОДАТАКА ДАТОТЕКА"
-
-#: src/gdbm_dump.c:25
-msgid "select dump format"
-msgstr "бирам запис исписа"
-
-#: src/gdbm_dump.c:67
-msgid "unknown dump format"
-msgstr "непознат запис исписа"
-
-#: src/gdbm_dump.c:74 src/gdbm_load.c:215
-msgid "unknown option"
-msgstr "непозната опција"
-
-#: src/gdbm_dump.c:90 src/gdbm_load.c:231
-#, c-format
-msgid "too many arguments; try `%s -h' for more info"
-msgstr "превише аргумената; покушајте „%s -h“ за више података"
-
-#: src/gdbm_dump.c:110 src/gdbm_load.c:251
-#, c-format
-msgid "cannot open %s"
-msgstr "не могу да отворим „%s“"
-
-#: src/gdbm_dump.c:118 src/gdbm_load.c:261
-msgid "gdbm_open failed"
-msgstr "гдбм_отвори није успело"
-
-#: src/gdbm_dump.c:125
-msgid "dump error"
-msgstr "грешка исписа"
-
-#: src/gdbm_load.c:32
-msgid "load a GDBM database from a file"
-msgstr "учитава ГДБМ базу података из датотеке"
-
-#: src/gdbm_load.c:33
-msgid "FILE DB_FILE"
-msgstr "ДАТОТЕКА БАЗА_ПОДАТАКА"
-
-#: src/gdbm_load.c:35
-msgid "replace records in the existing database"
-msgstr "мења записе у постојећој бази података"
-
-#: src/gdbm_load.c:36
-msgid "MODE"
-msgstr "РЕЖИМ"
-
-#: src/gdbm_load.c:36
-msgid "set file mode"
-msgstr "подешава режим датотеке"
-
-#: src/gdbm_load.c:37
-msgid "NAME|UID:NAME|GID"
-msgstr "НАЗИВ|ЈИБ:НАЗИВ|ГИБ"
-
-#: src/gdbm_load.c:37
-msgid "set file owner"
-msgstr "подешава власника датотеке"
-
-#: src/gdbm_load.c:38
-msgid "do not attempt to set file meta-data"
-msgstr "не покушава да подеси мета податке датотеке"
-
-#: src/gdbm_load.c:39
-msgid "use memory mapping"
-msgstr "користи мапирање меморије"
-
-#: src/gdbm_load.c:40 src/gdbm_load.c:41
-msgid "NUM"
-msgstr "БРОЈ"
-
-#: src/gdbm_load.c:40
-msgid "set the cache size"
-msgstr "подешава величину оставе"
-
-#: src/gdbm_load.c:41
-msgid "set the block size"
-msgstr "подешава величину блока"
-
-#: src/gdbm_load.c:79
-#, c-format
-msgid "invalid number: %s"
-msgstr "неисправан број: %s"
-
-#: src/gdbm_load.c:84
-#, c-format
-msgid "invalid number: %s: %s"
-msgstr "неисправан број: %s: %s"
-
-#: src/gdbm_load.c:136
-#, c-format
-msgid "invalid octal number"
-msgstr "неисправан октални број"
-
-#: src/gdbm_load.c:161
-#, c-format
-msgid "invalid user name: %s"
-msgstr "неисправно корисничко име: %s"
-
-#: src/gdbm_load.c:180
-#, c-format
-msgid "invalid group name: %s"
-msgstr "неисправан назив групе: %s"
-
-#: src/gdbm_load.c:192
-#, c-format
-msgid "no such UID: %lu"
-msgstr "нема таквог ЈИБ-а: %lu"
-
-#: src/gdbm_load.c:267
-#, c-format
-msgid "gdbm_setopt failed: %s"
-msgstr "гдбм_подесиопцију није успело: %s"
-
-#: src/gdbm_load.c:281 src/gdbm_load.c:299
-#, c-format
-msgid "error restoring metadata: %s (%s)"
-msgstr "грешка повраћаја мета података: %s (%s)"
-
-#: src/gdbm_load.c:290 src/gdbmshell.c:1458
-#, c-format
-msgid "cannot load from %s"
-msgstr "не могу да учитам из %s"
-
-#: src/gdbm_load.c:307
-msgid "gdbm_setopt failed"
-msgstr "гдбм_подесиопцију није успело"
-
 #: src/gdbmerrno.c:102
 msgid "No error"
 msgstr "Нема грешака"
@@ -375,138 +216,227 @@
 msgid "Function usage error"
 msgstr "Грешка коришћења функције"

_service:tar_scm:gdbm-1.22.tar.gz/po/sv.gmo -> _service:tar_scm:gdbm-1.23.tar.gz/po/sv.gmo Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/sv.po -> _service:tar_scm:gdbm-1.23.tar.gz/po/sv.po Changed

@@ -8,7 +8,7 @@
 msgstr ""
 "Project-Id-Version: gdbm 1.19.90\n"
 "Report-Msgid-Bugs-To: bug-gdbm@gnu.org\n"
-"POT-Creation-Date: 2021-10-19 07:55+0300\n"
+"POT-Creation-Date: 2022-02-04 16:04+0200\n"
 "PO-Revision-Date: 2021-04-03 00:41+0200\n"
 "Last-Translator: Anders Jonsson <anders.jonsson@norsjovallen.se>\n"
 "Language-Team: Swedish <tp-sv@listor.tp-sv.se>\n"
@@ -20,183 +20,23 @@
 "Plural-Forms: nplurals=2; plural=(n != 1);\n"
 "X-Generator: Poedit 2.4.2\n"
 
-#: src/bucket.c:267 src/bucket.c:538 src/bucket.c:647 src/falloc.c:211
-#: src/falloc.c:337 src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36
-#: src/update.c:88
+#: src/bucket.c:399 src/bucket.c:684 src/falloc.c:211 src/falloc.c:337
+#: src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36 src/update.c:76
 msgid "lseek error"
 msgstr "lseek-fel"
 
-#: src/bucket.c:395
+#: src/bucket.c:534
 msgid "directory overflow"
 msgstr "katalogöverspill"
 
-#: src/bucket.c:406 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
+#: src/bucket.c:545 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
 msgid "malloc error"
 msgstr "malloc-fel"
 
-#: src/datconv.c:291
-#, c-format
-msgid "(not enough data)"
-msgstr "(för lite data)"
-
-#: src/datconv.c:383
-msgid "cannot convert"
-msgstr "kan inte konvertera"
-
-#: src/datconv.c:392
-#, c-format
-msgid "cannot convert value #%d: %s"
-msgstr "det går inte att konvertera värde #%d: %s"
-
-#: src/datconv.c:418 src/datconv.c:467
-msgid "mixing tagged and untagged values is not allowed"
-msgstr "det är inte tillåtet att blanda taggade och otaggade värden"
-
-#: src/datconv.c:472
-#, c-format
-msgid "%s: no such field in datum"
-msgstr "%s: inget sådant fält bland data"
-
 #: src/falloc.c:201
 msgid "malloc failed"
 msgstr "malloc misslyckades"
 
-#: src/gdbm_dump.c:22
-msgid "dump a GDBM database to a file"
-msgstr "dumpa en GDBM-databas till en fil"
-
-#: src/gdbm_dump.c:23
-msgid "DB_FILE FILE"
-msgstr "DBFIL FIL"
-
-#: src/gdbm_dump.c:25
-msgid "select dump format"
-msgstr "välj dumpformat"
-
-#: src/gdbm_dump.c:67
-msgid "unknown dump format"
-msgstr "okänt dumpformat"
-
-#: src/gdbm_dump.c:74 src/gdbm_load.c:215
-msgid "unknown option"
-msgstr "okänd flagga"
-
-#: src/gdbm_dump.c:90 src/gdbm_load.c:231
-#, c-format
-msgid "too many arguments; try `%s -h' for more info"
-msgstr "för många argument, försök med ”%s -h” för mer info"
-
-#: src/gdbm_dump.c:110 src/gdbm_load.c:251
-#, c-format
-msgid "cannot open %s"
-msgstr "det går inte att öppna %s"
-
-#: src/gdbm_dump.c:118 src/gdbm_load.c:261
-msgid "gdbm_open failed"
-msgstr "gdbm_open misslyckades"
-
-#: src/gdbm_dump.c:125
-msgid "dump error"
-msgstr "dumpfel"
-
-#: src/gdbm_load.c:32
-msgid "load a GDBM database from a file"
-msgstr "läs in en GDBM-databas från en fil"
-
-#: src/gdbm_load.c:33
-msgid "FILE DB_FILE"
-msgstr "FIL DBFIL"
-
-#: src/gdbm_load.c:35
-msgid "replace records in the existing database"
-msgstr "ersätt poster i den befintliga databasen"
-
-# https://en.wikipedia.org/wiki/Modes_(Unix)
-#: src/gdbm_load.c:36
-msgid "MODE"
-msgstr "RÄTTIGHETER"
-
-#: src/gdbm_load.c:36
-msgid "set file mode"
-msgstr "ställ in filrättigheter"
-
-#: src/gdbm_load.c:37
-msgid "NAME|UID:NAME|GID"
-msgstr "NAMN|UID:NAMN|GID"
-
-#: src/gdbm_load.c:37
-msgid "set file owner"
-msgstr "ställ in filägare"
-
-#: src/gdbm_load.c:38
-msgid "do not attempt to set file meta-data"
-msgstr "försök inte att ställa in metadata för fil"
-
-#: src/gdbm_load.c:39
-msgid "use memory mapping"
-msgstr "använd minnesmappning"
-
-#: src/gdbm_load.c:40 src/gdbm_load.c:41
-msgid "NUM"
-msgstr "TAL"
-
-#: src/gdbm_load.c:40
-msgid "set the cache size"
-msgstr "ställ in cachestorleken"
-
-#: src/gdbm_load.c:41
-msgid "set the block size"
-msgstr "ställ in blockstorleken"
-
-#: src/gdbm_load.c:79
-#, c-format
-msgid "invalid number: %s"
-msgstr "ogiltigt tal: %s"
-
-#: src/gdbm_load.c:84
-#, c-format
-msgid "invalid number: %s: %s"
-msgstr "ogiltigt tal: %s: %s"
-
-#: src/gdbm_load.c:136
-#, c-format
-msgid "invalid octal number"
-msgstr "ogiltigt oktalt tal"
-
-#: src/gdbm_load.c:161
-#, c-format
-msgid "invalid user name: %s"
-msgstr "ogiltigt användarnamn: %s"
-
-#: src/gdbm_load.c:180
-#, c-format
-msgid "invalid group name: %s"
-msgstr "ogiltigt gruppnamn: %s"
-
-#: src/gdbm_load.c:192
-#, c-format
-msgid "no such UID: %lu"
-msgstr "inget sådant UID: %lu"
-
-#: src/gdbm_load.c:267
-#, c-format
-msgid "gdbm_setopt failed: %s"
-msgstr "gdbm_setopt misslyckades: %s"
-
-#: src/gdbm_load.c:281 src/gdbm_load.c:299
-#, c-format
-msgid "error restoring metadata: %s (%s)"
-msgstr "fel vid återställande av metadata: %s (%s)"
-
-#: src/gdbm_load.c:290 src/gdbmshell.c:1458
-#, c-format
-msgid "cannot load from %s"
-msgstr "det går inte att läsa in från %s"
-
-#: src/gdbm_load.c:307
-msgid "gdbm_setopt failed"
-msgstr "gdbm_setopt misslyckades"
-
 #: src/gdbmerrno.c:102
 msgid "No error"
 msgstr "Inget fel"
@@ -382,168 +222,258 @@
 msgid "Function usage error"
 msgstr "Filsökfel (seek)"

_service:tar_scm:gdbm-1.22.tar.gz/po/uk.gmo -> _service:tar_scm:gdbm-1.23.tar.gz/po/uk.gmo Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/uk.po -> _service:tar_scm:gdbm-1.23.tar.gz/po/uk.po Changed

@@ -7,7 +7,7 @@
 msgstr ""
 "Project-Id-Version: gdbm 1.21.90\n"
 "Report-Msgid-Bugs-To: bug-gdbm@gnu.org\n"
-"POT-Creation-Date: 2021-10-19 07:55+0300\n"
+"POT-Creation-Date: 2022-02-04 16:04+0200\n"
 "PO-Revision-Date: 2021-09-03 13:15+0300\n"
 "Last-Translator: Yuri Chornoivan <yurchor@ukr.net>\n"
 "Language-Team: Ukrainian <trans-uk@lists.fedoraproject.org>\n"
@@ -20,184 +20,23 @@
 "%10>=2 && n%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2;\n"
 "X-Generator: Lokalize 20.12.0\n"
 
-#: src/bucket.c:267 src/bucket.c:538 src/bucket.c:647 src/falloc.c:211
-#: src/falloc.c:337 src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36
-#: src/update.c:88
+#: src/bucket.c:399 src/bucket.c:684 src/falloc.c:211 src/falloc.c:337
+#: src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36 src/update.c:76
 msgid "lseek error"
 msgstr "помилка lseek"
 
-#: src/bucket.c:395
+#: src/bucket.c:534
 msgid "directory overflow"
 msgstr "переповнення каталогу"
 
-#: src/bucket.c:406 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
+#: src/bucket.c:545 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
 msgid "malloc error"
 msgstr "помилка malloc"
 
-#: src/datconv.c:291
-#, c-format
-msgid "(not enough data)"
-msgstr "(недостатньо даних)"
-
-#: src/datconv.c:383
-msgid "cannot convert"
-msgstr "не вдалося перетворити"
-
-#: src/datconv.c:392
-#, c-format
-msgid "cannot convert value #%d: %s"
-msgstr "не вдалося перетворити значення №%d: %s"
-
-#: src/datconv.c:418 src/datconv.c:467
-msgid "mixing tagged and untagged values is not allowed"
-msgstr "не можна одночасно використовувати значення з теґами і без теґів"
-
-#: src/datconv.c:472
-#, c-format
-msgid "%s: no such field in datum"
-msgstr "%s: у даних немає такого поля"
-
 #: src/falloc.c:201
 msgid "malloc failed"
 msgstr "невдала спроба виконати malloc"
 
-#: src/gdbm_dump.c:22
-msgid "dump a GDBM database to a file"
-msgstr "створити дамп бази даних GDBM до файла"
-
-#: src/gdbm_dump.c:23
-msgid "DB_FILE FILE"
-msgstr "ФАЙЛБД ФАЙЛ"
-
-#: src/gdbm_dump.c:25
-msgid "select dump format"
-msgstr "виберіть формат дампу"
-
-#: src/gdbm_dump.c:67
-msgid "unknown dump format"
-msgstr "невідомий формат дампу"
-
-#: src/gdbm_dump.c:74 src/gdbm_load.c:215
-msgid "unknown option"
-msgstr "невідомий параметр"
-
-#: src/gdbm_dump.c:90 src/gdbm_load.c:231
-#, c-format
-msgid "too many arguments; try `%s -h' for more info"
-msgstr ""
-"надто багато параметрів; скористайтеся командою «%s -h», щоб отримати "
-"довідкову інформацію"
-
-#: src/gdbm_dump.c:110 src/gdbm_load.c:251
-#, c-format
-msgid "cannot open %s"
-msgstr "не вдалося відкрити %s"
-
-#: src/gdbm_dump.c:118 src/gdbm_load.c:261
-msgid "gdbm_open failed"
-msgstr "помилка gdbm_open"
-
-#: src/gdbm_dump.c:125
-msgid "dump error"
-msgstr "помилка під час створення дампу"
-
-#: src/gdbm_load.c:32
-msgid "load a GDBM database from a file"
-msgstr "завантажити базу даних GDBM з файла"
-
-#: src/gdbm_load.c:33
-msgid "FILE DB_FILE"
-msgstr "ФАЙЛ ФАЙЛБД"
-
-#: src/gdbm_load.c:35
-msgid "replace records in the existing database"
-msgstr "замінити записи у наявній базі даних"
-
-#: src/gdbm_load.c:36
-msgid "MODE"
-msgstr "РЕЖИМ"
-
-#: src/gdbm_load.c:36
-msgid "set file mode"
-msgstr "встановити режим доступу до файла"
-
-#: src/gdbm_load.c:37
-msgid "NAME|UID:NAME|GID"
-msgstr "НАЗВА|UID:НАЗВА|GID"
-
-#: src/gdbm_load.c:37
-msgid "set file owner"
-msgstr "встановити власника файла"
-
-#: src/gdbm_load.c:38
-msgid "do not attempt to set file meta-data"
-msgstr "не намагатися встановити значення метаданих файла"
-
-#: src/gdbm_load.c:39
-msgid "use memory mapping"
-msgstr "використовувати прив’язку до пам’яті"
-
-#: src/gdbm_load.c:40 src/gdbm_load.c:41
-msgid "NUM"
-msgstr "ЧИСЛО"
-
-#: src/gdbm_load.c:40
-msgid "set the cache size"
-msgstr "встановити розмір кешу"
-
-#: src/gdbm_load.c:41
-msgid "set the block size"
-msgstr "встановити розмір блоку"
-
-#: src/gdbm_load.c:79
-#, c-format
-msgid "invalid number: %s"
-msgstr "некоректне число: %s"
-
-#: src/gdbm_load.c:84
-#, c-format
-msgid "invalid number: %s: %s"
-msgstr "некоректне число: %s: %s"
-
-#: src/gdbm_load.c:136
-#, c-format
-msgid "invalid octal number"
-msgstr "помилкове вісімкове число"
-
-#: src/gdbm_load.c:161
-#, c-format
-msgid "invalid user name: %s"
-msgstr "некоректна назва облікового запису користувача: %s"
-
-#: src/gdbm_load.c:180
-#, c-format
-msgid "invalid group name: %s"
-msgstr "некоректна назва групи: %s"
-
-#: src/gdbm_load.c:192
-#, c-format
-msgid "no such UID: %lu"
-msgstr "немає такого UID: %lu"
-
-#: src/gdbm_load.c:267
-#, c-format
-msgid "gdbm_setopt failed: %s"
-msgstr "помилка gdbm_setopt: %s"
-
-#: src/gdbm_load.c:281 src/gdbm_load.c:299
-#, c-format
-msgid "error restoring metadata: %s (%s)"
-msgstr "помилка під час спроби відновлення метаданих: %s (%s)"
-
-#: src/gdbm_load.c:290 src/gdbmshell.c:1458
-#, c-format
-msgid "cannot load from %s"
-msgstr "не вдалося завантажити з %s"
-
-#: src/gdbm_load.c:307
-msgid "gdbm_setopt failed"
-msgstr "помилка gdbm_setopt"
-
 #: src/gdbmerrno.c:102
 msgid "No error"
 msgstr "Без помилок"
@@ -379,138 +218,229 @@
 msgid "Function usage error"

_service:tar_scm:gdbm-1.22.tar.gz/po/vi.gmo -> _service:tar_scm:gdbm-1.23.tar.gz/po/vi.gmo Changed

_service:tar_scm:gdbm-1.22.tar.gz/po/vi.po -> _service:tar_scm:gdbm-1.23.tar.gz/po/vi.po Changed

@@ -9,7 +9,7 @@
 msgstr ""
 "Project-Id-Version: gdbm 1.15\n"
 "Report-Msgid-Bugs-To: bug-gdbm@gnu.org\n"
-"POT-Creation-Date: 2021-10-19 07:55+0300\n"
+"POT-Creation-Date: 2022-02-04 16:04+0200\n"
 "PO-Revision-Date: 2018-06-22 13:49+0700\n"
 "Last-Translator: Trần Ngọc Quân <vnwildman@gmail.com>\n"
 "Language-Team: Vietnamese <translation-team-vi@lists.sourceforge.net>\n"
@@ -22,184 +22,23 @@
 "X-Poedit-SourceCharset: UTF-8\n"
 "X-Generator: Gtranslator 2.91.7\n"
 
-#: src/bucket.c:267 src/bucket.c:538 src/bucket.c:647 src/falloc.c:211
-#: src/falloc.c:337 src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36
-#: src/update.c:88
+#: src/bucket.c:399 src/bucket.c:684 src/falloc.c:211 src/falloc.c:337
+#: src/findkey.c:124 src/gdbmstore.c:168 src/update.c:36 src/update.c:76
 msgid "lseek error"
 msgstr "lỗi lseek"
 
-#: src/bucket.c:395
+#: src/bucket.c:534
 msgid "directory overflow"
 msgstr "tràn thư mục"
 
-#: src/bucket.c:406 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
+#: src/bucket.c:545 src/falloc.c:302 src/findkey.c:97 src/findkey.c:113
 msgid "malloc error"
 msgstr "lỗi malloc"
 
-#: src/datconv.c:291
-#, c-format
-msgid "(not enough data)"
-msgstr "(không đủ dữ liệu)"
-
-#: src/datconv.c:383
-msgid "cannot convert"
-msgstr "không thể chuyển đổi"
-
-#: src/datconv.c:392
-#, c-format
-msgid "cannot convert value #%d: %s"
-msgstr "không thể chuyển đổi giá trị #%d: %s"
-
-#: src/datconv.c:418 src/datconv.c:467
-msgid "mixing tagged and untagged values is not allowed"
-msgstr "trộn các giá trị đã và chưa đánh thẻ là không được phép"
-
-#: src/datconv.c:472
-#, c-format
-msgid "%s: no such field in datum"
-msgstr ""
-
 #: src/falloc.c:201
 msgid "malloc failed"
 msgstr "malloc gặp lỗi"
 
-#: src/gdbm_dump.c:22
-msgid "dump a GDBM database to a file"
-msgstr ""
-
-#: src/gdbm_dump.c:23
-#, fuzzy
-msgid "DB_FILE FILE"
-msgstr "DBFILE"
-
-#: src/gdbm_dump.c:25
-msgid "select dump format"
-msgstr "chọn định dạng dump"
-
-#: src/gdbm_dump.c:67
-msgid "unknown dump format"
-msgstr "không hiểu định dạng dump"
-
-#: src/gdbm_dump.c:74 src/gdbm_load.c:215
-msgid "unknown option"
-msgstr "không hiểu tùy chọn"
-
-#: src/gdbm_dump.c:90 src/gdbm_load.c:231
-#, c-format
-msgid "too many arguments; try `%s -h' for more info"
-msgstr "quá nhiều đối số; gõ “%s -h” để có thêm thông tin"
-
-#: src/gdbm_dump.c:110 src/gdbm_load.c:251
-#, c-format
-msgid "cannot open %s"
-msgstr "không thể mở %s"
-
-#: src/gdbm_dump.c:118 src/gdbm_load.c:261
-msgid "gdbm_open failed"
-msgstr "gdbm_open gặp lỗi"
-
-#: src/gdbm_dump.c:125
-msgid "dump error"
-msgstr "lỗi dump"
-
-#: src/gdbm_load.c:32
-msgid "load a GDBM database from a file"
-msgstr ""
-
-#: src/gdbm_load.c:33
-#, fuzzy
-msgid "FILE DB_FILE"
-msgstr "DBFILE"
-
-#: src/gdbm_load.c:35
-msgid "replace records in the existing database"
-msgstr "thay thế các bản ghi trong cơ sở dữ liệu sẵn có"
-
-#: src/gdbm_load.c:36
-msgid "MODE"
-msgstr "CHẾ-ĐỘ"
-
-#: src/gdbm_load.c:36
-msgid "set file mode"
-msgstr "đặt chế độ tập tin"
-
-#: src/gdbm_load.c:37
-msgid "NAME|UID:NAME|GID"
-msgstr "TÊN|UID:TÊN|GID"
-
-#: src/gdbm_load.c:37
-msgid "set file owner"
-msgstr "đặt quyền sở hữu cho tập tin"
-
-#: src/gdbm_load.c:38
-msgid "do not attempt to set file meta-data"
-msgstr "đừng cố đặt meta-data tập tin"
-
-#: src/gdbm_load.c:39
-msgid "use memory mapping"
-msgstr "dùng ánh xạ bộ nhớ"
-
-#: src/gdbm_load.c:40 src/gdbm_load.c:41
-msgid "NUM"
-msgstr "SỐ"
-
-#: src/gdbm_load.c:40
-msgid "set the cache size"
-msgstr "đặt kích cỡ của bộ nhớ đệm"
-
-#: src/gdbm_load.c:41
-msgid "set the block size"
-msgstr "đặt kích thước khối"
-
-#: src/gdbm_load.c:79
-#, c-format
-msgid "invalid number: %s"
-msgstr "con số không hợp lệ: %s"
-
-#: src/gdbm_load.c:84
-#, c-format
-msgid "invalid number: %s: %s"
-msgstr "con số không hợp lệ: %s: %s"
-
-#: src/gdbm_load.c:136
-#, c-format
-msgid "invalid octal number"
-msgstr "số bát phân không hợp lệ"
-
-#: src/gdbm_load.c:161
-#, c-format
-msgid "invalid user name: %s"
-msgstr "tên người dùng không hợp lệ: %s"
-
-#: src/gdbm_load.c:180
-#, c-format
-msgid "invalid group name: %s"
-msgstr "tên nhóm không hợp lệ: %s"
-
-#: src/gdbm_load.c:192
-#, c-format
-msgid "no such UID: %lu"
-msgstr "không có UID nào như thế: %lu"
-
-#: src/gdbm_load.c:267
-#, c-format
-msgid "gdbm_setopt failed: %s"
-msgstr "gdbm_setopt gặp lỗi: %s"
-
-#: src/gdbm_load.c:281 src/gdbm_load.c:299
-#, c-format
-msgid "error restoring metadata: %s (%s)"
-msgstr "lỗi phục hồi metadata: %s (%s)"
-
-#: src/gdbm_load.c:290 src/gdbmshell.c:1458
-#, c-format
-msgid "cannot load from %s"
-msgstr "Không thể tải “%s”"
-
-#: src/gdbm_load.c:307
-msgid "gdbm_setopt failed"
-msgstr "gdbm_setopt gặp lỗi"
-
 #: src/gdbmerrno.c:102
 msgid "No error"
 msgstr "Không có lỗi"
@@ -386,139 +225,229 @@
 msgid "Function usage error"

_service:tar_scm:gdbm-1.22.tar.gz/src/Makefile.am -> _service:tar_scm:gdbm-1.23.tar.gz/src/Makefile.am Changed

@@ -1,5 +1,5 @@
 # This file is part of GDBM.                                   -*- Makefile -*-
-# Copyright (C) 2007-2021 Free Software Foundation, Inc.
+# Copyright (C) 2007-2022 Free Software Foundation, Inc.
 #
 # GDBM is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -14,24 +14,17 @@
 # You should have received a copy of the GNU General Public License
 # along with GDBM. If not, see <http://www.gnu.org/licenses/>. 
 
-# Flags
-AM_CPPFLAGS=-DIN_GDBM -DLOCALEDIR=\"$(localedir)\"
-
 # Headers
 nodist_include_HEADERS = gdbm.h
 noinst_HEADERS = \
  gdbmconst.h\
  gdbmdefs.h\
  gettext.h\
- gram.h\
  proto.h\
  systems.h
 
-EXTRA_DIST = gdbm.h.in gdbm.magic gram.y lex.l
-BUILT_SOURCES = gdbm.h gram.h gram.c lex.c
-
-gram.c gram.h: gram.y
-lex.c: lex.l
+EXTRA_DIST = gdbm.h.in gdbm.magic
+BUILT_SOURCES = gdbm.h 
 
 # The libraries
 VI_CURRENT  = 6
@@ -42,7 +35,6 @@
 libgdbm_la_LIBADD = @LTLIBINTL@
 
 libgdbm_la_SOURCES = \
- cachetree.c\
  gdbmclose.c\
  gdbmcount.c\
  gdbmdelete.c\
@@ -79,52 +71,3 @@
 
 libgdbm_la_LDFLAGS = -version-info $(VI_CURRENT):$(VI_REVISION):$(VI_AGE)
 
-noinst_LIBRARIES = libgdbmapp.a
-
-libgdbmapp_a_SOURCES =\
- err.c\
- mem.c\
- gdbmapp.h\
- parseopt.c\
- progname.c\
- datconv.c\
- gram.c\
- input-argv.c\
- input-file.c\
- input-null.c\
- input-std.c\
- lex.c\
- gdbmshell.c\
- var.c\
- util.c
-
-if GDBM_COND_READLINE
-  libgdbmapp_a_SOURCES += input-rl.c
-endif
-
-# Programs
-bin_PROGRAMS = gdbmtool gdbm_load gdbm_dump
-
-gdbmtool_LDADD  = \
- ./libgdbmapp.a\
- ./libgdbm.la\
- @READLINE_LIBS@
-
-gdbmtool_SOURCES = \
- gdbmtool.h\
- gdbmtool.c
-
-AM_YFLAGS = -dv $(YFLAGS_DEBUG)
-AM_LFLAGS = $(LFLAGS_DEBUG)
-
-.l.c:
-	$(AM_V_GEN)$(FLEX) -o $@ $(AM_LFLAGS) $<
-.y.c:
-	$(AM_V_GEN)$(BISON) -o $@ $(AM_YFLAGS) $<
-
-if COND_GDBMTOOL_DEBUG
-  AM_CPPFLAGS += -DGDBMTOOL_DEBUG=1
-endif
-
-gdbm_load_LDADD  = ./libgdbmapp.a ./libgdbm.la 
-gdbm_dump_LDADD  = ./libgdbmapp.a ./libgdbm.la

_service:tar_scm:gdbm-1.22.tar.gz/src/Makefile.in -> _service:tar_scm:gdbm-1.23.tar.gz/src/Makefile.in Changed

@@ -15,7 +15,7 @@
 @SET_MAKE@
 
 # This file is part of GDBM.                                   -*- Makefile -*-
-# Copyright (C) 2007-2021 Free Software Foundation, Inc.
+# Copyright (C) 2007-2022 Free Software Foundation, Inc.
 #
 # GDBM is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -31,8 +31,6 @@
 # along with GDBM. If not, see <http://www.gnu.org/licenses/>. 
 
 
-
-
 VPATH = @srcdir@
 am__is_gnu_make = { \
   if test -z '$(MAKELEVEL)'; then \
@@ -108,9 +106,6 @@
 build_triplet = @build@
 host_triplet = @host@
 @GDBM_COND_DEBUG_ENABLE_TRUE@am__append_1 = debug.c
-@GDBM_COND_READLINE_TRUE@am__append_2 = input-rl.c
-bin_PROGRAMS = gdbmtool$(EXEEXT) gdbm_load$(EXEEXT) gdbm_dump$(EXEEXT)
-@COND_GDBMTOOL_DEBUG_TRUE@am__append_3 = -DGDBMTOOL_DEBUG=1
 subdir = src
 ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
 am__aclocal_m4_deps = $(top_srcdir)/m4/gettext.m4 \
@@ -130,26 +125,6 @@
 CONFIG_HEADER = $(top_builddir)/autoconf.h
 CONFIG_CLEAN_FILES = gdbm.h
 CONFIG_CLEAN_VPATH_FILES =
-LIBRARIES = $(noinst_LIBRARIES)
-ARFLAGS = cru
-AM_V_AR = $(am__v_AR_@AM_V@)
-am__v_AR_ = $(am__v_AR_@AM_DEFAULT_V@)
-am__v_AR_0 = @echo "  AR      " $@;
-am__v_AR_1 = 
-libgdbmapp_a_AR = $(AR) $(ARFLAGS)
-libgdbmapp_a_LIBADD =
-am__libgdbmapp_a_SOURCES_DIST = err.c mem.c gdbmapp.h parseopt.c \
-	progname.c datconv.c gram.c input-argv.c input-file.c \
-	input-null.c input-std.c lex.c gdbmshell.c var.c util.c \
-	input-rl.c
-@GDBM_COND_READLINE_TRUE@am__objects_1 = input-rl.$(OBJEXT)
-am_libgdbmapp_a_OBJECTS = err.$(OBJEXT) mem.$(OBJEXT) \
-	parseopt.$(OBJEXT) progname.$(OBJEXT) datconv.$(OBJEXT) \
-	gram.$(OBJEXT) input-argv.$(OBJEXT) input-file.$(OBJEXT) \
-	input-null.$(OBJEXT) input-std.$(OBJEXT) lex.$(OBJEXT) \
-	gdbmshell.$(OBJEXT) var.$(OBJEXT) util.$(OBJEXT) \
-	$(am__objects_1)
-libgdbmapp_a_OBJECTS = $(am_libgdbmapp_a_OBJECTS)
 am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
 am__vpath_adj = case $$p in \
     $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
@@ -177,24 +152,23 @@
     || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
          $(am__cd) "$$dir" && rm -f $$files; }; \
   }
-am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(bindir)" \
-	"$(DESTDIR)$(includedir)"
+am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(includedir)"
 LTLIBRARIES = $(lib_LTLIBRARIES)
 libgdbm_la_DEPENDENCIES =
-am__libgdbm_la_SOURCES_DIST = cachetree.c gdbmclose.c gdbmcount.c \
-	gdbmdelete.c gdbmdump.c gdbmerrno.c gdbmexists.c gdbmexp.c \
-	gdbmfdesc.c gdbmfetch.c gdbmload.c gdbmopen.c gdbmimp.c \
-	gdbmreorg.c gdbmseq.c gdbmsetopt.c gdbmstore.c gdbmsync.c \
-	avail.c base64.c bucket.c falloc.c findkey.c fullio.c hash.c \
-	lock.c mmap.c recover.c update.c version.c debug.c
-@GDBM_COND_DEBUG_ENABLE_TRUE@am__objects_2 = debug.lo
-am_libgdbm_la_OBJECTS = cachetree.lo gdbmclose.lo gdbmcount.lo \
-	gdbmdelete.lo gdbmdump.lo gdbmerrno.lo gdbmexists.lo \
-	gdbmexp.lo gdbmfdesc.lo gdbmfetch.lo gdbmload.lo gdbmopen.lo \
-	gdbmimp.lo gdbmreorg.lo gdbmseq.lo gdbmsetopt.lo gdbmstore.lo \
-	gdbmsync.lo avail.lo base64.lo bucket.lo falloc.lo findkey.lo \
-	fullio.lo hash.lo lock.lo mmap.lo recover.lo update.lo \
-	version.lo $(am__objects_2)
+am__libgdbm_la_SOURCES_DIST = gdbmclose.c gdbmcount.c gdbmdelete.c \
+	gdbmdump.c gdbmerrno.c gdbmexists.c gdbmexp.c gdbmfdesc.c \
+	gdbmfetch.c gdbmload.c gdbmopen.c gdbmimp.c gdbmreorg.c \
+	gdbmseq.c gdbmsetopt.c gdbmstore.c gdbmsync.c avail.c base64.c \
+	bucket.c falloc.c findkey.c fullio.c hash.c lock.c mmap.c \
+	recover.c update.c version.c debug.c
+@GDBM_COND_DEBUG_ENABLE_TRUE@am__objects_1 = debug.lo
+am_libgdbm_la_OBJECTS = gdbmclose.lo gdbmcount.lo gdbmdelete.lo \
+	gdbmdump.lo gdbmerrno.lo gdbmexists.lo gdbmexp.lo gdbmfdesc.lo \
+	gdbmfetch.lo gdbmload.lo gdbmopen.lo gdbmimp.lo gdbmreorg.lo \
+	gdbmseq.lo gdbmsetopt.lo gdbmstore.lo gdbmsync.lo avail.lo \
+	base64.lo bucket.lo falloc.lo findkey.lo fullio.lo hash.lo \
+	lock.lo mmap.lo recover.lo update.lo version.lo \
+	$(am__objects_1)
 libgdbm_la_OBJECTS = $(am_libgdbm_la_OBJECTS)
 AM_V_lt = $(am__v_lt_@AM_V@)
 am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
@@ -203,16 +177,6 @@
 libgdbm_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
 	$(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
 	$(libgdbm_la_LDFLAGS) $(LDFLAGS) -o $@
-PROGRAMS = $(bin_PROGRAMS)
-gdbm_dump_SOURCES = gdbm_dump.c
-gdbm_dump_OBJECTS = gdbm_dump.$(OBJEXT)
-gdbm_dump_DEPENDENCIES = ./libgdbmapp.a ./libgdbm.la
-gdbm_load_SOURCES = gdbm_load.c
-gdbm_load_OBJECTS = gdbm_load.$(OBJEXT)
-gdbm_load_DEPENDENCIES = ./libgdbmapp.a ./libgdbm.la
-am_gdbmtool_OBJECTS = gdbmtool.$(OBJEXT)
-gdbmtool_OBJECTS = $(am_gdbmtool_OBJECTS)
-gdbmtool_DEPENDENCIES = ./libgdbmapp.a ./libgdbm.la
 AM_V_P = $(am__v_P_@AM_V@)
 am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
 am__v_P_0 = false
@@ -247,11 +211,8 @@
 am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
 am__v_CCLD_0 = @echo "  CCLD    " $@;
 am__v_CCLD_1 = 
-SOURCES = $(libgdbmapp_a_SOURCES) $(libgdbm_la_SOURCES) gdbm_dump.c \
-	gdbm_load.c $(gdbmtool_SOURCES)
-DIST_SOURCES = $(am__libgdbmapp_a_SOURCES_DIST) \
-	$(am__libgdbm_la_SOURCES_DIST) gdbm_dump.c gdbm_load.c \
-	$(gdbmtool_SOURCES)
+SOURCES = $(libgdbm_la_SOURCES)
+DIST_SOURCES = $(am__libgdbm_la_SOURCES_DIST)
 am__can_run_installinfo = \
   case $$AM_UPDATE_INFO_DIR in \
     n|no|NO) false;; \
@@ -428,21 +389,17 @@
 top_builddir = @top_builddir@
 top_srcdir = @top_srcdir@
 
-# Flags
-AM_CPPFLAGS = -DIN_GDBM -DLOCALEDIR=\"$(localedir)\" $(am__append_3)
-
 # Headers
 nodist_include_HEADERS = gdbm.h
 noinst_HEADERS = \
  gdbmconst.h\
  gdbmdefs.h\
  gettext.h\
- gram.h\
  proto.h\
  systems.h
 
-EXTRA_DIST = gdbm.h.in gdbm.magic gram.y lex.l
-BUILT_SOURCES = gdbm.h gram.h gram.c lex.c
+EXTRA_DIST = gdbm.h.in gdbm.magic
+BUILT_SOURCES = gdbm.h 
 
 # The libraries
 VI_CURRENT = 6
@@ -450,35 +407,18 @@
 VI_AGE = 0
 lib_LTLIBRARIES = libgdbm.la
 libgdbm_la_LIBADD = @LTLIBINTL@
-libgdbm_la_SOURCES = cachetree.c gdbmclose.c gdbmcount.c gdbmdelete.c \
-	gdbmdump.c gdbmerrno.c gdbmexists.c gdbmexp.c gdbmfdesc.c \
-	gdbmfetch.c gdbmload.c gdbmopen.c gdbmimp.c gdbmreorg.c \
-	gdbmseq.c gdbmsetopt.c gdbmstore.c gdbmsync.c avail.c base64.c \
-	bucket.c falloc.c findkey.c fullio.c hash.c lock.c mmap.c \
-	recover.c update.c version.c $(am__append_1)
+libgdbm_la_SOURCES = gdbmclose.c gdbmcount.c gdbmdelete.c gdbmdump.c \
+	gdbmerrno.c gdbmexists.c gdbmexp.c gdbmfdesc.c gdbmfetch.c \
+	gdbmload.c gdbmopen.c gdbmimp.c gdbmreorg.c gdbmseq.c \
+	gdbmsetopt.c gdbmstore.c gdbmsync.c avail.c base64.c bucket.c \
+	falloc.c findkey.c fullio.c hash.c lock.c mmap.c recover.c \
+	update.c version.c $(am__append_1)
 libgdbm_la_LDFLAGS = -version-info $(VI_CURRENT):$(VI_REVISION):$(VI_AGE)
-noinst_LIBRARIES = libgdbmapp.a
-libgdbmapp_a_SOURCES = err.c mem.c gdbmapp.h parseopt.c progname.c \
-	datconv.c gram.c input-argv.c input-file.c input-null.c \
-	input-std.c lex.c gdbmshell.c var.c util.c $(am__append_2)
-gdbmtool_LDADD = \
- ./libgdbmapp.a\
- ./libgdbm.la\
- @READLINE_LIBS@
-
-gdbmtool_SOURCES = \
- gdbmtool.h\
- gdbmtool.c
-
-AM_YFLAGS = -dv $(YFLAGS_DEBUG)
-AM_LFLAGS = $(LFLAGS_DEBUG)
-gdbm_load_LDADD = ./libgdbmapp.a ./libgdbm.la 
-gdbm_dump_LDADD = ./libgdbmapp.a ./libgdbm.la 
 all: $(BUILT_SOURCES)
 	$(MAKE) $(AM_MAKEFLAGS) all-am
 
 .SUFFIXES:
-.SUFFIXES: .c .l .lo .o .obj .y
+.SUFFIXES: .c .lo .o .obj
 $(srcdir)/Makefile.in:  $(srcdir)/Makefile.am  $(am__configure_deps)
 	@for dep in $?; do \
 	  case '$(am__configure_deps)' in \
@@ -511,14 +451,6 @@
 gdbm.h: $(top_builddir)/config.status $(srcdir)/gdbm.h.in
 	cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
 
-clean-noinstLIBRARIES:
-	-test -z "$(noinst_LIBRARIES)" || rm -f $(noinst_LIBRARIES)
-

_service:tar_scm:gdbm-1.22.tar.gz/src/avail.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/avail.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/base64.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/base64.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/bucket.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/bucket.c Changed

@@ -1,7 +1,7 @@
 /* bucket.c - The routines for playing with hash buckets. */
 
 /* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
 
    GDBM is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -18,9 +18,10 @@
 
 #include "autoconf.h"
 #include "gdbmdefs.h"
+#include <stdint.h>
 #include <limits.h>
 
-#define GDBM_MAX_DIR_SIZE INT_MAX
+#define GDBM_MAX_DIR_SIZE INT32_MAX
 #define GDBM_MAX_DIR_HALF (GDBM_MAX_DIR_SIZE / 2)
 
 /* Initializing a new hash buckets sets all bucket entries to -1 hash value. */
@@ -40,18 +41,51 @@
   for (index = 0; index < dbf->header->bucket_elems; index++)
     bucket->h_tableindex.hash_value = -1;
 }
+&#xc;
+/* Bucket cache table functions */
 
-static void
-set_cache_entry (GDBM_FILE dbf, cache_elem *elem)
+/* Hash an off_t word into an index of width NBITS. */
+static size_t
+adrhash (off_t adr, size_t nbits)
 {
-  dbf->cache_entry = elem;
-  dbf->bucket = dbf->cache_entry->ca_bucket;
+  adr ^= adr >> (GDBM_HASH_BITS + 1 - nbits); 
+  return ((265443576910ul * adr) & 0xffffffff) >> (GDBM_HASH_BITS + 1 - nbits);
 }
 
+/*
+ * Return a pointer to the cache table slot for bucket address ADR.
+ * Never returns NULL.
+ */
+static cache_elem **
+cache_tab_lookup_slot (GDBM_FILE dbf, off_t adr)
+{
+  cache_elem **cache = dbf->cache;
+  size_t h = adrhash (adr, dbf->cache_bits);
+
+  if (cacheh)
+    {
+      if (cacheh->ca_adr != adr)
+	{
+	  cache_elem *prev = cacheh, *p = prev->ca_coll;
+	  while (p)
+	    {
+	      if (p->ca_adr == adr)
+		break;
+	      prev = p;
+	      p = prev->ca_coll;
+	    }
+	  return &prev->ca_coll;
+	}
+    }
+  return &cacheh;
+}
 &#xc;
 /* LRU list management */
 
-/* Link ELEM after REF in DBF cache.  If REF is NULL, link at head */
+/*
+ * Link ELEM after REF in DBF cache.  If REF is NULL, link at head and
+ * set DBF->bucket to point to the ca_bucket of ELEM.
+ */
 static void
 lru_link_elem (GDBM_FILE dbf, cache_elem *elem, cache_elem *ref)
 {
@@ -64,6 +98,7 @@
       else
 	dbf->cache_lru = elem;
       dbf->cache_mru = elem;
+      dbf->bucket = dbf->cache_mru->ca_bucket;
     }
   else
     {
@@ -79,7 +114,10 @@
     }
 }
 
-/* Unlink ELEM from the list of cache elements in DBF. */
+/*
+ * Unlink ELEM from the list of cache elements in DBF.
+ * If cache_mru gets updated, update DBF->bucket accordingly.
+ */
 static void
 lru_unlink_elem (GDBM_FILE dbf, cache_elem *elem)
 {
@@ -88,7 +126,10 @@
   if ((x = elem->ca_prev))
     x->ca_next = elem->ca_next;
   else
-    dbf->cache_mru = elem->ca_next;
+    {
+      dbf->cache_mru = elem->ca_next;
+      dbf->bucket = dbf->cache_mru ? dbf->cache_mru->ca_bucket : NULL;
+    }
   if ((x = elem->ca_next))
     x->ca_prev = elem->ca_prev;
   else
@@ -126,11 +167,8 @@
   elem->ca_data.hash_val = -1;
   elem->ca_data.elem_loc = -1;
 
-  elem->ca_prev = elem->ca_next = NULL;
+  elem->ca_prev = elem->ca_next = elem->ca_coll = NULL;
   elem->ca_hits = 0;
-  elem->ca_node = NULL;
-  
-  dbf->cache_num++;
   
   return elem;
 }
@@ -139,11 +177,25 @@
 static void
 cache_elem_free (GDBM_FILE dbf, cache_elem *elem)
 {
-  _gdbm_cache_tree_delete (dbf->cache_tree, elem->ca_node);
+  size_t h = adrhash (elem->ca_adr, dbf->cache_bits);
+  cache_elem **pp;
+  
   lru_unlink_elem (dbf, elem);
+
   elem->ca_next = dbf->cache_avail;
   dbf->cache_avail = elem;
   dbf->cache_num--;
+
+  pp = &dbf->cacheh;
+  while (*pp)
+    {
+      if (*pp == elem)
+	{
+	  *pp = (*pp)->ca_coll;
+	  break;
+	}
+      pp = &(*pp)->ca_coll;
+    }      
 }
 
 /* Free the least recently used cache entry. */
@@ -159,76 +211,159 @@
   cache_elem_free (dbf, last);
   return 0;
 }
-  
+&#xc;
+/*
+ * Round up V to the next highest power of 2 and compute log2 of
+ * it using De Brujin sequences.
+ * See http://supertech.csail.mit.edu/papers/debruijn.pdf
+ */
+static unsigned
+log2i (unsigned v)
+{
+  static const int dbp32 =
+    {
+      0, 1, 28, 2, 29, 14, 24, 3, 30, 22, 20, 15, 25, 17, 4, 8, 
+      31, 27, 13, 23, 21, 19, 16, 7, 26, 12, 18, 6, 11, 5, 10, 9
+    };
+
+  v--;
+  v |= v >> 1;
+  v |= v >> 2;
+  v |= v >> 4;
+  v |= v >> 8;
+  v |= v >> 16;
+  v++;
+  return dbp(uint32_t)(v * 0x077CB531U) >> 27;
+}
+
+static int
+cache_tab_resize (GDBM_FILE dbf, int bits)
+{
+  size_t size = 1 << bits;
+
+  if (!dbf->cache || size != dbf->cache_size)
+    {
+      size_t n = size * sizeof (dbf->cache0);
+      cache_elem **p, *elem;
+      
+      /* Flush existing cache */
+      if (_gdbm_cache_flush (dbf))
+	return -1;
+
+      /* Reallocate it */
+      p = realloc (dbf->cache, n);
+      if (!p)
+	{
+	  GDBM_SET_ERRNO (dbf, GDBM_MALLOC_ERROR, FALSE);
+	  return -1;

_service:tar_scm:gdbm-1.22.tar.gz/src/debug.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/debug.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/falloc.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/falloc.c Changed

@@ -1,7 +1,7 @@
 /* falloc.c - The file space management routines for dbm. */
 
 /* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
 
    GDBM is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -108,7 +108,7 @@
 }
 
 /* Free space of size NUM_BYTES in the file DBF at file address FILE_ADR.  Make
-   it avaliable for reuse through _gdbm_alloc.  This routine changes the
+   it available for reuse through _gdbm_alloc.  This routine changes the
    avail structure. */
 
 int
@@ -515,7 +515,7 @@
 	  av_el = dbf->avail->av_tabledbf->avail->count;
 	  _gdbm_put_av_elem (av_el, dbf->bucket->bucket_avail,
 			     &dbf->bucket->av_count, dbf->coalesce_blocks);
-	  dbf->bucket_changed = TRUE;
+	  _gdbm_current_bucket_changed (dbf);
 	}
       return 0;
     }
@@ -533,7 +533,7 @@
       _gdbm_put_av_elem (av_el, dbf->avail->av_table,
 			 &dbf->avail->count,
 			 dbf->coalesce_blocks);
-      dbf->bucket_changed = TRUE;
+      _gdbm_current_bucket_changed (dbf);
     }
   return 0;
 }

_service:tar_scm:gdbm-1.22.tar.gz/src/findkey.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/findkey.c Changed

@@ -1,7 +1,7 @@
 /* findkey.c - The routine that finds a key entry in the file. */
 
 /* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
 
    GDBM is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -67,8 +67,8 @@
   data_cache_elem *data_ca;
 
   /* Is it already in the cache? */
-  if (dbf->cache_entry->ca_data.elem_loc == elem_loc)
-    return dbf->cache_entry->ca_data.dptr;
+  if (dbf->cache_mru->ca_data.elem_loc == elem_loc)
+    return dbf->cache_mru->ca_data.dptr;
 
   if (!gdbm_bucket_element_valid_p (dbf, elem_loc))
     {
@@ -80,9 +80,9 @@
   key_size = dbf->bucket->h_tableelem_loc.key_size;
   data_size = dbf->bucket->h_tableelem_loc.data_size;
   dsize = key_size + data_size;
-  data_ca = &dbf->cache_entry->ca_data;
+  data_ca = &dbf->cache_mru->ca_data;
 
-  /* Make sure data_ca has sufficient space to accomodate both
+  /* Make sure data_ca has sufficient space to accommodate both
      key and content. */
   if (dsize <= data_ca->dsize)
     {
@@ -179,17 +179,17 @@
     return -1;
   
   /* Is the element the last one found for this bucket? */
-  if (dbf->cache_entry->ca_data.elem_loc != -1 
-      && new_hash_val == dbf->cache_entry->ca_data.hash_val
-      && dbf->cache_entry->ca_data.key_size == key.dsize
-      && dbf->cache_entry->ca_data.dptr != NULL
-      && memcmp (dbf->cache_entry->ca_data.dptr, key.dptr, key.dsize) == 0)
+  if (dbf->cache_mru->ca_data.elem_loc != -1 
+      && new_hash_val == dbf->cache_mru->ca_data.hash_val
+      && dbf->cache_mru->ca_data.key_size == key.dsize
+      && dbf->cache_mru->ca_data.dptr != NULL
+      && memcmp (dbf->cache_mru->ca_data.dptr, key.dptr, key.dsize) == 0)
     {
       GDBM_DEBUG (GDBM_DEBUG_LOOKUP, "%s: found in cache", dbf->name);
       /* This is it. Return the cache pointer. */
       if (ret_dptr)
-	*ret_dptr = dbf->cache_entry->ca_data.dptr + key.dsize;
-      return dbf->cache_entry->ca_data.elem_loc;
+	*ret_dptr = dbf->cache_mru->ca_data.dptr + key.dsize;
+      return dbf->cache_mru->ca_data.elem_loc;
     }
       
   /* It is not the cached value, search for element in the bucket. */

_service:tar_scm:gdbm-1.22.tar.gz/src/fullio.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/fullio.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbm.h.in -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbm.h.in Changed

@@ -1,7 +1,7 @@
 /* gdbm.h  -  The include file for dbm users.  -*- c -*- */
 
 /*  This file is part of GDBM, the GNU data base manager, by Philip A. Nelson.
-    Copyright (C) 1990-2021 Free Software Foundation, Inc.
+    Copyright (C) 1990-2022 Free Software Foundation, Inc.
 
     GDBM is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
@@ -64,7 +64,7 @@
 # define GDBM_INSERT	0	/* Never replace old data with new. */
 # define GDBM_REPLACE	1	/* Always replace old data with new. */
 
-/* Parameters to gdbm_setopt, specifing the type of operation to perform. */
+/* Parameters to gdbm_setopt, specifying the type of operation to perform. */
 # define GDBM_SETCACHESIZE    1  /* Set the cache size. */
 # define GDBM_FASTMODE	      2	 /* Toggle fast mode.  OBSOLETE. */
 # define GDBM_SETSYNCMODE     3  /* Turn on or off sync operations. */
@@ -88,9 +88,16 @@
 # define GDBM_GETMAXMAPSIZE   14 /* Get maximum mapped memory size */
 # define GDBM_GETDBNAME       15 /* Return database file name */
 # define GDBM_GETBLOCKSIZE    16 /* Return block size */
-
+# define GDBM_GETDBFORMAT     17 /* Return the database format */
+# define GDBM_GETDIRDEPTH     18 /* Directory depth: number of initial (most
+				    significant) bits in hash interpreted as
+				    index to the directory. */
+# define GDBM_GETBUCKETSIZE   19 /* Get number of elements per bucket */
+# define GDBM_GETCACHEAUTO    20 /* Get the value of cache auto-adjustment */
+# define GDBM_SETCACHEAUTO    21 /* Set the value of cache auto-adjustment */
+    
 # define GDBM_CACHE_AUTO      0
-  
+
 typedef @GDBM_COUNT_T@ gdbm_count_t;
 
 /* The data and key structure. */

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbm.magic -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbm.magic Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmclose.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmclose.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmconst.h -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmconst.h Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmcount.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmcount.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmdefs.h -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmdefs.h Changed

@@ -1,7 +1,7 @@
 /* gdbmdefs.h - The include file for dbm.  Defines structure and constants. */
 
 /* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
 
    GDBM is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -65,7 +65,7 @@
    stack."  When the active avail table is empty and the "avail stack" is
    not empty, the top of the stack is popped into the active avail table. */
 
-/* The following structure is the element of the avaliable table.  */
+/* The following structure is the element of the available table.  */
 typedef struct
 {
   int   av_size;                /* The size of the available block. */
@@ -179,15 +179,6 @@
 } data_cache_elem;
 
 typedef struct cache_elem cache_elem;
-typedef struct cache_node cache_node;
-
-struct cache_node
-{
-  cache_node *left, *right, *parent; 
-  int color;
-  off_t adr;
-  cache_elem *elem;
-};
 
 struct cache_elem
 {
@@ -195,19 +186,16 @@
   char            ca_changed;  /* Data in the bucket changed. */
   data_cache_elem ca_data;     /* Cached datum */
   cache_elem      *ca_prev,    /* Previous element in LRU list. */
-                  *ca_next;    /* Next elements in LRU list.
+                  *ca_next,    /* Next elements in LRU list.
 				  If the item is in cache_avail list, only
 				  ca_next is used.  It points to the next
 			          available element. */
+                  *ca_coll;    /* Next element in a collision sequence */
   size_t          ca_hits;     /* Number of times this element was requested */
-  cache_node      *ca_node;    /* Points back to the RBT node for this
-				  element. */
   hash_bucket     ca_bucket1;/* Associated  bucket (dbf->header->bucket_size
 				  bytes). */
 };
 
-typedef struct cache_tree cache_tree;
-
 /* This final structure contains all main memory based information for
    a gdbm file.  This allows multiple gdbm files to be opened at the same
    time by one program. */
@@ -243,6 +231,9 @@
   /* Last error was fatal, the database needs recovery */
   unsigned need_recovery :1;
 
+  /* Automatic bucket cache size */
+  unsigned cache_auto :1;
+  
   /* Last GDBM error number */
   gdbm_error last_error;
   /* Last system error number */
@@ -275,19 +266,18 @@
   off_t *dir;
 
   /* The bucket cache. */
-  size_t cache_size;       /* Cache capacity */
+  int cache_bits;          /* Address bits used for computing bucket hash */
+  size_t cache_size;       /* Cache capacity: 2^cache_bits */
   size_t cache_num;        /* Actual number of elements in cache */
-  /* Cache elements form a binary search tree. */
-  cache_tree *cache_tree;  
+  /* Cache hash table. */
+  cache_elem **cache;
+  
   /* Cache elements are linked in a list sorted by relative access time */
   cache_elem *cache_mru;   /* Most recently used element - head of the list */
   cache_elem *cache_lru;   /* Last recently used element - tail of the list */ 
   cache_elem *cache_avail; /* Pool of available elements (linked by prev, next)
 			    */
-  /* Pointer to the current bucket's cache entry. */
-  cache_elem *cache_entry;
-  
-  /* Points to the current hash bucket in the cache. */
+  /* Points to dbf->cache_mru.ca_bucket -- the current hash bucket */
   hash_bucket *bucket;
   
   /* The directory entry used to get the current hash bucket. */
@@ -301,8 +291,6 @@
      end of an update. */
   unsigned header_changed :1;
   unsigned directory_changed :1;
-  unsigned bucket_changed :1;
-  unsigned second_changed :1;
 
   off_t file_size;       /* Cached value of the current disk file size.
 			    If -1, fstat will be used to retrieve it. */

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmdelete.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmdelete.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmdump.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmdump.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmerrno.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmerrno.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmexists.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmexists.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmexp.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmexp.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmfdesc.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmfdesc.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmfetch.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmfetch.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmimp.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmimp.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmload.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmload.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmopen.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmopen.c Changed

@@ -1,7 +1,7 @@
 /* gdbmopen.c - Open the dbm file and initialize data structures for use. */
 
 /* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
 
    GDBM is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -271,10 +271,6 @@
   dbf->bucket = NULL;
   dbf->header = NULL;
 
-  /* Initialize cache */
-  dbf->cache_tree = _gdbm_cache_tree_alloc ();
-  _gdbm_cache_init (dbf, DEFAULT_CACHESIZE);
-
   dbf->file_size = -1;
 
   dbf->memory_mapping = FALSE;
@@ -640,6 +636,17 @@
 
     }
 
+  if (_gdbm_cache_init (dbf, DEFAULT_CACHESIZE))
+    {
+      GDBM_DEBUG (GDBM_DEBUG_ERR|GDBM_DEBUG_OPEN,
+		  "%s: error initializing cache: %s",
+		  dbf->name, gdbm_db_strerror (dbf));
+      if (!(flags & GDBM_CLOERROR))
+	dbf->desc = -1;
+      SAVE_ERRNO (gdbm_close (dbf));
+      return NULL;
+    }
+      
 #if HAVE_MMAP
   if (!(flags & GDBM_NOMMAP))
     {
@@ -666,8 +673,6 @@
   dbf->bucket_dir = 0;
   dbf->header_changed = FALSE;
   dbf->directory_changed = FALSE;
-  dbf->bucket_changed = FALSE;
-  dbf->second_changed = FALSE;
 
   if (flags & GDBM_XVERIFY)
     {
@@ -697,7 +702,7 @@
    not exist, create a new one.  If FLAGS is GDBM_NEWDB, the user want a
    new database created, regardless of whether one existed, and wants read
    and write access to the new database.  Any error detected will cause a 
-   return value of null and an approprate value will be in gdbm_errno.  If
+   return value of null and an appropriate value will be in gdbm_errno.  If
    no errors occur, a pointer to the "gdbm file descriptor" will be
    returned. */

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmreorg.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmreorg.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmseq.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmseq.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmsetopt.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmsetopt.c Changed

@@ -1,7 +1,7 @@
 /* gdbmsetopt.c - set options pertaining to a GDBM descriptor. */
 
 /* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1993-2021 Free Software Foundation, Inc.
+   Copyright (C) 1993-2022 Free Software Foundation, Inc.
 
    GDBM is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -74,6 +74,32 @@
   return 0;
 }
 
+static int
+setopt_gdbm_setcacheauto (GDBM_FILE dbf, void *optval, int optlen)
+{
+  int n;
+
+  if ((n = getbool (optval, optlen)) == -1)
+    {     
+      GDBM_SET_ERRNO (dbf, GDBM_OPT_BADVAL, FALSE);
+      return -1;
+    }
+  dbf->cache_auto = n;
+  return 0;
+}
+
+static int
+setopt_gdbm_getcacheauto (GDBM_FILE dbf, void *optval, int optlen)
+{
+  if (!optval || optlen != sizeof (int))
+    {
+      GDBM_SET_ERRNO (dbf, GDBM_OPT_BADVAL, FALSE);
+      return -1;
+    }
+  *(int*) optval = !!dbf->cache_auto;
+  return 0;
+}
+
 /* Obsolete form of GDBM_SETSYNCMODE. */
 static int
 setopt_gdbm_fastmode (GDBM_FILE dbf, void *optval, int optlen)
@@ -254,14 +280,24 @@
   else
     {
       int flags = dbf->read_write;
+
       if (!dbf->fast_write)
 	flags |= GDBM_SYNC;
+      
       if (!dbf->file_locking)
 	flags |= GDBM_NOLOCK;
+
       if (!dbf->memory_mapping)
 	flags |= GDBM_NOMMAP;
       else if (dbf->mmap_preread)
 	flags |= GDBM_PREREAD;
+
+      if (dbf->cloexec)
+	flags |= GDBM_CLOEXEC;
+      
+      if (dbf->header->header_magic == GDBM_NUMSYNC_MAGIC)
+	flags |= GDBM_NUMSYNC;
+      
       *(int*) optval = flags;
     }
   return 0;
@@ -300,6 +336,54 @@
   GDBM_SET_ERRNO (dbf, GDBM_OPT_BADVAL, FALSE);
   return -1;
 }
+
+static int
+setopt_gdbm_getdbformat (GDBM_FILE dbf, void *optval, int optlen)
+{
+  if (optval && optlen == sizeof (int))
+    {
+      switch (dbf->header->header_magic)
+	{
+	case GDBM_OMAGIC:
+	case GDBM_MAGIC:
+	  *(int*)optval = 0;
+	  break;
+      
+	case GDBM_NUMSYNC_MAGIC:
+	  *(int*)optval = GDBM_NUMSYNC;
+	}
+      return 0;
+    }
+  
+  GDBM_SET_ERRNO (dbf, GDBM_OPT_BADVAL, FALSE);
+  return -1;
+}
+
+static int
+setopt_gdbm_getdirdepth (GDBM_FILE dbf, void *optval, int optlen)
+{
+  if (optval && optlen == sizeof (int))
+    {
+      *(int*) optval = dbf->header->dir_bits;
+      return 0;
+    }
+  
+  GDBM_SET_ERRNO (dbf, GDBM_OPT_BADVAL, FALSE);
+  return -1;
+}
+
+static int
+setopt_gdbm_getbucketsize (GDBM_FILE dbf, void *optval, int optlen)
+{
+  if (optval && optlen == sizeof (int))
+    {
+      *(int*) optval = dbf->header->bucket_elems;
+      return 0;
+    }
+  
+  GDBM_SET_ERRNO (dbf, GDBM_OPT_BADVAL, FALSE);
+  return -1;
+}
 &#xc;
 typedef int (*setopt_handler) (GDBM_FILE, void *, int);
 
@@ -322,6 +406,11 @@
   GDBM_GETFLAGS        = setopt_gdbm_getflags,
   GDBM_GETDBNAME       = setopt_gdbm_getdbname,
   GDBM_GETBLOCKSIZE    = setopt_gdbm_getblocksize,
+  GDBM_GETDBFORMAT     = setopt_gdbm_getdbformat,
+  GDBM_GETDIRDEPTH     = setopt_gdbm_getdirdepth,
+  GDBM_GETBUCKETSIZE   = setopt_gdbm_getbucketsize,
+  GDBM_GETCACHEAUTO    = setopt_gdbm_getcacheauto,
+  GDBM_SETCACHEAUTO    = setopt_gdbm_setcacheauto,
 };
   
 int

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmstore.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmstore.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gdbmsync.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/gdbmsync.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/gettext.h -> _service:tar_scm:gdbm-1.23.tar.gz/src/gettext.h Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/hash.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/hash.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/lock.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/lock.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/mmap.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/mmap.c Changed

@@ -1,5 +1,5 @@
 /* This file is part of GDBM.
-   Copyright (C) 2007-2021 Free Software Foundation, Inc.
+   Copyright (C) 2007-2022 Free Software Foundation, Inc.
 
    GDBM is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -42,7 +42,7 @@
 
 /* Translate current offset in the mapped region into the absolute position */
 # define _GDBM_MMAPPED_POS(dbf) ((dbf)->mapped_off + (dbf)->mapped_pos)
-/* Return true if the absolute offset OFF lies within the currentlty mmapped
+/* Return true if the absolute offset OFF lies within the currently mmapped
    region */
 # define _GDBM_IN_MAPPED_REGION_P(dbf, off) \
   ((off) >= (dbf)->mapped_off \
@@ -127,7 +127,7 @@
    If the file is opened with write permissions, FLAG controls how
    it is expanded.  The value _REMAP_DEFAULT truncates SIZE to the
    actual file size.  The value _REMAP_EXTEND extends the file, if
-   necessary, to accomodate max(SIZE,dbf->header->next_block) bytes.
+   necessary, to accommodate max(SIZE,dbf->header->next_block) bytes.
    Finally, the value _REMAP_END instructs the function to use 
    max(SIZE, file_size) as the upper bound of the mapped region.

_service:tar_scm:gdbm-1.22.tar.gz/src/proto.h -> _service:tar_scm:gdbm-1.23.tar.gz/src/proto.h Changed

@@ -1,7 +1,7 @@
 /* proto.h - The prototypes for the dbm routines. */
 
 /* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
 
    GDBM is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -20,7 +20,6 @@
 /* From bucket.c */
 void _gdbm_new_bucket	(GDBM_FILE, hash_bucket *, int);
 int _gdbm_get_bucket	(GDBM_FILE, int);
-int _gdbm_fetch_data   (GDBM_FILE dbf, off_t off, size_t size, void *buf);
 
 int _gdbm_split_bucket (GDBM_FILE, int);
 int _gdbm_write_bucket (GDBM_FILE, cache_elem *);
@@ -28,6 +27,13 @@
 void _gdbm_cache_free  (GDBM_FILE dbf);
 int _gdbm_cache_flush  (GDBM_FILE dbf);
 
+/* Mark current bucket as changed. */
+static inline void
+_gdbm_current_bucket_changed (GDBM_FILE dbf)
+{
+  dbf->cache_mru->ca_changed = TRUE;
+}
+
 /* Return true if the directory entry at DIR_INDEX can be considered
    valid. This means that DIR_INDEX is in the valid range for addressing
    the dir array, and the offset stored in dirDIR_INDEX points past
@@ -103,10 +109,6 @@
 /* From recover.c */
 int _gdbm_next_bucket_dir (GDBM_FILE dbf, int bucket_dir);
 
-/* cachetree.c */
-cache_tree *_gdbm_cache_tree_alloc (void);
-void _gdbm_cache_tree_destroy (cache_tree *tree);
-void _gdbm_cache_tree_delete (cache_tree *tree, struct cache_node *n);
 
 /* avail.c */
 int gdbm_avail_block_validate (GDBM_FILE dbf, avail_block *avblk, size_t size);
@@ -116,16 +118,6 @@
 			 void *data);
 
 
-/* Return codes for _gdbm_cache_tree_lookup. */
-enum
-  {
-    node_found,   /* Returned element was found in cache. */
-    node_new,     /* Returned element has been created and inserted to cache */
-    node_failure  /* An error occurred. */
-  };
-
-int _gdbm_cache_tree_lookup (cache_tree *tree, off_t adr, cache_node **retval);
-
 /* I/O functions */
 static inline ssize_t
 gdbm_file_read (GDBM_FILE dbf, void *buf, size_t size)

_service:tar_scm:gdbm-1.22.tar.gz/src/recover.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/recover.c Changed

@@ -1,5 +1,5 @@
 /* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 2016-2021 Free Software Foundation, Inc.
+   Copyright (C) 2016-2022 Free Software Foundation, Inc.
 
    GDBM is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -126,6 +126,10 @@
 	}
       rcvr->backup_name = bkname;
     }
+
+  /* Restore cache settings */
+  if (!dbf->cache_auto)
+    _gdbm_cache_init (new_dbf, dbf->cache_size);
   
   /* Move the new file to old name. */
 
@@ -157,18 +161,16 @@
   dbf->avail_size        = new_dbf->avail_size;
   dbf->xheader           = new_dbf->xheader;
 
+  dbf->cache_bits        = new_dbf->cache_bits;  
   dbf->cache_size        = new_dbf->cache_size;  
   dbf->cache_num         = new_dbf->cache_num;   
-  dbf->cache_tree        = new_dbf->cache_tree;   
+  dbf->cache             = new_dbf->cache;   
   dbf->cache_mru         = new_dbf->cache_mru;   
   dbf->cache_lru         = new_dbf->cache_lru;   
   dbf->cache_avail       = new_dbf->cache_avail;
-  dbf->cache_entry       = new_dbf->cache_entry;  
   
   dbf->header_changed    = new_dbf->header_changed;
   dbf->directory_changed = new_dbf->directory_changed;
-  dbf->bucket_changed    = new_dbf->bucket_changed;
-  dbf->second_changed    = new_dbf->second_changed;
 
   dbf->file_size = -1;
   
@@ -184,7 +186,7 @@
    
   /* Make sure the new database is all on disk. */
   gdbm_file_sync (dbf);
-  
+
   /* Force the right stuff for a correct bucket cache. */
   return _gdbm_get_bucket (dbf, 0);
 }

_service:tar_scm:gdbm-1.22.tar.gz/src/systems.h -> _service:tar_scm:gdbm-1.23.tar.gz/src/systems.h Changed

_service:tar_scm:gdbm-1.22.tar.gz/src/update.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/update.c Changed

@@ -1,7 +1,7 @@
 /* update.c - The routines for updating the file to a consistent state. */
 
 /* This file is part of GDBM, the GNU data base manager.
-   Copyright (C) 1990-2021 Free Software Foundation, Inc.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
 
    GDBM is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -63,20 +63,8 @@
   off_t file_pos;	/* Return value for lseek. */
   int rc;
   
-  /* Write the current bucket. */
-  if (dbf->bucket_changed && (dbf->cache_entry != NULL))
-    {
-      if (_gdbm_write_bucket (dbf, dbf->cache_entry))
-	return -1;
-      dbf->bucket_changed = FALSE;
-    }
-
-  /* Write the other changed buckets if there are any. */
-  if (dbf->second_changed)
-    {
-      _gdbm_cache_flush (dbf);
-      dbf->second_changed = FALSE;
-    }
+  /* Write the changed buckets if there are any. */
+  _gdbm_cache_flush (dbf);
   
   /* Write the directory. */
   if (dbf->directory_changed)

_service:tar_scm:gdbm-1.22.tar.gz/src/version.c -> _service:tar_scm:gdbm-1.23.tar.gz/src/version.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/Makefile.am -> _service:tar_scm:gdbm-1.23.tar.gz/tests/Makefile.am Changed

@@ -1,5 +1,5 @@
 # This file is part of GDBM.                                   -*- autoconf -*-
-# Copyright (C) 2011-2021 Free Software Foundation, Inc.
+# Copyright (C) 2011-2022 Free Software Foundation, Inc.
 #
 # GDBM is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -77,7 +77,9 @@
  fetch01.at\
  setopt00.at\
  setopt01.at\
- version.at
+ setopt02.at\
+ version.at\
+ wordwrap.at
 
 TESTSUITE = $(srcdir)/testsuite
 M4=m4
@@ -114,6 +116,7 @@
  fdop\
  g_open_ce\
  g_reorg_ce\
+ gtcacheopt\
  gtconv\
  gtdel\
  gtdump\
@@ -123,9 +126,10 @@
  gtrecover\
  gtver\
  num2word\
+ t_wordwrap\
  $(DBMPROGS)
 
-AM_CPPFLAGS = -I$(top_srcdir)/src -I$(top_builddir)/src $(DBMINCLUDES)
+AM_CPPFLAGS = -I$(top_srcdir)/src -I$(top_builddir)/src -I$(top_srcdir)/tools $(DBMINCLUDES)
 
 noinst_HEADERS=progname.h
 
@@ -136,6 +140,6 @@
 dtfetch_LDADD = ../src/libgdbm.la ../compat/libgdbm_compat.la
 dtdel_LDADD = ../src/libgdbm.la ../compat/libgdbm_compat.la
 d_creat_ce_LDADD = ../src/libgdbm.la ../compat/libgdbm_compat.la
+t_wordwrap_LDADD = ../tools/libgdbmapp.a
 
 SUBDIRS = gdbmtool
-

_service:tar_scm:gdbm-1.22.tar.gz/tests/Makefile.in -> _service:tar_scm:gdbm-1.23.tar.gz/tests/Makefile.in Changed

@@ -15,7 +15,7 @@
 @SET_MAKE@
 
 # This file is part of GDBM.                                   -*- autoconf -*-
-# Copyright (C) 2011-2021 Free Software Foundation, Inc.
+# Copyright (C) 2011-2022 Free Software Foundation, Inc.
 #
 # GDBM is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -105,10 +105,11 @@
 build_triplet = @build@
 host_triplet = @host@
 check_PROGRAMS = closerr$(EXEEXT) fdop$(EXEEXT) g_open_ce$(EXEEXT) \
-	g_reorg_ce$(EXEEXT) gtconv$(EXEEXT) gtdel$(EXEEXT) \
-	gtdump$(EXEEXT) gtfetch$(EXEEXT) gtload$(EXEEXT) \
-	gtopt$(EXEEXT) gtrecover$(EXEEXT) gtver$(EXEEXT) \
-	num2word$(EXEEXT) $(am__EXEEXT_1)
+	g_reorg_ce$(EXEEXT) gtcacheopt$(EXEEXT) gtconv$(EXEEXT) \
+	gtdel$(EXEEXT) gtdump$(EXEEXT) gtfetch$(EXEEXT) \
+	gtload$(EXEEXT) gtopt$(EXEEXT) gtrecover$(EXEEXT) \
+	gtver$(EXEEXT) num2word$(EXEEXT) t_wordwrap$(EXEEXT) \
+	$(am__EXEEXT_1)
 subdir = tests
 ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
 am__aclocal_m4_deps = $(top_srcdir)/m4/gettext.m4 \
@@ -167,6 +168,10 @@
 g_reorg_ce_OBJECTS = g_reorg_ce.$(OBJEXT)
 g_reorg_ce_LDADD = $(LDADD)
 g_reorg_ce_DEPENDENCIES = ../src/libgdbm.la
+gtcacheopt_SOURCES = gtcacheopt.c
+gtcacheopt_OBJECTS = gtcacheopt.$(OBJEXT)
+gtcacheopt_LDADD = $(LDADD)
+gtcacheopt_DEPENDENCIES = ../src/libgdbm.la
 gtconv_SOURCES = gtconv.c
 gtconv_OBJECTS = gtconv.$(OBJEXT)
 gtconv_LDADD = $(LDADD)
@@ -203,6 +208,9 @@
 num2word_OBJECTS = num2word.$(OBJEXT)
 num2word_LDADD = $(LDADD)
 num2word_DEPENDENCIES = ../src/libgdbm.la
+t_wordwrap_SOURCES = t_wordwrap.c
+t_wordwrap_OBJECTS = t_wordwrap.$(OBJEXT)
+t_wordwrap_DEPENDENCIES = ../tools/libgdbmapp.a
 AM_V_P = $(am__v_P_@AM_V@)
 am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
 am__v_P_0 = false
@@ -238,12 +246,13 @@
 am__v_CCLD_0 = @echo "  CCLD    " $@;
 am__v_CCLD_1 = 
 SOURCES = closerr.c d_creat_ce.c dtdel.c dtdump.c dtfetch.c dtload.c \
-	fdop.c g_open_ce.c g_reorg_ce.c gtconv.c gtdel.c gtdump.c \
-	gtfetch.c gtload.c gtopt.c gtrecover.c gtver.c num2word.c
-DIST_SOURCES = closerr.c d_creat_ce.c dtdel.c dtdump.c dtfetch.c \
-	dtload.c fdop.c g_open_ce.c g_reorg_ce.c gtconv.c gtdel.c \
+	fdop.c g_open_ce.c g_reorg_ce.c gtcacheopt.c gtconv.c gtdel.c \
 	gtdump.c gtfetch.c gtload.c gtopt.c gtrecover.c gtver.c \
-	num2word.c
+	num2word.c t_wordwrap.c
+DIST_SOURCES = closerr.c d_creat_ce.c dtdel.c dtdump.c dtfetch.c \
+	dtload.c fdop.c g_open_ce.c g_reorg_ce.c gtcacheopt.c gtconv.c \
+	gtdel.c gtdump.c gtfetch.c gtload.c gtopt.c gtrecover.c \
+	gtver.c num2word.c t_wordwrap.c
 RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \
 	ctags-recursive dvi-recursive html-recursive info-recursive \
 	install-data-recursive install-dvi-recursive \
@@ -502,7 +511,9 @@
  fetch01.at\
  setopt00.at\
  setopt01.at\
- version.at
+ setopt02.at\
+ version.at\
+ wordwrap.at
 
 TESTSUITE = $(srcdir)/testsuite
 M4 = m4
@@ -513,7 +524,7 @@
 #	$(SHELL) $(TESTSUITE) AUTOTEST_PATH=$(exec_prefix)/bin
 @COMPAT_OPT_TRUE@DBMINCLUDES = -I$(top_srcdir)/compat
 @COMPAT_OPT_TRUE@DBMPROGS = dtload dtdump dtfetch dtdel d_creat_ce
-AM_CPPFLAGS = -I$(top_srcdir)/src -I$(top_builddir)/src $(DBMINCLUDES)
+AM_CPPFLAGS = -I$(top_srcdir)/src -I$(top_builddir)/src -I$(top_srcdir)/tools $(DBMINCLUDES)
 noinst_HEADERS = progname.h
 LDADD = ../src/libgdbm.la
 dtload_LDADD = ../src/libgdbm.la ../compat/libgdbm_compat.la
@@ -521,6 +532,7 @@
 dtfetch_LDADD = ../src/libgdbm.la ../compat/libgdbm_compat.la
 dtdel_LDADD = ../src/libgdbm.la ../compat/libgdbm_compat.la
 d_creat_ce_LDADD = ../src/libgdbm.la ../compat/libgdbm_compat.la
+t_wordwrap_LDADD = ../tools/libgdbmapp.a
 SUBDIRS = gdbmtool
 all: all-recursive
 
@@ -603,6 +615,10 @@
 	@rm -f g_reorg_ce$(EXEEXT)
 	$(AM_V_CCLD)$(LINK) $(g_reorg_ce_OBJECTS) $(g_reorg_ce_LDADD) $(LIBS)
 
+gtcacheopt$(EXEEXT): $(gtcacheopt_OBJECTS) $(gtcacheopt_DEPENDENCIES) $(EXTRA_gtcacheopt_DEPENDENCIES) 
+	@rm -f gtcacheopt$(EXEEXT)
+	$(AM_V_CCLD)$(LINK) $(gtcacheopt_OBJECTS) $(gtcacheopt_LDADD) $(LIBS)
+
 gtconv$(EXEEXT): $(gtconv_OBJECTS) $(gtconv_DEPENDENCIES) $(EXTRA_gtconv_DEPENDENCIES) 
 	@rm -f gtconv$(EXEEXT)
 	$(AM_V_CCLD)$(LINK) $(gtconv_OBJECTS) $(gtconv_LDADD) $(LIBS)
@@ -639,6 +655,10 @@
 	@rm -f num2word$(EXEEXT)
 	$(AM_V_CCLD)$(LINK) $(num2word_OBJECTS) $(num2word_LDADD) $(LIBS)
 
+t_wordwrap$(EXEEXT): $(t_wordwrap_OBJECTS) $(t_wordwrap_DEPENDENCIES) $(EXTRA_t_wordwrap_DEPENDENCIES) 
+	@rm -f t_wordwrap$(EXEEXT)
+	$(AM_V_CCLD)$(LINK) $(t_wordwrap_OBJECTS) $(t_wordwrap_LDADD) $(LIBS)
+
 mostlyclean-compile:
 	-rm -f *.$(OBJEXT)
 
@@ -654,6 +674,7 @@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fdop.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/g_open_ce.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/g_reorg_ce.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gtcacheopt.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gtconv.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gtdel.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gtdump.Po@am__quote@
@@ -663,6 +684,7 @@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gtrecover.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gtver.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/num2word.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t_wordwrap.Po@am__quote@
 
 .c.o:
 @am__fastdepCC_TRUE@	$(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<

_service:tar_scm:gdbm-1.22.tar.gz/tests/atlocal.in -> _service:tar_scm:gdbm-1.23.tar.gz/tests/atlocal.in Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/blocksize00.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/blocksize00.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/blocksize01.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/blocksize01.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/blocksize02.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/blocksize02.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/cloexec00.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/cloexec00.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/cloexec01.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/cloexec01.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/cloexec02.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/cloexec02.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/cloexec03.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/cloexec03.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/closerr.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/closerr.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/conv.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/conv.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/create00.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/create00.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/d_creat_ce.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/d_creat_ce.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/dbmcreate00.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/dbmcreate00.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/dbmcvt.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/dbmcvt.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/dbmdel00.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/dbmdel00.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/dbmdel01.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/dbmdel01.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/dbmdel02.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/dbmdel02.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/dbmfetch00.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/dbmfetch00.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/dbmfetch01.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/dbmfetch01.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/dbmfetch02.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/dbmfetch02.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/dbmfetch03.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/dbmfetch03.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/delete00.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/delete00.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/delete01.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/delete01.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/delete02.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/delete02.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/dtdel.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/dtdel.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/dtdump.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/dtdump.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/dtfetch.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/dtfetch.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/dtload.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/dtload.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/fdop.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/fdop.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/fetch00.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/fetch00.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/fetch01.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/fetch01.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/g_open_ce.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/g_open_ce.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/g_reorg_ce.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/g_reorg_ce.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/gdbmtool/config/default.exp -> _service:tar_scm:gdbm-1.23.tar.gz/tests/gdbmtool/config/default.exp Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/gdbmtool00.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/gdbmtool00.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/gdbmtool01.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/gdbmtool01.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/gdbmtool02.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/gdbmtool02.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/gdbmtool03.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/gdbmtool03.at Changed

_service:tar_scm:gdbm-1.23.tar.gz/tests/gtcacheopt.c Added

@@ -0,0 +1,273 @@
+/*
+  NAME
+    gtcacheopt - test GDBM_GETCACHESIZE and GDBM_SETCACHESIZE options.
+
+  SYNOPSIS
+    gtcacheopt -v
+
+  DESCRIPTION
+    Reducing the cache size should retain most recently used elements
+    and ensure correct rehashing.
+
+    Operation:
+
+    1) Create new database.
+    2) Generate at least 10 full buckets,
+    3) Check GDBM_GETCACHESIZE.
+    4) Get cache statistics for the first 8 most recently
+       used cache elements.
+    5) Set cache size to 8.
+    6) Retrieve each of the bucket pointed to by stats obtained in 4.
+    7) Verify that (6) retrieved buckets from cache.
+
+  OPTIONS
+     -v   Verbosely print what's being done.
+
+  EXIT CODE
+     0    success
+     1    failure
+     2    usage error
+     
+  LICENSE
+    This file is part of GDBM test suite.
+    Copyright (C) 2021-2022 Free Software Foundation, Inc.
+
+    GDBM is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2, or (at your option)
+    any later version.
+
+    GDBM is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with GDBM. If not, see <http://www.gnu.org/licenses/>.  
+ */
+#include "autoconf.h"
+#include "gdbmdefs.h"
+#include <stdlib.h>
+#include <stdio.h>
+#include <assert.h>
+#include <unistd.h>
+
+char dbname = "a.db";
+int verbose = 0;
+
+#define NBUCKETS 10
+#define CACHE_SIZE 8
+#define DATASIZE (4*IGNORE_SIZE)
+
+static void
+test_getcachesize (GDBM_FILE dbf, size_t expected_size,
+		   struct gdbm_cache_stat *pstat, size_t *pnstat)
+{
+  size_t size;
+  int cache_auto;
+
+  if (gdbm_setopt (dbf, GDBM_GETCACHESIZE, &size, sizeof (size)))
+    {
+      fprintf (stderr, "GDBM_GETCACHESIZE: %s\n", gdbm_strerror (gdbm_errno));
+      exit (1);
+    }
+
+  if (verbose)
+    printf ("size = %zu\n", size);
+
+  if (expected_size && expected_size != size)
+    {
+      fprintf (stderr, "expected_size != size (%zu != %zu)\n",
+	       expected_size, size);
+      exit (1);
+    }
+  
+  if (gdbm_setopt (dbf, GDBM_GETCACHEAUTO, &cache_auto, sizeof (cache_auto)))
+    {
+      fprintf (stderr, "GDBM_GETCACHESIZE: %s\n", gdbm_strerror (gdbm_errno));
+      exit (1);
+    }
+
+  if (verbose)
+    printf ("cache_auto = %d\n", cache_auto);
+
+  if (expected_size && cache_auto != 0)
+    {
+      fprintf (stderr, "cache_auto != 0\n");
+      exit (1);
+    }
+
+  if (pstat)
+    {
+      gdbm_get_cache_stats (dbf, NULL, NULL, pnstat, pstat, CACHE_SIZE);
+    }
+}
+
+static int
+dir_index (GDBM_FILE dbf, off_t adr)
+{
+  int i;
+
+  for (i = 0; i < dbf->header->dir_size; i++)
+    if (dbf->diri == adr)
+      return i;
+  fprintf (stderr, "%lu: can't find bucket in directory\n", adr);
+  exit (1);
+}
+  
+int
+main (int argc, char **argv)
+{
+  GDBM_FILE dbf;
+  datum key, content;
+  
+  int nkeys;
+
+  char dataDATASIZE;
+
+  int i;
+
+  struct gdbm_cache_stat stat2CACHE_SIZE;
+  size_t nstat2;
+  
+  while ((i = getopt (argc, argv, "v")) != EOF)
+    {
+      switch (i)
+	{
+	case 'v':
+	  verbose++;
+	  break;
+
+	default:
+	  return 2;
+	}
+    }
+
+  /*
+   * 1) Create new database.
+   */
+  if (verbose)
+    printf ("creating database\n");
+  
+  dbf = gdbm_open (dbname, GDBM_MIN_BLOCK_SIZE, GDBM_NEWDB, 0644, NULL);
+  if (!dbf)
+    {
+      fprintf (stderr, "gdbm_open: %s\n", gdbm_strerror (gdbm_errno));
+      return 1;
+    }
+
+  /*
+   * 2) Generate 10 full buckets or key/value pairs are created.
+   */
+  
+  /* Initialize keys. */
+  nkeys = NBUCKETS * dbf->header->bucket_elems;
+
+  /* Initialize content */
+  for (i = 0; i < DATASIZE; i++)
+    datai = i+1;
+  content.dsize = DATASIZE;
+  content.dptr = data;
+
+  /* Populate the database. */
+  if (verbose)
+    printf ("populating database (%d keys)\n", nkeys);
+  key.dsize = sizeof (i);
+  key.dptr = (char*) &i;
+  for (i = 0; i < nkeys; i++)
+    {
+      if (gdbm_store (dbf, key, content, 0) != 0)
+	{
+	  fprintf (stderr, "%d: item not inserted: %s\n",
+		   i, gdbm_db_strerror (dbf));
+	  gdbm_close (dbf);
+	  return 1;
+	}
+    }
+
+  /*
+   * 3) Check if the value retrieved by GDBM_GETCACHESIZE matches the
+   *    expected one and
+   * 4) save cache statistics for the first CACHE_SIZE most recently used
+   *    cache elements.
+   */
+  test_getcachesize (dbf, 0, stat0, &nstat0);
+
+  if (verbose)
+    printf ("setting new cache size\n");
+
+  /*

_service:tar_scm:gdbm-1.22.tar.gz/tests/gtconv.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/gtconv.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/gtdel.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/gtdel.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/gtdump.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/gtdump.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/gtfetch.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/gtfetch.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/gtload.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/gtload.c Changed

@@ -1,5 +1,5 @@
 /* This file is part of GDBM test suite.
-   Copyright (C) 2011-2021 Free Software Foundation, Inc.
+   Copyright (C) 2011-2022 Free Software Foundation, Inc.
 
    GDBM is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -96,6 +96,7 @@
   int recover = 0;
   gdbm_recovery rcvr;
   int rcvr_flags = 0;
+  size_t cache_size = 0;
   
   progname = canonical_progname (argv0);
 #ifdef GDBM_DEBUG_ENABLE
@@ -135,6 +136,8 @@
 	delim = arg7;
       else if (strcmp (arg, "-recover") == 0)
 	recover = 1;
+      else if (strncmp (arg, "-cachesize=", 11) == 0)
+	cache_size = read_size (arg + 11);
       else if (strcmp (arg, "-verbose") == 0)
 	{
 	  verbose = 1;
@@ -213,7 +216,17 @@
 		   gdbm_strerror (gdbm_errno));
 	  exit (1);
 	}
-    }  
+    }
+  if (cache_size)
+    {
+      if (gdbm_setopt (dbf, GDBM_SETCACHESIZE, &cache_size,
+		       sizeof (cache_size)))
+	{
+	  fprintf (stderr, "GDBM_SETCACHESIZE failed: %s\n",
+		   gdbm_strerror (gdbm_errno));
+	  exit (1);
+	}
+    }	  
 
   if (verbose)
     {

_service:tar_scm:gdbm-1.22.tar.gz/tests/gtopt.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/gtopt.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/gtrecover.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/gtrecover.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/gtver.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/gtver.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/num2word.c -> _service:tar_scm:gdbm-1.23.tar.gz/tests/num2word.c Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/package.m4 -> _service:tar_scm:gdbm-1.23.tar.gz/tests/package.m4 Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/progname.h -> _service:tar_scm:gdbm-1.23.tar.gz/tests/progname.h Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/setopt00.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/setopt00.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/setopt01.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/setopt01.at Changed

_service:tar_scm:gdbm-1.23.tar.gz/tests/setopt02.at Added

_service:tar_scm:gdbm-1.23.tar.gz/tests/t_wordwrap.c Added

@@ -0,0 +1,181 @@
+/* This file is part of GDBM test suite.
+   Copyright (C) 2021-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.
+*/
+#include "autoconf.h"
+#include "gdbmapp.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <string.h>
+#include <fcntl.h>
+
+static void
+h_left_margin (WORDWRAP_FILE wf, char *arg)
+{
+  wordwrap_set_left_margin (wf, atoi (arg));
+}
+  
+static void
+h_right_margin (WORDWRAP_FILE wf, char *arg)
+{
+  wordwrap_set_right_margin (wf, atoi (arg));
+}
+
+static void
+h_flush (WORDWRAP_FILE wf, char *arg)
+{
+  wordwrap_flush (wf);
+}
+
+static void
+h_file (WORDWRAP_FILE wf, char *arg)
+{
+  FILE *fp;
+  char buf256;
+  
+  fp = fopen (arg, "r");
+  if (!fp)
+    {
+      perror (arg);
+      exit (1);
+    }
+
+  while (fgets (buf, sizeof buf, fp))
+    {
+      wordwrap_write (wf, buf, strlen (buf));
+    }
+  fclose (fp);
+}
+
+static void
+h_newline (WORDWRAP_FILE wf, char *arg)
+{
+  wordwrap_putc (wf, '\n');
+}
+
+static void
+h_para (WORDWRAP_FILE wf, char *arg)
+{
+  wordwrap_para (wf);
+}
+
+&#xc;
+struct wwt_option
+{
+  char *name;
+  int arg;
+  void (*handler) (WORDWRAP_FILE, char *);
+};
+
+struct wwt_option wwt_options = {
+  { "left", 1, h_left_margin },
+  { "right", 1, h_right_margin },
+  { "flush", 0, h_flush },
+  { "file", 1, h_file },
+  { "newline", 0, h_newline },
+  { "para", 0, h_para },
+  { NULL }
+};
+
+enum
+  {
+    WWT_ARG,
+    WWT_OPT,
+    WWT_ERR
+  };
+
+int
+wwt_getopt (WORDWRAP_FILE wf, char *arg)
+{
+  if (arg0 == '-')
+    {
+      struct wwt_option *opt;
+      size_t len;
+      
+      if (arg1 == '-' && arg2 == 0)
+	return WWT_ARG;
+
+      arg++;
+      len = strcspn (arg, "=");
+
+      for (opt = wwt_options; opt->name; opt++)
+	{
+	  if (strlen (opt->name) == len && memcmp (opt->name, arg, len) == 0)
+	    {
+	      if (opt->arg && arglen)
+		arg += len + 1;
+	      else if (!opt->arg && !arglen)
+		arg = NULL;
+	      else
+		continue;
+	      opt->handler (wf, arg);
+	      return WWT_OPT;
+	    }
+	}
+      return WWT_ERR;
+    }
+  return WWT_ARG;
+}
+
+int
+main (int argc, char **argv)
+{
+  WORDWRAP_FILE wf;
+  int escape = 0;
+
+  setlocale (LC_ALL, "");
+  if ((wf = wordwrap_fdopen (1)) == NULL)
+    {
+      perror ("wordwrap_open");
+      exit (1);
+    }
+
+  while (--argc)
+    {
+      char *arg = *++argv;
+
+      if (escape)
+	{
+	  wordwrap_write (wf, arg, strlen (arg));
+	  if (argc > 1)
+	    wordwrap_write (wf, " ", 1);
+	  escape = 0;
+	  continue;
+	}
+      
+      switch (wwt_getopt (wf, arg))
+	{
+	case WWT_ARG:
+	  if (strcmp (arg, "--") == 0)
+	    escape = 1;
+	  else
+	    {
+	      wordwrap_write (wf, arg, strlen (arg));
+	      if (argc > 1)
+		wordwrap_write (wf, " ", 1);
+	    }
+	  break;
+
+	case WWT_OPT:
+	  break;
+
+	case WWT_ERR:
+	  fprintf (stderr, "unrecognized option: %s\n", arg);
+	}
+    }
+
+  wordwrap_close (wf);
+}

_service:tar_scm:gdbm-1.22.tar.gz/tests/testsuite -> _service:tar_scm:gdbm-1.23.tar.gz/tests/testsuite Changed

@@ -612,15 +612,17 @@
 20;dbmdel02.at:17;delete: all records;dbm delete delete02 dbmdel02;
 21;setopt00.at:17;setopt;setopt setopt00;
 22;setopt01.at:17;setopt: mmap options;setopt setopt01 mmap;
-23;cloexec00.at:17;cloexec: gdbm_open;gdbm gdbm_open cloexec cloexec00;
-24;cloexec01.at:17;cloexec: gdbm_reorganize;gdbm gdbm_reorganize cloexec cloexec01;
-25;cloexec02.at:17;cloexec: dbm_open;ndbm dbm_open cloexec cloexec02;
-26;cloexec03.at:17;cloexec: dbm_open -creat;ndbm dbm_open cloexec cloexec03;
-27;gdbmtool00.at:17;Input from file;gdbmtool;
-28;gdbmtool01.at:17;Input from stdin;gdbmtool;
-29;gdbmtool02.at:17;Input from command line;gdbmtool;
-30;gdbmtool03.at:17;Initialization file;gdbmtool;
-31;conv.at:17;Database format conversion;conv;
+23;setopt02.at:17;GDBM_GETCACHESIZE/GDBM_SETCACHESIZE;setopt setopt02 cachesize;
+24;cloexec00.at:17;cloexec: gdbm_open;gdbm gdbm_open cloexec cloexec00;
+25;cloexec01.at:17;cloexec: gdbm_reorganize;gdbm gdbm_reorganize cloexec cloexec01;
+26;cloexec02.at:17;cloexec: dbm_open;ndbm dbm_open cloexec cloexec02;
+27;cloexec03.at:17;cloexec: dbm_open -creat;ndbm dbm_open cloexec cloexec03;
+28;wordwrap.at:17;wordwrap;;
+29;gdbmtool00.at:17;Input from file;gdbmtool;
+30;gdbmtool01.at:17;Input from stdin;gdbmtool;
+31;gdbmtool02.at:17;Input from command line;gdbmtool;
+32;gdbmtool03.at:17;Initialization file;gdbmtool;
+33;conv.at:17;Database format conversion;conv;
 "
 # List of the all the test groups.
 at_groups_all=`$as_echo "$at_help_all" | sed 's/;.*//'`
@@ -634,7 +636,7 @@
   for at_grp
   do
     eval at_value=\$$at_grp
-    if test $at_value -lt 1 || test $at_value -gt 31; then
+    if test $at_value -lt 1 || test $at_value -gt 33; then
       $as_echo "invalid test group: $at_value" >&2
       exit 1
     fi
@@ -932,7 +934,7 @@
 # List of tests.
 if $at_list_p; then
   cat <<_ATEOF || at_write_fail=1
-gdbm 1.22 test suite test groups:
+gdbm 1.23 test suite test groups:
 
  NUM: FILE-NAME:LINE     TEST-GROUP-NAME
       KEYWORDS
@@ -973,7 +975,7 @@
   exit $at_write_fail
 fi
 if $at_version_p; then
-  $as_echo "$as_me (gdbm 1.22)" &&
+  $as_echo "$as_me (gdbm 1.23)" &&
   cat <<\_ATEOF || at_write_fail=1
 
 Copyright (C) 2012 Free Software Foundation, Inc.
@@ -1002,15 +1004,18 @@
 # Banner 4. testsuite.at:68
 # Category starts at test group 21.
 at_banner_text_4="DB options"
-# Banner 5. testsuite.at:73
-# Category starts at test group 23.
+# Banner 5. testsuite.at:74
+# Category starts at test group 24.
 at_banner_text_5="Cloexec"
-# Banner 6. testsuite.at:80
-# Category starts at test group 27.
-at_banner_text_6="gdbmtool"
-# Banner 7. testsuite.at:86
-# Category starts at test group 31.
-at_banner_text_7="Database formats"
+# Banner 6. testsuite.at:81
+# Category starts at test group 28.
+at_banner_text_6="Wordwrap"
+# Banner 7. testsuite.at:84
+# Category starts at test group 29.
+at_banner_text_7="gdbmtool"
+# Banner 8. testsuite.at:90
+# Category starts at test group 33.
+at_banner_text_8="Database formats"
 
 # Take any -C into account.
 if $at_change_dir ; then
@@ -1171,11 +1176,11 @@
 
 # Banners and logs.
 $as_echo "## --------------------- ##
-## gdbm 1.22 test suite. ##
+## gdbm 1.23 test suite. ##
 ## --------------------- ##"
 {
   $as_echo "## --------------------- ##
-## gdbm 1.22 test suite. ##
+## gdbm 1.23 test suite. ##
 ## --------------------- ##"
   echo
 
@@ -2019,7 +2024,7 @@
   $as_echo "Please send $at_msg and all information you think might help:
 
    To: <bug-gdbm@gnu.org>
-   Subject: gdbm 1.22 $as_me: $at_fail_list${at_fail_list:+ failed${at_xpass_list:+, }}$at_xpass_list${at_xpass_list:+ passed unexpectedly}
+   Subject: gdbm 1.23 $as_me: $at_fail_list${at_fail_list:+ failed${at_xpass_list:+, }}$at_xpass_list${at_xpass_list:+ passed unexpectedly}
 
 You may investigate any problem if you feel able to do so, in which
 case the test suite provides a good starting point.  Its output may
@@ -2050,8 +2055,8 @@
 at_status=$? at_failed=false
 $at_check_filter
 at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; $as_echo "1.22.0
-1.22.0
+echo >>"$at_stdout"; $as_echo "1.23.0
+1.23.0
 " | \
   $at_diff - "$at_stdout" || at_failed=:
 at_fn_check_status 0 $at_status "$at_srcdir/version.at:19"
@@ -3038,14 +3043,41 @@
 read at_status <"$at_status_file"
 #AT_STOP_22
 #AT_START_23
-at_fn_group_banner 23 'cloexec00.at:17' \
-  "cloexec: gdbm_open" "                             " 5
+at_fn_group_banner 23 'setopt02.at:17' \
+  "GDBM_GETCACHESIZE/GDBM_SETCACHESIZE" "            " 4
 at_xfail=no
 (
   $as_echo "23. $at_setup_line: testing $at_desc ..."
   $at_traceon
 
 
+{ set +x
+$as_echo "$at_srcdir/setopt02.at:19: gtcacheopt"
+at_fn_check_prepare_trace "setopt02.at:19"
+( $at_check_trace; gtcacheopt
+) >>"$at_stdout" 2>>"$at_stderr" 5>&-
+at_status=$? at_failed=false
+$at_check_filter
+at_fn_diff_devnull "$at_stderr" || at_failed=:
+at_fn_diff_devnull "$at_stdout" || at_failed=:
+at_fn_check_status 0 $at_status "$at_srcdir/setopt02.at:19"
+$at_failed && at_fn_log_failure
+$at_traceon; }
+
+  set +x
+  $at_times_p && times >"$at_times_file"
+) 5>&1 2>&1 7>&- | eval $at_tee_pipe
+read at_status <"$at_status_file"
+#AT_STOP_23
+#AT_START_24
+at_fn_group_banner 24 'cloexec00.at:17' \
+  "cloexec: gdbm_open" "                             " 5
+at_xfail=no
+(
+  $as_echo "24. $at_setup_line: testing $at_desc ..."
+  $at_traceon
+
+
 
 { set +x
 $as_echo "$at_srcdir/cloexec00.at:20:
@@ -3069,13 +3101,13 @@
   $at_times_p && times >"$at_times_file"
 ) 5>&1 2>&1 7>&- | eval $at_tee_pipe
 read at_status <"$at_status_file"
-#AT_STOP_23
-#AT_START_24
-at_fn_group_banner 24 'cloexec01.at:17' \
+#AT_STOP_24
+#AT_START_25
+at_fn_group_banner 25 'cloexec01.at:17' \
   "cloexec: gdbm_reorganize" "                       " 5
 at_xfail=no
 (
-  $as_echo "24. $at_setup_line: testing $at_desc ..."
+  $as_echo "25. $at_setup_line: testing $at_desc ..."
   $at_traceon
 
 
@@ -3102,13 +3134,13 @@
   $at_times_p && times >"$at_times_file"
 ) 5>&1 2>&1 7>&- | eval $at_tee_pipe
 read at_status <"$at_status_file"
-#AT_STOP_24
-#AT_START_25
-at_fn_group_banner 25 'cloexec02.at:17' \
+#AT_STOP_25
+#AT_START_26
+at_fn_group_banner 26 'cloexec02.at:17' \
   "cloexec: dbm_open" "                              " 5
 at_xfail=no
 (
-  $as_echo "25. $at_setup_line: testing $at_desc ..."
+  $as_echo "26. $at_setup_line: testing $at_desc ..."
   $at_traceon
 
 
@@ -3143,13 +3175,13 @@
   $at_times_p && times >"$at_times_file"
 ) 5>&1 2>&1 7>&- | eval $at_tee_pipe
 read at_status <"$at_status_file"
-#AT_STOP_25

_service:tar_scm:gdbm-1.22.tar.gz/tests/testsuite.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/testsuite.at Changed

_service:tar_scm:gdbm-1.22.tar.gz/tests/version.at -> _service:tar_scm:gdbm-1.23.tar.gz/tests/version.at Changed

_service:tar_scm:gdbm-1.23.tar.gz/tests/wordwrap.at Added

@@ -0,0 +1,129 @@
+# This file is part of GDBM.                                   -*- autoconf -*-
+# Copyright (C) 2021-2022 Free Software Foundation, Inc.
+#
+# GDBM is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# GDBM is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with GDBM. If not, see <http://www.gnu.org/licenses/>. */
+
+AT_SETUP(wordwrap)
+
+AT_CHECK(t_wordwrap -right=10 abcdefghi,
+0,
+abcdefghi
+)
+
+AT_CHECK(t_wordwrap -right=10 abcdefghijklmn,
+0,
+abcdefghi
+jklmn
+)
+
+AT_CHECK(t_wordwrap -right=10 abcd efg hijklmn,
+0,
+abcd efg
+hijklmn
+)
+
+AT_CHECK(t_wordwrap -left=2 -right=10 Donec condimentum orciluctus facilisis interdum,
+0,
+  Donec
+  condime
+  ntum
+  orciluc
+  tus
+  facilis
+  is
+  interdu
+  m
+)
+
+AT_DATA(1.in,
+Cras non est eleifend diam placerat aliquet. Phasellus sem dui, tincidunt eget interdum sed, auctor nec nibh. Donec condimentum orci luctus facilisis interdum. Nam sed rhoncus neque. Aliquam pellentesque ligula massa, et maximus augue commodo et. Sed et mi dolor.
+)
+
+AT_CHECK(t_wordwrap -left=10 -right=30 -file=1.in,
+0,
+          Cras non est
+          eleifend diam
+          placerat aliquet.
+          Phasellus sem dui,
+          tincidunt eget
+          interdum sed,
+          auctor nec nibh.
+          Donec condimentum
+          orci luctus
+          facilisis interdum.
+          Nam sed rhoncus
+          neque. Aliquam
+          pellentesque ligula
+          massa, et maximus
+          augue commodo et.
+          Sed et mi dolor.
+)
+
+AT_DATA(2.in,
+Cras non est eleifend diam placerat aliquet. Phasellus sem dui,
+tincidunt eget interdum sed, auctor nec
+nibh.
+Donec condimentum orci luctus facilisis interdum.
+
+Nam sed rhoncus neque.
+Aliquam pellentesque ligula massa,
+et maximus augue commodo et. Sed et mi dolor.
+)
+
+AT_CHECK(t_wordwrap -left=10 -right=30 -file=2.in,
+0,
+          Cras non est
+          eleifend diam
+          placerat aliquet.
+          Phasellus sem dui,
+          tincidunt eget
+          interdum sed,
+          auctor nec
+          nibh.
+          Donec condimentum
+          orci luctus
+          facilisis interdum.
+          
+          Nam sed rhoncus
+          neque.
+          Aliquam
+          pellentesque ligula
+          massa,
+          et maximus augue
+          commodo et. Sed et
+          mi dolor.
+)
+
+AT_CHECK(t_wordwrap -left=10 -right=64 \
+ -- '-a, --aenean' -left=30 'aenean quis posuere lacus a suscipit erat, donec sit amet pretium ligula, non ex et nisi placerat suscipit.' \
+ -left=10 \
+ -- -b \
+ -left=30 pulvinar tempor erat \
+ -left=10 \
+ -- '--porttitor, --ullamcore, --diam-velit-consecretur' \
+ -left=30 \
+ lorem ipsum uis aute irure dolor in reprehenderit in voluptate velit esse,
+0,
+          -a, --aenean        aenean quis posuere lacus a
+                              suscipit erat, donec sit amet
+                              pretium ligula, non ex et nisi
+                              placerat suscipit. 
+          -b                  pulvinar tempor erat 
+          --porttitor, --ullamcore, --diam-velit-consecretur 
+                              lorem ipsum uis aute irure dolor
+                              in reprehenderit in voluptate
+                              velit esse
+)
+
+AT_CLEANUP
\ No newline at end of file

_service:tar_scm:gdbm-1.23.tar.gz/tools Added

_service:tar_scm:gdbm-1.23.tar.gz/tools/Makefile.am Added

@@ -0,0 +1,80 @@
+# This file is part of GDBM.                                   -*- Makefile -*-
+# Copyright (C) 2007-2022 Free Software Foundation, Inc.
+#
+# GDBM is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3, or (at your option)
+# any later version.
+#
+# GDBM is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with GDBM. If not, see <http://www.gnu.org/licenses/>. 
+
+# Flags
+AM_CPPFLAGS=\
+ -DLOCALEDIR=\"$(localedir)\"\
+ -I$(top_srcdir)/src\
+ -I$(top_builddir)/src\
+ -I$(top_srcdir)/tools
+
+noinst_LIBRARIES = libgdbmapp.a
+
+libgdbmapp_a_SOURCES =\
+ err.c\
+ mem.c\
+ gdbmapp.h\
+ parseopt.c\
+ progname.c\
+ datconv.c\
+ gram.c\
+ input-argv.c\
+ input-file.c\
+ input-null.c\
+ input-std.c\
+ lex.c\
+ gdbmshell.c\
+ var.c\
+ util.c\
+ wordwrap.c
+
+if GDBM_COND_READLINE
+  libgdbmapp_a_SOURCES += input-rl.c
+endif
+
+# Programs
+bin_PROGRAMS = gdbmtool gdbm_load gdbm_dump
+
+EXTRA_DIST = gram.y lex.l
+BUILT_SOURCES = gram.h gram.c lex.c
+noinst_HEADERS =  gram.h
+
+gram.c gram.h: gram.y
+lex.c: lex.l
+
+gdbmtool_LDADD  = \
+ ./libgdbmapp.a\
+ ../src/libgdbm.la\
+ @READLINE_LIBS@
+
+gdbmtool_SOURCES = \
+ gdbmtool.h\
+ gdbmtool.c
+
+AM_YFLAGS = -dv $(YFLAGS_DEBUG)
+AM_LFLAGS = $(LFLAGS_DEBUG)
+
+.l.c:
+	$(AM_V_GEN)$(FLEX) -o $@ $(AM_LFLAGS) $<
+.y.c:
+	$(AM_V_GEN)$(BISON) -o $@ $(AM_YFLAGS) $<
+
+if COND_GDBMTOOL_DEBUG
+  AM_CPPFLAGS += -DGDBMTOOL_DEBUG=1
+endif
+
+gdbm_load_LDADD  = ./libgdbmapp.a ../src/libgdbm.la 
+gdbm_dump_LDADD  = ./libgdbmapp.a ../src/libgdbm.la

_service:tar_scm:gdbm-1.23.tar.gz/tools/Makefile.in Added

@@ -0,0 +1,801 @@
+# Makefile.in generated by automake 1.15 from Makefile.am.
+# @configure_input@
+
+# Copyright (C) 1994-2014 Free Software Foundation, Inc.
+
+# This Makefile.in is free software; the Free Software Foundation
+# gives unlimited permission to copy and/or distribute it,
+# with or without modifications, as long as this notice is preserved.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
+# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.
+
+@SET_MAKE@
+
+# This file is part of GDBM.                                   -*- Makefile -*-
+# Copyright (C) 2007-2022 Free Software Foundation, Inc.
+#
+# GDBM is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3, or (at your option)
+# any later version.
+#
+# GDBM is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with GDBM. If not, see <http://www.gnu.org/licenses/>. 
+
+
+
+VPATH = @srcdir@
+am__is_gnu_make = { \
+  if test -z '$(MAKELEVEL)'; then \
+    false; \
+  elif test -n '$(MAKE_HOST)'; then \
+    true; \
+  elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
+    true; \
+  else \
+    false; \
+  fi; \
+}
+am__make_running_with_option = \
+  case $${target_option-} in \
+      ?) ;; \
+      *) echo "am__make_running_with_option: internal error: invalid" \
+              "target option '$${target_option-}' specified" >&2; \
+         exit 1;; \
+  esac; \
+  has_opt=no; \
+  sane_makeflags=$$MAKEFLAGS; \
+  if $(am__is_gnu_make); then \
+    sane_makeflags=$$MFLAGS; \
+  else \
+    case $$MAKEFLAGS in \
+      *\\\ \	*) \
+        bs=\\; \
+        sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
+          | sed "s/$$bs$$bs$$bs $$bs	*//g"`;; \
+    esac; \
+  fi; \
+  skip_next=no; \
+  strip_trailopt () \
+  { \
+    flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
+  }; \
+  for flg in $$sane_makeflags; do \
+    test $$skip_next = yes && { skip_next=no; continue; }; \
+    case $$flg in \
+      *=*|--*) continue;; \
+        -*I) strip_trailopt 'I'; skip_next=yes;; \
+      -*I?*) strip_trailopt 'I';; \
+        -*O) strip_trailopt 'O'; skip_next=yes;; \
+      -*O?*) strip_trailopt 'O';; \
+        -*l) strip_trailopt 'l'; skip_next=yes;; \
+      -*l?*) strip_trailopt 'l';; \
+      -dEDm) skip_next=yes;; \
+      -JT) skip_next=yes;; \
+    esac; \
+    case $$flg in \
+      *$$target_option*) has_opt=yes; break;; \
+    esac; \
+  done; \
+  test $$has_opt = yes
+am__make_dryrun = (target_option=n; $(am__make_running_with_option))
+am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
+pkgdatadir = $(datadir)/@PACKAGE@
+pkgincludedir = $(includedir)/@PACKAGE@
+pkglibdir = $(libdir)/@PACKAGE@
+pkglibexecdir = $(libexecdir)/@PACKAGE@
+am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
+install_sh_DATA = $(install_sh) -c -m 644
+install_sh_PROGRAM = $(install_sh) -c
+install_sh_SCRIPT = $(install_sh) -c
+INSTALL_HEADER = $(INSTALL_DATA)
+transform = $(program_transform_name)
+NORMAL_INSTALL = :
+PRE_INSTALL = :
+POST_INSTALL = :
+NORMAL_UNINSTALL = :
+PRE_UNINSTALL = :
+POST_UNINSTALL = :
+build_triplet = @build@
+host_triplet = @host@
+@GDBM_COND_READLINE_TRUE@am__append_1 = input-rl.c
+bin_PROGRAMS = gdbmtool$(EXEEXT) gdbm_load$(EXEEXT) gdbm_dump$(EXEEXT)
+@COND_GDBMTOOL_DEBUG_TRUE@am__append_2 = -DGDBMTOOL_DEBUG=1
+subdir = tools
+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
+am__aclocal_m4_deps = $(top_srcdir)/m4/gettext.m4 \
+	$(top_srcdir)/m4/iconv.m4 $(top_srcdir)/m4/intlmacosx.m4 \
+	$(top_srcdir)/m4/lib-ld.m4 $(top_srcdir)/m4/lib-link.m4 \
+	$(top_srcdir)/m4/lib-prefix.m4 $(top_srcdir)/m4/libtool.m4 \
+	$(top_srcdir)/m4/longlong.m4 $(top_srcdir)/m4/ltoptions.m4 \
+	$(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
+	$(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/nls.m4 \
+	$(top_srcdir)/m4/po.m4 $(top_srcdir)/m4/progtest.m4 \
+	$(top_srcdir)/configure.ac
+am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
+	$(ACLOCAL_M4)
+DIST_COMMON = $(srcdir)/Makefile.am $(noinst_HEADERS) \
+	$(am__DIST_COMMON)
+mkinstalldirs = $(install_sh) -d
+CONFIG_HEADER = $(top_builddir)/autoconf.h
+CONFIG_CLEAN_FILES =
+CONFIG_CLEAN_VPATH_FILES =
+LIBRARIES = $(noinst_LIBRARIES)
+ARFLAGS = cru
+AM_V_AR = $(am__v_AR_@AM_V@)
+am__v_AR_ = $(am__v_AR_@AM_DEFAULT_V@)
+am__v_AR_0 = @echo "  AR      " $@;
+am__v_AR_1 = 
+libgdbmapp_a_AR = $(AR) $(ARFLAGS)
+libgdbmapp_a_LIBADD =
+am__libgdbmapp_a_SOURCES_DIST = err.c mem.c gdbmapp.h parseopt.c \
+	progname.c datconv.c gram.c input-argv.c input-file.c \
+	input-null.c input-std.c lex.c gdbmshell.c var.c util.c \
+	wordwrap.c input-rl.c
+@GDBM_COND_READLINE_TRUE@am__objects_1 = input-rl.$(OBJEXT)
+am_libgdbmapp_a_OBJECTS = err.$(OBJEXT) mem.$(OBJEXT) \
+	parseopt.$(OBJEXT) progname.$(OBJEXT) datconv.$(OBJEXT) \
+	gram.$(OBJEXT) input-argv.$(OBJEXT) input-file.$(OBJEXT) \
+	input-null.$(OBJEXT) input-std.$(OBJEXT) lex.$(OBJEXT) \
+	gdbmshell.$(OBJEXT) var.$(OBJEXT) util.$(OBJEXT) \
+	wordwrap.$(OBJEXT) $(am__objects_1)
+libgdbmapp_a_OBJECTS = $(am_libgdbmapp_a_OBJECTS)
+am__installdirs = "$(DESTDIR)$(bindir)"
+PROGRAMS = $(bin_PROGRAMS)
+gdbm_dump_SOURCES = gdbm_dump.c
+gdbm_dump_OBJECTS = gdbm_dump.$(OBJEXT)
+gdbm_dump_DEPENDENCIES = ./libgdbmapp.a ../src/libgdbm.la
+AM_V_lt = $(am__v_lt_@AM_V@)
+am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
+am__v_lt_0 = --silent
+am__v_lt_1 = 
+gdbm_load_SOURCES = gdbm_load.c
+gdbm_load_OBJECTS = gdbm_load.$(OBJEXT)
+gdbm_load_DEPENDENCIES = ./libgdbmapp.a ../src/libgdbm.la
+am_gdbmtool_OBJECTS = gdbmtool.$(OBJEXT)
+gdbmtool_OBJECTS = $(am_gdbmtool_OBJECTS)
+gdbmtool_DEPENDENCIES = ./libgdbmapp.a ../src/libgdbm.la
+AM_V_P = $(am__v_P_@AM_V@)
+am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
+am__v_P_0 = false
+am__v_P_1 = :
+AM_V_GEN = $(am__v_GEN_@AM_V@)
+am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
+am__v_GEN_0 = @echo "  GEN     " $@;
+am__v_GEN_1 = 
+AM_V_at = $(am__v_at_@AM_V@)
+am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
+am__v_at_0 = @
+am__v_at_1 = 
+DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)
+depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp
+am__depfiles_maybe = depfiles
+am__mv = mv -f
+COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \
+	$(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
+LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
+	$(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \
+	$(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \
+	$(AM_CFLAGS) $(CFLAGS)
+AM_V_CC = $(am__v_CC_@AM_V@)
+am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@)
+am__v_CC_0 = @echo "  CC      " $@;
+am__v_CC_1 = 
+CCLD = $(CC)
+LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
+	$(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
+	$(AM_LDFLAGS) $(LDFLAGS) -o $@
+AM_V_CCLD = $(am__v_CCLD_@AM_V@)
+am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
+am__v_CCLD_0 = @echo "  CCLD    " $@;
+am__v_CCLD_1 =

_service:tar_scm:gdbm-1.23.tar.gz/tools/datconv.c Added

@@ -0,0 +1,566 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
+
+#include "gdbmtool.h"
+#include <wctype.h>
+
+#define DEFFMT(name, type, fmt)			\
+static int					\
+name (FILE *fp, void *ptr, int size)            \
+{                                               \
+  fprintf (fp, fmt, *(type*) ptr);              \
+  return size;                                  \
+}
+
+DEFFMT (f_char, char, "%c")
+DEFFMT (f_short, short, "%hd")
+DEFFMT (f_ushort, unsigned short, "%hu")
+DEFFMT (f_int, int, "%d")
+DEFFMT (f_uint, unsigned, "%u")
+DEFFMT (f_long, long, "%ld")
+DEFFMT (f_ulong, unsigned long, "%lu")
+DEFFMT (f_llong, long long, "%lld")
+DEFFMT (f_ullong, unsigned long long, "%llu")
+DEFFMT (f_float, float, "%f")
+DEFFMT (f_double, double, "%e")
+
+static int
+f_stringz (FILE *fp, void *ptr, int size)
+{
+  wchar_t wc;
+  char *str = ptr;
+  int i;
+
+  mbtowc (NULL, NULL, 0);
+  for (i = 0; i < size; )
+    {
+      int n = mbtowc (&wc, &stri, MB_CUR_MAX);
+      if (n == 0)
+	break;
+      if (n == -1 || !iswprint (wc))
+	{
+	  int c;
+	  if ((c = escape (stri)))
+	    fprintf (fp, "\\%c", c);
+	  else
+	    fprintf (fp, "\\%03o", *(unsigned char*)(str+i));
+	  i++;
+	}
+      else
+	{
+	  fwrite (str + i, n, 1, fp);
+	  i += n;
+	}
+    }
+  return i + 1;
+}
+
+static int
+f_string (FILE *fp, void *ptr, int size)
+{
+  wchar_t wc;
+  char *str = ptr;
+  int i;
+  
+  mbtowc (NULL, NULL, 0);
+  for (i = 0; i < size; )
+    {
+      int n = mbtowc (&wc, &stri, MB_CUR_MAX);
+      if (n == 0)
+	{
+	  fprintf (fp, "\\%03o", *(unsigned char*)str);
+	  i++;
+	}
+      else if (n == -1 || !iswprint (wc))
+	{
+	  int c;
+	  if ((c = escape (stri)))
+	    fprintf (fp, "\\%c", c);
+	  else
+	    fprintf (fp, "\\%03o", *(unsigned char*)(str+i));
+	  i++;
+	}
+      else
+	{
+	  fwrite (str + i, n, 1, fp);
+	  i += n;
+	}
+    }
+  return i;
+}
+&#xc;
+int
+s_char (struct xdatum *xd, char *str)
+{
+  xd_store (xd, str, 1);
+  return 0;
+}
+
+#define DEFNSCAN(name, type, temptype, strto)	\
+int						\
+name (struct xdatum *xd, char *str)             \
+{                                               \
+  temptype n;                                   \
+  type t;                                       \
+  char *p;                                      \
+                                                \
+  errno = 0;                                    \
+  n = strto (str, &p, 0);                       \
+  if (*p)                                       \
+    return 1;                                   \
+  if (errno == ERANGE || (t = n) != n)          \
+    return 1;                                   \
+  xd_store (xd, &t, sizeof (t));                \
+  return 0;                                     \
+}
+
+DEFNSCAN(s_short, short, long, strtol);
+DEFNSCAN(s_ushort, unsigned short, unsigned long, strtoul);
+DEFNSCAN(s_int, int, long, strtol)
+DEFNSCAN(s_uint, unsigned, unsigned long, strtol)
+DEFNSCAN(s_long, long, long, strtoul)
+DEFNSCAN(s_ulong, unsigned long, unsigned long, strtoul)
+DEFNSCAN(s_llong, long long, long long, strtoll)
+DEFNSCAN(s_ullong, unsigned long long, unsigned long long, strtoull)
+
+int
+s_double (struct xdatum *xd, char *str)
+{
+  double d;
+  char *p;
+  
+  errno = 0;
+  d = strtod (str, &p);
+  if (errno || *p)
+    return 1;
+  xd_store (xd, &d, sizeof (d));
+  return 0;
+}
+
+int
+s_float (struct xdatum *xd, char *str)
+{
+  float d;
+  char *p;
+  
+  errno = 0;
+  d = strtod (str, &p);
+  if (errno || *p)
+    return 1;
+  xd_store (xd, &d, sizeof (d));
+  return 0;
+}
+
+int
+s_stringz (struct xdatum *xd, char *str)
+{
+  xd_store (xd, str, strlen (str) + 1);
+  return 0;
+}
+
+int
+s_string (struct xdatum *xd, char *str)
+{
+  xd_store (xd, str, strlen (str));
+  return 0;
+}
+
+static struct datadef datatab = {
+  { "char",     sizeof(char),      f_char, s_char },
+  { "short",    sizeof(short),     f_short, s_short },
+  { "ushort",   sizeof(unsigned short), f_ushort, s_ushort },
+  { "int",      sizeof(int),       f_int, s_int  },
+  { "unsigned", sizeof(unsigned),  f_uint, s_uint },
+  { "uint",     sizeof(unsigned),  f_uint, s_uint },
+  { "long",     sizeof(long),      f_long, s_long },
+  { "ulong",    sizeof(unsigned long),     f_ulong, s_ulong },
+  { "llong",    sizeof(long long), f_llong, s_llong },
+  { "ullong",   sizeof(unsigned long long), f_ullong, s_ullong },
+  { "float",    sizeof(float),     f_float, s_float }, 
+  { "double",   sizeof(double),    f_double, s_double },
+  { "stringz",  0, f_stringz, s_stringz },
+  { "string",   0, f_string, s_string },
+  { NULL }
+};
+
+struct datadef *

_service:tar_scm:gdbm-1.23.tar.gz/tools/err.c Added

@@ -0,0 +1,69 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 2011-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
+
+# include "autoconf.h"
+# include "gdbm.h"
+# include "gdbmapp.h"
+# include <stdio.h>
+# include <errno.h>
+# include <string.h>
+
+static void
+prerror (const char *fmt, va_list ap, const char *diag, const char *sysdiag)
+{
+  fprintf (stderr, "%s: ", progname);
+  vfprintf (stderr, fmt, ap);
+  if (diag)
+    fprintf (stderr, ": %s", diag);
+  if (sysdiag)
+    fprintf (stderr, ": %s", sysdiag);
+  fputc ('\n', stderr);
+}
+
+void
+verror (const char *fmt, va_list ap)
+{
+  prerror (fmt, ap, NULL, NULL);
+}
+
+void
+error (const char *fmt, ...)
+{
+  va_list ap;
+  va_start (ap, fmt);
+  verror (fmt, ap);
+  va_end (ap);
+}
+
+void
+sys_perror (int code, const char *fmt, ...)
+{
+  va_list ap;
+  va_start (ap, fmt);
+  prerror (fmt, ap, strerror (code), NULL);
+  va_end (ap);
+}
+
+void
+gdbm_perror (const char *fmt, ...)
+{
+  va_list ap;
+  va_start (ap, fmt);
+  prerror (fmt, ap, gdbm_strerror (gdbm_errno),
+	   gdbm_syserrgdbm_errno ? strerror (errno) : NULL);
+  va_end (ap);
+}
+

_service:tar_scm:gdbm-1.23.tar.gz/tools/gdbm_dump.c Added

@@ -0,0 +1,132 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 2011-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
+
+# include "autoconf.h"
+# include "gdbm.h"
+# include "gdbmapp.h"
+# include "gdbmdefs.h"
+
+char *parseopt_program_doc = N_("dump a GDBM database to a file");
+char *parseopt_program_args = N_("DB_FILE FILE");
+struct gdbm_option optab = {
+  { 'H', "format", "binary|ascii|0|1", N_("select dump format") },
+  { 0 }
+};
+
+int format = GDBM_DUMP_FMT_ASCII;
+
+int
+main (int argc, char **argv)
+{
+  GDBM_FILE dbf;
+  int rc, opt;
+  char *dbname, *filename;
+  FILE *fp;
+
+#ifdef HAVE_SETLOCALE
+  setlocale (LC_ALL, "");
+#endif
+  bindtextdomain (PACKAGE, LOCALEDIR);
+  textdomain (PACKAGE);
+
+  set_progname (argv0);
+
+  for (opt = parseopt_first (argc, argv, optab);
+       opt != EOF;
+       opt = parseopt_next ())
+    {
+    switch (opt)
+      {
+      case 'H':
+	if (strcmp (optarg, "binary") == 0)
+	  format = GDBM_DUMP_FMT_BINARY;
+	else if (strcmp (optarg, "ascii") == 0)
+	  format = GDBM_DUMP_FMT_ASCII;
+	else
+	  {
+	    format = atoi (optarg);
+	    switch (format)
+	      {
+	      case GDBM_DUMP_FMT_BINARY:
+	      case GDBM_DUMP_FMT_ASCII:
+		break;
+	      default:
+		error (_("unknown dump format"));
+		exit (EXIT_USAGE);
+	      }
+	  }
+	break;
+	
+      default:
+	error (_("unknown option"));
+	exit (EXIT_USAGE);
+      }
+    }
+
+  argc -= optind;
+  argv += optind;
+
+  if (argc == 0)
+    {
+      parseopt_print_help ();
+      exit (EXIT_OK);
+    }
+
+  if (argc > 2)
+    {
+      error (_("too many arguments; try `%s -h' for more info"), progname);
+      exit (EXIT_USAGE);
+    }
+  
+  dbname = argv0;
+  if (argc == 2)
+    filename = argv1;
+  else
+    filename = NULL;
+
+  if (!filename || strcmp (filename, "-") == 0)
+    {
+      filename = "<stdout>";
+      fp = stdout;
+    }
+  else
+    {
+      fp = fopen (filename, "w");
+      if (!fp)
+	{
+	  sys_perror (errno, _("cannot open %s"), filename);
+	  exit (EXIT_FATAL);
+	}
+    }
+
+  dbf = gdbm_open (dbname, 0, GDBM_READER, 0600, NULL);
+  if (!dbf)
+    {
+      gdbm_perror (_("gdbm_open failed"));
+      exit (EXIT_FATAL);
+    }
+
+  rc = gdbm_dump_to_file (dbf, fp, format);
+  if (rc)
+    {
+      gdbm_perror (_("dump error"), filename);
+    }
+  
+  gdbm_close (dbf);
+
+  exit (rc == GDBM_NO_ERROR ? EXIT_OK : EXIT_FATAL);
+}
+

_service:tar_scm:gdbm-1.23.tar.gz/tools/gdbm_load.c Added

@@ -0,0 +1,317 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 2011-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
+
+# include "autoconf.h"
+# include "gdbm.h"
+# include "gdbmapp.h"
+# include "gdbmdefs.h"
+# include <pwd.h>
+# include <grp.h>
+
+int replace = 0;
+int meta_mask = 0;
+int no_meta_option;
+
+int mode;
+uid_t owner_uid;
+gid_t owner_gid;
+
+char *parseopt_program_doc = N_("load a GDBM database from a file");
+char *parseopt_program_args = N_("FILE DB_FILE");
+struct gdbm_option optab = {
+  { 'r', "replace", NULL, N_("replace records in the existing database") },
+  { 'm', "mode", N_("MODE"), N_("set file mode") },
+  { 'u', "user", N_("NAME|UID:NAME|GID"), N_("set file owner") },
+  { 'n', "no-meta", NULL, N_("do not attempt to set file meta-data") },
+  { 'M', "mmap", NULL, N_("use memory mapping") },
+  { 'c', "cache-size", N_("NUM"), N_("set the cache size") },
+  { 'b', "block-size", N_("NUM"), N_("set the block size") },
+  { 0 }
+};
+
+static int
+set_meta_info (GDBM_FILE dbf)
+{
+  if (meta_mask)
+    {
+      int fd = gdbm_fdesc (dbf);
+
+      if (meta_mask & GDBM_META_MASK_OWNER)
+	{
+	  if (fchown (fd, owner_uid, owner_gid))
+	    {
+	      GDBM_SET_ERRNO (dbf, GDBM_ERR_FILE_OWNER, FALSE);
+	      return 1;
+	    }
+	}
+      if ((meta_mask & GDBM_META_MASK_MODE) && fchmod (fd, mode))
+	{
+	  GDBM_SET_ERRNO (dbf, GDBM_ERR_FILE_OWNER, FALSE);
+	  return 1;
+	}
+    }
+  return 0;
+}
+
+static int
+get_int (const char *arg)
+{
+  char *p;
+  long n;
+ 
+  errno = 0;
+  n = strtol (arg, &p, 0);
+  if (*p)
+    {
+      error (_("invalid number: %s"), arg);
+      exit (EXIT_USAGE);
+    }
+  if (errno)
+    {
+      error (_("invalid number: %s: %s"), arg, strerror (errno));
+      exit (EXIT_USAGE);
+    }
+  return n;
+}
+
+int
+main (int argc, char **argv)
+{
+  GDBM_FILE dbf = NULL;
+  int rc, opt;
+  char *dbname, *filename;
+  FILE *fp;
+  unsigned long err_line, n;
+  char *end;
+  int oflags = GDBM_NEWDB|GDBM_NOMMAP;
+  int cache_size = 0;
+  int block_size = 0;
+  
+#ifdef HAVE_SETLOCALE
+  setlocale (LC_ALL, "");
+#endif
+  bindtextdomain (PACKAGE, LOCALEDIR);
+  textdomain (PACKAGE);
+
+  set_progname (argv0);
+
+  for (opt = parseopt_first (argc, argv, optab);
+       opt != EOF;
+       opt = parseopt_next ())
+    {
+    switch (opt)
+      {
+      case 'b':
+	block_size = get_int (optarg);
+	break;
+	
+      case 'c':
+	cache_size = get_int (optarg);
+	break;
+
+      case 'm':
+	{
+	  errno = 0;
+	  n = strtoul (optarg, &end, 8);
+	  if (*end == 0 && errno == 0)
+	    {
+	      mode = n & 0777;
+	      meta_mask |= GDBM_META_MASK_MODE;
+	    }
+	  else
+	    {
+	      error ("%s", _("invalid octal number"));
+	      exit (EXIT_USAGE);
+	    }
+	}
+	break;
+
+      case 'u':
+	{
+	  size_t len;
+	  struct passwd *pw;
+	  
+	  len = strcspn (optarg, ".:");
+	  if (optarglen)
+	    optarglen++ = 0;
+	  pw = getpwnam (optarg);
+	  if (pw)
+	    owner_uid = pw->pw_uid;
+	  else
+	    {
+	      errno = 0;
+	      n = strtoul (optarg, &end, 10);
+	      if (*end == 0 && errno == 0)
+		owner_uid = n;
+	      else
+		{
+		  error (_("invalid user name: %s"), optarg);
+		  exit (EXIT_USAGE);
+		}
+	    }
+	  
+	  if (optarglen)
+	    {
+	      char *grname = optarg + len;
+	      struct group *gr = getgrnam (grname);
+	      if (gr)
+		owner_gid = gr->gr_gid;
+	      else
+		{
+		  errno = 0;
+		  n = strtoul (grname, &end, 10);
+		  if (*end == 0 && errno == 0)
+		    owner_gid = n;
+		  else
+		    {
+		      error (_("invalid group name: %s"), grname);
+		      exit (EXIT_USAGE);
+		    }
+		}
+	    }
+	  else
+	    {
+	      if (!pw)
+		{
+		  pw = getpwuid (owner_uid);
+		  if (!pw)
+		    {
+		      error (_("no such UID: %lu"), (unsigned long)owner_uid);
+		      exit (EXIT_USAGE);
+		    }
+		}
+	      owner_gid = pw->pw_gid;
+	    }
+	  meta_mask |= GDBM_META_MASK_OWNER;
+	}

_service:tar_scm:gdbm-1.23.tar.gz/tools/gdbmapp.h Added

@@ -0,0 +1,85 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 2011-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
+
+#include <stdlib.h>
+#include <stdarg.h>
+#include "gettext.h"
+#ifdef HAVE_LOCALE_H
+# include <locale.h>
+#endif
+
+extern const char *progname;
+
+void set_progname (const char *arg);
+void gdbm_perror (const char *fmt, ...);
+void sys_perror (int code, const char *fmt, ...);
+void error (const char *fmt, ...);
+void verror (const char *fmt, va_list ap);
+
+void *emalloc (size_t size);
+void *erealloc (void *ptr, size_t size);
+void *ecalloc (size_t nmemb, size_t size);
+void *ezalloc (size_t size);
+char *estrdup (const char *str);
+void *e2nrealloc (void *p, size_t *pn, size_t s);
+
+#define PARSEOPT_HIDDEN 0x01
+#define PARSEOPT_ALIAS  0x02
+
+struct gdbm_option
+{
+  int opt_short;
+  char *opt_long;
+  char *opt_arg;
+  char *opt_descr;
+  int opt_flags;
+};
+
+int parseopt_first (int pc, char **pv, struct gdbm_option *options);
+int parseopt_next (void);
+void parseopt_print_help (void);
+
+extern char *parseopt_program_name;
+extern char *parseopt_program_doc;
+extern char *parseopt_program_args;
+
+/* Application exit codes */
+#define EXIT_OK      0
+#define EXIT_FATAL   1
+#define EXIT_MILD    2
+#define EXIT_USAGE   3 
+&#xc;
+/* Word-wrapping stream. */
+typedef struct wordwrap_file *WORDWRAP_FILE;
+
+WORDWRAP_FILE wordwrap_fdopen (int fd);
+int wordwrap_close (WORDWRAP_FILE wf);
+int wordwrap_flush (WORDWRAP_FILE wf);
+int wordwrap_error (WORDWRAP_FILE wf);
+int wordwrap_set_left_margin (WORDWRAP_FILE wf, unsigned left);
+int wordwrap_next_left_margin (WORDWRAP_FILE wf, unsigned left);
+int wordwrap_set_right_margin (WORDWRAP_FILE wf, unsigned right);
+int wordwrap_write (WORDWRAP_FILE wf, char const *str, size_t len);
+int wordwrap_puts (WORDWRAP_FILE wf, char const *str);
+int wordwrap_putc (WORDWRAP_FILE wf, int c);
+int wordwrap_para (WORDWRAP_FILE wf);
+int wordwrap_vprintf (WORDWRAP_FILE wf, char const *fmt, va_list ap);
+int wordwrap_printf (WORDWRAP_FILE wf, char const *fmt, ...);
+int wordwrap_at_bol (WORDWRAP_FILE wf);
+int wordwrap_at_eol (WORDWRAP_FILE wf);
+void wordwrap_word_start (WORDWRAP_FILE wf);
+void wordwrap_word_end (WORDWRAP_FILE wf);
+

_service:tar_scm:gdbm-1.23.tar.gz/tools/gdbmshell.c Added

@@ -0,0 +1,3181 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
+
+#include "gdbmtool.h"
+#include "gdbm.h"
+#include "gram.h"
+
+#include <errno.h>
+#include <ctype.h>
+#include <signal.h>
+#include <pwd.h>
+#include <sys/ioctl.h>
+#include <sys/wait.h>
+#include <sys/time.h>
+#include <sys/resource.h>
+#include <termios.h>
+#include <stdarg.h>
+#ifdef HAVE_LOCALE_H
+# include <locale.h>
+#endif
+
+static GDBM_FILE gdbm_file = NULL;   /* Database to operate upon */
+static datum key_data;               /* Current key */
+static datum return_data;            /* Current data */
+
+/* Return values for handlers: */
+enum
+  {
+    GDBMSHELL_OK,       /* Success */
+    GDBMSHELL_GDBM_ERR, /* GDBM error */
+    GDBMSHELL_SYNTAX,   /* Syntax error (invalid argument etc) */
+    GDBMSHELL_ERR,      /* Other error */
+    GDBMSHELL_CANCEL    /* Operation canceled */
+  };
+
+static void
+datum_free (datum *dp)
+{
+  free (dp->dptr);
+  dp->dptr = NULL;
+}
+&#xc;
+
+int
+gdbmshell_setopt (char *name, int opt, int val)
+{
+  if (gdbm_file)
+    {
+      if (gdbm_setopt (gdbm_file, opt, &val, sizeof (val)) == -1)
+	{
+	  dberror (_("%s failed"), name);
+	  return 1;
+	}
+    }
+  return 0;
+}
+
+static void
+closedb (void)
+{
+  if (gdbm_file)
+    {
+      gdbm_close (gdbm_file);
+      gdbm_file = NULL;
+      variable_unset ("fd");
+    }
+
+  datum_free (&key_data);
+  datum_free (&return_data);
+}
+
+static int
+opendb (char *dbname, int fd)
+{
+  int cache_size = 0;
+  int block_size = 0;
+  int flags;
+  int filemode;
+  GDBM_FILE db;
+  int n;
+  
+  switch (variable_get ("cachesize", VART_INT, (void**) &cache_size))
+    {
+    case VAR_OK:
+    case VAR_ERR_NOTSET:
+      break;
+    default:
+      abort ();
+    }
+  switch (variable_get ("blocksize", VART_INT, (void**) &block_size))
+    {
+    case VAR_OK:
+    case VAR_ERR_NOTSET:
+      break;
+    default:
+      abort ();
+    }
+  
+  if (variable_get ("open", VART_INT, (void**) &flags) != VAR_OK)
+    abort ();
+  
+  if (flags == GDBM_NEWDB)
+    {
+      if (interactive () && variable_is_true ("confirm") &&
+	  access (dbname, F_OK) == 0)
+	{
+	  if (!getyn (_("database %s already exists; overwrite"), dbname))
+	    return GDBMSHELL_CANCEL;
+	}
+    }
+
+  if (variable_get ("format", VART_INT, (void**) &n) != VAR_OK)
+    abort ();
+
+  flags |= n;
+  
+  if (!variable_is_true ("lock"))
+    flags |= GDBM_NOLOCK;
+  if (!variable_is_true ("mmap"))
+    flags |= GDBM_NOMMAP;
+  if (variable_is_true ("sync"))
+    flags |= GDBM_SYNC;
+  
+  if (variable_get ("filemode", VART_INT, (void**) &filemode))
+    abort ();
+
+  if (fd > 0)
+    db = gdbm_fd_open (fd, dbname, block_size, flags | GDBM_CLOERROR, NULL);
+  else
+    {
+      char *name = tildexpand (dbname);
+      db = gdbm_open (name, block_size, flags, filemode, NULL);
+      free (name);
+    }
+
+  if (db == NULL)
+    {
+      dberror (_("cannot open database %s"), dbname);
+      return GDBMSHELL_GDBM_ERR;
+    }
+
+  if (cache_size &&
+      gdbm_setopt (db, GDBM_CACHESIZE, &cache_size, sizeof (int)) == -1)
+    dberror (_("%s failed"), "GDBM_CACHESIZE");
+
+  if (variable_is_true ("coalesce"))
+    {
+      gdbmshell_setopt ("GDBM_SETCOALESCEBLKS", GDBM_SETCOALESCEBLKS, 1);
+    }
+  if (variable_is_true ("centfree"))
+    {
+      gdbmshell_setopt ("GDBM_SETCENTFREE", GDBM_SETCENTFREE, 1);
+    }
+  
+  if (gdbm_file)
+    gdbm_close (gdbm_file);
+  
+  gdbm_file = db;
+  return GDBMSHELL_OK;
+}
+
+static int
+checkdb (void)
+{
+  if (!gdbm_file)
+    {
+      char *filename;
+      int fd = -1;
+      variable_get ("filename", VART_STRING, (void**) &filename);
+      variable_get ("fd", VART_INT, (void**) &fd);
+      return opendb (filename, fd);
+    }
+  return GDBMSHELL_OK;
+}
+
+static int
+checkdb_begin (struct command_param *param GDBM_ARG_UNUSED,
+	       struct command_environ *cenv GDBM_ARG_UNUSED,
+	       size_t *exp_count GDBM_ARG_UNUSED)
+{
+  return checkdb ();
+}
+&#xc;
+static size_t
+bucket_print_lines (hash_bucket *bucket)
+{

_service:tar_scm:gdbm-1.23.tar.gz/tools/gdbmtool.c Added

@@ -0,0 +1,293 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
+
+#include "gdbmtool.h"
+#include <errno.h>
+#include <ctype.h>
+#include <signal.h>
+#include <pwd.h>
+#include <sys/ioctl.h>
+#include <sys/wait.h>
+#include <termios.h>
+#include <stdarg.h>
+#ifdef HAVE_LOCALE_H
+# include <locale.h>
+#endif
+
+static void
+source_rcfile (void)
+{
+  instream_t istr = NULL;
+  
+  if (access (GDBMTOOLRC, R_OK) == 0)
+    {
+      istr = instream_file_create (GDBMTOOLRC);
+    }
+  else
+    {
+      char *fname;
+      char *p = getenv ("HOME");
+      if (!p)
+	{
+	  struct passwd *pw = getpwuid (getuid ());
+	  if (!pw)
+	    {
+	      terror (_("cannot find home directory"));
+	      return;
+	    }
+	  p = pw->pw_dir;
+	}
+      fname = mkfilename (p, GDBMTOOLRC, NULL);
+      if (access (fname, R_OK) == 0)
+	{
+	  istr = instream_file_create (GDBMTOOLRC);
+	}
+      free (fname);
+    }
+
+  if (istr)
+    {
+      if (input_context_push (istr))
+	exit (EXIT_FATAL);
+      yyparse ();
+    }
+}
+
+#if GDBM_DEBUG_ENABLE
+void
+debug_printer (char const *fmt, ...)
+{
+  va_list ap;
+
+  va_start (ap, fmt);
+  vfprintf (stderr, fmt, ap);
+  va_end (ap);
+}
+#endif
+
+&#xc;
+char *parseopt_program_doc = N_("examine and/or modify a GDBM database");
+char *parseopt_program_args = N_("DBFILE COMMAND ARG ...");
+
+enum {
+  OPT_LEX_TRACE = 256,
+  OPT_GRAM_TRACE
+};
+
+struct gdbm_option optab = {
+  { 'b', "block-size", N_("SIZE"), N_("set block size") },
+  { 'c', "cache-size", N_("SIZE"), N_("set cache size") },
+  { 'f', "file",       N_("FILE"), N_("read commands from FILE") },
+  { 'g', NULL, "FILE", NULL, PARSEOPT_HIDDEN },
+  { 'l', "no-lock",    NULL,       N_("disable file locking") },
+  { 'm', "no-mmap",    NULL,       N_("do not use mmap") },
+  { 'n', "newdb",      NULL,       N_("create database") },
+  { 'N', "norc",       NULL,       N_("do not read .gdbmtoolrc file") },
+  { 'r', "read-only",  NULL,       N_("open database in read-only mode") },
+  { 's', "synchronize", NULL,      N_("synchronize to disk after each write") },
+  { 'q', "quiet",      NULL,       N_("don't print initial banner") },
+  { 'd', "db-descriptor",
+    /* TRANSLATORS: File Descriptor. */
+    N_("FD"),
+    N_("open database at the given file descriptor") },
+  { 'x', "extended",   NULL,       N_("extended format (numsync)") },
+  {   0, "numsync",    NULL,       NULL, PARSEOPT_ALIAS },
+  { 't', "trace",      NULL,       N_("enable trace mode") },
+  { 'T', "timing",     NULL,       N_("print timing after each command") },
+#if GDBMTOOL_DEBUG    
+  { OPT_LEX_TRACE, "lex-trace", NULL, N_("enable lexical analyzer traces") },
+  { OPT_GRAM_TRACE, "gram-trace", NULL, N_("enable grammar traces") },
+#endif  
+  { 0 }
+};
+
+#ifdef WITH_READLINE
+# define instream_default_create   instream_readline_create
+#else
+# define instream_default_create   instream_stdin_create
+#endif
+
+struct gdbmtool_closure
+{
+  int argc;
+  char **argv;
+};
+
+static int
+gdbmtool_init (void *data, instream_t *pinstr)
+{
+  struct gdbmtool_closure *clos = data;
+  int argc = clos->argc;
+  char **argv = clos->argv;
+  int opt;
+  int bv;
+  int norc = 0;
+  char *source = NULL;
+  instream_t input = NULL;
+  
+  for (opt = parseopt_first (argc, argv, optab);
+       opt != EOF;
+       opt = parseopt_next ())
+    switch (opt)
+      {
+      case 'd':
+	if (variable_set ("fd", VART_STRING, optarg) != VAR_OK)
+	  {
+	    terror (_("invalid file descriptor: %s"), optarg);
+	    exit (EXIT_USAGE);
+	  }
+	break;
+	
+      case 'f':
+	source = optarg;
+	break;
+	
+      case 'l':
+	bv = 0;
+	variable_set ("lock", VART_BOOL, &bv);
+	break;
+
+      case 'm':
+	bv = 0;
+	variable_set ("mmap", VART_BOOL, &bv);
+	break;
+
+      case 's':
+	bv = 1;
+	variable_set ("sync", VART_BOOL, &bv);
+	break;
+	
+      case 'r':
+	variable_set ("open", VART_STRING, "readonly");
+	break;
+	
+      case 'n':
+	variable_set ("open", VART_STRING, "newdb");
+	break;
+
+      case 'N':
+	norc = 1;
+	break;
+	
+      case 'c':
+	variable_set ("cachesize", VART_STRING, optarg);
+	break;
+	
+      case 'b':
+	variable_set ("blocksize", VART_STRING, optarg);
+	break;
+
+      case 'g':
+	variable_set ("filename", VART_STRING, optarg);
+	break;
+
+      case 't':
+	bv = 1;
+	variable_set ("trace", VART_BOOL, &bv);

_service:tar_scm:gdbm-1.23.tar.gz/tools/gdbmtool.h Added

@@ -0,0 +1,383 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
+
+#include "autoconf.h"
+#include "gdbmdefs.h"
+#include "gdbm.h"
+#include "gdbmapp.h"
+#include <stdlib.h>
+#include <stdio.h>
+#include <stdarg.h>
+#include <string.h>
+#include <ctype.h>
+#include <limits.h>
+
+#ifndef GDBM_ARG_UNUSED
+# define GDBM_ARG_UNUSED __attribute__ ((__unused__))
+#endif
+
+#ifndef GDBM_PRINTFLIKE
+# define GDBM_PRINTFLIKE(fmt,narg) \
+  __attribute__ ((__format__ (__printf__, fmt, narg)))
+#endif
+
+/* Position in input file */
+struct point
+{
+  char *file;             /* file name */
+  unsigned line;          /* line number */  
+  unsigned col;           /* column number */ 
+};
+
+/* Location in input file */
+struct locus
+{
+  struct point beg, end;
+};
+
+typedef struct locus gdbm_yyltype_t;
+ 
+#define YYLTYPE gdbm_yyltype_t 
+
+#define YYLLOC_DEFAULT(Current, Rhs, N)			      \
+  do							      \
+    {							      \
+      if (N)						      \
+	{						      \
+	  (Current).beg = YYRHSLOC(Rhs, 1).beg;		      \
+	  (Current).end = YYRHSLOC(Rhs, N).end;		      \
+	}						      \
+      else						      \
+	{						      \
+	  (Current).beg = YYRHSLOC(Rhs, 0).end;		      \
+	  (Current).end = (Current).beg;		      \
+	}						      \
+    }							      \
+  while (0)
+
+#define YY_LOCATION_PRINT(File, Loc) locus_print (File, &(Loc))
+
+void locus_print (FILE *fp, struct locus const *loc);
+void vlerror (struct locus *loc, const char *fmt, va_list ap);
+void lerror (struct locus *loc, const char *fmt, ...)
+	   GDBM_PRINTFLIKE (2, 3);
+
+void terror (const char *fmt, ...)
+	   GDBM_PRINTFLIKE (1, 2);
+void dberror (char const *fmt, ...)
+	   GDBM_PRINTFLIKE (1, 2);
+
+char *make_prompt (void);
+
+#define GDBMTOOLRC ".gdbmtoolrc"
+#define GDBMTOOL_DEFFILE "junk.gdbm"
+&#xc;
+typedef struct instream *instream_t;
+
+struct instream
+{
+  char *in_name;           /* Input stream name */
+  int in_inter;            /* True if this is an interactive stream */
+  ssize_t (*in_read) (instream_t, char*, size_t);
+                           /* Read from stream */
+  void (*in_close) (instream_t);
+                           /* Close the stream */
+  int (*in_eq) (instream_t, instream_t);
+                           /* Return true if both streams refer to the
+			      same input */
+  int (*in_history_size) (instream_t);
+                           /* Return size of the history buffer (entries) */
+  const char *(*in_history_get) (instream_t, int);
+                           /* Get Nth line from the history buffer */
+};
+
+static inline char const *
+instream_name (instream_t in)
+{
+  return in->in_name;
+}
+
+static inline ssize_t
+instream_read (instream_t in, char *buf, size_t size)
+{
+  return in->in_read (in, buf, size);
+}
+
+static inline void
+instream_close (instream_t in)
+{
+  in->in_close (in);
+}
+
+static inline int
+instream_interactive (instream_t in)
+{
+  return in->in_inter;
+}
+
+static inline int
+instream_eq (instream_t a, instream_t b)
+{
+  return a->in_eq (a, b);
+}
+
+static inline int
+instream_history_size (instream_t in)
+{
+  return in->in_history_size ? in->in_history_size (in) : -1;
+}
+
+static inline const char *
+instream_history_get (instream_t in, int n)
+{
+  return in->in_history_get ? in->in_history_get (in, n) : NULL;
+}
+
+instream_t instream_stdin_create (void);
+instream_t instream_argv_create (int argc, char **argv);
+instream_t instream_file_create (char const *name);
+instream_t instream_null_create (void);
+#ifdef WITH_READLINE
+instream_t instream_readline_create (void);
+#endif
+
+int interactive (void);
+int input_context_push (instream_t);
+int input_context_pop (void);
+void input_context_drain (void);
+int input_history_size (void);
+const char *input_history_get (int n);
+const char *input_stream_name (void);
+
+&#xc;
+void print_prompt_at_bol (void);
+char *command_generator (const char *text, int state);
+
+&#xc;
+struct slist
+{
+  struct slist *next;
+  char *str;
+};
+
+struct slist *slist_new (char const *s);
+struct slist *slist_new_s (char *s);
+struct slist *slist_new_l (char const *s, size_t l);
+void slist_free (struct slist *);
+void slist_insert (struct slist **where, struct slist *what);
+&#xc;
+#define KV_STRING 0
+#define KV_LIST   1
+
+struct kvpair
+{
+  struct kvpair *next;
+  int type;
+  struct locus loc;
+  char *key;
+  union
+  {
+    char *s;
+    struct slist *l;
+  } val;
+};
+
+struct kvpair *kvpair_string (struct locus *loc, char *val);
+struct kvpair *kvpair_list (struct locus *loc, struct slist *s);

_service:tar_scm:gdbm-1.23.tar.gz/tools/gram.c Added

@@ -0,0 +1,2169 @@
+/* A Bison parser, made by GNU Bison 3.0.4.  */
+
+/* Bison implementation for Yacc-like parsers in C
+
+   Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
+
+   This program is free software: you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation, either version 3 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
+
+/* As a special exception, you may create a larger work that contains
+   part or all of the Bison parser skeleton and distribute that work
+   under terms of your choice, so long as that work isn't itself a
+   parser generator using the skeleton or a modified version thereof
+   as a parser skeleton.  Alternatively, if you modify or redistribute
+   the parser skeleton itself, you may (at your option) remove this
+   special exception, which will cause the skeleton and the resulting
+   Bison output files to be licensed under the GNU General Public
+   License without this special exception.
+
+   This special exception was added by the Free Software Foundation in
+   version 2.2 of Bison.  */
+
+/* C LALR(1) parser skeleton written by Richard Stallman, by
+   simplifying the original so-called "semantic" parser.  */
+
+/* All symbols defined below should begin with yy or YY, to avoid
+   infringing on user name space.  This should be done even for local
+   variables, as they might otherwise be expanded by user macros.
+   There are some unavoidable exceptions within include files to
+   define necessary library symbols; they are noted "INFRINGES ON
+   USER NAME SPACE" below.  */
+
+/* Identify Bison output.  */
+#define YYBISON 1
+
+/* Bison version.  */
+#define YYBISON_VERSION "3.0.4"
+
+/* Skeleton name.  */
+#define YYSKELETON_NAME "yacc.c"
+
+/* Pure parsers.  */
+#define YYPURE 0
+
+/* Push parsers.  */
+#define YYPUSH 0
+
+/* Pull parsers.  */
+#define YYPULL 1
+
+
+
+
+/* Copy the first part of user declarations.  */
+#line 1 "gram.y" /* yacc.c:339  */
+
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
+
+#include <autoconf.h>
+#include "gdbmtool.h"
+
+struct dsegm *dsdefDS_MAX;
+  
+
+#line 90 "gram.c" /* yacc.c:339  */
+
+# ifndef YY_NULLPTR
+#  if defined __cplusplus && 201103L <= __cplusplus
+#   define YY_NULLPTR nullptr
+#  else
+#   define YY_NULLPTR 0
+#  endif
+# endif
+
+/* Enabling verbose error messages.  */
+#ifdef YYERROR_VERBOSE
+# undef YYERROR_VERBOSE
+# define YYERROR_VERBOSE 1
+#else
+# define YYERROR_VERBOSE 1
+#endif
+
+/* In a future release of Bison, this section will be replaced
+   by #include "gram.h".  */
+#ifndef YY_YY_GRAM_H_INCLUDED
+# define YY_YY_GRAM_H_INCLUDED
+/* Debug traces.  */
+#ifndef YYDEBUG
+# define YYDEBUG 1
+#endif
+#if YYDEBUG
+extern int yydebug;
+#endif
+
+/* Token type.  */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+  enum yytokentype
+  {
+    T_TYPE = 258,
+    T_OFF = 259,
+    T_PAD = 260,
+    T_DEF = 261,
+    T_SET = 262,
+    T_UNSET = 263,
+    T_BOGUS = 264,
+    T_CMD = 265,
+    T_SHELL = 266,
+    T_NUM = 267,
+    T_IDENT = 268,
+    T_WORD = 269
+  };
+#endif
+
+/* Value type.  */
+#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
+
+union YYSTYPE
+{
+#line 51 "gram.y" /* yacc.c:355  */
+
+  char *string;
+  struct kvpair *kvpair;
+  struct { struct kvpair *head, *tail; } kvlist;
+  struct { struct slist *head, *tail; } slist;
+  struct gdbmarg *arg;
+  struct gdbmarglist arglist;
+  int num;
+  struct datadef *type;
+  struct dsegm *dsegm;
+  struct { struct dsegm *head, *tail; } dsegmlist;
+  struct command *cmd;
+
+#line 159 "gram.c" /* yacc.c:355  */
+};
+
+typedef union YYSTYPE YYSTYPE;
+# define YYSTYPE_IS_TRIVIAL 1
+# define YYSTYPE_IS_DECLARED 1
+#endif
+
+/* Location type.  */
+#if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED
+typedef struct YYLTYPE YYLTYPE;
+struct YYLTYPE
+{
+  int first_line;
+  int first_column;
+  int last_line;
+  int last_column;
+};
+# define YYLTYPE_IS_DECLARED 1
+# define YYLTYPE_IS_TRIVIAL 1
+#endif
+
+
+extern YYSTYPE yylval;
+extern YYLTYPE yylloc;
+int yyparse (void);
+
+#endif /* !YY_YY_GRAM_H_INCLUDED  */
+
+/* Copy the second part of user declarations.  */
+
+#line 190 "gram.c" /* yacc.c:358  */
+
+#ifdef short
+# undef short
+#endif
+
+#ifdef YYTYPE_UINT8
+typedef YYTYPE_UINT8 yytype_uint8;
+#else
+typedef unsigned char yytype_uint8;
+#endif

_service:tar_scm:gdbm-1.23.tar.gz/tools/gram.h Added

@@ -0,0 +1,109 @@
+/* A Bison parser, made by GNU Bison 3.0.4.  */
+
+/* Bison interface for Yacc-like parsers in C
+
+   Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
+
+   This program is free software: you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation, either version 3 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
+
+/* As a special exception, you may create a larger work that contains
+   part or all of the Bison parser skeleton and distribute that work
+   under terms of your choice, so long as that work isn't itself a
+   parser generator using the skeleton or a modified version thereof
+   as a parser skeleton.  Alternatively, if you modify or redistribute
+   the parser skeleton itself, you may (at your option) remove this
+   special exception, which will cause the skeleton and the resulting
+   Bison output files to be licensed under the GNU General Public
+   License without this special exception.
+
+   This special exception was added by the Free Software Foundation in
+   version 2.2 of Bison.  */
+
+#ifndef YY_YY_GRAM_H_INCLUDED
+# define YY_YY_GRAM_H_INCLUDED
+/* Debug traces.  */
+#ifndef YYDEBUG
+# define YYDEBUG 1
+#endif
+#if YYDEBUG
+extern int yydebug;
+#endif
+
+/* Token type.  */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+  enum yytokentype
+  {
+    T_TYPE = 258,
+    T_OFF = 259,
+    T_PAD = 260,
+    T_DEF = 261,
+    T_SET = 262,
+    T_UNSET = 263,
+    T_BOGUS = 264,
+    T_CMD = 265,
+    T_SHELL = 266,
+    T_NUM = 267,
+    T_IDENT = 268,
+    T_WORD = 269
+  };
+#endif
+
+/* Value type.  */
+#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
+
+union YYSTYPE
+{
+#line 51 "gram.y" /* yacc.c:1909  */
+
+  char *string;
+  struct kvpair *kvpair;
+  struct { struct kvpair *head, *tail; } kvlist;
+  struct { struct slist *head, *tail; } slist;
+  struct gdbmarg *arg;
+  struct gdbmarglist arglist;
+  int num;
+  struct datadef *type;
+  struct dsegm *dsegm;
+  struct { struct dsegm *head, *tail; } dsegmlist;
+  struct command *cmd;
+
+#line 83 "gram.h" /* yacc.c:1909  */
+};
+
+typedef union YYSTYPE YYSTYPE;
+# define YYSTYPE_IS_TRIVIAL 1
+# define YYSTYPE_IS_DECLARED 1
+#endif
+
+/* Location type.  */
+#if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED
+typedef struct YYLTYPE YYLTYPE;
+struct YYLTYPE
+{
+  int first_line;
+  int first_column;
+  int last_line;
+  int last_column;
+};
+# define YYLTYPE_IS_DECLARED 1
+# define YYLTYPE_IS_TRIVIAL 1
+#endif
+
+
+extern YYSTYPE yylval;
+extern YYLTYPE yylloc;
+int yyparse (void);
+
+#endif /* !YY_YY_GRAM_H_INCLUDED  */

_service:tar_scm:gdbm-1.23.tar.gz/tools/gram.y Added

@@ -0,0 +1,443 @@
+%{
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
+
+#include <autoconf.h>
+#include "gdbmtool.h"
+
+struct dsegm *dsdefDS_MAX;
+  
+%}
+
+%define parse.error verbose
+%locations
+     
+%token <type> T_TYPE
+%token T_OFF "off"
+       T_PAD "pad"
+       T_DEF "define"
+       T_SET "set"
+       T_UNSET "unset"
+       T_BOGUS
+
+%token <cmd> T_CMD "command verb"
+%token <cmd> T_SHELL "shell"
+%token <num> T_NUM "number"
+%token <string> T_IDENT "identifier" T_WORD "word"
+%type <cmd> command
+%type <string> string 
+%type <arg> arg
+%type <arglist> arglist arg1list
+%type <dsegm> def defbody
+%type <dsegmlist> deflist
+%type <num> defid
+%type <kvpair> kvpair compound value
+%type <kvlist> kvlist
+%type <slist> slist
+
+%union {
+  char *string;
+  struct kvpair *kvpair;
+  struct { struct kvpair *head, *tail; } kvlist;
+  struct { struct slist *head, *tail; } slist;
+  struct gdbmarg *arg;
+  struct gdbmarglist arglist;
+  int num;
+  struct datadef *type;
+  struct dsegm *dsegm;
+  struct { struct dsegm *head, *tail; } dsegmlist;
+  struct command *cmd;
+}
+
+%destructor { gdbmarglist_free (&$$); } <arglist>
+%destructor { gdbmarg_free ($$); } <arg>
+%destructor { kvlist_free ($$.head); } <kvlist>
+%destructor { kvlist_free ($$); } <kvpair>
+%destructor { slist_free ($$.head); } <slist>
+%destructor { free ($$); } <string>
+%destructor { dsegm_list_free ($$); } <dsegm>
+%destructor { dsegm_list_free ($$.head); } <dsegmlist>
+
+%%
+
+input     : /* empty */
+          | stmtlist
+	  ;
+
+stmtlist  : stmt
+          | stmtlist stmt
+          ;
+
+stmt      : /* empty */ eol
+            {
+	      if (run_last_command ())
+		{
+		  YYABORT;
+		}
+	    }
+          | command arglist eol
+            {
+	      if (run_command ($1, &$2))
+		{
+		  YYABORT;
+		}
+	    }
+          | set eol
+          | defn eol
+	  | T_BOGUS eol
+	    {
+	      if (interactive ())
+		{
+		  yyclearin;
+		  yyerrok;
+		}
+	      else
+		YYERROR;
+	    }
+          | error { end_def(); } eol
+            {
+	      if (interactive ())
+		{
+		  yyclearin;
+		  yyerrok;
+		}
+	      else
+		YYERROR;
+	    }
+          ;
+
+command   : T_CMD
+          | T_SHELL
+          ;
+
+eol       : '\n'
+          | ';'
+          ;
+
+arglist   : /* empty */
+            {
+	      gdbmarglist_init (&$$, NULL);
+	    }
+          | arg1list
+	  ;
+
+arg1list  : arg
+            {
+	      gdbmarglist_init (&$$, $1);
+	    }
+          | arg1list arg
+	    {
+	      gdbmarglist_add (&$1, $2);
+	      $$ = $1;
+	    }
+          ;
+
+arg       : string
+            {
+	      $$ = gdbmarg_string ($1, &@1);
+	    }
+          | compound
+	    {
+	      $$ = gdbmarg_kvpair ($1, &@1);
+	    }
+	  ;
+
+compound  : '{' kvlist '}'
+            {
+	      $$ = $2.head;
+	    }
+          ;
+
+kvlist    : kvpair
+            {
+	      $$.head = $$.tail = $1;
+	    }
+          | kvlist ',' kvpair
+	    {
+	      if (kvlist_find ($1.head, $3->key))
+		{
+		  lerror (&@3, _("duplicate tag: %s"), $3->key);
+		  kvlist_free ($1.head);
+		  $1.head = $1.tail = NULL;
+		  YYERROR;
+		}
+	      $1.tail->next = $3;
+	      $1.tail = $3;
+	      $$ = $1;
+	    }
+          ;
+
+kvpair    : value
+          | T_IDENT '=' value
+	    {
+	      $3->key = $1;
+	      $$ = $3;
+	    }
+          ;
+
+value     : string
+            {
+	      $$ = kvpair_string (&@1, $1);
+	    }
+          | '{' slist '}'
+	    {
+	      $$ = kvpair_list (&@1, $2.head);
+	    }
+          ;

_service:tar_scm:gdbm-1.23.tar.gz/tools/input-argv.c Added

@@ -0,0 +1,132 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 2018-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
+
+#include "gdbmtool.h"
+#include <stdlib.h>
+
+struct instream_argv
+{
+  struct instream base;  /* Base structure */
+  int argc;              /* Number of arguments */
+  char **argv;           /* Vector of arguments */
+  int idx;               /* Index of the current argument */
+  char *cur;             /* Current position in argvidx */
+  int delim;             /* True if cur points to a delimiter */
+  int quote;             /* True if the argument must be quoted */
+};
+
+static ssize_t
+instream_argv_read (instream_t istr, char *buf, size_t size)
+{
+  size_t total = 0;
+  struct instream_argv *i = (struct instream_argv*)istr;
+  char const specials = " \"\t\n{},";
+  char const escapable = "\\\"";
+  
+  while (total < size)
+    {
+      if (*i->cur == 0)
+	{
+	  if (i->quote)
+	    {
+	      buftotal++ = '"';
+	      i->quote = 0;
+	      continue;
+	    }
+	  
+	  if (i->idx == i->argc)
+	    {
+	      if (!i->delim)
+		{
+		  i->cur = "\n";
+		  i->delim = 1;
+		}
+	      else
+		break;
+	    }
+	  else if (!i->delim)
+	    {
+	      i->cur = " ";
+	      i->delim = 1;
+	    }
+	  else
+	    {
+	      size_t len;
+	      i->cur = i->argvi->idx++;
+	      i->delim = 0;
+	      len = strlen (i->cur);
+	      if (len > 1 && i->cur0 == '"' && i->curlen-1 == '"')
+		i->quote = 0;
+	      else if (i->curstrcspn (i->cur, specials))
+		{
+		  buftotal++ = '"';
+		  i->quote = 1;
+		  continue;
+		}
+	      else
+		i->quote = 0;
+	    }
+	}
+      
+      if (strchr (escapable, *i->cur))
+	{
+	  if (total + 2 > size)
+	    break;
+	  buftotal++ = '\\';
+	}
+      buftotal++ = *i->cur++;
+    }
+  return total;
+}
+
+static void
+instream_argv_close (instream_t istr)
+{
+  struct instream_argv *i = (struct instream_argv *)istr;
+  free (i);
+}
+
+static int
+instream_argv_eq (instream_t a, instream_t b)
+{
+  return 0;
+}
+
+instream_t
+instream_argv_create (int argc, char **argv)
+{
+  struct instream_argv *istr;
+
+  istr = emalloc (sizeof *istr);
+  istr->base.in_name = "argv";
+  istr->base.in_inter = 0;
+  istr->base.in_read = instream_argv_read;
+  istr->base.in_close = instream_argv_close;
+  istr->base.in_eq = instream_argv_eq;
+  istr->base.in_history_size = NULL;
+  istr->base.in_history_get = NULL;  
+    
+  istr->argc = argc;
+  istr->argv = argv;
+  istr->idx = 0;
+  istr->cur = "";
+  istr->delim = 1;
+  istr->quote = 0;
+  
+  return (instream_t) istr;
+}
+
+

_service:tar_scm:gdbm-1.23.tar.gz/tools/input-file.c Added

@@ -0,0 +1,90 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 2018-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
+
+#include "gdbmtool.h"
+
+struct instream_file
+{
+  struct instream base;   /* Base structure */
+  FILE *fp;               /* Opened file */
+  dev_t dev;              /* Device number */
+  ino_t ino;              /* Inode number */
+};
+
+static ssize_t
+instream_file_read (instream_t istr, char *buf, size_t size)
+{
+  struct instream_file *file = (struct instream_file *)istr;
+  return fread (buf, 1, size, file->fp);
+}
+
+static void
+instream_file_close (instream_t istr)
+{
+  struct instream_file *file = (struct instream_file *)istr;
+  fclose (file->fp);
+  free (file->base.in_name);
+  free (file);
+}
+
+static int
+instream_file_eq (instream_t a, instream_t b)
+{
+  struct instream_file *file_a = (struct instream_file *)a;
+  struct instream_file *file_b = (struct instream_file *)b;
+  return file_a->dev == file_b->dev && file_a->ino == file_b->ino;
+}
+
+instream_t
+instream_file_create (char const *name)
+{
+  struct instream_file *istr;
+  struct stat st;
+  FILE *fp;
+
+  if (stat (name, &st))
+    {
+      terror (_("cannot open `%s': %s"), name, strerror (errno));
+      return NULL;
+    }
+  else if (!S_ISREG (st.st_mode))
+    {
+      terror (_("%s is not a regular file"), name);
+      return NULL;
+    }
+
+  fp = fopen (name, "r");
+  if (!fp)
+    {
+      terror (_("cannot open %s for reading: %s"), name,
+	      strerror (errno));
+      return NULL;
+    }
+  
+  istr = emalloc (sizeof *istr);
+  istr->base.in_name = estrdup (name);
+  istr->base.in_inter = 0;
+  istr->base.in_read = instream_file_read;
+  istr->base.in_close = instream_file_close;
+  istr->base.in_eq = instream_file_eq;
+  istr->base.in_history_size = NULL;
+  istr->base.in_history_get = NULL;  
+  istr->fp = fp;
+  istr->dev = st.st_dev;
+  istr->ino = st.st_ino;
+
+  return (instream_t) istr;
+}

_service:tar_scm:gdbm-1.23.tar.gz/tools/input-null.c Added

@@ -0,0 +1,53 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 2018-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
+
+#include "gdbmtool.h"
+
+static ssize_t
+instream_null_read (instream_t istr, char *buf, size_t size)
+{
+  return 0;
+}
+
+static void
+instream_null_close (instream_t istr)
+{
+  free (istr);
+}
+
+static int
+instream_null_eq (instream_t a, instream_t b)
+{
+  return a == b;
+}
+
+instream_t
+instream_null_create (void)
+{
+  struct instream *istr;
+
+  istr = emalloc (sizeof *istr);
+  istr->in_name = "null";
+  istr->in_inter = 0;
+  istr->in_read = instream_null_read;
+  istr->in_close = instream_null_close;
+  istr->in_eq = instream_null_eq;
+  istr->in_history_size = NULL;
+  istr->in_history_get = NULL;  
+
+  return istr;
+}
+

_service:tar_scm:gdbm-1.23.tar.gz/tools/input-rl.c Added

@@ -0,0 +1,223 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 2016-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
+
+#include "gdbmtool.h"
+#include <readline/readline.h>
+#include <readline/history.h>
+
+static char *pre_input_line;
+
+static int
+pre_input (void)
+{
+  if (pre_input_line)
+    {
+      rl_insert_text (pre_input_line);
+      free (pre_input_line);
+      pre_input_line = NULL;
+      rl_redisplay ();
+    }
+  return 0;
+}
+
+static int
+retrieve_history (char *str)
+{
+  char *out;
+  int rc;
+
+  rc = history_expand (str, &out);
+  switch (rc)
+    {
+    case -1:
+      yyerror (out);
+      free (out);
+      return 1;
+
+    case 0:
+      free (out);
+      break;
+
+    case 1:
+      pre_input_line = out;
+      return 1;
+
+    case 2:
+      printf ("%s\n", out);
+      free (out);
+      return 1;
+    }
+  return 0;
+}
+
+#define HISTFILE_PREFIX "~/."
+#define HISTFILE_SUFFIX "_history"
+
+static char *history_file_name;
+
+static char *
+get_history_file_name (void)
+{
+  if (!history_file_name)
+    {
+      char *hname;
+
+      hname = emalloc (sizeof HISTFILE_PREFIX + strlen (rl_readline_name) +
+		       sizeof HISTFILE_SUFFIX - 1);
+      strcpy (hname, HISTFILE_PREFIX);
+      strcat (hname, rl_readline_name);
+      strcat (hname, HISTFILE_SUFFIX);
+      history_file_name = tildexpand (hname);
+      free (hname);
+    }
+  return history_file_name;
+}
+ 
+static char **
+shell_completion (const char *text, int start, int end)
+{
+  char **matches;
+
+  matches = (char **) NULL;
+
+  /* If this word is at the start of the line, then it is a command
+     to complete.  Otherwise it is the name of a file in the current
+     directory. */
+  if (start == 0)
+    matches = rl_completion_matches (text, command_generator);
+
+  return (matches);
+}
+&#xc;
+static void
+instream_readline_close (instream_t istr)
+{
+  if (history_file_name)
+    {
+      write_history (history_file_name);
+      free (history_file_name);
+      history_file_name = NULL;
+    }
+  free (istr);
+}
+
+static ssize_t
+stdin_read_readline (instream_t istr, char *buf, size_t size)
+{
+  static char *input_line;
+  static size_t input_length;
+  static size_t input_off;
+#define input_ptr() (input_line + input_off)
+#define input_size() (input_length - input_off)
+  size_t len = input_size ();
+  if (!len)
+    {
+      if (input_line)
+	{
+	newline:
+	  free (input_line);
+	  input_line = NULL;
+	  buf0 = '\n';
+	  return 1;
+	}
+      else
+	{
+	  char *prompt;
+	again:
+	  prompt = make_prompt ();
+	  input_line = readline (prompt);
+	  free (prompt);
+	  if (!input_line)
+	    return 0;
+	  input_length = strlen (input_line);
+	  input_off = 0;
+	  if (input_length)
+	    {
+	      if (retrieve_history (input_line))
+		{
+		  free (input_line);
+		  goto again;
+		}
+	    }
+	  else
+	    goto newline;
+	  len = input_size ();
+	  add_history (input_line);
+	}
+    }
+  
+  if (len > size)
+    len = size;
+  memcpy (buf, input_ptr (), len);
+  input_off += len;
+
+  return len;
+} 
+
+static ssize_t
+instream_readline_read (instream_t istr, char *buf, size_t size)
+{
+  if (istr->in_inter)
+    return stdin_read_readline (istr, buf, size);
+  return fread (buf, 1, size, stdin);
+}
+
+static int
+instream_readline_eq (instream_t a, instream_t b)
+{
+  return 0;
+}
+
+static int
+instream_readline_history_size (instream_t istr)
+{
+  return history_length;
+}
+
+static const char *
+instream_readline_history_get (instream_t instr, int n)
+{
+  if (n < history_length)
+    return history_list ()n->line;
+  return NULL;
+}
+
+instream_t
+instream_readline_create (void)

_service:tar_scm:gdbm-1.23.tar.gz/tools/input-std.c Added

@@ -0,0 +1,57 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 2016-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
+
+#include "gdbmtool.h"
+
+static ssize_t
+instream_stdin_read (instream_t istr, char *buf, size_t size)
+{
+  if (istr->in_inter)
+    print_prompt_at_bol ();
+  if (fgets (buf, size, stdin) == NULL)
+    return 0;
+  return strlen (buf);
+}
+
+static void
+instream_stdin_close (instream_t istr)
+{
+  free (istr);
+}
+
+static int
+instream_stdin_eq (instream_t a, instream_t b)
+{
+  return 0;
+}
+
+instream_t
+instream_stdin_create (void)
+{
+  struct instream *istr;
+
+  istr = emalloc (sizeof *istr);
+  istr->in_name = "stdin";
+  istr->in_inter = isatty (fileno (stdin));
+  istr->in_read = instream_stdin_read;
+  istr->in_close = instream_stdin_close;
+  istr->in_eq = instream_stdin_eq;
+  istr->in_history_size = NULL;
+  istr->in_history_get = NULL;  
+
+  return istr;
+}
+

_service:tar_scm:gdbm-1.23.tar.gz/tools/lex.c Added

@@ -0,0 +1,3112 @@
+#line 2 "lex.c"
+
+#line 4 "lex.c"
+
+#define  YY_INT_ALIGNED short int
+
+/* A lexical scanner generated by flex */
+
+/* %not-for-header */
+
+/* %if-c-only */
+/* %if-not-reentrant */
+
+/* %endif */
+/* %endif */
+/* %ok-for-header */
+
+#define FLEX_SCANNER
+#define YY_FLEX_MAJOR_VERSION 2
+#define YY_FLEX_MINOR_VERSION 6
+#define YY_FLEX_SUBMINOR_VERSION 0
+#if YY_FLEX_SUBMINOR_VERSION > 0
+#define FLEX_BETA
+#endif
+
+/* %if-c++-only */
+/* %endif */
+
+/* %if-c-only */
+    
+/* %endif */
+
+/* %if-c-only */
+
+/* %endif */
+
+/* First, we deal with  platform-specific or compiler-specific issues. */
+
+/* begin standard C headers. */
+/* %if-c-only */
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+#include <stdlib.h>
+/* %endif */
+
+/* %if-tables-serialization */
+/* %endif */
+/* end standard C headers. */
+
+/* %if-c-or-c++ */
+/* flex integer type definitions */
+
+#ifndef FLEXINT_H
+#define FLEXINT_H
+
+/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
+
+#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
+
+/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
+ * if you want the limit (max/min) macros for int types. 
+ */
+#ifndef __STDC_LIMIT_MACROS
+#define __STDC_LIMIT_MACROS 1
+#endif
+
+#include <inttypes.h>
+typedef int8_t flex_int8_t;
+typedef uint8_t flex_uint8_t;
+typedef int16_t flex_int16_t;
+typedef uint16_t flex_uint16_t;
+typedef int32_t flex_int32_t;
+typedef uint32_t flex_uint32_t;
+#else
+typedef signed char flex_int8_t;
+typedef short int flex_int16_t;
+typedef int flex_int32_t;
+typedef unsigned char flex_uint8_t; 
+typedef unsigned short int flex_uint16_t;
+typedef unsigned int flex_uint32_t;
+
+/* Limits of integral types. */
+#ifndef INT8_MIN
+#define INT8_MIN               (-128)
+#endif
+#ifndef INT16_MIN
+#define INT16_MIN              (-32767-1)
+#endif
+#ifndef INT32_MIN
+#define INT32_MIN              (-2147483647-1)
+#endif
+#ifndef INT8_MAX
+#define INT8_MAX               (127)
+#endif
+#ifndef INT16_MAX
+#define INT16_MAX              (32767)
+#endif
+#ifndef INT32_MAX
+#define INT32_MAX              (2147483647)
+#endif
+#ifndef UINT8_MAX
+#define UINT8_MAX              (255U)
+#endif
+#ifndef UINT16_MAX
+#define UINT16_MAX             (65535U)
+#endif
+#ifndef UINT32_MAX
+#define UINT32_MAX             (4294967295U)
+#endif
+
+#endif /* ! C99 */
+
+#endif /* ! FLEXINT_H */
+
+/* %endif */
+
+/* %if-c++-only */
+/* %endif */
+
+#ifdef __cplusplus
+
+/* The "const" storage-class-modifier is valid. */
+#define YY_USE_CONST
+
+#else	/* ! __cplusplus */
+
+/* C99 requires __STDC__ to be defined as 1. */
+#if defined (__STDC__)
+
+#define YY_USE_CONST
+
+#endif	/* defined (__STDC__) */
+#endif	/* ! __cplusplus */
+
+#ifdef YY_USE_CONST
+#define yyconst const
+#else
+#define yyconst
+#endif
+
+/* %not-for-header */
+
+/* Returned upon end-of-file. */
+#define YY_NULL 0
+/* %ok-for-header */
+
+/* %not-for-header */
+
+/* Promotes a possibly negative, possibly signed char to an unsigned
+ * integer for use as an array index.  If the signed char is negative,
+ * we want to instead treat it as an 8-bit unsigned char, hence the
+ * double cast.
+ */
+#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
+/* %ok-for-header */
+
+/* %if-reentrant */
+/* %endif */
+
+/* %if-not-reentrant */
+
+/* %endif */
+
+/* Enter a start condition.  This macro really ought to take a parameter,
+ * but we do it the disgusting crufty way forced on us by the ()-less
+ * definition of BEGIN.
+ */
+#define BEGIN (yy_start) = 1 + 2 *
+
+/* Translate the current start state into a value that can be later handed
+ * to BEGIN to return to the state.  The YYSTATE alias is for lex
+ * compatibility.
+ */
+#define YY_START (((yy_start) - 1) / 2)
+#define YYSTATE YY_START
+
+/* Action number for EOF rule of a given start state. */
+#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
+
+/* Special action meaning "start processing a new file". */
+#define YY_NEW_FILE yyrestart(yyin  )
+
+#define YY_END_OF_BUFFER_CHAR 0
+
+/* Size of default input buffer. */
+#ifndef YY_BUF_SIZE
+#ifdef __ia64__
+/* On IA-64, the buffer size is 16k, not 8k.
+ * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case.
+ * Ditto for the __ia64__ case accordingly.
+ */
+#define YY_BUF_SIZE 32768
+#else
+#define YY_BUF_SIZE 16384
+#endif /* __ia64__ */
+#endif
+
+/* The state buf must be large enough to hold one state per character in the main buffer.

_service:tar_scm:gdbm-1.23.tar.gz/tools/lex.l Added

@@ -0,0 +1,754 @@
+%{
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
+
+#include "gdbmtool.h"
+#include "gram.h"
+
+struct context                /* Input context */
+{
+  struct context *parent;     /* Pointer to the parent context */
+  struct locus locus;         /* Locus */
+  struct point point;
+  YY_BUFFER_STATE buf;        /* Buffer */
+  instream_t input;
+};
+
+static struct context *context_tos;
+
+/* Advance locus to the next line */
+void
+advance_line (void)
+{
+  ++context_tos->point.line;
+  context_tos->point.col = 0;
+}
+
+#define YY_USER_ACTION					    \
+  do							    \
+    {							    \
+      if (YYSTATE == 0)					    \
+	{						    \
+	  yylloc.beg = context_tos->point;		    \
+	  yylloc.beg.col++;				    \
+	}						    \
+      context_tos->point.col += yyleng;			    \
+      yylloc.end = context_tos->point;			    \
+    }							    \
+  while (0);
+
+#undef YY_INPUT
+#define YY_INPUT(buf,result,max_size)                                   \
+  do									\
+    {									\
+      if (context_tos)							\
+        result = instream_read (context_tos->input, buf, max_size);	\
+      else								\
+	result = 0;							\
+    }									\
+  while (0);
+ 
+void string_begin (void);
+void string_add (const char *s, int l);
+void string_addc (int c);
+char *string_end (int empty_null);
+int unescape (int c);
+
+struct file_name
+{
+  struct file_name *next;
+  char str1;
+};
+
+static struct file_name *file_head;
+
+static void
+file_names_free (void)
+{
+  while (file_head)
+    {
+      struct file_name *next = file_head->next;
+      free (file_head);
+      file_head = next;
+    }
+}
+ 
+char *
+file_name_alloc (char const *s)
+{
+  struct file_name *f = emalloc (sizeof (*f) + strlen (s));
+  strcpy (f->str, s);
+  f->next = file_head;
+  if (!file_head)
+    atexit (file_names_free);
+  file_head = f;
+  return f->str;
+}
+
+int
+interactive (void)
+{
+  return context_tos && instream_interactive (context_tos->input);
+}
+
+int
+input_history_size (void)
+{
+  return context_tos ? instream_history_size (context_tos->input) : 0;
+}
+
+const char *
+input_history_get (int n)  
+{
+  return context_tos ? instream_history_get (context_tos->input, n) : NULL;
+}
+
+const char *
+input_stream_name (void)
+{
+  return context_tos ? context_tos->input->in_name : "NULL";
+}
+ 
+static struct context *
+input_context_lookup (instream_t istr)
+{
+  struct context *cp;
+
+  for (cp = context_tos; cp; cp = cp->parent)
+    if (instream_eq (cp->input, istr))
+      break;
+  return cp;
+}
+ 
+int
+input_context_push (instream_t input)
+{
+  struct context *cp;
+
+  cp = input_context_lookup (input);
+  if (cp)
+    {
+      terror (_("recursive sourcing"));
+      if (cp->parent)
+	lerror (&cp->locus, _("%s already sourced here"),
+		instream_name (input));
+      return 1;
+    }
+
+  yy_switch_to_buffer (yy_create_buffer (NULL, YY_BUF_SIZE));
+
+  /* Create new context */
+
+  cp = ecalloc (1, sizeof (*cp));
+  cp->locus = yylloc;
+  cp->point.file = file_name_alloc (instream_name (input));
+  cp->point.line = 1;
+  cp->point.col = 0;
+  
+  cp->input = input;
+  cp->buf = YY_CURRENT_BUFFER;
+  cp->parent = context_tos;
+  context_tos = cp;
+
+  return 0;
+}
+
+void
+lex_trace (int n)
+{
+  yy_flex_debug = n;
+}
+    
+int
+input_context_pop (void)
+{
+  struct context *cp;
+
+  if (!context_tos)
+    return 1;
+  instream_close (context_tos->input);
+  cp = context_tos->parent;
+  free (context_tos);
+  context_tos = cp;
+  yy_delete_buffer (YY_CURRENT_BUFFER);
+  if (!cp)
+    return 1;
+  
+  yylloc = cp->locus;
+  yy_switch_to_buffer (cp->buf);
+
+  return 0;
+}
+
+void
+input_context_drain (void)
+{
+   while (!input_context_pop ())

_service:tar_scm:gdbm-1.23.tar.gz/tools/mem.c Added

@@ -0,0 +1,107 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 2011-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
+
+# include "autoconf.h"
+# include "gdbm.h"
+# include "gdbmapp.h"
+# include "gdbmdefs.h"
+
+void
+ealloc_die (void)
+{
+  error ("%s", strerror (ENOMEM));
+  exit (EXIT_FATAL);
+}
+
+void *
+emalloc (size_t size)
+{
+  void *p = malloc (size);
+  if (!p)
+    ealloc_die ();
+  return p;
+}
+
+void *
+erealloc (void *ptr, size_t size)
+{
+  void *newptr = realloc (ptr, size);
+  if (!newptr)
+    ealloc_die ();
+  return newptr;
+}
+
+void *
+ecalloc (size_t nmemb, size_t size)
+{
+  void *p = calloc (nmemb, size);
+  if (!p)
+    ealloc_die ();
+  return p;
+}
+
+void *
+ezalloc (size_t size)
+{
+  return ecalloc (1, size);
+}
+
+char *
+estrdup (const char *str)
+{
+  char *p;
+
+  if (!str)
+    return NULL;
+  p = emalloc (strlen (str) + 1);
+  strcpy (p, str);
+  return p;
+}
+
+void *
+e2nrealloc (void *p, size_t *pn, size_t s)
+{
+  size_t n = *pn;
+  char *newp;
+	
+  if (!p)
+    {
+      if (!n)
+	{
+	  /* The approximate size to use for initial small
+	     allocation requests, when the invoking code
+	     specifies an old size of zero.  64 bytes is
+	     the largest "small" request for the
+	     GNU C library malloc.  */
+	  enum { DEFAULT_MXFAST = 64 };
+	  
+	  n = DEFAULT_MXFAST / s;
+	  n += !n;
+	}
+    }
+  else if ((size_t) -1 / 3 * 2 / s <= n)
+    {
+      ealloc_die ();
+    }
+  else
+    n += (n + 1) / 2;
+
+  newp = erealloc (p, n * s);
+  *pn = n;
+  return newp;
+}
+
+

_service:tar_scm:gdbm-1.23.tar.gz/tools/parseopt.c Added

@@ -0,0 +1,716 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 2011-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
+
+# include "autoconf.h"
+# include "gdbm.h"
+# include "gdbmapp.h"
+# include "gdbmdefs.h"
+# include <stdio.h>
+# include <stdarg.h>
+# include <errno.h>
+# include <string.h>
+# include <ctype.h>
+# ifdef HAVE_GETOPT_H
+#  include <getopt.h>
+# endif
+
+static int argc;
+static char **argv;
+
+static struct gdbm_option *option_tab;
+static size_t option_count;
+static size_t option_max;
+static char *short_options;
+static size_t short_option_count;
+static size_t short_option_max;
+#ifdef HAVE_GETOPT_LONG
+static struct option *long_options;
+static size_t long_option_count;
+static size_t long_option_max;
+#endif
+
+#define OPT_USAGE -2
+
+struct gdbm_option parseopt_default_options = {
+  { 0, NULL, NULL, "" },
+  { 'h', "help", NULL, N_("give this help list") },
+  { 'V', "version", NULL, N_("print program version") },
+  { OPT_USAGE, "usage", NULL, N_("give a short usage message") },
+  { 0 }
+};
+
+#define OPT_END(opt) \
+  ((opt)->opt_short == 0 && (opt)->opt_long == 0 && (opt)->opt_descr == NULL)
+#define IS_OPTION(opt) \
+  ((opt)->opt_short || (opt)->opt_long)
+#define IS_GROUP_HEADER(opt)			\
+  (!IS_OPTION(opt) && (opt)->opt_descr)
+#define IS_VALID_SHORT_OPTION(opt) \
+  ((opt)->opt_short > 0 && (opt)->opt_short < 127 && \
+   isalnum ((opt)->opt_short))
+#define IS_VALID_LONG_OPTION(opt) \
+  ((opt)->opt_long != NULL)
+  
+&#xc;
+static int
+optcmp (const void *a, const void *b)
+{
+  struct gdbm_option const *ap = (struct gdbm_option const *)a;
+  struct gdbm_option const *bp = (struct gdbm_option const *)b;
+
+  while (ap->opt_flags & PARSEOPT_ALIAS)
+    ap--;
+  while (bp->opt_flags & PARSEOPT_ALIAS)
+    bp--;
+  
+  if (IS_VALID_SHORT_OPTION(ap) && IS_VALID_SHORT_OPTION(bp))
+    return ap->opt_short - bp->opt_short;
+  if (IS_VALID_LONG_OPTION(ap) && IS_VALID_LONG_OPTION(bp))
+    return strcmp (ap->opt_long, bp->opt_long);
+  if (IS_VALID_LONG_OPTION(ap))
+    return 1;
+  return -1;
+}
+
+static void
+sort_options (int start, int count)
+{
+  qsort (option_tab + start, count, sizeof (option_tab0), optcmp);
+}
+
+static size_t
+sort_group (size_t start)
+{
+  size_t i;
+  
+  for (i = start; i < option_count && !IS_GROUP_HEADER (&option_tabi); i++)
+    ;
+  sort_options (start, i - start);
+  return i + 1;
+}
+
+static void
+sort_all_options (void)
+{
+  size_t start;
+
+  /* Ensure sane start of options.  This is necessary because optcmp backs up
+     until it finds an element with cleared PARSEOPT_ALIAS flag bit. */
+  option_tab0.opt_flags &= PARSEOPT_ALIAS;
+  for (start = 0; start < option_count; )
+    {
+      if (IS_GROUP_HEADER (&option_tabstart))
+	start = sort_group (start + 1);
+      else 
+	start = sort_group (start);
+    }
+}
+&#xc;
+static void
+add_options (struct gdbm_option *options)
+{
+  size_t optcnt = 0;
+  size_t argcnt = 0;
+  size_t count = 0;
+  struct gdbm_option *opt;
+  
+  for (opt = options; !OPT_END(opt); opt++)
+    {
+      count++;
+      if (IS_OPTION(opt))
+	{
+	  optcnt++;
+	  if (opt->opt_arg)
+	    argcnt++;
+	}
+    }
+
+  if (option_count + count + 1 > option_max)
+    {
+      option_max = option_count + count + 1;
+      option_tab = erealloc (option_tab,
+			     sizeof (option_tab0) * option_max);
+    }
+  
+#ifdef HAVE_GETOPT_LONG
+  if (long_option_count + optcnt + 1 > long_option_max)
+    {
+      long_option_max = long_option_count + optcnt + 1;
+      long_options = erealloc (long_options,
+			       sizeof (long_options0) * long_option_max);
+    }
+#endif
+  if (short_option_count + optcnt + argcnt + 1 > short_option_max)
+    {
+      short_option_max = short_option_count + optcnt + argcnt + 1;
+      short_options = erealloc (short_options,
+				sizeof (short_options0) * short_option_max);
+    }
+
+  for (opt = options; !OPT_END(opt); opt++)
+    {
+      option_taboption_count++ = *opt;
+      if (!IS_OPTION (opt))
+	continue;
+      if (IS_VALID_SHORT_OPTION (opt))
+	{
+	  short_optionsshort_option_count++ = opt->opt_short;
+	  if (opt->opt_arg)
+	    short_optionsshort_option_count++ = ':';
+	}
+#ifdef HAVE_GETOPT_LONG
+      if (IS_VALID_LONG_OPTION (opt))
+	{
+	  long_optionslong_option_count.name = opt->opt_long;
+	  long_optionslong_option_count.has_arg = opt->opt_arg != NULL;
+	  long_optionslong_option_count.flag = NULL;
+	  long_optionslong_option_count.val = opt->opt_short;
+	  long_option_count++;
+	}
+#endif
+    }
+  short_optionsshort_option_count = 0;
+#ifdef HAVE_GETOPT_LONG
+  memset (&long_optionslong_option_count, 0,
+	  sizeof long_optionslong_option_count);
+#endif
+}
+
+void
+parseopt_free (void)
+{
+  free (option_tab);
+  option_tab = NULL;
+  free (short_options);
+  short_options = NULL;
+  short_option_count = short_option_max = 0;

_service:tar_scm:gdbm-1.23.tar.gz/tools/progname.c Added

@@ -0,0 +1,35 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 2011-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
+
+# include "autoconf.h"
+# include "gdbm.h"
+# include "gdbmapp.h"
+# include <string.h>
+
+const char *progname;
+
+void
+set_progname (const char *arg)
+{
+  const char *p = strrchr (arg, '/');
+  if (p)
+    ++p;
+  else
+    p = arg;
+  if (strncmp (p, "lt-", 3) == 0)
+    p += 3;
+  progname = p;
+}

_service:tar_scm:gdbm-1.23.tar.gz/tools/util.c Added

@@ -0,0 +1,131 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
+
+#include "gdbmtool.h"
+#include <pwd.h>
+
+char *
+mkfilename (const char *dir, const char *file, const char *suf)
+{
+  char *tmp;
+  size_t dirlen = strlen (dir);
+  size_t suflen = suf ? strlen (suf) : 0;
+  size_t fillen = strlen (file);
+  size_t len;
+  
+  while (dirlen > 0 && dirdirlen-1 == '/')
+    dirlen--;
+
+  len = dirlen + (dir0 ? 1 : 0) + fillen + suflen;
+  tmp = emalloc (len + 1);
+  memcpy (tmp, dir, dirlen);
+  if (dir0)
+    tmpdirlen++ = '/';
+  memcpy (tmp + dirlen, file, fillen);
+  if (suf)
+    memcpy (tmp + dirlen + fillen, suf, suflen);
+  tmplen = 0;
+  return tmp;
+}
+
+char *
+tildexpand (char *s)
+{
+  if (s0 == '~')
+    {
+      char *p = s + 1;
+      size_t len = strcspn (p, "/");
+      struct passwd *pw;
+
+      if (len == 0)
+	pw = getpwuid (getuid ());
+      else
+	{
+	  char *user = emalloc (len + 1);
+	  
+	  memcpy (user, p, len);
+	  userlen = 0;
+	  pw = getpwnam (user);
+	  free (user);
+	}
+      if (pw)
+	return mkfilename (pw->pw_dir, p + len + 1, NULL);
+    }
+  return estrdup (s);
+}
+
+int
+vgetyn (const char *prompt, va_list ap)
+{
+  int state = 0;
+  int c, resp;
+  va_list aq;
+  
+  do
+    {
+      switch (state)
+	{
+	case 1:
+	  if (c == ' ' || c == '\t')
+	    continue;
+	  resp = c;
+	  state = 2;
+	  /* fall through */
+	case 2:
+	  if (c == '\n')
+	    {
+	      switch (resp)
+		{
+		case 'y':
+		case 'Y':
+		  return 1;
+		case 'n':
+		case 'N':
+		  return 0;
+		default:
+		  /* TRANSLATORS: Please, don't translate 'y' and 'n'. */
+		  fprintf (stdout, "%s\n", _("Please, reply 'y' or 'n'"));
+		}
+	      /* fall through */
+	    }
+	  else
+	    break;
+	  
+	case 0:
+	  va_copy (aq, ap);
+	  vfprintf (stdout, prompt, aq);
+	  va_end (aq);
+	  fprintf (stdout, " y/n?");
+	  fflush (stdout);
+	  state = 1;
+	  break;
+	}
+    } while ((c = getchar ()) != EOF);
+  exit (EXIT_USAGE);
+}
+	
+int
+getyn (const char *prompt, ...)
+{
+  va_list ap;
+  int rc;
+  
+  va_start (ap, prompt);
+  rc = vgetyn (prompt, ap);
+  va_end (ap);
+  return rc;
+}
+

_service:tar_scm:gdbm-1.23.tar.gz/tools/var.c Added

@@ -0,0 +1,835 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 1990-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.    */
+
+#include "gdbmtool.h"
+
+#define VARF_DFL    0x00   /* Default flags -- everything disabled */
+#define VARF_SET    0x01   /* Variable is set */
+#define VARF_INIT   0x02   /* Variable is initialized */
+#define VARF_PROT   0x04   /* Variable is protected, i.e. cannot be unset */
+#define VARF_OCTAL  0x08   /* For integer variables -- use octal base */
+
+#define VAR_IS_SET(v) ((v)->flags & VARF_SET)
+
+union value
+{
+  char *string;
+  int bool;
+  int num;
+};
+
+struct variable
+{
+  char *name;
+  int type;
+  int flags;
+  union value init;
+  union value v;
+  void *data;
+  int (*sethook) (struct variable *, union value *);
+  int (*typeconv) (struct variable *, int, void **);
+  void (*freehook) (void *);
+};
+
+static int open_sethook (struct variable *, union value *);
+static int open_typeconv (struct variable *var, int type, void **retptr);
+static int format_sethook (struct variable *, union value *);
+static int format_typeconv (struct variable *var, int type, void **retptr);
+static int fd_sethook (struct variable *, union value *);
+static int centfree_sethook (struct variable *var, union value *v);
+static int coalesce_sethook (struct variable *var, union value *v);
+static int cachesize_sethook (struct variable *var, union value *v);
+static int errormask_sethook (struct variable *var, union value *v);
+static int errormask_typeconv (struct variable *var, int type, void **retptr);
+static void errormask_freehook (void *);
+static int errorexit_sethook (struct variable *var, union value *v);
+
+static struct variable vartab = {
+  /* Top-level prompt */
+  {
+    .name = "ps1",
+    .type = VART_STRING,
+    .flags = VARF_INIT,
+    .init = { .string = "%p>%_" }
+  },
+  /* Second-level prompt (used within "def" block) */
+  {
+    .name = "ps2",
+    .type = VART_STRING,
+    .flags = VARF_INIT,
+    .init = { .string = "%_>%_" }
+  },
+  /* This delimits array members */
+  {
+    .name = "delim1",
+    .type = VART_STRING,
+    .flags = VARF_INIT|VARF_PROT,
+    .init = { .string = "," }
+  },
+  /* This delimits structure members */
+  {
+    .name = "delim2",
+    .type = VART_STRING,
+    .flags = VARF_INIT|VARF_PROT,
+    .init = { .string = "," }
+  },
+  {
+    .name = "confirm",
+    .type = VART_BOOL,
+    .flags = VARF_INIT,
+    .init = { .bool = 1 }
+  },
+  {
+    .name = "cachesize",
+    .type = VART_INT,
+    .flags = VARF_DFL,
+    .sethook = cachesize_sethook
+  },
+  {
+    .name = "blocksize",
+    .type = VART_INT,
+    .flags = VARF_DFL
+  },
+  {
+    .name = "open",
+    .type = VART_STRING,
+    .flags = VARF_DFL,
+    .sethook = open_sethook,
+    .typeconv = open_typeconv
+  },
+  {
+    .name = "lock",
+    .type = VART_BOOL,
+    .flags = VARF_INIT,
+    .init = { .bool = 1 }
+  },
+  {
+    .name = "mmap",
+    .type = VART_BOOL,
+    .flags = VARF_INIT,
+    .init = { .bool = 1 }
+  },
+  {
+    .name = "sync",
+    .type = VART_BOOL,
+    .flags = VARF_INIT,
+    .init = { .bool = 0 }
+  },
+  {
+    .name = "coalesce",
+    .type = VART_BOOL,
+    .flags = VARF_INIT,
+    .init = { .bool = 0 },
+    .sethook = coalesce_sethook
+  },
+  {
+    .name = "centfree",
+    .type = VART_BOOL,
+    .flags = VARF_INIT,
+    .init = { .bool = 0 },
+    .sethook = centfree_sethook
+  },
+  {
+    .name = "filemode",
+    .type = VART_INT,
+    .flags = VARF_INIT|VARF_OCTAL|VARF_PROT,
+    .init = { .num = 0644 }
+  },
+  {
+    .name = "format",
+    .type = VART_STRING,
+    .flags = VARF_INIT,
+    .init = { .string = "standard" },
+    .sethook = format_sethook,
+    .typeconv = format_typeconv
+  },
+  {
+    .name = "pager",
+    .type = VART_STRING,
+    .flags = VARF_DFL
+  },
+  {
+    .name = "quiet",
+    .type = VART_BOOL,
+    .flags = VARF_DFL
+  },
+  {
+    .name = "filename",
+    .type = VART_STRING,
+    .flags = VARF_INIT|VARF_PROT,
+    { .string = GDBMTOOL_DEFFILE }
+  },
+  {
+    .name = "fd",
+    .type = VART_INT,
+    .flags = VARF_DFL,
+    .sethook = fd_sethook
+  },
+  {
+    .name = "errorexit",
+    .type = VART_STRING,
+    .sethook = errorexit_sethook,
+    .typeconv = errormask_typeconv,
+    .freehook = errormask_freehook    
+  },
+  {
+    .name = "errormask",
+    .type = VART_STRING,
+    .sethook = errormask_sethook,
+    .typeconv = errormask_typeconv,
+    .freehook = errormask_freehook
+  },
+  {
+    .name = "timing",
+    .type = VART_BOOL
+  },
+  {

_service:tar_scm:gdbm-1.23.tar.gz/tools/wordwrap.c Added

@@ -0,0 +1,635 @@
+/* This file is part of GDBM, the GNU data base manager.
+   Copyright (C) 2011-2022 Free Software Foundation, Inc.
+
+   GDBM is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3, or (at your option)
+   any later version.
+
+   GDBM is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GDBM. If not, see <http://www.gnu.org/licenses/>.   */
+
+#include "autoconf.h"
+#include "gdbmapp.h"
+#include <unistd.h>
+#include <stdio.h>
+#include <string.h>
+#include <wctype.h>
+#include <wchar.h>
+#include <errno.h>
+#include <limits.h>
+#include <termios.h>
+#include <sys/ioctl.h>
+
+#define UNSET ((unsigned)-1)
+#define ISSET(c) (c != UNSET)
+#define DEFAULT_RIGHT_MARGIN 80
+
+struct wordwrap_file
+{
+  int fd;                /* Output file descriptor. */
+  unsigned left_margin;  /* Left margin. */
+  unsigned right_margin; /* Right margin. */
+  char *buffer;          /* Output buffer. */
+  size_t bufsize;        /* Size of buffer in bytes. */
+  unsigned offset;       /* Offset of the writing point in the buffer */ 
+  unsigned column;       /* Number of screen column, i.e. the (multibyte)
+			    character corresponding to the offset. */
+  unsigned last_ws;      /* Offset of the beginning of the last whitespace
+			    sequence written to the buffer. */
+  unsigned ws_run;       /* Number of characters in the whitespace sequence. */
+  unsigned word_start;   /* Start of a sequence that should be treated as a
+			    single word. */
+  unsigned next_left_margin; /* Left margin to be set after next flush. */
+
+  int indent;            /* If 1, reindent next line. */
+  int unibyte;           /* 0: Normal operation.
+			    1: multibyte functions disabled for this line. */
+  int err;               /* Last errno value associated with this file. */
+};
+
+/*
+ * Reset the file for the next input line.
+ */
+static void
+wordwrap_line_init (WORDWRAP_FILE wf)
+{
+  wf->offset = wf->column = wf->left_margin;
+  wf->last_ws = UNSET;
+  wf->ws_run = 0;
+  wf->unibyte = 0;
+}
+
+/*
+ * Detect the value of the right margin.  Use TIOCGWINSZ ioctl, the COLUMNS
+ * environment variable, or the default value, in that order.
+ */
+static unsigned
+detect_right_margin (WORDWRAP_FILE wf)
+{
+  struct winsize ws;
+  unsigned r = 0;
+  
+  ws.ws_col = ws.ws_row = 0;
+  if ((ioctl (wf->fd, TIOCGWINSZ, (char *) &ws) < 0) || ws.ws_col == 0)
+    {
+      char *p = getenv ("COLUMNS");
+      if (p)
+	{
+	  unsigned long n;
+	  char *ep;
+	  errno = 0;
+	  n = strtoul (p, &ep, 10);
+	  if (!(errno || *ep || n > UINT_MAX))
+	    r = n;
+	}
+      else
+	r = DEFAULT_RIGHT_MARGIN;
+    }
+  else
+    r = ws.ws_col;
+  return r;
+}
+
+/*
+ * Create a wordwrap file operating on file descriptor FD.
+ * In the contrast to the libc fdopen, the descriptor is dup'ed.
+ * Left margin is set to 0, right margin is auto detected.
+ */
+WORDWRAP_FILE
+wordwrap_fdopen (int fd)
+{
+  struct wordwrap_file *wf;
+  int ec;
+  
+  if ((wf = calloc (1, sizeof (*wf))) == NULL)
+    return NULL;
+  if ((wf->fd = dup (fd)) == -1)
+    {
+      ec = errno;
+      free (wf);
+      errno = ec;
+      return NULL;
+    }
+
+  wf->last_ws = UNSET;
+  wf->word_start = UNSET;
+  wf->next_left_margin = UNSET;
+  
+  wordwrap_set_right_margin (wf, 0);
+
+  return wf;
+}
+
+/*
+ * Close the descriptor associated with the wordwrap file, and deallocate
+ * the memory.
+ */
+int
+wordwrap_close (WORDWRAP_FILE wf)
+{
+  int rc;
+
+  rc = wordwrap_flush (wf);
+  close (wf->fd);
+  free (wf->buffer);
+  free (wf);
+
+  return rc;
+}
+
+/*
+ * Return true if wordwrap file is at the beginning of line.
+ */
+int
+wordwrap_at_bol (WORDWRAP_FILE wf)
+{
+  return wf->column == wf->left_margin;
+}
+
+/*
+ * Return true if wordwrap file is at the end of line.
+ */
+int
+wordwrap_at_eol (WORDWRAP_FILE wf)
+{
+  return wf->column == wf->right_margin;
+}
+
+/*
+ * Write SIZE bytes from the buffer to the file.
+ * Return the number of bytes written.
+ * Set the file error indicator on error.
+ */
+static ssize_t
+full_write (WORDWRAP_FILE wf, size_t size)
+{
+  ssize_t total = 0;
+    
+  while (total < size)
+    {
+      ssize_t n = write (wf->fd, wf->buffer + total, size - total);
+      if (n == -1)
+	{
+	  wf->err = errno;
+	  break;
+	}
+      if (n == 0)
+	{
+	  wf->err = ENOSPC;
+	  break;
+	}
+      total += n;
+    }
+  return total;
+}
+
+/*
+ * A fail-safe version of mbrtowc.  If the call to mbrtowc, fails,
+ * switches the stream to the unibyte mode.
+ */
+static inline size_t
+safe_mbrtowc (WORDWRAP_FILE wf, wchar_t *wc, const char *s, mbstate_t *ps)
+{
+  if (!wf->unibyte)

Changes of Revision 2