Subversion Repositories svn1-original

    /*

    **  Now use basic function

    */

    return open_printer_name (pname, width, html, title );

}

/*----------------------------------------------------------------------------

 * FUNCTION           : open_printer_name

 *

 * DESCRIPTION        : Open a printer with a known name

 *

 *      This function is called to open the printer and prepare to print

 *

 *  Parameters:

 *      pname       Name of print file

 *      width       Width of the printed file

 *      html        Printing in HTML mode

 *

 *  Returns:

 *      TRUE if the printer can be attached

 *

 *

 *  Note: Use an "htm" file extension as DOS cannot handle 4 letter extensions

----------------------------------------------------------------------------*/

bool open_printer_name( char *pname, int width, bool html, char *title )

{

 *  Print to to the printer

 *

 *  Purpose:

 *      This function is called to do print data on the printer

 *

 *  Assume:

 *      One CSV field per print

 *      New lines are at the end of a line printed. This does allow for

 *      a single new-line.

 *

 *

 *  Parameters:

 *      Standard printf type parameters

 *

 *  Returns:

 *      TRUE : Operation was succesful

 *

 *========================================================================*/

int csv_print( char *format, ... )

{

    va_list     ap;

    char        pp[200];

    int         len;

    bool        eol = FALSE;

    va_start( ap, format );

    len = vsprintf( pp, format, ap );

    va_end( ap );

    /*

    **  Detect the end of a line and flag for later processing

    */

    if ( len > 0 && pp[len - 1] == '\n' )

    {

        len--;

        eol = TRUE;

    }

    if ( ! eol )

    {

        if ( print_col )

            fwrite( ",", 1, 1, pfile );

        fwrite( "\"", 1, 1, pfile );

        fwrite( pp, 1, len, pfile );

        print_col += len;

        fwrite( "\"", 1, 1, pfile );

    }

    /*

    **  Perform End of Line operation before printing the final newline

    */

    if ( eol )

    {

        print_line++;

        print_col = 0;

        /*

        **  Now print the final newline

        */

        fwrite( "\n", 1, 1, pfile );

        len ++;

    }

    return ( len );

}

/*========================================================================

 *

    if ( !title )

        return;