// File: /workspace/github_cpp_makefile_star2_O3/nompelis[P]INTecplotLib/intecplot.cpp
// Function: inTec_File::ParseComponent_Text()
int inTec_File::ParseComponent_Text()
{
#ifdef _DEBUG_
   printf(" i Inside \"ParseComponent_Text()\" \n");
#endif

   // seek back to the begining of the line that got us here so we can re-parse
   int iret = fseek( fp, ipos, SEEK_SET );
   if( iret != 0 ) {
      printf(" e Error seeking to proper parsing position: %ld \n", ipos);
      return( iret );
   }
   // retract line-number as the line will be re-read
   --iline;

   // Looking to parse multiple keywords and possibly over multiple lines
   // T= <string>
   // ZN= <zone to associate the string>
   // X=
   // Y=
   // Z=
   // R=



   // The idea here is to keep ingesting in lines until we find a new component
   // We ingest comments that can interrupt the text component
   // Once a new component is detected, we wrap up the process

   char *field=NULL;
   size_t ifield_size=0,ifield_pos=0;

   char *buf=NULL;
   size_t ibuf_size=0;

   int idone_text = 0;   // flag for present text component termination
   while( !feof( fp ) && idone_text <= 1 ) {
      int ic;

      // information about the position in the file
      ipos = ftell( fp );
#ifdef _DEBUG_
      printf(" i Position in file at %ld bytes, line %ld \n", ipos, iline+1 );
#endif

      // prepare the buffer
      memset( buf, '\0', ibuf_size );
      // read a line of data; get count of bytes read
      ic = inUtils_ReadTextline( &ibuf_size, &buf, fp );
      // check error code

      // sanitize the line
      inUtils_TrimLeadingSpaceTextline( buf );
      size_t isize=0;
      while( isize < ibuf_size && buf[isize] != '\n' ) ++isize;
      if( buf[isize] == '\n' ) buf[isize] = '\0';
#ifdef _DEBUG3_
      printf("STRING (%p, %ld):%s\n", buf, isize, buf );
#endif

      // attempt to identify this line as a new component to terminate parsing
      int iparse_line=1;    // default is to parse the line
      iret = IdentifyComponent( buf );
#ifdef _DEBUG3_
printf("FOUND iret=%d idone_text=%d \n", iret,idone_text);
#endif
      // check if we have jumped to a new component under certain conditions...
      if( iret > 0 ) {             // we found a component
         // only allow "stray" comment components to pass through
         if( iret == Comment ) {
#ifdef _DEBUG_
            printf(" --- Found comment (inside Text component) \n");
#endif
            ++iline;
            // we will not be parsing this line
            iparse_line = 0;
            // store comment in strings
            buf[ strlen(buf) ] = '\n';
            strings[ iline ] = buf;
#ifdef _DEBUG_
            printf(" i Added comment to strings line %ld \n", iline );
#endif
            // show the line
            printf(" [%ld]  %s", iline, buf );
         } else {
#ifdef _DEBUG2_
            printf(" --- Found component (at _or_ after Text component) \n");
#endif
            // increment termination condition variable
            ++idone_text;
            // will not parse new components
            if( idone_text > 1) iparse_line = 0;
         }
      } else {
#ifdef _DEBUG2_
         printf(" --- The line is part of the Text component \n");
#endif
        iparse_line = 1;
      }

      // parse the line only if we are still parsing the current text field
      if( iparse_line == 1 ) {
         ++iline;

         // keep enlarging the "field" block
         ifield_size += isize;
         char *tmpf = (char *) realloc(field, (ifield_size+1)*sizeof(char));
         if( tmpf == NULL ) {
            free( field );
            free( buf );
            return(-2);
         }
         field = tmpf;
         tmpf = &( field[ifield_pos] );
         memset(tmpf, '\0', isize+1);
         for(size_t n=0;n<isize;++n) field[ ifield_pos + n ] = buf[n];
         ifield_pos = ifield_size;
         field[ ifield_pos ] = '\0';

#ifdef _DEBUG2_
         printf(" --- The field so far: |%s|\n", field);
#endif
      }
   }

   // drop the buffer
   free( buf );


   // set all parameters of the text component


   // drop the text storage
   free( field );


   // seek back to the begining of this line and terminate this operation
   iret = fseek( fp, ipos, SEEK_SET );
   if( iret != 0 ) {
      printf(" e Error seeking to proper parsing position: %ld \n", ipos);
      return(2);
   }


#ifdef _DEBUG_
   printf(" i *** Skipping storing of TEXT component *** \n");
   // we do this by returning control to the main parsing loop
#endif

   return(0);
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x38, %rsp
movq %rdi, %rbx
leaq 0x43fd(%rip), %rdi      # 0xfa53
callq 0x5570
movq 0x110(%rbx), %rdi
movq 0x128(%rbx), %rsi
xorl %edx, %edx
callq 0x53c0
testl %eax, %eax
je 0xb690
movl %eax, %ebp
movq 0x128(%rbx), %rsi
leaq 0x37c8(%rip), %rdi      # 0xee4c
xorl %eax, %eax
callq 0x5060
jmp 0xb928
decq 0x120(%rbx)
xorl %eax, %eax
movq %rax, 0x8(%rsp)
movq %rax, 0x18(%rsp)
movq 0x110(%rbx), %rdi
callq 0x5590
movl $0x0, %r15d
testl %eax, %eax
jne 0xb8d3
leaq 0x130(%rbx), %rax
movq %rax, 0x28(%rsp)
xorl %r12d, %r12d
xorl %r13d, %r13d
xorl %eax, %eax
movq %rax, 0x10(%rsp)
movq %r13, 0x20(%rsp)
movl %r12d, %r13d
movq 0x110(%rbx), %rdi
callq 0x5030
movq %rax, 0x128(%rbx)
movq 0x120(%rbx), %rdx
incq %rdx
leaq 0x3882(%rip), %rdi      # 0xef84
movq %rax, %rsi
xorl %eax, %eax
callq 0x5060
movq 0x8(%rsp), %rdi
movq 0x18(%rsp), %rdx
xorl %esi, %esi
callq 0x51e0
movq 0x110(%rbx), %rdx
leaq 0x18(%rsp), %rdi
leaq 0x8(%rsp), %rsi
callq 0x5190
movq 0x8(%rsp), %rdi
callq 0x5050
movq 0x18(%rsp), %rax
movq 0x8(%rsp), %rbp
xorl %r14d, %r14d
testq %rax, %rax
je 0xb762
cmpb $0xa, (%rbp,%r14)
je 0xb762
incq %r14
cmpq %r14, %rax
jne 0xb74f
movq %rax, %r14
cmpb $0xa, (%rbp,%r14)
jne 0xb775
movb $0x0, (%rbp,%r14)
movq 0x8(%rsp), %rbp
movq %rbp, %rsi
callq 0x53f0
testl %eax, %eax
jle 0xb852
cmpl $0x64, %eax
jne 0xb826
leaq 0x4310(%rip), %rdi      # 0xfaa5
callq 0x5570
incq 0x120(%rbx)
movq 0x8(%rsp), %r14
movq %r14, %rdi
callq 0x5150
movb $0xa, (%r14,%rax)
movq 0x8(%rsp), %r14
movq 0x120(%rbx), %rax
movq %rax, 0x30(%rsp)
movq 0x28(%rsp), %rdi
leaq 0x30(%rsp), %rsi
callq 0x5560
movq %rax, %r15
movq 0x8(%rax), %r12
movq %r14, %rdi
callq 0x5150
movq %r15, %rdi
xorl %esi, %esi
movq %r12, %rdx
movq %r14, %rcx
movq %rax, %r8
callq 0x5580
movq 0x120(%rbx), %rsi
leaq 0x36b2(%rip), %rdi      # 0xeeb5
xorl %eax, %eax
callq 0x5060
movq 0x120(%rbx), %rsi
movq 0x8(%rsp), %rdx
leaq 0x35d1(%rip), %rdi      # 0xedee
xorl %eax, %eax
callq 0x5060
jmp 0xb832
leal 0x1(%r13), %r12d
testl %r13d, %r13d
movl %r12d, %r13d
jle 0xb855
movq 0x110(%rbx), %rdi
callq 0x5590
testl %eax, %eax
jne 0xb8ce
cmpl $0x2, %r13d
jl 0xb6de
jmp 0xb8ce
movl %r13d, %r12d
incq 0x120(%rbx)
movq 0x20(%rsp), %r13
leaq (%r14,%r13), %rsi
incq %rsi
movq 0x10(%rsp), %rdi
callq 0x5600
testq %rax, %rax
je 0xb939
movq %rax, %r15
addq %rax, %r13
leaq 0x1(%r14), %rdx
movq %r13, %rdi
xorl %esi, %esi
callq 0x51e0
testq %r14, %r14
je 0xb8a2
movq %r13, %rdi
movq %rbp, %rsi
movq %r14, %rdx
callq 0x52e0
movq 0x20(%rsp), %r13
addq %r14, %r13
movb $0x0, (%r15,%r13)
movq 0x110(%rbx), %rdi
callq 0x5590
testl %eax, %eax
jne 0xb8d3
movq %r15, %rax
cmpl $0x2, %r12d
jl 0xb6d1
jmp 0xb8d3
movq 0x10(%rsp), %r15
movq 0x8(%rsp), %rdi
callq 0x5420
movq %r15, %rdi
callq 0x5420
movq 0x110(%rbx), %rdi
movq 0x128(%rbx), %rsi
xorl %ebp, %ebp
xorl %edx, %edx
callq 0x53c0
testl %eax, %eax
je 0xb91c
movq 0x128(%rbx), %rsi
leaq 0x353e(%rip), %rdi      # 0xee4c
xorl %eax, %eax
callq 0x5060
movl $0x2, %ebp
jmp 0xb928
leaq 0x4153(%rip), %rdi      # 0xfa76
callq 0x5570
movl %ebp, %eax
addq $0x38, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movq 0x10(%rsp), %rdi
callq 0x5420
movq %rbp, %rdi
callq 0x5420
movl $0xfffffffe, %ebp       # imm = 0xFFFFFFFE
jmp 0xb928