1 files changed, 91 insertions, 0 deletions
diff --git a/src/3rdparty/proj/pj_pr_list.c b/src/3rdparty/proj/pj_pr_list.c
new file mode 100644
index 00000000..d4a908cd
--- /dev/null
+++ b/src/3rdparty/proj/pj_pr_list.c
@@ -0,0 +1,91 @@
+/* print projection's list of parameters */
+#include <projects.h>
+#include <stdio.h>
+#include <string.h>
+#define LINE_LEN 72
+	static int
+pr_list(PJ *P, int not_used) {
+	paralist *t;
+	int l, n = 1, flag = 0;
+
+	(void)putchar('#');
+	for (t = P->params; t; t = t->next)
+		if ((!not_used && t->used) || (not_used && !t->used)) {
+			l = strlen(t->param) + 1;
+			if (n + l > LINE_LEN) {
+				(void)fputs("\n#", stdout);
+				n = 2;
+			}
+			(void)putchar(' ');
+			if (*(t->param) != '+')
+				(void)putchar('+');
+			(void)fputs(t->param, stdout);
+			n += l;
+		} else
+			flag = 1;
+	if (n > 1)
+		(void)putchar('\n');
+	return flag;
+}
+	void /* print link list of projection parameters */
+pj_pr_list(PJ *P) {
+	char const *s;
+
+	(void)putchar('#');
+	for (s = P->descr; *s ; ++s) {
+		(void)putchar(*s);
+		if (*s == '\n')
+			(void)putchar('#');
+	}
+	(void)putchar('\n');
+	if (pr_list(P, 0)) {
+		(void)fputs("#--- following specified but NOT used\n", stdout);
+		(void)pr_list(P, 1);
+	}
+}
+
+/************************************************************************/
+/*                             pj_get_def()                             */
+/*                                                                      */
+/*      Returns the PROJ.4 command string that would produce this       */
+/*      definition expanded as much as possible.  For instance,         */
+/*      +init= calls and +datum= defintions would be expanded.          */
+/************************************************************************/
+
+char *pj_get_def( PJ *P, int options )
+
+{
+    paralist *t;
+    int l;
+    char *definition;
+    int  def_max = 10;
+
+    definition = (char *) pj_malloc(def_max);
+    definition[0] = '\0';
+
+    for (t = P->params; t; t = t->next)
+    {
+        /* skip unused parameters ... mostly appended defaults and stuff */
+        if (!t->used)
+            continue;
+
+        /* grow the resulting string if needed */
+        l = strlen(t->param) + 1;
+        if( strlen(definition) + l + 5 > def_max )
+        {
+            char *def2;
+
+            def_max = def_max * 2 + l + 5;
+            def2 = (char *) pj_malloc(def_max);
+            strcpy( def2, definition );
+            pj_dalloc( definition );
+            definition = def2;
+        }
+
+        /* append this parameter */
+        strcat( definition, " +" );
+        strcat( definition, t->param );
+    }
+
+    return definition;
+}