added pj_is_geocent, added +pm support to pj_get_def

git-svn-id: http://svn.osgeo.org/metacrs/proj/trunk@1052 4e78687f-474d-0410-85f9-8d5e500ac6b2

1 files changed, 20 insertions, 0 deletions

diff --git a/src/pj_utils.c b/src/pj_utils.c
index d0fed2b9..a3293b61 100644
--- a/src/pj_utils.c
+++ b/src/pj_utils.c
@@ -29,6 +29,9 @@
  ******************************************************************************
  *
  * $Log$
+ * Revision 1.3  2002/12/14 20:14:00  warmerda
+ * added pj_is_geocent, added +pm support to pj_get_def
+ *
  * Revision 1.2  2002/04/30 17:01:51  warmerda
  * Removed printf() statement.
  *
@@ -57,6 +60,18 @@ int pj_is_latlong( PJ *pj )
 }
 
 /************************************************************************/
+/*                           pj_is_geocent()                            */
+/*                                                                      */
+/*      Returns TRUE if this coordinate system object is geocentric.    */
+/************************************************************************/
+
+int pj_is_geocent( PJ *pj )
+
+{
+    return pj != NULL && pj->is_geocent;
+}
+
+/************************************************************************/
 /*                        pj_latlong_from_proj()                        */
 /*                                                                      */
 /*      Return a PJ* definition defining the lat/long coordinate        */
@@ -147,6 +162,11 @@ PJ *pj_latlong_from_proj( PJ *pj_in )
         sprintf( defn+strlen(defn), " +R_lat_g=%s", 
                  pj_param(pj_in->params,"sR_lat_g").s );
 
+    /* copy over prime meridian */
+    if( pj_param(pj_in->params, "tpm").i )
+        sprintf( defn+strlen(defn), " +pm=%s", 
+                 pj_param(pj_in->params,"spm").s );
+
     return pj_init_plus( defn );
 }