From ee3ec9dba47a7ee705b776e9323e072c0b7f0653 Mon Sep 17 00:00:00 2001
From: Kristian Evers <kristianevers@gmail.com>
Date: Wed, 5 Jul 2017 12:53:19 +0200
Subject: Respect -r flag when calling proj with -V. Fixes #184.

---
 src/proj.c | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/proj.c b/src/proj.c
index 8734d2ce..b05e0669 100644
--- a/src/proj.c
+++ b/src/proj.c
@@ -156,7 +156,7 @@ process(FILE *fid) {
 	static void	/* file processing function --- verbosely */
 vprocess(FILE *fid) {
 	char line[MAX_LINE+3], *s, pline[40];
-	projUV dat_ll, dat_xy;
+	projUV dat_ll, dat_xy, temp;
 	int linvers;
 
 	if (!oform)
@@ -198,6 +198,12 @@ vprocess(FILE *fid) {
 				continue;
 			}
 			if (prescale) { dat_xy.u *= fscale; dat_xy.v *= fscale; }
+			if (reversein) {
+				temp.u = dat_xy.u;
+				temp.v = dat_xy.v;
+				dat_xy.u = temp.v;
+				dat_xy.v = temp.u;
+			}
 			dat_ll = pj_inv(dat_xy, Proj);
 		} else {
 			dat_ll.u = dmstor(s, &s);
@@ -206,6 +212,12 @@ vprocess(FILE *fid) {
 				emess(-1,"lon-lat input conversion failure\n");
 				continue;
 			}
+			if (reversein) {
+				temp.u = dat_ll.u;
+				temp.v = dat_ll.v;
+				dat_ll.u = temp.v;
+				dat_ll.v = temp.u;
+			}
 			dat_xy = pj_fwd(dat_ll, Proj);
 			if (postscale) { dat_xy.u *= fscale; dat_xy.v *= fscale; }
 		}
-- 
cgit v1.2.3