Fix make distcheck and check-docs.

* doc/Makefile.am: Fix `check-*' goals.
* doc/pies.texi: Update and rearrange material.
Document new configuration.
* lib/Makefile.am (libpies_a_SOURCES): Remove nls.c
* src/Makefile.am (EXTRA_DIST): Remove pies.rc, add
pp-setup.
(INCLUDES): Add $(top_builddir)/gnu
* src/pies.c: Minor changes.
* src/progman.c: Minor changes.
* README-hacking: New file.

1 files changed, 77 insertions, 0 deletions

diff --git a/lib/strtotok.c b/lib/strtotok.c
new file mode 100644
index 0000000..116c96e
--- /dev/null
+++ b/lib/strtotok.c
@@ -0,0 +1,77 @@
+/* This file is part of Pies.
+   Copyright (C) 2009 Sergey Poznyakoff
+
+   Pies 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.
+
+   Pies 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 Pies.  If not, see <http://www.gnu.org/licenses/>. */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include <string.h>
+#include "libpies.h"
+#include "c-strcase.h"
+
+int
+strtotok_len (struct tokendef *tab, const char *str, size_t len, int *pres)
+{
+  for (; tab->name; tab++)
+    {
+      size_t kwlen = strlen (tab->name);
+      if (kwlen == len && memcmp (tab->name, str, len) == 0)
+	{
+	  *pres = tab->tok;
+	  return 0;
+	}
+    }
+  return 1;
+}
+
+int
+strtotok_len_ci (struct tokendef *tab, const char *str, size_t len, int *pres)
+{
+  for (; tab->name; tab++)
+    {
+      size_t kwlen = strlen (tab->name);
+      if (kwlen == len && c_strncasecmp (tab->name, str, len) == 0)
+	{
+	  *pres = tab->tok;
+	  return 0;
+	}
+    }
+  return 1;
+}
+
+int
+strtotok (struct tokendef *tab, const char *str, int *pres)
+{
+  return strtotok_len (tab, str, strlen (str), pres);
+}
+
+int
+strtotok_ci (struct tokendef *tab, const char *str, int *pres)
+{
+  return strtotok_len_ci (tab, str, strlen (str), pres);
+}
+
+int
+toktostr (struct tokendef *tab, int tok, const char **pres)
+{
+  for (; tab->name; tab++)
+    if (tab->tok == tok)
+      {
+	*pres = tab->name;
+	return 0;
+      }
+  return 1;
+}