2 //-----------------------------------------------------------------------------
14 #include "gdcmDicomDir.h"
15 #include "gdcmDicomDirStudy.h"
16 #include "gdcmDicomDirSerie.h"
17 #include "gdcmDicomDirImage.h"
18 #include "gdcmDirList.h"
20 #include "gdcmDebug.h"
21 #include "gdcmGlobal.h"
23 //-----------------------------------------------------------------------------
24 // For full DICOMDIR description, see:
25 // PS 3.3-2003, pages 731-750
26 //-----------------------------------------------------------------------------
29 // Constructor / Destructor
32 * \brief Constructor Parses recursively the directory and creates the DicomDir
33 * or uses an already built DICOMDIR, depending on 'parseDir' value.
34 * @param FileName name
35 * - of the root directory (parseDir = true)
36 * - of the DICOMDIR (parseDir = false)
37 * @param parseDir boolean
38 * - true if user passed an entry point
39 * and wants to explore recursively the directories
40 * - false if user passed an already built DICOMDIR file
42 * @param exception_on_error whether we want to throw an exception or not
44 gdcmDicomDir::gdcmDicomDir(const char *FileName, bool parseDir,
45 bool exception_on_error):
46 gdcmParser(FileName,exception_on_error,true) // true : enable SeQuences
48 // que l'on ai passe un root directory ou un DICOMDIR
49 // et quelle que soit la valeur de parseDir,
50 // on a lance gdcmParser
55 startMethodArgDelete= NULL;
56 progressMethodArgDelete=NULL;
57 endMethodArgDelete= NULL;
67 // gdcmParser already executed
68 // if user passed a root directory, sure we didn't get anything
70 if( GetListEntry().begin()==GetListEntry().end() )
72 // if parseDir == false, it should be tagged as an error
73 dbg.Verbose(0, "gdcmDicomDir::gdcmDicomDir : entry list empty");
75 if(strlen(FileName)==1 && FileName[0]=='.') { // user passed '.' as Name
76 // we get current directory name
77 char*dummy=(char*) malloc(1000);
78 getcwd(dummy,(size_t)1000);
79 SetFileName(dummy); // will be converted into a string
80 free(dummy); // no longer needed
85 dbg.Verbose(0, "gdcmDicomDir::gdcmDicomDir : Parse directory"
86 " and create the DicomDir");
92 CheckBoundaries(); // to maintain consistency between
93 // home-made gdcmDicomDir
94 // and the ones comming from a DICOMDIR file
99 * \ingroup gdcmDicomDir
100 * \brief Constructor : creates an empty gdcmDicomDir
101 * @param exception_on_error whether we want to throw an exception or not
103 gdcmDicomDir::gdcmDicomDir(bool exception_on_error):
104 gdcmParser(exception_on_error)
107 progressMethod= NULL;
109 startMethodArgDelete= NULL;
110 progressMethodArgDelete=NULL;
111 endMethodArgDelete= NULL;
118 std::string pathBidon = ""; // Sorry, NULL not allowed ...
119 SetElement(pathBidon, GDCM_DICOMDIR_META, NULL); // Set the META elements
121 AddDicomDirMetaToEnd(listEntries.begin(),--listEntries.end());
126 * \ingroup gdcmDicomDir
127 * \brief Canonical destructor
129 gdcmDicomDir::~gdcmDicomDir()
131 SetStartMethod(NULL);
132 SetProgressMethod(NULL);
138 for(ListDicomDirPatient::iterator cc=patients.begin();cc!=patients.end();++cc)
144 //-----------------------------------------------------------------------------
147 * \ingroup gdcmDicomDir
148 * \brief Canonical Printer
150 void gdcmDicomDir::Print(std::ostream &os)
154 metaElems->SetPrintLevel(printLevel);
155 metaElems->Print(os);
157 for(ListDicomDirPatient::iterator cc=patients.begin();cc!=patients.end();++cc)
159 (*cc)->SetPrintLevel(printLevel);
164 //-----------------------------------------------------------------------------
167 * \ingroup gdcmDicomDir
168 * \brief This predicate, based on hopefully reasonable heuristics,
169 * decides whether or not the current header was properly parsed
170 * and contains the mandatory information for being considered as
171 * a well formed and usable DicomDir.
172 * @return true when gdcmParser is the one of a reasonable DicomDir,
175 bool gdcmDicomDir::IsReadable(void)
177 if(!gdcmParser::IsReadable())
181 if(patients.size()<=0)
188 * \ingroup gdcmDicomDir
189 * \brief fills the whole structure, starting from a root Directory
191 void gdcmDicomDir::ParseDirectory(void)
193 CreateDicomDirChainedList(GetFileName());
198 * \ingroup gdcmDicomDir
199 * \brief Set the start method to call when the parsing of the directory starts
200 * @param method Method to call
201 * @param arg Argument to pass to the method
202 * @param argDelete Argument
203 * \warning In python : the arg parameter isn't considered
205 void gdcmDicomDir::SetStartMethod(gdcmMethod *method,void *arg,gdcmMethod *argDelete)
207 if((startArg)&&(startMethodArgDelete))
208 startMethodArgDelete(startArg);
212 startMethodArgDelete=argDelete;
216 * \ingroup gdcmDicomDir
217 * \brief Set the method to delete the argument
218 * The argument is destroyed when the method is changed or when the
220 * @param method Method to call to delete the argument
222 void gdcmDicomDir::SetStartMethodArgDelete(gdcmMethod *method)
224 startMethodArgDelete=method;
228 * \ingroup gdcmDicomDir
229 * \brief Set the progress method to call when the parsing of the directory progress
230 * @param method Method to call
231 * @param arg Argument to pass to the method
232 * @param argDelete Argument
233 * \warning In python : the arg parameter isn't considered
235 void gdcmDicomDir::SetProgressMethod(gdcmMethod *method,void *arg,gdcmMethod *argDelete)
237 if((progressArg)&&(progressMethodArgDelete))
238 progressMethodArgDelete(progressArg);
240 progressMethod=method;
242 progressMethodArgDelete=argDelete;
246 * \ingroup gdcmDicomDir
247 * \brief Set the method to delete the argument
248 * The argument is destroyed when the method is changed or when the
250 * @param method Method to call to delete the argument
252 void gdcmDicomDir::SetProgressMethodArgDelete(gdcmMethod *method)
254 progressMethodArgDelete=method;
258 * \ingroup gdcmDicomDir
259 * \brief Set the end method to call when the parsing of the directory ends
260 * @param method Method to call
261 * @param arg Argument to pass to the method
262 * @param argDelete Argument
263 * \warning In python : the arg parameter isn't considered
265 void gdcmDicomDir::SetEndMethod(gdcmMethod *method, void *arg, gdcmMethod *argDelete)
267 if((endArg)&&(endMethodArgDelete))
268 endMethodArgDelete(endArg);
272 endMethodArgDelete=argDelete;
276 * \ingroup gdcmDicomDir
277 * \brief Set the method to delete the argument
278 * The argument is destroyed when the method is changed or when the class
280 * @param method Method to call to delete the argument
282 void gdcmDicomDir::SetEndMethodArgDelete(gdcmMethod *method)
284 endMethodArgDelete=method;
288 * \ingroup gdcmDicomDir
289 * \brief writes on disc a DICOMDIR
290 * \ warning does NOT add the missing elements in the header :
291 * it's up to the user doing it !
292 * \todo : to be re-written using the DICOMDIR tree-like structure
293 * *not* the chained list
294 * (does NOT exist if the DICOMDIR is user-forged !)
295 * @param fileName file to be written to
296 * @return false only when fail to open
299 bool gdcmDicomDir::Write(std::string fileName)
303 fp1=fopen(fileName.c_str(),"wb");
306 printf("Failed to open(write) File [%s] \n",fileName.c_str());
311 filePreamble=(char*)calloc(128,1);
312 fwrite(filePreamble,128,1,fp1);
313 fwrite("DICM",4,1,fp1);
315 UpdateDirectoryRecordSequenceLength();
323 * \brief Writes in a file using the tree-like structure.
324 * @param _fp already open file pointer
327 void gdcmDicomDir::WriteEntries(FILE *_fp)
329 // TODO (?) tester les echecs en ecriture
330 // (apres chaque fwrite, dans le WriteEntry)
332 gdcmDicomDirMeta *ptrMeta;
333 ListDicomDirPatient::iterator itPatient;
334 ListDicomDirStudy::iterator itStudy;
335 ListDicomDirSerie::iterator itSerie;
336 ListDicomDirImage::iterator itImage;
339 ptrMeta= GetDicomDirMeta();
340 for(i=ptrMeta->debut();i!=ptrMeta->fin();++i) {
341 WriteEntry(*i,_fp, ExplicitVR);
344 itPatient = GetDicomDirPatients().begin();
345 while ( itPatient != GetDicomDirPatients().end() ) {
346 for(i=(*itPatient)->debut();i!=(*itPatient)->fin();++i) {
347 WriteEntry(*i,_fp, ExplicitVR);
349 itStudy = ((*itPatient)->GetDicomDirStudies()).begin();
350 while (itStudy != (*itPatient)->GetDicomDirStudies().end() ) {
351 for(i=(*itStudy)->debut();i!=(*itStudy)->fin();++i) {
352 WriteEntry(*i,_fp, ExplicitVR);
354 itSerie = ((*itStudy)->GetDicomDirSeries()).begin();
355 while (itSerie != (*itStudy)->GetDicomDirSeries().end() ) {
356 for(i=(*itSerie)->debut();i!=(*itSerie)->fin();++i) {
357 WriteEntry(*i,_fp, ExplicitVR);
359 itImage = ((*itSerie)->GetDicomDirImages()).begin();
360 while (itImage != (*itSerie)->GetDicomDirImages().end() ) {
361 for(i=(*itImage)->debut();i!=(*itImage)->fin();++i) {
362 WriteEntry(*i,_fp, ExplicitVR);
374 //-----------------------------------------------------------------------------
378 * \ingroup gdcmDicomDir
379 * \brief create a gdcmHeader-like chained list from a root Directory
380 * @param path entry point of the tree-like structure
382 void gdcmDicomDir::CreateDicomDirChainedList(std::string path)
386 gdcmDirList fileList(path,1); // gets recursively the file list
387 unsigned int count=0;
394 for(gdcmDirList::iterator it=fileList.begin();
398 progress=(float)(count+1)/(float)fileList.size();
399 CallProgressMethod();
403 header=new gdcmHeader(it->c_str());
404 if(header->IsReadable())
405 list.push_back(header); // adds the file header to the chained list
411 // sorts Patient/Study/Serie/
412 std::sort(list.begin(),list.end(),gdcmDicomDir::HeaderLessThan);
414 std::string tmp=fileList.GetDirName();
416 //for each Header of the chained list, add/update the Patient/Study/Serie/Image info
417 SetElements(tmp,list);
423 * \ingroup gdcmDicomDir
424 * \brief modifies the limits of a gdcmObject, created from a DICOMDIR file
427 void gdcmDicomDir::CheckBoundaries()
429 ListDicomDirPatient::iterator itPatient;
430 ListDicomDirStudy::iterator itStudy;
431 ListDicomDirSerie::iterator itSerie;
432 ListDicomDirImage::iterator itImage;
433 ListTag::iterator i,j;
435 GetDicomDirMeta()->ResetBoundaries(0);
437 itPatient = GetDicomDirPatients().begin();
438 while ( itPatient != GetDicomDirPatients().end() ) {
439 (*itPatient)->ResetBoundaries(1);
440 itStudy = ((*itPatient)->GetDicomDirStudies()).begin();
441 while (itStudy != (*itPatient)->GetDicomDirStudies().end() ) {
442 (*itStudy)->ResetBoundaries(1);
443 itSerie = ((*itStudy)->GetDicomDirSeries()).begin();
444 while (itSerie != (*itStudy)->GetDicomDirSeries().end() ) {
445 (*itSerie)->ResetBoundaries(1);
446 itImage = ((*itSerie)->GetDicomDirImages()).begin();
447 while (itImage != (*itSerie)->GetDicomDirImages().end() ) {
448 (*itImage)->ResetBoundaries(1);
461 * \ingroup gdcmDicomDir
462 * \brief adds a new Patient to a partially created DICOMDIR
464 gdcmDicomDirPatient * gdcmDicomDir::NewPatient(void) {
465 std::list<gdcmElement> elemList;
466 std::list<gdcmElement>::iterator it;
468 gdcmDictEntry *dictEntry;
469 gdcmHeaderEntry *entry;
471 elemList=gdcmGlobal::GetDicomDirElements()->GetDicomDirPatientElements();
472 std::list<gdcmHeaderEntry *>::iterator debInsertion, finInsertion, i,j;
474 debInsertion = metaElems->fin();
476 finInsertion=debInsertion;
478 // for all the DicomDirPatient Elements
479 for(it=elemList.begin();it!=elemList.end();++it)
483 dictEntry=GetPubDict()->GetDictEntryByNumber(tmpGr,tmpEl);
484 entry=new gdcmHeaderEntry(dictEntry);
485 entry->SetOffset(0); // just to avoid missprinting
486 entry->SetValue(it->value);
488 if(dictEntry->GetGroup()==0xfffe)
490 entry->SetLength(entry->GetValue().length());
492 else if( (dictEntry->GetVR()=="UL") || (dictEntry->GetVR()=="SL") )
496 else if( (dictEntry->GetVR()=="US") || (dictEntry->GetVR()=="SS") )
500 else if(dictEntry->GetVR()=="SQ")
502 entry->SetLength(0xffffffff);
506 entry->SetLength(entry->GetValue().length());
509 tagHT.insert( PairHT(entry->GetKey(),entry) ); // add in the (multimap) H Table
510 listEntries.insert(debInsertion ,entry); // en tete de liste des Patients
517 gdcmDicomDirPatient *p = new gdcmDicomDirPatient(i, --debInsertion,
518 &tagHT, &listEntries);
519 patients.push_front(p);
524 * \ingroup gdcmDicomDir
525 * \brief CallStartMethod
527 void gdcmDicomDir::CallStartMethod(void)
532 startMethod(startArg);
535 * \ingroup gdcmDicomDir
536 * \brief CallProgressMethod
538 void gdcmDicomDir::CallProgressMethod(void)
541 progressMethod(progressArg);
544 * \ingroup gdcmDicomDir
545 * \brief CallEndMethod
547 void gdcmDicomDir::CallEndMethod(void)
554 //-----------------------------------------------------------------------------
557 * \ingroup gdcmDicomDir
558 * \brief create a 'gdcmDicomDir' from a DICOMDIR gdcmHeader
560 void gdcmDicomDir::CreateDicomDir()
562 // The list is parsed.
563 // When a DicomDir tag ("PATIENT", "STUDY", "SERIE", "IMAGE") is found :
564 // 1 - we save the beginning iterator
565 // 2 - we continue to parse
566 // 3 - we find an other tag
567 // + we create the object for the precedent tag
570 gdcmDicomDirType type=gdcmDicomDir::GDCM_DICOMDIR_META;
571 ListTag::iterator begin;
572 ListTag::iterator end, end2;
574 begin=listEntries.begin();
576 for(ListTag::iterator i=end;i !=listEntries.end();++i)
578 std::string v=(*i)->GetValue();
582 AddObjectToEnd(type,begin,--end2);
583 type=gdcmDicomDir::GDCM_DICOMDIR_PATIENT;
590 AddObjectToEnd(type,begin,--end2);
591 type=gdcmDicomDir::GDCM_DICOMDIR_STUDY;
598 AddObjectToEnd(type,begin,--end2);
599 type=gdcmDicomDir::GDCM_DICOMDIR_SERIE;
606 AddObjectToEnd(type,begin,--end2);
607 type=gdcmDicomDir::GDCM_DICOMDIR_IMAGE;
612 end=end2=listEntries.end();
614 AddObjectToEnd(type,begin,--end2);
617 * \ingroup gdcmDicomDir
618 * \brief AddObjectToEnd
620 * @param begin iterator on the first HeaderEntry within the chained List
621 * @param end iterator on the last HeaderEntry within the chained List
623 void gdcmDicomDir::AddObjectToEnd(gdcmDicomDirType type,ListTag::iterator begin,ListTag::iterator end)
630 case gdcmDicomDir::GDCM_DICOMDIR_META:
631 AddDicomDirMetaToEnd(begin,end);
633 case gdcmDicomDir::GDCM_DICOMDIR_PATIENT:
634 AddDicomDirPatientToEnd(begin,end);
636 case gdcmDicomDir::GDCM_DICOMDIR_STUDY:
637 AddDicomDirStudyToEnd(begin,end);
639 case gdcmDicomDir::GDCM_DICOMDIR_SERIE:
640 AddDicomDirSerieToEnd(begin,end);
642 case gdcmDicomDir::GDCM_DICOMDIR_IMAGE:
643 AddDicomDirImageToEnd(begin,end);
645 case gdcmDicomDir::GDCM_DICOMDIR_NONE:
646 AddDicomDirImageToEnd(begin,end); //FIXME
652 * \ingroup gdcmDicomDir
653 * \brief Well ... Not realy to end, there is only one occurence
654 * @param begin iterator on the first HeaderEntry within the chained List
655 * @param end iterator on the last HeaderEntry within the chained List
657 void gdcmDicomDir::AddDicomDirMetaToEnd(ListTag::iterator begin,ListTag::iterator end)
661 metaElems = new gdcmDicomDirMeta(begin,end,&tagHT,&listEntries);
665 * \ingroup gdcmDicomDir
666 * \brief AddDicomDirPatientToEnd
667 * @param begin iterator on the first HeaderEntry within the chained List
668 * @param end iterator on the last HeaderEntry within the chained List
670 void gdcmDicomDir::AddDicomDirPatientToEnd(ListTag::iterator begin,ListTag::iterator end)
672 patients.push_back(new gdcmDicomDirPatient(begin,end,&tagHT, &listEntries));
676 * \ingroup gdcmDicomDir
677 * \brief AddDicomDirStudyToEnd
678 * @param begin iterator on the first HeaderEntry within the chained List
679 * @param end iterator on the last HeaderEntry within the chained List
681 void gdcmDicomDir::AddDicomDirStudyToEnd(ListTag::iterator begin,ListTag::iterator end)
683 if(patients.size()>0)
685 ListDicomDirPatient::iterator itp=patients.end();
687 (*itp)->AddDicomDirStudy(new gdcmDicomDirStudy(begin,end,&tagHT, &listEntries));
691 * \ingroup gdcmDicomDir
692 * \brief AddDicomDirSerieToEnd
693 * @param begin iterator on the first HeaderEntry within the chained List
694 * @param end iterator on the last HeaderEntry within the chained List
696 void gdcmDicomDir::AddDicomDirSerieToEnd(ListTag::iterator begin,ListTag::iterator end)
698 if(patients.size()>0)
700 ListDicomDirPatient::iterator itp=patients.end();
703 if((*itp)->GetDicomDirStudies().size()>0)
705 ListDicomDirStudy::iterator itst=(*itp)->GetDicomDirStudies().end();
707 (*itst)->AddDicomDirSerie(new gdcmDicomDirSerie(begin,end,&tagHT, &listEntries));
713 * \ingroup gdcmDicomDir
714 * \brief AddDicomDirImageToEnd
715 * @param begin iterator on the first HeaderEntry within the chained List
716 * @param end iterator on the last HeaderEntry within the chained List
718 void gdcmDicomDir::AddDicomDirImageToEnd(ListTag::iterator begin,ListTag::iterator end)
720 if(patients.size()>0)
722 ListDicomDirPatient::iterator itp=patients.end();
725 if((*itp)->GetDicomDirStudies().size()>0)
727 ListDicomDirStudy::iterator itst=(*itp)->GetDicomDirStudies().end();
730 if((*itst)->GetDicomDirSeries().size()>0)
732 ListDicomDirSerie::iterator its=(*itst)->GetDicomDirSeries().end();
734 (*its)->AddDicomDirImage(new gdcmDicomDirImage(begin,end,&tagHT, &listEntries));
741 * \ingroup gdcmDicomDir
742 * \brief for each Header of the chained list, add/update the Patient/Study/Serie/Image info
743 * @param path path of the root directory
744 * @param list chained list of Headers
746 void gdcmDicomDir::SetElements(std::string &path, ListHeader &list)
748 std::string patPrevName="", patPrevID="";
749 std::string studPrevInstanceUID="", studPrevID="";
750 std::string serPrevInstanceUID="", serPrevID="";
752 std::string patCurName, patCurID;
753 std::string studCurInstanceUID, studCurID;
754 std::string serCurInstanceUID, serCurID;
756 SetElement(path,GDCM_DICOMDIR_META,NULL);
758 ListTag::iterator debPat=listEntries.begin();
759 for(ListHeader::iterator it=list.begin();it!=list.end();++it)
761 // get the current file characteristics
762 patCurName= (*it)->GetEntryByNumber(0x0010,0x0010);
763 patCurID= (*it)->GetEntryByNumber(0x0010,0x0011);
764 studCurInstanceUID=(*it)->GetEntryByNumber(0x0020,0x000d);
765 studCurID= (*it)->GetEntryByNumber(0x0020,0x0010);
766 serCurInstanceUID= (*it)->GetEntryByNumber(0x0020,0x000e);
767 serCurID= (*it)->GetEntryByNumber(0x0020,0x0011);
769 if(patCurName!=patPrevName || patCurID!=patPrevID)
770 SetElement(path,GDCM_DICOMDIR_PATIENT,*it);
772 // if new Study Deal with 'STUDY' Elements
773 if(studCurInstanceUID!=studPrevInstanceUID || studCurID!=studPrevID)
774 SetElement(path,GDCM_DICOMDIR_STUDY,*it);
776 // if new Serie Deal with 'SERIE' Elements
777 if(serCurInstanceUID!=serPrevInstanceUID || serCurID!=serPrevID)
778 SetElement(path,GDCM_DICOMDIR_SERIE,*it);
780 // Always Deal with 'IMAGE' Elements
781 SetElement(path,GDCM_DICOMDIR_IMAGE,*it);
783 patPrevName= patCurName;
785 studPrevInstanceUID=studCurInstanceUID;
786 studPrevID= studCurID;
787 serPrevInstanceUID= serCurInstanceUID;
793 * \ingroup gdcmDicomDir
794 * \brief adds to the HTable and at the end of the Chained List
795 * the gdcmEntries (Dicom Elements) corresponding to the given type
796 * @param path full path file name(only used when type = GDCM_DICOMDIR_IMAGE
797 * @param type gdcmObject type to create (GDCM_DICOMDIR_PATIENT, GDCM_DICOMDIR_STUDY, GDCM_DICOMDIR_SERIE ...)
798 * @param header gdcmHeader of the current file
800 void gdcmDicomDir::SetElement(std::string &path,gdcmDicomDirType type,gdcmHeader *header)
802 std::list<gdcmElement> elemList;
803 std::list<gdcmElement>::iterator it;
804 guint16 tmpGr, tmpEl;
805 gdcmDictEntry *dictEntry;
806 gdcmHeaderEntry *entry;
811 case GDCM_DICOMDIR_PATIENT:
812 elemList=gdcmGlobal::GetDicomDirElements()->GetDicomDirPatientElements();
814 case GDCM_DICOMDIR_STUDY:
815 elemList=gdcmGlobal::GetDicomDirElements()->GetDicomDirStudyElements();
817 case GDCM_DICOMDIR_SERIE:
818 elemList=gdcmGlobal::GetDicomDirElements()->GetDicomDirSerieElements();
820 case GDCM_DICOMDIR_IMAGE:
821 elemList=gdcmGlobal::GetDicomDirElements()->GetDicomDirImageElements();
823 case GDCM_DICOMDIR_META:
824 elemList=gdcmGlobal::GetDicomDirElements()->GetDicomDirMetaElements();
830 for(it=elemList.begin();it!=elemList.end();++it)
834 dictEntry=GetPubDict()->GetDictEntryByNumber(tmpGr,tmpEl);
835 entry=new gdcmHeaderEntry(dictEntry);
836 entry->SetOffset(0); // just to avoid missprinting
839 val=header->GetEntryByNumber(tmpGr,tmpEl);
843 if(val==GDCM_UNFOUND)
845 if((tmpGr==0x0004) &&(tmpEl==0x1130) ) // File-set ID
847 // force to the *end* File Name
850 else if( (tmpGr==0x0004) && (tmpEl==0x1500) ) // Only used for image
852 if(header->GetFileName().substr(0,path.length())!=path)
854 dbg.Verbose(0, "gdcmDicomDir::SetElement : the base path of file name is incorrect");
855 val=header->GetFileName();
858 val=&(header->GetFileName().c_str()[path.length()]);
868 if (header->GetEntryLengthByNumber(tmpGr,tmpEl)== 0)
872 entry->SetValue(val);
876 if(dictEntry->GetGroup()==0xfffe)
878 entry->SetLength(entry->GetValue().length());
880 else if( (dictEntry->GetVR()=="UL") || (dictEntry->GetVR()=="SL") )
884 else if( (dictEntry->GetVR()=="US") || (dictEntry->GetVR()=="SS") )
888 else if(dictEntry->GetVR()=="SQ")
890 entry->SetLength(0xffffffff);
894 entry->SetLength(entry->GetValue().length());
897 //AddHeaderEntry(entry); // both in H Table and in chained list
898 tagHT.insert( PairHT( entry->GetKey(),entry) );
899 listEntries.push_back(entry);
900 //wasUpdated = 1; // is private
904 * \ingroup gdcmDicomDir
905 * \brief compares two dgcmHeaders
907 bool gdcmDicomDir::HeaderLessThan(gdcmHeader *header1,gdcmHeader *header2)
909 return(*header1<*header2);
913 * \ingroup gdcmDicomDir
914 * \brief Sets the accurate value for the (0x0004,0x1220) element of a DICOMDIR
917 void gdcmDicomDir::UpdateDirectoryRecordSequenceLength() {
919 ListTag::iterator it;
922 for(it=listEntries.begin();it!=listEntries.end();++it) {
923 gr = (*it)->GetGroup();
924 el = (*it)->GetElement();
927 if ( (vr == "OB") || (vr == "OW") || (vr == "SQ") ) {
928 offset += 4; // explicit VR AND OB, OW, SQ : 4 more bytes
930 offset += 2 + 2 + 4 + (*it)->GetLength();
932 offset += 4; // delimiters don't have a value.
935 //bool res=SetEntryLengthByNumber(offset, 0x0004, 0x1220); // Hope there is no dupps.
936 SetEntryLengthByNumber(offset, 0x0004, 0x1220); // Hope there is no dupps.
940 //-----------------------------------------------------------------------------