wok annotate linld/stuff/src/ISO9660.CPP @ rev 21735

vlgothic-fonts: use archive.org as web_site
author Pascal Bellard <pascal.bellard@slitaz.org>
date Thu Jun 13 15:52:10 2019 +0200 (2019-06-13)
parents 861efbf7a5de
children f9e283da869a
rev   line source
pascal@19515 1 #include "crtl.h"
pascal@19515 2 #include "crtlx.h"
pascal@19515 3 #include "iso9660.h"
pascal@19515 4 #define __ROCKRIDGE
pascal@19515 5
pascal@19571 6 struct isostate isostate;
pascal@19515 7
pascal@20747 8 #if 1
pascal@20747 9 #define setdirofs(to,sec) (*(int*)((char*)&(to)+1) = *(int*)&(sec)<<(SECTORBITS-8))
pascal@20747 10 #define cpydirofs(to,from) (*(int*)((char*)&(to)+1) = *(int*)((char*)&(from)+1))
pascal@20747 11 #else
pascal@20747 12 #define setdirofs(to,sec) (to = (sec)<<SECTORBITS)
pascal@20747 13 #define cpydirofs(to,from) ((to) = (from))
pascal@20747 14 #endif
pascal@20747 15
pascal@21628 16 int isoroot(void)
pascal@19515 17 {
pascal@19825 18 static const unsigned long root = 16UL * 2048;
pascal@19571 19 struct isostate *x=&isostate;
pascal@21628 20 if (isoreadsector(&root) == -1 || strhead(x->buffer+1,"CD001") == -1) {
pascal@19571 21 //close(x->fd);
pascal@19515 22 return -1;
pascal@19515 23 }
pascal@20747 24 setdirofs(x->dirofs, (* (unsigned long *) (isostate.buffer + 0x9E)));
pascal@20632 25 x->dirsize = filesize2dirsize(* (unsigned long *) (isostate.buffer + 0xA6));
pascal@19515 26 return 0;
pascal@19515 27 }
pascal@19515 28
pascal@20747 29 int isoreaddir(void)
pascal@19515 30 {
pascal@19636 31 char *p;
pascal@19515 32 #ifdef __ROCKRIDGE
pascal@19515 33 char *endname;
pascal@19515 34 #endif
pascal@19571 35 struct isostate *x=&isostate;
pascal@19515 36
pascal@20747 37 if (x->curdirsize == 0xFFFF) {
pascal@19826 38 x->curdirsize = x->dirsize;
pascal@20747 39 cpydirofs(x->curdirofs, x->dirofs);
pascal@19826 40 goto restarted;
pascal@19515 41 }
pascal@20534 42 if (x->curpos >= SECTORSZ || * (short *) (x->buffer + x->curpos) == 0) {
pascal@20538 43 restarted:
pascal@19826 44 if (x->curdirsize < DIRSECTORSZ) return -1;
pascal@20534 45 isoreadsector(&x->curdirofs);
pascal@20453 46 //x->curdirofs += SECTORSZ;
pascal@20453 47 *(int *)((char *) &x->curdirofs+1) += SECTORSZ/256;
pascal@19826 48 x->curdirsize -= DIRSECTORSZ;
pascal@20458 49 x->curpos = 0;
pascal@19515 50 }
pascal@20534 51 p = x->buffer; p += x->curpos;
pascal@21735 52 if ((x->entrysize = * (short *) p) == 0) {
pascal@19515 53 return -1;
pascal@20538 54 }
pascal@19636 55 x->fileofs = (* (unsigned long *) (p + 2)) << SECTORBITS;
pascal@19636 56 x->filesize = * (unsigned long *) (p + 10);
pascal@20543 57 x->filemod = 0x81ED; if (p[25] & 2) ((char *)&(x->filemod))[1] = 0x41;
pascal@20543 58 //x->filemod = (p[25] & 2) ? 0040755 : 0100755;
pascal@20453 59 //x->filemod = 0100755 - ((p[25] & (char)2) << 13);
pascal@19515 60 #ifdef __ROCKRIDGE
pascal@19515 61 endname = NULL;
pascal@19636 62 // p += 34 + (p[32] & -2); ?
pascal@20534 63 p = x->buffer + 34 + ((p[32] + x->curpos) & -2);
pascal@19515 64 do {
pascal@19636 65 int len = p[2];
pascal@20751 66 # if 0
pascal@19636 67 switch (* (short *) p) {
pascal@19515 68 case 0x5850: // PX
pascal@19636 69 x->filemod = * (short *) (p + 4);
pascal@19515 70 break;
pascal@20751 71 case 0x4D4E: // NM
pascal@20751 72 # else
pascal@20751 73 if (* (short *) p == 0x4D4E) {
pascal@20751 74 # endif
pascal@20751 75 x->filename = p + 5;
pascal@20751 76 endname = p + len;
pascal@19515 77 }
pascal@19636 78 p += len;
pascal@21735 79 } while (x->buffer + x->curpos + x->entrysize - 2 > p);
pascal@19515 80 if (endname)
pascal@19515 81 *endname = 0;
pascal@19515 82 else
pascal@19515 83 #endif
pascal@19515 84 {
pascal@20534 85 p = x->buffer + 33; x->filename = p += x->curpos;
pascal@19636 86 p--;
pascal@20453 87 if (((* (short *) p) & 0xFEFF) -1 == 0) {
pascal@20453 88 x->filename = "..";
pascal@20453 89 if ((* (short *) p) == 1)
pascal@20453 90 x->filename++;
pascal@20453 91 }
pascal@20453 92 else {
pascal@19636 93 p += *p; p--;
pascal@19636 94 if (* (short *) (p) != 0x313B) {
pascal@19636 95 p++; p++; // no ;1 to remove
pascal@19636 96 }
pascal@19636 97 if (p[-1] == '.') p--;
pascal@19636 98 *p = 0;
pascal@19515 99 }
pascal@19515 100 }
pascal@21735 101 x->curpos += x->entrysize;
pascal@19515 102 return 0;
pascal@19515 103 }
pascal@19515 104
pascal@19825 105 //#define IS_DIR(x)( ((x) & ~0777) == 040000)
pascal@20454 106 //#define IS_DIR(x)( (char)((x) >> 9) == (char)040)
pascal@20454 107 //#define IS_DIR(x)( (*((char*) &x + 1) & (char)0776) == (char)0100)
pascal@20454 108 #define IS_DIR(x)( (*((char*) &x + 1) & (char)0676) == (char)0)
pascal@21628 109 int _isoopen(void)
pascal@19515 110 {
pascal@21735 111 // char *name, *s, c;
pascal@21735 112 // char _64bits = cpuhaslm();
pascal@19571 113 struct isostate *x=&isostate;
pascal@21735 114 #define name (x->filename2open)
pascal@21735 115 #define c (((char *)&x->entrysize)[0])
pascal@21735 116 #define _64bits (((char *)&x->entrysize)[1])
pascal@21735 117 char *s;
pascal@19515 118
pascal@21735 119 _64bits = cpuhaslm();
pascal@20528 120 do {
pascal@21628 121 for (s = (char *) x->filename2open; *s == '/' ; s++) {
pascal@21628 122 isoroot();
pascal@19515 123 }
pascal@19825 124 next:
pascal@20751 125 name = s;
pascal@20751 126 do s++; while (*s != '/' && *s);
pascal@19825 127 c = *s;
pascal@19825 128 *s = 0;
pascal@21576 129 for (x->curdirsize = 0xFFFF; isoreaddir() != -1;) {
pascal@21735 130 const char *n = name;
pascal@21735 131 #define i (x->tmp)
pascal@21735 132 i = x->filename;
pascal@19825 133 if (_64bits) {
pascal@21628 134 if (strhead(i, n) == -1) continue;
pascal@19825 135 n = "64";
pascal@19825 136 i += s - name; // strlen(name);
pascal@19515 137 }
pascal@19825 138 if (strcmp(i, n)) continue;
pascal@19825 139 *s++ = c;
pascal@19825 140 if (IS_DIR(x->filemod)) {
pascal@20747 141 cpydirofs(x->dirofs, x->fileofs);
pascal@19826 142 x->dirsize = filesize2dirsize(x->filesize);
pascal@19825 143 if (c) goto next;
pascal@19515 144 }
pascal@19825 145 isolseek(&x->fileofs);
pascal@19825 146 return 0;
pascal@19515 147 }
pascal@20528 148 } while ((_64bits ^= CPUMASKLM) == 0);
pascal@19825 149 return -1;
pascal@19515 150 }