/****************************************************************************
 * csv.c
 ****************************************************************************
 * dbf Reader and Converter for dBASE files
 * Implementation
 *
 * Author: Bjoern Berg <clergyman@gmx.de>
 * Modifications: Uwe Steinmann <uwe@steinmann.cx>
 *
 ****************************************************************************
 * Functions to write CSV files
 ****************************************************************************
 * History:
 * $Log: csv.c,v $
 * Revision 1.12  2003/11/12 08:50:32  steinm
 * - simplyfied the masking of the separator char within a value of a field
 * - fixed the masking. The separator char is masked with another separator char
 *
 * Revision 1.11  2003/11/12 07:51:02  steinm
 * - put variable declaration at start of function because some older
 *   gcc can handle it otherwise
 *
 * Revision 1.10  2003/11/11 15:12:03  rollin_hand
 * solved the problem with header in writeCSVLine
 *
 * Revision 1.9  2003/11/11 14:44:52  rollin_hand
 * added cast operation for douple qoutes
 *
 * Revision 1.8  2003/11/11 11:29:21  steinm
 * - added fold marks
 * - clean up header of file
 * - removed csv keyword id: because the info ist part of log:
 *
 * Revision 1.7  2003/11/11 11:23:50  steinm
 * - cut line to less than 80 charssrc/csv.c
 * - added cvs keywords log: and id:
 *
 ***************************************************************************/

#include "csv.h"

/* CSVFileType describes the type the converted file is of: (C)SV or (T)SV */
static char CSVFileType = 'C';
static char CSVSeparator = ',';
static char CSVEnclosure = '"';
static int CSVTableStructure = 1;

/* setCSVSep() {{{
 * allows to change the separator used for CSV output
 */
int
setCSVSep(FILE *fp, const struct DB_FIELD * /*const*/ header,
    int header_length, const char *in /* __unused */, const char *separator)
{		
	if ( separator[1] && separator[0] != 't' ) {
		fprintf(stderr, "Separator ``%s'' is too long -- must be a single character\n",
		    separator);
		return 1;
	} else if ( separator[0] == 't' ) {			
		CSVSeparator = '\t';
		CSVFileType = 'T';						
	} else {
		CSVSeparator = separator[0];	
	}	
	return 0;
}
/* }}} */

/* writeCSVHeader() {{{
 * creates the CSV Header with the information provided by DB_FIELD
 */
int
writeCSVHeader (FILE *fp, const struct DB_FIELD * header,
    int header_length,
    const char *in /* __unused */, const char *out /* __unused */)
{
	while (--header_length) {
		header++;
		if(CSVTableStructure && CSVSeparator == ',')
			fputs("\"", fp);
		fprintf(fp, "%s", header->field_name);
		/*if(CSVTableStructure) {
			fprintf(fp, ",%c", header->field_type);
			switch(header->field_type) {
				case 'C':
					fprintf(fp, ",%d", header->field_length);
					break;
				case 'N':
					fprintf(fp, ",%d,%d", header->field_length, header->field_decimals);
					break;
			}
		}*/
		if(CSVTableStructure && CSVSeparator == ',')
			fputs("\"", fp);
		if(header_length > 1)
			putc(CSVSeparator, fp);
	}
	fputs("\n", fp);

	return 0;
}
/* }}} */

/* writeCSVLine {{{
 * creates a line in the CSV document for each data set
 */
int
writeCSVLine(FILE *fp, const struct DB_FIELD * header,
    const unsigned char *value, int header_length,
    const char *in /* unused */, const char *out /* unused */)
{

	while (--header_length)
	{
		const unsigned char *begin, *end;
		int isstring, isfloat;

		header++;
		
		if ( header->field_length <= 0 )
			continue;

		isstring = header->field_type == 'M' || header->field_type == 'C';
		isfloat = header->field_type == 'F' || ( header->field_type == 'B' && dbversion == VisualFoxPro) ? 1 : 0;
		
		begin = value;
		value += header->field_length;
		end = value - 1;

		/*
		 * addded to keep to CSV standard:
		 * Text fields must be enclosed by quotation marks
		 * - berg, 2003-09-08
		 */
		if ( isstring && CSVFileType == 'C' )
			putc(CSVEnclosure, fp);
		
		while (*begin == ' ' && begin != end)
			begin++;
			
		if (*begin != ' ') {
			
			while (*end == ' ')
				end--;
			
			/* This routine must be verified in several tests */
			if (isfloat) {
				char *fmt = malloc(20);
				sprintf(fmt, "%%%d.%df", header->field_length, header->field_decimals);
				fprintf(fp, fmt, *(double *)begin);
				begin += header->field_length;
			} else {
				do {
					/* mask enclosure char */
					if(*begin == CSVEnclosure) {
							putc(CSVEnclosure, fp);
					}				
					putc(*begin, fp);
				} while (begin++ != end);
			}	
		}

		if ( isstring && CSVFileType == 'C')
			putc(CSVEnclosure, fp);

		if(header_length > 1)
			putc(CSVSeparator, fp);
	}
	fputs("\n", fp);

	return 0;
}
/* }}} */