- if (voidArea != NULL) {
- s << " [gdcm::Non String Data Loaded in Unsecure Area ("
- << GetLength() << ") ]";
- }
-
- else {
- if( (GetLength()<MAX_SIZE_PRINT_ELEMENT_VALUE) ||
- (printLevel>=3) ||
- (d2.find("gdcm::NotLoaded.") < d2.length()) )
- s << " [" << d2 << "]";
- else
- s << " [gdcm::too long for print (" << GetLength() << ") ]";
- }
-
- // Display the UID value (instead of displaying only the rough code)
- if (g == 0x0002) { // Any more to be displayed ?
- if ( (e == 0x0010) || (e == 0x0002) )
- s << " ==>\t[" << ts->GetValue(v) << "]";
- } else {
- if (g == 0x0008) {
- if ( (e == 0x0016) || (e == 0x1150) )
- s << " ==>\t[" << ts->GetValue(v) << "]";
- } else {
- if (g == 0x0004) {
- if ( (e == 0x1510) || (e == 0x1512) )
- s << " ==>\t[" << ts->GetValue(v) << "]";
- }
+/**
+ * \ingroup gdcmDocEntry
+ * \brief Writes the common part of any gdcmValEntry, gdcmBinEntry, gdcmSeqEntry
+ */
+void gdcmDocEntry::Write(FILE *fp, FileType filetype) {
+
+ guint32 FFFF = 0xffffffff;
+ guint16 group = GetGroup();
+ VRKey vr = GetVR();
+ guint16 el = GetElement();
+ guint32 lgr = GetReadLength();
+
+ if ( (group == 0xfffe) && (el == 0x0000) )
+ // Fix in order to make some MR PHILIPS images e-film readable
+ // see gdcmData/gdcm-MR-PHILIPS-16-Multi-Seq.dcm:
+ // we just *always* ignore spurious fffe|0000 tag !
+ return;
+
+//
+// ----------- Writes the common part
+//
+ fwrite ( &group,(size_t)2 ,(size_t)1 ,fp); //group
+ fwrite ( &el, (size_t)2 ,(size_t)1 ,fp); //element
+
+ if ( filetype == gdcmExplicitVR ) {
+
+ // Special case of delimiters:
+ if (group == 0xfffe) {
+ // Delimiters have NO Value Representation
+ // Hence we skip writing the VR.
+ // In order to avoid further troubles, we choose to write them
+ // as 'no-length' Item Delimitors (we pad by writing 0xffffffff)
+ // The end of a given Item will be found when :
+ // - a new Item Delimitor Item is encountered (the Seq goes on)
+ // - a Sequence Delimitor Item is encountered (the Seq just ended)
+
+ // TODO : verify if the Sequence Delimitor Item was forced during Parsing
+
+ int ff=0xffffffff;
+ fwrite (&ff,(size_t)4 ,(size_t)1 ,fp);
+ return;