Archipelago » qemu

	    index_to<0 || index_to>=array->next ||

	    index_from<0 || index_from>=array->next)

	return -1;

    if(index_to==index_from)

	return 0;

	memmove(to+is*count,to,from-to);

    else

	memmove(from,from+is*count,to-from);

    memcpy(to,buf,is*count);

    free(buf);

    BlockDriverState* bs; /* pointer to parent */

    unsigned int first_sectors_number; /* 1 for a single partition, 0x40 for a disk with partition table */

    unsigned char first_sectors[0x40*0x200];

    int fat_type; /* 16 or 32 */

    array_t fat,directory,mapping;

    unsigned int cluster_size;

    unsigned int sectors_per_cluster;

    unsigned int sectors_per_fat;

    uint32_t sector_count; /* total number of sectors of the partition */

    uint32_t cluster_count; /* total number of clusters of this partition */

    uint32_t max_fat_value;

    int current_fd;

    mapping_t* current_mapping;

    unsigned char* cluster; /* points to current cluster */

    partition_t* partition=&(real_mbr->partition[0]);

    memset(s->first_sectors,0,512);

    partition->attributes=0x80; /* bootable */

    partition->start_head=1;

    partition->start_sector=1;

    for(i=0;i<11;i++)

	chksum=(((chksum&0xfe)>>1)|((chksum&0x01)?0x80:0))

	    +(unsigned char)entry->name[i];

    return chksum;

}

		s->sectors_per_fat * 0x200 / s->fat.item_size - 1);

    }

    memset(s->fat.pointer,0,s->fat.size);

    switch(s->fat_type) {

	case 12: s->max_fat_value=0xfff; break;

	case 16: s->max_fat_value=0xffff; break;

	memcpy(entry->name,filename,strlen(filename));

	return entry;

    }

    entry_long=create_long_filename(s,filename);

    i = strlen(filename);

    for(j = i - 1; j>0  && filename[j]!='.';j--);

    if (j > 0)

    entry=array_get_next(&(s->directory));

    memset(entry->name,0x20,11);

    strncpy(entry->name,filename,i);

    if(j > 0)

	for (i = 0; i < 3 && filename[j+1+i]; i++)

	    entry->extension[i] = filename[j+1+i];

	mapping->end = mapping->begin;

	return -1;

    }

    i = mapping->info.dir.first_dir_index =

	    first_cluster == 0 ? 0 : s->directory.next;

    direntry = (direntry_t*)array_get(&(s->directory), mapping->dir_index);

    set_begin_of_direntry(direntry, mapping->begin);

    return 0;

}

     */

    i = 1+s->sectors_per_cluster*0x200*8/s->fat_type;

    s->sectors_per_fat=(s->sector_count+i)/i; /* round up */

    array_init(&(s->mapping),sizeof(mapping_t));

    array_init(&(s->directory),sizeof(direntry_t));

    s->qcow_filename = NULL;

    s->fat2 = NULL;

    s->downcase_short_names = 1;

    if (!strstart(dirname, "fat:", NULL))

	return -1;

    } else

	/* new directory */

	schedule_mkdir(s, cluster_num, strdup(path));

    lfn_init(&lfn);

    do {

	int i;

	    mapping = next_mapping;

	}

	cluster = c1;

    }