Application: gvSIG desktop

/**

 * gvSIG. Desktop Geographic Information System.

 *

 * Copyright (C) 2007-2013 gvSIG Association.

 *

 * This program is free software; you can redistribute it and/or

 * modify it under the terms of the GNU General Public License

 * as published by the Free Software Foundation; either version 3

 * of the License, or (at your option) any later version.

 *

 * This program 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 General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,

 * MA  02110-1301, USA.

 *

 * For any additional information, do not hesitate to contact us

 * at info AT gvsig.com, or visit our website www.gvsig.com.

 */

package org.gvsig.fmap.dal.store.dbf.utils;

import java.io.File;

import java.io.IOException;

import java.io.RandomAccessFile;

import java.nio.ByteBuffer;

import java.nio.channels.FileChannel;

import java.nio.charset.Charset;

import java.text.FieldPosition;

import java.text.NumberFormat;

import java.util.Calendar;

import java.util.Date;

import java.util.Locale;

import org.gvsig.fmap.dal.exception.CloseException;

import org.gvsig.fmap.dal.exception.FileNotFoundException;

import org.gvsig.fmap.dal.exception.UnsupportedEncodingException;

import org.gvsig.fmap.dal.exception.UnsupportedVersionException;

import org.gvsig.fmap.dal.exception.WriteException;

import org.gvsig.utils.bigfile.BigByteBuffer2;

/**

 * Class to read and write data to a dbase III format file. Creation date:

 * (5/15/2001 5:15:13 PM)

 */

public class DbaseFile {

    public static final int MAX_FIELD_NAME_LENGTH = 11;

        // Header information for the DBase File

        private DbaseFileHeader myHeader;

        private File file;

        private RandomAccessFile raf;

        private FileChannel channel;

        private BigByteBuffer2 buffer;

        private FileChannel.MapMode mode;

        private FieldFormatter formatter = new FieldFormatter();

        private long posActual = -1;

        private int recordOffset;

        private ByteBuffer cachedRecord = null;

        private byte[] bytesCachedRecord = null;

        private final Number NULL_NUMBER = new Integer(0);

        private final String NULL_STRING = "";

        private final String NULL_DATE = "        ";

        private Charset chars = null;

        private Charset charsOriginal;

        private boolean isOpen = false;

        /** Utility for formatting Dbase fields. */

        public static class FieldFormatter {

                private StringBuffer buffer = new StringBuffer(255);

                private NumberFormat numFormat = NumberFormat

                                .getNumberInstance(Locale.US);

                private Calendar calendar = Calendar.getInstance(Locale.US);

                private String emtpyString;

                private static final int MAXCHARS = 255;

                public FieldFormatter() {

                        // Avoid grouping on number format

                        numFormat.setGroupingUsed(false);

                        // build a 255 white spaces string

                        StringBuffer sb = new StringBuffer(MAXCHARS);

                        sb.setLength(MAXCHARS);

                        for (int i = 0; i < MAXCHARS; i++) {

                                sb.setCharAt(i, ' ');

                        }

                        emtpyString = sb.toString();

                }

                public String getFieldString(int size, String s) {

                        buffer.replace(0, size, emtpyString);

                        buffer.setLength(size);

                        if (s != null) {

                                buffer.replace(0, size, s);

                                if (s.length() <= size) {

                                        for (int i = s.length(); i < size; i++) {

                                                buffer.append(' ');

                                        }

                                }

                        }

                        buffer.setLength(size);

                        return buffer.toString();

                }

                public String getFieldString(Date d) {

                        if (d != null) {

                                buffer.delete(0, buffer.length());

                                calendar.setTime(d);

                                int year = calendar.get(Calendar.YEAR);

                                int month = calendar.get(Calendar.MONTH) + 1; // returns 0

                                                                                                                                // based month?

                                int day = calendar.get(Calendar.DAY_OF_MONTH);

                                if (year < 1000) {

                                        if (year >= 100) {

                                                buffer.append("0");

                                        } else if (year >= 10) {

                                                buffer.append("00");

                                        } else {

                                                buffer.append("000");

                                        }

                                }

                                buffer.append(year);

                                if (month < 10) {

                                        buffer.append("0");

                                }

                                buffer.append(month);

                                if (day < 10) {

                                        buffer.append("0");

                                }

                                buffer.append(day);

                        } else {

                                buffer.setLength(8);

                                buffer.replace(0, 8, emtpyString);

                        }

                        buffer.setLength(8);

                        return buffer.toString();

                }

                public String getFieldString(int size, int decimalPlaces, Number n) {

                        buffer.delete(0, buffer.length());

                        if (n != null) {

                                numFormat.setMaximumFractionDigits(decimalPlaces);

                                numFormat.setMinimumFractionDigits(decimalPlaces);

                                numFormat.format(n, buffer, new FieldPosition(

                                                NumberFormat.INTEGER_FIELD));

                        }

                        int diff = size - buffer.length();

                        if (diff >= 0) {

                                while (diff-- > 0) {

                                        buffer.insert(0, ' ');

                                }

                        } else {

                                buffer.setLength(size);

                        }

                        return buffer.toString();

                }

        }

        public DbaseFile(File afile){

                this(afile, null);

        }

        public DbaseFile(File afile, Charset chars) {

                this.file = afile;

                this.chars = chars;

        }

        public byte getCodePage() {

                return myHeader.getLanguageID();

        }

        // Retrieve number of records in the DbaseFile

        public int getRecordCount() {

                return myHeader.getNumRecords();

        }

        /**

         * DOCUMENT ME!

         *

         * @return DOCUMENT ME!

         */

        public int getFieldCount() {

                return myHeader.getNumFields();

        }

        /**

         * DOCUMENT ME!

         *

         * @param rowIndex

         *            DOCUMENT ME!

         * @param fieldId

         *            DOCUMENT ME!

         *

         * @return DOCUMENT ME!

         */

        public boolean getBooleanFieldValue(int rowIndex, int fieldId) {

                int recordOffset = (myHeader.getRecordLength() * rowIndex)

                                + myHeader.getHeaderLength() + 1;

                // Se calcula el offset del campo

                int fieldOffset = 0;

                for (int i = 0; i < (fieldId - 1); i++) {

                        fieldOffset += myHeader.getFieldLength(i);

                }

                buffer.position(recordOffset + fieldOffset);

                char bool = (char) buffer.get();

                return ((bool == 't') || (bool == 'T') || (bool == 'Y') || (bool == 'y'));

        }

        /**

         * DOCUMENT ME!

         *

         * @param rowIndex

         *            DOCUMENT ME!

         * @param fieldId

         *            DOCUMENT ME!

         *

         * @return DOCUMENT ME!

         * @throws UnsupportedEncodingException

         */

        public String getStringFieldValue(int rowIndex, int fieldId)

                        throws UnsupportedEncodingException {

                int fieldOffset = myHeader.getFieldDescription(fieldId).myFieldDataAddress;

                byte[] data = new byte[myHeader.getFieldLength(fieldId)];

                if (rowIndex != posActual) {

                        recordOffset = (myHeader.getRecordLength() * rowIndex)

                                        + myHeader.getHeaderLength() + 1;

                        /*

                         * System.err.println("getStringFieldValue: rowIndex = " +

                         * rowIndex); System.err.println("recordOffset = " + recordOffset + "

                         * fieldOffset=" + fieldOffset);

                         */

                        buffer.position(recordOffset);

                        buffer.get(bytesCachedRecord);

                        cachedRecord = ByteBuffer.wrap(bytesCachedRecord);

                        posActual = rowIndex;

                }

                cachedRecord.position(fieldOffset);

                cachedRecord.get(data);

                try {

                        return new String(data, chars.name());

                } catch (java.io.UnsupportedEncodingException e) {

                        throw new UnsupportedEncodingException(

                                        e);

                }

        }

        public void setFieldValue(int rowIndex, int fieldId, Object obj) throws UnsupportedEncodingException, WriteException {

                try{

                        int fieldOffset = myHeader.getFieldDescription(fieldId).myFieldDataAddress;

                        String str = fieldString(obj, fieldId);

                        byte[] data = new byte[myHeader.getFieldLength(fieldId)];

                        recordOffset = (myHeader.getRecordLength() * rowIndex)

                                        + myHeader.getHeaderLength() + 1;

                        ByteBuffer aux = ByteBuffer.wrap(data);

                        aux.put(str.getBytes(chars.name()));

//                        raf.seek(recordOffset + fieldOffset);

//                        raf.writeBytes(str);

                        aux.flip();

//                        int numBytesWritten = channel.write(aux, recordOffset + fieldOffset);

                        channel.write(aux, recordOffset + fieldOffset);

                        //channel.force(true);

                }catch (java.io.UnsupportedEncodingException e) {

                        throw new UnsupportedEncodingException(e);

                }catch (IOException e) {

                        throw new WriteException("DBF",e);

                }

        }

        /**

         * Retrieve the name of the given column.

         *

         * @param inIndex

         *            DOCUMENT ME!

         *

         * @return DOCUMENT ME!

         */

        public String getFieldName(int inIndex) {

                return myHeader.getFieldName(inIndex).trim();

        }

        /**

         * Retrieve the type of the given column.

         *

         * @param inIndex

         *            DOCUMENT ME!

         *

         * @return DOCUMENT ME!

         */

        public char getFieldType(int inIndex) {

                return myHeader.getFieldType(inIndex);

        }

        /**

         * Retrieve the length of the given column.

         *

         * @param inIndex

         *            DOCUMENT ME!

         *

         * @return DOCUMENT ME!

         */

        public int getFieldLength(int inIndex) {

                return myHeader.getFieldLength(inIndex);

        }

        /*

         * Retrieve the value of the given column as string.

         *

         * @param idField DOCUMENT ME! @param idRecord DOCUMENT ME!

         *

         * @return DOCUMENT ME!

         *

         * public Object getFieldValue(int idField, long idRecord) throws

         * IOException { Object[] tmpReg = getRecord(idRecord); return

         * tmpReg[idField]; }

         */

        /*

         * DOCUMENT ME!

         *

         * @param idField DOCUMENT ME! @param idRecord DOCUMENT ME!

         *

         * @return DOCUMENT ME!

         *

         * public double getFieldValueAsDouble(int idField, int idRecord) throws

         * IOException { Object[] tmpReg = getRecord(idRecord); return (double)

         * Double.parseDouble(tmpReg[idField].toString()); }

         */

        /**

         * Retrieve the location of the decimal point.

         *

         * @param inIndex

         *            DOCUMENT ME!

         *

         * @return DOCUMENT ME!

         */

        public int getFieldDecimalLength(int inIndex) {

                return myHeader.getFieldDecimalCount(inIndex);

        }

        /**

         * read the DBF file into memory.

         *

         * @param file

         *            DOCUMENT ME!

         * @throws FileNotFoundException

         * @throws UnsupportedVersionException

         * @throws IOException

         *

         * @throws IOException

         *             DOCUMENT ME!

         */

        public void open() throws FileNotFoundException,

                        UnsupportedVersionException, IOException {

                /*

                 * 01h DOS USA code page 437 02h DOS Multilingual code page 850 03h

                 * Windows ANSI code page 1252 04h Standard Macintosh 64h EE MS-DOS code

                 * page 852 65h Nordic MS-DOS code page 865 66h Russian MS-DOS code page

                 * 866 67h Icelandic MS-DOS 68h Kamenicky (Czech) MS-DOS 69h Mazovia

                 * (Polish) MS-DOS 6Ah Greek MS-DOS (437G) 6Bh Turkish MS-DOS 96h

                 * Russian Macintosh 97h Eastern European Macintosh 98h Greek Macintosh

                 * C8h Windows EE code page 1250 C9h Russian Windows CAh Turkish Windows

                 * CBh Greek Windows

                 */

                if (!file.exists()) {

                        throw new FileNotFoundException(file);

                }

//                if (file.canWrite()) {

//                        try {

//                                raf = new RandomAccessFile(file, "rw");

//                                mode = FileChannel.MapMode.READ_WRITE;

//                        } catch (java.io.FileNotFoundException e) {

//                                raf = new RandomAccessFile(file, "r");

//                                mode = FileChannel.MapMode.READ_ONLY;

//                        }

//                } else {

                        raf = new RandomAccessFile(file, "r");

                        mode = FileChannel.MapMode.READ_ONLY;

//                }

                channel = raf.getChannel();

                // buffer = channel.map(FileChannel.MapMode.READ_ONLY, 0,

                // channel.size());

                buffer = new BigByteBuffer2(channel, mode);

                // create the header to contain the header information.

                myHeader = new DbaseFileHeader();

                if (chars == null) {

                        myHeader.readHeader(buffer, null);

                } else {

                        myHeader.readHeader(buffer, chars.name());

                }

                charsOriginal = Charset.forName(myHeader.mappingEncoding(myHeader.getCharsetName()));

                if (chars == null) {

                        chars = charsOriginal;

                }

                bytesCachedRecord = new byte[myHeader.getRecordLength()];

                this.isOpen = true;

        }

        /**

         * Removes all data from the dataset

         * @throws CloseException

         *

         * @throws IOException

         *             DOCUMENT ME!

         */

        public void close() throws CloseException {

                try{

                raf.close();

                channel.close();

                buffer = null;

                posActual=-1;

                myHeader = null;

                }catch (Exception e) {

                        throw new CloseException("DBF",e);

                }

                this.isOpen = false;

        }

        public FileChannel getWriteChannel() {

                return channel;

        }

        private String fieldString(Object obj, final int col) {

                String o;

                final int fieldLen = myHeader.getFieldLength(col);

                switch (myHeader.getFieldType(col)) {

                case 'C':

                case 'c':

                        o = formatter.getFieldString(fieldLen, (obj == null) ? NULL_STRING

                                        : ((String) obj));

                        break;

                case 'L':

                case 'l':

                        o = (obj == null) ? "F"

                                        : ((Boolean) obj).booleanValue() == true ? "T" : "F";

                        break;

                case 'M':

                case 'G':

                        o = formatter.getFieldString(fieldLen, (obj == null) ? NULL_STRING

                                        : ((String) obj));

                        break;

                case 'N':

                case 'n':

                case 'F':

                case 'f':

                        Number number = null;

                        if (obj == null) {

                                number = NULL_NUMBER;

                        } else {

                                Number gVal = (Number) obj;

                                number = new Double(gVal.doubleValue());

                        }

                        o = formatter.getFieldString(fieldLen, myHeader

                                        .getFieldDecimalCount(col), number);

                        break;

                case 'D':

                case 'd':

                        if (obj == null) {

                                o = NULL_DATE;

                        } else {

                                o = formatter.getFieldString(((Date) obj));

                        }

                        break;

                default:

                        throw new RuntimeException("Unknown type "

                                        + myHeader.getFieldType(col));

                }

                return o;

        }

        public boolean isOpen() {

                return this.isOpen;

        }

        public int getFieldIndex(String name) {

                return myHeader.getFieldIndex(name);

        }

        public Charset getCurrenCharset() {

                return chars;

        }

        public Charset getOriginalCharset() {

                return charsOriginal;

        }

        public void setCharset(Charset chars) {

                this.chars = chars;

        }

}