FTP server with FatFS

#include "header.h"

#define num_of_ftp_file 10
FIL     fsrc[num_of_ftp_file];
BOOL    FILE_inuse[num_of_ftp_file]={__FALSE};

void *ftp_fopen (U8 *fname, U8 *mode) {//done by ali
        FRESULT res;
        U8 cnt;
        FILE *ret;
        for(cnt=0;cnt<num_of_ftp_file;cnt++){
                if (FILE_inuse[cnt]==__FALSE){
                        break;
                }
        }
        if (cnt==num_of_ftp_file) return NULL;

        printf("fopen");
        if (mode[0]=='r'){
                res = f_open(&fsrc[cnt], (char *)fname+1, FA_OPEN_EXISTING | FA_READ);
                printf("\tr%d> %s\r\n",res,(char *)fname);
        }
        else if (mode[0]=='w'){
                res = f_open(&fsrc[cnt], (char *)fname+1, FA_CREATE_NEW | FA_WRITE);
                printf("\tw%d> %s\r\n",res,(char *)fname);
        }
        else if (mode[0]=='a'){
                res = f_open(&fsrc[cnt], (char *)fname+1, FA_OPEN_ALWAYS);
                printf("\ta%d> %s\r\n",res,(char *)fname);
        }
        else
                return NULL;

        if (res!=FR_OK)
                return NULL;

        printf("file no:%d\r\n",cnt);
        FILE_inuse[cnt]=__TRUE;
        ret->handle=cnt;
        return (ret);
}

void ftp_fclose (void *file) {//done by ali
        FILE *fno=(FILE *)file;
        int no=fno->handle;
        FILE_inuse[no]=__FALSE;
        printf("file closed:%d\r\n",no);
        f_close(&fsrc[no]);
}

U16 ftp_fread (void *file, U8 *buf, U16 len) {//done by ali
        FILE *fno=(FILE *)file;
        int no=fno->handle;
        U32 res;
        f_read (&fsrc[no], buf,len,&res);
        return res;
}

U16 ftp_fwrite (void *file, U8 *buf, U16 len) {
        FILE *fno=(FILE *)file;
        int no=fno->handle;
        U32 res;
        f_write(&fsrc[no], buf, len, &res);
        f_sync(&fsrc[no]);
        return res;
}

BOOL ftp_fdelete (U8 *fname) {//done by ali
  printf("file deleted:%s\r\n",(char *)fname);
  if (f_unlink ((char *)fname) == FR_OK) {
    return (__TRUE);
  }
  return (__FALSE);
}

BOOL ftp_frename (U8 *fname, U8 *newn) {//done by ali
  /* Rename a file, return __TRUE on success. */

  if (f_rename((char *)fname, (char *)newn) == FR_OK) {
    return (__TRUE);
  }
  return (__FALSE);
}


DIR Dir;
static FILINFO Finfo;
U8 getdir=0;

U16 ftp_ffind (U8 code, U8 *buf, U8 *mask, U16 buflen) {
  U32 rlen,v;
  U8 *tp;

  char *ptr="0:";
  volatile FRESULT res;
  if (getdir==0){
    res = f_opendir(&Dir, ptr);
    getdir=1;
  }

  printf("code:%d\r\n",code);
  if (code < 4) {
    res = f_opendir(&Dir, ptr);
  }

  rlen = 0;
next:
        res=f_readdir(&Dir, &Finfo);

        printf("%s\r\n",Finfo.fname);

    if ((res != FR_OK) || !Finfo.fname[0]) return 0;
    if (Finfo.fname[0] == '.') {
      if ((Finfo.fname[1] == 0) || (Finfo.fname[1] == '.' && Finfo.fname[2]) == 0) {
        /* Ignore the '.' and '..' folders. */
        goto next;
      }
    }
    switch (code) {
      case 0:
        /* Return file size as decimal number. */
        rlen = sprintf ((char *)buf,"%d\r\n", Finfo.fsize);
        break;

      case 1:
        /* Return last-modified time in format "YYYYMMDDhhmmss". */
        rlen  = sprintf ((char *)buf,"%04d%02d%02d",
                         (Finfo.fdate >> 9) + 1980, (Finfo.fdate >> 5) & 15, Finfo.fdate & 31);
        rlen += sprintf ((char *)&buf[rlen],"%02d%02d%02d\r\n",
                         (Finfo.ftime >> 11), (Finfo.ftime >> 5) & 63, (Finfo.ftime & 31)*2);
        break;

      case 2:
      case 4:
        rlen = sprintf ((char *)buf,"%s\r\n", Finfo.fname);
        break;

      case 3:
      case 8:
      case 5:
        rlen  = sprintf ((char *)buf,"%02d-%02d-%02d",
                        (Finfo.fdate >> 5) & 15, Finfo.fdate & 31, (Finfo.fdate >> 9) + 1980);
        /* Convert time to "AM/PM" format. */
        v = (Finfo.ftime >> 11) % 12;
        if (v == 0) v = 12;
        if ((Finfo.ftime >> 11) < 12) tp = "AM";
        else                   tp = "PM";
        rlen += sprintf ((char *)&buf[rlen],"  %02d:%02d%s",v,(Finfo.ftime >> 5) & 63,tp);
        if (Finfo.fattrib & AM_DIR) {//AM_DIR
          rlen += sprintf ((char *)&buf[rlen],"%-21s","       <DIR>");
        }
        else {
          rlen += sprintf ((char *)&buf[rlen],"%21d", Finfo.fsize);
        }
        rlen += sprintf ((char *)&buf[rlen]," %s\r\n", Finfo.fname);
        break;
    }
  if (rlen==0) getdir=0;
  return (rlen);

}