// for ltp02-245
// 203 dpi, 384dots in 48mm(1.88976inch) every dots == 0.125mm, 1byte==8dots==1mm
// make clean && make && ./*.elf 
//#include <SPI.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdint.h> 
#include <string.h>
#include <fcntl.h>
#include <sys/stat.h>
#include <unistd.h>
#include <stdarg.h>

#include <wiringPi.h>

#include "logo.h"

#include "pcf_5x7-ISO8859-1_5x7.h"
#include "pcf_6x12-ISO8859-1_6x12.h"
#include "pcf_7x14-ISO8859-1_7x14.h"

#include "ttf_Px437_PS2thin1_8x16.h"
#include "ttf_Px437_PS2thin2_8x16.h"

#include "config.h"
#include "utils.h"
#include "printer.h"

#include "ftype.h"
#include <math.h>

SerialCache ser_cache;

uint8_t cmd[10];
uint8_t cmd_idx;

uint8_t newline;
char buf[2];

unsigned long time;

ImageCache img_cache;

FONT current_font;

FT_Face face;

FT_Library ft;

CONFIG g_config;

TimeRec battery_chk_tm;

int printf_out(CONFIG*cfg, char *format, ...) {
   va_list args;
   int rv;

   va_start(args, format);
   if(cfg->fp != NULL)
   	rv = vfprintf(cfg->fp, format, args);
   else {
   	rv = -1;
   }
   va_end(args);

   return rv;
}

//void printer_set_font(CONFIG*cfg,uint8_t fnbits);
//void parse_serial_stream(CONFIG*cfg,uint8_t input_ch);

void reset_cmd(){
  cmd_idx = 0;
  ser_cache.idx=0;
  g_config.state = PRINT_STATE;
}

void init_printer(){
  char *error = NULL;
  memset(cmd,0,10);

  newline = 0;
  cmd_idx = 0;

  img_cache.idx=0;
  img_cache.num=0;
  img_cache.width=0;
  
  img_cache.need_print=0;
  img_cache.revert_bits = 0;

/*
  current_font.width=5; current_font.height=7; current_font.data = font_pcf_5x7_ISO8859_1_5x7; 
  current_font.width=6;current_font.height=12; current_font.data = font_pcf_6x12_ISO8859_1_6x12;
  current_font.width=7; current_font.height=14; current_font.data = font_pcf_7x14_ISO8859_1_7x14;

  //current_font.width=8;current_font.height=16; current_font.data= font_ttf_Px437_ISO8_8x16;
  //current_font.width=8;current_font.height=16; current_font.data= font_ttf_Px437_ISO9_8x16;
  
  current_font.width=8;current_font.height=16; current_font.data= font_ttf_Px437_PS2thin2_8x16;
*/
  current_font.width = 16;
  current_font.height = 16;
  current_font.data= font_ttf_Px437_PS2thin1_8x16;
  current_font.file = "NotoSansCJK-Regular.ttf";
  current_font.mode = 1;
  
  ser_cache.idx=0;
  ser_cache.utf8idx = 0;
  
  if( init_ft(current_font.file, &face,&ft,current_font.width,current_font.height,&error)) {
    g_config.face = face;
    g_config.ft   = ft;
  }else {
    g_config.face = NULL;
    g_config.ft   = NULL;
  }
  
  g_config.line_space=0;
  g_config.align = ALIGN_LEFT;
  g_config.reverse = 0;
  
  g_config.margin.width = 0;
  g_config.margin.esgs = 0; 
  
  g_config.orient = FORWARD;

  g_config.wordgap = 0;

  g_config.font = &current_font;
  
  g_config.under_line = 0;

  g_config.state = PRINT_STATE;

  g_config.img = &img_cache;
  g_config.density = 6;

  g_config.feed_pitch = 2;
  g_config.max_pts = 2;
  g_config.lock = 0;
  
  
  battery_chk_tm.time = millis();
  battery_chk_tm.last_status = 0;
  battery_chk_tm.check = 0;
}

const  char url[]  ={"Powered by clockworkpi.com"};

void label_print_f(CONFIG*cfg,char*label,float m,char*last){
  char buf[48];
  uint8_t i,j;

  
  if(m == -1.0)
    sprintf(buf,"%s",last);
  else
    sprintf(buf,"%0.2f%s",m,last);
  
  j = strlen(buf);
  i = 48-strlen(label)-j-1; 

  if(m == -1.0)
    sprintf(buf,"%s%*s%s",label,i,"",last);
  else
    sprintf(buf,"%s%*s%0.2f%s",label,i,"",m,last);
  
  
  printer_set_font(cfg,4);
  reset_cmd();

  for(i=0;i<strlen(buf);i++){
    parse_serial_stream(cfg,buf[i]);
  }
  parse_serial_stream(cfg,10);
  reset_cmd();  

  
}

void label_print_i(CONFIG*cfg,char*label,int m,char*last){
  char buf[MAXPIXELS];
  uint8_t i,j;

  if(m == -1)
    sprintf(buf,"%s",last);
  else
    sprintf(buf,"%d%s",m,last);
  
  j = strlen(buf);
  i = MAXPIXELS-strlen(label)-j-1; 

  if(m == -1)
    sprintf(buf,"%s%*s%s",label,i,"",last);
  else
    sprintf(buf,"%s%*s%d%s",label,i,"",m,last);
  
  printer_set_font(cfg,4);
  reset_cmd();

  for(i=0;i<strlen(buf);i++){
    parse_serial_stream(cfg,buf[i]);
  }
  parse_serial_stream(cfg,10);
  reset_cmd();  

  
}

void printer_test(CONFIG*cfg){

  uint8_t i,j;
  uint8_t ch;
  uint16_t k;
  
  char buf[MAXPIXELS];  
  char *font_names[]={"8x16thin_1","5x7_ISO8859_1","6x12_ISO8859_1","7x14_ISO8859_1","8x16thin_2",NULL};

  /*
  char *selftest1[] = {
"          _  __   _            _   ",
" ___  ___| |/ _| | |_ ___  ___| |_ ",
"/ __|/ _ \\ | |_  | __/ _ \\/ __| __|",
"\\__ \\  __/ |  _| | ||  __/\\__ \\ |_ ",
"|___/\\___|_|_|    \\__\\___||___/\\__|",
NULL
  };
*/
  char *selftest2[] = {
" ####   ######  #       ######   #####  ######   ####    #####",
"#       #       #       #          #    #       #          # ",
" ####   #####   #       #####      #    #####    ####      # ",
"     #  #       #       #          #    #            #     # ",  
"#    #  #       #       #          #    #       #    #     # ",
" ####   ######  ######  #          #    ######   ####      # ",
NULL
};
  
  
  cfg->density = 6;
  
  k = (os120_width/8)*os120_height;
  memcpy(cfg->img->cache,os120_bits,k);
  cfg->img->width = os120_width/8;
  cfg->img->num = k;
  cfg->img->revert_bits=1;
  cfg->align = ALIGN_CENTER;
  print_image8(cfg);
  
  cfg->img->revert_bits=0;
  cfg->align = ALIGN_LEFT;
  feed_pitch1(15,cfg->orient);

  cfg->align = ALIGN_CENTER;
  /* //selftest1
  for(i=0;i<5;i++){
    printer_set_font(cfg,0);
    reset_cmd();
    for(j=0;j<strlen(selftest1[i]);j++){  
      parse_serial_stream(cfg,selftest1[i][j]);      
    }
    parse_serial_stream(cfg,10); 
  }
  */
  
  for(i=0;i<6;i++){
    printer_set_font_mode(cfg,FONT_MODE_0);
    printer_set_font(cfg,1);
    reset_cmd();
    
    for(j=0;j<strlen(selftest2[i]);j++){  
      parse_serial_stream(cfg,selftest2[i][j]);      
    }
    parse_serial_stream(cfg,10); 
  }
  cfg->align = ALIGN_LEFT;
  
  feed_pitch1(32,cfg->orient);

//---------------------------------------------     

  for(i=1;i<4;i++){
    printer_set_font_mode(cfg,FONT_MODE_0);
    printer_set_font(cfg,0);
    reset_cmd();
    for(j=0;j<strlen(font_names[i]);j++){
      
      parse_serial_stream(cfg,font_names[i][j]);      
    }
    parse_serial_stream(cfg,10);

    printer_set_font_mode(cfg,FONT_MODE_0);
    printer_set_font(cfg,i);
    reset_cmd();
    for(ch = 33;ch<127;ch++){
      parse_serial_stream(cfg,ch);      
      //Serial.print(ch,DEC);
    }
    parse_serial_stream(cfg,10);
    //Serial.println();
    feed_pitch1(48,cfg->orient);
  }

  printer_set_font_mode(cfg,FONT_MODE_0);
  printer_set_font(cfg,0);
  reset_cmd();
  for(j=0;j<strlen(font_names[0]);j++){    
    parse_serial_stream(cfg,font_names[0][j]);      
  }  
  parse_serial_stream(cfg,10);

  printer_set_font_mode(cfg,FONT_MODE_0);
  printer_set_font(cfg,0);
  reset_cmd();
  for(ch = 33;ch<127;ch++){
    parse_serial_stream(cfg,ch);      
    //Serial.print(ch,DEC);
  }
  parse_serial_stream(cfg,10);
  //Serial.println();
  feed_pitch1(48,cfg->orient);

  printer_set_font_mode(cfg,FONT_MODE_0);
  printer_set_font(cfg,0);
  reset_cmd();
  for(j=0;j<strlen(font_names[0]);j++){    
    parse_serial_stream(cfg,font_names[4][j]);      
  }  
  parse_serial_stream(cfg,10);

  printer_set_font_mode(cfg,FONT_MODE_0);
  printer_set_font(cfg,4);
  reset_cmd();
  for(ch = 33;ch<127;ch++){
    parse_serial_stream(cfg,ch);      
    //Serial.print(ch,DEC);
  }
  parse_serial_stream(cfg,10);
  //Serial.println();
  feed_pitch1(28,cfg->orient);

//-------------------------------------------

  k = temperature();
  label_print_i(cfg,"Temperature:",k," C");
//--------------------------------------------------------

  label_print_i(cfg,"Darkness setting:",cfg->density," (Light 0-15 Dark)");
  
  label_print_i(cfg,"Paper width:",-1,"58mm");
  label_print_i(cfg,"Print width:",-1,"48mm");
  
  label_print_i(cfg,"Baudrate:",115200,"");
  label_print_i(cfg,"Data bits:",8,"");
  label_print_i(cfg,"Stop bits:",1,"");
//------------------------------------------  

//------------------------------------------  
  label_print_f(cfg,"Firmware version:",0.1,"");
    
  feed_pitch1(cfg->font->height,cfg->orient);
//--------------------------------------------------------------
  printer_set_font_mode(cfg,FONT_MODE_0);
  printer_set_font(cfg,0);
  reset_cmd();
 
  //Serial.println(strlen(url),DEC);
  for(i=0;i<strlen(url);i++){
    parse_serial_stream(cfg,url[i]);
    
  }
  parse_serial_stream(cfg,10);
  reset_cmd();


//-----------------------------------
//grid
/*
  for(ch = 0;ch <16;ch++){
    if(ch%2==0)
      j = 0xff;
    else
      j = 0x00; 
         
    for(k=0;k<8;k++){
      for(i=0;i<48;i++){
        if(i % 2==0) {
          buf[i]=j;
        }else{
          buf[i]=0xff-j;
        }
      }  
      print_dots_8bit_split(cfg,(uint8_t*)buf,48);
    }
  }
*/
//--------------------------------------------------------
  feed_pitch1(cfg->font->height*2,cfg->orient);
  
}

void printer_set_font_mode(CONFIG*cfg, int mode){
  cfg->font->mode = mode;
  return;
}
void printer_set_font(CONFIG*cfg,uint8_t fnbits){
      uint8_t ret;
      ret =  MID(fnbits,0,3);

      if(cfg->font->mode == 0) {
        if(ret==0) {
          cfg->font->width = 8 ;
          cfg->font->height = 16;
          cfg->font->data = font_ttf_Px437_PS2thin1_8x16;
        }
        
        if(ret==1){
          cfg->font->width = 5;
          cfg->font->height = 7;
          cfg->font->data = font_pcf_5x7_ISO8859_1_5x7;
        }
        
        if(ret==2){
          cfg->font->width = 6;
          cfg->font->height = 12;
          cfg->font->data = font_pcf_6x12_ISO8859_1_6x12;
        }
        
        if(ret==3){
          cfg->font->width = 7;
          cfg->font->height = 14;
          cfg->font->data = font_pcf_7x14_ISO8859_1_7x14;
        }
        
        if(ret == 4){
          cfg->font->width = 8 ;
          cfg->font->height = 16;
          cfg->font->data = font_ttf_Px437_PS2thin2_8x16;
        }
      }
      
      if(cfg->font->mode == 1 ){
        cfg->font->width = 16;
        cfg->font->height = 16;
        
      }
      
}

void parse_cmd(CONFIG*cfg,uint8_t *cmd, uint8_t cmdidx){
  
  uint8_t ret;

  
  if(cmdidx >1){
    //ESC 2
    if(cmd[0] == ASCII_ESC && cmd[1] == 0x32){
      cfg->line_space = cfg->font->height+8;
      reset_cmd();
    }

    //ESC @
    if(cmd[0] == ASCII_ESC && cmd[1] == 0x40){
      init_printer();
      reset_cmd();
      
    }
    //DC2 T  printer test page
    if(cmd[0] == ASCII_DC2 && cmd[1] == 0x54){
      reset_cmd();
      printer_test(cfg);
      
    }
  }
  
  if(cmdidx > 2){
     //ESC j n
     if(cmd[0] == ASCII_ESC && cmd[1] == 0x4a){
        
        if( print_lines8(cfg) == 0) { feed_pitch1(cmd[2],cfg->orient); }
        reset_cmd();
     }
     //ESC d n
     if(cmd[0] == ASCII_ESC && cmd[1] == 0x64){
        
        if( print_lines8(cfg) == 0) { feed_pitch1(cmd[2]*cfg->font->height,cfg->orient); }
        reset_cmd();
     }
     //ESC ! n
     if(cmd[0] == ASCII_ESC && cmd[1] == 0x21){
        printer_set_font(cfg,cmd[2]);
        reset_cmd();
     }

     //ESC 3 n
     if(cmd[0] == ASCII_ESC && cmd[1] == 0x33){
        cfg->line_space = cmd[2];
        reset_cmd();
     }
     
     // ESC v n 
     if(cmd[0] == ASCII_ESC && cmd[1] == 0x76){
       if(temperature() > 70){
        ret |= 1 << 6;
       }
       if ( (IsPaper() & NO_PAPER) > 0 ) {
        ret |= 1 << 2;
       }
			 // 1<< 3 == power error
			 
       cfg->printf(cfg,"%d",ret);
       reset_cmd();
       return;
     }
     //ESC a n
     if(cmd[0] == ASCII_ESC && cmd[1] == 0x61){
        ret = cmd[2];
        if(ret == 0 || ret == 48){
          cfg->align = ALIGN_LEFT;
        }
        if(ret == 1 || ret == 49){
          cfg->align = ALIGN_CENTER;
        }
        if(ret == 2 || ret == 50){
          cfg->align = ALIGN_RIGHT;
        }
        
        reset_cmd();
     }
     //ESC - n 
     if(cmd[0] == ASCII_ESC && cmd[1] == 0x2d){
        ret = cmd[2];
        if(ret == 0 || ret == 48){
          cfg->under_line =0;
        }
        if(ret == 1 || ret == 49){
          cfg->under_line = 1;
        }
        if(ret == 2 || ret == 50){
          cfg->under_line = 2;
        }
        
        reset_cmd();     
      
     }

     //ESC SP n
     if(cmd[0] == ASCII_ESC && cmd[1] == 0x20){
        ret = cmd[2];
        if( ret + cfg->margin.width <MAX_DOTS){
          cfg->wordgap = ret;
        }
        reset_cmd();
        return;
     }

     //DC2 # n
     if(cmd[0] == ASCII_DC2 && cmd[1] == 0x23){
        ret = cmd[2];
        cfg->density = ret;
        reset_cmd();
     }


     //GS V \0 or GS V \1
     if(cmd[0] == ASCII_GS && cmd[1] == 0x56){
        
        ret = cmd[2];
        reset_cmd();//When using parse_serial_stream function internally, reset_cmd() first
        
        print_cut_line(cfg);
        
        return;
     }
     
  }

  if(cmdidx > 3){
    //GS L nL nH
    if(cmd[0] == ASCII_GS && cmd[1] == 0x4c){
      uint16_t k;
      k = cmd[2]+cmd[3]*256;
      if (k < MAX_DOTS - cfg->font->width){
        cfg->margin.width = k;
      }

      reset_cmd();
    }
    
  }

  if(cmdidx > 4){
    /*
    if(cmd[0] == ASCII_ESC && cmd[1] == 0x2a){
      if( cmd[2] == 0 || cmd[2] == 1){
        uint16_t k;
        k = cmd[3] + 256*cmd[4];
        if(k<= IMAGE_MAX){
          cfg->state = GET_IMAGE;
          cfg->img->num = k;
          cfg->img->idx = 0;
        }
      }
      
      reset_cmd();
    }
    */
  }

  if(cmdidx > 7){
    // GS v 0 p wL wH hL hH d1…dk 
    if(cmd[0] == ASCII_GS && cmd[1] == 118 && cmd[2] == 48 ) {
       uint16_t width = cmd[4] + cmd[5]*256;
       uint16_t height = cmd[6]+cmd[7]*256;
       uint16_t k;
       k = width * height;
       if(k<= IMAGE_MAX){
        cfg->state = GET_IMAGE;
        cfg->img->num = k;
        cfg->img->idx = 0;
        cfg->img->width = width;
        cfg->img->need_print=1;

       }
       // do not reset_cmd()
       cmd_idx = 0;
       ser_cache.idx=0;
       
    }
  }
  
}

void parse_serial_stream(CONFIG*cfg,uint8_t input_ch){
  uint16_t a;
  uint8_t bskip;
  
    if(cfg->state == GET_IMAGE){
      cfg->img->cache[cfg->img->idx] = input_ch;
      cfg->img->idx++;
      if(cfg->img->idx >= cfg->img->num){//image full 
        if(cfg->img->need_print==1){
          print_image8(cfg);
        }
        reset_cmd();
        cfg->state = PRINT_STATE;
      }
    }else if(cfg->state ==  ESC_STATE) { 
      cmd[cmd_idx] = input_ch;
      cmd_idx++;
      if(cmd_idx < 10){
        parse_cmd(cfg,cmd,cmd_idx);
      }else{
        reset_cmd();
      }
    }else{ //PRINT_STATE
      switch(input_ch){
        case ASCII_LF:
          if(ser_cache.idx == 0){
           feed_pitch1(cfg->font->height,cfg->orient);
          }
          print_lines8(cfg);
          reset_cmd();
        break;
        case ASCII_FF:
          print_lines8(cfg);
          reset_cmd();
        break;
        case ASCII_DC2:
          cmd[cmd_idx] = input_ch;
          cfg->state = ESC_STATE;
          cmd_idx++;
          break;          
        case ASCII_GS: 
          cmd[cmd_idx] = input_ch;
          cfg->state = ESC_STATE;
          cmd_idx++;
          break;        
        case ASCII_ESC:
          cmd[cmd_idx] = input_ch;
          cfg->state = ESC_STATE;
          cmd_idx++;
          break;
        default:
          if(input_ch < 128) {
            ser_cache.data[ser_cache.idx]=input_ch;
            ser_cache.idx++;
          }else {//utf8 
            //10xxxxxx bskip == 1
            bskip = get_slice_len(input_ch);
            
            if(bskip == 1) {
              //append this to int32_t [8:8:8:8] 0xffffffff 4294967295 
              ser_cache.data[ser_cache.idx] |= input_ch << (8 * (ser_cache.utf8idx));
              if( ser_cache.utf8idx == get_slice_len( ser_cache.data[ser_cache.idx] & 0xff) -1 ) {
                ser_cache.idx++;
                ser_cache.utf8idx=0;//next character
              }else {
                ser_cache.utf8idx++;
              }
            }
            
            if(bskip > 1) {
              ser_cache.utf8idx =1;
              ser_cache.data[ser_cache.idx] = input_ch;
            }
          
          }
          //read utf8 codename
          //
          a = (ser_cache.idx+1)*current_font.width+(ser_cache.idx)*0+ g_config.margin.width;          
          if( a >= MAX_DOTS)//got enough points to print
          {
            print_lines8(cfg);
            reset_cmd();
          }
        break;  
      }
    }
  
}

/* Virtual serial port created by socat
  socat -d -d pty,link=/tmp/DEVTERM_PRINTER_OUT,raw,echo=0 pty,link=/tmp/DEVTERM_PRINTER_IN,raw,echo=0
*/

int read_bat_cap(CONFIG*cfg) {
  long ret;
  char c[12];
  FILE *fptr;
  if ((fptr = fopen(BAT_CAP, "r")) == NULL) {
    PRINTF("Error! Battery File cannot be opened\n");
    // Program exits if the file pointer returns NULL.
    return -1;
  }

  fscanf(fptr, "%[^\n]", c);
  //printf("Data from the file:%s\n", c);
  fclose(fptr);

  ret = strtol(c, NULL, 10);  
  
  return (int)ret;
  
}

int bat_cap_to_pts(CONFIG*cfg,int bat) {
  int pts;
  
  pts = (int)round( (float)bat/10.0 ) + 1;
  return pts;
}


void print_lowpower(CONFIG*cfg) {
  
  int i;
  char*msg = "Low Power,please charge";

  reset_cmd();

  printer_set_font(cfg,4);

  for(i=0;i<strlen(msg);i++) {
    parse_serial_stream(cfg,msg[i]);

  }
  parse_serial_stream(cfg,10);
  reset_cmd();

  for(i=0;i<strlen(msg);i++) {
    parse_serial_stream(cfg,msg[i]);

  }
  parse_serial_stream(cfg,10);
  reset_cmd();

  feed_pitch1(128,cfg->orient);
  printer_set_font(cfg,0);

  PRINTF("%s\n",msg);

}

int check_battery(CONFIG*cfg){

  int bat_cap;
  
  bat_cap = 0;
  
  if(  millis() - battery_chk_tm.time > 200) {
    
    bat_cap = read_bat_cap(cfg);
    
    if( bat_cap < 0){
      cfg->max_pts = 1;//no battery ,so set to the slowest
      cfg->lock = 0;// unlock printer anyway
      PRINTF("no battery,slowest printing\n");
    }
    
    if(bat_cap >=0 && bat_cap <= BAT_THRESHOLD) {
      
      if(cfg->lock == 0) {
        print_lowpower(cfg);
        
      }
      cfg->lock =1;
      PRINTF("printer locked\n");
      reset_cmd(); // clear all serial_cache
    }else {
      
      cfg->max_pts = bat_cap_to_pts(cfg,bat_cap);
      
      cfg->lock = 0;
    }
    
    battery_chk_tm.time = millis();
    
  }
  
  if(cfg->lock == 1) {
    reset_cmd();
  }

  return 0;

}

#define FIFO_FILE "/tmp/DEVTERM_PRINTER_OUT"

void loop() {
  
  /*
  if (Serial.available() > 0) {
    // read the incoming byte
    Serial.readBytes(buf,1);
    parse_serial_stream(&g_config,buf[0]);
  }
  */
  
  FILE*fp=NULL;
  char readbuf[2];
    
  while(1) {
    fp = NULL;
    fp = fopen(FIFO_FILE,"r+b");
    if (fp != NULL) {
     	g_config.fp = fp; 
      while(1)
      {
        fread(readbuf,1, 1,fp);
        check_battery(&g_config);
        
        if(g_config.lock ==0) {
          //printf("read %x",readbuf[0]);
          if(g_config.state ==  PRINT_STATE) {
        	  if(readbuf[0] == ASCII_TAB) {
        		  readbuf[0] = ' ';
        		  parse_serial_stream(&g_config,readbuf[0]);
	        	  parse_serial_stream(&g_config,readbuf[0]);
	      	  } else {//not a tab
	        	  parse_serial_stream(&g_config,readbuf[0]);
	      	  }
	        } else { //g_config.state == PRINT_STATE
	      	  parse_serial_stream(&g_config,readbuf[0]);
	        }
        }
      }
      fclose(fp);
      g_config.fp = NULL;
    }
    
    sleep(1);
  }
//------------------------------------------  
  //printer_test(&g_config);
  
}

void setup() {
  
  wiringPiSetupGpio();
  header_init();
  header_init1();
 
  clear_printer_buffer();
  
  //Serial.begin(115200); 

  init_printer();

 	g_config.printf = &printf_out;

}

int main(int argc,char**argv) {
	
	
	setup();
	loop();
	
}