From 5919c67c0cc46fea1ad0f884c04d7ea8a463fce7 Mon Sep 17 00:00:00 2001 From: Lorry Tar Creator Date: Wed, 25 Dec 2013 15:59:16 +0000 Subject: Imported from /home/lorry/working-area/delta_gdbm-tarball/gdbm-1.11.tar.gz. --- src/progname.c | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 src/progname.c (limited to 'src/progname.c') diff --git a/src/progname.c b/src/progname.c new file mode 100644 index 0000000..f008615 --- /dev/null +++ b/src/progname.c @@ -0,0 +1,35 @@ +/* This file is part of GDBM, the GNU data base manager. + Copyright (C) 2011, 2013 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 . */ + +# include "autoconf.h" +# include "gdbm.h" +# include "gdbmapp.h" +# include + +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; +} -- cgit v1.2.1