![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ext2_fs.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / fs / ext2|
Return to ext2_fs.c CVS log | Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / fs / ext2 |
1.1 ! root 1: /* ! 2: * /packages/ext2-files ! 3: * ! 4: * (c) 2008-2009 Laurent Vivier <[email protected]> ! 5: * (c) 2010 Mark Cave-Ayland <[email protected]> ! 6: * ! 7: * This file has been copied from EMILE, http://emile.sf.net ! 8: * ! 9: */ ! 10: ! 11: #include "config.h" ! 12: #include "libopenbios/bindings.h" ! 13: #include "libext2.h" ! 14: #include "ext2_utils.h" ! 15: #include "fs/fs.h" ! 16: #include "libc/vsprintf.h" ! 17: #include "libc/diskio.h" ! 18: ! 19: extern void ext2_init( void ); ! 20: ! 21: typedef struct { ! 22: enum { FILE, DIR } type; ! 23: union { ! 24: ext2_FILE *file; ! 25: ext2_DIR *dir; ! 26: }; ! 27: } ext2_COMMON; ! 28: ! 29: typedef struct { ! 30: ext2_VOLUME *volume; ! 31: ext2_COMMON *common; ! 32: } ext2_info_t; ! 33: ! 34: DECLARE_NODE( ext2, 0, sizeof(ext2_info_t), "+/packages/ext2-files" ); ! 35: ! 36: ! 37: static const int days_month[12] = ! 38: { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; ! 39: static const int days_month_leap[12] = ! 40: { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; ! 41: ! 42: static inline int is_leap(int year) ! 43: { ! 44: return ((year % 4 == 0) && (year % 100 != 0)) || (year % 400 == 0); ! 45: } ! 46: ! 47: static void ! 48: print_date(time_t sec) ! 49: { ! 50: unsigned int second, minute, hour, month, day, year; ! 51: int current; ! 52: const int *days; ! 53: ! 54: second = sec % 60; ! 55: sec /= 60; ! 56: ! 57: minute = sec % 60; ! 58: sec /= 60; ! 59: ! 60: hour = sec % 24; ! 61: sec /= 24; ! 62: ! 63: year = sec * 100 / 36525; ! 64: sec -= year * 36525 / 100; ! 65: year += 1970; ! 66: ! 67: days = is_leap(year) ? days_month_leap : days_month; ! 68: ! 69: current = 0; ! 70: month = 0; ! 71: while (month < 12) { ! 72: if (sec <= current + days[month]) { ! 73: break; ! 74: } ! 75: current += days[month]; ! 76: month++; ! 77: } ! 78: month++; ! 79: ! 80: day = sec - current + 1; ! 81: ! 82: forth_printf("%d-%02d-%02d %02d:%02d:%02d ", ! 83: year, month, day, hour, minute, second); ! 84: } ! 85: ! 86: ! 87: /************************************************************************/ ! 88: /* Standard package methods */ ! 89: /************************************************************************/ ! 90: ! 91: /* ( -- success? ) */ ! 92: static void ! 93: ext2_files_open( ext2_info_t *mi ) ! 94: { ! 95: int fd; ! 96: char *path = my_args_copy(); ! 97: ! 98: fd = open_ih( my_parent() ); ! 99: if ( fd == -1 ) { ! 100: free( path ); ! 101: RET( 0 ); ! 102: } ! 103: ! 104: mi->volume = ext2_mount(fd); ! 105: if (!mi->volume) { ! 106: RET( 0 ); ! 107: } ! 108: ! 109: mi->common = (ext2_COMMON*)malloc(sizeof(ext2_COMMON)); ! 110: if (mi->common == NULL) ! 111: RET( 0 ); ! 112: ! 113: mi->common->dir = ext2_opendir(mi->volume, path); ! 114: if (mi->common->dir == NULL) { ! 115: mi->common->file = ext2_open(mi->volume, path); ! 116: if (mi->common->file == NULL) { ! 117: free(mi->common); ! 118: RET( 0 ); ! 119: } ! 120: mi->common->type = FILE; ! 121: RET( -1 ); ! 122: } ! 123: mi->common->type = DIR; ! 124: RET( -1 ); ! 125: } ! 126: ! 127: /* ( -- ) */ ! 128: static void ! 129: ext2_files_close( ext2_info_t *mi ) ! 130: { ! 131: ext2_COMMON *common = mi->common; ! 132: ! 133: if (common->type == FILE) ! 134: ext2_close(common->file); ! 135: else if (common->type == DIR) ! 136: ext2_closedir(common->dir); ! 137: free(common); ! 138: ! 139: ext2_umount(mi->volume); ! 140: } ! 141: ! 142: /* ( buf len -- actlen ) */ ! 143: static void ! 144: ext2_files_read( ext2_info_t *mi ) ! 145: { ! 146: int count = POP(); ! 147: char *buf = (char *)cell2pointer(POP()); ! 148: ! 149: ext2_COMMON *common = mi->common; ! 150: if (common->type != FILE) ! 151: RET( -1 ); ! 152: ! 153: RET ( ext2_read( common->file, buf, count ) ); ! 154: } ! 155: ! 156: /* ( pos.d -- status ) */ ! 157: static void ! 158: ext2_files_seek( ext2_info_t *mi ) ! 159: { ! 160: long long pos = DPOP(); ! 161: int offs = (int)pos; ! 162: int whence = SEEK_SET; ! 163: int ret; ! 164: ext2_COMMON *common = mi->common; ! 165: ! 166: if (common->type != FILE) ! 167: RET( -1 ); ! 168: ! 169: ret = ext2_lseek(common->file, offs, whence); ! 170: if (ret) ! 171: RET( -1 ); ! 172: else ! 173: RET( 0 ); ! 174: } ! 175: ! 176: /* ( addr -- size ) */ ! 177: static void ! 178: ext2_files_load( ext2_info_t *mi ) ! 179: { ! 180: char *buf = (char *)cell2pointer(POP()); ! 181: int count; ! 182: ! 183: ext2_COMMON *common = mi->common; ! 184: if (common->type != FILE) ! 185: RET( -1 ); ! 186: ! 187: /* Seek to the end in order to get the file size */ ! 188: ext2_lseek(common->file, 0, SEEK_END); ! 189: count = common->file->offset; ! 190: ext2_lseek(common->file, 0, SEEK_SET); ! 191: ! 192: RET ( ext2_read( common->file, buf, count ) ); ! 193: } ! 194: ! 195: /* ( -- cstr ) */ ! 196: static void ! 197: ext2_files_get_path( ext2_info_t *mi ) ! 198: { ! 199: ext2_COMMON *common = mi->common; ! 200: ! 201: if (common->type != FILE) ! 202: RET( 0 ); ! 203: ! 204: RET( pointer2cell(strdup(common->file->path)) ); ! 205: } ! 206: ! 207: /* ( -- cstr ) */ ! 208: static void ! 209: ext2_files_get_fstype( ext2_info_t *mi ) ! 210: { ! 211: PUSH( pointer2cell(strdup("ext2")) ); ! 212: } ! 213: ! 214: /* static method, ( pathstr len ihandle -- ) */ ! 215: static void ! 216: ext2_files_dir( ext2_info_t *dummy ) ! 217: { ! 218: ext2_COMMON *common; ! 219: ext2_VOLUME *volume; ! 220: struct ext2_dir_entry_2 *entry; ! 221: struct ext2_inode inode; ! 222: int fd; ! 223: ! 224: ihandle_t ih = POP(); ! 225: char *path = pop_fstr_copy(); ! 226: ! 227: fd = open_ih( ih ); ! 228: if ( fd == -1 ) { ! 229: free( path ); ! 230: return; ! 231: } ! 232: ! 233: volume = ext2_mount(fd); ! 234: if (!volume) { ! 235: return; ! 236: } ! 237: ! 238: common = (ext2_COMMON*)malloc(sizeof(ext2_COMMON)); ! 239: common->dir = ext2_opendir(volume, path); ! 240: ! 241: forth_printf("\n"); ! 242: while ( (entry = ext2_readdir(common->dir)) ) { ! 243: ext2_get_inode(common->dir->volume, entry->inode, &inode); ! 244: forth_printf("% 10d ", inode.i_size); ! 245: print_date(inode.i_mtime); ! 246: if (S_ISDIR(inode.i_mode)) ! 247: forth_printf("%s\\\n", entry->name); ! 248: else ! 249: forth_printf("%s\n", entry->name); ! 250: } ! 251: ! 252: ext2_closedir( common->dir ); ! 253: ext2_umount( volume ); ! 254: ! 255: close_io( fd ); ! 256: ! 257: free( common ); ! 258: free( path ); ! 259: } ! 260: ! 261: /* static method, ( pos.d ih -- flag? ) */ ! 262: static void ! 263: ext2_files_probe( ext2_info_t *dummy ) ! 264: { ! 265: ihandle_t ih = POP_ih(); ! 266: long long offs = DPOP(); ! 267: int fd, ret = 0; ! 268: ! 269: fd = open_ih(ih); ! 270: if (fd >= 0) { ! 271: if (ext2_probe(fd, offs)) { ! 272: ret = -1; ! 273: } ! 274: close_io(fd); ! 275: } else { ! 276: ret = -1; ! 277: } ! 278: ! 279: RET (ret); ! 280: } ! 281: ! 282: ! 283: static void ! 284: ext2_initializer( ext2_info_t *dummy ) ! 285: { ! 286: fword("register-fs-package"); ! 287: } ! 288: ! 289: NODE_METHODS( ext2 ) = { ! 290: { "probe", ext2_files_probe }, ! 291: { "open", ext2_files_open }, ! 292: { "close", ext2_files_close }, ! 293: { "read", ext2_files_read }, ! 294: { "seek", ext2_files_seek }, ! 295: { "load", ext2_files_load }, ! 296: { "dir", ext2_files_dir }, ! 297: ! 298: /* special */ ! 299: { "get-path", ext2_files_get_path }, ! 300: { "get-fstype", ext2_files_get_fstype }, ! 301: ! 302: { NULL, ext2_initializer }, ! 303: }; ! 304: ! 305: void ! 306: ext2_init( void ) ! 307: { ! 308: REGISTER_NODE( ext2 ); ! 309: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.