shp 0.0.1

data/ext/shp/shapelib/Makefile

@@ -0,0 +1,113 @@
+
+PREFIX	=	/usr/local
+CFLAGS	=	-g -Wall -fPIC
+#CFLAGS  =       -g -DUSE_CPL
+#CC = g++
+
+LIBOBJ	=	shpopen.o dbfopen.o safileio.o shptree.o 
+SHPBIN	=	shpcreate shpadd shpdump shprewind dbfcreate dbfadd dbfdump \
+		shptreedump 
+
+default:	all
+
+all:	$(SHPBIN) shptest lib
+
+shpopen.o:	shpopen.c shapefil.h
+	$(CC) $(CFLAGS) -c shpopen.c
+
+shptree.o:	shptree.c shapefil.h
+	$(CC) $(CFLAGS) -c shptree.c
+
+dbfopen.o:	dbfopen.c shapefil.h
+	$(CC) $(CFLAGS) -c dbfopen.c
+
+safileio.o:	safileio.c shapefil.h
+	$(CC) $(CFLAGS) -c safileio.c
+
+shpcreate:	shpcreate.c shpopen.o safileio.o 
+	$(CC) $(CFLAGS) shpcreate.c shpopen.o safileio.o $(LINKOPT) -o shpcreate
+
+shpadd:		shpadd.c shpopen.o safileio.o
+	$(CC) $(CFLAGS) shpadd.c shpopen.o safileio.o $(LINKOPT) -o shpadd
+
+shpdump:	shpdump.c shpopen.o safileio.o
+	$(CC) $(CFLAGS) shpdump.c shpopen.o safileio.o $(LINKOPT) -o shpdump
+
+shprewind:	shprewind.c shpopen.o safileio.o
+	$(CC) $(CFLAGS) shprewind.c shpopen.o safileio.o $(LINKOPT) -o shprewind
+
+dbfcreate:	dbfcreate.c dbfopen.o safileio.o
+	$(CC) $(CFLAGS) dbfcreate.c dbfopen.o safileio.o $(LINKOPT) -o dbfcreate
+
+dbfadd:		dbfadd.c dbfopen.o safileio.o
+	$(CC) $(CFLAGS) dbfadd.c dbfopen.o safileio.o $(LINKOPT) -o dbfadd
+
+dbfdump:	dbfdump.c dbfopen.o safileio.o
+	$(CC) $(CFLAGS) dbfdump.c dbfopen.o safileio.o $(LINKOPT) -o dbfdump
+
+shptest:	shptest.c shpopen.o safileio.o
+	$(CC) $(CFLAGS) shptest.c shpopen.o safileio.o $(LINKOPT) -o shptest
+
+shputils:	shputils.c shpopen.o safileio.o dbfopen.o 
+	$(CC) $(CFLAGS) shputils.c shpopen.o safileio.o dbfopen.o  $(LINKOPT) -o shputils
+
+shptreedump:	shptreedump.c shptree.o shpopen.o safileio.o
+	$(CC) $(CFLAGS) shptreedump.c shptree.o shpopen.o safileio.o $(LINKOPT) \
+		-o shptreedump
+
+clean:
+	rm -f *.o shptest $(SHPBIN) libshp.a 
+
+test:	test2 test3
+
+#
+#	Note this stream only works if example data is accessable.
+#	Fetch ftp://gdal.velocet.ca/pub/outgoing/shape_eg_data.zip
+#
+test1:
+	@./stream1.sh > s1.out
+	@if test "`diff s1.out stream1.out`" = '' ; then \
+	    echo "******* Stream 1 Succeeded *********"; \
+	    rm s1.out; \
+	else \
+	    echo "******* Stream 1 Failed *********"; \
+	    diff s1.out stream1.out; \
+	fi
+
+test2:
+	@./stream2.sh > s2.out
+	@if test "`diff s2.out stream2.out`" = '' ; then \
+	    echo "******* Stream 2 Succeeded *********"; \
+	    rm s2.out; \
+	    rm test*.s??; \
+	else \
+	    echo "******* Stream 2 Failed *********"; \
+	    diff s2.out stream2.out; \
+	fi
+
+test3:
+	@./makeshape.sh > s3.out
+	@if test "`diff s3.out stream3.out`" = '' ; then \
+	    echo "******* Stream 3 Succeeded *********"; \
+	    rm s3.out; \
+	    rm test.*; \
+	else \
+	    echo "******* Stream 3 Failed *********"; \
+	    diff s3.out stream3.out; \
+	fi
+
+
+lib:	libshp.a
+
+libshp.a:	$(LIBOBJ)
+	ar r libshp.a $(LIBOBJ)
+
+lib_install:	libshp.a
+	cp libshp.a $(PREFIX)/lib
+	cp shapefil.h $(PREFIX)/include
+
+bin_install:	$(SHPBIN)
+	cp $(SHPBIN) $(PREFIX)/bin
+
+install:	lib_install bin_install
+

data/ext/shp/shapelib/README

@@ -0,0 +1,41 @@
+
+Please read shapelib.html.
+
+Building on Unix
+----------------
+
+1) Edit Makefile, and set CFLAGS, and CC macros as required for the
+   target system.  Often the defaults will work fine.
+
+2) type "make" 
+
+The result should be:
+
+Core shapelib support.  
+  shpopen.o
+  dbfopen.o
+  safileio.o
+  shptree.o
+  libshp.a
+
+Utility/demonstration programs:
+  shpcreate, shpdump, shpadd, dbfcreate, dbfdump, dbfadd, shptreedump
+
+3) To test type:
+  make test
+
+4) To libshp.a and the test binaries in /usr/local:
+  make install 
+
+
+Building on Windows
+-------------------
+
+If you have run the VC++ VCVARS32.BAT, you should be able to type the 
+following in a command window to build the code and executables:
+
+C:>  nmake /f makefile.vc 
+
+Otherwise create your own VC++ project.  There aren't many files to deal with
+here!
+

data/ext/shp/shapelib/README.tree

@@ -0,0 +1,172 @@
+Venkat,
+
+I have completed the planned Shapefile quadtree mechanism.  The additions
+to the traditional Shapelib are found in shptree.c (functions supporting
+quad tree searching and query).  There are also some new prototypes for
+the tree stuff in shapefil.h ... including some prototypes for functions
+you don't require and hence that I haven't implemented at this time. 
+
+I have also prepared a demonstration program using the API.  That is
+the ``shpdumptree'' program, with the source code in shpdumptree.c.  The
+shpdumptree program has two functions.  One is to dump an ASCII rendering
+of the internal quadtree, and the other is example use of a quad tree
+searching function. 
+
+Dumping the Tree
+----------------
+
+The tree dumping is done as shown below.  The "-maxdepth" commandline
+switch can be used to control the maximum depth, otherwise it internally
+computes a ``reasonable depth'' to use based on the number of structures
+in the shapefile.
+
+warmerda@gdal[207]% shptreedump -maxdepth 6 eg_data/polygon.shp
+( SHPTreeNode
+  Min = (471127.19,4751545.00)
+  Max = (489292.31,4765610.50)
+  Shapes(0): 
+  ( SHPTreeNode
+    Min = (471127.19,4751545.00)
+    Max = (481118.01,4765610.50)
+    Shapes(0): 
+    ( SHPTreeNode
+      Min = (471127.19,4751545.00)
+      Max = (481118.01,4759281.03)
+      Shapes(0): 
+      ( SHPTreeNode
+        Min = (471127.19,4751545.00)
+        Max = (476622.14,4759281.03)
+        Shapes(0): 
+        ( SHPTreeNode
+          Min = (471127.19,4751545.00)
+          Max = (476622.14,4755799.81)
+          Shapes(0): 
+          ( SHPTreeNode
+            Min = (471127.19,4751545.00)
+            Max = (474149.41,4755799.81)
+            Shapes(6): 395 397 402 404 405 422 
+          )
+          ( SHPTreeNode
+            Min = (473599.92,4751545.00)
+            Max = (476622.14,4755799.81)
+            Shapes(10): 392 394 403 413 414 417 426 433 434 447 
+          )
+        )
+...
+
+A structure like the following represents one node in the tree.  In
+this case it cover the region of 473599.92 < X < 476622.14,and 
+4751545.0 < Y < 4755799.81.  There are ten shapes within this region
+who's shapeids are 392, 394 ... 447.  This node has no children nodes.
+
+          ( SHPTreeNode
+            Min = (473599.92,4751545.00)
+            Max = (476622.14,4755799.81)
+            Shapes(10): 392 394 403 413 414 417 426 433 434 447 
+          )
+
+The heirarchy of indentation is intended to show the parent, child 
+relationship between nodes, with the tree being deeper the further to the
+right you go. 
+
+The `-v' flag to the program can be used to expand the report to include
+the full information about shapes, not just their shapeid.  This can result
+in a report looking more like this:
+
+          ...
+          ( SHPTreeNode
+            Min = (478095.78,4751545.00)
+            Max = (481118.01,4755799.81)
+            Shapes(3):
+            ( Shape
+              ShapeId = 448
+              Min = (479988.09,4753300.00)
+              Max = (480705.59,4754236.50)
+              Vertex[0] = (480136.59,4754174.50)
+              Vertex[1] = (480229.97,4754182.00)
+              Vertex[2] = (480370.09,4754200.50)
+              Vertex[3] = (480695.12,4754236.50)
+              Vertex[4] = (480687.97,4754129.50)
+              Vertex[5] = (480650.47,4754075.50)
+              Vertex[6] = (480520.62,4753948.00)
+              Vertex[7] = (480490.00,4753900.00)
+              Vertex[8] = (480499.78,4753840.50)
+              Vertex[9] = (480500.97,4753820.50)
+              Vertex[10] = (480534.75,4753660.50)
+              Vertex[11] = (480560.00,4753565.00)
+              Vertex[12] = (480574.91,4753550.50)
+          ...
+
+While it is possible to part the output of the shptreedump program, and
+insert it into your database, my intention was that the shptreedump program
+would serve as an example of how to pre-order traversal of the quad tree,
+and collect the information you will need to insert into your database. 
+I would then expect you to write a new program based on shptreedump that
+calls a C API for your database to insert objects instead of printing them
+out.  Alternatively there may be an ASCII format for loading tables that
+you could modify the program to output. 
+
+Searching
+---------
+
+The other thing that you can do with the shptreedump program is to 
+perform a search on the quadtree.  For instance the following shows
+searching on a small region.
+
+% shptreedump -search 471127 4751545 476622 4759281 eg_data/polygon.shp
+Shape 17: not in area of interest, but fetched.
+Shape 31: not in area of interest, but fetched.
+Shape 52: not in area of interest, but fetched.
+Shape 76: not in area of interest, but fetched.
+Shape 82: not in area of interest, but fetched.
+Shape 104: not in area of interest, but fetched.
+Shape 124: not in area of interest, but fetched.
+Shape 134: not in area of interest, but fetched.
+Shape 139: not in area of interest, but fetched.
+Shape 154: not in area of interest, but fetched.
+Shape 175: not in area of interest, but fetched.
+Shape 177: not in area of interest, but fetched.
+Shape 185: not in area of interest, but fetched.
+Shape 192: not in area of interest, but fetched.
+Shape 196: appears to be in area of interest.
+....
+
+
+I have included this capability (and the SHPTreeFindLikelyShapes() function)
+so that you can see a working example of how to search this quad tree. 
+Note that searching is a multi-stage affair.  
+
+First a pass is made over the quadtree, collecting the shapeids of all
+shapes contained in a quadtree node for which the bounding rectangle overlaps
+the search rectangle.  This is all accomplished by SHPTreeFindLikelyShapes()
+in shptree.c. 
+
+The second phase is to fetch the actual shapes, and verify if their bounding
+box falls within the area of interest.  This is necessary because the shape 
+will tend to have a significantly smaller bounding rectangle than the tree 
+node in which it is found.  This can result ``false positives'' on the first
+phase search, as indicated by teh ``not in area of interest, but fetched''
+messages above.  This stage is done in the SHPTreeNodeSearchAndDump()
+function in shptreedump.c. 
+
+A possible third phase is to verify that the actualy line segments in the
+shape actually cross the area of interest.  I don't both with this as it
+is complicated, and assuming that the drawing engine takes care of clipping
+it is quite a bit easier to let it fall through. 
+
+Building
+--------
+
+I have added a makefile.vc to the shapelib distribution.  After you have
+unpacked the shapefile you should have a shapelib subdirectory.  If you
+cd to that directory, and enter ``nmake -f makefile.vc'' in a DOS window
+you should be able to build everything with VC++ (assuming it is properly
+installed and in your path). 
+
+You can also create a project in VC just including the files 
+shpopen.c, shptree.c and shptreedump.c, building as a Win32 console
+application. 
+
+For your convenience I am including prebuild .obj files, and .exe files
+in the distribution. 
+

data/ext/shp/shapelib/contrib/.cvsignore

@@ -0,0 +1,12 @@
+shpdxf
+dbfinfo
+shpcentrd
+shpdata
+shpwkb
+dbfcat
+shpinfo
+shpfix
+shpcat
+Shape_PointInPoly
+shpproj
+shpsort

data/ext/shp/shapelib/contrib/Makefile

@@ -0,0 +1,66 @@
+
+#LINKOPT	=	/usr/local/lib/libdbmalloc.a
+#CFLAGS	=	-g
+
+# Endian: define either _LITTLE_ENDIAN or _BIG_ENDIAN
+ENDIAN	=	-D_LITTLE_ENDIAN
+
+CFLAGS	=	-g -I.. -I$(HOME)/bld/include -DPROJ4 $(ENDIAN) -DDEBUG -DDEBUG2 
+
+SHPOBJ	=	../shpopen.o ../dbfopen.o ../safileio.o
+
+SHPGOBJ =	../shpopen.o ../dbfopen.o ../safileio.o shpgeo.o
+
+GEOOBJ	=	./shpgeo.o -lm -L$(HOME)/bld/lib -lproj
+
+default:	all
+
+all:	shpdxf shpproj dbfinfo shpcentrd shpdata shpwkb dbfinfo dbfcat shpinfo shpfix shpcat Shape_PointInPoly shpsort
+
+clean:  
+	rm -f shpdxf shpproj dbfinfo shpcentrd shpdata shpwkb dbfcat dbfinfo shpinfo shpfix shpcat *.o
+
+shpgeo.o:	shpgeo.c shpgeo.h
+	$(CC) $(CFLAGS) -c shpgeo.c
+
+shpdxf:		shpdxf.c $(SHPOBJ)
+	$(CC) $(CFLAGS) shpdxf.c ${SHPOBJ} $(LINKOPT) -o shpdxf
+
+shpcentrd:	shpcentrd.c $(SHPGOBJ)
+	$(CC) $(CFLAGS) shpcentrd.c ${SHPOBJ} $(LINKOPT) $(GEOOBJ) -o shpcentrd
+
+shpdata:	shpdata.c $(SHPGOBJ)
+	$(CC) $(CFLAGS) shpdata.c ${SHPOBJ} $(LINKOPT) $(GEOOBJ) -o shpdata
+
+shpinfo:	shpinfo.c $(SHPOBJ)
+	$(CC) $(CFLAGS) shpinfo.c ${SHPOBJ} $(LINKOPT) $(GEOOBJ) -o shpinfo
+
+shpfix:		shpfix.c $(SHPOBJ)
+	$(CC) $(CFLAGS) shpfix.c ${SHPOBJ} $(LINKOPT) -o shpfix
+
+shpcat:		shpcat.c $(SHPOBJ)
+	$(CC) $(CFLAGS) shpcat.c ${SHPOBJ} $(LINKOPT) -o shpcat
+
+shpwkb:		shpwkb.c $(SHPGOBJ)
+	$(CC) $(CFLAGS) shpwkb.c ${SHPOBJ} $(LINKOPT) $(GEOOBJ) -o shpwkb
+
+shpproj: 	shpproj.c $(SHPGOBJ)
+	$(CC) $(CFLAGS) shpproj.c  $(SHPOBJ) $(GEOOBJ) -lm -lproj $(LINKOPT) -o shpproj
+
+shpsort:		shpsort.c $(SHPOBJ)
+	$(CC) $(CFLAGS) shpsort.c ${SHPOBJ} $(LINKOPT) -lm -o shpsort
+
+dbfinfo: 	dbfinfo.c $(SHPOBJ)
+	$(CC) $(CFLAGS) dbfinfo.c $(SHPOBJ) $(LINKOPT) -o dbfinfo
+
+dbfcat:		dbfcat.c $(SHPOBJ)
+	$(CC) $(CFLAGS) dbfcat.c $(SHPOBJ) $(LINKOPT) -o dbfcat
+
+Shape_PointInPoly:	Shape_PointInPoly.cpp $(SHPOBJ)
+	$(CXX) $(CFLAGS) Shape_PointInPoly.cpp $(SHPOBJ) $(LINKOPT) \
+		-o Shape_PointInPoly
+
+check:	testproj
+
+testproj: 
+	tests/shpproj.sh

data/ext/shp/shapelib/contrib/ShapeFileII.pas

@@ -0,0 +1,234 @@
+{
+/******************************************************************************
+ * $Id: ShapeFileII.pas,v 1.3 2003-05-14 20:04:51 warmerda Exp $
+ *
+ * Project:  Shapelib
+ * Purpose:  Delphi Pascal interface to Shapelib.
+ * Author:   Kevin Meyer (Kevin@CyberTracker.co.za)
+ *
+ ******************************************************************************
+ * Copyright (c) 2002, Keven Meyer (Kevin@CyberTracker.co.za)
+ *
+ * This software is available under the following "MIT Style" license,
+ * or at the option of the licensee under the LGPL (see LICENSE.LGPL).  This
+ * option is discussed in more detail in shapelib.html.
+ *
+ * --
+ * 
+ * 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.
+ ******************************************************************************
+ *
+ * $Log: ShapeFileII.pas,v $
+ * Revision 1.3  2003-05-14 20:04:51  warmerda
+ * Changed fpSHP and fpSHX to integer at suggestion of Ivan Lucena.
+ *
+ * Revision 1.2  2002/01/21 14:09:26  warmerda
+ * Fixed name.
+ *
+ * Revision 1.1  2002/01/17 14:30:37  warmerda
+ * New
+ *
+ */
+}
+unit ShapeFileII;
+
+interface
+//uses	{ uses clause }
+//    ;
+{ Set compiler to pack on byte boundaries only }
+{$ALIGN OFF}
+{$OVERFLOWCHECKS OFF}
+{$J-}
+const
+    SHPT_NULL	 = 0;
+    SHPT_POINT	 = 1;
+    SHPT_ARC	 = 3;
+    SHPT_POLYGON	 = 5;
+    SHPT_MULTIPOINT	 = 8;
+    SHPT_POINTZ	 = 11;
+    SHPT_ARCZ	 = 13;
+    SHPT_POLYGONZ	 = 15;
+    SHPT_MULTIPOINTZ  = 18;
+    SHPT_POINTM	 = 21;
+    SHPT_ARCM	 = 23;
+    SHPT_POLYGONM	 = 25;
+    SHPT_MULTIPOINTM  = 28;
+    SHPT_MULTIPATCH  = 31;
+    XBASE_FLDHDR_SZ = 32;
+    szAccessBRW = 'rb+';
+
+// *********************** SHP support ************************
+
+type
+SHPObject = record
+    nSHPType,
+    nShapeId,
+    nParts : LongWord;
+    panPartStart,
+    panPartType : array of LongWord;
+    nVertices : LongWord;
+    padfX, padfY, padfZ, padfM : array of double;
+    dfXMin, dfYMin, dfZMin, dfMMin : double;
+    dfXMax, dfYMax, dfZMax, dfMMax : double;
+end;
+SHPObjectHandle = ^SHPObject;
+
+SHPBoundsArr = double;
+
+SHPInfo = record
+    fpSHP,
+    fpSHX : integer;
+
+    nShapeType,
+    nFileSize,
+    nRecords,
+    nMaxRecords : LongWord;
+    panRecOffset,
+    panRecSize : array of LongWord;
+    adBoundsMin, adBoundsMax : SHPBoundsArr;
+    bUpdated : LongWord;
+end;
+SHPHandle = ^SHPInfo;
+
+// *********************** DBF support ************************
+
+DBFInfo = record
+    fp : FILE;
+    nRecords,
+    nRecordLength,
+    nHeaderLength,
+    nFields : LongWord;
+
+    panFieldOffset,
+    panFieldSize,
+    panFieldDecimals : array of LongWord;
+
+    pachFieldType : LongWord;
+    pszHeader : PChar;
+    nCurrentRecord,
+    bCurrentRecordModified : LongWord;
+    pszCurrentRecord : PChar;
+
+    bNoHeader,
+    bUpdated : LongWord;
+end;
+DBFHandle = ^DBFInfo;
+
+DBFFieldType = (DBFTString,  DBFTInteger, DBFTDouble,  DBFTInvalid) ;
+
+// *********************** SHP func declarations ************************
+
+{$ALIGN ON}
+
+function SHPOpen(pszShapeFile, pszAccess : PChar) : SHPHandle;cdecl;
+procedure SHPGetInfo(hSHP : SHPHandle; var pnEntities, pnShapeType : LongWord; var padfMinBoud, padfMaxBound : SHPBoundsArr);cdecl;
+procedure SHPClose(hSHP : SHPHandle);cdecl;
+function SHPReadObject(hSHP : SHPHandle; iShape : LongWord): SHPObjectHandle;cdecl;
+function SHPCreate(pszShapeFile : PChar; nShapeType : LongWord):SHPHandle;cdecl;
+function SHPWriteObject(hSHP : SHPHandle; iShape : LongWord; psObject : SHPObjectHandle): LongWord;cdecl;
+function SHPCreateSimpleObject(nSHPType, nVertices : LongWord; var padfX, padfY, padfZ : double):SHPObjectHandle;cdecl;
+procedure SHPDestroy(psObject : SHPObjectHandle);cdecl;
+
+procedure SHPComputeExtents(psObject : SHPObjectHandle);cdecl;
+function SHPCreateObject(nSHPType, iShape, nParts : LongWord; var panPartStart, panPartType : LongWord; nVertices : LongWord; var padfX, padfY, padfZ, padfM : SHPBoundsArr): SHPObjectHandle;cdecl;
+
+function SHPTypeStr(pnShapeType : LongWord): string;
+
+// *********************** DBF func declarations ************************
+
+function DBFOpen(pszDBFFile, pszAccess : PChar): DBFHandle;cdecl;
+function DBFCreate(pszDBFFile : PChar): DBFHandle ;cdecl;
+function DBFGetFieldCount(hDBF : DBFHandle) : LongWord ;cdecl;
+function DBFGetRecordCount(hDBF : DBFHandle) : LongWord;cdecl;
+function DBFGetFieldIndex(hDBF: DBFHandle; pszFieldName : PChar): LongWord;cdecl;
+function DBFGetFieldInfo(hDBF : DBFHandle; iField : LongWord; pszFieldName : PChar;
+                              var pnWidth, pnDecimals : LongWord): DBFFieldType;cdecl;
+function DBFAddField(hDBF : DBFHandle; pszFieldName : PChar;
+                 eType : DBFFieldType; nWidth, nDecimals  : LongWord): LongWord;cdecl;
+
+function DBFReadIntegerAttribute(hDBF : DBFHandle;iShape,  iField  : LongWord ): LongWord;cdecl;
+function DBFReadDoubleAttribute(hDBF : DBFHandle; iShape,  iField  : LongWord ):double;cdecl;
+function DBFReadStringAttribute(hDBF : DBFHandle; iShape,  iField  : LongWord ) : pchar;cdecl;
+function DBFIsAttributeNULL(hDBF : DBFHandle; iShape,  iField  : LongWord ): LongWord;cdecl;
+function DBFWriteIntegerAttribute(hDBF : DBFHandle;iShape, iField, nFieldValue : LongWord): LongWord;cdecl;
+function DBFWriteDoubleAttribute(hDBF : DBFHandle;iShape, iField   : LongWord;
+                             dFieldValue : double): LongWord ;cdecl;
+function DBFWriteStringAttribute(hDBF : DBFHandle;iShape, iField   : LongWord;
+                             pszFieldValue : PChar): LongWord ;cdecl;
+function DBFWriteNULLAttribute(hDBF : DBFHandle; iShape,  iField  : LongWord ) : LongWord;cdecl;
+procedure DBFClose(hDBF : DBFHandle);cdecl;
+function DBFGetNativeFieldType(hDBF : DBFHandle;  iField : LongWord) : Char;cdecl;
+
+// *********************** SHP implementation ************************
+implementation
+// *****************************************************************************
+function SHPCreateSimpleObject(nSHPType, nVertices : LongWord; var padfX, padfY, padfZ : double):SHPObjectHandle;external 'shapelib.dll' name 'SHPCreateSimpleObject';
+function SHPOpen(pszShapeFile, pszAccess : PChar) : SHPHandle; external 'shapelib.dll' name 'SHPOpen';
+procedure SHPGetInfo(hSHP : SHPHandle; var pnEntities, pnShapeType : LongWord; var padfMinBoud, padfMaxBound : SHPBoundsArr);external 'shapelib.dll' name 'SHPGetInfo';
+procedure SHPClose(hSHP : SHPHandle);external 'shapelib.dll' name 'SHPClose';
+function SHPReadObject(hSHP : SHPHandle; iShape : LongWord) : SHPObjectHandle;external 'shapelib.dll' name 'SHPReadObject';
+function SHPCreate(pszShapeFile : PChar; nShapeType : LongWord):SHPHandle;external 'shapelib.dll' name 'SHPCreate';
+function SHPWriteObject(hSHP : SHPHandle; iShape : LongWord; psObject : SHPObjectHandle): LongWord;cdecl;external 'shapelib.dll' name 'SHPWriteObject';
+procedure SHPDestroy(psObject : SHPObjectHandle);external 'shapelib.dll' name 'SHPDestroyObject';
+procedure SHPComputeExtents(psObject : SHPObjectHandle);external 'shapelib.dll' name 'SHPComputeExtents';
+function SHPCreateObject(nSHPType, iShape, nParts : LongWord; var panPartStart, panPartType : LongWord; nVertices : LongWord; var padfX, padfY, padfZ, padfM : SHPBoundsArr): SHPObjectHandle;external 'shapelib.dll' name 'SHPCreateObject';
+// *****************************************************************************
+function SHPTypeStr(pnShapeType : LongWord): string;
+begin
+  case pnShapeType of
+    SHPT_NULL           : result := 'NULL';
+    SHPT_POINT          : result := 'POINT';
+    SHPT_ARC            : result := 'ARC';
+    SHPT_POLYGON        : result := 'POLYGON';
+    SHPT_MULTIPOINT     : result := 'MULTIPOINT';
+    SHPT_POINTZ         : result := 'POINTZ';
+    SHPT_ARCZ           : result := 'ARCZ';
+    SHPT_POLYGONZ       : result := 'POLYGONZ';
+    SHPT_MULTIPOINTZ    : result := 'MULTIPOINTZ';
+    SHPT_POINTM         : result := 'POINTM';
+    SHPT_ARCM           : result := 'ARCM';
+    SHPT_POLYGONM       : result := 'POLYGONM';
+    SHPT_MULTIPOINTM    : result := 'MULTIPOINTM';
+    SHPT_MULTIPATCH     : result := 'MULTIPATCH';
+    else
+      result := '--unknown--';
+  end;
+end;
+// *****************************************************************************
+// *****************************************************************************
+function DBFOpen(pszDBFFile, pszAccess : PChar): DBFHandle;external 'shapelib.dll';
+function DBFCreate(pszDBFFile : PChar): DBFHandle ;external 'shapelib.dll';
+function DBFGetFieldCount(hDBF : DBFHandle) : LongWord ;external 'shapelib.dll';
+function DBFGetRecordCount(hDBF : DBFHandle) : LongWord;external 'shapelib.dll';
+function DBFGetFieldIndex(hDBF: DBFHandle; pszFieldName : PChar): LongWord;external 'shapelib.dll';
+function DBFGetFieldInfo(hDBF : DBFHandle; iField : LongWord; pszFieldName : PChar; var pnWidth, pnDecimals : LongWord): DBFFieldType;external 'shapelib.dll';
+function DBFAddField(hDBF : DBFHandle; pszFieldName : PChar; eType : DBFFieldType; nWidth, nDecimals  : LongWord): LongWord;external 'shapelib.dll';
+function DBFReadIntegerAttribute(hDBF : DBFHandle;iShape,  iField  : LongWord ): LongWord;external 'shapelib.dll';
+function DBFReadDoubleAttribute(hDBF : DBFHandle; iShape,  iField  : LongWord ):double;external 'shapelib.dll';
+function DBFReadStringAttribute(hDBF : DBFHandle; iShape,  iField  : LongWord ) : pchar;external 'shapelib.dll';
+function DBFIsAttributeNULL(hDBF : DBFHandle; iShape,  iField  : LongWord ): LongWord;external 'shapelib.dll';
+function DBFWriteIntegerAttribute(hDBF : DBFHandle;iShape, iField, nFieldValue : LongWord): LongWord;external 'shapelib.dll';
+function DBFWriteDoubleAttribute(hDBF : DBFHandle;iShape, iField   : LongWord; dFieldValue : double): LongWord ;external 'shapelib.dll';
+function DBFWriteStringAttribute(hDBF : DBFHandle;iShape, iField   : LongWord; pszFieldValue : PChar): LongWord ;external 'shapelib.dll';
+function DBFWriteNULLAttribute(hDBF : DBFHandle; iShape,  iField  : LongWord ) : LongWord;external 'shapelib.dll';
+procedure DBFClose(hDBF : DBFHandle);external 'shapelib.dll';
+function DBFGetNativeFieldType(hDBF : DBFHandle;  iField : LongWord) : Char;external 'shapelib.dll';
+// *****************************************************************************
+
+end.