printer.c

Go to the documentation of this file.

 
#include "user_config.h"
 
#include "defines.h"
 
#include "drives.h"
 
#include "gpib_hal.h"
#include "gpib.h"
#include "gpib_task.h"
#include "printer.h"
#include "posix.h"
#include "delay.h"
#include "debug.h"
 
PRINTERStateType plot = { 0 };
 
uint8_t plot_str[] = { 0x3f, 0x5f, 0x47, 0x21 };
 
 
void printer_open(char *name)
{
 
    char *ptr;
 
    if(!name)
    {
        time_t seconds;
        tm_t *tc;
        ts_t ts;
        char fname[64];
 
        clock_gettime(0, (ts_t *) &ts);
        seconds = ts.tv_sec;
        tc = gmtime(&seconds);
        sprintf(fname,"/plot-%02d%s%04d-%02d%02d%02d.plt",
            tc->tm_mday,
            tm_mon_to_ascii(tc->tm_mon),
            tc->tm_year + 1900,
            tc->tm_hour,
            tc->tm_min,
            tc->tm_sec);
        ptr = fname;
    }
    else
    {
        ptr = name;
    }
 
    if(debuglevel & GPIB_DEVICE_STATE_MESSAGES)
        printf("Capturing plot to:%s\n", ptr);
 
    plot.fp = fopen(ptr,"wb");
    if(plot.fp == NULL)
    {
        if(debuglevel & (GPIB_ERR + GPIB_DEVICE_STATE_MESSAGES))
        {
            perror("open failed");
            printf("exiting...\n");
        }
        return;
    }
 
    plot.buf = calloc(512+1,1);
    if(plot.buf == NULL)
        printer_close();
    plot.size = 512;
}
 
 
 
void printer_init()
{
    plot.error = 0;
    plot.count = 0;
    plot.ind = 0;
    plot.fp = NULL;
    plot.buf = NULL;
}
 
 
void printer_close()
{
    if( receive_plot_flush() < 0 )
        plot.error = 1;
 
    if(debuglevel & (GPIB_ERR + GPIB_DEVICE_STATE_MESSAGES))
    {
        if(plot.error)
            printf("ERROR durring write\n");
    }
 
    if(plot.fp)
    {
        fclose(plot.fp);
        if(debuglevel & GPIB_DEVICE_STATE_MESSAGES)
            printf("\nDONE: %08ld\n",plot.count);
    }
 
    if(plot.buf)
        safefree(plot.buf);
    printer_init();
}
 
 
 
int receive_plot_flush()
{
    int ret;
    int fno;
 
    if(plot.fp == NULL || plot.ind == 0)
        return(0);
 
    ret  = fwrite(plot.buf, 1, plot.ind , plot.fp);
    if(ret != plot.ind)
    {
        if(debuglevel & (GPIB_ERR + GPIB_DEVICE_STATE_MESSAGES))
        {
            perror("receive_plot_flush");
            printf("write failed: wanted %d, got:%d\n", plot.ind, ret);
        }
        return(-1);
    }
 
    fno = fileno( plot.fp );
    if(fno < 0)
        return(-1);
    syncfs( fno );
    return (ret);
}
 
 
void printer_buffer( uint16_t val )
{
 
    uint16_t ch;
 
    if(debuglevel & (GPIB_ERR + GPIB_DEVICE_STATE_MESSAGES))
    {
        if( ( plot.count & 255L ) == 0)
            printf("%08ld\r",plot.count);
    }
 
    ch = val & 0xff;
    if(val & (0xff00 & ~REN_FLAG))
    {
        if( receive_plot_flush() )
            plot.error = 1;
 
//fprintf(plot.fp,"%s\n", ptr);
//plot.count += strlen(ptr);
    }
    else
    {
        ch  = val & 0xff;
        plot.buf[plot.ind++] = ch;
        plot.count++;
 
        if(plot.ind >= plot.size)
        {
            if( receive_plot_flush() < 0 )
                plot.error = 1;
            plot.ind  = 0;
        }
    }
}
 
 
 
int PRINTER_COMMANDS(uint8_t ch)
{
 
// We could, for example, use secondaries to set file names, etc
// We don not use them yet
    if(PRINTER_is_MLA(listening))
    {
#if SDEBUG
        if(debuglevel & GPIB_DEVICE_STATE_MESSAGES)
            printf("[SC PRINTER Listen: %02XH]\n",  0xff & ch );
#endif
        return(0);
    }
 
    if(PRINTER_is_MTA(talking))
    {
#if SDEBUG
        if(debuglevel & GPIB_DEVICE_STATE_MESSAGES)
            printf("[SC PRINTER Talk: %02XH]\n",  0xff & ch );
#endif
        return(0);
    }
    return(0);
}