Implement the "quiet" variable.

* src/var.c (vartab) <quiet>: New variable.
(variable_is_true): Return 0 if the value cannot be
retrieved.
* src/gdbmtool.c (optab): New option --file (-f).
(main): Handle the --file option.
Retrieve the "quiet" setting from the variable.
* src/lex.l (context_pop): Clear both point.file
and yylloc.

1 files changed, 4 insertions, 3 deletions

diff --git a/src/var.c b/src/var.c
index a080483..20db896 100644
--- a/src/var.c
+++ b/src/var.c
@@ -59,6 +59,7 @@ static struct variable vartab[] = {
   { "mmap", VART_BOOL, VARF_INIT, { num: 1 } },
   { "sync", VART_BOOL, VARF_INIT, { num: 0 } },
   { "pager", VART_STRING, VARF_DFL },
+  { "quiet", VART_BOOL, VARF_DFL },
   { NULL }
 };
 
@@ -355,7 +356,7 @@ variable_is_true (const char *name)
 {
   int n;
 
-  if (variable_get (name, VART_BOOL, (void **) &n))
-    return 1;
-  return n;
+  if (variable_get (name, VART_BOOL, (void **) &n) == VAR_OK)
+    return n;
+  return 0;
 }