#include "Stdio.h"
#include "Conio.h"
#include "Dos.h"
#include "Stdlib.h"
#include "String.h"
#include "Time.h"

unsigned char state;
char ch,string;
FILE *fp;

void Send_km() /*發送字符函數*/
{
  char send,choose;
loop: clrscr();
  printf("\n\n");
  printf("     *******************  Welcome!  *******************\n\n");
  printf("     Please end the characters with 'Esc'!\n\n");
  printf("     Please input the characters you want to send :\n\n");
  printf("     ");
  while(1)
  {
    state=inportb(0x3fd); /*取得發送狀態寄存器狀態*/
    if(kbhit)             /*有鍵按下*/
      send=getch();
    if(send=='\r')        /*遇到回車符就換行顯示*/
      send='\n';
    putchar(send);
    if((state&0x20)!=0)   /*測試發送保持寄存器是否為空*/
    {
      if(send=='\x1B')    /*結束符號Esc*/
      {
        outportb(0x3f8,send);   /*向發送保持寄存器寫一字節數據*/
        printf("\n\n     Do you see the Characters on the other computer? (y/n)\n");
        /*scanf("%c",&choose);*/
        choose=getch();
        if(choose=='y')
          return;
        if(choose=='n')
          goto  loop;
      }
      outportb(0x3f8,send);
    }
  }
  /*getch();*/
}

void Receive_km()   /* 接 收 字符函數*/
{
  char receive,choose;
loop:  clrscr();
  printf("\n\n");
  printf("     *******************  Welcome!  *******************\n\n");
  printf("     The received Characters are:\n\n");
  printf("      ");
  while(1)
  {
    state=inportb(0x3fd); /*取得 接 收  狀態寄存器狀態*/
    if((state&0x01)!=0)   /*測試是否接 收到數據*/
    {
      receive=inportb(0x3f8);   /*讀取接 收  狀態寄存器的數據*/
      if(receive=='\x1B')       /*結束符號Esc*/
      {
        printf("\n\n   End receive characters!");
        printf("\n\n   Do you see the characters? (y/n)\n");
        choose=getch();
        if(choose=='y')
          return;
        if(choose=='n')
          goto  loop;
      }
      putchar(receive);
    }
  }
  /*getch();*/
}

void Send_File()    /*發送文件函數*/
{
  int i=0;
  char fname[20];
  clrscr();
  printf("\n\n");
  printf("     *******************  Welcome!  *******************\n\n");
  printf("     Please Input the file name then Press 'Enter':\n\n");
  printf("     ");
  scanf("%s",fname);
  if((fp=fopen(fname,"rb"))==NULL)  /*出錯判斷:無法讀取文件*/
  {
    printf("\n\n     Can't open the file,Please press any key to exit!\n");
    printf("      ");
    getch();
    return;
  }
  while(fname[i]!='\0')    /*發送文件名*/
  {
    state=inportb(0x3fd); /*取得發送狀態寄存器狀態*/
    if((state&0x20)!=0)   /*測試發送保持寄存器是否為空*/
    {
      outportb(0x3f8,fname[i]);
      i++;
    }
  }
  outportb(0x3f8,'#');   /*文件名發送結束符號*/
  do
  {
    state=inportb(0x3fd)&0x01;
  }while(state==0);
  string=inportb(0x3f8);
  if(string!='#')
    printf("\n\n   #ERROR! the file you sent name is wrong!\n");
  printf("\n\n   ......Sending......\n");
  ch=fgetc(fp);   /*取字符*/
  while(ch!=EOF)  /*若不是文件尾則繼續*/
  {
    do
    {
      state=inportb(0x3fd)&0x20;
    }while(state==0);
    outportb(0x3f8,ch);
    ch=fgetc(fp);
  }
  outportb(0x3f8,'\x1B');  /*文件發送完畢符號*/
  fclose(fp);     /*關閉文件*/
  printf("\n   Send file finish!...Press any key to exit!\n\n");
  getch();
  return;
}

Receive_File()      /*接收文件函數*/
{
  int j=0;
  char  fname[20];
  clrscr();
  printf("\n\n");
  printf("     *******************  Welcome!  *******************\n\n");
  printf("     The file name received is: \n\n");
  printf("      ");
  do
  {
    state=inportb(0x3fd)&0x01;
  }while(state==0);
  string=inportb(0x3f8);
  while(string!='#')       /*接受文件名*/
  {

    printf("%c",string);
    fname[j]=string;
    j++;
    do
    {
      state=inportb(0x3fd)&0x01;
    }while(state==0);
    string=inportb(0x3f8);
  }
  fname[j]='\0';
  remove(fname);    /*替換相同文件名文件*/
  fp=fopen(fname,"wb");
  if(fp==NULL)       /*文件建立失敗*/
  {
    printf("\n\n   Can't save the file,Please Press any key to exit!\n");
    printf("      ");
    getch();
    return;
  }
  outportb(0x3f8,'#');
  printf("\n\n\n   ......Receiving......\n");
  do
  {
    state=inportb(0x3fd)&0x01;
  }while(state==0);
  ch=inportb(0x3f8);
  while(ch!='\x1B')
  {
    fputc(ch,fp);
    do
    {
      state=inportb(0x3fd)&0x01;
    }while(state==0);
    ch=inportb(0x3f8);
  }
  fclose(fp);     /*關閉文件*/
  printf("\n   Receive file finish!...Press any key to exit!\n\n");
  getch();
  return;
}

void Initial() /*8250初始化*/
{
  outportb(0x3fb,0x80); /*將線路控制寄存器的DLAB位設為1,設置分頻值*/
  outportb(0x3f8,0x0c); /*將波特率設為9600 */
  outportb(0x3f9,0x00);
  outportb(0x3fb,0x0f); /*奇校驗,2位停止位,8位數據位*/
  outportb(0x3f9,0x0f); /*允許所有中斷*/
  outportb(0x3fc,0x0f); /*設置零MODEN衡有效狀態*/
}

void Mainface()  /*菜單*/
{
  clrscr();
  printf("\n\n");
  printf("     *******************  Welcome!  *******************\n\n");
  printf("   * Operation\n\n");
  printf("   1) Send the keyboard characters     ,Please press '1': \n\n");
  printf("   2) Receive the keyboard characters  ,Please press '2': \n\n");
  printf("   3) Send the file                    ,Please press '3': \n\n");
  printf("   4) Receive the file                 ,Please press '4': \n\n");
  printf("   5} Exit                             ,Please press '5': \n\n");
  printf("   ======================================================\n\n");
  printf("   Please choose the operation:  ");
}

int main(void)
{
  int operate;
  Initial();
  while(1)
  {
    Mainface();
    scanf("%d",&operate);
    switch(operate)
    {
      case 1: Send_km();break;         /*傳送字符*/
      case 2: Receive_km();break;      /*接收字符*/
      case 3: Send_File();break;       /*傳送文件*/
      case 4: Receive_File();break;    /*接收文件*/
      case 5: exit(0);break;
      default: break;
    }
    /*break;*/
  }
  getch();
  return 0;
}