summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDamien Zammit <damien@zamaudio.com>2018-04-08 15:27:21 +1000
committerDamien Zammit <damien@zamaudio.com>2018-04-08 15:31:52 +1000
commit572b3940fbd35641d288feb07479cbf882ae5c4d (patch)
treef63825de44a05705a82c53aa598efa5c96a04d43
parentdd5f124c60dffe6e637ed7840e501fdfc73884aa (diff)
ptformat: Update to upstream d5a73a0
-rw-r--r--libs/ptformat/ptfformat.cc1542
-rw-r--r--libs/ptformat/ptfformat.h31
2 files changed, 1127 insertions, 446 deletions
diff --git a/libs/ptformat/ptfformat.cc b/libs/ptformat/ptfformat.cc
index fce73f870f..88891b8df6 100644
--- a/libs/ptformat/ptfformat.cc
+++ b/libs/ptformat/ptfformat.cc
@@ -24,8 +24,30 @@
#include "ptfformat.h"
+#if 0
+#define verbose_printf(...) printf(__VA_ARGS__)
+#else
+#define verbose_printf(...)
+#endif
+
using namespace std;
+static bool wavidx_compare(PTFFormat::wav_t& w1, PTFFormat::wav_t& w2) {
+ return w1.index < w2.index;
+}
+
+static bool wavname_compare(PTFFormat::wav_t& w1, PTFFormat::wav_t& w2) {
+ return (strcasecmp(w1.filename.c_str(), w2.filename.c_str()) < 0);
+}
+
+static bool regidx_compare(PTFFormat::region_t& r1, PTFFormat::region_t& r2) {
+ return r1.index < r2.index;
+}
+
+static bool regname_compare(PTFFormat::region_t& r1, PTFFormat::region_t& r2) {
+ return (strcasecmp(r1.name.c_str(), r2.name.c_str()) < 0);
+}
+
static void
hexdump(uint8_t *data, int len)
{
@@ -78,6 +100,48 @@ PTFFormat::foundat(unsigned char *haystack, uint64_t n, const char *needle) {
}
bool
+PTFFormat::jumpto(uint32_t *currpos, unsigned char *buf, const uint32_t maxoffset, const unsigned char *needle, const uint32_t needlelen) {
+ uint64_t i;
+ uint64_t k = *currpos;
+ while (k + needlelen < maxoffset) {
+ bool foundall = true;
+ for (i = 0; i < needlelen; i++) {
+ if (buf[k+i] != needle[i]) {
+ foundall = false;
+ break;
+ }
+ }
+ if (foundall) {
+ *currpos = k;
+ return true;
+ }
+ k++;
+ }
+ return false;
+}
+
+bool
+PTFFormat::jumpback(uint32_t *currpos, unsigned char *buf, const uint32_t maxoffset, const unsigned char *needle, const uint32_t needlelen) {
+ uint64_t i;
+ uint64_t k = *currpos;
+ while (k > 0 && k + needlelen < maxoffset) {
+ bool foundall = true;
+ for (i = 0; i < needlelen; i++) {
+ if (buf[k+i] != needle[i]) {
+ foundall = false;
+ break;
+ }
+ }
+ if (foundall) {
+ *currpos = k;
+ return true;
+ }
+ k--;
+ }
+ return false;
+}
+
+bool
PTFFormat::foundin(std::string haystack, std::string needle) {
size_t found = haystack.find(needle);
if (found != std::string::npos) {
@@ -88,11 +152,10 @@ PTFFormat::foundin(std::string haystack, std::string needle) {
}
/* Return values: 0 success
- 0x01 to 0xff value of missing lut
- -1 could not open file as ptf
+ -1 could not decrypt pt session
*/
int
-PTFFormat::load(std::string path, int64_t targetsr) {
+PTFFormat::unxor(std::string path) {
FILE *fp;
unsigned char xxor[256];
unsigned char ct;
@@ -101,7 +164,6 @@ PTFFormat::load(std::string path, int64_t targetsr) {
uint8_t xor_value;
uint8_t xor_delta;
uint16_t xor_len;
- int err;
if (! (fp = g_fopen(path.c_str(), "rb"))) {
return -1;
@@ -161,16 +223,26 @@ PTFFormat::load(std::string path, int64_t targetsr) {
ptfunxored[i++] = ct ^ xxor[xor_index];
}
fclose(fp);
+ return 0;
+}
- if (!parse_version())
+/* Return values: 0 success
+ -1 could not parse pt session
+*/
+int
+PTFFormat::load(std::string path, int64_t targetsr) {
+ if (unxor(path))
+ return -1;
+
+ if (parse_version())
return -1;
if (version < 5 || version > 12)
return -1;
targetrate = targetsr;
- err = parse();
- if (err)
+
+ if (parse())
return -1;
return 0;
@@ -181,7 +253,7 @@ PTFFormat::parse_version() {
uint32_t seg_len,str_len;
uint8_t *data = ptfunxored + 0x14;
uintptr_t data_end = ((uintptr_t)ptfunxored) + 0x100;
- uint8_t seg_type;
+ uint8_t seg_type;
bool success = false;
while( ((uintptr_t)data < data_end) && (success == false) ) {
@@ -238,12 +310,20 @@ PTFFormat::parse_version() {
success = true;
}
- /* If the above does not work, assume old version 5,6,7 */
+ /* If the above does not work, try other heuristics */
if ((uintptr_t)data >= data_end - seg_len) {
version = ptfunxored[0x40];
- success = true;
+ if (version == 0) {
+ version = ptfunxored[0x3d];
+ }
+ if (version == 0) {
+ version = ptfunxored[0x3a] + 2;
+ }
+ if (version != 0) {
+ success = true;
+ }
}
- return success;
+ return (!success);
}
uint8_t
@@ -298,8 +378,8 @@ PTFFormat::parse(void) {
if (sessionrate < 44100 || sessionrate > 192000)
return -1;
parseaudio();
- parserest10();
- parsemidi();
+ parserest12();
+ parsemidi12();
} else {
// Should not occur
return -1;
@@ -321,14 +401,8 @@ PTFFormat::parse5header(void) {
// Find session sample rate
k = 0x100;
- while (k < len) {
- if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x00) &&
- (ptfunxored[k+2] == 0x02)) {
- break;
- }
- k++;
- }
+
+ jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x00\x02", 3);
sessionrate = 0;
sessionrate |= ptfunxored[k+12] << 16;
@@ -338,18 +412,12 @@ PTFFormat::parse5header(void) {
void
PTFFormat::parse7header(void) {
- uint64_t k;
+ uint32_t k;
// Find session sample rate
k = 0x100;
- while (k < len) {
- if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x00) &&
- (ptfunxored[k+2] == 0x05)) {
- break;
- }
- k++;
- }
+
+ jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x00\x05", 3);
sessionrate = 0;
sessionrate |= ptfunxored[k+12] << 16;
@@ -359,17 +427,12 @@ PTFFormat::parse7header(void) {
void
PTFFormat::parse8header(void) {
- uint64_t k;
+ uint32_t k;
// Find session sample rate
k = 0;
- while (k < len) {
- if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x05)) {
- break;
- }
- k++;
- }
+
+ jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x05", 2);
sessionrate = 0;
sessionrate |= ptfunxored[k+11];
@@ -379,17 +442,12 @@ PTFFormat::parse8header(void) {
void
PTFFormat::parse9header(void) {
- uint64_t k;
+ uint32_t k;
// Find session sample rate
k = 0x100;
- while (k < len) {
- if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x06)) {
- break;
- }
- k++;
- }
+
+ jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x06", 2);
sessionrate = 0;
sessionrate |= ptfunxored[k+11];
@@ -399,17 +457,12 @@ PTFFormat::parse9header(void) {
void
PTFFormat::parse10header(void) {
- uint64_t k;
+ uint32_t k;
// Find session sample rate
k = 0x100;
- while (k < len) {
- if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x09)) {
- break;
- }
- k++;
- }
+
+ jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x09", 2);
sessionrate = 0;
sessionrate |= ptfunxored[k+11];
@@ -419,7 +472,7 @@ PTFFormat::parse10header(void) {
void
PTFFormat::parserest5(void) {
- uint64_t i, j, k;
+ uint32_t i, j, k;
uint64_t regionspertrack, lengthofname;
uint64_t startbytes, lengthbytes, offsetbytes;
uint16_t tracknumber = 0;
@@ -428,27 +481,13 @@ PTFFormat::parserest5(void) {
k = 0;
for (i = 0; i < 5; i++) {
- while (k < len) {
- if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x00) &&
- (ptfunxored[k+2] == 0x03)) {
- break;
- }
- k++;
- }
+ jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x00\x03", 3);
k++;
}
k--;
for (i = 0; i < 2; i++) {
- while (k) {
- if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x00) &&
- (ptfunxored[k+2] == 0x01)) {
- break;
- }
- k--;
- }
+ jumpback(&k, ptfunxored, len, (const unsigned char *)"\x5a\x00\x01", 3);
if (k)
k--;
}
@@ -460,14 +499,7 @@ PTFFormat::parserest5(void) {
(ptfunxored[k+1] == 0xff)) {
break;
}
- while (k < len) {
- if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x00) &&
- (ptfunxored[k+2] == 0x01)) {
- break;
- }
- k++;
- }
+ jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x00\x01", 3);
lengthofname = ptfunxored[k+12];
if (ptfunxored[k+13] == 0x5a) {
@@ -481,14 +513,7 @@ PTFFormat::parserest5(void) {
name[j] = '\0';
regionspertrack = ptfunxored[k+13+j+3];
for (i = 0; i < regionspertrack; i++) {
- while (k < len) {
- if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x00) &&
- (ptfunxored[k+2] == 0x03)) {
- break;
- }
- k++;
- }
+ jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x00\x03", 3);
j = k+16;
startbytes = (ptfunxored[j+3] & 0xf0) >> 4;
lengthbytes = (ptfunxored[j+2] & 0xf0) >> 4;
@@ -541,7 +566,7 @@ PTFFormat::parserest5(void) {
//printf("name=`%s` start=%04x length=%04x offset=%04x findex=%d\n", name,start,length,sampleoffset,findex);
- std::string filename = string(name) + extension;
+ std::string filename = string(name);
wav_t f = {
filename,
findex,
@@ -554,6 +579,7 @@ PTFFormat::parserest5(void) {
vector<wav_t>::iterator found;
// Add file to lists
if ((found = std::find(begin, finish, f)) != finish) {
+ f.filename = (*found).filename;
std::vector<midi_ev_t> m;
region_t r = {
name,
@@ -628,42 +654,39 @@ PTFFormat::resort(std::vector<wav_t>& ws) {
}
void
+PTFFormat::resort(std::vector<region_t>& rs) {
+ int j = 0;
+ //std::sort(rs.begin(), rs.end());
+ for (std::vector<region_t>::iterator i = rs.begin(); i != rs.end(); ++i) {
+ (*i).index = j;
+ j++;
+ }
+}
+
+void
+PTFFormat::filter(std::vector<region_t>& rs) {
+ for (std::vector<region_t>::iterator i = rs.begin(); i != rs.end(); ++i) {
+ if (i->length == 0)
+ rs.erase(i);
+ }
+}
+
+void
PTFFormat::parseaudio5(void) {
- uint64_t i,k,l;
+ uint32_t i,k,l;
uint64_t lengthofname, wavnumber;
// Find end of wav file list
k = 0;
- while (k < len) {
- if ( (ptfunxored[k ] == 0x5f) &&
- (ptfunxored[k+1] == 0x50) &&
- (ptfunxored[k+2] == 0x35)) {
- break;
- }
- k++;
- }
+ jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5f\x50\x35", 3);
k++;
- while (k < len) {
- if ( (ptfunxored[k ] == 0x5f) &&
- (ptfunxored[k+1] == 0x50) &&
- (ptfunxored[k+2] == 0x35)) {
- break;
- }
- k++;
- }
+ jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5f\x50\x35", 3);
// Find actual wav names
uint16_t numberofwavs = ptfunxored[k-23];
char wavname[256];
- for (i = k; i < len; i++) {
- if ( (ptfunxored[i ] == 'F') &&
- (ptfunxored[i+1] == 'i') &&
- (ptfunxored[i+2] == 'l') &&
- (ptfunxored[i+3] == 'e') &&
- (ptfunxored[i+4] == 's')) {
- break;
- }
- }
+ i = k;
+ jumpto(&i, ptfunxored, len, (const unsigned char *)"Files", 5);
wavnumber = 0;
i+=16;
@@ -730,7 +753,8 @@ struct mchunk {
void
PTFFormat::parsemidi(void) {
- uint64_t tr, i, k, lastk, n_midi_events, zero_ticks;
+ uint32_t i, k;
+ uint64_t tr, n_midi_events, zero_ticks;
uint64_t midi_pos, midi_len, max_pos, region_pos;
uint8_t midi_velocity, midi_note;
uint16_t ridx;
@@ -739,36 +763,18 @@ PTFFormat::parsemidi(void) {
std::vector<mchunk> midichunks;
midi_ev_t m;
- bool found = false;
// Find MdNLB
k = 0;
- lastk = 0;
// Parse all midi chunks, not 1:1 mapping to regions yet
while (k + 35 < len) {
- found = false;
max_pos = 0;
std::vector<midi_ev_t> midi;
- while (k < len && !found) {
- if ( (ptfunxored[k ] == 'M') &&
- (ptfunxored[k+1] == 'd') &&
- (ptfunxored[k+2] == 'N') &&
- (ptfunxored[k+3] == 'L') &&
- (ptfunxored[k+4] == 'B')) {
- found = true;
- lastk = k;
- break;
- }
- k++;
- }
-
- if (!found) {
- k = lastk;
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"MdNLB", 5)) {
break;
}
-
k += 11;
n_midi_events = ptfunxored[k] | ptfunxored[k+1] << 8 |
ptfunxored[k+2] << 16 | ptfunxored[k+3] << 24;
@@ -815,29 +821,12 @@ PTFFormat::parsemidi(void) {
midichunks.push_back(mchunk (zero_ticks, max_pos, midi));
}
- lastk = k;
-
// Map midi chunks to regions
while (k < len) {
char midiregionname[256];
uint8_t namelen;
- found = false;
- while (k < len && !found) {
- if ( (ptfunxored[k ] == 'M') &&
- (ptfunxored[k+1] == 'd') &&
- (ptfunxored[k+2] == 'T') &&
- (ptfunxored[k+3] == 'E') &&
- (ptfunxored[k+4] == 'L')) {
- found = true;
- lastk = k;
- break;
- }
- k++;
- }
-
- if (!found) {
- k = lastk;
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"MdTEL", 5)) {
break;
}
@@ -848,19 +837,7 @@ PTFFormat::parsemidi(void) {
nregions |= ptfunxored[k+1] << 8;
for (mr = 0; mr < nregions; mr++) {
- found = false;
- while (k < len && !found) {
- if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x0c)) {
- found = true;
- lastk = k;
- break;
- }
- k++;
- }
-
- if (!found) {
- k = lastk;
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x0c", 2)) {
break;
}
@@ -881,21 +858,7 @@ PTFFormat::parsemidi(void) {
(uint64_t)ptfunxored[k+3] << 24 |
(uint64_t)ptfunxored[k+4] << 32;
*/
- found = false;
- while (k < len && !found) {
- if ( (ptfunxored[k ] == 0xfe) &&
- (ptfunxored[k+1] == 0xff) &&
- (ptfunxored[k+2] == 0xff) &&
- (ptfunxored[k+3] == 0xff)) {
- found = true;
- lastk = k;
- break;
- }
- k++;
- }
-
- if (!found) {
- k = lastk;
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\xfe\xff\xff\xff", 4)) {
break;
}
@@ -922,19 +885,10 @@ PTFFormat::parsemidi(void) {
}
}
- found = false;
// Put midi regions on midi tracks
- while (k < len && !found) {
- if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x03)) {
- found = true;
- break;
- }
- k++;
- }
-
- if (!found)
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x03", 2)) {
return;
+ }
k -= 4;
@@ -947,18 +901,9 @@ PTFFormat::parsemidi(void) {
for (tr = 0; tr < nmiditracks; tr++) {
char miditrackname[256];
uint8_t namelen;
- found = false;
- while (k < len && !found) {
- if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x03)) {
- found = true;
- break;
- }
- k++;
- }
-
- if (!found)
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x03", 2)) {
return;
+ }
namelen = ptfunxored[k+9];
for (i = 0; i < namelen; i++) {
@@ -1008,104 +953,319 @@ PTFFormat::parsemidi(void) {
}
void
-PTFFormat::parseaudio(void) {
- uint64_t i,j,k,l;
- int64_t index = foundat(ptfunxored, len, "Audio Files");
+PTFFormat::parsemidi12(void) {
+ uint32_t i, k;
+ uint64_t tr, n_midi_events, zero_ticks;
+ uint64_t midi_pos, midi_len, max_pos, region_pos;
+ uint8_t midi_velocity, midi_note;
+ uint16_t ridx;
+ uint16_t nmiditracks, regionnumber = 0;
+ uint32_t nregions, mr;
- if (index < 0)
- return;
+ std::vector<mchunk> midichunks;
+ midi_ev_t m;
- // Find end of wav file list
- k = (uint64_t)index;
- while (k < len) {
- if ( (ptfunxored[k ] == 0xff) &&
- (ptfunxored[k+1] == 0xff) &&
- (ptfunxored[k+2] == 0xff) &&
- (ptfunxored[k+3] == 0xff)) {
+ k = 0;
+
+ // Parse all midi chunks, not 1:1 mapping to regions yet
+ while (k + 35 < len) {
+ max_pos = 0;
+ std::vector<midi_ev_t> midi;
+
+ // Find MdNLB
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"MdNLB", 5)) {
break;
}
- k++;
+
+ k += 11;
+ n_midi_events = ptfunxored[k] | ptfunxored[k+1] << 8 |
+ ptfunxored[k+2] << 16 | ptfunxored[k+3] << 24;
+
+ k += 4;
+ zero_ticks = (uint64_t)ptfunxored[k] |
+ (uint64_t)ptfunxored[k+1] << 8 |
+ (uint64_t)ptfunxored[k+2] << 16 |
+ (uint64_t)ptfunxored[k+3] << 24 |
+ (uint64_t)ptfunxored[k+4] << 32;
+ for (i = 0; i < n_midi_events && k < len; i++, k += 35) {
+ midi_pos = (uint64_t)ptfunxored[k] |
+ (uint64_t)ptfunxored[k+1] << 8 |
+ (uint64_t)ptfunxored[k+2] << 16 |
+ (uint64_t)ptfunxored[k+3] << 24 |
+ (uint64_t)ptfunxored[k+4] << 32;
+ midi_pos -= zero_ticks;
+ midi_note = ptfunxored[k+8];
+ midi_len = (uint64_t)ptfunxored[k+9] |
+ (uint64_t)ptfunxored[k+10] << 8 |
+ (uint64_t)ptfunxored[k+11] << 16 |
+ (uint64_t)ptfunxored[k+12] << 24 |
+ (uint64_t)ptfunxored[k+13] << 32;
+ midi_velocity = ptfunxored[k+17];
+
+ if (midi_pos + midi_len > max_pos) {
+ max_pos = midi_pos + midi_len;
+ }
+
+ m.pos = midi_pos;
+ m.length = midi_len;
+ m.note = midi_note;
+ m.velocity = midi_velocity;
+#if 1
+// stop gap measure to prevent crashes in ardour,
+// remove when decryption is fully solved for .ptx
+ if ((m.velocity & 0x80) || (m.note & 0x80) ||
+ (m.pos & 0xff00000000LL) || (m.length & 0xff00000000LL)) {
+ continue;
+ }
+#endif
+ midi.push_back(m);
+ }
+ midichunks.push_back(mchunk (zero_ticks, max_pos, midi));
}
- // Find actual wav names
- bool first = true;
- uint16_t numberofwavs;
- char wavname[256];
- for (i = k-2; i > 4; i--) {
- if ( ((ptfunxored[i ] == 'W') || (ptfunxored[i ] == 'A') || ptfunxored[i ] == '\0') &&
- ((ptfunxored[i-1] == 'A') || (ptfunxored[i-1] == 'I') || ptfunxored[i-1] == '\0') &&
- ((ptfunxored[i-2] == 'V') || (ptfunxored[i-2] == 'F') || ptfunxored[i-2] == '\0') &&
- ((ptfunxored[i-3] == 'E') || (ptfunxored[i-3] == 'F') || ptfunxored[i-3] == '\0')) {
- j = i-4;
- l = 0;
- while (ptfunxored[j] != '\0') {
- wavname[l] = ptfunxored[j];
- l++;
- j--;
+ // Map midi chunks to regions
+ while (k < len) {
+ char midiregionname[256];
+ uint8_t namelen;
+
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"MdTEL", 5)) {
+ break;
+ }
+
+ k += 41;
+
+ nregions = 0;
+ nregions |= ptfunxored[k];
+ nregions |= ptfunxored[k+1] << 8;
+
+ for (mr = 0; mr < nregions; mr++) {
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x01", 2)) {
+ break;
}
- wavname[l] = 0;
- if (ptfunxored[i] == 'A') {
- extension = string(".aif");
- } else {
- extension = string(".wav");
+ k += 18;
+
+ namelen = ptfunxored[k];
+ for (i = 0; i < namelen; i++) {
+ midiregionname[i] = ptfunxored[k+4+i];
}
- //uint8_t playlist = ptfunxored[j-8];
-
- if (first) {
- first = false;
- for (j = k; j > 4; j--) {
- if ( (ptfunxored[j ] == 0x01) &&
- (ptfunxored[j-1] == 0x5a)) {
-
- numberofwavs = 0;
- numberofwavs |= (uint32_t)(ptfunxored[j-2] << 24);
- numberofwavs |= (uint32_t)(ptfunxored[j-3] << 16);
- numberofwavs |= (uint32_t)(ptfunxored[j-4] << 8);
- numberofwavs |= (uint32_t)(ptfunxored[j-5]);
- //printf("%d wavs\n", numberofwavs);
- break;
- }
- k--;
+ midiregionname[namelen] = '\0';
+ k += 4 + namelen;
+
+ k += 5;
+ /*
+ region_pos = (uint64_t)ptfunxored[k] |
+ (uint64_t)ptfunxored[k+1] << 8 |
+ (uint64_t)ptfunxored[k+2] << 16 |
+ (uint64_t)ptfunxored[k+3] << 24 |
+ (uint64_t)ptfunxored[k+4] << 32;
+ */
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\xfe\xff\x00\x00", 4)) {
+ break;
+ }
+
+ k += 37;
+
+ ridx = ptfunxored[k];
+ ridx |= ptfunxored[k+1] << 8;
+
+ k += 3;
+ struct mchunk mc = *(midichunks.begin()+ridx);
+
+ wav_t w = { std::string(""), 0, 0, 0 };
+ region_t r = {
+ midiregionname,
+ regionnumber++,
+ //(int64_t)mc.zero,
+ (int64_t)0xe8d4a51000ull,
+ (int64_t)(0),
+ //(int64_t)(max_pos*sessionrate*60/(960000*120)),
+ (int64_t)mc.maxlen,
+ w,
+ mc.chunk,
+ };
+ midiregions.push_back(r);
+ }
+ }
+
+ // Put midi regions on midi tracks
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x03", 2)) {
+ return;
+ }
+
+ k -= 4;
+
+ nmiditracks = 0;
+ nmiditracks |= ptfunxored[k];
+ nmiditracks |= ptfunxored[k+1] << 8;
+
+ k += 4;
+
+ for (tr = 0; tr < nmiditracks; tr++) {
+ char miditrackname[256];
+ uint8_t namelen;
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x03", 2)) {
+ return;
+ }
+
+ namelen = ptfunxored[k+9];
+ for (i = 0; i < namelen; i++) {
+ miditrackname[i] = ptfunxored[k+13+i];
+ }
+ miditrackname[namelen] = '\0';
+ k += 13 + namelen;
+ nregions = 0;
+ nregions |= ptfunxored[k];
+ nregions |= ptfunxored[k+1] << 8;
+
+ k += 13;
+
+ for (i = 0; (i < nregions) && (k < len); i++) {
+ while (k < len) {
+ if ( (ptfunxored[k] == 0x5a) &&
+ (ptfunxored[k+1] & 0x08)) {
+ break;
}
+ k++;
}
+ k += 11;
- std::string wave = string(wavname);
- std::reverse(wave.begin(), wave.end());
- wav_t f = { wave, (uint16_t)(numberofwavs - 1), 0, 0 };
+ ridx = 0;
+ ridx |= ptfunxored[k];
+ ridx |= ptfunxored[k+1] << 8;
- if (foundin(wave, string(".grp"))) {
- continue;
+ k += 5;
+
+ region_pos = (uint64_t)ptfunxored[k] |
+ (uint64_t)ptfunxored[k+1] << 8 |
+ (uint64_t)ptfunxored[k+2] << 16 |
+ (uint64_t)ptfunxored[k+3] << 24 |
+ (uint64_t)ptfunxored[k+4] << 32;
+
+ track_t mtr;
+ mtr.name = string(miditrackname);
+ mtr.index = tr;
+ mtr.playlist = 0;
+ // Find the midi region with index 'ridx'
+ std::vector<region_t>::iterator begin = midiregions.begin();
+ std::vector<region_t>::iterator finish = midiregions.end();
+ std::vector<region_t>::iterator mregion;
+ wav_t w = { std::string(""), 0, 0, 0 };
+ std::vector<midi_ev_t> m;
+ region_t r = { std::string(""), ridx, 0, 0, 0, w, m};
+ if ((mregion = std::find(begin, finish, r)) != finish) {
+ mtr.reg = *mregion;
+ mtr.reg.startpos = std::labs(region_pos - mtr.reg.startpos);
+ miditracks.push_back(mtr);
+ }
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\xff\xff\xff\xff\xff\xff\xff\xff", 8)) {
+ return;
}
+ }
+ }
+}
+
+void
+PTFFormat::parseaudio(void) {
+ uint32_t i,j,k,l;
+ std::string wave;
- actualwavs.push_back(f);
+ k = 0;
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"Audio Files", 11))
+ return;
+
+ // Find end of wav file list
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\xff\xff\xff\xff", 4))
+ return;
+
+ // Find number of wave files
+ uint16_t numberofwavs;
+ j = k;
+ if (!jumpback(&j, ptfunxored, len, (const unsigned char *)"\x5a\x01", 2))
+ return;
+
+ numberofwavs = 0;
+ numberofwavs |= (uint32_t)(ptfunxored[j-1] << 24);
+ numberofwavs |= (uint32_t)(ptfunxored[j-2] << 16);
+ numberofwavs |= (uint32_t)(ptfunxored[j-3] << 8);
+ numberofwavs |= (uint32_t)(ptfunxored[j-4]);
+ //printf("%d wavs\n", numberofwavs);
- numberofwavs--;
- if (numberofwavs <= 0)
+ // Find actual wav names
+ char wavname[256];
+ j = k - 2;
+ for (i = 0; i < numberofwavs; i++) {
+ while (j > 0) {
+ if ( ((ptfunxored[j ] == 'W') || (ptfunxored[j ] == 'A') || ptfunxored[j ] == '\0') &&
+ ((ptfunxored[j-1] == 'A') || (ptfunxored[j-1] == 'I') || ptfunxored[j-1] == '\0') &&
+ ((ptfunxored[j-2] == 'V') || (ptfunxored[j-2] == 'F') || ptfunxored[j-2] == '\0')) {
break;
+ }
+ j--;
+ }
+ j -= 4;
+ l = 0;
+ while (ptfunxored[j] != '\0') {
+ wavname[l] = ptfunxored[j];
+ l++;
+ j--;
+ }
+ wavname[l] = '\0';
+
+ // Must be at least "vaw.z\0"
+ if (l < 6) {
+ i--;
+ continue;
+ }
+
+ // and skip "zWAVE" or "zAIFF"
+ if ( ( (wavname[1] == 'W') &&
+ (wavname[2] == 'A') &&
+ (wavname[3] == 'V') &&
+ (wavname[4] == 'E')) ||
+ ( (wavname[1] == 'A') &&
+ (wavname[2] == 'I') &&
+ (wavname[3] == 'F') &&
+ (wavname[4] == 'F'))) {
+ wave = string(&wavname[5]);
+ } else {
+ wave = string(wavname);
}
+ //uint8_t playlist = ptfunxored[j-8];
+
+ std::reverse(wave.begin(), wave.end());
+ wav_t f = { wave, (uint16_t)(numberofwavs - i - 1), 0, 0 };
+
+ if (foundin(wave, string("Audio Files"))) {
+ i--;
+ continue;
+ }
+
+ actualwavs.push_back(f);
+ audiofiles.push_back(f);
+
+ //printf(" %d:%s \n", numberofwavs - i - 1, wave.c_str());
}
+ std::reverse(audiofiles.begin(), audiofiles.end());
+ std::reverse(actualwavs.begin(), actualwavs.end());
+ //resort(audiofiles);
+ //resort(actualwavs);
}
void
PTFFormat::parserest89(void) {
- uint64_t i,j,k,l;
- // Find Regions
+ uint32_t i,j,k;
uint8_t startbytes = 0;
uint8_t lengthbytes = 0;
uint8_t offsetbytes = 0;
uint8_t somethingbytes = 0;
uint8_t skipbytes = 0;
+ // Find Regions
k = 0;
- while (k < len) {
- if ( (ptfunxored[k ] == 'S') &&
- (ptfunxored[k+1] == 'n') &&
- (ptfunxored[k+2] == 'a') &&
- (ptfunxored[k+3] == 'p')) {
- break;
- }
- k++;
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"Snap", 4)) {
+ return;
}
+
uint16_t rindex = 0;
uint32_t findex = 0;
for (i = k; i < len-70; i++) {
@@ -1204,15 +1364,14 @@ PTFFormat::parserest89(void) {
}
j+=somethingbytes;
*/
- std::string filename = string(name) + extension;
+ std::string filename = string(name);
wav_t f = {
filename,
- 0,
+ (uint16_t)findex,
(int64_t)(start*ratefactor),
(int64_t)(length*ratefactor),
};
- f.index = findex;
//printf("something=%d\n", something);
vector<wav_t>::iterator begin = actualwavs.begin();
@@ -1220,6 +1379,7 @@ PTFFormat::parserest89(void) {
vector<wav_t>::iterator found;
// Add file to list only if it is an actual wav
if ((found = std::find(begin, finish, f)) != finish) {
+ f.filename = (*found).filename;
audiofiles.push_back(f);
// Also add plain wav as region
std::vector<midi_ev_t> m;
@@ -1254,19 +1414,11 @@ PTFFormat::parserest89(void) {
}
}
- while (k < len) {
- if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x03)) {
- break;
- }
- k++;
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x03", 2)) {
+ return;
}
- while (k < len) {
- if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x02)) {
- break;
- }
- k++;
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x02", 2)) {
+ return;
}
k++;
@@ -1301,89 +1453,216 @@ PTFFormat::parserest89(void) {
tr.index = tracknumber++;
for (j = k; regionspertrack > 0 && j < len; j++) {
- for (l = j; l < len; l++) {
- if ( (ptfunxored[l ] == 0x5a) &&
- (ptfunxored[l+1] == 0x07)) {
- j = l;
- break;
- }
+ jumpto(&j, ptfunxored, len, (const unsigned char *)"\x5a\x07", 2);
+ tr.reg.index = (uint16_t)(ptfunxored[j+11] & 0xff)
+ | (uint16_t)((ptfunxored[j+12] << 8) & 0xff00);
+ vector<region_t>::iterator begin = regions.begin();
+ vector<region_t>::iterator finish = regions.end();
+ vector<region_t>::iterator found;
+ if ((found = std::find(begin, finish, tr.reg)) != finish) {
+ tr.reg = (*found);
}
-
-
- if (regionspertrack == 0) {
- // tr.reg.index = (uint8_t)ptfunxored[j+13+lengthofname+5];
- break;
- } else {
-
- tr.reg.index = (uint8_t)(ptfunxored[l+11]);
- vector<region_t>::iterator begin = regions.begin();
- vector<region_t>::iterator finish = regions.end();
- vector<region_t>::iterator found;
- if ((found = std::find(begin, finish, tr.reg)) != finish) {
- tr.reg = (*found);
- }
- i = l+16;
- offset = 0;
- offset |= (uint32_t)(ptfunxored[i+3] << 24);
- offset |= (uint32_t)(ptfunxored[i+2] << 16);
- offset |= (uint32_t)(ptfunxored[i+1] << 8);
- offset |= (uint32_t)(ptfunxored[i]);
- tr.reg.startpos = (int64_t)(offset*ratefactor);
- if (tr.reg.length > 0) {
- tracks.push_back(tr);
- }
- regionspertrack--;
+ i = j+16;
+ offset = 0;
+ offset |= (uint32_t)(ptfunxored[i+3] << 24);
+ offset |= (uint32_t)(ptfunxored[i+2] << 16);
+ offset |= (uint32_t)(ptfunxored[i+1] << 8);
+ offset |= (uint32_t)(ptfunxored[i]);
+ tr.reg.startpos = (int64_t)(offset*ratefactor);
+ if (tr.reg.length > 0) {
+ tracks.push_back(tr);
}
+ regionspertrack--;
}
}
}
}
void
-PTFFormat::parserest10(void) {
- uint64_t i,j,k,l;
- // Find Regions
+PTFFormat::parserest12(void) {
+ uint32_t i,j,k,l,m,n;
uint8_t startbytes = 0;
uint8_t lengthbytes = 0;
uint8_t offsetbytes = 0;
uint8_t somethingbytes = 0;
uint8_t skipbytes = 0;
+ uint32_t maxregions = 0;
+ uint32_t findex = 0;
+ uint32_t findex2 = 0;
+ uint32_t findex3 = 0;
+ uint16_t rindex = 0;
+ vector<region_t> groups;
+ uint16_t groupcount, compoundcount, groupmax;
+ uint16_t gindex, gindex2;
+
+ m = 0;
+ n = 0;
+ vector<compound_t> groupmap;
+ // Find region group total
+ k = 0;
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"Custom 1\0\0\x5a", 11))
+ goto nocustom;
+
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\xff\xff\xff\xff", 4))
+ return;
+
+ if (!jumpback(&k, ptfunxored, len, (const unsigned char *)"\x5a", 1))
+ return;
+
+ jumpto(&k, ptfunxored, k+0x500, (const unsigned char *)"\x5a\x03", 2);
+ k++;
+
+ groupcount = 0;
+ for (i = k; i < len - 0x500; i++) {
+ if (!jumpto(&i, ptfunxored, i+0x500, (const unsigned char *)"\x5a\x03", 2))
+ break;
+ groupcount++;
+ }
+ verbose_printf("groupcount=%d\n", groupcount);
+ // Find start of group names -> group indexes
k = 0;
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"Custom 1\0\0\x5a", 11))
+ return;
+
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\xff\xff\xff\xff", 4))
+ return;
+
+ if (!jumpback(&k, ptfunxored, len, (const unsigned char *)"\x5a", 1))
+ return;
+ k++;
+
+ // Skip total number of groups
+ for (i = 0; i < groupcount; i++) {
+ while (k < len) {
+ if ( (ptfunxored[k ] == 0x5a) &&
+ ((ptfunxored[k+1] == 0x03) || (ptfunxored[k+1] == 0x0a))) {
+ break;
+ }
+ k++;
+ }
+ k++;
+ }
+
while (k < len) {
- if ( (ptfunxored[k ] == 'S') &&
- (ptfunxored[k+1] == 'n') &&
- (ptfunxored[k+2] == 'a') &&
- (ptfunxored[k+3] == 'p')) {
+ if ( (ptfunxored[k ] == 0x5a) &&
+ (ptfunxored[k+1] & 0x02)) {
break;
}
k++;
}
- for (i = k; i < len-70; i++) {
- if ( (ptfunxored[i ] == 0x5a) &&
- (ptfunxored[i+1] == 0x02)) {
- k = i;
- break;
+ k++;
+
+ while (k < len) {
+ if ( (ptfunxored[k ] == 0x5a) &&
+ (ptfunxored[k+1] & 0x02)) {
+ break;
}
+ k++;
}
k++;
- for (i = k; i < len-70; i++) {
- if ( (ptfunxored[i ] == 0x5a) &&
- (ptfunxored[i+1] == 0x02)) {
- k = i;
+
+ verbose_printf("start of groups k=0x%x\n", k);
+ // Loop over all groups and associate the compound index/name
+ for (i = 0; i < groupcount; i++) {
+ while (k < len) {
+ if ( (ptfunxored[k ] == 0x5a) &&
+ (ptfunxored[k+1] & 0x02)) {
break;
+ }
+ k++;
+ }
+ if (k > len)
+ break;
+ gindex = ptfunxored[k+9] | ptfunxored[k+10] << 8;
+ gindex2 = ptfunxored[k+3] | ptfunxored[k+4] << 8;
+
+ uint8_t lengthofname = ptfunxored[k+13];
+ char name[256] = {0};
+ for (l = 0; l < lengthofname; l++) {
+ name[l] = ptfunxored[k+17+l];
+ }
+ name[l] = '\0';
+
+ if (strlen(name) == 0) {
+ i--;
+ k++;
+ continue;
}
+ compound_t c = {
+ (uint16_t)i, // curr_index
+ gindex, // unknown1
+ 0, // level
+ 0, // ontopof_index
+ gindex2, // next_index
+ string(name)
+ };
+ groupmap.push_back(c);
+ k++;
}
- k++;
- uint16_t rindex = 0;
- uint32_t findex = 0;
- for (i = k; i < len-70; i++) {
+
+ // Sort lookup table by group index
+ //std::sort(glookup.begin(), glookup.end(), regidx_compare);
+
+ // print compounds as flattened tree
+ j = 0;
+ for (std::vector<compound_t>::iterator i = groupmap.begin(); i != groupmap.end(); ++i) {
+ verbose_printf("g(%u) uk(%u) ni(%u) %s\n", i->curr_index, i->unknown1, i->next_index, i->name.c_str());
+ j++;
+ }
+
+nocustom:
+ // Find region groups
+ k = 0;
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"Snap", 4))
+ return;
+
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a\x06", 2))
+ return;
+ for (l = 0; l < 11; l++) {
+ if (!jumpto(&k, ptfunxored, len, (const unsigned char *)"\x5a", 1))
+ return;
+ k++;
+ }
+
+ /*
+ // Hack to find actual start of region group information
+ while (k < len) {
+ if ((ptfunxored[k+13] == 0x5a) && (ptfunxored[k+14] & 0xf)) {
+ k += 13;
+ continue;
+ } else {
+ if ((ptfunxored[k+9] == 0x5a) && (ptfunxored[k+10] & 0xf)) {
+ k += 9;
+ continue;
+ }
+ }
+ if ((ptfunxored[k] == 0x5a) && (ptfunxored[k+1] & 0xf))
+ break;
+ k++;
+ }
+ */
+ verbose_printf("hack region groups k=0x%x\n", k);
+
+ groupcount = 0;
+ compoundcount = 0;
+ j = k;
+ if (!jumpto(&j, ptfunxored, j+100, (const unsigned char *)"\x5a\x09", 2)) {
+ groupmax = 0;
+ } else {
+ groupmax = ptfunxored[j+3] | ptfunxored[j+4] << 8;
+ }
+ i = k;
+ for (; (groupcount < groupmax) && (i < len-70); i++) {
if ( (ptfunxored[i ] == 0x5a) &&
- (ptfunxored[i+1] == 0x08)) {
+ (ptfunxored[i+1] == 0x03)) {
break;
}
if ( (ptfunxored[i ] == 0x5a) &&
- (ptfunxored[i+1] == 0x01)) {
+ ((ptfunxored[i+1] == 0x01) || (ptfunxored[i+1] == 0x02))) {
+
+ //findex = ptfunxored[i-48] | ptfunxored[i-47] << 8;
+ //rindex = ptfunxored[i+3] | ptfunxored[i+4] << 8;
uint8_t lengthofname = ptfunxored[i+9];
if (ptfunxored[i+13] == 0x5a) {
@@ -1395,91 +1674,371 @@ PTFFormat::parserest10(void) {
}
name[j] = '\0';
j += i+13;
- //uint8_t disabled = ptfunxored[j];
- //printf("%s\n", name);
offsetbytes = (ptfunxored[j+1] & 0xf0) >> 4;
lengthbytes = (ptfunxored[j+2] & 0xf0) >> 4;
startbytes = (ptfunxored[j+3] & 0xf0) >> 4;
somethingbytes = (ptfunxored[j+3] & 0xf);
skipbytes = ptfunxored[j+4];
+ uint16_t regionsingroup = ptfunxored[j+5
+ +startbytes
+ +lengthbytes
+ +offsetbytes
+ +somethingbytes
+ +skipbytes
+ +12]
+ | ptfunxored[j+5
+ +startbytes
+ +lengthbytes
+ +offsetbytes
+ +somethingbytes
+ +skipbytes
+ +13] << 8;
+
findex = ptfunxored[j+5
+startbytes
+lengthbytes
+offsetbytes
+somethingbytes
+skipbytes
- +37];
- /*rindex = ptfunxored[j+5
+ +37]
+ | ptfunxored[j+5
+startbytes
+lengthbytes
+offsetbytes
+somethingbytes
+skipbytes
- +24];
- */
- uint32_t sampleoffset = 0;
+ +38] << 8;
+
+ uint64_t sampleoffset = 0;
switch (offsetbytes) {
+ case 5:
+ sampleoffset |= (uint64_t)(ptfunxored[j+9]) << 32;
case 4:
- sampleoffset |= (uint32_t)(ptfunxored[j+8] << 24);
+ sampleoffset |= (uint64_t)(ptfunxored[j+8]) << 24;
case 3:
- sampleoffset |= (uint32_t)(ptfunxored[j+7] << 16);
+ sampleoffset |= (uint64_t)(ptfunxored[j+7]) << 16;
case 2:
- sampleoffset |= (uint32_t)(ptfunxored[j+6] << 8);
+ sampleoffset |= (uint64_t)(ptfunxored[j+6]) << 8;
case 1:
- sampleoffset |= (uint32_t)(ptfunxored[j+5]);
+ sampleoffset |= (uint64_t)(ptfunxored[j+5]);
default:
break;
}
j+=offsetbytes;
- uint32_t length = 0;
+ uint64_t length = 0;
switch (lengthbytes) {
+ case 5:
+ length |= (uint64_t)(ptfunxored[j+9]) << 32;
case 4:
- length |= (uint32_t)(ptfunxored[j+8] << 24);
+ length |= (uint64_t)(ptfunxored[j+8]) << 24;
case 3:
- length |= (uint32_t)(ptfunxored[j+7] << 16);
+ length |= (uint64_t)(ptfunxored[j+7]) << 16;
case 2:
- length |= (uint32_t)(ptfunxored[j+6] << 8);
+ length |= (uint64_t)(ptfunxored[j+6]) << 8;
case 1:
- length |= (uint32_t)(ptfunxored[j+5]);
+ length |= (uint64_t)(ptfunxored[j+5]);
default:
break;
}
j+=lengthbytes;
- uint32_t start = 0;
+ uint64_t start = 0;
switch (startbytes) {
+ case 5:
+ start |= (uint64_t)(ptfunxored[j+9]) << 32;
case 4:
- start |= (uint32_t)(ptfunxored[j+8] << 24);
+ start |= (uint64_t)(ptfunxored[j+8]) << 24;
case 3:
- start |= (uint32_t)(ptfunxored[j+7] << 16);
+ start |= (uint64_t)(ptfunxored[j+7]) << 16;
case 2:
- start |= (uint32_t)(ptfunxored[j+6] << 8);
+ start |= (uint64_t)(ptfunxored[j+6]) << 8;
case 1:
- start |= (uint32_t)(ptfunxored[j+5]);
+ start |= (uint64_t)(ptfunxored[j+5]);
default:
break;
}
j+=startbytes;
- /*
- uint32_t something = 0;
- switch (somethingbytes) {
+
+ if (offsetbytes == 5)
+ sampleoffset -= 1000000000000ul;
+ if (startbytes == 5)
+ start -= 1000000000000ul;
+
+ std::string filename = string(name);
+ wav_t f = {
+ filename,
+ (uint16_t)findex,
+ (int64_t)(start*ratefactor),
+ (int64_t)(length*ratefactor),
+ };
+
+ if (strlen(name) == 0) {
+ continue;
+ }
+ if (length == 0) {
+ continue;
+ }
+ //if (foundin(filename, string(".grp")) && !regionsingroup && !findex) {
+ // // Empty region group
+ // verbose_printf(" EMPTY: %s\n", name);
+ // continue;
+ if (regionsingroup) {
+ // Active region grouping
+ // Iterate parsing all the regions in the group
+ verbose_printf("\nGROUP\t%d %s\n", groupcount, name);
+ m = j;
+ n = j+16;
+
+ for (l = 0; l < regionsingroup; l++) {
+ if (!jumpto(&n, ptfunxored, len, (const unsigned char *)"\x5a\x02", 2)) {
+ return;
+ }
+ n++;
+ }
+ n--;
+ //printf("n=0x%x\n", n+112);
+ //findex = ptfunxored[n+112] | (ptfunxored[n+113] << 8);
+ findex = ptfunxored[i-11] | ptfunxored[i-10] << 8;
+ findex2 = ptfunxored[n+108] | (ptfunxored[n+109] << 8);
+ //findex2= rindex; //XXX
+ // Find wav with correct findex
+ vector<wav_t>::iterator wave = actualwavs.end();
+ for (vector<wav_t>::iterator aw = actualwavs.begin();
+ aw != actualwavs.end(); ++aw) {
+ if (aw->index == findex) {
+ wave = aw;
+ }
+ }
+ if (wave == actualwavs.end())
+ return;
+
+ if (!jumpto(&n, ptfunxored, len, (const unsigned char *)"\x5a\x02", 2))
+ return;
+ n += 37;
+ //rindex = ptfunxored[n] | (ptfunxored[n+1] << 8);
+ for (l = 0; l < regionsingroup; l++) {
+ if (!jumpto(&m, ptfunxored, len, (const unsigned char *)"\x5a\x02", 2))
+ return;
+
+ m += 37;
+ rindex = ptfunxored[m] | (ptfunxored[m+1] << 8);
+
+ m += 12;
+ sampleoffset = 0;
+ switch (offsetbytes) {
+ case 5:
+ sampleoffset |= (uint64_t)(ptfunxored[m+4]) << 32;
+ case 4:
+ sampleoffset |= (uint64_t)(ptfunxored[m+3]) << 24;
+ case 3:
+ sampleoffset |= (uint64_t)(ptfunxored[m+2]) << 16;
+ case 2:
+ sampleoffset |= (uint64_t)(ptfunxored[m+1]) << 8;
+ case 1:
+ sampleoffset |= (uint64_t)(ptfunxored[m]);
+ default:
+ break;
+ }
+ m+=offsetbytes+3;
+ start = 0;
+ switch (offsetbytes) {
+ case 5:
+ start |= (uint64_t)(ptfunxored[m+4]) << 32;
+ case 4:
+ start |= (uint64_t)(ptfunxored[m+3]) << 24;
+ case 3:
+ start |= (uint64_t)(ptfunxored[m+2]) << 16;
+ case 2:
+ start |= (uint64_t)(ptfunxored[m+1]) << 8;
+ case 1:
+ start |= (uint64_t)(ptfunxored[m]);
+ default:
+ break;
+ }
+ m+=offsetbytes+3;
+ length = 0;
+ switch (lengthbytes) {
+ case 5:
+ length |= (uint64_t)(ptfunxored[m+4]) << 32;
+ case 4:
+ length |= (uint64_t)(ptfunxored[m+3]) << 24;
+ case 3:
+ length |= (uint64_t)(ptfunxored[m+2]) << 16;
+ case 2:
+ length |= (uint64_t)(ptfunxored[m+1]) << 8;
+ case 1:
+ length |= (uint64_t)(ptfunxored[m]);
+ default:
+ break;
+ }
+ m+=8;
+ findex3 = ptfunxored[m] | (ptfunxored[m+1] << 8);
+ sampleoffset -= 1000000000000ul;
+ start -= 1000000000000ul;
+
+ /*
+ // Find wav with correct findex
+ vector<wav_t>::iterator wave = actualwavs.end();
+ for (vector<wav_t>::iterator aw = actualwavs.begin();
+ aw != actualwavs.end(); ++aw) {
+ if (aw->index == (glookup.begin()+findex2)->startpos) {
+ wave = aw;
+ }
+ }
+ if (wave == actualwavs.end())
+ return;
+ // findex is the true source
+ std::vector<midi_ev_t> md;
+ region_t r = {
+ name,
+ (uint16_t)rindex,
+ (int64_t)findex, //(start*ratefactor),
+ (int64_t)findex2, //(sampleoffset*ratefactor),
+ (int64_t)findex3, //(length*ratefactor),
+ *wave,
+ md
+ };
+ groups.push_back(r);
+ */
+ vector<compound_t>::iterator g = groupmap.begin()+findex2;
+ if (g >= groupmap.end())
+ continue;
+ compound_t c;
+ c.name = string(g->name);
+ c.curr_index = compoundcount;
+ c.level = findex;
+ c.ontopof_index = findex3;
+ c.next_index = g->next_index;
+ c.unknown1 = g->unknown1;
+ compounds.push_back(c);
+ verbose_printf("COMPOUND\tc(%d) %s (%d %d) -> c(%u) %s\n", c.curr_index, c.name.c_str(), c.level, c.ontopof_index, c.next_index, name);
+ compoundcount++;
+ }
+ groupcount++;
+ }
+ }
+ }
+ j = 0;
+
+ // Start pure regions
+ k = m != 0 ? m : k - 1;
+ if (!jumpto(&k, ptfunxored, k+64, (const unsigned char *)"\x5a\x05", 2))
+ jumpto(&k, ptfunxored, k+128, (const unsigned char *)"\x5a\x02", 2);
+
+ verbose_printf("pure regions k=0x%x\n", k);
+
+ maxregions |= (uint32_t)(ptfunxored[k-4]);
+ maxregions |= (uint32_t)(ptfunxored[k-3]) << 8;
+ maxregions |= (uint32_t)(ptfunxored[k-2]) << 16;
+ maxregions |= (uint32_t)(ptfunxored[k-1]) << 24;
+
+ verbose_printf("maxregions=%u\n", maxregions);
+ rindex = 0;
+ for (i = k; rindex < maxregions && i < len; i++) {
+ if ( (ptfunxored[i ] == 0xff) &&
+ (ptfunxored[i+1] == 0x5a) &&
+ (ptfunxored[i+2] == 0x01)) {
+ break;
+ }
+ //if ( (ptfunxored[i ] == 0x5a) &&
+ // (ptfunxored[i+1] == 0x03)) {
+ // break;
+ //}
+ if ( (ptfunxored[i ] == 0x5a) &&
+ ((ptfunxored[i+1] == 0x01) || (ptfunxored[i+1] == 0x02))) {
+
+ //findex = ptfunxored[i-48] | ptfunxored[i-47] << 8;
+ //rindex = ptfunxored[i+3] | ptfunxored[i+4] << 8;
+
+ uint8_t lengthofname = ptfunxored[i+9];
+ if (ptfunxored[i+13] == 0x5a) {
+ continue;
+ }
+ char name[256] = {0};
+ for (j = 0; j < lengthofname; j++) {
+ name[j] = ptfunxored[i+13+j];
+ }
+ name[j] = '\0';
+ j += i+13;
+
+ offsetbytes = (ptfunxored[j+1] & 0xf0) >> 4;
+ lengthbytes = (ptfunxored[j+2] & 0xf0) >> 4;
+ startbytes = (ptfunxored[j+3] & 0xf0) >> 4;
+ somethingbytes = (ptfunxored[j+3] & 0xf);
+ skipbytes = ptfunxored[j+4];
+ findex = ptfunxored[j+5
+ +startbytes
+ +lengthbytes
+ +offsetbytes
+ +somethingbytes
+ +skipbytes
+ +37]
+ | ptfunxored[j+5
+ +startbytes
+ +lengthbytes
+ +offsetbytes
+ +somethingbytes
+ +skipbytes
+ +38] << 8;
+
+ uint64_t sampleoffset = 0;
+ switch (offsetbytes) {
+ case 5:
+ sampleoffset |= (uint64_t)(ptfunxored[j+9]) << 32;
case 4:
- something |= (uint32_t)(ptfunxored[j+8] << 24);
+ sampleoffset |= (uint64_t)(ptfunxored[j+8]) << 24;
case 3:
- something |= (uint32_t)(ptfunxored[j+7] << 16);
+ sampleoffset |= (uint64_t)(ptfunxored[j+7]) << 16;
case 2:
- something |= (uint32_t)(ptfunxored[j+6] << 8);
+ sampleoffset |= (uint64_t)(ptfunxored[j+6]) << 8;
case 1:
- something |= (uint32_t)(ptfunxored[j+5]);
+ sampleoffset |= (uint64_t)(ptfunxored[j+5]);
default:
break;
}
- j+=somethingbytes;
- */
- std::string filename = string(name) + extension;
+ j+=offsetbytes;
+ uint64_t length = 0;
+ switch (lengthbytes) {
+ case 5:
+ length |= (uint64_t)(ptfunxored[j+9]) << 32;
+ case 4:
+ length |= (uint64_t)(ptfunxored[j+8]) << 24;
+ case 3:
+ length |= (uint64_t)(ptfunxored[j+7]) << 16;
+ case 2:
+ length |= (uint64_t)(ptfunxored[j+6]) << 8;
+ case 1:
+ length |= (uint64_t)(ptfunxored[j+5]);
+ default:
+ break;
+ }
+ j+=lengthbytes;
+ uint64_t start = 0;
+ switch (startbytes) {
+ case 5:
+ start |= (uint64_t)(ptfunxored[j+9]) << 32;
+ case 4:
+ start |= (uint64_t)(ptfunxored[j+8]) << 24;
+ case 3:
+ start |= (uint64_t)(ptfunxored[j+7]) << 16;
+ case 2:
+ start |= (uint64_t)(ptfunxored[j+6]) << 8;
+ case 1:
+ start |= (uint64_t)(ptfunxored[j+5]);
+ default:
+ break;
+ }
+ j+=startbytes;
+
+ if (offsetbytes == 5)
+ sampleoffset -= 1000000000000ul;
+ if (startbytes == 5)
+ start -= 1000000000000ul;
+
+ std::string filename = string(name);
wav_t f = {
filename,
- 0,
+ (uint16_t)findex,
(int64_t)(start*ratefactor),
(int64_t)(length*ratefactor),
};
@@ -1490,66 +2049,164 @@ PTFFormat::parserest10(void) {
if (length == 0) {
continue;
}
- f.index = findex;
- //printf("something=%d\n", something);
-
- vector<wav_t>::iterator begin = actualwavs.begin();
- vector<wav_t>::iterator finish = actualwavs.end();
- vector<wav_t>::iterator found;
- // Add file to list only if it is an actual wav
- if ((found = std::find(begin, finish, f)) != finish) {
- audiofiles.push_back(f);
- // Also add plain wav as region
- std::vector<midi_ev_t> m;
- region_t r = {
- name,
- rindex,
- (int64_t)(start*ratefactor),
- (int64_t)(sampleoffset*ratefactor),
- (int64_t)(length*ratefactor),
- f,
- m
- };
- regions.push_back(r);
- // Region only
- } else {
- if (foundin(filename, string(".grp"))) {
- continue;
+ // Regular region mapping to a source
+ uint32_t n = j;
+ if (!jumpto(&n, ptfunxored, len, (const unsigned char *)"\x5a\x01", 2))
+ return;
+ //printf("XXX=%d\n", ptfunxored[n+12] | ptfunxored[n+13]<<8);
+
+ // Find wav with correct findex
+ vector<wav_t>::iterator wave = actualwavs.end();
+ for (vector<wav_t>::iterator aw = actualwavs.begin();
+ aw != actualwavs.end(); ++aw) {
+ if (aw->index == findex) {
+ wave = aw;
}
- std::vector<midi_ev_t> m;
- region_t r = {
- name,
- rindex,
- (int64_t)(start*ratefactor),
- (int64_t)(sampleoffset*ratefactor),
- (int64_t)(length*ratefactor),
- f,
- m
- };
- regions.push_back(r);
}
+ if (wave == actualwavs.end()) {
+ verbose_printf("missing source with findex\n");
+ continue;
+ }
+ //verbose_printf("\n+r(%d) w(%d) REGION: %s st(%lx)x%u of(%lx)x%u ln(%lx)x%u\n", rindex, findex, name, start, startbytes, sampleoffset, offsetbytes, length, lengthbytes);
+ verbose_printf("REGION\tg(NA)\tr(%d)\tw(%d) %s(%s)\n", rindex, findex, name, wave->filename.c_str());
+ std::vector<midi_ev_t> md;
+ region_t r = {
+ name,
+ rindex,
+ (int64_t)(start*ratefactor),
+ (int64_t)(sampleoffset*ratefactor),
+ (int64_t)(length*ratefactor),
+ *wave,
+ md
+ };
+ regions.push_back(r);
rindex++;
- //printf("%s\n", name);
}
}
+
+ // print compounds
+ vector<uint16_t> rootnodes;
+ bool found = false;
+
+ j = 0;
+ for (vector<compound_t>::iterator cmp = compounds.begin();
+ cmp != compounds.end(); ++cmp) {
+ found = false;
+ for (vector<compound_t>::iterator tmp = compounds.begin();
+ tmp != compounds.end(); ++tmp) {
+ if (tmp == cmp)
+ continue;
+ if (tmp->ontopof_index == cmp->curr_index)
+ found = true;
+ }
+ // Collect a vector of all the root nodes (no others point to)
+ if (!found)
+ rootnodes.push_back(cmp->curr_index);
+ }
+
+ for (vector<uint16_t>::iterator rt = rootnodes.begin();
+ rt != rootnodes.end(); ++rt) {
+ vector<compound_t>::iterator cmp = compounds.begin()+(*rt);
+ // Now we are at a root node, follow to leaf
+ if (cmp >= compounds.end())
+ continue;
+
+ verbose_printf("----\n");
+
+ for (; cmp < compounds.end() && cmp->curr_index != cmp->next_index;
+ cmp = compounds.begin()+cmp->next_index) {
+
+ // Find region
+ vector<region_t>::iterator r = regions.end();
+ for (vector<region_t>::iterator rs = regions.begin();
+ rs != regions.end(); rs++) {
+ if (rs->index == cmp->unknown1 + cmp->level) {
+ r = rs;
+ }
+ }
+ if (r == regions.end())
+ continue;
+ verbose_printf("\t->cidx(%u) pl(%u)+ridx(%u) cflags(0x%x) ?(%u) grp(%s) reg(%s)\n", cmp->curr_index, cmp->level, cmp->unknown1, cmp->ontopof_index, cmp->next_index, cmp->name.c_str(), r->name.c_str());
+ }
+ // Find region
+ vector<region_t>::iterator r = regions.end();
+ for (vector<region_t>::iterator rs = regions.begin();
+ rs != regions.end(); rs++) {
+ if (rs->index == cmp->unknown1 + cmp->level) {
+ r = rs;
+ }
+ }
+ if (r == regions.end())
+ continue;
+ verbose_printf("\tLEAF->cidx(%u) pl(%u)+ridx(%u) cflags(0x%x) ?(%u) grp(%s) reg(%s)\n", cmp->curr_index, cmp->level, cmp->unknown1, cmp->ontopof_index, cmp->next_index, cmp->name.c_str(), r->name.c_str());
+ }
+
+ // Start grouped regions
+
+ // Print region groups mapped to sources
+ for (vector<region_t>::iterator a = groups.begin(); a != groups.end(); ++a) {
+ // Find wav with findex
+ vector<wav_t>::iterator wav = audiofiles.end();
+ for (vector<wav_t>::iterator ws = audiofiles.begin();
+ ws != audiofiles.end(); ws++) {
+ if (ws->index == a->startpos) {
+ wav = ws;
+ }
+ }
+ if (wav == audiofiles.end())
+ continue;
+
+ // Find wav with findex2
+ vector<wav_t>::iterator wav2 = audiofiles.end();
+ for (vector<wav_t>::iterator ws = audiofiles.begin();
+ ws != audiofiles.end(); ws++) {
+ if (ws->index == a->sampleoffset) {
+ wav2 = ws;
+ }
+ }
+ if (wav2 == audiofiles.end())
+ continue;
+
+ verbose_printf("Group: %s -> %s OR %s\n", a->name.c_str(), wav->filename.c_str(), wav2->filename.c_str());
+ }
+
+ //filter(regions);
+ //resort(regions);
+
// Tracks
uint32_t offset;
uint32_t tracknumber = 0;
uint32_t regionspertrack = 0;
- for (;k < len; k++) {
- if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x08)) {
- break;
- }
+ uint32_t maxtracks = 0;
+
+ // Total tracks
+ j = k;
+ if (!jumpto(&j, ptfunxored, len, (const unsigned char *)"\x5a\x03\x00", 3))
+ return;
+ maxtracks |= (uint32_t)(ptfunxored[j-4]);
+ maxtracks |= (uint32_t)(ptfunxored[j-3]) << 8;
+ maxtracks |= (uint32_t)(ptfunxored[j-2]) << 16;
+ maxtracks |= (uint32_t)(ptfunxored[j-1]) << 24;
+
+ // Jump to start of region -> track mappings
+ if (jumpto(&k, ptfunxored, k + regions.size() * 0x400, (const unsigned char *)"\x5a\x08", 2)) {
+ if (!jumpback(&k, ptfunxored, len, (const unsigned char *)"\x5a\x02", 2))
+ return;
+ } else if (jumpto(&k, ptfunxored, k + regions.size() * 0x400, (const unsigned char *)"\x5a\x0a", 2)) {
+ if (!jumpback(&k, ptfunxored, len, (const unsigned char *)"\x5a\x01", 2))
+ return;
+ } else {
+ return;
}
- k++;
+ verbose_printf("tracks k=0x%x\n", k);
+
for (;k < len; k++) {
if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x04)) {
+ (ptfunxored[k+1] & 0x04)) {
break;
}
if ( (ptfunxored[k ] == 0x5a) &&
- (ptfunxored[k+1] == 0x02)) {
+ (ptfunxored[k+1] & 0x02)) {
uint8_t lengthofname = 0;
lengthofname = ptfunxored[k+9];
@@ -1569,40 +2226,41 @@ PTFFormat::parserest10(void) {
tr.name = string(name);
tr.index = tracknumber++;
- for (j = k; regionspertrack > 0 && j < len; j++) {
- for (l = j; l < len; l++) {
- if ( (ptfunxored[l ] == 0x5a) &&
- (ptfunxored[l+1] == 0x08)) {
- j = l+1;
- break;
- }
- }
-
-
- if (regionspertrack == 0) {
- // tr.reg.index = (uint8_t)ptfunxored[j+13+lengthofname+5];
- break;
+ for (j = k+18+lengthofname; regionspertrack > 0 && j < len; j++) {
+ jumpto(&j, ptfunxored, len, (const unsigned char *)"\x5a", 1);
+ bool isgroup = ptfunxored[j+27] > 0;
+ if (isgroup) {
+ tr.reg.name = string("");
+ tr.reg.length = 0;
+ //tr.reg.index = 0xffff;
+ verbose_printf("TRACK: t(%d) g(%d) G(%s) -> T(%s)\n",
+ tracknumber, tr.reg.index, tr.reg.name.c_str(), tr.name.c_str());
} else {
-
- tr.reg.index = (uint8_t)(ptfunxored[l+11]);
+ tr.reg.index = ((uint16_t)(ptfunxored[j+11]) & 0xff)
+ | (((uint16_t)(ptfunxored[j+12]) << 8) & 0xff00);
vector<region_t>::iterator begin = regions.begin();
vector<region_t>::iterator finish = regions.end();
vector<region_t>::iterator found;
if ((found = std::find(begin, finish, tr.reg)) != finish) {
- tr.reg = (*found);
- }
- i = l+16;
- offset = 0;
- offset |= (uint32_t)(ptfunxored[i+3] << 24);
- offset |= (uint32_t)(ptfunxored[i+2] << 16);
- offset |= (uint32_t)(ptfunxored[i+1] << 8);
- offset |= (uint32_t)(ptfunxored[i]);
- tr.reg.startpos = (int64_t)(offset*ratefactor);
- if (tr.reg.length > 0) {
- tracks.push_back(tr);
+ tr.reg = *found;
}
- regionspertrack--;
+ verbose_printf("TRACK: t(%d) r(%d) R(%s) -> T(%s)\n",
+ tracknumber, tr.reg.index, tr.reg.name.c_str(), tr.name.c_str());
}
+ i = j+16;
+ offset = 0;
+ offset |= (uint32_t)(ptfunxored[i+3] << 24);
+ offset |= (uint32_t)(ptfunxored[i+2] << 16);
+ offset |= (uint32_t)(ptfunxored[i+1] << 8);
+ offset |= (uint32_t)(ptfunxored[i]);
+ tr.reg.startpos = (int64_t)(offset*ratefactor);
+ if (tr.reg.length > 0) {
+ tracks.push_back(tr);
+ }
+ regionspertrack--;
+
+ jumpto(&j, ptfunxored, len, (const unsigned char *)"\xff\xff\xff\xff\xff\xff\xff\xff", 8);
+ j += 12;
}
}
}
diff --git a/libs/ptformat/ptfformat.h b/libs/ptformat/ptfformat.h
index c8d9667105..67110414d3 100644
--- a/libs/ptformat/ptfformat.h
+++ b/libs/ptformat/ptfformat.h
@@ -28,10 +28,15 @@ public:
~PTFFormat();
/* Return values: 0 success
- -1 could not open file as ptf
+ -1 could not parse pt session
*/
int load(std::string path, int64_t targetsr);
+ /* Return values: 0 success
+ -1 could not decrypt pt session
+ */
+ int unxor(std::string path);
+
struct wav_t {
std::string filename;
uint16_t index;
@@ -70,8 +75,22 @@ public:
bool operator ==(const struct region& other) {
return (this->index == other.index);
}
+
+ bool operator <(const struct region& other) const {
+ return (strcasecmp(this->name.c_str(),
+ other.name.c_str()) < 0);
+ }
} region_t;
+ typedef struct compound {
+ uint16_t curr_index;
+ uint16_t unknown1;
+ uint16_t level;
+ uint16_t ontopof_index;
+ uint16_t next_index;
+ std::string name;
+ } compound_t;
+
typedef struct track {
std::string name;
uint16_t index;
@@ -86,6 +105,7 @@ public:
std::vector<wav_t> audiofiles;
std::vector<region_t> regions;
std::vector<region_t> midiregions;
+ std::vector<compound_t> compounds;
std::vector<track_t> tracks;
std::vector<track_t> miditracks;
@@ -129,6 +149,8 @@ public:
uint64_t len;
private:
+ bool jumpback(uint32_t *currpos, unsigned char *buf, const uint32_t maxoffset, const unsigned char *needle, const uint32_t needlelen);
+ bool jumpto(uint32_t *currpos, unsigned char *buf, const uint32_t maxoffset, const unsigned char *needle, const uint32_t needlelen);
bool foundin(std::string haystack, std::string needle);
int64_t foundat(unsigned char *haystack, uint64_t n, const char *needle);
int parse(void);
@@ -142,16 +164,17 @@ private:
void parse10header(void);
void parserest5(void);
void parserest89(void);
- void parserest10(void);
+ void parserest12(void);
void parseaudio5(void);
void parseaudio(void);
void parsemidi(void);
+ void parsemidi12(void);
void resort(std::vector<wav_t>& ws);
+ void resort(std::vector<region_t>& rs);
+ void filter(std::vector<region_t>& rs);
std::vector<wav_t> actualwavs;
float ratefactor;
std::string extension;
- unsigned char key10a;
- unsigned char key10b;
};