root/lang/ruby/first_ci/Shape.cpp @ 1980

#include <stdio.h>
#include <malloc.h>
#include "Shape.h"

Shape::Shape(void)
{
        mBaseName = NULL;
        memset(&mSHPFHeader, 0, sizeof(mSHPFHeader));
}

Shape::~Shape(void)
{
        clearBaseName();
}

es_error_t Shape::readFromFile(const TCHAR* filename)
{
        es_error_t rv = ESHP_OK;

        storeBaseName(filename);

        TCHAR* actualName = (TCHAR*)malloc(sizeof(TCHAR) * (_tcslen(filename) + 5));
        _tcscpy(actualName, filename);

        size_t orgLen = _tcslen(actualName);
        _tcscpy(actualName + orgLen, ".shp");
        if ((rv = readMainFile(actualName)) == ESHP_OK)
        {
                _tcscpy(actualName + orgLen, ".shx");
                _tcscpy(actualName + orgLen, ".dbf");
        }

        free(actualName);

        return rv;
}

es_error_t Shape::readMainFile(const TCHAR* filename)
{
        FILE* fp = fopen(filename, "rb");
        if (NULL == fp)
                return ESHP_CANNOTOPEN;

        _tprintf(_T("%s\n"), filename);

        mSHPFHeader.filecode   = freadBig32(fp);
        mSHPFHeader.rsv1       = freadBig32(fp);
        mSHPFHeader.rsv2       = freadBig32(fp);
        mSHPFHeader.rsv3       = freadBig32(fp);
        mSHPFHeader.rsv4       = freadBig32(fp);
        mSHPFHeader.rsv5       = freadBig32(fp);
        mSHPFHeader.filelength = freadBig32(fp);

        mSHPFHeader.version    = freadLittle32(fp);
        mSHPFHeader.shapetype  = freadLittle32(fp);

        _tprintf(_T("%d\n"), mSHPFHeader.filecode);
        _tprintf(_T("%d\n"), mSHPFHeader.rsv1);
        _tprintf(_T("%d\n"), mSHPFHeader.rsv2);
        _tprintf(_T("%d\n"), mSHPFHeader.rsv3);
        _tprintf(_T("%d\n"), mSHPFHeader.rsv4);
        _tprintf(_T("%d\n"), mSHPFHeader.rsv5);
        _tprintf(_T("%d\n"), mSHPFHeader.filelength);
        _tprintf(_T("%d\n"), mSHPFHeader.version);
        _tprintf(_T("%d\n"), mSHPFHeader.shapetype);

        fclose(fp);

        return ESHP_OK;
}

void Shape::clearBaseName()
{
        if (mBaseName)
        {
                free(mBaseName);
                mBaseName = NULL;
        }
}

void Shape::storeBaseName(const TCHAR* baseName)
{
        clearBaseName();
        mBaseName = _tcsdup(baseName);
}

ESInt32 Shape::freadBig32(FILE* fp)
{
        ESInt32 i;
        fread(&i, sizeof(ESInt32), 1, fp);
        return (i>>24) | ((i>>8)&0xff00) | ((i<<8)&0xff0000) | (i<<24);
}

ESInt32 Shape::freadLittle32(FILE* fp)
{
        ESInt32 i;
        fread(&i, sizeof(ESInt32), 1, fp);
        return i;
}

void* c_Shape_new()
{return new Shape();}

void c_Shape_delete(void* pThis)
{delete (Shape*)pThis;}

es_error_t c_Shape_readFromFile(void* pThis, const TCHAR* filename)
{return ((Shape*)pThis)->readFromFile(filename);}