DBFCreateLL()

DBFHandle SHPAPI_CALL DBFCreateLL	(	const char *	pszFilename,
		const char *	pszCodePage,
		SAHooks *	psHooks
	)

Definition at line 644 of file dbfopen.c.

{
        DBFHandle psDBF;
        SAFile fp;
        char *pszFullname, *pszBasename;
        int i, ldid = -1;
        char chZero = '\0';
 
        /* -------------------------------------------------------------------- */
        /*      Compute the base (layer) name.  If there is any extension       */
        /*      on the passed in filename we will strip it off.                 */
        /* -------------------------------------------------------------------- */
        pszBasename = (char *)malloc(strlen(pszFilename) + 5);
        strcpy(pszBasename, pszFilename);
        for (i = strlen(pszBasename) - 1;
             i > 0 && pszBasename[i] != '.' && pszBasename[i] != '/' && pszBasename[i] != '\\';
             i--)
        {}
 
        if (pszBasename[i] == '.')
                pszBasename[i] = '\0';
 
        pszFullname = (char *)malloc(strlen(pszBasename) + 5);
        sprintf(pszFullname, "%s.dbf", pszBasename);
 
        /* -------------------------------------------------------------------- */
        /*      Create the file.                                                */
        /* -------------------------------------------------------------------- */
        fp = psHooks->FOpen(pszFullname, "wb");
        if (fp == NULL)
        {
                free(pszBasename);
                free(pszFullname);
                return (NULL);
        }
 
        psHooks->FWrite(&chZero, 1, 1, fp);
        psHooks->FClose(fp);
 
        fp = psHooks->FOpen(pszFullname, "rb+");
        if (fp == NULL)
        {
                free(pszBasename);
                free(pszFullname);
                return (NULL);
        }
 
        sprintf(pszFullname, "%s.cpg", pszBasename);
        if (pszCodePage != NULL)
        {
                if (strncmp(pszCodePage, "LDID/", 5) == 0)
                {
                        ldid = atoi(pszCodePage + 5);
                        if (ldid > 255)
                                ldid = -1; /* don't use 0 to indicate out of range as LDID/0 is a valid one */
                }
                if (ldid < 0)
                {
                        SAFile fpCPG = psHooks->FOpen(pszFullname, "w");
                        psHooks->FWrite((char *)pszCodePage, strlen(pszCodePage), 1, fpCPG);
                        psHooks->FClose(fpCPG);
                }
        }
        if (pszCodePage == NULL || ldid >= 0)
        {
                psHooks->Remove(pszFullname);
        }
 
        free(pszBasename);
        free(pszFullname);
 
        /* -------------------------------------------------------------------- */
        /*      Create the info structure.                                      */
        /* -------------------------------------------------------------------- */
        psDBF = (DBFHandle)calloc(1, sizeof(DBFInfo));
 
        memcpy(&(psDBF->sHooks), psHooks, sizeof(SAHooks));
        psDBF->fp = fp;
        psDBF->nRecords = 0;
        psDBF->nFields = 0;
        psDBF->nRecordLength = 1;
        psDBF->nHeaderLength = 33;
 
        psDBF->panFieldOffset = NULL;
        psDBF->panFieldSize = NULL;
        psDBF->panFieldDecimals = NULL;
        psDBF->pachFieldType = NULL;
        psDBF->pszHeader = NULL;
 
        psDBF->nCurrentRecord = -1;
        psDBF->bCurrentRecordModified = FALSE;
        psDBF->pszCurrentRecord = NULL;
 
        psDBF->bNoHeader = TRUE;
 
        psDBF->iLanguageDriver = ldid > 0 ? ldid : 0;
        psDBF->pszCodePage = NULL;
        if (pszCodePage)
        {
                psDBF->pszCodePage = (char *)malloc(strlen(pszCodePage) + 1);
                strcpy(psDBF->pszCodePage, pszCodePage);
        }
 
        return (psDBF);
}

References FALSE, SAHooks::FClose, SAHooks::FOpen, free(), SAHooks::FWrite, malloc(), SAHooks::Remove, and TRUE.

Referenced by DBFCreateEx().

Here is the call graph for this function:

Here is the caller graph for this function: