2 |
* * |
* * |
3 |
* libgig - C++ cross-platform Gigasampler format file access library * |
* libgig - C++ cross-platform Gigasampler format file access library * |
4 |
* * |
* * |
5 |
* Copyright (C) 2003-2020 by Christian Schoenebeck * |
* Copyright (C) 2003-2021 by Christian Schoenebeck * |
6 |
* <cuse@users.sourceforge.net> * |
* <cuse@users.sourceforge.net> * |
7 |
* * |
* * |
8 |
* This library is free software; you can redistribute it and/or modify * |
* This library is free software; you can redistribute it and/or modify * |
482 |
ScanCompressedSample(); |
ScanCompressedSample(); |
483 |
} |
} |
484 |
|
|
485 |
// we use a buffer for decompression and for truncating 24 bit samples to 16 bit |
// we use a buffer for decompression only |
486 |
if ((Compressed || BitDepth == 24) && !InternalDecompressionBuffer.Size) { |
if (Compressed && !InternalDecompressionBuffer.Size) { |
487 |
InternalDecompressionBuffer.pStart = new unsigned char[INITIAL_SAMPLE_BUFFER_SIZE]; |
InternalDecompressionBuffer.pStart = new unsigned char[INITIAL_SAMPLE_BUFFER_SIZE]; |
488 |
InternalDecompressionBuffer.Size = INITIAL_SAMPLE_BUFFER_SIZE; |
InternalDecompressionBuffer.Size = INITIAL_SAMPLE_BUFFER_SIZE; |
489 |
} |
} |
3498 |
RIFF::List* _3prg = rgn->GetSubList(LIST_TYPE_3PRG); |
RIFF::List* _3prg = rgn->GetSubList(LIST_TYPE_3PRG); |
3499 |
if (_3prg) { |
if (_3prg) { |
3500 |
int dimensionRegionNr = 0; |
int dimensionRegionNr = 0; |
3501 |
RIFF::List* _3ewl = _3prg->GetFirstSubList(); |
size_t i = 0; |
3502 |
while (_3ewl) { |
for (RIFF::List* _3ewl = _3prg->GetSubListAt(i); _3ewl; |
3503 |
|
_3ewl = _3prg->GetSubListAt(++i)) |
3504 |
|
{ |
3505 |
if (_3ewl->GetListType() == LIST_TYPE_3EWL) { |
if (_3ewl->GetListType() == LIST_TYPE_3EWL) { |
3506 |
pDimensionRegions[dimensionRegionNr] = new DimensionRegion(this, _3ewl); |
pDimensionRegions[dimensionRegionNr] = new DimensionRegion(this, _3ewl); |
3507 |
dimensionRegionNr++; |
dimensionRegionNr++; |
3508 |
} |
} |
|
_3ewl = _3prg->GetNextSubList(); |
|
3509 |
} |
} |
3510 |
if (dimensionRegionNr == 0) throw gig::Exception("No dimension region found."); |
if (dimensionRegionNr == 0) throw gig::Exception("No dimension region found."); |
3511 |
} |
} |
3952 |
* @throws gig::Exception if requested zone could not be splitted |
* @throws gig::Exception if requested zone could not be splitted |
3953 |
*/ |
*/ |
3954 |
void Region::SplitDimensionZone(dimension_t type, int zone) { |
void Region::SplitDimensionZone(dimension_t type, int zone) { |
3955 |
|
if (!Dimensions) |
3956 |
|
throw gig::Exception("Could not split dimension zone, because there is no dimension at all."); |
3957 |
dimension_def_t* oldDef = GetDimensionDefinition(type); |
dimension_def_t* oldDef = GetDimensionDefinition(type); |
3958 |
if (!oldDef) |
if (!oldDef) |
3959 |
throw gig::Exception("Could not split dimension zone, no such dimension of given type"); |
throw gig::Exception("Could not split dimension zone, no such dimension of given type"); |
3980 |
// requested by the arguments of this method call) to the temporary |
// requested by the arguments of this method call) to the temporary |
3981 |
// region, and don't use Region::CopyAssign() here for this task, since |
// region, and don't use Region::CopyAssign() here for this task, since |
3982 |
// it would also alter fast lookup helper variables here and there |
// it would also alter fast lookup helper variables here and there |
3983 |
dimension_def_t newDef; |
dimension_def_t newDef = {}; |
3984 |
for (int i = 0; i < Dimensions; ++i) { |
for (int i = 0; i < Dimensions; ++i) { |
3985 |
dimension_def_t def = pDimensionDefinitions[i]; // copy, don't reference |
dimension_def_t def = pDimensionDefinitions[i]; // copy, don't reference |
3986 |
// is this the dimension requested by the method arguments? ... |
// is this the dimension requested by the method arguments? ... |
3991 |
} |
} |
3992 |
tempRgn->AddDimension(&def); |
tempRgn->AddDimension(&def); |
3993 |
} |
} |
3994 |
|
// silence clang sanitizer warning |
3995 |
|
if (newDef.dimension == dimension_none) |
3996 |
|
throw gig::Exception("Unexpected internal failure resolving dimension in SplitDimensionZone() [this is a bug]."); |
3997 |
|
|
3998 |
// find the dimension index in the tempRegion which is the dimension |
// find the dimension index in the tempRegion which is the dimension |
3999 |
// type passed to this method (paranoidly expecting different order) |
// type passed to this method (paranoidly expecting different order) |
4907 |
pScripts = new std::list<Script*>; |
pScripts = new std::list<Script*>; |
4908 |
if (!pList) return; |
if (!pList) return; |
4909 |
|
|
4910 |
for (RIFF::Chunk* ck = pList->GetFirstSubChunk(); ck; |
size_t i = 0; |
4911 |
ck = pList->GetNextSubChunk()) |
for (RIFF::Chunk* ck = pList->GetSubChunkAt(i); ck; |
4912 |
|
ck = pList->GetSubChunkAt(++i)) |
4913 |
{ |
{ |
4914 |
if (ck->GetChunkID() == CHUNK_ID_SCRI) { |
if (ck->GetChunkID() == CHUNK_ID_SCRI) { |
4915 |
pScripts->push_back(new Script(this, ck)); |
pScripts->push_back(new Script(this, ck)); |
4989 |
if (!pRegions) pRegions = new RegionList; |
if (!pRegions) pRegions = new RegionList; |
4990 |
RIFF::List* lrgn = insList->GetSubList(LIST_TYPE_LRGN); |
RIFF::List* lrgn = insList->GetSubList(LIST_TYPE_LRGN); |
4991 |
if (lrgn) { |
if (lrgn) { |
4992 |
RIFF::List* rgn = lrgn->GetFirstSubList(); |
size_t i = 0; |
4993 |
while (rgn) { |
for (RIFF::List* rgn = lrgn->GetSubListAt(i); rgn; |
4994 |
|
rgn = lrgn->GetSubListAt(++i)) |
4995 |
|
{ |
4996 |
if (rgn->GetListType() == LIST_TYPE_RGN) { |
if (rgn->GetListType() == LIST_TYPE_RGN) { |
4997 |
if (pProgress) |
if (pProgress) |
4998 |
__notify_progress(pProgress, (float) pRegions->size() / (float) Regions); |
__notify_progress(pProgress, (float) pRegions->size() / (float) Regions); |
4999 |
pRegions->push_back(new Region(this, rgn)); |
pRegions->push_back(new Region(this, rgn)); |
5000 |
} |
} |
|
rgn = lrgn->GetNextSubList(); |
|
5001 |
} |
} |
5002 |
// Creating Region Key Table for fast lookup |
// Creating Region Key Table for fast lookup |
5003 |
UpdateRegionKeyTable(); |
UpdateRegionKeyTable(); |
5301 |
} |
} |
5302 |
|
|
5303 |
/** |
/** |
5304 |
|
* Returns Region at supplied @a pos position within the region list of |
5305 |
|
* this instrument. If supplied @a pos is out of bounds then @c NULL is |
5306 |
|
* returned. |
5307 |
|
* |
5308 |
|
* @param pos - position of sought Region in region list |
5309 |
|
* @returns pointer address to requested region or @c NULL if @a pos is |
5310 |
|
* out of bounds |
5311 |
|
*/ |
5312 |
|
Region* Instrument::GetRegionAt(size_t pos) { |
5313 |
|
if (!pRegions) return NULL; |
5314 |
|
if (pos >= pRegions->size()) return NULL; |
5315 |
|
return static_cast<gig::Region*>( (*pRegions)[pos] ); |
5316 |
|
} |
5317 |
|
|
5318 |
|
/** |
5319 |
* Returns the first Region of the instrument. You have to call this |
* Returns the first Region of the instrument. You have to call this |
5320 |
* method once before you use GetNextRegion(). |
* method once before you use GetNextRegion(). |
5321 |
* |
* |
5322 |
* @returns pointer address to first region or NULL if there is none |
* @returns pointer address to first region or NULL if there is none |
5323 |
* @see GetNextRegion() |
* @see GetNextRegion() |
5324 |
|
* @deprecated This method is not reentrant-safe, use GetRegionAt() |
5325 |
|
* instead. |
5326 |
*/ |
*/ |
5327 |
Region* Instrument::GetFirstRegion() { |
Region* Instrument::GetFirstRegion() { |
5328 |
if (!pRegions) return NULL; |
if (!pRegions) return NULL; |
5337 |
* |
* |
5338 |
* @returns pointer address to the next region or NULL if end reached |
* @returns pointer address to the next region or NULL if end reached |
5339 |
* @see GetFirstRegion() |
* @see GetFirstRegion() |
5340 |
|
* @deprecated This method is not reentrant-safe, use GetRegionAt() |
5341 |
|
* instead. |
5342 |
*/ |
*/ |
5343 |
Region* Instrument::GetNextRegion() { |
Region* Instrument::GetNextRegion() { |
5344 |
if (!pRegions) return NULL; |
if (!pRegions) return NULL; |
6105 |
|
|
6106 |
if (!pNameChunk && pFile->pVersion && pFile->pVersion->major > 2) { |
if (!pNameChunk && pFile->pVersion && pFile->pVersion->major > 2) { |
6107 |
// v3 has a fixed list of 128 strings, find a free one |
// v3 has a fixed list of 128 strings, find a free one |
6108 |
for (RIFF::Chunk* ck = _3gnl->GetFirstSubChunk() ; ck ; ck = _3gnl->GetNextSubChunk()) { |
size_t i = 0; |
6109 |
|
for (RIFF::Chunk* ck = _3gnl->GetSubChunkAt(i); ck; ck = _3gnl->GetSubChunkAt(++i)) { |
6110 |
if (strcmp(static_cast<char*>(ck->LoadChunkData()), "") == 0) { |
if (strcmp(static_cast<char*>(ck->LoadChunkData()), "") == 0) { |
6111 |
pNameChunk = ck; |
pNameChunk = ck; |
6112 |
break; |
break; |
6384 |
|
|
6385 |
if (!pSamples) pSamples = new SampleList; |
if (!pSamples) pSamples = new SampleList; |
6386 |
|
|
|
RIFF::File* file = pRIFF; |
|
|
|
|
6387 |
// just for progress calculation |
// just for progress calculation |
6388 |
int iSampleIndex = 0; |
int iSampleIndex = 0; |
6389 |
int iTotalSamples = WavePoolCount; |
int iTotalSamples = WavePoolCount; |
6464 |
if (wvpl) { |
if (wvpl) { |
6465 |
file_offset_t wvplFileOffset = wvpl->GetFilePos() - |
file_offset_t wvplFileOffset = wvpl->GetFilePos() - |
6466 |
wvpl->GetPos(); // should be zero, but just to be sure |
wvpl->GetPos(); // should be zero, but just to be sure |
6467 |
RIFF::List* wave = wvpl->GetFirstSubList(); |
size_t i = 0; |
6468 |
while (wave) { |
for (RIFF::List* wave = wvpl->GetSubListAt(i); wave; |
6469 |
|
wave = wvpl->GetSubListAt(++i)) |
6470 |
|
{ |
6471 |
if (wave->GetListType() == LIST_TYPE_WAVE) { |
if (wave->GetListType() == LIST_TYPE_WAVE) { |
6472 |
// notify current progress |
// notify current progress |
6473 |
if (pProgress) { |
if (pProgress) { |
6480 |
|
|
6481 |
iSampleIndex++; |
iSampleIndex++; |
6482 |
} |
} |
|
wave = wvpl->GetNextSubList(); |
|
6483 |
} |
} |
6484 |
} |
} |
6485 |
} |
} |
6712 |
RIFF::List* lstInstruments = pRIFF->GetSubList(LIST_TYPE_LINS); |
RIFF::List* lstInstruments = pRIFF->GetSubList(LIST_TYPE_LINS); |
6713 |
if (lstInstruments) { |
if (lstInstruments) { |
6714 |
int iInstrumentIndex = 0; |
int iInstrumentIndex = 0; |
6715 |
RIFF::List* lstInstr = lstInstruments->GetFirstSubList(); |
size_t i = 0; |
6716 |
while (lstInstr) { |
for (RIFF::List* lstInstr = lstInstruments->GetSubListAt(i); |
6717 |
|
lstInstr; lstInstr = lstInstruments->GetSubListAt(++i)) |
6718 |
|
{ |
6719 |
if (lstInstr->GetListType() == LIST_TYPE_INS) { |
if (lstInstr->GetListType() == LIST_TYPE_INS) { |
6720 |
if (pProgress) { |
if (pProgress) { |
6721 |
// notify current progress |
// notify current progress |
6733 |
|
|
6734 |
iInstrumentIndex++; |
iInstrumentIndex++; |
6735 |
} |
} |
|
lstInstr = lstInstruments->GetNextSubList(); |
|
6736 |
} |
} |
6737 |
if (pProgress) |
if (pProgress) |
6738 |
__notify_progress(pProgress, 1.0); // notify done |
__notify_progress(pProgress, 1.0); // notify done |
6998 |
if (lst3gri) { |
if (lst3gri) { |
6999 |
RIFF::List* lst3gnl = lst3gri->GetSubList(LIST_TYPE_3GNL); |
RIFF::List* lst3gnl = lst3gri->GetSubList(LIST_TYPE_3GNL); |
7000 |
if (lst3gnl) { |
if (lst3gnl) { |
7001 |
RIFF::Chunk* ck = lst3gnl->GetFirstSubChunk(); |
size_t i = 0; |
7002 |
while (ck) { |
for (RIFF::Chunk* ck = lst3gnl->GetSubChunkAt(i); ck; |
7003 |
|
ck = lst3gnl->GetSubChunkAt(++i)) |
7004 |
|
{ |
7005 |
if (ck->GetChunkID() == CHUNK_ID_3GNM) { |
if (ck->GetChunkID() == CHUNK_ID_3GNM) { |
7006 |
if (pVersion && pVersion->major > 2 && |
if (pVersion && pVersion->major > 2 && |
7007 |
strcmp(static_cast<char*>(ck->LoadChunkData()), "") == 0) break; |
strcmp(static_cast<char*>(ck->LoadChunkData()), "") == 0) break; |
7008 |
|
|
7009 |
pGroups->push_back(new Group(this, ck)); |
pGroups->push_back(new Group(this, ck)); |
7010 |
} |
} |
|
ck = lst3gnl->GetNextSubChunk(); |
|
7011 |
} |
} |
7012 |
} |
} |
7013 |
} |
} |
7097 |
pScriptGroups = new std::list<ScriptGroup*>; |
pScriptGroups = new std::list<ScriptGroup*>; |
7098 |
RIFF::List* lstLS = pRIFF->GetSubList(LIST_TYPE_3LS); |
RIFF::List* lstLS = pRIFF->GetSubList(LIST_TYPE_3LS); |
7099 |
if (lstLS) { |
if (lstLS) { |
7100 |
for (RIFF::List* lst = lstLS->GetFirstSubList(); lst; |
size_t i = 0; |
7101 |
lst = lstLS->GetNextSubList()) |
for (RIFF::List* lst = lstLS->GetSubListAt(i); lst; |
7102 |
|
lst = lstLS->GetSubListAt(++i)) |
7103 |
{ |
{ |
7104 |
if (lst->GetListType() == LIST_TYPE_RTIS) { |
if (lst->GetListType() == LIST_TYPE_RTIS) { |
7105 |
pScriptGroups->push_back(new ScriptGroup(this, lst)); |
pScriptGroups->push_back(new ScriptGroup(this, lst)); |
7160 |
// INFO was added by Resource::UpdateChunks - make sure it |
// INFO was added by Resource::UpdateChunks - make sure it |
7161 |
// is placed first in file |
// is placed first in file |
7162 |
RIFF::Chunk* info = pRIFF->GetSubList(LIST_TYPE_INFO); |
RIFF::Chunk* info = pRIFF->GetSubList(LIST_TYPE_INFO); |
7163 |
RIFF::Chunk* first = pRIFF->GetFirstSubChunk(); |
RIFF::Chunk* first = pRIFF->GetSubChunkAt(0); |
7164 |
if (first != info) { |
if (first != info) { |
7165 |
pRIFF->MoveSubChunk(info, first); |
pRIFF->MoveSubChunk(info, first); |
7166 |
} |
} |
7181 |
// v3: make sure the file has 128 3gnm chunks |
// v3: make sure the file has 128 3gnm chunks |
7182 |
// (before updating the Group chunks) |
// (before updating the Group chunks) |
7183 |
if (pVersion && pVersion->major > 2) { |
if (pVersion && pVersion->major > 2) { |
7184 |
RIFF::Chunk* _3gnm = _3gnl->GetFirstSubChunk(); |
size_t i = 0; |
7185 |
for (int i = 0 ; i < 128 ; i++) { |
for (RIFF::Chunk* _3gnm = _3gnl->GetSubChunkAt(i); i < 128; |
7186 |
|
_3gnm = _3gnl->GetSubChunkAt(++i)) |
7187 |
|
{ |
7188 |
// create 128 empty placeholder strings which will either |
// create 128 empty placeholder strings which will either |
7189 |
// be filled by Group::UpdateChunks below or left empty. |
// be filled by Group::UpdateChunks below or left empty. |
7190 |
::SaveString(CHUNK_ID_3GNM, _3gnm, _3gnl, "", "", true, 64); |
::SaveString(CHUNK_ID_3GNM, _3gnm, _3gnl, "", "", true, 64); |
|
if (_3gnm) _3gnm = _3gnl->GetNextSubChunk(); |
|
7191 |
} |
} |
7192 |
} |
} |
7193 |
|
|