shp 0.0.1

data/ext/shp/shapelib/contrib/dbfcat.c

@@ -0,0 +1,166 @@
+/*
+ * Copyright (c) 1995 Frank Warmerdam
+ *
+ * This code is in the public domain.
+ *
+ * $Log: dbfcat.c,v $
+ * Revision 1.2  2011-07-24 03:17:46  fwarmerdam
+ * include string.h and stdlib.h where needed in contrib (#2146)
+ *
+ * Revision 1.1  1999-05-26 02:56:31  candrsn
+ * updates to shpdxf, dbfinfo, port from Shapelib 1.1.5 of dbfcat and shpinfo
+ *
+ * Revision 1.3  1995/10/21  03:15:01  warmerda
+ * Changed to use binary file access.
+ *
+ * Revision 1.2  1995/08/04  03:16:22  warmerda
+ * Added header.
+ *
+ */
+
+static char rcsid[] = 
+  "$Id: dbfcat.c,v 1.2 2011-07-24 03:17:46 fwarmerdam Exp $";
+
+#include <stdlib.h>
+#include <string.h>
+#include "shapefil.h"
+
+int main( int argc, char ** argv )
+
+{
+    DBFHandle	hDBF;
+    int		*panWidth, i, iRecord;
+    char	szFormat[32], szField[1024];
+    char	cTitle[32], nTitle[32];
+    int		nWidth, nDecimals;
+    int		cnWidth, cnDecimals;
+    DBFHandle	cDBF;
+    DBFFieldType	hType,cType;
+    int		ci, ciRecord;
+    char	tfile[160];
+    int		hflds, j, cflds;
+    int 	verbose				= 0;
+    int		force 				= 0;
+    int		mismatch			= 0;
+    int		matches				= 0;
+    char	fld_m[256];
+    int		shift = 0;
+    char	type_names[4][15] = {"integer", "string", "double", "double"};
+
+    if( argc < 3 )
+    {
+	printf( "dbfcat [-v] [-f] from_DBFfile to_DBFfile\n" );
+	exit( 1 );
+    }
+
+
+    if ( strcmp ("-v", argv[1] ) == 0 ) { shift = 1; verbose = 1; }
+    if ( strcmp ("-f", argv[1 + shift] ) == 0 ) { shift ++; force = 1; }
+    if ( strcmp ("-v", argv[1 + shift] ) == 0 ) { shift ++; verbose = 1; }
+    strcpy (tfile, argv[1 + shift]);
+    strcat (tfile, ".dbf"); 
+    hDBF = DBFOpen( tfile, "rb" );
+    if( hDBF == NULL )
+    {
+	printf( "DBFOpen(%s.dbf,\"r\") failed for From_DBF.\n", tfile );
+	exit( 2 );
+    }
+
+    strcpy (tfile, argv[2 + shift]);
+    strcat (tfile, ".dbf"); 
+
+    cDBF = DBFOpen( tfile, "rb+" );
+    if( cDBF == NULL )
+    {
+	printf( "DBFOpen(%s.dbf,\"rb+\") failed for To_DBF.\n", tfile );
+	exit( 2 );
+    }
+    
+    
+    if( DBFGetFieldCount(hDBF) == 0 )
+    {
+	printf( "There are no fields in this table!\n" );
+	exit( 3 );
+    }
+
+    hflds = DBFGetFieldCount(hDBF);
+    cflds = DBFGetFieldCount(cDBF);
+
+    matches = 0;
+    for( i = 0; i < hflds; i++ )
+    {
+	char		szTitle[18];
+	char		cname[18];
+	int		j;
+	hType = DBFGetFieldInfo( hDBF, i, szTitle, &nWidth, &nDecimals );
+	fld_m[i] = -1;
+        for ( j = 0; j < cflds; j ++ )
+          { 
+            cType = DBFGetFieldInfo( cDBF, j, cname, &cnWidth, &cnDecimals );
+            if ( strcmp (cname, szTitle) == 0 ) 
+	     { 
+        	if ( hType != cType ) 
+            	{ printf ("Incompatible fields %s(%s) != %s(%s),\n",
+             	   type_names[hType],nTitle,type_names[cType],cTitle);
+			mismatch = 1;
+              		}
+	        fld_m[i] = j;
+		if ( verbose ) 
+         	  { printf("%s  %s(%d,%d) <- %s  %s(%d,%d)\n", cname, type_names[cType],
+         	  		cnWidth, cnDecimals,
+         	       szTitle, type_names[hType], nWidth, nDecimals); }
+	        j = cflds;
+	        matches = 1;
+	      }
+	  }
+    }
+
+    if ( (matches == 0 ) && !force ) {
+      printf ("ERROR: No field names match for tables, cannot proceed\n   use -f to force processing using blank records\n");
+      exit(-1); }
+    if ( mismatch && !force ) {
+      printf ("ERROR: field type mismatch cannot proceed\n    use -f to force processing using attempted conversions\n");
+      exit(-1); }
+
+    for( iRecord = 0; iRecord < DBFGetRecordCount(hDBF); iRecord++ )
+    {
+      ciRecord = DBFGetRecordCount( cDBF );
+      for ( i = 0; i < hflds;i ++ )
+	{	
+	double	cf;
+	ci = fld_m[i];
+	if ( ci != -1 )
+	{
+	cType = DBFGetFieldInfo( cDBF, ci, cTitle, &cnWidth, &cnDecimals );
+	hType = DBFGetFieldInfo( hDBF, i, nTitle, &nWidth, &nDecimals );
+
+	    switch( cType )
+	    {
+	      case FTString:
+	        DBFWriteStringAttribute(cDBF, ciRecord, ci,
+     			(char *) DBFReadStringAttribute( hDBF, iRecord, i ) );
+		break;
+
+	      case FTInteger:
+	    	DBFWriteIntegerAttribute(cDBF, ciRecord, ci, 
+			(int) DBFReadIntegerAttribute( hDBF, iRecord, i ) );
+		break;
+
+	      case FTDouble:
+/*	        cf = DBFReadDoubleAttribute( hDBF, iRecord, i );
+	        printf ("%s <-  %s (%f)\n", cTitle, nTitle, cf);
+*/
+	    	DBFWriteDoubleAttribute(cDBF, ciRecord, ci, 
+			(double) DBFReadDoubleAttribute( hDBF, iRecord, i ) );
+		break;
+	    }
+	  }
+	}   /* fields names match */
+    }
+
+    if ( verbose ) { printf (" %d records appended \n\n", iRecord); }
+    DBFClose( hDBF );
+    DBFClose( cDBF );
+
+    return( 0 );
+}

data/ext/shp/shapelib/contrib/dbfinfo.c

@@ -0,0 +1,106 @@
+/*
+ * Copyright (c) 1999 Carl Anderson
+ *
+ * This code is in the public domain.
+ *
+ * This code is based in part on the earlier work of Frank Warmerdam
+ *
+ * requires shapelib 1.2
+ *   gcc dbfinfo dbfopen.o dbfinfo
+ * 
+ *
+ * $Log: dbfinfo.c,v $
+ * Revision 1.3  2011-07-24 03:17:46  fwarmerdam
+ * include string.h and stdlib.h where needed in contrib (#2146)
+ *
+ * Revision 1.2  1999-05-26 02:56:31  candrsn
+ * updates to shpdxf, dbfinfo, port from Shapelib 1.1.5 of dbfcat and shpinfo
+ *
+ * 
+ */
+
+#include <stdlib.h>
+#include <string.h>
+#include "shapefil.h"
+
+int main( int argc, char ** argv )
+
+{
+    DBFHandle	hDBF;
+    int		*panWidth, i, iRecord;
+    char	szFormat[32], szField[1024];
+    char	ftype[15], cTitle[32], nTitle[32];
+    int		nWidth, nDecimals;
+    int		cnWidth, cnDecimals;
+    DBFHandle	cDBF;
+    DBFFieldType	hType,cType;
+    int		ci, ciRecord;
+
+/* -------------------------------------------------------------------- */
+/*      Display a usage message.                                        */
+/* -------------------------------------------------------------------- */
+    if( argc != 2 )
+    {
+	printf( "dbfinfo xbase_file\n" );
+	exit( 1 );
+    }
+
+/* -------------------------------------------------------------------- */
+/*      Open the file.                                                  */
+/* -------------------------------------------------------------------- */
+    hDBF = DBFOpen( argv[1], "rb" );
+    if( hDBF == NULL )
+    {
+	printf( "DBFOpen(%s,\"r\") failed.\n", argv[1] );
+	exit( 2 );
+    }
+
+    printf ("Info for %s\n",argv[1]);
+
+/* -------------------------------------------------------------------- */
+/*	If there is no data in this file let the user know.		*/
+/* -------------------------------------------------------------------- */
+    i = DBFGetFieldCount(hDBF);
+    printf ("%ld Columns,  %ld Records in file\n",i,DBFGetRecordCount(hDBF));
+    
+/* -------------------------------------------------------------------- */
+/*	Compute offsets to use when printing each of the field 		*/
+/*	values. We make each field as wide as the field title+1, or 	*/
+/*	the field value + 1. 						*/
+/* -------------------------------------------------------------------- */
+    panWidth = (int *) malloc( DBFGetFieldCount( hDBF ) * sizeof(int) );
+
+    for( i = 0; i < DBFGetFieldCount(hDBF); i++ )
+    {
+	char		szTitle[12];
+	DBFFieldType	eType;
+
+	switch ( DBFGetFieldInfo( hDBF, i, szTitle, &nWidth, &nDecimals )) {
+	      case FTString:
+	        strcpy (ftype, "string");;
+		break;
+
+	      case FTInteger:
+	    	strcpy (ftype, "integer");
+		break;
+
+	      case FTDouble:
+	    	strcpy (ftype, "float");
+		break;
+		
+	      case FTInvalid:
+	    	strcpy (ftype, "invalid/unsupported");
+		break;
+		
+	      default:
+	      	strcpy (ftype, "unknown");
+	      	break;			
+	    }
+        printf ("%15.15s\t%15s  (%d,%d)\n",szTitle, ftype, nWidth, nDecimals);
+
+    }
+
+    DBFClose( hDBF );
+
+    return( 0 );
+}

data/ext/shp/shapelib/contrib/makefile.vc

@@ -0,0 +1,34 @@
+
+CFLAGS	=	/Ox /MD /nologo /I.. /IC:\OSGeo4W\include \
+		/D_LITTLE_ENDIAN -DPROJ4 
+
+LINKARGS =	..\shapelib_i.lib C:\OSGeo4W\lib\proj_i.lib
+
+default:	all
+
+all:	shpcat.exe shpcentrd.exe shpdxf.exe shpinfo.exe shpproj.exe
+
+shpcat.exe:	shpcat.obj shpgeo.obj 
+	$(CC) $(CFLAGS) shpcat.obj  $(LINKARGS) 
+	if exist $@.manifest mt -manifest $@.manifest -outputresource:$@;1
+
+shpcentrd.exe:	shpcentrd.obj shpgeo.obj 
+	$(CC) $(CFLAGS) shpcentrd.obj  shpgeo.obj $(LINKARGS) 
+	if exist $@.manifest mt -manifest $@.manifest -outputresource:$@;1
+
+shpproj.exe:	shpproj.obj shpgeo.obj 
+	$(CC) $(CFLAGS) shpproj.obj shpgeo.obj $(LINKARGS) 
+	if exist $@.manifest mt -manifest $@.manifest -outputresource:$@;1
+
+shpdxf.exe:	shpdxf.obj shpgeo.obj 
+	$(CC) $(CFLAGS) shpdxf.obj  $(LINKARGS) 
+	if exist $@.manifest mt -manifest $@.manifest -outputresource:$@;1
+
+shpinfo.exe:	shpinfo.obj shpgeo.obj 
+	$(CC) $(CFLAGS) shpinfo.obj  $(LINKARGS) 
+	if exist $@.manifest mt -manifest $@.manifest -outputresource:$@;1
+
+clean:
+	-del *.obj
+	-del *.exe
+	-del *.manifest

data/ext/shp/shapelib/contrib/my_nan.h

@@ -0,0 +1,46 @@
+/* `NAN' constant for IEEE 754 machines.
+   Copyright (C) 1992, 1996 Free Software Foundation, Inc.
+   This file is part of the GNU C Library.
+
+   The GNU C Library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Library General Public License as
+   published by the Free Software Foundation; either version 2 of the
+   License, or (at your option) any later version.
+
+   The GNU C Library 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
+   Library General Public License for more details.
+
+   You should have received a copy of the GNU Library General Public
+   License along with the GNU C Library; see the file COPYING.LIB.  If not,
+   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.  */
+
+#ifndef	_GNU_NAN_H
+
+#define	_GNU_NAN_H	1
+
+
+/* hacked to define NAN on Solaris 2.7 if it wasn't defined  */
+
+/* IEEE Not A Number.  */
+
+#ifdef _BIG_ENDIAN
+#  define	__nan_bytes		{ 0x7f, 0xf8, 0, 0, 0, 0, 0, 0 }
+#endif
+#ifdef _LITTLE_ENDIAN
+#  define	__nan_bytes		{ 0, 0, 0, 0, 0, 0, 0xf8, 0x7f }
+#endif
+
+#ifdef	__GNUC__
+#  define	NAN \
+  (__extension__ ((union { unsigned char __c[8];			      \
+			   double __d; })				      \
+		  { __nan_bytes }).__d)
+#else	/* Not GCC.  */
+   static const char __nan[8] = __nan_bytes;
+#  define	NAN	(*(const double *) __nan)
+#endif
+
+#endif	/* gnu_nan.h */

data/ext/shp/shapelib/contrib/shpcat.c

@@ -0,0 +1,100 @@
+/******************************************************************************
+ * Copyright (c) 1999, Carl Anderson
+ *
+ * This code is based in part on the earlier work of Frank Warmerdam
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a
+ * copy of this software and associated documentation files (the "Software"),
+ * to deal in the Software without restriction, including without limitation
+ * the rights to use, copy, modify, merge, publish, distribute, sublicense,
+ * and/or sell copies of the Software, and to permit persons to whom the
+ * Software is furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included
+ * in all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+ * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+ * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+ * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+ * DEALINGS IN THE SOFTWARE.
+ ******************************************************************************
+ *
+ *	shpcat
+ *
+ *  gcc shpcat.c ../shpopen.o -o shpcat
+ *
+ *  Utility program to concatenate two shapefiles
+ *  Must be used in concert with dbfcat
+ *
+ */
+
+#include <stdlib.h>
+#include <string.h>
+#include "shapefil.h"
+
+int dbfcat_main( int argc, char ** argv );
+
+int main( int argc, char ** argv )
+
+{
+    SHPHandle	hSHP, cSHP;
+    int		nShapeType, i, nEntities, nShpInFile;
+    SHPObject	*shape;
+
+/* -------------------------------------------------------------------- */
+/*      Display a usage message.                                        */
+/* -------------------------------------------------------------------- */
+    if( argc != 3 )
+    {
+	printf( "shpcat from_shpfile to_shpfile\n" );
+	exit( 1 );
+    }
+
+/* -------------------------------------------------------------------- */
+/*      Open the passed shapefile.                                      */
+/* -------------------------------------------------------------------- */
+    hSHP = SHPOpen( argv[1], "rb" );
+
+    if( hSHP == NULL )
+    {
+	printf( "Unable to open:%s\n", argv[1] );
+	exit( 1 );
+    }
+    
+    SHPGetInfo( hSHP, &nEntities, &nShapeType, NULL, NULL );
+    fprintf(stderr,"Opened From File %s, with %d shapes\n",argv[1],nEntities);
+
+/* -------------------------------------------------------------------- */
+/*      Open the passed shapefile.                                      */
+/* -------------------------------------------------------------------- */
+    cSHP = SHPOpen( argv[2], "rb+" );
+
+    if( cSHP == NULL )
+    {
+	printf( "Unable to open:%s\n", argv[2] );
+	exit( 1 );
+    }
+    
+    SHPGetInfo( cSHP, &nShpInFile, NULL, NULL, NULL );
+    fprintf(stderr,"Opened to file %s with %d shapes, ready to add %d\n",
+            argv[2],nShpInFile,nEntities);
+
+/* -------------------------------------------------------------------- */
+/*	Skim over the list of shapes, printing all the vertices.	*/
+/* -------------------------------------------------------------------- */
+    for( i = 0; i < nEntities; i++ )
+    {
+        shape = SHPReadObject( hSHP, i );
+        SHPWriteObject( cSHP, -1, shape );
+        SHPDestroyObject ( shape );
+
+    }
+
+    SHPClose( hSHP );
+    SHPClose( cSHP );
+
+    exit( 0 );
+}