int main(int argc, char *argv[])
#endif
{
u8 sta = 0, cmd;
int i;
#ifndef __AVR__
if (argc > 3 || argc < 2) {
printf("Usage: (sudo) testfat rawdevice e.g. fat32 /dev/sdb \r\n");
return 1;
}
// fcntl(0, F_SETFL, fcntl(0, F_GETFL) | O_NONBLOCK);
if (initsec(argv[1]))
return -1;
#endif
hwinit();
printf("\nFAT32 Test\n");
i = sdhcinit();
printf("init %d\n", i);
if (!i) {
printf( "%lu sects\n", sdnumsectors );
i = mount(0);
printf("Mount: %d\n", i);
if (!i)
seekfile(0, 0);
#if 1 // show what is read
else
for (i = 0; i < 1; i++) {
readsec(i);
dumpsect();
}
#endif
}
if (i)
printf("Not Ready\n");
for (;;) {
cmd = tzgetchar();
if (cmd >= 'a')
cmd -= 32;
switch (cmd) {
#ifdef __AVR__
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
// while (!tzkbhit()) {
ADMUX = 0xe0 + cmd - '0';
ADCSRA = 0xc7;
while (ADCSRA & 0x40);
printf("%c %04x\n", cmd, ADC);
// }
break;
#endif
case 3:
case 26:
case 'Q':
exit(0);
case 'Y':
{
u16 u;
u = getdirent((u8 *) "");
printf("%u entries in dir\n", u);
}
break;
case 'I':
sta = sdhcinit();
printf("init %d\n", sta);
if (sta)
continue;
printf( "%lu sects\n", sdnumsectors );
sta = cardinfo(0);
printf("inf %d\n", sta);
if (sta)
continue;
for (sta = 0; sta < 18; sta++)
printf("%02X", filesectbuf[sta]);
printf(" ");
for (sta = 0; sta < 18; sta++)
printf("%c", dochar(filesectbuf[sta]));
printf("\n");
sta = cardinfo(1);
printf("inf %d\n", sta);
if (sta)
continue;
for (sta = 0; sta < 18; sta++)
printf("%02X", filesectbuf[sta]);
printf(" ");
for (sta = 0; sta < 18; sta++)
printf("%c", dochar(filesectbuf[sta]));
printf("\n");
break;
case 'M':
i = mount(0);
if (!i)
printf("Mounted\n");
else
printf("Error\n");
break;
case 'O':
printf("Open:\n");
i = getfname();
if (i < 0) {
printf("bad fname\n");
break;
}
i = getdirent(filename);
if (i == 2)
printf("Entered Dir\n");
else if (!i)
printf("Opened\n");
else
printf("Not Found\n");
break;
case 'C':
printf("Create:\n");
i = getfname();
if (i < 0) {
printf("bad fname\n");
break;
}
if (i == 1) {
printf("Directory:\n");
i = getfname();
if (i) {
printf("bad fname\n");
break;
}
i = 0x10; // directory attribute
}
i = newdirent(filename, i);
if (!i)
printf("Created\n");
else if (i == 2)
printf("Exists\n");
else
printf("Error\n");
break;
case 'N':
i = newdirent(NULL, 0);
if (!i)
printf("Created Ser Log\n");
else
printf("Error\n");
break;
case 'L':
resettodir();
seekfile(0, 0);
for (i = 0; i < 16; i++) {
if (!filesectbuf[i << 5])
break;
if (0xe5 == filesectbuf[i << 5]) {
printf("(del)\n");
continue;
}
if (0xf == filesectbuf[(i << 5) + 11]) {
printf("(lfn)\n");
continue;
}
printf("%8.8s.%3.3s %c\n", &filesectbuf[i << 5], &filesectbuf[(i << 5) + 8],
filesectbuf[(i << 5) + 11] & 0x10 ? '/' : ' ');
if (i == 15) {
i = readnextsect();
if (i != 512)
break;
i = -1;
}
}
break;
case 'W':
printf("Write: ^c|^z to exit\n");
for (;;) {
char cx;
cx = tzgetchar();
if (cx == 3 || cx == 26)
break;
writebyte(cx);
printf("%c", cx);
}
printf("\nWritten ");
flushbuf();
printf("Flushed ");
syncdirent(0);
printf("DSynced\n");
break;
case 'F':
flushbuf();
printf("Flushed\n");
break;
case 'E':
syncdirent(0);
printf("dirsynced\n");
break;
case 'P':
syncdirent(1);
printf("size pushed\n");
break;
case 'Z':
zaphint();
printf("hint zapped\n");
break;
case 'T':
truncatefile();
printf("Trunc-ed\n");
break;
case 'D':
i = deletefile();
if (i == 1)
printf("no rmdir\n");
else if (!i)
printf("Deleted\n");
else
printf("Error\n");
break;
// will go away when seek is filled in
case 'A':
seekfile(0, 2);
printf("At EOF\n");
break;
case 'S':
{
u32 x = 0;
u8 y = 1;
seekfile(x, y);
printf("Rewound\n");
}
break;
case 'R':
case 'V':
case 'X':
sta = 0;
while (!tzkbhit()) {
i = readbyte();
if (i < 0) {
printf("\n=EOF=\n");
break;
}
switch (cmd) {
case 'R':
printf("%c", i);
break;
case 'V':
printf("%c", dochar(i));
break;
case 'X':
if (!(sta++ & 15))
printf("\n");
printf("%02X", i);
break;
}
}
break;
case 'U':
resetrootdir();
seekfile(0, 0); // for list
printf("At rootdir\n");
break;
case 'G':
resettodir();
seekfile(0, 0); // for list
printf("At curdir\n");
break;
default:
// help message
{
char *c = mainmenu;
while (pgm_read_byte(c))
putchar(pgm_read_byte(c++));
}
break;
}
}
}
static void
parseproto(
xfs_mount_t *mp,
xfs_inode_t *pip,
struct fsxattr *fsxp,
char **pp,
char *name)
{
#define IF_REGULAR 0
#define IF_RESERVED 1
#define IF_BLOCK 2
#define IF_CHAR 3
#define IF_DIRECTORY 4
#define IF_SYMLINK 5
#define IF_FIFO 6
char *buf;
int committed;
int error;
xfs_fsblock_t first;
int flags;
xfs_bmap_free_t flist;
int fmt;
int i;
xfs_inode_t *ip;
int len;
long long llen;
int majdev;
int mindev;
int mode;
char *mstr;
xfs_trans_t *tp;
int val;
int isroot = 0;
cred_t creds;
char *value;
struct xfs_name xname;
memset(&creds, 0, sizeof(creds));
mstr = getstr(pp);
switch (mstr[0]) {
case '-':
fmt = IF_REGULAR;
break;
case 'r':
fmt = IF_RESERVED;
break;
case 'b':
fmt = IF_BLOCK;
break;
case 'c':
fmt = IF_CHAR;
break;
case 'd':
fmt = IF_DIRECTORY;
break;
case 'l':
fmt = IF_SYMLINK;
break;
case 'p':
fmt = IF_FIFO;
break;
default:
fprintf(stderr, _("%s: bad format string %s\n"),
progname, mstr);
exit(1);
}
mode = 0;
switch (mstr[1]) {
case '-':
break;
case 'u':
mode |= S_ISUID;
break;
default:
fprintf(stderr, _("%s: bad format string %s\n"),
progname, mstr);
exit(1);
}
switch (mstr[2]) {
case '-':
break;
case 'g':
mode |= S_ISGID;
break;
default:
fprintf(stderr, _("%s: bad format string %s\n"),
progname, mstr);
exit(1);
}
val = 0;
for (i = 3; i < 6; i++) {
if (mstr[i] < '0' || mstr[i] > '7') {
fprintf(stderr, _("%s: bad format string %s\n"),
progname, mstr);
exit(1);
}
val = val * 8 + mstr[i] - '0';
}
mode |= val;
creds.cr_uid = (int)getnum(pp);
creds.cr_gid = (int)getnum(pp);
xname.name = (uchar_t *)name;
xname.len = name ? strlen(name) : 0;
tp = libxfs_trans_alloc(mp, 0);
flags = XFS_ILOG_CORE;
xfs_bmap_init(&flist, &first);
switch (fmt) {
case IF_REGULAR:
buf = newregfile(pp, &len);
getres(tp, XFS_B_TO_FSB(mp, len));
error = libxfs_inode_alloc(&tp, pip, mode|S_IFREG, 1, 0,
&creds, fsxp, &ip);
if (error)
fail(_("Inode allocation failed"), error);
flags |= newfile(tp, ip, &flist, &first, 0, 0, buf, len);
if (buf)
free(buf);
libxfs_trans_ijoin(tp, pip, 0);
newdirent(mp, tp, pip, &xname, ip->i_ino, &first, &flist, 1);
libxfs_trans_ihold(tp, pip);
break;
case IF_RESERVED: /* pre-allocated space only */
value = getstr(pp);
llen = cvtnum(mp->m_sb.sb_blocksize, mp->m_sb.sb_sectsize, value);
getres(tp, XFS_B_TO_FSB(mp, llen));
error = libxfs_inode_alloc(&tp, pip, mode|S_IFREG, 1, 0,
&creds, fsxp, &ip);
if (error)
fail(_("Inode pre-allocation failed"), error);
libxfs_trans_ijoin(tp, pip, 0);
newdirent(mp, tp, pip, &xname, ip->i_ino, &first, &flist, 1);
libxfs_trans_ihold(tp, pip);
libxfs_trans_log_inode(tp, ip, flags);
error = libxfs_bmap_finish(&tp, &flist, &committed);
if (error)
fail(_("Pre-allocated file creation failed"), error);
libxfs_trans_commit(tp, 0);
rsvfile(mp, ip, llen);
return;
case IF_BLOCK:
getres(tp, 0);
majdev = (int)getnum(pp);
mindev = (int)getnum(pp);
error = libxfs_inode_alloc(&tp, pip, mode|S_IFBLK, 1,
IRIX_MKDEV(majdev, mindev), &creds, fsxp, &ip);
if (error) {
fail(_("Inode allocation failed"), error);
}
libxfs_trans_ijoin(tp, pip, 0);
newdirent(mp, tp, pip, &xname, ip->i_ino, &first, &flist, 1);
libxfs_trans_ihold(tp, pip);
flags |= XFS_ILOG_DEV;
break;
case IF_CHAR:
getres(tp, 0);
majdev = (int)getnum(pp);
mindev = (int)getnum(pp);
error = libxfs_inode_alloc(&tp, pip, mode|S_IFCHR, 1,
IRIX_MKDEV(majdev, mindev), &creds, fsxp, &ip);
if (error)
fail(_("Inode allocation failed"), error);
libxfs_trans_ijoin(tp, pip, 0);
newdirent(mp, tp, pip, &xname, ip->i_ino, &first, &flist, 1);
libxfs_trans_ihold(tp, pip);
flags |= XFS_ILOG_DEV;
break;
case IF_FIFO:
getres(tp, 0);
error = libxfs_inode_alloc(&tp, pip, mode|S_IFIFO, 1, 0,
&creds, fsxp, &ip);
if (error)
fail(_("Inode allocation failed"), error);
libxfs_trans_ijoin(tp, pip, 0);
newdirent(mp, tp, pip, &xname, ip->i_ino, &first, &flist, 1);
libxfs_trans_ihold(tp, pip);
break;
case IF_SYMLINK:
buf = getstr(pp);
len = (int)strlen(buf);
getres(tp, XFS_B_TO_FSB(mp, len));
error = libxfs_inode_alloc(&tp, pip, mode|S_IFLNK, 1, 0,
&creds, fsxp, &ip);
if (error)
fail(_("Inode allocation failed"), error);
flags |= newfile(tp, ip, &flist, &first, 1, 1, buf, len);
libxfs_trans_ijoin(tp, pip, 0);
newdirent(mp, tp, pip, &xname, ip->i_ino, &first, &flist, 1);
libxfs_trans_ihold(tp, pip);
break;
case IF_DIRECTORY:
getres(tp, 0);
error = libxfs_inode_alloc(&tp, pip, mode|S_IFDIR, 1, 0,
&creds, fsxp, &ip);
if (error)
fail(_("Inode allocation failed"), error);
ip->i_d.di_nlink++; /* account for . */
if (!pip) {
pip = ip;
mp->m_sb.sb_rootino = ip->i_ino;
libxfs_mod_sb(tp, XFS_SB_ROOTINO);
mp->m_rootip = ip;
isroot = 1;
} else {
libxfs_trans_ijoin(tp, pip, 0);
newdirent(mp, tp, pip, &xname, ip->i_ino,
&first, &flist, 1);
pip->i_d.di_nlink++;
libxfs_trans_ihold(tp, pip);
libxfs_trans_log_inode(tp, pip, XFS_ILOG_CORE);
}
newdirectory(mp, tp, ip, pip);
libxfs_trans_log_inode(tp, ip, flags);
error = libxfs_bmap_finish(&tp, &flist, &committed);
if (error)
fail(_("Directory creation failed"), error);
libxfs_trans_ihold(tp, ip);
libxfs_trans_commit(tp, 0);
/*
* RT initialization. Do this here to ensure that
* the RT inodes get placed after the root inode.
*/
if (isroot)
rtinit(mp);
tp = NULL;
for (;;) {
name = getstr(pp);
if (!name)
break;
if (strcmp(name, "$") == 0)
break;
parseproto(mp, ip, fsxp, pp, name);
}
libxfs_iput(ip, 0);
return;
}
libxfs_trans_log_inode(tp, ip, flags);
error = libxfs_bmap_finish(&tp, &flist, &committed);
if (error) {
fail(_("Error encountered creating file from prototype file"),
error);
}
libxfs_trans_commit(tp, 0);
}
