roboforum.ru

   
res=pf_write(write_buf,strlen(write_buf),&s1);//Запишем в write.txt
uart_transmit_message("writing @write ok@ in write.txt ");
if ((res==0x00)&&(s1==strlen(write_buf))) uart_transmit_message("OK\r\n");
else uart_transmit_message("FAIL\r\n");

FRESULT pf_write (
   const void* buff,   /* Pointer to the data to be written */
   WORD btw,         /* Number of bytes to write (0:Finalize the current write operation) */
   WORD* bw         /* Pointer to number of bytes written */
)
{
   CLUST clst;
   DWORD sect, remain;
   const BYTE *p = buff;
   WORD wcnt;
   FATFS *fs = FatFs;


   *bw = 0;
   if (!fs) return FR_NOT_ENABLED;      /* Check file system */
   if (!(fs->flag & FA_OPENED))      /* Check if opened */
      return FR_NOT_OPENED;

   if (!btw) {      /* Finalize request */
      if ((fs->flag & FA__WIP) && disk_writep(0, 0)) goto fw_abort;
      fs->flag &= ~FA__WIP;
      return FR_OK;
   } else {      /* Write data request */
      if (!(fs->flag & FA__WIP))      /* Round down fptr to the sector boundary */
         fs->fptr &= 0xFFFFFE00;
   }
   remain = fs->fsize - fs->fptr;
   if (btw > remain) btw = (WORD)remain;         /* Truncate btw by remaining bytes */

   while (btw)   {                           /* Repeat until all data transferred */
      if (((WORD)fs->fptr % 512) == 0) {            /* On the sector boundary? */
         if ((fs->fptr / 512 % fs->csize) == 0) {   /* On the cluster boundary? */
            clst = (fs->fptr == 0) ?         /* On the top of the file? */
               fs->org_clust : get_fat(fs->curr_clust);
            if (clst <= 1) goto fw_abort;
            fs->curr_clust = clst;            /* Update current cluster */
            fs->csect = 0;                  /* Reset sector offset in the cluster */
         }
         sect = clust2sect(fs->curr_clust);      /* Get current sector */
         if (!sect) goto fw_abort;
         fs->dsect = sect + fs->csect++;
         if (disk_writep(0, fs->dsect)) goto fw_abort;   /* Initiate a sector write operation */
         fs->flag |= FA__WIP;
      }
      wcnt = 512 - ((WORD)fs->fptr % 512);      /* Number of bytes to write to the sector */
      if (wcnt > btw) wcnt = btw;
      if (disk_writep(p, wcnt)) goto fw_abort;   /* Send data to the sector */
      fs->fptr += wcnt; p += wcnt;            /* Update pointers and counters */
      btw -= wcnt; *bw += wcnt;
      if (((WORD)fs->fptr % 512) == 0) {
         if (disk_writep(0, 0)) goto fw_abort;   /* Finalize the currtent secter write operation */
         fs->flag &= ~FA__WIP;
      }
   }

   return FR_OK;

fw_abort:
   fs->flag = 0;
   return FR_DISK_ERR;
}
#endif