1 // SPDX-License-Identifier: GPL-2.0+
5 * R/W (V)FAT 12/16/32 filesystem implementation by Donggeun Kim
12 #include <asm/byteorder.h>
14 #include <linux/ctype.h>
16 #include <linux/math64.h>
19 static void uppercase(char *str, int len)
23 for (i = 0; i < len; i++) {
29 static int total_sector;
30 static int disk_write(__u32 block, __u32 nr_blocks, void *buf)
37 if (cur_part_info.start + block + nr_blocks >
38 cur_part_info.start + total_sector) {
39 printf("error: overflow occurs\n");
43 ret = blk_dwrite(cur_dev, cur_part_info.start + block, nr_blocks, buf);
44 if (nr_blocks && ret == 0)
51 * Set short name in directory entry
53 static void set_name(dir_entry *dirent, const char *filename)
55 char s_name[VFAT_MAXLEN_BYTES];
57 int period_location, len, i, ext_num;
62 len = strlen(filename);
66 strcpy(s_name, filename);
67 uppercase(s_name, len);
69 period = strchr(s_name, '.');
71 period_location = len;
74 period_location = period - s_name;
75 ext_num = len - period_location - 1;
78 /* Pad spaces when the length of file name is shorter than eight */
79 if (period_location < 8) {
80 memcpy(dirent->name, s_name, period_location);
81 for (i = period_location; i < 8; i++)
82 dirent->name[i] = ' ';
83 } else if (period_location == 8) {
84 memcpy(dirent->name, s_name, period_location);
86 memcpy(dirent->name, s_name, 6);
87 dirent->name[6] = '~';
88 dirent->name[7] = '1';
92 memcpy(dirent->ext, s_name + period_location + 1, ext_num);
93 for (i = ext_num; i < 3; i++)
96 memcpy(dirent->ext, s_name + period_location + 1, 3);
98 debug("name : %s\n", dirent->name);
99 debug("ext : %s\n", dirent->ext);
103 * Write fat buffer into block device
105 static int flush_dirty_fat_buffer(fsdata *mydata)
107 int getsize = FATBUFBLOCKS;
108 __u32 fatlength = mydata->fatlength;
109 __u8 *bufptr = mydata->fatbuf;
110 __u32 startblock = mydata->fatbufnum * FATBUFBLOCKS;
112 debug("debug: evicting %d, dirty: %d\n", mydata->fatbufnum,
113 (int)mydata->fat_dirty);
115 if ((!mydata->fat_dirty) || (mydata->fatbufnum == -1))
118 /* Cap length if fatlength is not a multiple of FATBUFBLOCKS */
119 if (startblock + getsize > fatlength)
120 getsize = fatlength - startblock;
122 startblock += mydata->fat_sect;
125 if (disk_write(startblock, getsize, bufptr) < 0) {
126 debug("error: writing FAT blocks\n");
130 if (mydata->fats == 2) {
131 /* Update corresponding second FAT blocks */
132 startblock += mydata->fatlength;
133 if (disk_write(startblock, getsize, bufptr) < 0) {
134 debug("error: writing second FAT blocks\n");
138 mydata->fat_dirty = 0;
144 * Set the file name information from 'name' into 'slotptr',
146 static int str2slot(dir_slot *slotptr, const char *name, int *idx)
150 for (j = 0; j <= 8; j += 2) {
151 if (name[*idx] == 0x00) {
152 slotptr->name0_4[j] = 0;
153 slotptr->name0_4[j + 1] = 0;
157 slotptr->name0_4[j] = name[*idx];
161 for (j = 0; j <= 10; j += 2) {
162 if (name[*idx] == 0x00) {
163 slotptr->name5_10[j] = 0;
164 slotptr->name5_10[j + 1] = 0;
168 slotptr->name5_10[j] = name[*idx];
172 for (j = 0; j <= 2; j += 2) {
173 if (name[*idx] == 0x00) {
174 slotptr->name11_12[j] = 0;
175 slotptr->name11_12[j + 1] = 0;
179 slotptr->name11_12[j] = name[*idx];
184 if (name[*idx] == 0x00)
188 /* Not used characters are filled with 0xff 0xff */
190 for (; end_idx < 5; end_idx++) {
191 slotptr->name0_4[end_idx * 2] = 0xff;
192 slotptr->name0_4[end_idx * 2 + 1] = 0xff;
197 for (; end_idx < 6; end_idx++) {
198 slotptr->name5_10[end_idx * 2] = 0xff;
199 slotptr->name5_10[end_idx * 2 + 1] = 0xff;
204 for (; end_idx < 2; end_idx++) {
205 slotptr->name11_12[end_idx * 2] = 0xff;
206 slotptr->name11_12[end_idx * 2 + 1] = 0xff;
212 static int flush_dir_table(fat_itr *itr);
215 * Fill dir_slot entries with appropriate name, id, and attr
216 * 'itr' will point to a next entry
219 fill_dir_slot(fat_itr *itr, const char *l_name)
221 __u8 temp_dir_slot_buffer[MAX_LFN_SLOT * sizeof(dir_slot)];
222 dir_slot *slotptr = (dir_slot *)temp_dir_slot_buffer;
223 __u8 counter = 0, checksum;
226 /* Get short file name checksum value */
227 checksum = mkcksum(itr->dent->name, itr->dent->ext);
230 memset(slotptr, 0x00, sizeof(dir_slot));
231 ret = str2slot(slotptr, l_name, &idx);
232 slotptr->id = ++counter;
233 slotptr->attr = ATTR_VFAT;
234 slotptr->alias_checksum = checksum;
239 slotptr->id |= LAST_LONG_ENTRY_MASK;
241 while (counter >= 1) {
242 memcpy(itr->dent, slotptr, sizeof(dir_slot));
245 if (!fat_itr_next(itr))
246 if (!itr->dent && !itr->is_root && flush_dir_table(itr))
250 if (!itr->dent && !itr->is_root)
252 * don't care return value here because we have already
253 * finished completing an entry with name, only ending up
256 flush_dir_table(itr);
262 * Set the entry at index 'entry' in a FAT (12/16/32) table.
264 static int set_fatent_value(fsdata *mydata, __u32 entry, __u32 entry_value)
266 __u32 bufnum, offset, off16;
269 switch (mydata->fatsize) {
271 bufnum = entry / FAT32BUFSIZE;
272 offset = entry - bufnum * FAT32BUFSIZE;
275 bufnum = entry / FAT16BUFSIZE;
276 offset = entry - bufnum * FAT16BUFSIZE;
279 bufnum = entry / FAT12BUFSIZE;
280 offset = entry - bufnum * FAT12BUFSIZE;
283 /* Unsupported FAT size */
287 /* Read a new block of FAT entries into the cache. */
288 if (bufnum != mydata->fatbufnum) {
289 int getsize = FATBUFBLOCKS;
290 __u8 *bufptr = mydata->fatbuf;
291 __u32 fatlength = mydata->fatlength;
292 __u32 startblock = bufnum * FATBUFBLOCKS;
294 /* Cap length if fatlength is not a multiple of FATBUFBLOCKS */
295 if (startblock + getsize > fatlength)
296 getsize = fatlength - startblock;
298 if (flush_dirty_fat_buffer(mydata) < 0)
301 startblock += mydata->fat_sect;
303 if (disk_read(startblock, getsize, bufptr) < 0) {
304 debug("Error reading FAT blocks\n");
307 mydata->fatbufnum = bufnum;
311 mydata->fat_dirty = 1;
313 /* Set the actual entry */
314 switch (mydata->fatsize) {
316 ((__u32 *) mydata->fatbuf)[offset] = cpu_to_le32(entry_value);
319 ((__u16 *) mydata->fatbuf)[offset] = cpu_to_le16(entry_value);
322 off16 = (offset * 3) / 4;
324 switch (offset & 0x3) {
326 val1 = cpu_to_le16(entry_value) & 0xfff;
327 ((__u16 *)mydata->fatbuf)[off16] &= ~0xfff;
328 ((__u16 *)mydata->fatbuf)[off16] |= val1;
331 val1 = cpu_to_le16(entry_value) & 0xf;
332 val2 = (cpu_to_le16(entry_value) >> 4) & 0xff;
334 ((__u16 *)mydata->fatbuf)[off16] &= ~0xf000;
335 ((__u16 *)mydata->fatbuf)[off16] |= (val1 << 12);
337 ((__u16 *)mydata->fatbuf)[off16 + 1] &= ~0xff;
338 ((__u16 *)mydata->fatbuf)[off16 + 1] |= val2;
341 val1 = cpu_to_le16(entry_value) & 0xff;
342 val2 = (cpu_to_le16(entry_value) >> 8) & 0xf;
344 ((__u16 *)mydata->fatbuf)[off16] &= ~0xff00;
345 ((__u16 *)mydata->fatbuf)[off16] |= (val1 << 8);
347 ((__u16 *)mydata->fatbuf)[off16 + 1] &= ~0xf;
348 ((__u16 *)mydata->fatbuf)[off16 + 1] |= val2;
351 val1 = cpu_to_le16(entry_value) & 0xfff;
352 ((__u16 *)mydata->fatbuf)[off16] &= ~0xfff0;
353 ((__u16 *)mydata->fatbuf)[off16] |= (val1 << 4);
368 * Determine the next free cluster after 'entry' in a FAT (12/16/32) table
369 * and link it to 'entry'. EOC marker is not set on returned entry.
371 static __u32 determine_fatent(fsdata *mydata, __u32 entry)
373 __u32 next_fat, next_entry = entry + 1;
376 next_fat = get_fatent(mydata, next_entry);
378 /* found free entry, link to entry */
379 set_fatent_value(mydata, entry, next_entry);
384 debug("FAT%d: entry: %08x, entry_value: %04x\n",
385 mydata->fatsize, entry, next_entry);
391 * set_cluster() - write data to cluster
393 * Write 'size' bytes from 'buffer' into the specified cluster.
395 * @mydata: data to be written
396 * @clustnum: cluster to be written to
397 * @buffer: data to be written
398 * @size: bytes to be written (but not more than the size of a cluster)
399 * Return: 0 on success, -1 otherwise
402 set_cluster(fsdata *mydata, u32 clustnum, u8 *buffer, u32 size)
409 startsect = clust_to_sect(mydata, clustnum);
411 startsect = mydata->rootdir_sect;
413 debug("clustnum: %d, startsect: %d\n", clustnum, startsect);
415 if ((unsigned long)buffer & (ARCH_DMA_MINALIGN - 1)) {
416 ALLOC_CACHE_ALIGN_BUFFER(__u8, tmpbuf, mydata->sect_size);
418 debug("FAT: Misaligned buffer address (%p)\n", buffer);
420 while (size >= mydata->sect_size) {
421 memcpy(tmpbuf, buffer, mydata->sect_size);
422 ret = disk_write(startsect++, 1, tmpbuf);
424 debug("Error writing data (got %d)\n", ret);
428 buffer += mydata->sect_size;
429 size -= mydata->sect_size;
431 } else if (size >= mydata->sect_size) {
432 idx = size / mydata->sect_size;
433 ret = disk_write(startsect, idx, buffer);
435 debug("Error writing data (got %d)\n", ret);
440 idx *= mydata->sect_size;
446 ALLOC_CACHE_ALIGN_BUFFER(__u8, tmpbuf, mydata->sect_size);
447 /* Do not leak content of stack */
448 memset(tmpbuf, 0, mydata->sect_size);
449 memcpy(tmpbuf, buffer, size);
450 ret = disk_write(startsect, 1, tmpbuf);
452 debug("Error writing data (got %d)\n", ret);
460 static __u8 tmpbuf_cluster[MAX_CLUSTSIZE] __aligned(ARCH_DMA_MINALIGN);
463 * Read and modify data on existing and consecutive cluster blocks
466 get_set_cluster(fsdata *mydata, __u32 clustnum, loff_t pos, __u8 *buffer,
467 loff_t size, loff_t *gotsize)
469 unsigned int bytesperclust = mydata->clust_size * mydata->sect_size;
472 int clustcount, i, ret;
478 assert(pos < bytesperclust);
479 startsect = clust_to_sect(mydata, clustnum);
481 debug("clustnum: %d, startsect: %d, pos: %lld\n",
482 clustnum, startsect, pos);
484 /* partial write at beginning */
486 wsize = min(bytesperclust - pos, size);
487 ret = disk_read(startsect, mydata->clust_size, tmpbuf_cluster);
488 if (ret != mydata->clust_size) {
489 debug("Error reading data (got %d)\n", ret);
493 memcpy(tmpbuf_cluster + pos, buffer, wsize);
494 ret = disk_write(startsect, mydata->clust_size, tmpbuf_cluster);
495 if (ret != mydata->clust_size) {
496 debug("Error writing data (got %d)\n", ret);
504 startsect += mydata->clust_size;
510 /* full-cluster write */
511 if (size >= bytesperclust) {
512 clustcount = lldiv(size, bytesperclust);
514 if (!((unsigned long)buffer & (ARCH_DMA_MINALIGN - 1))) {
515 wsize = clustcount * bytesperclust;
516 ret = disk_write(startsect,
517 clustcount * mydata->clust_size,
519 if (ret != clustcount * mydata->clust_size) {
520 debug("Error writing data (got %d)\n", ret);
528 startsect += clustcount * mydata->clust_size;
530 for (i = 0; i < clustcount; i++) {
531 memcpy(tmpbuf_cluster, buffer, bytesperclust);
532 ret = disk_write(startsect,
535 if (ret != mydata->clust_size) {
536 debug("Error writing data (got %d)\n",
541 size -= bytesperclust;
542 buffer += bytesperclust;
543 *gotsize += bytesperclust;
545 startsect += mydata->clust_size;
550 /* partial write at end */
553 ret = disk_read(startsect, mydata->clust_size, tmpbuf_cluster);
554 if (ret != mydata->clust_size) {
555 debug("Error reading data (got %d)\n", ret);
558 memcpy(tmpbuf_cluster, buffer, wsize);
559 ret = disk_write(startsect, mydata->clust_size, tmpbuf_cluster);
560 if (ret != mydata->clust_size) {
561 debug("Error writing data (got %d)\n", ret);
576 * Find the first empty cluster
578 static int find_empty_cluster(fsdata *mydata)
580 __u32 fat_val, entry = 3;
583 fat_val = get_fatent(mydata, entry);
593 * Write directory entries in itr's buffer to block device
595 static int flush_dir_table(fat_itr *itr)
597 fsdata *mydata = itr->fsdata;
598 int dir_newclust = 0;
599 unsigned int bytesperclust = mydata->clust_size * mydata->sect_size;
601 if (set_cluster(mydata, itr->clust, itr->block, bytesperclust) != 0) {
602 printf("error: writing directory entry\n");
605 dir_newclust = find_empty_cluster(mydata);
606 set_fatent_value(mydata, itr->clust, dir_newclust);
607 if (mydata->fatsize == 32)
608 set_fatent_value(mydata, dir_newclust, 0xffffff8);
609 else if (mydata->fatsize == 16)
610 set_fatent_value(mydata, dir_newclust, 0xfff8);
611 else if (mydata->fatsize == 12)
612 set_fatent_value(mydata, dir_newclust, 0xff8);
614 itr->clust = dir_newclust;
615 itr->next_clust = dir_newclust;
617 if (flush_dirty_fat_buffer(mydata) < 0)
620 memset(itr->block, 0x00, bytesperclust);
622 itr->dent = (dir_entry *)itr->block;
623 itr->last_cluster = 1;
624 itr->remaining = bytesperclust / sizeof(dir_entry) - 1;
630 * Set empty cluster from 'entry' to the end of a file
632 static int clear_fatent(fsdata *mydata, __u32 entry)
636 while (!CHECK_CLUST(entry, mydata->fatsize)) {
637 fat_val = get_fatent(mydata, entry);
639 set_fatent_value(mydata, entry, 0);
646 /* Flush fat buffer */
647 if (flush_dirty_fat_buffer(mydata) < 0)
654 * Set start cluster in directory entry
656 static void set_start_cluster(const fsdata *mydata, dir_entry *dentptr,
659 if (mydata->fatsize == 32)
661 cpu_to_le16((start_cluster & 0xffff0000) >> 16);
662 dentptr->start = cpu_to_le16(start_cluster & 0xffff);
666 * Check whether adding a file makes the file system to
667 * exceed the size of the block device
668 * Return -1 when overflow occurs, otherwise return 0
670 static int check_overflow(fsdata *mydata, __u32 clustnum, loff_t size)
672 __u32 startsect, sect_num, offset;
675 startsect = clust_to_sect(mydata, clustnum);
677 startsect = mydata->rootdir_sect;
679 sect_num = div_u64_rem(size, mydata->sect_size, &offset);
684 if (startsect + sect_num > total_sector)
690 * Write at most 'maxsize' bytes from 'buffer' into
691 * the file associated with 'dentptr'
692 * Update the number of bytes written in *gotsize and return 0
693 * or return -1 on fatal errors.
696 set_contents(fsdata *mydata, dir_entry *dentptr, loff_t pos, __u8 *buffer,
697 loff_t maxsize, loff_t *gotsize)
699 unsigned int bytesperclust = mydata->clust_size * mydata->sect_size;
700 __u32 curclust = START(dentptr);
701 __u32 endclust = 0, newclust = 0;
702 u64 cur_pos, filesize;
703 loff_t offset, actsize, wsize;
706 filesize = pos + maxsize;
708 debug("%llu bytes\n", filesize);
713 if (!CHECK_CLUST(curclust, mydata->fatsize) ||
714 IS_LAST_CLUST(curclust, mydata->fatsize)) {
715 clear_fatent(mydata, curclust);
716 set_start_cluster(mydata, dentptr, 0);
719 debug("curclust: 0x%x\n", curclust);
720 debug("Invalid FAT entry\n");
729 /* go to cluster at pos */
730 cur_pos = bytesperclust;
734 if (IS_LAST_CLUST(curclust, mydata->fatsize))
737 newclust = get_fatent(mydata, curclust);
738 if (!IS_LAST_CLUST(newclust, mydata->fatsize) &&
739 CHECK_CLUST(newclust, mydata->fatsize)) {
740 debug("curclust: 0x%x\n", curclust);
741 debug("Invalid FAT entry\n");
745 cur_pos += bytesperclust;
748 if (IS_LAST_CLUST(curclust, mydata->fatsize)) {
749 assert(pos == cur_pos);
753 assert(pos < cur_pos);
754 cur_pos -= bytesperclust;
757 assert(IS_LAST_CLUST(curclust, mydata->fatsize) ||
758 !CHECK_CLUST(curclust, mydata->fatsize));
761 /* search for allocated consecutive clusters */
762 actsize = bytesperclust;
765 if (filesize <= (cur_pos + actsize))
768 newclust = get_fatent(mydata, endclust);
770 if (IS_LAST_CLUST(newclust, mydata->fatsize))
772 if (CHECK_CLUST(newclust, mydata->fatsize)) {
773 debug("curclust: 0x%x\n", curclust);
774 debug("Invalid FAT entry\n");
778 actsize += bytesperclust;
782 /* overwrite to <curclust..endclust> */
786 offset = pos - cur_pos;
787 wsize = min(cur_pos + actsize, filesize) - pos;
788 if (get_set_cluster(mydata, curclust, offset,
789 buffer, wsize, &actsize)) {
790 printf("Error get-and-setting cluster\n");
795 cur_pos += offset + wsize;
797 if (filesize <= cur_pos)
800 /* CHECK: newclust = get_fatent(mydata, endclust); */
802 if (IS_LAST_CLUST(newclust, mydata->fatsize))
803 /* no more clusters */
809 if (filesize <= cur_pos) {
811 newclust = get_fatent(mydata, endclust);
812 if (!IS_LAST_CLUST(newclust, mydata->fatsize)) {
813 /* truncate the rest */
814 clear_fatent(mydata, newclust);
816 /* Mark end of file in FAT */
817 if (mydata->fatsize == 12)
819 else if (mydata->fatsize == 16)
821 else if (mydata->fatsize == 32)
822 newclust = 0xfffffff;
823 set_fatent_value(mydata, endclust, newclust);
831 assert(!do_div(cur_pos, bytesperclust));
834 /* allocate and write */
837 /* Assure that curclust is valid */
839 curclust = find_empty_cluster(mydata);
840 set_start_cluster(mydata, dentptr, curclust);
842 newclust = get_fatent(mydata, curclust);
844 if (IS_LAST_CLUST(newclust, mydata->fatsize)) {
845 newclust = determine_fatent(mydata, curclust);
846 set_fatent_value(mydata, curclust, newclust);
849 debug("error: something wrong\n");
854 /* TODO: already partially written */
855 if (check_overflow(mydata, curclust, filesize)) {
856 printf("Error: no space left: %llu\n", filesize);
860 actsize = bytesperclust;
863 /* search for consecutive clusters */
864 while (actsize < filesize) {
865 newclust = determine_fatent(mydata, endclust);
867 if ((newclust - 1) != endclust)
868 /* write to <curclust..endclust> */
871 if (CHECK_CLUST(newclust, mydata->fatsize)) {
872 debug("newclust: 0x%x\n", newclust);
873 debug("Invalid FAT entry\n");
877 actsize += bytesperclust;
880 /* set remaining bytes */
882 if (set_cluster(mydata, curclust, buffer, (u32)actsize) != 0) {
883 debug("error: writing cluster\n");
888 /* Mark end of file in FAT */
889 if (mydata->fatsize == 12)
891 else if (mydata->fatsize == 16)
893 else if (mydata->fatsize == 32)
894 newclust = 0xfffffff;
895 set_fatent_value(mydata, endclust, newclust);
899 if (set_cluster(mydata, curclust, buffer, (u32)actsize) != 0) {
900 debug("error: writing cluster\n");
907 if (CHECK_CLUST(newclust, mydata->fatsize)) {
908 debug("newclust: 0x%x\n", newclust);
909 debug("Invalid FAT entry\n");
912 actsize = bytesperclust;
913 curclust = endclust = newclust;
922 static void fill_dentry(fsdata *mydata, dir_entry *dentptr,
923 const char *filename, __u32 start_cluster, __u32 size, __u8 attr)
925 set_start_cluster(mydata, dentptr, start_cluster);
926 dentptr->size = cpu_to_le32(size);
928 dentptr->attr = attr;
930 set_name(dentptr, filename);
934 * Find a directory entry based on filename or start cluster number
935 * If the directory entry is not found,
936 * the new position for writing a directory entry will be returned
938 static dir_entry *find_directory_entry(fat_itr *itr, char *filename)
942 while (fat_itr_next(itr)) {
943 /* check both long and short name: */
944 if (!strcasecmp(filename, itr->name))
946 else if (itr->name != itr->s_name &&
947 !strcasecmp(filename, itr->s_name))
953 if (itr->dent->name[0] == '\0')
959 if (!itr->dent && !itr->is_root && flush_dir_table(itr))
960 /* indicate that allocating dent failed */
966 static int split_filename(char *filename, char **dirname, char **basename)
968 char *p, *last_slash, *last_slash_cont;
973 last_slash_cont = NULL;
975 if (ISDIRDELIM(*p)) {
978 /* continuous slashes */
979 while (ISDIRDELIM(*p))
980 last_slash_cont = p++;
988 if (last_slash_cont == (filename + strlen(filename) - 1)) {
989 /* remove trailing slashes */
994 if (last_slash == filename) {
995 /* avoid ""(null) directory */
1002 *last_slash_cont = '\0';
1003 *basename = last_slash_cont + 1;
1005 *dirname = "/"; /* root by default */
1006 *basename = filename;
1013 * normalize_longname() - check long file name and convert to lower case
1015 * We assume here that the FAT file system is using an 8bit code page.
1016 * Linux typically uses CP437, EDK2 assumes CP1250.
1018 * @l_filename: preallocated buffer receiving the normalized name
1019 * @filename: filename to normalize
1020 * Return: 0 on success, -1 on failure
1022 static int normalize_longname(char *l_filename, const char *filename)
1024 const char *p, illegal[] = "<>:\"/\\|?*";
1026 if (strlen(filename) >= VFAT_MAXLEN_BYTES)
1029 for (p = filename; *p; ++p) {
1030 if ((unsigned char)*p < 0x20)
1032 if (strchr(illegal, *p))
1036 strcpy(l_filename, filename);
1037 downcase(l_filename, VFAT_MAXLEN_BYTES);
1042 int file_fat_write_at(const char *filename, loff_t pos, void *buffer,
1043 loff_t size, loff_t *actwrite)
1046 fsdata datablock = { .fatbuf = NULL, };
1047 fsdata *mydata = &datablock;
1048 fat_itr *itr = NULL;
1050 char *filename_copy, *parent, *basename;
1051 char l_filename[VFAT_MAXLEN_BYTES];
1053 debug("writing %s\n", filename);
1055 filename_copy = strdup(filename);
1059 split_filename(filename_copy, &parent, &basename);
1060 if (!strlen(basename)) {
1065 filename = basename;
1066 if (normalize_longname(l_filename, filename)) {
1067 printf("FAT: illegal filename (%s)\n", filename);
1072 itr = malloc_cache_aligned(sizeof(fat_itr));
1078 ret = fat_itr_root(itr, &datablock);
1082 total_sector = datablock.total_sect;
1084 ret = fat_itr_resolve(itr, parent, TYPE_DIR);
1086 printf("%s: doesn't exist (%d)\n", parent, ret);
1090 retdent = find_directory_entry(itr, l_filename);
1093 if (fat_itr_isdir(itr)) {
1100 /* Append to the end */
1101 pos = FAT2CPU32(retdent->size);
1102 if (pos > retdent->size) {
1103 /* No hole allowed */
1108 /* Update file size in a directory entry */
1109 retdent->size = cpu_to_le32(pos + size);
1111 /* Create a new file */
1114 /* root dir cannot have "." or ".." */
1115 if (!strcmp(l_filename, ".") ||
1116 !strcmp(l_filename, "..")) {
1123 printf("Error: allocating new dir entry\n");
1129 /* No hole allowed */
1134 memset(itr->dent, 0, sizeof(*itr->dent));
1136 /* Set short name to set alias checksum field in dir_slot */
1137 set_name(itr->dent, filename);
1138 if (fill_dir_slot(itr, filename)) {
1143 /* Set attribute as archive for regular file */
1144 fill_dentry(itr->fsdata, itr->dent, filename, 0, size, 0x20);
1146 retdent = itr->dent;
1149 ret = set_contents(mydata, retdent, pos, buffer, size, actwrite);
1151 printf("Error: writing contents\n");
1155 debug("attempt to write 0x%llx bytes\n", *actwrite);
1157 /* Flush fat buffer */
1158 ret = flush_dirty_fat_buffer(mydata);
1160 printf("Error: flush fat buffer\n");
1165 /* Write directory table to device */
1166 ret = set_cluster(mydata, itr->clust, itr->block,
1167 mydata->clust_size * mydata->sect_size);
1169 printf("Error: writing directory entry\n");
1174 free(filename_copy);
1175 free(mydata->fatbuf);
1180 int file_fat_write(const char *filename, void *buffer, loff_t offset,
1181 loff_t maxsize, loff_t *actwrite)
1183 return file_fat_write_at(filename, offset, buffer, maxsize, actwrite);
1186 static int fat_dir_entries(fat_itr *itr)
1189 fsdata fsdata = { .fatbuf = NULL, }, *mydata = &fsdata;
1190 /* for FATBUFSIZE */
1193 dirs = malloc_cache_aligned(sizeof(fat_itr));
1195 debug("Error: allocating memory\n");
1200 /* duplicate fsdata */
1201 fat_itr_child(dirs, itr);
1202 fsdata = *dirs->fsdata;
1204 /* allocate local fat buffer */
1205 fsdata.fatbuf = malloc_cache_aligned(FATBUFSIZE);
1206 if (!fsdata.fatbuf) {
1207 debug("Error: allocating memory\n");
1211 fsdata.fatbufnum = -1;
1212 dirs->fsdata = &fsdata;
1214 for (count = 0; fat_itr_next(dirs); count++)
1218 free(fsdata.fatbuf);
1223 static int delete_dentry(fat_itr *itr)
1225 fsdata *mydata = itr->fsdata;
1226 dir_entry *dentptr = itr->dent;
1228 /* free cluster blocks */
1229 clear_fatent(mydata, START(dentptr));
1230 if (flush_dirty_fat_buffer(mydata) < 0) {
1231 printf("Error: flush fat buffer\n");
1236 * update a directory entry
1238 * - long file name support
1239 * - find and mark the "new" first invalid entry as name[0]=0x00
1241 memset(dentptr, 0, sizeof(*dentptr));
1242 dentptr->name[0] = 0xe5;
1244 if (set_cluster(mydata, itr->clust, itr->block,
1245 mydata->clust_size * mydata->sect_size) != 0) {
1246 printf("error: writing directory entry\n");
1253 int fat_unlink(const char *filename)
1255 fsdata fsdata = { .fatbuf = NULL, };
1256 fat_itr *itr = NULL;
1258 char *filename_copy, *dirname, *basename;
1260 filename_copy = strdup(filename);
1261 if (!filename_copy) {
1262 printf("Error: allocating memory\n");
1266 split_filename(filename_copy, &dirname, &basename);
1268 if (!strcmp(dirname, "/") && !strcmp(basename, "")) {
1269 printf("Error: cannot remove root\n");
1274 itr = malloc_cache_aligned(sizeof(fat_itr));
1276 printf("Error: allocating memory\n");
1281 ret = fat_itr_root(itr, &fsdata);
1285 total_sector = fsdata.total_sect;
1287 ret = fat_itr_resolve(itr, dirname, TYPE_DIR);
1289 printf("%s: doesn't exist (%d)\n", dirname, ret);
1294 if (!find_directory_entry(itr, basename)) {
1295 printf("%s: doesn't exist\n", basename);
1300 if (fat_itr_isdir(itr)) {
1301 n_entries = fat_dir_entries(itr);
1302 if (n_entries < 0) {
1306 if (n_entries > 2) {
1307 printf("Error: directory is not empty: %d\n",
1314 ret = delete_dentry(itr);
1317 free(fsdata.fatbuf);
1319 free(filename_copy);
1324 int fat_mkdir(const char *new_dirname)
1327 fsdata datablock = { .fatbuf = NULL, };
1328 fsdata *mydata = &datablock;
1329 fat_itr *itr = NULL;
1330 char *dirname_copy, *parent, *dirname;
1331 char l_dirname[VFAT_MAXLEN_BYTES];
1334 unsigned int bytesperclust;
1335 dir_entry *dotdent = NULL;
1337 dirname_copy = strdup(new_dirname);
1341 split_filename(dirname_copy, &parent, &dirname);
1342 if (!strlen(dirname)) {
1347 if (normalize_longname(l_dirname, dirname)) {
1348 printf("FAT: illegal filename (%s)\n", dirname);
1353 itr = malloc_cache_aligned(sizeof(fat_itr));
1359 ret = fat_itr_root(itr, &datablock);
1363 total_sector = datablock.total_sect;
1365 ret = fat_itr_resolve(itr, parent, TYPE_DIR);
1367 printf("%s: doesn't exist (%d)\n", parent, ret);
1371 retdent = find_directory_entry(itr, l_dirname);
1374 printf("%s: already exists\n", l_dirname);
1379 /* root dir cannot have "." or ".." */
1380 if (!strcmp(l_dirname, ".") ||
1381 !strcmp(l_dirname, "..")) {
1388 printf("Error: allocating new dir entry\n");
1393 memset(itr->dent, 0, sizeof(*itr->dent));
1395 /* Set short name to set alias checksum field in dir_slot */
1396 set_name(itr->dent, dirname);
1397 fill_dir_slot(itr, dirname);
1399 /* Set attribute as archive for regular file */
1400 fill_dentry(itr->fsdata, itr->dent, dirname, 0, 0,
1401 ATTR_DIR | ATTR_ARCH);
1403 retdent = itr->dent;
1406 /* Default entries */
1407 bytesperclust = mydata->clust_size * mydata->sect_size;
1408 dotdent = malloc_cache_aligned(bytesperclust);
1413 memset(dotdent, 0, bytesperclust);
1415 memcpy(dotdent[0].name, ". ", 8);
1416 memcpy(dotdent[0].ext, " ", 3);
1417 dotdent[0].attr = ATTR_DIR | ATTR_ARCH;
1419 memcpy(dotdent[1].name, ".. ", 8);
1420 memcpy(dotdent[1].ext, " ", 3);
1421 dotdent[1].attr = ATTR_DIR | ATTR_ARCH;
1422 set_start_cluster(mydata, &dotdent[1], itr->start_clust);
1424 ret = set_contents(mydata, retdent, 0, (__u8 *)dotdent,
1425 bytesperclust, &actwrite);
1427 printf("Error: writing contents\n");
1430 /* Write twice for "." */
1431 set_start_cluster(mydata, &dotdent[0], START(retdent));
1432 ret = set_contents(mydata, retdent, 0, (__u8 *)dotdent,
1433 bytesperclust, &actwrite);
1435 printf("Error: writing contents\n");
1439 /* Flush fat buffer */
1440 ret = flush_dirty_fat_buffer(mydata);
1442 printf("Error: flush fat buffer\n");
1446 /* Write directory table to device */
1447 ret = set_cluster(mydata, itr->clust, itr->block,
1448 mydata->clust_size * mydata->sect_size);
1450 printf("Error: writing directory entry\n");
1454 free(mydata->fatbuf);